社区 › 源码共享 › ■LISP做的申请 注册 授权程序 下的人多 但币为啥不增加？所以免币了■

bai2000 发表于 2013-3-13 22:43:56

楼主，要优化下，注册码位数要常一点

zhuquanmao 发表于 2013-3-13 22:48:47

本帖最后由 zhuquanmao 于 2013-3-13 22:58 编辑

bai2000 发表于 2013-3-13 22:43 http://bbs.mjtd.com/static/image/common/back.gif
楼主，要优化下，注册码位数要常一点

你可以把注册码随意加长的 根据自己的意思 稍加改动即可 我在里面写了注释了
比如你可以替换成这么长的代码 要多长就多长
(setq zcm_sc (strcat "f" (itoa (ascii "Z")) (itoa (ascii (substr sqm 1 1)))
(itoa (ascii (substr sqm 2 1)))
(itoa (ascii (substr sqm 3 1)))
(itoa (ascii (substr sqm 4 1)))
(itoa (ascii (substr sqm 5 1)))"l"
(itoa (ascii (substr sqm 6 1)))"L"
(itoa (ascii (substr sqm 7 1)))"G"
(itoa (ascii (substr sqm 8 1)))
(itoa (ascii (substr sqm 9 1)))
(itoa (ascii (substr sqm 10 1)))
(substr sqm 13 1) "Y"
      );此处可根据申请码sqm任意组合得到zcm_sc
)

hao3ren 发表于 2013-3-14 10:39:06

(LOAD "C:/Program Files/AutoCAD 2006/Support/zhuce.lsp") ; 错误: quit /
exit abort
楼主，如果刚开始点击取消注册的话，注册表是写不进去的，后面再注册就一直注册码不正确

海盗曹 发表于 2013-3-14 11:20:01

留下脚印，以备学习~

OWEN7 发表于 2013-3-14 14:16:21

zhuquanmao 发表于 2013-3-13 16:40 static/image/common/back.gif
把文件放在CAD支持搜索文件目录里

但计算出来的注册码不对，无法注册，为什么，计算公式在哪里，可以自己改吗。

zhuquanmao 发表于 2013-3-14 23:05:27

hao3ren 发表于 2013-3-14 10:39 static/image/common/back.gif
(LOAD "C:/Program Files/AutoCAD 2006/Support/zhuce.lsp") ; 错误: quit /
exit abort
楼主，如果刚开 ...

刚试过 没问题

zhuquanmao 发表于 2013-3-14 23:06:49

OWEN7 发表于 2013-3-14 14:16 static/image/common/back.gif
但计算出来的注册码不对，无法注册，为什么，计算公式在哪里，可以自己改吗。

在zhuce.LSP和zcm.LSP里都有
计算公式见22楼

sageman 发表于 2013-3-19 19:51:43

怎么生成注册码呢？

sageman 发表于 2013-3-19 21:58:15

提示"错误: quit / exit ",是什么意思呢？

zhuquanmao 发表于 2013-3-19 22:18:11

sageman 发表于 2013-3-19 21:58 static/image/common/back.gif
提示"错误: quit / exit ",是什么意思呢？

因为取消了注册 所以不执行后面的程序

查看完整版本: ■LISP做的申请 注册 授权程序 下的人多 但币为啥不增加？所以免币了■