怎样对我的AUTOLISP程序进行加密？

petertian · 发表于 2003-6-20 15:19:00

各位大虾及斑竹，怎样对我的AUTOLISP程序进行加密？并且使得非法用户导致文件错误？？？谢谢！

hzzhao · 发表于 2003-6-20 23:14:00

(defun CHECK ()
  (if (or (= (getvar "_pkser") "400-12345678");;限制autocad版本(原版序号才有效)
      (= (getvar "loginname") "LUCAS");;限制使用者
      (= (getenv "computername") "HELLO");;限制使用计算机
   )
(progn
   (alert "未经同意请勿使用本程序\n\n    AUTOCAD将结束")
   (command "QUIT" "Y" "" "")
)
  )
)