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

Shengfantasy

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

wowan1314

mark~ mark~ mark~

qwsss31

看个热闹小尝试一下哈

qwsss31

已经完美调试了，大佬牛啤，支持支持，用好了就四位验证码是咋回事哈

tanjurun

可以拿出来分享了，不错

lengxiaxi

自己给别人算号注册时，代码应该改为：

2. (defun rere (/ 已注册码 注册码 输入注册码 cpusn)
   
3.   (setq 已注册码 (vl-registry-read "HKEY_CURRENT_USER\\Software\\solycad" "SN"))
   
4.   (setq cpusn (getstring "\n请输入申请码(买家给你的)：")) ; 改为手动输入:ml-citation{ref="2" data="citationList"}
   
5.   (setq 注册码 (strcat (加密字串 (substr cpusn 2 4)) (加密字串 (substr cpusn 7 4)))) ; 保持原有加密逻辑:ml-citation{ref="2" data="citationList"}
   
6.   
   
7.   (princ (strcat " ★★★★★你要给别人的注册码为：" 注册码 "\n")) ; 调试用提示
   
8.   
   
9.   (if (/= 已注册码 注册码)
   
10.     (progn
    
11.       (princ (strcat "    申请码为：    " "\n\n" cpusn))
    
12.       (setq 输入注册码 (getstring "\n请输入注册码：")) ; 优化提示文字:ml-citation{ref="2" data="citationList"}
    
13.       
    
14.       (if (/= 注册码 输入注册码) ; 改为直接对比生成的注册码:ml-citation{ref="2" data="citationList"}
    
15.         (progn
    
16.           (alert "注册码错误！") ; 优化错误提示:ml-citation{ref="6" data="citationList"}
    
17.           (exit)
    
18.         )
    
19.         (progn
    
20.           (vl-registry-write "HKEY_CURRENT_USER\\Software\\solycad" "SN" 输入注册码) ; 写入注册表:ml-citation{ref="2,5" data="citationList"}
    
21.           (princ "\n注册成功！")
    
22.         )
    
23.       )
    
24.     )
    
25.     (alert "\n   该设备已注册") ; 优化已注册提示:ml-citation{ref="6" data="citationList"}
    
26.   )
    
27.   (princ)
    
28. )

(defun rere (/ 已注册码 注册码 输入注册码 cpusn)<br />   (setq 已注册码 (vl-registry-read "HKEY_CURRENT_USER\\Software\\solycad" "SN"))<br />   (setq cpusn (getstring "\n请输入申请码(买家给你的)：")) ; 改为手动输入:ml-citation{ref="2" data="citationList"}<br />   (setq 注册码 (strcat (加密字串 (substr cpusn 2 4)) (加密字串 (substr cpusn 7 4)))) ; 保持原有加密逻辑:ml-citation{ref="2" data="citationList"}<br />   <br />   (princ (strcat " ★★★★★你要给别人的注册码为：" 注册码 "\n")) ; 调试用提示<br />   <br />   (if (/= 已注册码 注册码)<br />     (progn<br />       (princ (strcat "    申请码为：    " "\n\n" cpusn))<br />       (setq 输入注册码 (getstring "\n请输入注册码：")) ; 优化提示文字:ml-citation{ref="2" data="citationList"}<br />       <br />       (if (/= 注册码 输入注册码) ; 改为直接对比生成的注册码:ml-citation{ref="2" data="citationList"}<br />         (progn<br />           (alert "注册码错误！") ; 优化错误提示:ml-citation{ref="6" data="citationList"}<br />           (exit)<br />         )<br />         (progn <br />           (vl-registry-write "HKEY_CURRENT_USER\\Software\\solycad" "SN" 输入注册码) ; 写入注册表:ml-citation{ref="2,5" data="citationList"}<br />           (princ "\n注册成功！")<br />         )<br />       )<br />     )<br />     (alert "\n   该设备已注册") ; 优化已注册提示:ml-citation{ref="6" data="citationList"}<br />   )<br />   (princ)<br /> )