Модератор: Модераторы
arriah » 11.07.2016 23:43:27
Alex_vcorp » 12.07.2016 02:53:41
arriah » 12.07.2016 15:41:56
Alex_vcorp писал(а):Мало информации, лучше сделать простую тестовую веб-страницу, которая иллюстрирует проблему, и привести её код здесь.
<HTML>
<body>
<center>
<img src="http://wellsit.ru/images/1.jpg"><br /><br />
<img src="http://wellsit.ru/img/2.jpg">
</center>
</body>
</HTML>
procedure TForm1.Button1Click(Sender: TObject);
begin
Chromium1.Load('http://wellsit.ru/index.html');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Chromium1.Load('file:///local.html');
end;
procedure TForm1.Button3Click(Sender: TObject);
var
HTTP:THTTPSend;
begin
HTTP:=THTTPSend.Create;
if HTTP.HTTPMethod('GET','http://wellsit.ru/images/1.jpg') then begin
showmessage(IntToStr(HTTP.ResultCode));
HTTP.Document.SaveToFile('1.jpg');
end;
HTTP.Clear;
if HTTP.HTTPMethod('GET','http://wellsit.ru/img/2.jpg') then begin
showmessage(IntToStr(HTTP.ResultCode));
HTTP.Document.SaveToFile('2.jpg')
end;
HTTP.Free;
end;
location ^~ /img/ {
valid_referers server_names ~(wellsit|yandex|google); //для примера разрешен доступ в этот каталог только этим реферерам
if ($invalid_referer){
return 403;
}
}
locale ^ ~ /img/ {
allow IP_адрес_сервера;
deny all;
}
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, cef3lcl, Forms, Controls, Graphics, Dialogs,
StdCtrls, httpsend;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Chromium1: TChromium;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
Chromium1.Load('http://wellsit.ru/index.html');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Chromium1.Load('file:///local.html');
end;
procedure TForm1.Button3Click(Sender: TObject);
var
HTTP:THTTPSend;
begin
HTTP:=THTTPSend.Create;
if HTTP.HTTPMethod('GET','http://wellsit.ru/images/1.jpg') then begin
showmessage(IntToStr(HTTP.ResultCode));
HTTP.Document.SaveToFile('1.jpg');
end;
HTTP.Clear;
if HTTP.HTTPMethod('GET','http://wellsit.ru/img/2.jpg') then begin
showmessage(IntToStr(HTTP.ResultCode));
HTTP.Document.SaveToFile('2.jpg')
end;
end;
end.
Alex_vcorp » 12.07.2016 16:56:39
arriah писал(а):Вот примерно такое происходит на некторых сайтах - то есть запрещают хотлинки. В моем случае это можно обойти, подделав рефера. А есть еще способы обхода?
arriah » 12.07.2016 16:56:53
procedure TForm1.Button3Click(Sender: TObject);
var
HTTP:THTTPSend;
begin
HTTP:=THTTPSend.Create;
if HTTP.HTTPMethod('GET','http://wellsit.ru/images/1.jpg') then begin
showmessage(IntToStr(HTTP.ResultCode));
HTTP.Document.SaveToFile('1.jpg');
end;
HTTP.Clear;
HTTP.Headers.Insert(0,'Referer: http://wellsit.ru'); //Подмена реферера
if HTTP.HTTPMethod('GET','http://wellsit.ru/img/2.jpg') then begin
showmessage(IntToStr(HTTP.ResultCode));
HTTP.Document.SaveToFile('2.jpg')
end;
end;
[12/Jul/2016:15:53:48 +0300] "GET /images/1.jpg HTTP/1.0" 200 115727 "-" "Mozilla/4.0 (compatible; Synapse)"
[12/Jul/2016:15:53:58 +0300] "GET /img/2.jpg HTTP/1.0" 200 40410 "http://wellsit.ru" "Mozilla/4.0 (compatible; Synapse)"
Alex_vcorp писал(а):Свои секреты рассказывать разумеется не буду, я-бы не хотел, чтобы мои страницы были объектом сканирования и сомнительных действий, проще написать мне и попросить что-то сделать.
Поэтому я с правовой точки зрения ничего не нарушу. никаких деструтивных и сомнительных действий не несу... мне нужен файл. и я его получаю Вернуться в Сторонние средства
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8