看好多的人想要注册码，给出个简单注册程序的代码，看能收多少钱，高手就不要进了。
本帖最后由 soly2006 于 2012-8-1 12:24 编辑最近经常看到想注册程序的，做个简单的代码，忽悠菜鸟用的玩意，收币只是证明大家对这个的重视度，不代表我穷：）。
其实很理解写程序的辛苦，所以只要是源码我都会心存感谢。
也不要那么花稍去设计对话框（DCL）了，又不是天天注册。
下面放个模块，看引来多少人围观。高手绕道。
（思路：取CPU号->取其中一段->生成注册码）再收币都不好意思了,免了：
flytoday 建议你先看别人的程序，先看懂再模仿。基础的东西一定要会，你拿这个其实也没什么用，我看了你都是在求别人写程序，自己也没写过，你总不能拿着别人的东西再去加密吧 本帖最后由 lengxiaxi 于 2025-4-30 11:17 编辑
自己给别人算号注册时，代码应该改为：
(defun rere (/ 已注册码 注册码 输入注册码 cpusn)
(setq 已注册码 (vl-registry-read "HKEY_CURRENT_USER\\Software\\solycad" "SN"))
(setq cpusn (getstring "\n请输入申请码(买家给你的)：")) ; 改为手动输入:ml-citation{ref="2" data="citationList"}
(setq 注册码 (strcat (加密字串 (substr cpusn 2 4)) (加密字串 (substr cpusn 7 4)))) ; 保持原有加密逻辑:ml-citation{ref="2" data="citationList"}
(princ (strcat " ★★★★★你要给别人的注册码为：" 注册码 "\n")) ; 调试用提示
(if (/= 已注册码 注册码)
(progn
(princ (strcat " 申请码为： " "\n\n" cpusn))
(setq 输入注册码 (getstring "\n请输入注册码：")) ; 优化提示文字:ml-citation{ref="2" data="citationList"}
(if (/= 注册码 输入注册码) ; 改为直接对比生成的注册码:ml-citation{ref="2" data="citationList"}
(progn
(alert "注册码错误！") ; 优化错误提示:ml-citation{ref="6" data="citationList"}
(exit)
)
(progn
(vl-registry-write "HKEY_CURRENT_USER\\Software\\solycad" "SN" 输入注册码) ; 写入注册表:ml-citation{ref="2,5" data="citationList"}
(princ "\n注册成功！")
)
)
)
(alert "\n 该设备已注册") ; 优化已注册提示:ml-citation{ref="6" data="citationList"}
)
(princ)
)
(defun 字串分解 (字串 / i k s lst)
(setq i 0 k (chr 160))
(while (/= "" (setq s (substr 字串 (setq i (1+ i)) 1)))
(if (< s k)
(setq lst (cons s lst))
(setq lst (cons (substr 字串 i 2) lst)
i (1+ i))
)
)(reverse lst)
)
这个函数里的 k (chr 160) 和 (if (< s k)...)是什么意思啊？ 我自己用的是各字符间随机加入任意字符补满长度，取CPU码中某个字符的当余，应该还是有点隐蔽性的， 路过的，来顶一下 我是菜鸟，我来学习。 我是菜鸟，下载了不知道怎么用 longer1000 发表于 2012-7-30 08:32 static/image/common/back.gif
我是菜鸟，下载了不知道怎么用
（defun c:TT();你的程序入口
（rere）;检测注册
........;你的程序代码
） 路过，观望 支持一下。。。。。。。。 cnks 发表于 2012-7-30 01:52 static/image/common/back.gif
路过的，来顶一下
你是来看热闹的吧，我来学习下 ，果然不出所料，还是上次帖子那个模式啊