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

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

可以拿出来分享了，不错