function login(nick,pass:string):boolean;
var
http:tidhttp;
post:tstringlist;
s:string;
begin
s:='';
result:=false;
http:=tidhttp.Create;
post:=tstringlist.Create;
post.Add('s=');
post.Add('do=login');
post.Add('vb_login_md5password=8a291a22a366d7a044e4f5e81f0974d7');
post.Add('vb_login_md5password_utf=8a291a22a366d7a044e4f5e81f0974d7');
post.Add('vb_login_username=[Ссылки могут видеть только зарегистрированные пользователи. ]');
post.Add('vb_login_password=fnkfcfnkfc');
post.Add('cookieuser=1');
try
s:=http.Post('http://www.allods.mail.ru/login.php?do=login',post);
except
end;
if (pos('Спасибо, что зашли,',s)>0) and (pos(nick,s)>0) then
result:=true;
http.free;
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 [email protected]
vb_login_password fnkfcfnkfc
cookieuser 1
raw stream:
браузер
Код:
POST /login.php?do=login HTTP/1.1
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-www-form-urlencoded
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=http%3A%2F%2Fallods.mail.ru%2F; searchuid=1655572101377271149; mc1=1378226838; rbcnt=7993; s=s_vp=(1440/775); i=AQATiiFSBwATAAhzJg8AARAAARMAARUAARwAAR4AASwAAS0AATAAATYAAT cAATkAAUMAAVAAAVsAAWoAAWsAAXMAAXQAApUAAZoAAZ0AAbkAAQkBASMBAi oBAUMBAWIBAXkBAYsBAowBAo0BAY4BApoBARYnARgnARwnAR0nAV0ABQIBAG EABQIBAKgACB8KAAABBQABIQABRAABUAABUgABUwABVQABowABsgABqQAIBw IFAAFSAAGqAAgHAgUAAVIAAckABQIB/w==; b=Sz4gAFAayQQAhlJLULt6g6DUMji1nSAPxAZEqUUIM7OBCJYJzJxU4F9mAw 0zG5CY2WDd/YbENEUEAABjcUUJN2NKGAlXwjF+Imr7ALHWpIxIRCVMmihhBAAYh2lKSOxUx FaTEppUlJDur4zJJmU8FCchmCYJ1lCwDZZMsA1W7LoN2wucDdwznA1cXpwN3 PGbDXYfzRC2PFoRNnJSCTa2Uglho1oJoQhZGSEHWRlhm0kJ4TpZEWE7WRHh8 UYJJD5ZISTpWAnk2TkJe+1MCeS4Wgnkj0kh5TlOIeUNRxm8U1IJ5apZCSX6T wkl51cJJdZaESVDXRElO0oJ5m1SEWZ4RglnDksJJ81XCWcHWREA; c=qAwiUgAAAAW4HAARAAQAHgAAAAIA; t=obLD1AAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAACAAAAAAAAAAAAAAABAAkHzQcA; bbsessionhash=6b3f4e934f1f2b4c1dfa51c8fe839cd9; mrcu=888C5222103D66037A3A65CC2D4D; Mpop=1375198393:566e626c5b7b6800190502190a1d00041c07074f6a5d 5e465e07050704061e0a07031e4a584b5a5559564656145c555e551f4243 :[Ссылки могут видеть только зарегистрированные пользователи. ]:; VID=1C_h4Z1DAX18; __utma=241327570.54570426.1377271123.1377950794.1377963618.3 5; __utmb=241327570.12.10.1377963618; __utmc=241327570; __utmz=241327570.1377765630.21.12.utmcsr=google|utmccn=(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=8a291a22a366d7a044e4f5e81f097 4d7&vb_login_username=saskehasa%40mail.ru&vb_login_password= fnkfcfnkfc&cookieuser=1