Авторизация m.vk.com через POST не получается

[mister-bulb]

const
  URL = 'http://m.vk.com/login?fast=1&hash=&s=0&to=';
var
  loginInfo: TStringList;
  Response: TStringStream;
  error: Boolean;
begin
  error := false;
  loginInfo := TStringList.Create;
  Response := TStringStream.Create('');

  try
    loginInfo.Add('email=номер телефона');
    loginInfo.Add('pass=пароль');
    idHttp.Post(URL, loginInfo, Response);

    MemoChat.Text := MemoChat.Text + Response.DataString;
  except
    error := true;
  end;

  Response.Free;
  loginInfo.Free;

Авторизоваться не выходит, выдаёт просто ту же заглавную страницу с полями для авторизации. Как изменить код?
Свойство AllowCookies в true.

[Voody]

У меня в программе я вижу, что ссылка для авторизации динамичная, ее надо парсить каждый раз:

data:=tstringlist.Create;
 data.Add('email='+Facc);
 data.Add('pass='+Fpas);
 StrPage:='';
 try
  StrPage:=HTTP.Get('http://m.vk.com/login');
  StrPage:=HTTP.post(pars('method="post" action="',StrPage,'"'),data);
 except
 end;

[mister-bulb]

Основная процедура теперь выглядит так:

var
  loginInfo: TStringList;
  strInfo: string;
begin
  loginInfo := TStringList.Create;
  
  loginInfo.Add('email=');
  loginInfo.Add('pass=');

  strInfo := '';

  try
    strInfo := idHttp.Get('http://m.vk.com/login');
    strInfo := idHttp.Post(pars('method="post" action="',strInfo,'"'),loginInfo);
    MemoChat.Text := MemoChat.Text + Utf8ToAnsi(strInfo);
  except

  end;

  loginInfo.Free;

Функция pars, как я понял, такая:

function Pars(st,st_begin,st_end:WideString):WideString;
begin
  if pos(st_begin,st)<>0 then
    Delete(st,1,pos(st_begin,st)+length(st_begin))
  else
  begin
    Pars:='not str pars';
    exit;
  end;

  if pos(st_end,st)<>0 then
    Delete(st,pos(st_end,st),length(st))
  else
  begin
    Pars:='not str pars';
    exit;
  end;
  Pars:=st;
end;

Метод GET проходит без проблем, но там и вообще проблем не может возникнуть.
А вот при POST выдаёт ошибку 403 Forbidden

[Voody]

function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

+
HTTP.AllowCookies:=true;
HTTP.HandleRedirects:=false;

других особенностей нет

[mister-bulb]

Couldn't load SSL Library. Теперь вылетает такая ошибка.
На форумах советуют подключить IdSSLIOHandlerSocketOpenSS, что я и сделал, но теперь такая вот фигня.

[Voody]

Практически полная функция:

 Http: TIdHttp;
 IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
 IdSocksInfo: TIdSocksInfo;
 data:tstringlist;
 StrPage: string;
begin
 HTTP:=TIdHTTP.Create;
 HTTP.AllowCookies:=true;
 HTTP.HandleRedirects:=false;
 IdSSLIOHandlerSocketOpenSSL:= TIdSSLIOHandlerSocketOpenSSL.Create(http);
 HTTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL;  
 Http.ConnectTimeout:=10000;
 Http.ReadTimeout:=10000;
 IdSSLIOHandlerSocketOpenSSL.ConnectTimeout:=10000;
 IdSSLIOHandlerSocketOpenSSL.ReadTimeout:=10000;

 data:=tstringlist.Create;
 data.Add('email='+Facc);
 data.Add('pass='+Fpas);
 StrPage:='';
 try
  StrPage:=HTTP.Get('http://m.vk.com/login');
  StrPage:=HTTP.post(pars('method="post" action="',StrPage,'"'),data);
 except
 end;

[Voody]

Сообщение от mister-bulb

Couldn't load SSL Library.

возможно версии библиотек не те. попробуйте распаковать в папку с программой: http://avtyh.narod.ru/brute/pack.zip

[mister-bulb]

Я использовал компонент со схожим названием, но теперь когда попробовал объявить переменную типа TIdSSLIOHandlerSocketOpenSSL, то выдало ошибку, что тип неизвестен. Попробовал чисто наугад подключить IdSSLIOHandlerSocketOpenSSL в раздел модулей, но такого модуля не оказалось, хех.
Этот компонент можно установить? Как называется файл, если это возможно? Delphi 7.

[Voody]

Возможно у вас версия Indy не свежая. Лучше обновить. Или поставить Delphi 2010 (XE как вариант)

[mister-bulb]

Спасибо за помощь.