[求助]：lisp程序中输入注册码程序？

xxming

能否在LISP程序中加入：提示输入注册码,注册后才可运行程序

zml84

大家讨论一下，上述序列号保护的方法可有漏洞？
1、是否可以通过将hbr或getSn函数重新定义的方法绕过注册？
2、在注册过程中，因为采用了明码比较，即

1. (= code (getSn regName))

复制代码

，那么通过查看并修改内存，是否可以破解注册？
3、序列号保护是很脆弱的一种保护方式，所以在注册名的选取上应当适当的与本机所关联，这样可以在一定程度上限制序列号传播。

hb198075

这个是我很早前写的一个注册函数，算号方式很简单，给你参考一下。
[php]

;;;算号
(defun getSn (yname / alln gs i asi ret)
  (setq alln "0")
  (setq gs (strlen yname))
  (setq i (- gs 1))
  (while (>= i 0)
    (progn
      (setq asi (fix (* 2.9 (vl-string-elt yname i))))
      (setq alln (strcat alln (itoa asi)))
      (setq i (- i 1))
    )
  )
  (setq ret (atof alln))
)


;;;注册函数  
(defun hbr ( / sz1 mysz codes code regname retu )
  (vl-load-com)
  (setq sz1 (vlax-product-key))
  (setq mysz (strcat "HKEY_CURRENT_USER\\\\" sz1 "\\\\HbSet"))
  (setq codes (vl-registry-read mysz "RegistCode"))
  (if codes
    (setq code (atof codes))
  )
  (if (not codes)
    (setq code 0)
  )
  (setq regName (vl-registry-read mysz "RegistName"))
  (if (and regName code (= code (getSn regName)))
    (setq retu 1)
  )
  (if (or (not regName) (not code) (/= code (getSn regName)))
    (progn
      (princ
        "\n请您向本命令的开发者支付10元RMB以获得注册码，谢谢！"
      )
      (setq regName (getstring "\n请输入注册名："))
      (setq code (getreal "\n请输入序列号："))
      (if (or (not regName) (not code) (/= code (getSn regName)))
        (setq retu nil)
      )
      (if (and regName code (= code (getSn regName)))
        (progn
          (vl-registry-write mysz "RegistName" regName)
          (vl-registry-write mysz "RegistCode" (rtos code))
          (setq retu t)
        )
      )
    )
  )
  retu
)

[/php]

carrot1983

想问一下楼上的，你后半部份的代码为什么都是红色的。。。
我设置格式的时候出现对话框：“停止设置格式:Unbalanced token”

hb198075

PHP的解码问题，PHP将原来的 \\"解成了 \"，导致引号不匹配，红色代表是引号内的文字。

xxming

怎么用啊,能解释一下吗

hb198075

函数作用：从注册表中的一个指定位置获取注册名 和 注册号 的键值，如果名和号都存在，则通过算号函数计算2者是否对应，对应的话则返回T。不对应或者名、号都不存在，则提示输入用户名和注册码，如果不能符合要求则返回nil 。
如下示例：
[php]
(defun c:xxxx( / )
  (if (hbr)
    () ;此处为你的程序
  )
)
[/php]

egos

漏洞就没有,不过作者说明是一种简单的注册加密,再好的加密方法也会有破解方式的.

hb198075

这个算号函数确实很简单，并且比较时没做任何加密处理，当时只是自己探讨如何限制功能，我想也没有谁会拿Alisp程序去卖钱吧，再说花时间来破解一个Alisp，还不如自己写一个来得快。任何方式的加密都能被破解的，只是难与易，时间长与短的不同，不过大家倒是可以探讨一下如何用Alisp写出更完善的算号/加密程序来。。。。不为限制alisp的使用，只为学习交流^-^。

xyz518mm

原来可以这样编写
来去试看看好了
谢谢

lewyee

破解比加密更简单，小弟！

hustluo93

好东西！不定一下不行啊

idfhm

思想很好!!我很喜欢

fangzheng158

思想很好!!我很喜欢

hustluo93

这个程序漏洞大大的有，只要再CAD中输入（getSn  “名字”）CAD就会返回注册码！
或者买一个注册号，以后每个机子都用同样的名字注册就可以了。不跟硬件挂钩。