中望lisp加密_LISP加密

(defun UseLimit(/ FIND_SERIALNUMBER regNumber num regnum reg_path *error*)

(defun *error* (msg / ent count)

(princ)

)

(defun FIND_SERIALNUMBER (DRIVE / FILSYS VAL)

(setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))

;;(vlax-dump-object FILSYS t)

(setq VAL (vlax-invoke FILSYS "GetDrive" DRIVE))

;;(vlax-dump-object VAL t)

(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

)

)

(setq reg_path "HKEY_CURRENT_USER\\Software\\VB and VBA Program Settings\\temp")

(setq regNumber (vl-registry-read reg_path "注册码"))

(if (/= regNumber

(itoa

(/ (atoi (rtos (atoi (rtos (FIND_SERIALNUMBER "C:")