|
你只要在你的LISP程序中,按C++计算出的X参数,增加相应的算法加密就变成了你自己的加密...
以下是在LISP应用演示代码:- (defun c:test ()
- (setvar "cmdecho" 0)
- (LispEncryption)
- ;;;
- ;如何根据X(x为168238)去添加你自己的算法,你可以自己增加试试
- (setq Encryption(rtos x 2 2))
- ;... ...添加算法
- ;;;
- (if(/= Encryption "168238")(progn
- (alert "程序没有共享!")
- (exit)))
- (setq pt(getpoint "\n指定中心点:"))
- (command "circle" pt 10)
- (setvar "cmdecho" 1)
- (princ)
- );_end defun
复制代码
[ 本帖最后由 chpmould 于 2011-5-14 16:33 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|