Программная авторизация на сайте

[Terran]

Всем привет! У меня появилась проблема с авторизацией на сайте. Я перепробовал много разных вариантов, но всё никак не могу авторизоваться.

Есть сайт: http://doska.mogilev.by и я на нём зарегистрирован как обычный пользователь. И питаюсь на нём авторизоваться, но по всей видимости беру не те данные для формирования запроса, такие как user= и password=... Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Http  : TidHttp;
  CM    : TidCookieManager;
  Data  : TStringList;
  StrPage, UserID,  UserName  :  String;
  i : integer;
begin
  try
    Http := TIdHTTP.Create(Self);
    Data := TStringList.Create;
    CM := TidCookieManager.Create(Http);
    Http.AllowCookies := true;
    Http.CookieManager := CM;
    Http.HandleRedirects := true;
    Http.Request.Host:='doska.mogilev.by';
    Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
    Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    Http.Request.Referer:='http://doska.mogilev.by/';
   { Data.Add('mode=login');}
    Data.Add('user=' + Edit1.Text);
    Data.Add('password=' + Edit2.Text);
    StrPage := Http.Post('http://doska.mogilev.by/login.php?do=login.php', Data);
  finally
    Data.Free;
    CM.Free;
    Http.Free;
  end;
  if Pos('<strong>Добро пожаловать, <a href="member.php?u=ххх>'+Edit1.Text,StrPage) <> 0 then 
    ShowMessage('Авторизация прошла успешно')
  else
    ShowMessage('Авторизация провалилась');

  Memo1.Lines.Text := StrPage;
end;

Я в HTML не очень разбираюсь, поэтому хотелось бы узнать как правильно построить запрос? И как правильно и грамотно авторизоваться на этом сайте?

[Пепел Феникса]

<input type="text" name="vb_login_username"  />
<input type="checkbox" name="cookieuser"  />
<input type="password"  name="vb_login_password" />
<input type="submit" value="Вход"  />
<input type="hidden" name="s" value="b9c7cf21c128385ed75ef02a823c17c6" />
<input type="hidden" name="securitytoken" value="guest" />
<input type="hidden" name="do" value="login" />
<input type="hidden" name="vb_login_md5password" />
<input type="hidden" name="vb_login_md5password_utf" />

вот все инпуты формы.
и есть ли в вашем коде хоть чтото похожее?

[Terran]

Я открывал исходник странички и пробовал параметры(vb_login_username,vb_logi n_password) но так и не получилось. Я попробую ещё.
И ещё возможно я тут адрес не верно указал.

StrPage := Http.Post('http://doska.mogilev.by/login.php?do=login.php', Data);

Хотя сейчас немного всё подправил. Попробую позже, а то не пускает даже просто
(Неверное имя пользователя или пароль. Вы использовали предел попыток входа! Попробовать войти в следующий раз вы сможете не ранее, чем через 15 минут.)

[Terran]

Всё равно что-то не получается авторизироваться. Переписывал код. Под другие сайты всё работает, а под этот не хочет.
Делаю так:

...
Http.Request.Host:='doska.mogilev.by';
    Http.Request.UserAgent:='Opera/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
    Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    Http.Request.Referer:='http://doska.mogilev.by/';
    Data.Add('vb_login_username=Логин');
    Data.Add('vb_login_password=Пароль');
    StrPage := Http.Post('http://doska.mogilev.by/', Data);
  finally
    Data.Free;
    CM.Free;
    Http.Free;
  end;
  if Pos('Спасибо, что зашли',StrPage) <> 0 then
    ShowMessage('Авторизация прошла успешно')
  else
    ShowMessage('Авторизация провалилась');
    Memo1.Lines.Text := StrPage;
end;

По идеи всё должно быть правильно, но что-то не идёт.

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

Шото у меня все прекрасно авторизует:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ts:TStringList;
  s:string;
  i:integer;
begin
  Ts:=TStringList.Create;
  try
  Ts.add('vb_login_username=Test35');
  Ts.Add('vb_login_password=123456789');
  Ts.Add('s=');
  Ts.Add('securitytoken=guest');
  Ts.Add('do=login');
  Ts.Add('vb_login_md5password=');
  Ts.Add('vb_login_md5password_utf=');
  s:=UTF8Encode(http.Post('http://doska.mogilev.by/login.php?do=login',ts));
  i:= Pos('Test35',s);
  If i > 0 then
  begin
    ShowMessage('TRUE');
  end;
  finally
   Ts.Free;
  end;
end;

вся проблема в том, что после логина выпадает страничка. и нужно ждать n время чтобы поймать редирект с этой страницы на форум. Чего выше приведёенный код не делает, он ищет ник в строке "Спасибо, что зашли, Test35."

Я вижу выход из этой ситуации:
1. использовать кукис манагер
Вот что принимает, посылает браузер с галочкой "запомнить".

Кукисы:
1.

Cookie Name    Value                                                                   
bbsessionhash  824ac4987691d0fa86e8340492fb0fdd                                        
__utma         195849017.551618498.1314915805.1314915805.1314915805.1                  
__utmb         195849017.15.10.1314915806                                              
__utmc         195849017                                                               
__utmz         195849017.1314915806.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none)  
cc             1

2.

Set-Cookie Name  Value                             Path  Domain            Expires                        
bblastvisit      1314917474                        /     doska.mogilev.by  Fri, 31-Aug-2012 22:51:14 GMT  
bblastactivity   0                                 /     doska.mogilev.by  Fri, 31-Aug-2012 22:51:14 GMT  
bbuserid         16823                             /     doska.mogilev.by  Fri, 31-Aug-2012 22:51:14 GMT  
bbpassword       9cc886da27be32cd98a7d58e9dcbc29d  /     doska.mogilev.by  Fri, 31-Aug-2012 22:51:14 GMT  
bbsessionhash    7d36f6ff354954d480661d1ff1c6837f  /     doska.mogilev.by

Параметры POST запроса:

vb_login_username=Test35
cookieuser=1
vb_login_password=123456789
s=
securitytoken=1314917437-544e9ec5bbfd6a1ae1388ae9acc4ae164cede0ac
do=login
vb_login_md5password=
vb_login_md5password_utf=

[Terran]

Пепел Феникса,Человек_Борща, спасибо Вам большое. С Вашей помощью разобрался и всё получилось. С меня +.

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

На будущее, для таких вещей используй HTTPAnalyzer очень удобно снифать трафик http видно абсолютно все=)

[Terran]

Сообщение от Человек_Борща

На будущее, для таких вещей используй HTTPAnalyzer очень удобно снифать трафик http видно абсолютно все=)

Спасибо!

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

Могу скинуть сразу с кряком. Пиши в ЛС, если надо =)