WSH - лучшее средство компьютерного западлостроителя!

Xakep, номер #036, стр. 036-070-3

А теперь представь ламака, который увидит эту мессагу, как он дрожащей рукой нажмет кнопку Нет и как после этого будет сохранять все важные данные на дискеты. Весело! Одна только проблемка: «Как заставить жертву запустить этот файл?» Конечно, можно поместить наш файл в Автозагрузку (StartUp), но надежнее будет в реестр: Пуск -> Выполнить->regedit, раскрой ветвь HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run, затем меню Правка (Edit) -> Создать (New) -> Строковой параметр (String Value) и введи StartUp Script. Дважды щелкни на новом параметре и введи путь к нашей мессаге (например, C:\Windows\System\message.vbs) и щелкни OK. Теперь наше западло будет выполняться для каждого юзера системы, и не всякое ламо сможет его обнаружить.

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

if Day(now)>24 Then

....

End If

Теперь сообщение впервые появится только после двадцать четвертого числа. За это время жертва уже забудет о твоем приходе, и, стало быть, ты обеспечишь себе практически железное алиби.

Теперь логичным было бы добавить строки, которые, как и сказано в мессаге, отформатировали бы винт, но я против таких методов. Я придерживаюсь принципа, что в западле должна иметься возможность все вернуть в исходное состояние. Поэтому в нашем случае будет достаточно легкого испуга жертвы (но ты, конечно, можешь это исправить!). А сейчас сделаем так, чтобы наша прога заметала все свои следы, т.е. самоуничтожалась и вычищала о себе запись в реестре. Это необходимо обязательно сделать, иначе, после того как обещанного форматирования не произойдет, ламак заподозрит неладное и, если у него хватит таланта, может наткнуться на наш скрипт, а затем выйти и на нас. Короче, добавляем следующие строки для удаления нашего файла:

Set Killer=CreateObject("Scripting.FileSystemObject")

Killer.DeleteFile("c:\Windows\System\message.vbs")

и для удаления записи в реестре:

Set WSHShell=WScript.CreateObject("WScript.Shell")

WSHShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\StartUp Script"

На скриншоте показано, как должен выглядеть готовый скрипт:

Теперь мессага появится один-единственный раз (после 24 числа) и исчезнет из системы навсегда - пусть ламо думает, что это глюканула винда или он сам :)). Вот такое получилось простенькое, но нестандартное Хакерское западло.

Второй примерчик

Если тебе этого мало, то вот еще текст западла, отрубающего комп (также срабатывающего после 24 числа):

If Day(now)>24 Then

Sub Zapadlo(Fuck, Wait)

Set WshShell=WScript.CreateObject("WScript.Shell")

X=WshShell.Run(Fuck,Wait)

End Sub

Call Zapadlo("rundll32 shell32,SHExitWindowsEx -1", True)

End If