Не могу авторизоваться вконтакте

[xrenomx]

Попробовал авторизоваться на другом ресурсе(sprashivai.ru)

var
a:string;
data:TStringList;
begin
Idhttp1.HandleRedirects:=true;
Data:=TStringList.Create;
data.Add('email='+Edit1.Text);
data.Add('pass='+Edit2.Text);
a:=Idhttp1.Post('http://sprashivai.ru/login',data);
data.Free;
IdHttp1.Free;
if Pos('logout',a)<>0 then
Application.MessageBox('','DONE',MB_OKCANCEL)
else
Application.MessageBox('','FAIL',MB_OKCANCEL);
end;

Выходит Fail,хотя данные ввожу правильные.

P.S. судя по снифферу пароль для sprashivai хешируется,что то на подобии "315eb115d98fcbad39ff",поэтому как я понял,программа сама должна "перефразировать" пароль из edit2 в подобный вид...как это сделать,подскажите.

[fucil]

Вот держи рабочий код все просто: с тебя +

procedure Vklogin(const login,password :string);
var
	ss:String;
	M:TStringStream;
begin
  M:=TStringStream.Create('');
  idhttp1.HandleRedirects:=true;
   try
      idhttp1.get('http://vkontakte.ru/login.php?email='+login+'&pass='+password,M);
   except
    on e:Exception do
    begin
      messagedlg('Ошибка подключения к вконтакте'+#13+'проверте подключенние к интернету.',mterror, [mbok],0);
    exit;
    end;
    end;
  ss :=M.DataString;
if Pos('top_nav_link',ss)<>0 then
	MessageDlg('Залогин...', mterror, [mbOk], 0);
else
	MessageDlg('Неверный логин или пароль!', mterror, [mbOk], 0);
	M.Free;
end;

[xrenomx]

плюсанул,хотя код еще не проверил)) Спасибо)

[xrenomx]

Все получилось,просто перед пасс не стоял & ))

Всем спасибо)

Я так понял,если авторизоваться через POST запрос,то там уже нужно включать куки и все намного сложнее?