И снова Вконтакт :)

[fezilk24]

Доброго времени суток всем программистам!

Пишу что-то типа клиента для вконтакта, просто для себя.
Третий день тыкаюсь с авторизацией, прочитал все темы про вконтакт на этом форуме, рабочего ответа не нашел.

Скачал Http Analyzrer, отловил запросы браузера, попытался сделать то же самое с программой.
Итак, авторизация шла в три запроса:

1.

op=a_login_attempt

url: http://vkontakte.ru/login.php
2.

 act=login
   success_url=
   fail_url=;
   try_to_login=1
   to=
   vk=
   email=mymail@ya.ru
   pass=mypass
   expire=

url: http://login.vk.com

3.

s= {cod}
   op=slogin
   redirect=1
   expire=0
   to=
   fail_url=
   try_to_login=1
   to=
   request_method=post

{cod} - это хеш, куки или еще что, длинный код и постоянно меняется.
url: http://vkontakte.ru/login.php
redirect: /mynick

Вот код моей 'программы':

procedure TForm1.Button1Click(Sender: TObject);
var
  data:TStringList;
  page:String;
begin
  http.AllowCookies:=true;
  http.CookieManager:=CooM;
  http.HandleRedirects:=true;
//шаг 1
  data :=TStringList.Create;
  data.Add('op=a_login_attempt');
  Page:= http.Post('http://vkontakte.ru/login.php', data);
  data.Free;

//шаг 2
  data :=TStringList.Create;
  data.Add('act=login');
  data.Add('success_url=');
  data.Add('fail_url=');
  data.Add('try_to_login=1');
  data.Add('to=');
  data.Add('vk=');
  data.Add('email=mymail@ya.ru');
  data.Add('pass=mypass');
  data.Add('expire=');
  Page:= http.Post('http://login.vk.com/', data);
  data.Free;

// шаг 3
  data :=TStringList.Create;
  data.Add('s=');
  data.Add('op=slogin');
  data.Add('redirect=1');
  data.Add('expire=0');
  data.Add('to=');
  data.Add('fail_url=');
  data.Add('try_to_login=1');
  data.Add('to=');
  data.Add('request_method=post');
  Page:= http.Post('http://vkontakte.ru/login.php', data);
memo1.text:=http.get('http://vkontakte.ru/profile.php');
  data.Free;
end;

И так, нужно: в последнем шаге в 's' каким-нибудь образом добавить то, что нужно (хеш или куки), как это сделать, я не знаю.

И второе, в http analyzer'е видно, что шаг 3 выполняется бесконечно,
идёт редирект
с
http://vkontakte.ru/login.php?u=1&to=cHJvZmlsZS5waHA-
на profile.php
и обратно.
Если запретить редиректы, вылетает ошибка 302 и страница не грузится.

Delphi 2009.
Помогите, пожалуйста!

[fezilk24]

наверное, нужно как то переменной "s" присвоить куки.

подскажите, пожалуйста, как это сделать

[Пепел Феникса]

третий шаг не бесконечен, если все верно то он вас и оставит на странице профиля.
а вы пробовали анализировать ответ сервера, а не только заголовки?

[W0LF]

Сообщение от fezilk24

Третий день тыкаюсь с авторизацией, прочитал все темы про вконтакт на этом форуме, рабочего ответа не нашел.

1. Или вы не глянули все темы про авторизацию вконтакте...
2. Или вы просто не умеете читать...
3. Или вы вообще не искали...
4. Или, я даже незнаю, что еще может быть...

ТЕМА В КОТОРОЙ РАЗОБРАЛИ АВТОРИЗАЦИЮ ВКОНТАКТЕ!!!

P.S.: Прям слов, блин, не хватает на этих людей... ОДНИ МАТЫ В ГОЛОВЕ!

[fezilk24]

W0LF, ОНО НЕ РАБОТАЕТ!!
сказал же - читал. все темы разбирал, вставлял код, разбирал, компилил.
Пепел Феникса, вроде всё верно, но получается, что бесконечен. И в итоге - путая страница. А когда после этого хочу Get'ом получить страницу, выкидывает на страницу входа.

[W0LF]

Ну так у трёх людей заработало, обратитесь к ним в приват.

[Пепел Феникса]

вы анализируете ответ от сервера?(а то я замечал только про заголовки)
там JS редирект. в котором и есть все адреса.

[fezilk24]

W0LF, спасибо, без ваших бесполезных сообщений я бы ну никак не справился.

Пепел Феникса, я конечно извиняюсь, но я не такой профессионал, а только новичок и поэтому как и что анализировать - не знаю. Подскажите, пожалуйста

[W0LF]

Код той темы у меня скомпилировался и успешно авторизировался, так же в той же теме нашел ссылку, первых 2 варианта авторизации тоже успешно сработали, так что думайте...

[fezilk24]

А теперь попробуйте в любом из тех способов:

Memo1.Text := http1.get('http://vkontakte.ru');

и выкинет на главную страницу.

Или я туплю, тогда извиняюсь и прошу помощи