Mike55 发表于 2022-7-6 02:25:12

保护我的lisp程序?

我看过加密程序解密,所以这不是我要找的。我想要的是在thumb驱动器上销售我的Auto lisp程序,该驱动器可以与AutoCAD一起使用,最早版本为12,但用户将无法复制它,或者甚至无法看到它。这可能吗?我正在使用AutoCAD 2002,但可以访问AutoCAD 2013。

Tharwat 发表于 2022-7-6 02:53:42

嗨,迈克,
 
您可以将lisp编译为。fas和。打开Vlisp编辑器,从菜单文件->生成应用程序->新建应用程序。。。。等等

Dana W 发表于 2022-7-6 02:59:42

并确保在某处以纯文本形式保留lisp代码的备份副本。

BIGAL 发表于 2022-7-6 03:10:22

Re thumdrive你可以创建只在thumb驱动器上工作的文件,我已经复制了一些东西,然后它就不工作了。你们可以编写代码来寻找USB驱动器,这是获得USB设备号的最简单方法,你们也可以在某处看到。你也可以隐藏目录。
 
我们现在运行的软件没有usb没有工作,但工作代码可以在pc或usb上。

satishrajdev 发表于 2022-7-6 03:25:13

请尝试以下代码,将Lisp(*.lsp)文件转换为快速安全的(*.fas)文件。。。
 
;;LSP2FAS.lsp                                    ; Scot Harris11-29-2012
;;   Minimizes the sequence needed to create FAS files.
;;   Help facility added.
;;   Streamlined from original program provided by aqdam1978.

(defun c:LSP2FAS-Help (/)
(alert (strcat
"\tLisp (LSP) to Fast and Secure (FAS) Help"
"\n "
"\nFile dialog begins in the current directory.   "
"\nIt is suggested to place and open a drawing (DWG)   "
"\ninside the input folder you wish to batch process.   "
"\n "
"\nOutput file will be in the same folder as the file selected.   "
"\n "
"\nThere is no provisional check for an existing FAS file of the same name.   "
))
);end LSP2FAS-Help

(defun c:LSP2FAS ( / a )
(vl-load-com)
(prompt " Lisp to Fast and Secure (FAS). LSP2FAS-Help available. ")
(if (wcmatch (strcase (setq a (getfiled "Convert LSP File to FAS" (getvar "DWGPREFIX") "" 16))) "*.LSP")
(progn
(c:vlide)(vlisp-compile 'st a)
(princ (strcat "\n File " (vl-string-subst ".fas" ".lsp" a) " created. "))
);progn
(alert "File extension must be \".LSP\"   ")
);if
(princ)
);end LSP2FAS
页: [1]
查看完整版本: 保护我的lisp程序?