Авторизация вконтакте (помочь с парсингом хеша)

[O'NeiLL]

Нашёл в инете код новой авторизации вконтакте ("с хешем") но там нужно переделать парсинг хеша, а я в этом как то не очень смыслю поэтому прошу мне помочь

Вот сам код:

var
  Data:tstringlist;
  PageProfile, ip_h:string;
  RegExp: TRegExpr;
begin
  result:=false;
  MainForm.IdCookieManager1.CookieCollection.Clear;
  MainForm.IdHTTP1.AllowCookies:=true;
  if (Log<>'') and (Pas<>'') then
    begin
	    RegExp:=TRegExpr.Create;
      PageProfile:=MainForm.IdHTTP1.Get('http://vkontakte.ru');
      RegExp.Expression:='(ip_h: )(\S+)';
      if RegExp.Exec(PageProfile) then
        begin
          ip_h:=RegExp.Match[0];
          delete(ip_h,1,7);
          delete(ip_h,length(temp)-1,2);
        end;
      MainForm.IdHTTP1.Request.Host:='login.vk.com';
      MainForm.IdHTTP1.Request.Referer:='http://vkontakte.ru/';
      Data:=TStringList.Create;
      Data.Add('act=login');
      Data.Add('q=1');
      Data.Add('al_frame=1');
      Data.Add('expire=');
      Data.Add('captcha_sid=');
      Data.Add('captcha_key=');
      Data.Add('from_host=vkontakte.ru');
      Data.Add('ip_h='+ip_h);
      Data.Add('email='+Log);
      Data.Add('pass='+Pas);
      PageProfile:=MainForm.IdHTTP1.Post('http://login.vk.com/?act=login',Data);
      Data.Clear;
      if pos('"logout_frame"',PageProfile)<>0 then
        begin
          MainForm.ToLog(Log+' Авторизация прошла успешно');
          result:=true;
        end
      else
        begin
          MainForm.ToLog(Log+' Авторизация провалилась');
          result:=false;
        end;
  end
else
    ShowMessage('Неверная пара логин:пароль!');

RegExp.Free;
end;