求助lsp加密程序
本帖最后由 2013127ll 于 2018-8-28 00:06 编辑这个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)
)
重装系统，注册码就用不了了！还有就是，逻辑序列号不可靠，别折腾了！
页:
[1]