【源码】程序使用权限

llsheng_73

我的做法是生成申请码时，结合了当时的计算机时间和MAC地址生成申请码，进行注册时对其时效进行一定的验证，比如它是不是超前或者严重滞后，这些都不被允许。生成的注册码包含注册码的生成时间、MAC地址、有效使用时间。注册时将其写入注册表。以后每次运行程序时将系统时间与两个时间进行比对，如果有效，将注册表内容的起始时间更改为当前系统时间，也就是总是记录下它的最后运行时间，这样应该没机会改系统时间
假如到期后删除注册表相关内容，再用最初得到的注册码进行注册，因为其生成时间过长而被拒绝注册，只能重新生成申请码获取注册码进行注册
当然，整个想法应该还是有一些问题可能会被钻空子，当整个思路人家清楚了之后，这也基本上是没办法的事，严格的说来就没有打不开的锁，不管他是不是有唯一的钥匙

荒野孤行

ggdlove 发表于 2014-2-17 17:36
我有一个疑问，虽然将申请注册码的日期写入了注册表中，然后加入了使用期限。。。

但是，如果当使用期限 ...

你可以在另外一个隐藏的地方（比如可以写到系统文件里面)保存第一次的注册日期，通过与注册表日期进行对比，如果删除了，还是会提示注册信息的。

ggdlove

我有一个疑问，虽然将申请注册码的日期写入了注册表中，然后加入了使用期限。。。

但是，如果当使用期限到了之后，我将注册表中的内容删除掉会怎样？
程序又认为是第一次使用的，重新开始计算使用期限？

llsheng_73

1. (defun Macaddress(/ mac WMIobj serv lox sn)
   
2.   (setq mac'())
   
3.   (if (SETQ WMIobj(VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
   
4.     (progn
   
5.       (SETQ serv(VLAX-INVOKE WMIobj'ConnectServer".""\\root\\cimv2"""""""""128 nil)
   
6.             lox(vlax-invoke serv'ExecQuery"Select * From Win32_NetworkAdapter "))
   
7.       (vlax-for item lox
   
8.         (if(and(=(vlax-get item'NetConnectionID)"本地连接")(not(member(setq sn(vlax-get item'MACAddress))mac)))
   
9.           (setq mac(cons sn mac))))
   
10.       (mapcar 'vlax-release-object (list lox serv WMIobj))))
    
11.   (car(reverse mac)))

(defun Macaddress(/ mac WMIobj serv lox sn)<br />   (setq mac'())<br />   (if (SETQ WMIobj(VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))<br />     (progn<br />       (SETQ serv(VLAX-INVOKE WMIobj'ConnectServer".""\\root\\cimv2"""""""""128 nil)<br />             lox(vlax-invoke serv'ExecQuery"Select * From Win32_NetworkAdapter "))<br />       (vlax-for item lox<br />         (if(and(=(vlax-get item'NetConnectionID)"本地连接")(not(member(setq sn(vlax-get item'MACAddress))mac)))<br />           (setq mac(cons sn mac))))<br />       (mapcar 'vlax-release-object (list lox serv WMIobj))))<br />   (car(reverse mac)))

以上代码来源于网络

edata

不知道为什么有时候用(open "c:\\dd.txt" "r")的路径会找不到文件 而用 (open "c:/dd.txt" "r") 可以。。

1. (defun c:tt(/ f str str1)
   
2.   (vl-load-com)
   
3.   (command "shell" "ipconfig.exe /all >c:/mactest.txt")
   
4.   (setq f (open "c:/mactest.txt" "r"))
   
5.   (if f
   
6.     (progn
   
7.     (while (setq str(read-line f))
   
8.       (if(wcmatch str "*Physical Address*")
   
9.   (setq str1(substr str 45 17))
   
10.   )
    
11.       )  
    
12.   (if str1 (alert (strcat "您的网卡MAC地址是:" str1)))
    
13.     (close f)
    
14.     )
    
15.     (alert "\n未读取到mac:")
    
16.     )  
    
17.   (vl-file-delete "c:/mactest.txt")
    
18.     (princ)
    
19.   )

(defun c:tt(/ f str str1)<br />   (vl-load-com)<br />   (command "shell" "ipconfig.exe /all >c:/mactest.txt")<br />   (setq f (open "c:/mactest.txt" "r"))<br />   (if f<br />     (progn<br />     (while (setq str(read-line f))<br />       (if(wcmatch str "*Physical Address*")<br />   (setq str1(substr str 45 17))<br />   )<br />       )  <br />   (if str1 (alert (strcat "您的网卡MAC地址是:" str1)))<br />     (close f)<br />     )<br />     (alert "\n未读取到mac:")<br />     )  <br />   (vl-file-delete "c:/mactest.txt")<br />     (princ)<br />   )

edata

用cmd即使无网络也可以，

荒野孤行

edata 发表于 2014-2-11 23:23
不知道你采用什么方式获取mac我觉得可以试试cmd命令，ipconfig /all >c:/txt然后读取，理论上可以的，

这个获取mac地址也是在论坛上找的，我之前测试的时候是可以用的，现在测试不能用了，具体待高手解决。还有一种想法是读取到mac地址后，保存到一个位置，下次直接调用，不用再用cmd的方式去读取了，这样只需要首次使用时联网即可，以后不需联网。根据测试只有联网时才可获得mac地址。

gulang008

先留个座，有时间看。。

edata

llsheng_73 发表于 2014-2-11 10:30 楼主这个想法跟我去年底写的那个思路简直一模一样,也是每次获取申请码都不一样，但都可以得到相应的注册码， ...

不知道你采用什么方式获取mac我觉得可以试试cmd命令，ipconfig /all >c:/txt然后读取，理论上可以的，

陈亚娣

学习