需要许可证代码的帮助

BIGAL · 发表于 2022-7-5 15:41:53

简单易懂的序列号转换为十六进制AE-02-A1-。。。。因此，返回一个激活码是没有意义的，它获取HD序列号并将HD号写入注册表中的某个位置，这是每次检查代码时读取的一个简单位置。在注册表中查找内容比在文件中查找要困难一些。99%的用户不知道如何避开检查。

显然，你制作FAS文件等。

BIGAL · 发表于 2022-7-5 15:44:39

只是多一点，你有22个模块组成的软件需要签入每一个，但要运行代码，同时测试未锁定，所以使用一个旧的DOS bat文件方法复制两个文件，使一个新的。如果您想在将代码锁写入软件时提供预先配置的软件，这很方便。

copy


copy lisp1.lsp+check.lsp LISP1USER.lsp
copy lisp2.lsp+check.lsp LISP2USER.lsp
copy lisp3.lsp+check.lsp LISP3USER.lsp

再多一点，你可以获得序列号并将其传递到互联网服务器上。你可以将文件保存到远程服务器，在那里你可以读取它，因此没有直接的用户交互。

Solitechcadsolu · 发表于 2022-7-5 15:48:13

你们的主意不错，但问题是。。我来自印度，这里的人们只共享到服务器的互联网接入，而不共享到本地计算机（在一个小办公室里，我从那里得到一些小型自动化工程）。所以很难通过互联网，我希望得到一些当地的安全。代码，我已经张贴了它的作品罚款给我，我没有任何问题，正如上面写的，我会添加驱动器序列号检查了。所以我认为它会很好地工作。但要做到这一点，我必须检查电脑名称或现在驱动器序列号手册，然后为同一台电脑创建fas文件。（重点是我想要减少体力劳动的东西）。可能正在重新编译fas，在获取驱动器和pc名称/编号后可以工作。谢谢你的帮助

我是新来这个论坛的，我发现了许多有用的帖子从你。谢谢你指导像我这样的新手，我也想成为像你一样的程序员（请分享一些提示）

BIGAL · 发表于 2022-7-5 15:53:08

这就是将两个文件组合成1新1的想法，让新用户运行lisp并发送返回的代码，即使他们不知道它是什么。因此，通过复制lisp1来创建新的Lisp。lps+检查。包含HD编号的lsp和检查硬盘。下一步是从新的组合文件中生成FAS。如果没有post，可以运行lisp生成多个fas文件。根据我个人的经验，这应该只需要几分钟。

copy


; check.lsp change disk id number etc then join to other lisps
(if (not hardiskcheck )(Load "lisp22") ; use a name that is not obvious but its actually the hard drive check 
(setq did (#Asmi_Get_Drive_Serial "C:"))
(if (= did "123456")
(princ "passed")
(progn
(alert "Security fail\nPlease contact superman to fix")
(exit)
)
)

如果您使用日期检查查看李mac的“获取国际时间”，这将阻止时钟掉转者重新启动您的软件。

SLW210 · 发表于 2022-7-5 15:53:56

请阅读代码发布指南，并将您的代码包含在代码标签中。[NOPARSE]

copy

Your Code Here[/NOPARSE]

=

copy

Your Code Here

BIGAL · 发表于 2022-7-5 15:59:05

您的错误消息警报支持多行

copy


(Alert "Licence has been Expired") 
(Alert "Licence has Expired\nPlease call me on\n01 2345678\n\nto get reactivation code")

Roy_043 · 发表于 2022-7-5 16:01:40

@SolitechCad解决方案：
也许这就是你想要的
您可以在代码中包含所有计算机名称（或硬盘序列号）的列表，并检查列表中是否有找到的值。

copy

(if (not (vl-position (getenv "COMPUTERNAME") '("NameA" "NameB" ...)))
 (progn
   (alert "No permission")
   (exit)
 )
)

hosyn · 发表于 2022-7-5 16:03:56

太棒了

[编程交流] 需要许可证代码的帮助

发表回复

精选推荐