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

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

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

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

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

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

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

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

cabinsummer 发表于 2016-10-21 17:01:45

我用的是CPU+MAC+硬盘+扰码的字符串做MD5运算，附加记录最后一次使用工具命令的时间(记录到分)做某数的异或运算，并记录这个异或值的MD5。仅仅靠改时间、换电脑等手法是无法突破的

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 static/image/common/back.gif
我是菜鸟，下载了不知道怎么用

（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 static/image/common/back.gif
路过的，来顶一下

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

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

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

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