Не авторизовывается

[ramzes777]

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

procedure TForm1.Button3Click(Sender: TObject);
var params,responseres,params2,responseres2:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
params.Add('log=логин');
params.Add('Pas=пароль');
responseres.Text:=http1.Post('http://remote.shf.wm-panel.com/?page=auth',params);
if Pos('auth&logout',responseres.Text)>0 then
  ShowMessage('Авторизовались!');

Проверял что в responseres.Text, там опять страница авторизации (Т.е. залогиться не получилось)

К idHTTP прикручены куки, редирект тру.

Как быть?

[p51x]

Pas с маленькой )

[ramzes777]

Спасибо, исправил!
Теперь программа зависает на пару минут, и выдает что не удалось залогиниться.

Вывел responseres.Text в мемо, пусто.

Все еще не получается залогиниться.

[_Troy]

Проблема может быть в следующем:
- При авторизации на сайте скрипту посылаются не только логин и пароль, возможно какие-нибудь дополнительные параметры (абсолютно любые), при чем их количество может быть больше 10.
Посмотри через HTTP Analyzer 5 какие параметры отсылаются и куда.
Т.е. действия такие:
1) Ставишь прогу
2) Заходишь на сайт, вводишь логин, пароль и что еще надо.
3) Запускаешь прогу, ставишь фильтр на http post, запускаешь снифф
4) На сайте авторизовываешься
5) Ставишь прогу на паузу, смотришь что, куда, откуда отправилось

[ramzes777]

Установил, проверил. Отправляется только 2 - логин и пароль.
Проблема осталась.

Странно, ведь не авторизирует потому-что не грузит код, в файле с responseres.Text только пустая строка.
Если бы просто упустил какой-то элемент то хотябы код то грузился. А так не понятно.

[_Troy]

Попробуй сделать на socket'ах

[ramzes777]

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

Попробуй сделать на socket'ах

Можно поподробнее? В кратце.

[_Troy]

клик, клик, вотЪ

[ramzes777]

Попробовал с сокетами, ошибки вылезуют. Уже голова не работает %)
По первому примеру так правильно:

  SockAddr1.sin_family:=AF_INET;
  SockAddr1.sin_addr.S_addr:=inet_addr(PChar('remote.shf.wm-panel.com')); //parsers.info
  SockAddr1.sin_port:=htons(80);

и

  Buffer1:='POST / HTTP/1.1'#13#10+
  'log: мой_логин'#13#10+
  'pas: мой_пароль'#13#10+
           'host: remote.shf.wm-panel.com/?page=auth'#13#10+
           'Connection: close'#13#10+
           #13#10;

?

П.С. Вспоминал что мне сделать нужно (зайти в этот пост и посмотреть ссылки на сокеты) минут 10. Не мог сообразить О_о

[_Troy]

ramzes777, по 6 посту, проверь какой заголовок формирует браузер, делай такой же и отправляй. А какие ошибки?