LISP解密工具

yxpxa

感谢 w15994259099 的共享精神，我为人人，人人为我。
以下将 c 代码改写为 lisp 代码 LISP 源码下载，直接贴出源码总是会乱掉，不知道怎么回事
[sell=40]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:lisp代码加密.rar 
下载次数:20  文件大小:1.59 KB 
下载权限: 不限 以上  [免费赚D豆]

[/sell] (抱歉我的豆豆现在是-1，各位土豪给我赞助点）

1. ;;LISP 加密与解密  by yxp 2018/05/14  转载请保留出处
   
2. ;;LISP 加密与解密算法来自 小东空间:w15994259099 的 c 语言代码
   
3. ;;原文出自http://bbs.xdcad.net/thread-703918-1-1.html
   
4. ;;算法解读：
   
5. ;;第一行必须是 "AutoCAD PROTECTED LISP file\0x0D\0x0A\0x1A"
   
6. ;;第一行共计27个字符，0D 0A 代表回车换行，1A 代表文件结束，第 31 个字节为密钥 B
   
7. ;;加密的算法是将原文 A 与密钥 B 进行逻辑异或运算，得到密文 C，即 (boole 6 A B)=C
   
8. ;;解密的时候再用密文 C 与密钥 B 逻辑异或得到原文 A，即 (boole 6 C B)=A
   
9. ;;值得注意的是，密钥 B 每使用一次就会更新一次，更新的方法是 密文左移 1 位
   
10. ;;如果 B 超出单字节，溢出的位补到末尾 10011001 -> 100110010 -> 00110011
    
11. 
    
12. 
    
13. ;;加密头文件
    
14. (setq *head* '(26 10 13 101 108 105 102 32 80 83 73 76 32 68 69 84 67 69 84 79 82 80 32 68 65 67 111 116 117 65))
    
15. 
    
16. 
    
17. ;; LISP 文件解密
    
18. (defun c:UnpassLsp( / bin LSP old new PasW fm ss a)
    
19. (setq a (getfiled "LSP解密 - 打开文件" (if LspPfn LspPfn "") "lsp" 0))
    
20. (if a (progn
    
21.         (setq LspPfn a
    
22.                 LSP (read_Bin LspPfn) n 0)
    
23.         (repeat 30 (setq bin (cons (car LSP) bin) LSP (cdr LSP)))
    
24.         (setq PasW (car LSP) LSP (cdr LSP)) ;;读出密码
    
25.         (if (and (equal bin *head*)PasW)(progn
    
26.                 (setq bin nil)
    
27.                 (while (and (setq old (car LSP))(/= 26 old))
    
28.                         (if (/= old 13)
    
29.                                 (setq new (Boole 6 PasW old)
    
30.                                         new (if (or (= new 13)(= new 26)) old new)
    
31.                                         bin (if (= new 10)(cons 13 bin) bin)
    
32.                                         bin (cons new bin)
    
33.                                         PasW (lsh old 1)
    
34.                                         PasW (if (> PasW 255)(- PasW 255) PasW)
    
35.                                 )
    
36.                         )(setq LSP (cdr LSP))
    
37.                 )
    
38.                 (setq ss (vl-string-right-trim "_jiami" (vl-filename-base LspPfn))
    
39.                         fm (strcat (vl-filename-directory LspPfn) "\\"
    
40.                         ss "_jiemi" (vl-filename-extension LspPfn)))
    
41.                 (write_Bin (reverse bin) fm)
    
42.                 (princ "\n解密文件已保存：")(princ fm)
    
43.         )(princ "\n不能解密未加密的文件")
    
44.         )
    
45. ))
    
46. (princ)
    
47. )
    
48. 
    
49. 
    
50. ;; LISP 文件加密
    
51. (defun c:passLsp( / bin LSP old new PasW fm ss jc a)
    
52. (setq a (getfiled "LSP加密 - 打开文件" (if LspPfn LspPfn "") "lsp" 0))
    
53. (if a (progn
    
54.         (setq LspPfn a
    
55.                 PasW (ascii "A") ;;密码
    
56.                 bin (cons PasW *head*)
    
57.                 LSP (read_Bin LspPfn)
    
58.                 jc LSP)
    
59.         (repeat 30 (setq ss (cons (car jc)ss) jc (cdr jc)))
    
60.         (if (equal (list (car ss)(cadr ss)(caddr ss)) '(26 10 13))
    
61.                 (princ "\n不能加密已加密过的文件")
    
62.                 (progn
    
63.                 (while (and (setq old (car LSP))(/= 26 old))
    
64.                         (if (/= old 13)
    
65.                                 (setq new (Boole 6 PasW old)
    
66.                                         new (if (or (= new 13)(= new 26)) old new)
    
67.                                         bin (if (= new 10)(cons 13 bin) bin)
    
68.                                         bin (cons new bin)
    
69.                                         PasW (lsh new 1)
    
70.                                         PasW (if (> PasW 255)(- PasW 255) PasW)
    
71.                                 )
    
72.                         )(setq LSP (cdr LSP))
    
73.                 )
    
74.                 (setq fm (strcat (vl-filename-directory LspPfn) "\\"
    
75.                         (vl-filename-base LspPfn) "_jiami" (vl-filename-extension LspPfn)))
    
76.                 (write_Bin (reverse bin) fm)
    
77.                 (princ "\n加密文件已保存：")(princ fm)
    
78.         ))
    
79. ))
    
80. (princ)
    
81. )
    
82. 
    
83. 
    
84. (princ "\nLSP 加密: passlsp  LSP 解密: unpasslsp")
    
85. (princ)
    

;;LISP 加密与解密  by yxp 2018/05/14  转载请保留出处<br /> ;;LISP 加密与解密算法来自 小东空间:w15994259099 的 c 语言代码<br /> ;;原文出自<a href=\"http://bbs.xdcad.net/thread-703918-1-1.html\" target=\"_blank\">http://bbs.xdcad.net/thread-703918-1-1.html</a><br /> ;;算法解读：<br /> ;;第一行必须是 "AutoCAD PROTECTED LISP file\0x0D\0x0A\0x1A"<br /> ;;第一行共计27个字符，0D 0A 代表回车换行，1A 代表文件结束，第 31 个字节为密钥 B<br /> ;;加密的算法是将原文 A 与密钥 B 进行逻辑异或运算，得到密文 C，即 (boole 6 A B)=C<br /> ;;解密的时候再用密文 C 与密钥 B 逻辑异或得到原文 A，即 (boole 6 C B)=A<br /> ;;值得注意的是，密钥 B 每使用一次就会更新一次，更新的方法是 密文左移 1 位<br /> ;;如果 B 超出单字节，溢出的位补到末尾 10011001 -> 100110010 -> 00110011<br /> <br /> <br /> ;;加密头文件<br /> (setq *head* '(26 10 13 101 108 105 102 32 80 83 73 76 32 68 69 84 67 69 84 79 82 80 32 68 65 67 111 116 117 65))<br /> <br /> <br /> ;; LISP 文件解密<br /> (defun c:UnpassLsp( / bin LSP old new PasW fm ss a)<br /> (setq a (getfiled "LSP解密 - 打开文件" (if LspPfn LspPfn "") "lsp" 0))<br /> (if a (progn<br />         (setq LspPfn a<br />                 LSP (read_Bin LspPfn) n 0)<br />         (repeat 30 (setq bin (cons (car LSP) bin) LSP (cdr LSP)))<br />         (setq PasW (car LSP) LSP (cdr LSP)) ;;读出密码<br />         (if (and (equal bin *head*)PasW)(progn<br />                 (setq bin nil)<br />                 (while (and (setq old (car LSP))(/= 26 old))<br />                         (if (/= old 13)<br />                                 (setq new (Boole 6 PasW old)<br />                                         new (if (or (= new 13)(= new 26)) old new)<br />                                         bin (if (= new 10)(cons 13 bin) bin)<br />                                         bin (cons new bin)<br />                                         PasW (lsh old 1)<br />                                         PasW (if (> PasW 255)(- PasW 255) PasW)<br />                                 )<br />                         )(setq LSP (cdr LSP))<br />                 )<br />                 (setq ss (vl-string-right-trim "_jiami" (vl-filename-base LspPfn))<br />                         fm (strcat (vl-filename-directory LspPfn) "\\" <br />                         ss "_jiemi" (vl-filename-extension LspPfn)))<br />                 (write_Bin (reverse bin) fm)<br />                 (princ "\n解密文件已保存：")(princ fm)<br />         )(princ "\n不能解密未加密的文件")<br />         )<br /> ))<br /> (princ)<br /> )<br /> <br /> <br /> ;; LISP 文件加密<br /> (defun c:passLsp( / bin LSP old new PasW fm ss jc a)<br /> (setq a (getfiled "LSP加密 - 打开文件" (if LspPfn LspPfn "") "lsp" 0))<br /> (if a (progn<br />         (setq LspPfn a<br />                 PasW (ascii "A") ;;密码<br />                 bin (cons PasW *head*)<br />                 LSP (read_Bin LspPfn)<br />                 jc LSP)<br />         (repeat 30 (setq ss (cons (car jc)ss) jc (cdr jc)))<br />         (if (equal (list (car ss)(cadr ss)(caddr ss)) '(26 10 13))<br />                 (princ "\n不能加密已加密过的文件")<br />                 (progn<br />                 (while (and (setq old (car LSP))(/= 26 old))<br />                         (if (/= old 13)<br />                                 (setq new (Boole 6 PasW old)<br />                                         new (if (or (= new 13)(= new 26)) old new)<br />                                         bin (if (= new 10)(cons 13 bin) bin)<br />                                         bin (cons new bin)<br />                                         PasW (lsh new 1)<br />                                         PasW (if (> PasW 255)(- PasW 255) PasW)<br />                                 )<br />                         )(setq LSP (cdr LSP))<br />                 )<br />                 (setq fm (strcat (vl-filename-directory LspPfn) "\\" <br />                         (vl-filename-base LspPfn) "_jiami" (vl-filename-extension LspPfn)))<br />                 (write_Bin (reverse bin) fm)<br />                 (princ "\n加密文件已保存：")(princ fm)<br />         ))<br /> ))<br /> (princ)<br /> )<br /> <br /> <br /> (princ "\nLSP 加密: passlsp  LSP 解密: unpasslsp")<br /> (princ)<br />

543565942

发点小感慨:     论坛，真实多是自我表现和眩技的地方。     晓东CAD高手很多，但过于封闭和保守，人气不旺。     开放，开源，才能相互学习;也更有乐趣，更好玩!

f4800

收藏了。。。。多谢分享

lisp小白白

赞同。666666

lisp小白白

不知道怎么加附件？

f4800

大师 这种加密算法 如何修改 ？？  做到别人无法解密？