社区 › AutoLISP/Visual LISP 编程技术 › 看好多的人想要注册码，给出个简单注册程序的代码，看能收多少钱，高手就不要进了。

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

wowan1314 发表于 2019-9-8 23:08:09

mark~ mark~ mark~

qwsss31 发表于 2024-6-9 19:33:19

看个热闹小尝试一下哈

qwsss31 发表于 2024-6-10 00:13:12

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

tanjurun 发表于 2024-6-10 12:28:51

可以拿出来分享了，不错

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