简易注册程序，带注册机，高手勿喷。
本帖最后由 jun353835273 于 2019-7-3 00:02 编辑简易注册程序，带注册机，高手勿喷。程序比较短小，带注释，lisp源码可以自由拓展
测试fas程序是用猫老师代码打乱程序简单打乱之后的程序
<P>;;测试程序
(princ "输入tt1运行本程序")
(defun c:tt1()
(alert"欢迎运行本程序")
(princ)
)
(defun c:tt2()
(alert"可以使用哦")
(princ)
)
(defun c:tt3()
(alert"注册不成功运行的程序1")
(princ)
)
(defun c:tt4()
(alert"注册不成功运行的程序2")
(princ)
)
;;加载方式
(setq fun1 (list "c:tt1" ))
(setq fun2 (list "(c:tt2)" ))
(setq fun3 (list "(c:tt3)" "(c:tt4)"))
;参数：
;;; fun1 为list表格式带入注册不成功需要清空的函数名
;;; fun2为list表格式带入注册成功需要运行的函数名
;;; fun3为list表格式带入注册不成功需要运行的函数名
(CheckIsok fun1fun2 fun3)
;将函数带入主程序如果验证失败就清空
;可以把自定义函数全部带入验证错误则清空</P>
<P>2019.07.02更新为用注册表内写入注册信息
</P>
本帖最后由 jun353835273 于 2018-11-26 18:18 编辑
呼呼se 发表于 2018-11-26 17:01
如果需要加密不同的程序请问可以改算法让他们注册码不一样吗？
可以，你直接改变一个数字都可以了。
(setq fee1
(apply 'strcat
(mapcar'(lambda (x)
(rtos x 2 0 )
)
(mapcar'(lambda (x)
(+ x 3)
)
(vl-string->listfee1)
)
)
)
)
这一句就是让机器码转换为ascii然后与3相加最后连接成字符串，极其简单的加密。可以自己拓展。 f4800 发表于 2020-10-31 08:53
大佬，如何使用呢
再怎么加密还是只能防止菜鸟，高手不行呀
http://bbs.mjtd.com/thread-180867-1-1.html
配合大佬的工具，只要不能反编译为源码简单加密都不容易破解。 烟盒迷唇 发表于 2018-11-27 11:45
和之前论坛里发的那些注册程序有什么区别
注册大体都差不多，注册码都是在程序里面的，只是对比的时候调用的是一个随机数和注册码之间比较 如果需要加密不同的程序请问可以改算法让他们注册码不一样吗？ 和之前论坛里发的那些注册程序有什么区别 没大有什么用 ZMB7211 发表于 2018-11-27 16:19
没大有什么用
在神器面前肯定是显得是苍白无力的。只是一种参考，简单保护一下，要使用的人至少要付出一点时间，哪怕是5分钟也就达到效果了 很厉害呀 来踢场子了:lol
http://bbs.mjtd.com/forum.php?mod=attachment&aid=OTcyNDJ8M2I0MTY1MzV8MTU0MzU2MDM3Nnw3MzE2MzQzfDE3NTQ1Mw%3D%3D&noupdate=yeshttp://bbs.mjtd.com/forum.php?mod=attachment&aid=OTcyNDN8M2JlZDU4YWJ8MTU0MzU2MDM3Nnw3MzE2MzQzfDE3NTQ1Mw%3D%3D&noupdate=yeshttp://bbs.mjtd.com/forum.php?mod=attachment&aid=OTcyNDR8ZTg5OTAzM2F8MTU0MzU2MDM3Nnw3MzE2MzQzfDE3NTQ1Mw%3D%3D&noupdate=yeshttp://bbs.mjtd.com/forum.php?mod=attachment&aid=OTcyNDV8NTlkMWQ3NWF8MTU0MzU2MDM3Nnw3MzE2MzQzfDE3NTQ1Mw%3D%3D&noupdate=yes
本帖最后由 jun353835273 于 2018-11-30 22:20 编辑
fangmin723 发表于 2018-11-30 14:48
来踢场子我这是抛砖引玉，论坛搜索一下都能找到很多。