Авторизация allods.mail.ru

[host90]

Здравствуйте, вот код для авторизации на сайте allods.mail.ru.

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, id[Ссылки могут видеть только зарегистрированные и активированные пользователи] umd5, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]
Start: TButton;
procedure StartClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

function login(nick,pass:string):boolean;
var
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
post:tstringlist;
s:string;

begin
s:='';
result:=false;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
post:=tstringlist.Create;


post.Add('s=');
post.Add('do=login');
post.Add('vb_login_md5password=8a291a22a366d7a044e 4f5e81f0974d7');
post.Add('vb_login_md5password_utf=8a291a22a366d7a 044e4f5e81f0974d7');
post.Add('vb_login_username=[Ссылки могут видеть только зарегистрированные и активированные пользователи]');
post.Add('vb_login_password=fnkfcfnkfc');
post.Add('cookieuser=1');

try
s:=[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',post);
except
end;
if (pos('Спасибо, что зашли,',s)>0) and (pos(nick,s)>0) then
result:=true;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
post.free;
end;

procedure TForm1.StartClick(Sender: TObject);
begin
if login('UnDeadRocUser', 'password') then
Showmessage('Мы успешно залогинились')
else
Showmessage('Пароль неверный или ошибка соединения');
end;
end.

Всегда 'Пароль неверный или ошибка соединения', если код изменить, то всегда в моем случаи выскакивает ошибка уже делфи по нажатию на button : closed connection gracefully.

P.s вот данные с http analyzer

s
do login
vb_login_md5password 8a291a22a366d7a044e4f5e81f0974d7
vb_login_md5password_utf 8a291a22a366d7a044e4f5e81f0974d7
vb_login_username [Ссылки могут видеть только зарегистрированные и активированные пользователи]
vb_login_password fnkfcfnkfc
cookieuser 1

raw stream:

браузер

POST /login.php?do=login [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Host: allods.mail.ru
Connection: keep-alive
Content-Length: 203
Cache-Control: max-age=0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Origin: [Ссылки могут видеть только зарегистрированные и активированные пользователи]
User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/29.0.1547.57 Safari/537.36
Content-Type: application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи]
Referer: [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Accept-Encoding: gzip,deflate,sdch
Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4
Cookie: p=zvQAAL6jJwAA; __referrer=[Ссылки могут видеть только зарегистрированные и активированные пользователи] searchuid=1655572101377271149; mc1=1378226838; rbcnt=7993; s=s_vp=(1440/775); i=AQATiiFSBwATAAhzJg8AARAAARMAARUAARwAAR4AASwAAS0A ATAAATYAAT cAATkAAUMAAVAAAVsAAWoAAWsAAXMAAXQAApUAAZoAAZ0AAbkA AQkBASMBAi oBAUMBAWIBAXkBAYsBAowBAo0BAY4BApoBARYnARgnARwnAR0n AV0ABQIBAG EABQIBAKgACB8KAAABBQABIQABRAABUAABUgABUwABVQABowAB sgABqQAIBw IFAAFSAAGqAAgHAgUAAVIAAckABQIB/w==; b=Sz4gAFAayQQAhlJLULt6g6DUMji1nSAPxAZEqUUIM7OBCJYJ zJxU4F9mAw 0zG5CY2WDd/YbENEUEAABjcUUJN2NKGAlXwjF+Imr7ALHWpIxIRCVMmihhBAA Yh2lKSOxUx FaTEppUlJDur4zJJmU8FCchmCYJ1lCwDZZMsA1W7LoN2wucDdw znA1cXpwN3 PGbDXYfzRC2PFoRNnJSCTa2Uglho1oJoQhZGSEHWRlhm0kJ4Tp ZEWE7WRHh8 UYJJD5ZISTpWAnk2TkJe+1MCeS4Wgnkj0kh5TlOIeUNRxm8U1I J5apZCSX6T wkl51cJJdZaESVDXRElO0oJ5m1SEWZ4RglnDksJJ81XCWcHWRE A; c=qAwiUgAAAAW4HAARAAQAHgAAAAIA; t=obLD1AAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAA AAAAACAAAAAAAAAAAAAAABAAkHzQcA; bbsessionhash=6b3f4e934f1f2b4c1dfa51c8fe839cd9; mrcu=888C5222103D66037A3A65CC2D4D; Mpop=1375198393:566e626c5b7b6800190502190a1d00041c 07074f6a5d 5e465e07050704061e0a07031e4a584b5a5559564656145c55 5e551f4243 :[Ссылки могут видеть только зарегистрированные и активированные пользователи]:; VID=1C_h4Z1DAX18; __utma=241327570.54570426.1377271123.1377950794.13 77963618.3 5; __utmb=241327570.12.10.1377963618; __utmc=241327570; __utmz=241327570.1377765630.21.12.utmcsr=google|ut mccn=(orga nic)|utmcmd=organic|utmctr=(not%20provided); mc2=allods.mail.ru; __atuvc=89%7C34%2C3176%7C35; __partner_id=1_776_58277_0__

s=&do=login&vb_login_md5password=8a291a22a366d7a044e4f5e81f0 974d7&vb_login_md5password_utf=8a291a22a366d7a044e4f5e81 f097 4d7&vb_login_username=saskehasa%40mail.ru&vb_login_password= fnkfcfnkfc&cookieuser=1

программа

POST /login.php?do=login [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Connection: keep-alive
Content-Type: application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи]
Content-Length: 203
Host: [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Encoding: identity
User-Agent: Mozilla/3.0 (compatible; Indy Library)

s=&do=login&vb_login_md5password=8a291a22a366d7a044e4f5e81f0 974d7&vb_login_md5password_utf=8a291a22a366d7a044e4f5e81 f097 4d7&vb_login_username=saskehasa%40mail.ru&vb_login_password= fnkfcfnkfc&cookieuser=1

[NebesaBag]

Попробуй с другого браузера зайти и посмотреть строки с MD5 идентичны тем, что сейчас? Мб там динамический ключ берётся и хэшируется?

[host90]

Firefox, запросы с Firebug, такие же. Opera и http analyzer, то же. Здесь наверно в коде что-то не верно.

[Yukikaze]

User-Agent: Mozilla/3.0 (compatible; Indy Library)
Да и хост указан не верно