Авторизоваться на IP.B

[Kottik]

Здравствуйте
Требуется авторизоваться на форуме IP.B
Исходный код страницы:

<form action="http://forum.animekids.ru/index.php" method="post">
	<input type="hidden" name="act" value="Login" />
	<input type="hidden" name="CODE" value="01" />
	<input type="hidden" name="s" value="a8bd151f293e86c308384f14e77e05d6" />
	<input type="hidden" name="referer" value="http://forum.animekids.ru/index.php?act=UserCP&amp;CODE=00" />
	<input type="hidden" name="CookieDate" value="1" />
	<h4>Сейчас вы не авторизованы. Можете сделать это, используя форму ниже.</h4>
	<div class="fieldwrap">

<h4>Имя пользователя (login)</h4>
		<input type="text" size="20" maxlength="64" name="UserName" />

		<h4>Пароль</h4>
		<input type="password" size="20" name="PassWord" />
		<p class="formbuttonrow1"><input class="button" type="submit" name="submit" value="Войти!" /></p>
	</div>
</form>

Код:

procedure TForm1.Button4Click(Sender: TObject);
var params,responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
try
params.Add('act=Login');
params.Add('CODE=01');
params.Add('referer=http://forum.animekids.ru/index.php?act=UserCP&CODE=00');
params.Add('CookieDate=1');
params.Add('UserName=[тут реальный логин]');
params.Add('PassWord=[пароль]');
params.Add('submit=Войти!');
responseres.Text:=http1.Post('http://forum.animekids.ru/index.php',params);
if Pos('Выход',responseres.Text)>0 then
  ShowMessage('Авторизовались!');
finally
params.free;
responseres.free;
end;
end;

Может быть дело в

<input type="hidden" name="s" value="a8bd151f293e86c308384f14e77e05d6" />

сессиях?

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

начнем с малого.
1)версия инди?
2)куки менагер подключен?
3)(ответ на посл вопрос)
да в них тоже дело(99,9%)

[Kottik]

Сообщение от Пепел Феникса

1)версия инди?
2)куки менагер подключен?
3)(ответ на посл вопрос)
да в них тоже дело(99,9%)

1) 10.2.5
2) (Можно подробнее? Я совсем новичок )
У компонента TIdHTTP свойство AllowCookies установлено в True.
Ниже вижу свойство CookieManager - он не установлен и выбрать не из чего. Отправляюсь в Google )

Дописано: в разделе IndyMisc вижу такой компонент)

Дописано: как пользоваться - пока не понял)

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

1)-
2)кинуть на форму и подключить его к HTTP
3)сначало получаем страницу потом парсим...а потом отправляем запрос на авторизацию

[Kottik]

Сообщение от Пепел Феникса

1)-
2)кинуть на форму и подключить его к HTTP
3)сначало получаем страницу потом парсим...а потом отправляем запрос на авторизацию

"1) -" по первому вопросу всё решено или то, что версия у меня такая - это "минус"?
Попробую понять, что Вы мне советуете)
Спасибо

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

не самая последня но десятка
так что все норм

[Kottik]

1. Добавил на форму CookieManager.
2. У TIdHTTP свойство CookieManager установил IdCookieManager1.
3. Получаю страницу и загружаю её в memo1.
4. При помощи подключенных RegExpr нахожу в тексте страницы "s".
5. Вывожу его в memo1.
6. Посылаем запрос.
7. Текст из полученного StringList выводим в memo1, видим неправильную кодировку. Как исправить?

Читал сообщение, воспользоваться не получилось
К тому же и без кодировки вижу, что аутентификация НЕ прошла.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, RegExpr, IdCookieManager;

type
  TForm1 = class(TForm)
    b1GetPage: TButton;
    b2Parsing: TButton;
    b3Post: TButton;
    Memo1: TMemo;
    http1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    procedure b1GetPageClick(Sender: TObject);
    procedure b2ParsingClick(Sender: TObject);
    procedure b3PostClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s:string;

implementation

{$R *.dfm}

procedure TForm1.b1GetPageClick(Sender: TObject);
var stream : TMemoryStream;
begin
stream := TMemorystream.Create;
http1.Get('http://forum.animekids.ru/index.php?act=UserCP&CODE=00',stream);
stream.Position := 0;
memo1.Lines.LoadFromStream(stream);
end;

procedure TForm1.b2ParsingClick(Sender: TObject);
var
RegExp:TRegExpr;
begin
RegExp := TRegExpr.Create;
try
RegExp.Expression:= '<input type="hidden" name="s" value="(.*?)" />';
    if RegExp.Exec(memo1.Text) then begin
      memo1.Clear;
      s:=RegExp.Match[1];
      memo1.lines.add(RegExp.Match[1]);
    end;
finally
  RegExp.Free;
end;
end;

procedure TForm1.b3PostClick(Sender: TObject);
var params,responseres:tstringlist;
ref,ses:string;
begin
ref:='';
ses:='';
ses:='s='+s;
ref:='referer='+'http://forum.animekids.ru/index.php?s='+s+'&amp;amp;act=UserCP&amp;CODE=00';
params:=TStringList.Create;
responseres:=TStringList.Create;
try
params.Add('act=Login');
params.Add('CODE=01');
params.Add(ses);
params.Add(ref);
params.Add('CookieDate=1');
params.Add('UserName=test');
params.Add('PassWord=test');
params.Add('submit=Войти!');
memo1.text:=params.Text;
responseres.Text:=http1.Post('http://forum.animekids.ru/index.php',params);
memo1.Text:=responseres.Text;
if Pos('Личные',responseres.Text)>0 then
  ShowMessage('Авторизовались!');
if Pos('Вход',responseres.Text)>0 then
  ShowMessage('Не авторизовались!');
  finally
params.free;
responseres.free;
end;
end;
end.

[Квэнди]

ну а что мешает посмотреть оригинальный запрос и ваш и посмотреть в чем разница ?

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

procedure Tmain_form.httpClick(Sender: TObject);
var
stream: tStream;
strings: tStringList;
begin
   stream := tMemoryStream.Create;
   try
   idHTTP1.Get('http://programmersforum.ru/showthread.php?t=60677', stream);
   stream.Position := 0;
   strings := tStringList.Create;
   strings.LoadFromStream(stream);
   memo1.Lines.Assign(strings);
   strings.Free;
   finally
   stream.Free;   
   end;
end;

а если так получать то с кодировкой норм должно быть

http://forum.animekids.ru/index.php?...CP&CODE=00

вот же реферер...а вы какой ставите?
самый лучший совет тут...просниферите запрос из браузера и посмотрите(и можно еще сравнить с вашей прогой)

[Kottik]

Когда прога получает страницу, то

<input type="hidden" name="referer" value="http://forum.animekids.ru/index.php?amp;act=UserCP&amp;CODE=0 0" />

Тут, в цитате выше, прямо над этой моей строкой s есть. Но почему то движок форума убирает. Думал, что ошибся и не ту ссылку вставил, попробовал ещё два раза - всё также, что в [code], что в [quote].
В общем, когда программа получает страницу, s присутствует в referer, а в браузере через раз: то есть s в referer, то нету.

Сообщение от Квэнди

ну а что мешает посмотреть оригинальный запрос и ваш и посмотреть в чем разница ?

Сообщение от Пепел Феникса

самый лучший совет тут...просниферите запрос из браузера и посмотрите(и можно еще сравнить с вашей прогой)

Кажется, вы об одном и том же говорите. Сходил в Википедию, узнал, что такое снифер. Не знаю, правильно ли поступил, единственное что на ум пришло - посмотреть в FireFox при помощи дополнения "Просмотр HTTP заголовков".
Вот что там узрел:

act=Login&CODE=01&referer=http%3A%2 F%2Fforum.animekids.ru%2Findex.php% 3Fact%3DUserCP%26CODE%3D00&CookieDa te=1&UserName=test&PassWord=test&su bmit=%C2%EE%E9%F2%E8%21

Сейчас ухожу, вернусь примерно в 14 по московскому, попробую разобраться с вашими советами.
Большое спасибо.