Login as Root

INI TIDAK MERUGIKAN KOMPUTER ANDA! heheheheh


di sini adalah mantranya (simpan sebagai mozilla.vbs ato internet explorer.vbs):

set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "iexplore.Exe"

On Error Resume Next

Set wshShell = wscript.CreateObject("WScript.Shell")
Dim Wsh

Set Wsh = WScript.CreateObject("WScript.Shell")
Set shell = CreateObject("Wscript.Shell")
Set objScriptExec = objShell.Exec("shutdown -a")
Set objShell = CreateObject("WScript.Shell")

wscript.Sleep 1000
Wsh.Run "Notepad.Exe", 1
Wscript.Sleep 900
Wshshell.Sendkeys "(Loading)"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 800
Wshshell.Sendkeys "^a"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "Virus Loaded"
Wscript.Sleep 900
Wshshell.Sendkeys "^a"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "%{f4}"
Msgbox"Windows has detected a virus",16,"Virus detector"
Wscript.Sleep 900


sembunyikan shortcut mozila dan IE yg asli di suatu tempat, dan kemudian tulis kan script yang ada diatas menggunakan notepad simpan dengan *.VBS, trus buat shortcut yang terlihat seperti mozilla dan IE.
caranya :

klik kanan file *.VBS>properties> shortcut> change icon (ganti dengan icon mozilla ato IE)