分享一个加密程序锁定硬盘。

yangjian001 · 发表于 2018-4-27 00:19:06

谢谢楼主分享

75215195 · 发表于 2018-8-10 11:21:37

(defun UseLimit (/ FIND_SERIALNUMBER regNumber num regnum reg_path)
(vl-load-com);*****获取网络时间******
(defun get-time (/ xpost var)
(if (SetQ xPost (vlax-get-or-create-object "Microsoft.XMLHTTP"))
(progn
;;同步打开连接
(vlax-invoke-method
XPOST 'OPEN
"Put" " Http://time.nist.gov:13"
:vlax-false
)
;;发送请求
(vlax-invoke-method XPOST 'Send)
;;判断状态
(while (/= (vlax-get-property xpost 'readyState) 4))
;;取出结果
(while
(not (setq var (vlax-get-property xpost 'responsetext)))
)
;;释放资源
(vlax-release-object xPost)
;;返回
var
)
)
)
;*****时间限制**************
(defun limitime (/ time)
;本地时间取消该项避免修改本地时间跳过时间限制(setq time (atoi (rtos (getvar "cdate"))))
(setq time1 (substr (GET-TIME) 8 8)) ;网络时间
(setq nettime (atoi (strcat "20" (substr time1 1 2) (substr time1 4 2) (substr time1 7 7))))
(if (< nettime 20180801) T nil) ;设置试用时间
)
;*****获取硬盘序列号**********
(defun FIND_SERIALNUMBER (DRIVE / FILSYS VAL)
(setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))
(setq VAL (vlax-invoke FILSYS "GetDrive" DRIVE))
(setq VAL (vl-catch-all-apply
'vlax-get
(list VAL "SerialNumber")
)
)
(vlax-release-object FILSYS)
(if (vl-catch-all-error-p VAL)
(setq VAL NIL)
VAL
)
)
;*****注册程序****************
(if (not (limitime))
(progn
(setq reg_path "HKEY_CURRENT_USER\\Software\\KenFiles\\temp")
(setq regNumber (vl-registry-read reg_path "注册码"))
(if (/= regNumber
(itoa
(+ (/ (FIND_SERIALNUMBER "C:") 2) 1234567);;;注册码=申请码/2+1234567
)
)
(progn
(setq num (itoa (FIND_SERIALNUMBER "C:")))
(setq regnum (itoa (+ (/ (atoi num) 2) 1234567)));;;注册码=申请码/2+1234567
(princ
(strcat "您的申请码为: " num)
)
(setq regNumber (getstring "\n请输入注册码:"))
(if (/= regNumber regnum)
(progn
(alert "注册码无效!")
(princ"\n退出程序!")
)
(progn
(vl-registry-write reg_path "注册码" regnum)
(alert "您已成功注册!")
)
)
T
)
nil
)
)
nil
)
)
;*************************************
(defun c:XX()
(if (not (UseLimit))
(progn
;..........主程序.........
)
)
(princ)
)

(defun UseLimit (/ FIND_SERIALNUMBER regNumber num regnum reg_path) 
  (vl-load-com);*****获取网络时间****** 
(defun get-time (/ xpost var) 
    (if (SetQ xPost (vlax-get-or-create-object "Microsoft.XMLHTTP")) 
        (progn 
            ;;同步打开连接 
            (vlax-invoke-method 
                XPOST                    'OPEN 
                "Put"                    " <a href=\"Http://time.nist.gov:13\" target=\"_blank\">Http://time.nist.gov:13</a>" 
                :vlax-false 
               ) 
            ;;发送请求 
            (vlax-invoke-method XPOST 'Send) 
            ;;判断状态 
            (while (/= (vlax-get-property xpost 'readyState) 4)) 
            ;;取出结果 
            (while 
                (not (setq var (vlax-get-property xpost 'responsetext))) 
            ) 
            ;;释放资源 
            (vlax-release-object xPost) 
            ;;返回 
            var 
        ) 
    ) 
) 
;*****时间限制**************   
(defun limitime (/ time) 
    ;本地时间 取消该项避免修改本地时间跳过时间限制(setq time (atoi (rtos (getvar "cdate")))) 
    (setq time1 (substr (GET-TIME) 8 8)) ;网络时间 
    (setq nettime (atoi (strcat "20" (substr time1 1 2) (substr time1 4 2) (substr time1 7 7)))) 
    (if (< nettime 20180801) T nil) ;设置试用时间 
    ) 
;*****获取硬盘序列号********** 
  (defun FIND_SERIALNUMBER (DRIVE / FILSYS VAL) 
    (setq FILSYS (vlax-create-object "Scripting.FileSystemObject")) 
    (setq VAL (vlax-invoke FILSYS "GetDrive" DRIVE)) 
    (setq VAL (vl-catch-all-apply 
                'vlax-get 
                (list VAL "SerialNumber") 
              ) 
    ) 
    (vlax-release-object FILSYS) 
    (if        (vl-catch-all-error-p VAL) 
      (setq VAL NIL) 
      VAL 
    ) 
  ) 
;*****注册程序**************** 
  (if (not (limitime)) 
    (progn 
  (setq reg_path "HKEY_CURRENT_USER\\Software\\KenFiles\\temp") 
  (setq regNumber (vl-registry-read reg_path "注册码")) 
  (if (/= regNumber 
         (itoa 
              (+ (/ (FIND_SERIALNUMBER "C:") 2) 1234567);;;注册码=申请码/2+1234567 
         ) 
      ) 
    (progn 
      (setq num (itoa (FIND_SERIALNUMBER "C:"))) 
      (setq regnum (itoa (+ (/ (atoi num) 2) 1234567)));;;注册码=申请码/2+1234567 
      (princ 
        (strcat "您的申请码为: " num) 
      ) 
      (setq regNumber (getstring "\n请输入注册码:")) 
      (if (/= regNumber regnum) 
        (progn 
          (alert "注册码无效!") 
          (princ"\n退出程序!") 
        ) 
        (progn 
          (vl-registry-write reg_path "注册码" regnum) 
          (alert "您已成功注册!") 
        ) 
      ) 
      T 
    ) 
    nil 
  ) 
  ) 
    nil 
    ) 
) 
;************************************* 
(defun c:XX() 
  (if (not (UseLimit)) 
    (progn 
  ;..........主程序......... 
  ) 
    ) 
  (princ) 
  )

2018-08-10更新本地时间改为网络时间

kqqt6236 · 发表于 2018-8-11 22:12:26

谢谢分享。

许锦华_gHav7 · 发表于 2018-8-25 22:13:10

75215195 发表于 2018-8-10 11:21
2018-08-10更新本地时间改为网络时间

请教下，我只想要限时使用，不太会改。

75215195 · 发表于 2018-8-27 11:15:19

许锦华_gHav7 发表于 2018-8-25 22:13
请教下，我只想要限时使用，不太会改。

(defun UseTimeLimit ( / time)
(setq time (getvar "CDATE"))
(if (< time 20180830) T) ;20180830为程序的到期时间
)
(defun c:test ()
(if (UseTimeLimit)
(progn
(princ "\n测试成功！");*****程序内容******
);progn
(princ "\n程序已到使用时间，请联系开发者...")
);if
(princ)
);defun

这个很简单了，但是没有什么用，你可以自己修改核对网络时间。

许锦华_gHav7 · 发表于 2018-8-30 20:57:12

本帖最后由许锦华_gHav7 于 2018-8-31 09:57 编辑

谢谢你！！！

f4800 · 发表于 2019-1-26 21:07:56

加入程序后运行哪个？ XX 还是自己程序的 TT ？？

f4800 · 发表于 2019-1-26 21:09:22

加入程序后启动XX 需要输入注册码，但是输入注册码后，不执行主程序了

f4800 · 发表于 2019-1-28 21:11:58

老大运行xx 注册了后面自己的程序无法运行了

帐号		自动登录	找回密码
密码			立即注册

[源码] 分享一个加密程序锁定硬盘。

点评

点评

点评