求助lsp加密程序谢谢了！！！

2013127ll

大哥大姐们帮小弟个忙，把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)
       
)

75215195

http://bbs.xdcad.net/thread-717131-1-2.html
你可以参考这个。

tzfcn

这个思路不错！

2013127ll

tzfcn 发表于 2018-8-30 15:27
这个思路不错！

大哥能不能修改呢！