[Help][Delphi] Авторизация на mail.yandex.ru

Помогите сделать авторизацию на Яндексе.
Как только ни пробовал(synapse)
Сделайте пожалуйста её на indy(переделаю под инди) или на synapse

 

Код:

var  POST: TStringList;
begin
  Post := TStringList.Create;
  Post.Add('login=snuppie@yandex.ru');
  Post.Add('twoweeks=yes');
  Post.Add('passwd=H1djljhjl22');
  Form11.IdHTTP1.Post('https://passport.yandex.ru/passport?mode=auth&retpath=https%3A%2F%2Fmail.yandex.ua%2F%3Forigin%3Dlog_ua_l&origin=log_ua_l', Post);
  if Form11.IdCookieManager1.CookieCollection.Count > 3 then
   Form11.sMemo2.Lines.Add('ok')
  else
   Form11.sMemo2.Lines.Add(' no ok');
end;

 

Переписываю на Synapse и ничего не получается.

 

Когда вы сниффером пользоваться научитесь?

var POST: TStringList;
KeyValue:string;
begin
Post := TStringList.Create; // Посмотрите в сниффер, там динамические параметры из исходного кода берутся еще.
HTML:=Form11.IdHTTP1.Get('https://passport.yandex.ru/passport?mode=auth&twoweeks=yes');
KeyValue:= Pars('<input type="hidden" name="idkey" value="',HTML,'" />');
Post.Add('idkey='+KeyValue);
Post.Add('login='+Login);
Post.Add('passwd='+Pass);
Post.Add('timestamp=');
Form11.IdHTTP1.Post('https://passport.yandex.ru/passport?mode=auth&twoweeks=yes', Post); // Зачем такой огромный линк брать? Отсеките ненужные параметры.
if Form11.IdCookieManager1 содержит строку Set-Cookie: yandex_login=
Form11.sMemo2.Lines.Add('ok')
else
Form11.sMemo2.Lines.Add(' no ok');
end;
Редирект можно в принципе отключить ибо кук мы получаем с первого запроса.

 

Держи... Полностью рабочий код(писал не давно)