[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

16.06.2010, 22:14

fenixelite

Участник форума

Регистрация: 07.02.2010

Сообщений: 189

Провел на форуме:
870084

Репутация: 79

Отправить сообщение для fenixelite с помощью ICQ

Авторизовывался в контакте след. кодом :

PHP код:


		
			
Post := TStringList.Create;

 Response := TStringList.Create;



  //1 запрос

 Post.Add('op=a_login_attempt');

 Response.Text := IdHTTP1.Post('http://vkontakte.ru/login.php',Post);

  //2 запрос

 Post.Clear;

 Post.Add('email=mail');

 Post.Add('pass=password');

 Post.Add('expire=');

 Post.Add('vk=');

 Response.Text := IdHTTP1.Post('http://login.vk.com/?act=login',Post);

 Post.Clear;



 //Парсим хэш

 hash := Response.Text;

 Delete(hash,1,Pos('value',hash)+6);

 Delete(hash,Pos('''',hash),Length(hash));

 //3 запрос

 Post.Add('s='+hash);

 Post.Add('op=slogin');

 Post.Add('redirect=1');

 Post.Add('expire=0');

 Post.Add('to=');

 Post.Add('request_method=post');

 Response.Text := IdHTTP1.Post('http://vkontakte.ru/login.php',Post);

Сейчас в отпуске. На другой машине скачал дельфи. Набросал код для авторизации, но он не проходит. Хотя буквально неделю назад тем же кодом авторизовывался. В чем проблема, кто подскажет?
Подозреваю что проблема с куками(т.е с самим Delphi).....