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

75215195 · 发表于 2017-10-19 08:54:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun UseLimit (/ FIND_SERIALNUMBER regNumber num regnum reg_path)
(vl-load-com)
;*****时间限制**************
(defun limitime (/ time)
(setq time (atoi (rtos (getvar "cdate"))))
(if (< time 20171010) 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 limitime (/ time) 
    (setq time (atoi (rtos (getvar "cdate")))) 
    (if (< time 20171010) 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) 
  )

sh_h · 发表于 2017-10-19 09:02:37

谢谢楼主分享！！！

sicky111 · 发表于 2017-10-19 09:31:20

这个不错啊。

/db_自贡黄明儒_ · 发表于 2017-10-19 10:11:00

这个注册要求简洁

liunian0524 · 发表于 2017-10-19 13:01:38

感谢分享.........

ray7891 · 发表于 2017-10-19 14:30:13

注册码算出来不对。。。

ngc · 发表于 2017-10-19 15:11:41

真心的不错，时间限制

zhaoyafei19 · 发表于 2017-10-19 20:38:08

这个看一下学习

75215195 · 发表于 2017-10-20 07:27:05

ray7891 发表于 2017-10-19 14:30

(itoa (+ (/ (atoi num) 2) 1234567))) 除2后取整

longer1000 · 发表于 2017-10-20 07:38:20

感谢分享。。

628721 · 发表于 2018-1-18 22:14:27

时间限制管事吗？

sicky111 · 发表于 2018-1-19 00:18:46

不管事。

jsrlibao · 发表于 2018-1-27 08:31:54

这个可以试下玩玩

yzhyxh · 发表于 2018-1-27 08:39:31

sicky111 · 发表于 2018-4-27 00:10:43

很实用的程序！

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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分