繁花落叶 发表于 2012-11-6 13:54:24

注册码增加时间的限制

以下是lisp学习一个月后的练手，此lisp是根据论坛中的lisp加密注册而编写的时间限制，新人出道，请高手们多指点。
(defun my_a_date()
(setq 注册的日期 (vl-registry-read reg_path "注册日期"));读出首次安装软件的日期
(if (/= 注册的日期 nil)
(progn
(setq 年_old (substr 注册的日期 1 4) 月_old (substr 注册的日期 5 2) 日_old (substr 注册的日期 7 2))
(setq date_now (rtos(getvar "cdate")))
(setq 年_now (substr date_now 1 4) 月_now (substr date_now 5 2) 日_now (substr date_now 7 2))
(setq 使用年 (- (atof(substr date_now 1 4)) (atof(substr 注册的日期 1 4))))
(setq 使用月 (- (atof(substr date_now 5 2)) (atof(substr 注册的日期 5 2))))
(setq 使用日 (- (atof(substr date_now 7 2)) (atof(substr 注册的日期 7 2))))
(setq 使用日期 (+ (* 使用年 360) (* 使用月 30) (* 使用日 1)))
(setq 剩余使用日期 (- 30 使用日期))
(if (< 剩余使用日期 0.0)
          (vl-registry-delete reg_path "注册码" regnum)
          (if (< 剩余使用日期 7)
                (progn
                  (setq LP1 "距你使用软件的最后期限还剩")
                  (setq LP3 "天!")
                  (setq LP2 (rtos 剩余使用日期))
                  (setq Princ_LP (strcat LP1 LP2 LP3))
                  (alert Princ_LP)
                )
          )
)
)
)
)

趣意人生 发表于 2021-1-31 21:22:51


收藏一下，方便学习

hn10183051 发表于 2019-12-10 18:14:20

那位大师来过案列

season_88 发表于 2025-4-13 20:45:19

下载学习学习

zyhandw 发表于 2012-11-6 14:29:24

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

独沐秋枫 发表于 2012-11-6 15:44:26

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

繁花落叶 发表于 2012-11-7 12:55:38

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

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

独沐秋枫 发表于 2012-11-8 11:22:47

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

有没有实例发我学习下，

linshiyin2 发表于 2012-11-8 14:53:12

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

长风（尚品） 发表于 2012-12-18 16:25:52

请问楼主，这个如何使用

无语且听吟 发表于 2012-12-21 22:53:10

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

illcyt 发表于 2013-10-15 00:00:55

收藏一下，方便学习

liuhaixin88 发表于 2014-1-20 20:19:16

哪位哥哥给写个样例出来啊
页: [1] 2
查看完整版本: 注册码增加时间的限制