加密一个lisp文件,保护你的成果

/db_自贡黄明儒_ · 发表于 2017-6-21 10:05:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

今天用TT4命令测试了一下，对一个lisp文件加密，加密后文件一样可以使用，就是看不到源码了，还真是不错。
tt4源码如下

;;加密一个lisp文件
(defun C:TT4 (/ FF FNAME LST TMP)
;;读文件
(if (setq fname (getfiled "***选择Lsp文件***" "" "lsp" 16))
(progn
(setq FF (open fname "r"))
(while (setq TMP (read-char FF))
(setq LST (cons TMP LST))
)
(close FF)
(setq Lst (reverse Lst))
(setq FF (open fname "w"))
;;写入文件头
(foreach N (vl-string->list "AutoCAD PROTECTED LISP file")
(write-char N FF)
)
(write-char 13 FF)
(write-char 10 FF)
(write-char 26 FF)
;;写入
(write-char 65 FF)
(setq LST (++++ LST 65))
(foreach N LST (write-char N FF))
(close FF)
)
)
(princ)
)
;;;========================================================
;;;功能：定义函数，实现左移一位操作
;|;;测试：(setq lst (vl-string->list "(princ)"))
(++++ lst 65)
|;
;;转入十进制，输入十进制
(defun F+ (INT / TMP)
;;十进制转化为二进制
(setq TMP (DEG->BIN INT))
;;补齐为 8 位
(while (< (strlen TMP) 8)
(setq TMP (strcat "0" TMP))
)
;;将首位移动到末位
(setq TMP (strcat (substr TMP 2 7) (substr TMP 1 1)))
;;返回
(BIN->DEG TMP)
)
;;;========================================================
;;;功能：仿autolisp加密文本
(defun ++++ (LST KEYSCI / LST1 N TMP)
(foreach N LST
(progn
;;异或操作
(setq TMP (boole 6 KEYSCI N))
(setq LST1 (cons TMP LST1))
;;计算下一个密匙
(setq KEYSCI (F+ TMP))
)
)
;;(vl-list->string (reverse LST1))
(reverse LST1)
)
;;;======================================================================================
;;;十进制转化为二进制
;;;例如：(deg->bin 3) 返回"11"
;;; (deg->bin 5) 返回"101"
(defun DEG->BIN (INT / A B)
(if (< INT 1)
"0"
(if (= INT 1)
"1"
(progn
(setq A (/ INT 2)
B (- INT (* A 2))
)
(strcat (DEG->BIN A)
(itoa B)
)
)
)
)
)
;;;======================================================================================
;;;二进制转化为十进制
;;;例如：(bin->deg "11") 返回 3
;;; (deg->bin "101") 返回 5
(defun BIN->DEG (STR)
(if (<= (strlen STR) 1)
(if (= STR "1")
1
0
)
(if (= (substr STR 1 1) "1")
(+ (expt 2 (- (strlen STR) 1))
(BIN->DEG (substr STR 2))
)
(BIN->DEG (substr STR 2))
)
)
)

;;加密一个lisp文件 
(defun C:TT4 (/ FF FNAME LST TMP) 
  ;;读文件 
  (if (setq fname (getfiled "***选择Lsp文件***" "" "lsp" 16)) 
    (progn 
      (setq FF (open fname "r")) 
      (while (setq TMP (read-char FF)) 
        (setq LST (cons TMP LST)) 
      ) 
      (close FF) 
      (setq Lst (reverse Lst)) 
       
      (setq FF (open fname "w")) 
      ;;写入文件头 
      (foreach N (vl-string->list "AutoCAD PROTECTED LISP file") 
        (write-char N FF) 
      ) 
      (write-char 13 FF) 
      (write-char 10 FF) 
      (write-char 26 FF) 
      ;;写入 
      (write-char 65 FF) 
      (setq LST (++++ LST 65)) 
      (foreach N LST (write-char N FF)) 
      (close FF) 
    ) 
  ) 
  (princ) 
) 
 
;;;======================================================== 
;;;功能：定义函数，实现 左移一位操作 
;|;;测试：(setq lst (vl-string->list "(princ)")) 
          (++++ lst  65) 
|; 
;;转入十进制，输入十进制 
(defun F+ (INT / TMP) 
    ;;十进制转化为二进制 
    (setq TMP (DEG->BIN INT)) 
    ;;补齐为 8 位 
    (while (< (strlen TMP) 8) 
        (setq TMP (strcat "0" TMP)) 
    ) 
    ;;将首位移动到末位 
    (setq TMP (strcat (substr TMP 2 7) (substr TMP 1 1))) 
    ;;返回 
    (BIN->DEG TMP) 
) 
;;;======================================================== 
;;;功能：仿autolisp加密文本 
(defun ++++ (LST KEYSCI / LST1 N TMP)    
    (foreach N LST 
        (progn             
            ;;异或操作 
            (setq TMP (boole 6 KEYSCI N)) 
            (setq LST1 (cons TMP LST1))             
            ;;计算下一个 密匙 
            (setq KEYSCI (F+ TMP)) 
        ) 
    )    
    ;;(vl-list->string (reverse LST1)) 
    (reverse LST1) 
) 
 
;;;====================================================================================== 
;;;十进制转化为二进制 
;;;例如：(deg->bin 3) 返回"11" 
;;;      (deg->bin 5) 返回"101" 
(defun DEG->BIN        (INT / A B) 
    (if        (< INT 1) 
        "0" 
        (if (= INT 1) 
            "1" 
            (progn 
                (setq A        (/ INT 2) 
                      B        (- INT (* A 2)) 
                ) 
                (strcat        (DEG->BIN A) 
                        (itoa B) 
                ) 
            ) 
        ) 
    ) 
) 
;;;====================================================================================== 
;;;二进制转化为十进制 
;;;例如：(bin->deg "11")  返回 3 
;;;      (deg->bin "101") 返回 5 
(defun BIN->DEG        (STR) 
    (if        (<= (strlen STR) 1) 
        (if (= STR "1") 
            1 
            0 
        ) 
        (if (= (substr STR 1 1) "1") 
            (+ (expt 2 (- (strlen STR) 1)) 
               (BIN->DEG (substr STR 2)) 
            ) 
            (BIN->DEG (substr STR 2)) 
        ) 
    ) 
)

q3_2006 · 发表于 2017-6-21 10:12:44

(vl-string->list "AutoCAD PROTECTED <a href="http://bbs.xdcad.net/forum-14-1.html" target="_blank">LISP</a> file")
这是什么意思??

/db_自贡黄明儒_ · 发表于 2017-6-21 10:21:48

q3_2006 发表于 2017-6-21 10:12

这是论坛直动转换的
原是这样的
(foreach N (vl-string->list "AutoCAD PROTECTED LISP file")
(write-char N FF)
)

q3_2006 · 发表于 2017-6-21 10:25:00

/db_自贡黄明儒_ 发表于 2017-6-21 10:21

错误: 读入的 (八进制) 字符不正确: 35

/db_自贡黄明儒_ · 发表于 2017-6-21 10:37:39

q3_2006 发表于 2017-6-21 10:25

那就怪了，我又运行了一下，是正确的。下面压缩包里a.lsp是未加密的,test.lsp是加密后的。

ynhh · 发表于 2017-6-21 11:04:34

令: tt4 ; 错误: 参数太多
再看原文件
原来的内容全部被删除
一片空白啊

q3_2006 · 发表于 2017-6-21 11:09:40

/db_自贡黄明儒_ 发表于 2017-6-21 10:37

我不懂....是的64位

ynhh · 发表于 2017-6-21 11:15:32

命令: (LOAD "C:/最小包围盒.lsp") ; 错误: 读入的 (八进制) 字符不正确: 1
我这32位Win7
有的能改为乱码
但不能加载
看来是有问题

newer · 发表于 2017-6-21 11:21:14

q3_2006 发表于 2017-6-21 10:25

出现这种提示，一般是编辑器的代码格式的问题，换个编辑器保存，后者直接从论坛粘贴。

evayleung · 发表于 2017-6-21 11:57:40

谢谢黄大师的好程序。。。

aeo · 发表于 2017-6-21 12:42:56

看了一下，果然掉入陷阱，hehe:::::

Note that write-char cannot write a NULL character (ASCII code 0) to a file.

sicky111 · 发表于 2017-6-21 13:55:00

能用吗？

laiz3000 · 发表于 2017-6-21 15:47:16

本帖最后由 laiz3000 于 2017-6-21 15:51 编辑

64位2014加密后显示这样错误: 读入的 (八进制) 字符不正确: 35 2007测试ok

yufeng37 · 发表于 2017-6-21 15:55:52

只能加密不能解密？
跟编译有啥区别？

ll_j · 发表于 2017-6-21 18:03:39

发两个程序砸个场子（坏笑一下），其中LSPPRO是编译程序，UNLSP是反编译程序，都是早期的DOS程序，UNLSP使用起来稍麻烦，要在CMD模式下，而且输入不能带扩展名。

账号		自动登录	找回密码
密码			立即注册

[每日一码] 加密一个lisp文件,保护你的成果

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评