求助lsp加密程序

2013127ll

这个lsp是在网上找的，我不会lsp希望大哥大姐们帮帮忙改改，我的意思：第一次加载程序需要注册，注册成功后在加载程序就不需要注册了，而提示“您已经注册成功，欢迎使用”谢谢。程序：
(progn       
(vl-load-com)
  (defun jy (jqm)         ; 算法:注册码=(机器码+144356842)^0.89取整,可自己修改
    (itoa (fix (expt (+ (atoi jqm) 144356842) 0.89))))
  (setq fsys (vlax-create-object "Scripting.FileSystemObject"))
  (if (/= (vlax-invoke-method fsys "DriveExists" "C") :vlax-false)
    (setq jqm (itoa (vlax-get-property (vlax-invoke-method fsys "GetDrive" "C") "SerialNumber"))))
  (setq zcm (vl-registry-read "HKEY_CURRENT_USER\\Software\\TH++\\" "SN"))
  (if (/= zcm (jy jqm))
    (progn
      (setq fname (vl-filename-mktemp "zhuc.dcl") f (open fname "w"))
      (write-line "zhuc:dialog{ label=\"注册信息\";" f)
      (write-line ":edit_box{label=\" 机器码\";key=\"e01\";edit_width=18;}" f)
      (write-line ":edit_box{label=\" 授权码\";key=\"e02\";edit_width=18;}" f)
      (write-line ":row{:button {label=\"注册\";key=\"e03\";is_default=true;}" f)
      (write-line ":button {label=\"取消\";is_cancel=true;}}}" f)
      (close f)
      (new_dialog "zhuc" (setq dcl_re (load_dialog fname)))
      (set_tile "e01" jqm)
      (set_tile "e02" "联系作者：")
      (action_tile "e03" "(setq zcm  (get_tile \"e02\")) (done_dialog 1)")
      (if (= (start_dialog) 1)(vl-registry-write "HKEY_CURRENT_USER\\software\\TH++\\" "Number" zcm))
      (unload_dialog dcl_re)
      (vl-file-delete fname)
      (if (/= zcm (jy jqm))
(progn  (alert "注册失败!") (exit))
(ALERT "\n软件已注册 欢迎使用"))))
  (princ)
(defun c () (/ bb dcl_re f fname fsys jqm n zcm)
)
        (cond
                ((= actionnm 1) (0)
                ((= actionnm 2) (0))
                (T ())
        )
(princ)
)

toproc

重装系统，注册码就用不了了！还有就是，逻辑序列号不可靠，别折腾了！