[讨论]：怎样才能防止别人拷贝自己的LISP文件呢？

anniston

不让别人用你的电脑不就行了。

tuger

转成arx后，用幻影加密时，试了一下出错，幻影只能对exe文件有效。不知是什么原因。
我认为做成有时间限制，像理正的试用版一样，时间一到，马上不能用。恶毒一点的
可以加几句自动把程序给杀掉（可以用vlisp或doslib来支持)

lhbzx

最初由 aeo 发布
[B]

可以吗?
你试过? [/B]

看到网上哪些卖软件的吗？
他们就是先把带狗的正版软件给CR了，然后就用这种方法给你10次、20次的试用版，等你用上手了，就得给他100元的注册费，而且只有你这台机能用。

敝人就是注册了一这样的软件，让lhyygu兄帮忙“移植”到其他机上，所以他知道是甚么“幻影”在作的怪。

aaddff

时间限制不错，tuger能不能提示一下方法

wei209

我用的是共享法 FINDFILE \\\\MYCOMPUTER\\SHARE\\WEI209.EXE

cy956

根本上说不提供是最好的加密，不过可能也就没意义了。
想到以前看到的一个故事：说是意大利人搞出了一种世界领先的机枪，
作为国家机密守在仓库里；战争爆发了，才匆忙送到前线，遗憾的是
没几个人会用，战败。成为兵器史上的一大笑话。

TLHMQH

坏人之心不可有  防人之心不可无
最近有很多类似帖子被翻出来，说明该主题具有一定的讨论价值。
谢谢20楼楼主！
也希望大家共同探讨。

haibinpro

最初由 wei209 发布
[B]我用的是共享法 FINDFILE \\\\MYCOMPUTER\\SHARE\\WEI209.EXE [/B]

(defun C:333()
(setq tttt (FINDFILE \\\\ppo\\1\\2.EXE))
(if (/= tttt nil)
(progn
(prompt "\n 程序可用")
)
(prompt "\n 程序已过期，请更新版本。")
)
)

为什么这样不行？

小菜

比较好的方法是用机器的序列号加密到机器上，现在有不少VLX程序要求注册，用的就是这种技术

橄榄滋味

加上引号就行了
(defun C:333()
(setq tttt (FINDFILE "\\\\ppo\\1\\2.EXE"))
(if (/= tttt nil)
(progn
(prompt "\n 程序可用")
)
(prompt "\n 程序已过期，请更新版本。")
)
)

haibinpro

最初由 橄榄滋味 发布
[B]加上引号就行了
(defun C:333()
(setq tttt (FINDFILE "\\\\ppo\\1\\2.EXE"))
(if (/= tttt nil)
(progn
(prompt "\n 程序可用")
)
(prompt "\n 程序已过期，请更新版本。")
)
(princ)
) [/B]

谢谢，确认有效。

TLHMQH

百花齐放，还有没有其他方法呢？