epyung 发表于 2022-7-6 06:08:04

Auto Cad保护的Lisp？：

如何保护auto cad lisp？

satishrajdev 发表于 2022-7-6 06:21:58

你到底想做什么？？？
 
是否要将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

ReMark 发表于 2022-7-6 06:30:17

1） 您可以使用FAS（例如，使用vlisp编译函数）。
 
2） 您可以将其转换为VLX应用程序（加密的LISP文件）。

Tharwat 发表于 2022-7-6 06:42:59

 
保护它免受什么/谁的伤害？
 
保护这个简单的Lisp程序真的重要吗？

ReMark 发表于 2022-7-6 06:51:26

太晚了。我已经偷了。
 
开玩笑。我为什么要这么做？

Tharwat 发表于 2022-7-6 07:00:21

 
这也在我脑海里。
 
 
当你的工作值得保护时，保护它不是一个坏主意。但不是每一件简单的事情都会让你在新手学员面前看起来像个巨人

SLW210 发表于 2022-7-6 07:08:51

请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。
页: [1]
查看完整版本: Auto Cad保护的Lisp？：