注册码增加时间的限制

繁花落叶

以下是lisp学习一个月后的练手，此lisp是根据论坛中的lisp加密注册而编写的时间限制，新人出道，请高手们多指点。

1. (defun my_a_date()
   
2. (setq 注册的日期 (vl-registry-read reg_path "注册日期"));读出首次安装软件的日期
   
3. (if (/= 注册的日期 nil)
   
4.   (progn
   
5.   (setq 年_old (substr 注册的日期 1 4) 月_old (substr 注册的日期 5 2) 日_old (substr 注册的日期 7 2))
   
6.   (setq date_now (rtos(getvar "cdate")))
   
7.   (setq 年_now (substr date_now 1 4) 月_now (substr date_now 5 2) 日_now (substr date_now 7 2))
   
8.   (setq 使用年 (- (atof(substr date_now 1 4)) (atof(substr 注册的日期 1 4))))
   
9.   (setq 使用月 (- (atof(substr date_now 5 2)) (atof(substr 注册的日期 5 2))))
   
10.   (setq 使用日 (- (atof(substr date_now 7 2)) (atof(substr 注册的日期 7 2))))
    
11.   (setq 使用日期 (+ (* 使用年 360) (* 使用月 30) (* 使用日 1)))
    
12.   (setq 剩余使用日期 (- 30 使用日期))
    
13.   (if (< 剩余使用日期 0.0)
    
14.           (vl-registry-delete reg_path "注册码" regnum)
    
15.           (if (< 剩余使用日期 7)
    
16.                 (progn
    
17.                   (setq LP1 "距你使用软件的最后期限还剩")
    
18.                   (setq LP3 "天!")
    
19.                   (setq LP2 (rtos 剩余使用日期))
    
20.                   (setq Princ_LP (strcat LP1 LP2 LP3))
    
21.                   (alert Princ_LP)
    
22.                 )
    
23.           )
    
24.   )
    
25.   )
    
26. )
    
27. )

(defun my_a_date()<br /> (setq 注册的日期 (vl-registry-read reg_path "注册日期"));读出首次安装软件的日期<br /> (if (/= 注册的日期 nil)<br />   (progn<br />   (setq 年_old (substr 注册的日期 1 4) 月_old (substr 注册的日期 5 2) 日_old (substr 注册的日期 7 2))<br />   (setq date_now (rtos(getvar "cdate")))<br />   (setq 年_now (substr date_now 1 4) 月_now (substr date_now 5 2) 日_now (substr date_now 7 2))<br />   (setq 使用年 (- (atof(substr date_now 1 4)) (atof(substr 注册的日期 1 4))))<br />   (setq 使用月 (- (atof(substr date_now 5 2)) (atof(substr 注册的日期 5 2))))<br />   (setq 使用日 (- (atof(substr date_now 7 2)) (atof(substr 注册的日期 7 2))))<br />   (setq 使用日期 (+ (* 使用年 360) (* 使用月 30) (* 使用日 1)))<br />   (setq 剩余使用日期 (- 30 使用日期))<br />   (if (< 剩余使用日期 0.0)<br />           (vl-registry-delete reg_path "注册码" regnum)<br />           (if (< 剩余使用日期 7)<br />                 (progn<br />                   (setq LP1 "距你使用软件的最后期限还剩")<br />                   (setq LP3 "天!")<br />                   (setq LP2 (rtos 剩余使用日期))<br />                   (setq Princ_LP (strcat LP1 LP2 LP3))<br />                   (alert Princ_LP)<br />                 )<br />           )<br />   )<br />   )<br /> )<br /> )

趣意人生

收藏一下，方便学习

hn10183051

那位大师来过案列

zyhandw

写得挺好的！区别于以往所见的程序，该程序最大的特点就是用中文字符作变量名

独沐秋枫

请问楼主，如何使用这段代码呢

繁花落叶

独沐秋枫 发表于 2012-11-6 15:44
请问楼主，如何使用这段代码呢

这段代码是配合lisp注册用的，你要先研究lisp怎么注册。

独沐秋枫

繁花落叶 发表于 2012-11-7 12:55
这段代码是配合lisp注册用的，你要先研究lisp怎么注册。

有没有实例发我学习下，

linshiyin2

还真没考虑过用中文做变量，能行吗？vb6可以

长风（尚品）

请问楼主，这个如何使用

无语且听吟

请问楼主，这个如何使用
有没有实例发我学习下

illcyt

收藏一下，方便学习

liuhaixin88

哪位哥哥给写个样例出来啊