[LISP程序]：想问一个题，怎么删除自身

XDSoft

最初由 luoyaya 发布
[B]我用lisp试了一下,发现在R14里一个文件被加载了之后,ARX文件就被锁定了,要先卸载了,我先试了我写一个tmp.lsp文件,然后调用该文件,可是当tmp.lsp文件到arxunload CAD就掉了,后面的删除文件语句当然就没起作用~~~

R... [/B]

你们单位有很多解密高手吗？ 记住的是，只要能加密的，就能解密。不能被解密的不叫“加密”，那叫做“破坏”。

不要在这个上面花心思了，随便找一个限制方法就可以了，我想你单位可能还是软件安装都需要别人替自己做的人多。你能想象这些人能去找注册表，去分析你的软件找加密点？

mmmm

实际上，删除ARX文件（在内部局域网络上）可能是行不通的，因为用户可以从只读目录加载文件，这样的话，即使卸载了文件也不能删除。因为那是网络系统的操作权限，如果连这些都要处理了，我看也不用画图编写小程序了，够资格做Hacker了。

所以我同意斑竹的意见，随便限制一下就行了，至少到目前，由VLISP编译成的ARX文件还不能被反编译。只要你的限制方法别外传就是了。

lijiao

第一次使用时，可以在WINDOWS的目录中建一个文件，名字要推敲一下，如WINAPP.SHQ等，然后将第一次的使用时间记录在文件中，为了保密，可以将每个字符变为ASCII码，然后将ASCII码都加上一个数，如100，在将ASCII码变为字符写入文件，这样的文件可能一时半会没人能看懂。
以后每次使用时，读取这个文件和系统时间比较，到期后停止使用，如果修改系统时间，同样停止使用，你可以尽量发挥。
这样有几个好处：
1、方法简单，不用花多大精力即可完成。
2、效果较好，到期后，即使重装也无法解除限制。
3、限制不会立即体现，不会得醉人，免得有人说你小气，因为使用的人中免不了有你的朋友。

Unknown

解铃还需系铃人，自己无法完成自杀，只有借助它人（它的管理者）之手。

CAD平台或操作系统平台都提供了有关方法，我们所需要做的只是“通知”它们完成相应的操作即可。
遵循以下步骤：先卸载，再自杀。

卸载可以有两类：通知CAD平台卸载该模块；或通知操作系统退出整个CAD，CAD系统在退出的同
时自然也会把它所加载的模块都卸载掉，都有若干方法。

如何自杀在 CSDN 上有比较多的讨论，有一些方法可以借鉴，不过其中一些方法的实现代码是针对
EXE 文件，并不适用于 DLL（ARX程序），但有的方法有效。

这些方法涉及较底层操作，所以用 C语言实现是最得心应手。
如果活学活用，最少有 5种以上的方法可以实现。

一个好的自毁程序，能把”它杀“伪造成”自杀“，无疾而终。
一个巧妙的自毁程序，可以嫁祸于人，让使用者惴惴不安，以为是自己的过错。
一个恶毒的自毁程序，可以成为“连环杀手”，那就是病毒了。

技术是把双刃剑，要善用技术，控制技术，而不是被技术所控制。

lijiao

最初由 Unknown 发布
[B]解铃还需系铃人，自己无法完成自杀，只有借助它人（它的管理者）之手。

CAD平台或操作系统平台都提供了有关方法，我们所需要做的只是“通知”它们完成相应的操作即可。
遵循以下步骤：先卸载，再自杀。

卸载?.. [/B]

似乎不太可取，假如你还没有离开公司时，CAD卸载了，如果查出是你的原因，你的日子将不太好过。
如果只卸载自己编写的那一部分，则可以美其名曰是为了将软件进行强制更新。

aeo

18贴的好,文件名要取的好, .exe之类的,和好多病毒一样,自己找是找不着的.

不过写注册表也可以的
以前看过一篇文章,说打仗了,发电报,电报是很容易被截获的,多是明文,大家都可以看,但字典在自己手里,敌人是没办法理解意思的.
算法在程序里,要知道意思,比较难的.

不过说回来,天正,cad什么的盗版也不是出的那么快吗!

Unknown

我指的卸载是从内存中卸载该模块，只有这样才能解锁，才能让下一步的删除自身成功。
对CAD平台的卸载也只是让它从内存中退出来，这一步并没有任何破坏力，不会影响系统的。

可以做到很干净的自毁；也可以礼貌的留下一个拷贝，当然是瘦过身的了 —— 里面没有任何
实质性的代码，而所有该模块定义的操作命令都只打印一条信息：Hello, world，使用者一定很郁闷。

也可以推出自己的广告，或者更具欺骗性的要求非法用户提交备份文件重新安装：当然目的是把备
份文件也破坏掉，实际中80%的人没有备份习惯，96%的人没有第二备份，所以会干净。。。

这是技术手段，但最好的方法却是人文手段。
《孙子兵法》被公认为世间第一兵书，就在于它追求不战而胜，妙。

搞破坏一直是我反对的，应当合理的捍卫自己的正当权利。
有理就要走天下，千万不能有理还要做孙子，另外女人也不喜欢当孙子的男人。

把属于自己的东西全部带走，把不属于自己的全部留下，再给大家留一份小礼物：对他们最有用
但一定会过期（指自然折旧，而非人为的限制）的东西。。。若干年后他们依然会惦记你的。

什么有价值？有价值的是人，而不是那些产品。
不卑不昂，把自己培养成公司最有价值的人，来去无牵挂，最好。

luoyaya

楼上的一纸文字真是让我看了很有折服,很哲理啊
不过人总是很现实的,很多东西说起来是这样的,真是做的时候要也是考虑一些很眼前的很现实的问题.......

Unknown

把知识产权的界定搞清楚，你就不会苦恼了：不属于你的别碰它，属于你的也要大方一些。

别太计较得失，大部分东西都是不值得去计较的，更何况当你计较的时候又有很多更有价值的东西从身边遛走了：时光、快乐、感情。。。

另外把“本领”练“牛”点，但“人”不要“牛”，面对现实也会轻松许多。

luoyaya

仁兄看来做是很大度的人啊,是北方人?:)

luoyaya

仁兄看来做人是很大度的,是北方人?:)
交个朋友怎么样?

wei209

学习了!

fengjianwei

我自己编的VLISP程序与Delphi程序相结合的

用Delphi打补丁，VLISP程序必须放在某个目录下，Delphi补丁才能生成。

只要VLISP程序在固定目录下，自删除轻而易举，想怎么操作都可以，不管是按次数还是按使用时间来控制自删除。

TLHMQH

很好的一个主题，每位楼主的意见都很好，难得27楼楼主能将沉睡四年的该文顶起来，希望大家进一步探讨。

dandee

居然这么老的帖子也上来了。我也来说几句
我有更好的办法，不需要删除，不需要unload，
我命名为：定时自毁
方法极其简单:原理是打开自身文件清空.

--》条件语句 选定一个时间 用(close (open "自身文件"  "w") )   ，ok!!!

可以看到参数"w"意义非凡。清空的文件，还保留文件名，但里面空空如野，
叫解密高手望空兴叹，这种方法比较隐蔽，温柔一刀。到了时间第一次加载文件，还可以用，但第二次。呵呵。。

在7年前，我就是用这个方法，针对部门经理的可恶嘴脸，出了一口恶气，走人出国。