字符串混淆优化

烟盒迷唇

这个函数代码在中望CAD里面运行较慢，需要10秒时间，谁能帮忙优化优化。

1. (defun appcodeConfused(str / code lennum n strlst)
   
2.                     (setq strlst (vl-string->list str) lennum (length strlst) n 0 code "")
   
3.                     (foreach x strlst
   
4.                       (setq code
   
5.                         (strcat code
   
6.                           (cond
   
7.                             ((< n 1 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
   
8.                             ((< n 2 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
   
9.                             ((< n 3 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
   
10.                             ((< n 4 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
    
11.                             ((< n 5 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
    
12.                             ((< n 6 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
    
13.                             ((< n 7 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
    
14.                             ((< n 8 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
    
15.                             ((< n 9 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
    
16.                             ((< n 10 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
    
17.                             ((< n 11 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
    
18.                             ((< n 12 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
    
19.                             ((< n 12 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
    
20.                             ((< n 14 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
    
21.                             ((< n 15 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
    
22.                             ((< n 16 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
    
23.                             (T (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))
    
24.                           )
    
25.                         )
    
26.                       )
    
27.                       (setq n (1+ n))
    
28.                     )
    
29.                     code
    
30.                   )

(defun appcodeConfused(str / code lennum n strlst)<br />                     (setq strlst (vl-string->list str) lennum (length strlst) n 0 code "")<br />                     (foreach x strlst <br />                       (setq code<br />                         (strcat code<br />                           (cond<br />                             ((< n 1 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 2 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 3 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 4 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 5 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 6 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 7 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 8 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 9 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 10 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 11 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 12 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 12 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 14 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 15 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             ((< n 16 lennum) (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                             (T (strcat (itoa (nth n strlst)) (itoa (ascii "F"))))<br />                           )<br />                         )<br />                       )<br />                       (setq n (1+ n))<br />                     )<br />                     code<br />                   )

lijiao

2. (defun appcodeConfused (str / x)
   
3.   (apply 'strcat
   
4.          (mapcar '(lambda (x)
   
5.                     (strcat (itoa x) "70")
   
6.                   )
   
7.                  (vl-string->list str)
   
8.          )
   
9.   )
   
10. )

(defun appcodeConfused (str / x)<br />   (apply 'strcat<br />          (mapcar '(lambda (x)<br />                     (strcat (itoa x) "70")<br />                   )<br />                  (vl-string->list str)<br />          )<br />   )<br /> )

烟盒迷唇

lijiao 发表于 2022-8-2 17:03

里面的“F”只是举例，实际上每个字都是不一样的

baitang36

试一下这个，看看速度能提高多少？没有改变你的算法，只是把F替换成当前时间的秒数
(defun hxcode(str / code strl n miao)
(setq miao (menucmd "M=$(edtime,$(getvar,date),SS)"))
(setq strl (strlen str))
(setq code "")
(setq n 1)
(repeat strl
(setq code (strcat code (itoa (ascii (substr str n 1))) miao))
(setq n (+ n 1))
)
code
)

烟盒迷唇

baitang36 发表于 2022-8-5 09:51
试一下这个，看看速度能提高多少？没有改变你的算法，只是把F替换成当前时间的秒数
(defun hxcode(str / c ...

和上面那位仁兄的结果一样，都是还有8秒的延迟，估计还有别的函数影响。你这个随机的每次生成都不一样，每次都得算一次才能用，不太合适呢。

烟盒迷唇

baitang36 发表于 2022-8-5 09:51
试一下这个，看看速度能提高多少？没有改变你的算法，只是把F替换成当前时间的秒数
(defun hxcode(str / c ...

能改一下LEE MAC的那个MD5提速嘛

baitang36

烟盒迷唇 发表于 2022-8-5 10:34
能改一下LEE MAC的那个MD5提速嘛

MD5最好用个dll来实现，lsp的太慢

烟盒迷唇

baitang36 发表于 2022-8-5 10:48
MD5最好用个dll来实现，lsp的太慢

.NET的不会呀

baitang36

这种混淆不可能快，建议你用vl-string-translate简单变换一下

fangmin723

这个混淆器影响不了太大，主要是MD5的影响！