[编程申请]：如何给程序加时间限制

fylinwater

一般有那些方法？  常用的是什么样的方法？

XDSoft

最初由 fylinwater 发布
[B]一般有那些方法？  常用的是什么样的方法？ [/B]

你用什么语言？

ARX用WIN API 的GetSystemTime，或者GetLocalTime等关于时间的函数，获得时间，然后判断下就可以了。

fylinwater

就这样好象太脆弱了一点吧

abu

许多软件都跟XDSOFT说的那样做，如果你不在意自己电脑时间，改一下系统时间就破了软件的时间限制。
针对这个问题，可以在磁盘上（如：注册表、INI文件或为文件起个类似*.DLL扩展名）做个标记：第一次运行时记录当前时间，下次运行时比较所记录时间，如果当前时间比记录时间还早说明有人出了这一招……

长清

最初由 abu 发布
[B]许多软件都跟XDSOFT说的那样做，如果你不在意自己电脑时间，改一下系统时间就破了软件的时间限制。
针对这个问题，可以在磁盘上（如：注册表、INI文件或为文件起个类似*.DLL扩展名）做个标记：第一次运行时记录当前... [/B]

软件加密的东西一般说来需要多个互相验证或单向验证的加密点，说来话长，我认为，一般的软件或程序直接用系统时间或使用次数来限制就行了，如果希望难解密，就要花大量的时间来写解密和加密程序。关于加密的讨论，论坛上已经有不少的说法，请查阅。话说回来，当你的程序值得别人解密的时候，你已经会加密了。

前生

呵呵，一般说来别人有了矛，你就有了盾？？？

长清

最初由 前生 发布
[B]呵呵，一般说来别人有了矛，你就有了盾？？？ [/B]

我认为这不是矛和盾的关系，是一种知识和能力的循序渐进的过程，你认为呢？

土土土

可到mjtd.com上去下一个用网卡加密的东西,(LISP中用)
利用网卡加密,相当于将网卡作为加密狗,总共24个字符,不可能被解密.

土土土

1、由于网卡的物理地址是唯一的，我们可以使用这个卡号进行软件加密，相当于将网卡当作一般的加密狗
2、软件在别的客户的机器上安装后，读出他的机器上的卡号，由这个卡号外加一个附加代码(12位)生成一个密码,将此密码再输入到客户的机器中进行注册，注册信息是写在注册表中的
3、在运行过程中,读出卡号并算出密码,将这个密码与注册表中的密码进行比较，如果比较成功就是正版的,如果不成功就不是正版的

以下是完全的Lisp代码,在AutoCAD2000下运行通过,运行前要load相应的MyPass.Arx


1、读网卡号作为机器码
(defun C:read_computer_code( / PCCode)
  (setq PCCode (strcat "The Computer Code is:  "  (read_computer_code)))
  ;read_computer_code是MyPass.Arx中的程序,它会返回机器的网卡物理号
  (alert PCCode)
  (princ)
)
2、生成密码,以下这段代码不要安到客户的机器上，安在开发者自已的机器上提供注册用
(defun C:MyCreatePassword( / PCCode ADcode MPass)
   (setq PCCode (GETSTRING "\n Please input the computer code:\t"))
;;PCCode是客户机器上读出的机器码
   (setq ADCode (GETSTRING "\n Please input the Additional code (12digit) such as \
   123456789123\n The Additional code must be same as you have wrote in the software\
     sent to your client\t:"))
;;ADCode是用来生成密码的，一定要确保在客户的机器上也使用了相同的ADCode
   (setq MPass (create_product_password ADCode PCCode))
   (alert (strcat "the Password for this PC-Code is :  " MPass))
   (PRINC)
)

;;生成的密码有24位,很难被破解

3、在客户机器上进行注册

(defun C:MyRegit( / MyPassword rr1)
  (setq MyPassword (GETSTRING "\n Please input the Password:\t"))
;;这个Password就是上一步生成的24位的密码
  (setq rr1 (vl-registry-write "HKEY_CURRENT_USER\\MyCAD" "" MyPassword))
;;write Password to 注册表
  (if (= rr1 NIL)
    (alert "can't  regit")
    (Princ "regit ok")
  )
  (princ)
)

4、在运行过程中验证用户是否是合法的
(defun C:MyCertify( / PCCode RPass CPass AddCode)
   (setq AddCode "123456789123")
   (setq PCCode (read_computer_code))
   (setq CPass (create_product_password AddCode PCCode))
   (setq RPass (vl-registry-read "HKEY_CURRENT_USER\\MyCAD" "")) ;read from regit
   (princ RPass)
   (if (= RPass CPass)
     (princ "certify OK")
     (PRINC "not certified")
   )
)

5、在MyPass.arx中主要有两个function
read_computer_code(读出网卡物理号)
create_product_password AddCode PCCode(产生密码)
实际上也可以只用前面一个function,得到网卡号以后再自行写加密的算法,后面一个function就可以不用了;

panzhongw

有关MYPASS的说明有吗？

kevinchan

网卡的物理地址是可以改的.....

FLOODITIDE

这个mapass怎么不能在2005下加载

c7242865

(setq cdat (atoi (rtos (getvar "cdate"))))
(if (< cdat 20051130);;;;20051130使用期限

kevinchan

能把mypass.arx更新成支持2005和2006就好了

FLOODITIDE

arx的兼容性这么差
每一版次都要更换，不是太不方便了。