Авторизация ВК через Synapse

[dmitriegorovih]

Всем доброго времени суток! Пытаюсь сделать авторизация в ВК, все вроде получается, и кукисы принял, и ссылку специальною принимаю, вот только не получаю страницы, как авторизованный пользователь.

var
body:TStringlist;
data,data2:TStringstream;
s:string;
begin
body:=tstringlist.Create;
data:=TStringstream.create('');
data2:=TStringstream.create('');
http.UserAgent:='Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/38.0.2125.101 Safari/537.36 OPR/25.0.1614.35';
http.MimeType:='application/x-www-form-urlencoded';
data.WriteString('role=al_frame&expire=&captcha_sid=&captcha_key=&_origin=https%3A%2F%2Fvk.com&ip_h=b019427e895e108d0f&email=************&pass=*********');
http.Document.LoadFromStream(data);
if http.HTTPMethod('POST','https://login.vk.com/?act=login') then
begin
Memo1.Lines.Add('Отправка запроса. Ответ сервера');
      Memo1.Lines.Add('-----Cokies-----');
      Memo1.Lines.add(http.Cookies.Text);
      Memo1.Lines.Add('-----Headers-----');
      Memo1.Lines.add(http.Headers.Text);
      Memo1.Lines.Add('-----HTML CODE-----');
      http.Document.SaveToStream(data2);
      memo1.Lines.Add(data2.DataString);
    if pos('Location:',http.Headers.Text)>0 then
    begin
    s:=http.Headers.Text;
    delete(s,1,pos('Location:',s)+9);
    s:=copy(s,1,pos(#$D#$A,s));
    edit1.Text:=s; // специальная ссылка
    end;
end;
freeandnil(st);
freeandnil(data);
freeandnil(data2);
freeandnil(body);

Прошу прощения за код, просто это пока примерочная
В общем 2 вопроса как правильно загружать страницы с кукисами и др.?
И как получать при этом тело страницы?
Заранее благодарен.

[Mifody]

1. HTTPS надо включать принудительно + бросать в доступную для прилы папку две DLL
2. "ip_h" - вообщет имеет имеет изменяемое значение
3. "Прошу прощения за код, просто это пока примерочная" вообщет это не "примерочная" а "честно стыренный в нете код" ибо мне он на глаза не раз попадался

[dmitriegorovih]

HTTPS надо включать принудительно + бросать в доступную для прилы папку две DLL

все вроде получается, и кукисы принял, и ссылку специальною принимаю

то есть я запустил приложения и авторизовался, а это значит, я DLL вроде, как и кинул

"ip_h" - вообщет имеет имеет изменяемое значение

просто это пока примерочная

"Прошу прощения за код, просто это пока примерочная" вообщет это не "примерочная" а "честно стыренный в нете код" ибо мне он на глаза не раз попадался

Seriously!?

В общем, забил я на synapse, сделал через indy. Следите за руками
Первое что нам нужно это именно Indy не ниже 10.5.8, но я использовал Indy 10.6.1.5201 скачать можно на офф сайте или здесь.
Второе нужны библиотеки openssl. Можно скачать также на офф сайте или здесь
Инструкция по обновлению здесь
Дело осталось за малым, кидаем на форму idhttp, IdCookieManager, IdSSLIOHandlerSocketOpenSSL.
В инспекторе объектов в свойствах idhttp находим CookieManager и выбираем IdCookieManager, также IOHandler выбираем IdSSLIOHandlerSocketOpenSSL.
Дело осталось за кодом

var
post:TStringList;
begin
post:=TStringlist.Create;
post.Add('email=***************@mail.ru'); //Логин
post.Add('pass=*****************'); //Пароль
memo1.Lines.Add(Utf8ToAnsi(http.Post('https://login.vk.com/?act=login&_origin=http://m.vk.com&ip_h=b019427e895e108d0f&role=pda&utf8=1',post))); //ip_h как указано выше надо находить самому
freeandnil(post);
end;

Вот, в общем, то и все.
Всем удачи!