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

[ncdos]

PHP код:

begin
  PostData:=TStringList.Create;
try
  IdHTTP1.AllowCookies:=True;
  IdHTTP1.HandleRedirects:=True;
  ResponseData:=TStringList.Create;
  PostData.Add('Login='+Edit1.Text);
  PostData.Add('Domain='+Edit2.Text);
  PostData.Add('Password='+Edit3.Text);
  ResponseData.Text:=IdHTTP1.Post('http://win.mail.ru/cgi-bin/auth', PostData);
 if Pos('logout',ResponseData.Text)>0 then
  ShowMessage('Авторизовались!')
 else
  ShowMessage('Авторизация не удалась!');
 finally
  PostData.Free;
  ResponseData.Free;
end; 


C любыми данными, с не верными, всегда 'Авторизовались!'. Происходит разрыв с верными данными. Что не так в коде?

[V1rt1L3R]

Цитата: var PostData:TStringList; s:String begin try IdHTTP1.AllowCookies:=True; IdHTTP1.HandleRedirects:=True; IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded'; IdHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1'; PostData:=TStringList.Create; PostData.Add('Login='+Edit1.Text); PostData.Add('Domain='+Edit2.Text); PostData.Add('Password='+Edit3.Text); PostData.Add('Submit=Войти в почту'); s:=IdHTTP1.Post('http://win.mail.ru/cgi-bin/auth', PostData); if Pos('logout',s)>0 then ShowMessage('Авторизовались!') else ShowMessage('Авторизация не удалась!'); finally PostData.Free; s.Free; end;

Пробуй...

[ncdos]

V1rt1L3R, в CurrPorts после авторизации нет соединения. Если это ничего не значит и можно добавлять действия - хорошо. Просто есть исходник почтового клиента, так там соединение в CurrPorts продолжается после авторизации.

[VeTaL_UA]

Цитата: Сообщение от ncdos после авторизации нет соединения

А Cookies использовать запретили?

var
PostData:TStringList;
s:String
HTTP:TIdHTTP;
Cookie:TIdCookieManager;
begin
 try
 HTTP:=TIdHTTP.Create(nil);
 Cookie:=TIdCookieManager.Create(HTTP);
 HTTP.AllowCookies:=True;
 HTTP.CookieManager:=Cookie;
 HTTP.HandleRedirects:=True;
 HTTP.Request.ContentType:='application/x-www-form-urlencoded';
 HTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1';
 PostData:=TStringList.Create;
 PostData.Add('Login='+Edit1.Text);
 PostData.Add('Domain='+Edit2.Text);
 PostData.Add('Password='+Edit3.Text);
 PostData.Add('Submit=Войти в почту');
 s:=IdHTTP1.Post('http://win.mail.ru/cgi-bin/auth', PostData);
  if Pos('logout',s)<>0 then  //нехорошо по 'logout' проверять
   begin
   ShowMessage('Авторизовались!')
   end
  else
   begin
   ShowMessage('Авторизация не удалась!');
   end; 
 finally
 PostData.Free;
 HTTP.Free;
 Cookie.Free;
 end;
end;

P.S. V1rt1L3R, не пиши кривой код