简易注册程序，带注册机，高手勿喷。

jun353835273 · 发表于 2018-11-26 10:57:39

本帖最后由 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 fun1 fun2 fun3)
;将函数带入主程序如果验证失败就清空
;可以把自定义函数全部带入验证错误则清空</P>
<P>2019.07.02更新为用注册表内写入注册信息
</P>

jun353835273 · 发表于 2018-11-26 18:16:56

本帖最后由 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->list  fee1)
   )
  )
  )
)
这一句就是让机器码转换为ascii然后与3相加最后连接成字符串，极其简单的加密。可以自己拓展。

jun353835273 · 发表于 2020-10-31 20:51:08

f4800 发表于 2020-10-31 08:53
大佬，如何使用呢

再怎么加密还是只能防止菜鸟，高手不行呀

http://bbs.mjtd.com/thread-180867-1-1.html
配合大佬的工具，只要不能反编译为源码简单加密都不容易破解。

jun353835273 · 发表于 2018-11-27 16:13:14

烟盒迷唇发表于 2018-11-27 11:45
和之前论坛里发的那些注册程序有什么区别

注册大体都差不多，注册码都是在程序里面的，只是对比的时候调用的是一个随机数和注册码之间比较

呼呼se · 发表于 2018-11-26 17:01:38

如果需要加密不同的程序请问可以改算法让他们注册码不一样吗？

烟盒迷唇 · 发表于 2018-11-27 11:45:38

和之前论坛里发的那些注册程序有什么区别

ZMB7211 · 发表于 2018-11-27 16:19:35

没大有什么用

jun353835273 · 发表于 2018-11-27 16:23:35

ZMB7211 发表于 2018-11-27 16:19
没大有什么用

在神器面前肯定是显得是苍白无力的。只是一种参考，简单保护一下，要使用的人至少要付出一点时间，哪怕是5分钟也就达到效果了

hhh454 · 发表于 2018-11-29 17:32:10

很厉害呀

fangmin723 · 发表于 2018-11-30 14:48:05

来踢场子了

jun353835273 · 发表于 2018-11-30 22:17:12

本帖最后由 jun353835273 于 2018-11-30 22:20 编辑

fangmin723 发表于 2018-11-30 14:48
来踢场子

我这是抛砖引玉，论坛搜索一下都能找到很多。

账号		自动登录	找回密码
密码			注册

简易注册程序，带注册机，高手勿喷。

本帖子中包含更多资源