Авторизация на vbulletin (POST)

[IndomiX]

function login(nick,pass:string):boolean;
var
  http:tidhttp;
  post:tstringlist;
  s:string;
 
begin
  s:='';
  result:=false;
  http:=tidhttp.Create;
  post:=tstringlist.Create;
 
  post.Add('vb_login_username='+Form1.Edit1.Text);
  post.Add('vb_login_password='+Form1.Edit2.Text);
  post.Add('s=');
  post.Add('securitytoken=guest');
  post.Add('do=login');
  post.Add('vb_login_md5password='+md5(pass));
  post.Add('vb_login_md5password_utf='+md5(pass));
 
  try
    s:=http.Post('http://www.сайт.ru/forum/login.php?do=login',post);
  except
  end;
  if (pos('Добро пожаловать',s)>0) and (pos(nick,s)>0) then
    result:=true;
  http.free;
  post.free;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if login('UnDeadRocUser', 'password') then
    Showmessage('Мы успешно залогинились')
  else
    Showmessage('Пароль неверный или ошибка соединения');
end;
 
end

Естественно пытаюсь авторизоваться в булке.

Ввожу пароль и логин правильно, программа думает и показывает что все равно пароль неверный или ошибка соединения.

В чем трабл?

[IndomiX]

function login(nick,pass:string):boolean;
var
  http:tidhttp;
  post:tstringlist;
  s:string;
 
begin
  s:='';
  result:=false;
  http:=tidhttp.Create;
  post:=tstringlist.Create;
 
  post.Add('vb_login_username='+Form1.Edit1.Text);
  post.Add('vb_login_password='+Form1.Edit2.Text);
  post.Add('s=');
  post.Add('securitytoken=guest');
  post.Add('do=login');
  post.Add('vb_login_md5password='+md5(pass));
  post.Add('vb_login_md5password_utf='+md5(pass));
 
  try
    s:=http.Post('http://www.сайт.ru/forum/login.php?do=login',post);
  except
  end;
  if (pos('Добро пожаловать',s)>0) and (pos(nick,s)>0) then
    result:=true;
  http.free;
  post.free;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if login('UnDeadRocUser', 'password') then
    Showmessage('Мы успешно залогинились')
  else
    Showmessage('Пароль неверный или ошибка соединения');
end;
 
end

Естественно пытаюсь авторизоваться в булке.

Ввожу пароль и логин правильно, программа думает и показывает что все равно пароль неверный или ошибка соединения.

В чем трабл?

[Lauri]

Попробуй логинмд5 и пасмд5 передавать пустыми

[sxcine]

возможные ошибки:
1. сервер проверяет заголовки, а вы отправляете неверные;
2. кодировка;
3. не все параметры передаёте;
4. не принимаете кукисы, либо реддиректы выключены.
да и вообще причин много так-то)

[IndomiX]

Сообщение от Lauri

Попробуй логинмд5 и пасмд5 передавать пустыми

тоже самое

[IndomiX]

Сообщение от sxcine

возможные ошибки:
1. сервер проверяет заголовки, а вы отправляете неверные;
2. кодировка;
3. не все параметры передаёте;
4. не принимаете кукисы, либо реддиректы выключены.
да и вообще причин много так-то)

параметры передаю все, проверял через Http Analyzer

странно, пфф, не знаю в чем проблема

[IndomiX]

Вот еще что заметил. когда ввожу правильные данные на сайте и успешно авторизовываюсь, то в посте появляется:



cookieuser

[sxcine]

ну так вначале получайте страницу авторизации, парсите все нужные данные и лишь потом передавайте их

[IndomiX]

Можно подробнее(на примере кода, пожалуйста)?

[sxcine]

Сообщение от IndomiX

Можно подробнее(на примере кода, пожалуйста)?

на "www.сайт.ru" ?