寻找Lisp保护

danielk · 发表于 2022-7-5 19:56:18

我正在寻找一种方法来保护一些lisp，我知道vlx方法，但如果这里有人可以做得更像是用密码安装，那就太好了。其用于商业用途。（我基本上知道任何人都可以破解lisp，如果他真的想，但我不介意）

因此，任何有这方面工作经验并想做这件事（作为工作）的人，我都很乐意听到。

谢谢

hugha · 发表于 2022-7-5 20:07:31

查看Inno设置。这些示例涵盖了基本知识，这就是您需要放置的全部内容。vlx在您或安装程序选择的目录中。

这会向进程添加密码：
http://www.jrsoftware.org/ishelp/index.php?topic=setup_password

danielk · 发表于 2022-7-5 20:14:28

我去看看，希望不要太复杂，谢谢）

danielk · 发表于 2022-7-5 20:17:46

过了一段时间，我试图找出主题，让我通过inno设置加密，使安装程序是每个用户的工作，但这一切如何保护vlx文件？它仍然与文件的其余部分位于一个文件夹中，可以将vlx复制到另一个文件夹中。。

jonathann3891 · 发表于 2022-7-5 20:24:28

您可以使用VLIDE将lisp文件编译成。fas文件

http://www.afralisp.net/archive/vl/vl-comp.htm

danielk · 发表于 2022-7-5 20:30:46

FAS也可以从一台电脑移动到另一台电脑。。。

SLW210 · 发表于 2022-7-5 20:40:04

我似乎记得不久前，可能在过去6个月至一年内，就这一问题进行了相当长的讨论。

但不确定是否有解决方案。

hugha · 发表于 2022-7-5 20:46:42

没有。对不起，我以为你是想用密码保护安装，Inno可以做到。

除此之外，您还必须在自己的系统中设置某种密码保护。vlx，这是一个单独的练习。根据购买时获得的详细信息，您可以在安装过程中使用一些在Inno中运行的自定义代码来实现这一点，但前提是。vlx很容易崩溃，它不会阻止坏人。即便如此，这个。vlx可以访问注册表数据，以验证其是否在经批准的机器上运行。同样，破解者可能很容易暴露这一点并绕过检查。

最终，保护产品的努力会更好地花在不断改进产品上，并在每次发布之间改变产品内部的保护，以禁用任何已发布的漏洞，这仅仅是因为您的绝大多数真实市场对已破解的版本不感兴趣，宁愿获得您的支持，也不愿冒恶意软件的风险。在其他人中，大多数人无论如何都不会买。

坦率地说，保护核心IP的方法是将其转移到web上的SAAS。

BIGAL · 发表于 2022-7-5 20:50:45

我同意休的观点，我参与了一个商业产品，我们做了一些简单的检查。我们接到电话说它不工作，很快就发现它被复制到了另一台电脑上。

与SWL210搜索一样，这里也有一些关于保护代码的冗长讨论，使用FAS一些简单的方法检查序列号，检查PC硬盘ID，将代码埋在注册表中，安装时它会覆盖代码，因此只需一次安装。网络IP地址每台电脑都是唯一的，其中一些方法需要用户输入，就像Autocad的安装一样，这可能意味着可能需要一封电子邮件或一个电话。

几乎忘记了我们的产品有多个lisp，所以我们只是简单地通过批处理文件使用旧的fashoined DOS将保护例程添加到现有代码中，然后制作客户版本，然后使用Autocad再次制作FAS文件，这可以编写脚本。
复制加密。lsp+文件1。lsp c:\客户\文件1。lsp

样品

copy


; this version works with Win 7
; by lee-mac oct 2011
(defun HDSerial ( / wmi srv drv ser )
 (vl-catch-all-apply
   (function
     (lambda ( )
       (if
         (setq wmi (vlax-create-object "WbemScripting.SWbemLocator")
               srv (vlax-invoke wmi 'connectserver nil nil nil nil nil nil nil nil)
               drv (vlax-invoke srv 'execquery "Select SerialNumber from Win32_DiskDrive")
         )
         (vlax-for item drv
           (vlax-for prop (vlax-get item 'Properties_)
             (if (eq "SERIALNUMBER" (strcase (vlax-get prop 'name)))
               (setq ser (vl-string-trim " " (vlax-get prop 'value)))
             )
           )
         )
       )
     )
   )
 )
 (if drv (vlax-release-object drv))
 (if srv (vlax-release-object srv))
 (if wmi (vlax-release-object wmi))
 ser
)

neophoible · 发表于 2022-7-5 20:58:26

我的意见是，除非你真正掌握了市场，否则最好不要让它特定于机器。使其特定于机器的问题是，公司升级到新机器，不希望增加麻烦。我们已经放弃了大多数使迁移变得太困难的程序。正如你所说，“我会查一下，希望不要太复杂，谢谢”。不要误以为你的客户比你更想惹麻烦。如果你在市场上占有一席之地，那么即使你的客户因此讨厌你，你也可能逃脱惩罚。

[编程交流] 寻找Lisp保护

发表回复

精选推荐