[LISP]lisp程序j具有注册授权功能模块

langjs

初学liSP编程，编了一个lisp程序注册功能的模块，里边好多的语句都是明经网友的，深表感谢
现将源程序拿出来共享。程序编的可能罗唆一些，望老鸟不要见笑，恳请指点。

在C:\langjs目录下存储一个key.txt文件
将对话框文件zhuc.dcl拷贝到AutoCAD搜索支持的目录
在你想要保护的lisp程序插入一句：
(jiany)
加载并运行程序。

当想要保护的程序执行到(jiany)时
程序打开C:\langjs\key.txt并取得里边存储的授权码，
检验其和硬盘序列号之间的算法关系是否成立，(我的程序中只是简单的判断相等，可以改复杂一些)
如果正确，则继续执行lisp程序
如不成立
则弹出注册对话框，输入正确的授权码，才能继续执行lisp程序，如授权码不正确，则退出。
同时将正确的授权码存储在C:\langjs\key.txt中，以便下次进行检验

如果想要改变key.txt存储路径和算法请自己在程序中修改。

李钊伟2012

langjs 发表于 2006-10-25 13:24

比较感兴趣加密算法和获取本机信息码，现在只是知道怎么获取硬盘SN码，根据这个SN怎么计算出注册码呢？用的是什么算法比较好？

zzl9105

cabinsummer 发表于 2012-4-14 17:19
开源是趋势，但是对于无德之人，还是防一下为好

C版有好的保护措施吗，我也想学这个授权写法

hh_lj007

感谢分享，提供了实现的思路。

langjs

没传上来？

langjs

3. ;;;********************************************************
4. 检验授权码程序
5. (defun jiany()
7.    (setq f (open "C:\\langjs\\key.txt"  "r"))
8.    (setq fee2 (read-line f))
9.    (close f)
10.    (getyp)
11. (if (/= fee1 fee2)   ;;;这里是检验算法
12. (zhuc)
13. (prin1)
14. )
15. )
16. ;;;对话框驱动程序
17. (defun zhuc()
18.   (setq dcl_id (load_dialog "zhuc.dcl"))
19.    (new_dialog "zhuc" dcl_id)
20.    (getyp)
21.    (set_tile "c01"  fee1)
22.    (action_tile "c03" "(gsouqm) (done_dialog 1)")
23.    (setq bb (start_dialog))
24.    (cond ((= bb 1)(wsouqm ))
25.          (t (exit))
26.    )
27. (prin1)
28. )
29. (defun gsouqm()
30.    (setq ppp  (get_tile "c02"))
31.    (prin1)
32. )
33. (defun wsouqm ()
34.    (setq f (open "C:\\langjs\\key.txt" "w"))   
35.    (write-line ppp f)
36.    (close f)
37.    (jiany)
38.    (prin1)
39. )
40. ;;;获得硬盘虚拟序列号程序
41. (defun getyp ( / FILSYS driveobj)
42.     (vl-load-com)
43.     (setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))
44.     (if (/= (vlax-invoke-method FILSYS "DriveExists" "D") :vlax-false)
45.         (progn
46.            (setq driveobj (vlax-invoke-method FILSYS "GetDrive" "D"))
47.            (vlax-get-property driveobj "SerialNumber")
48.         )
49.         nil
50.     )
51. (setq fee1 (itoa (vlax-get-property driveobj "SerialNumber")))
52. )

;;;******************************************************** 检验授权码程序 (defun jiany()    (setq f (open "C:\\langjs\\key.txt"  "r"))    (setq fee2 (read-line f))    (close f)    (getyp) (if (/= fee1 fee2)   ;;;这里是检验算法 (zhuc) (prin1) ) ) ;;;对话框驱动程序 (defun zhuc()   (setq dcl_id (load_dialog "zhuc.dcl"))    (new_dialog "zhuc" dcl_id)    (getyp)    (set_tile "c01"  fee1)    (action_tile "c03" "(gsouqm) (done_dialog 1)")    (setq bb (start_dialog))    (cond ((= bb 1)(wsouqm ))          (t (exit))    ) (prin1) ) (defun gsouqm()    (setq ppp  (get_tile "c02"))    (prin1) ) (defun wsouqm ()    (setq f (open "C:\\langjs\\key.txt" "w"))       (write-line ppp f)    (close f)    (jiany)    (prin1) ) ;;;获得硬盘虚拟序列号程序 (defun getyp ( / FILSYS driveobj)     (vl-load-com)     (setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))     (if (/= (vlax-invoke-method FILSYS "DriveExists" "D") :vlax-false)         (progn            (setq driveobj (vlax-invoke-method FILSYS "GetDrive" "D"))            (vlax-get-property driveobj "SerialNumber")         )         nil     ) (setq fee1 (itoa (vlax-get-property driveobj "SerialNumber"))) )

langjs

对话框文件

3. zhuc:dialog{
4. label="注册信息";
5. spacer_1;
6. :text {label="                软件注册";}
7. :edit_box{label="机器码";key="c01";edit_width=30;}
8. :edit_box{label="授权码";key="c02";edit_width=30;}
10. spacer_1;
11. :row{
12. :text {label="       ";}
13. :button {label="注册";key="c03";
14. width=12;
15. fixed_width=true;
16. }
17. cancel_button;
18. :text {label="  ";}
19. }
20.   
21. }

zhuc:dialog{ label="注册信息"; spacer_1; :text {label="                软件注册";} :edit_box{label="机器码";key="c01";edit_width=30;} :edit_box{label="授权码";key="c02";edit_width=30;} spacer_1; :row{ :text {label="       ";} :button {label="注册";key="c03"; width=12; fixed_width=true; } cancel_button; :text {label="  ";} }    }

abcxyz0517

授权码是怎么获得的呢 ??

dnnlog

授权码是怎样算？！。。。。。。。。。

linshiyin2

顶起

pizg

好東西~

頂一下

aicr317

dnnlog发表于2006-10-27 8:26:00授权码是怎样算？！。。。。。。。。。

就是硬盘分区 D 的序列号

zml84

一句话破解：  （defun  zhuc () () ）