给lsp一键增加注册功能，自动生成注册机(有更新)

baitang36

本工具必须在d:\syz-zjzc\目录下运行。
本工具包括三个文件：
1.一键增加注册功能.fas    ；主程序
2.注册机.txt                     ； 注册机模板
3.注册模块.txt                  ；注册模块模板
将 一键增加注册功能.fas 拖入绘图区加载即可运行，选择需要加注册的lsp文件，点打开。
生成两个文件：
1.文件名_已增加注册功能.lsp 这是增加注册功能后的lsp文件。
2.文件名_注册机.lsp  注册机，也就是计算注册码的工具。加载即可运行。
本工具已考虑不同用户的不同程序之间互相干扰的问题，每次运行生成的注册机和注册算法都不同。生成的注册机只能和配套的程序一起使用。
注册模块.txt 参考明经代码修改，感谢ajunseo houyuyu878 xiao1984 。
如需要本工具源码，请联系QQ5520971   
山东济南 盛玉增 研制
2025.7.29

baitang36

amook147 发表于 2025-8-6 11:20
不知道呢  我看了看文件夹只读没有打开 ，  你这个插件确实有问题。。。   还需要修改  因为不止我遇到这 ...

你实验一下这几句是否出错？
(setq fi (open "d:/syz-zjzc/regmodule.txt" "r"))
(close fi)
(setq fo(open "d:/syz-zjzc/test.txt" "w"))
(close fo)
如果不出错，那可能是我的问题。如果出错，就是你的问题了。

baitang36

xiaolong1487 发表于 2025-7-31 13:22
CPU 好像好多ID都是一样的

是的，现在的cpu同一批产品都是一样的。
但我这个注册码不会一样。
因为加了一个8位的随机数，出现重码的概率是1/8^8

baitang36

amook147 发表于 2025-8-8 21:33
我不懂代码   但是你说的方法我确实都试过了 就是不行   可能是我这电脑的问题吧  但是两台电脑都有问 ...

不是代码的问题，是你用法有问题。电脑系统有问题的可能性很小。可能你对d:\syz-zjzc\的理解有误
你打开d：盘，新建一个文件夹，把它改名为syz-zjzc，把所有文件都复制到这个文件中再试验。

英文版包括三个文件：
1.add_reg.fas                    ；主程序
2.regtool.txt                     ； 注册机模板
3.regmodule.txt                  ；注册模块模板
这三个文件必须在d:\syz-zjzc\下

lxl217114

抢个盛老师首发的沙发

baitang36

lxl217114 发表于 2025-7-29 13:41
抢个盛老师首发的沙发

请重新下载附件，上一个版本有个逻辑错误。

p-3-ianlcc

赞，给哥一个赞～谢谢分享

qifeifei

非常感谢您的分享

自贡黄明儒

这个只能是用于autocad，能不能搞个同时适用于bricscad的呢？

spp_wall

不错不错~~~~~~~~~~~

丶俗人

作为一个好奇宝宝.必须安利上.

baitang36

自贡黄明儒 发表于 2025-7-29 15:17
这个只能是用于autocad，能不能搞个同时适用于bricscad的呢？

因为用了内部保留函数，不适用于bricscad。
其实原理很简单，就是生成一个随机的表用于注册算法，把随机表写入模板文件中就完事了，目的是防止不同用户程序之间互相干扰。
生成的文件没有使用内部函数，还是能用于bricscad的。

蛋疼的东东

(LOAD "D:/syz-zjzc/一键增加注册功能.fas") ; 错误: 无效的二进制文件格式: 体 (2) 错误
出现这个情况怎么处理