Авторизация "В контакте"

[Человек_Борща]

А сомуму изучать, не? Снифер в руки вперёд!

[BDA]

Пользуюсь таким методом)

try
  IdHTTP1.CookieManager.CookieCollection.Clear;
  IdHTTP1.AllowCookies := true;
  IdHTTP1.HandleRedirects := true;
  r := tstringstream.create;
  IdHTTP1.Get('http://vkontakte.ru/login.php?email=' + login1.Text +'&pass=' + password1.Text, r);
  if pos('logout', r.DataString) <> 0 then
    showmessage('Проведена авторизация Вконтакте')
  else
    showmessage('Авторизация Вконтакте НЕ ПРОЙДЕНА');
finally
  r.Free;
end;

[Johnson]

Очень извиняюсь за некропот. Но всё же...

При попытке залогиниться компилятор брякается с ошибкой

HTTP/1.1 302 Found

Delphi 2007, INDY 10.0.52

Как это лечить?

[Voody]

idHttp1.HandleRedirects:=true;

[Freezee]

У меня вообще авторизация не проходит никак. Выдает ошибку на PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data);
Как быть?

[Delphi_ProGer]

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

У меня вообще авторизация не проходит никак. Выдает ошибку на PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data);
Как быть?

Какая ошибка?

[Кольша]

Всем привет! В данной статье я хочу показать вам как работать с сайтом
"Вконтакте" а именно авторизация так как в интернете много примеров авторизации,
но большенство не работает.И так начнем!!!
Подключаем в uses cледущие модули: idantifreeze,IdHTTP,idcookiemanager ;
описываю каждый модуль:
idantifreeze-нужен для того что бы программа не висла прии работе P.S его подключение не обязательно!
IdHTTP-компонент для посылки post и get запросов да и вообще для работы с сетью.
idcookiemanager-данный компонент хранит так называемые "куки".
далее дописываем после public вот function authvk(l,p:string):boolean; b и нажимаем ctrl+shift+c делфи сгенерирует
эту функцию.Далее пишем вот этот код в теле функции :
var
s, c, remixchk, remixsid: string;
i: Integer;
cookie:Tidcookiemanager;
freeze:TIdAntiFreeze;
http: TIdHTTP;
begin
/////создаем и настраиваим компоненты
cookie:=Tidcookiemanager.Create(sel f);
http := TIdHTTP.Create(self);
http.CookieManager:=cookie;
freeze:=TIdAntiFreeze.Create(self);
http.AllowCookies := False;
http.HandleRedirects := False;
/////создаем и настраиваим компоненты
try
////авторизовываемся но нас должно редеректить так как http.HandleRedirects := False;
s:=HTTP.get('http://vk.com/login.php?email='+l+'&pass='+p);
except
if (http.ResponseCode=302) then begin ////проверяем если редирект тогда
////парсим кукусы
c := http.Response.RawHeaders.Text;
i := Pos('remixchk', c) + 9;
remixchk := Copy(c, i, length(c));
remixchk := Copy(remixchk, 1, pos(';',remixchk)-1);
i := Pos('remixsid', c) + 9;
remixsid := Copy(c, i, length(c));
remixsid := Copy(remixsid, 1, pos(';',remixsid)-1);
////парсим кукусы
////добаляем их
http.Request.CustomHeaders.Text := 'Cookie: remixchk='+remixchk +'; remixsid='+remixsid;
http.CookieManager.AddCookie('remix chk='+remixchk+'; remixsid='+remixsid,'http://vk.com');
////добаляем их
s:=http.get('http://vk.com'+http.Response.Location);////переходим на страницу
end;
end;
///////проверякм авторизовались ли мы
if (pos('Добро пожаловать',s)>0) or (pos('Вход',s)>0) then result:=false else begin result:=true;
s:=copy(s,pos('<title>',s)+length(' <title>'),length(s));
s:=copy(s,1,pos('</title>',s)-1);
showmessage(s);//////показываем сообщение с вашим именем
end;
//////уничтожаем компоненты
freeandnil(http);
freeandnil(cookie);
freeandnil(freeze);
end;

далее кидаем на форму кнопку кликаем 2 раза и пишем такой код:
if authvk('ваш логин','ваш пароль') then showmessage('Авторизовались!!') else showmessage('Не смогли вы авторизоваться!!!');
THE END.HAPPY END =D

моя статья которая ДОЛЖНА БЫЛА быть выставлена на pblog.ru но так и осталась на ДОЛЖНА БЫЛА

[Ruslasy]

var  
login:tstringlist; //Переменная-список 
http,sid:string; //Переменные-строки 

begin 
  login:=Tstringlist.Create; 
  login.Add('email='+edit1.Text); //Логин 
  login.Add('pass='+edit2.Text); //Пароль 
  try 
  http:=IdHTTP1.post('http://vk.com/login.php?',login); //Отправляем запрос 
except 
  http:=idhttp1.response.RawHeaders.GetText; 
  if pos('302', http) <>0 then raise; //Обрабатываем ошибку 
end; 
  if Pos('remixsid',http)= 0 then ShowMessage('Что то не правильно ввели'); //Ищем в ответе sid 
if Pos('remixsid',http)<> 0 then begin //Если sid есть, то вынимаем его 
Delete(http,1,pos('d=',http)+length('d=')-1); //Удаляем до "d="
sid:=copy(http,1,pos(';',http)-1); //Копируем до ";" 
ShowMessage('Авторизировались. Ключ: '+sid); //Всё. Sid вынут 
end; 
end;

Вот кода авторизации. Если надо посещать что то то просто прикрути сид в куки и будет тебе счастье.