看好多的人想要注册码，给出个简单注册程序的代码，看能收多少钱，高手就不要进了。

soly2006 · 发表于 2012-7-29 23:08:50

本帖最后由 soly2006 于 2012-8-1 12:24 编辑

最近经常看到想注册程序的，做个简单的代码，忽悠菜鸟用的玩意，收币只是证明大家对这个的重视度，不代表我穷：）。
其实很理解写程序的辛苦，所以只要是源码我都会心存感谢。
也不要那么花稍去设计对话框（DCL）了，又不是天天注册。
下面放个模块，看引来多少人围观。高手绕道。
（思路：取CPU号->取其中一段->生成注册码）再收币都不好意思了,免了：

hao3ren · 发表于 2012-7-30 19:25:23

flytoday 建议你先看别人的程序，先看懂再模仿。基础的东西一定要会，你拿这个其实也没什么用，我看了你都是在求别人写程序，自己也没写过，你总不能拿着别人的东西再去加密吧

lengxiaxi · 发表于 8 小时前

本帖最后由 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 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) 
)

Shengfantasy · 发表于 2019-4-9 21:19:40

(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)...)是什么意思啊？

soly2006 · 发表于 2012-7-29 23:16:21

我自己用的是各字符间随机加入任意字符补满长度，取CPU码中某个字符的当余，应该还是有点隐蔽性的，

cnks · 发表于 2012-7-30 01:52:46

路过的，来顶一下

smartstar · 发表于 2012-7-30 05:28:59

我是菜鸟，我来学习。

longer1000 · 发表于 2012-7-30 08:32:21

我是菜鸟，下载了不知道怎么用

soly2006 · 发表于 2012-7-30 08:45:52

longer1000 发表于 2012-7-30 08:32
我是菜鸟，下载了不知道怎么用

（defun c:TT() ;你的程序入口
（rere） ;检测注册
........;你的程序代码
）

仲文玉 · 发表于 2012-7-30 09:27:37

路过，观望

lisp爱好者 · 发表于 2012-7-30 09:38:10

支持一下。。。。。。。。

hao3ren · 发表于 2012-7-30 10:06:40

cnks 发表于 2012-7-30 01:52
路过的，来顶一下

你是来看热闹的吧，我来学习下

hao3ren · 发表于 2012-7-30 10:12:40

，果然不出所料，还是上次帖子那个模式啊

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

看好多的人想要注册码，给出个简单注册程序的代码，看能收多少钱，高手就不要进了。

本帖子中包含更多资源

点评

评分

本帖被以下淘专辑推荐:

相关帖子

点评

评分

浏览过的版块