（8.20更新）[测试]：参照LockDwg我也写了个加密DWG的程序

eachy

最初由 cdlh 发布
[B]eachy 老大：
你看看这个加密程序如何？
http://www.xdcad.net/forum/showt ... 1257424#post1257424

我觉得要解开图形还要加一个vlx文件总是不太方便，如果甲方将vlx文件误删了，那... [/B]

利用匿名多重插入块加密的方法早就有讨论，我还贴过Minsert<->Insert互转的程序。最简单的方法再命令行输入

_$ (setq e (vlax-ename->vla-object (car (entsel))))
#< VLA-OBJECT IAcadMInsertBlock 0fa94a64 >
_$ (setq ms (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
#< VLA-OBJECT IAcadModelSpace2 11599124 >
_$ (vla-insertblock ms (vlax-3d-point '(0. 0. 0.)) "*U1" 1 1 1 0)
#< VLA-OBJECT IAcadBlockReference 0fa956a4 >
_$ (vla-insertblock ms (vlax-3d-point '(0. 0. 0.)) "*U2" 1 1 1 0)
#< VLA-OBJECT IAcadBlockReference 0fa95774 >

然后 Explode 块即可。

aeo

不要切换到其他文档的，向里写就可以.只要是多图档，加密就失去意义.

至于xiguao的方法，对35楼的方法是不行的.
打乱了，有什么办法!如果只是隐藏，那何必要加载lock哪，直接改就可以了.(用最前面的方法就可以)
我们的目标是逼着他一定要加载这个lock。

其实只要写一个反映器，删除实体，就把这个实体写出去就可以.

aeo

如果把(vla-put-visible obj :vlax-true) 去掉xiguao就不行了!


我的:
打开加密图.
(setq vla-eval nil vla-delete nil)   ;;这句不知道和独立变量有没有关系?
加载lock.vlx
解锁层
ctrl+c

eachy

最初由 aeo 发布
[B]如果把(vla-put-visible obj :vlax-true) 去掉xiguao就不行了!


我的:
打开加密图.
(setq vla-eval nil vla-delete nil)   ;;这句不知道和独立变量有没有关系?
加载lock.vlx
解锁层
ctrl+c [/B]

你这样不行的，在 使用了 vlr-lispwillstart 后，即使在命令行输入也会 删除实体。反应器是先于执行的。

fylinwater

考虑VBA arx综合利用呢？也许可以找到更好的方法

eachy

最初由 fylinwater 发布
[B]考虑VBA arx综合利用呢？也许可以找到更好的方法 [/B]

要是会ARX了还用什么VBA，就象DWGLOCK就是ARX，DWG给你改成DWK文件

shisj

加密后别人能看吗（不加载vlx文件）？

xiguao

最初由 aeo 发布
[B]不要切换到其他文档的，向里写就可以.只要是多图档，加密就失去意义.

至于xiguao的方法，对35楼的方法是不行的.
打乱了，有什么办法!如果只是隐藏，那何必要加载lock哪，直接改就可以了.(用最前面的方法就可以)
... [/B]

35楼的方法，因为网站限制，我不能看见。
但是，使用我的方法，的确是将楼主的加密图形解开了。主要构思就是楼主的加密己确立，我只要猜出他可能采用的方法，针对性地采取措施。比如，未还原前图形是看不见而且是打乱的，但还原是图形反算回来，让我们看到时必须有一个改变可见性的过程，所以反应器只要抓住这时物体的状态，解密就成功了。所以，加密的还原文件还得限制jm的执行，这又是新一轮的解密过程。

eachy

最初由 xiguao 发布
[B][QUOTE]最初由 aeo 发布
[B]不要切换到其他文档的，向里写就可以.只要是多图档，加密就失去意义.

至于xiguao的方法，对35楼的方法是不行的.
打乱了，有什么办法!如果只是隐藏，那何必要加载lock哪，直接... [/B]

楼上朋友的解密做的妙在利用了反应器的顺序，这种Lisp加密肯定要执行还原，还原后才会有其他各种保护反应器，而且vlr 反应器是在各自的变量空间，不能用一个 空间 的 vlr-remove-all 去取消另外 一个空间的 反应器。
这个加密的很重要的一个反面就是要禁止 lisp 和 vla 方法的写出，而这两种方法的反应器要在执行还原以后才会加入，否则自己的   lisp 还原部分也将无法执行。
用 Object  反应器正好利用了这个切入点，隐藏于否不是关键，即使不是隐藏的实体，你还可以利用 copied 或者 modified 等反应器将数据写出。

aeo

最初由 eachy 发布
[B][QUOTE]最初由 aeo 发布
[B]如果把(vla-put-visible obj :vlax-true) 去掉xiguao就不行了!


我的:
打开加密图.
(setq vla-eval nil vla-delete nil)   ;;这句不知道和独立变量有没有关系?
加载lock.v... [/B]

你到底看一下我的顺序，不要先下结论。(你的反映器进去时，你要的函数就已经没用）

而且还有其他方法.

不要想象着lisp有多牛，毕竟它还依靠着外面。不象arx,可以什么都编译到程序里面.
你可以屏蔽掉别人，难道别人就不能屏蔽你.


所以再反过来,要屏蔽xiguao的方法就很简单：(setq open nil)

xiguao

最初由 aeo 发布
[B][QUOTE]最初由 eachy 发布
[B][QUOTE]最初由 aeo 发布
[B]如果把(vla-put-visible obj :vlax-true) 去掉xiguao就不行了!


我的:
打开加密图.
(setq vla-eval nil vla-delete nil)   ;;这句不?.. [/B]

就算(setq open nil),如果将图形数据只输出在本图中，然后再来处理，应该还是可行吧.

hust_laohu

这里讨论的都是高手
我是看的云里雾里里了
看来还要好好学习了

citykunan

eachy 你的加密程序对我很重要，可是我的积分不到5分，不能看，你能不能将程序发到我的邮箱，万分感谢你。leo.li@dowcorning.com

伊枫

只要有加密就会有破解，好不容易看懂了一点，又被加密起来了，呵呵。
不过这些东西对于我们这些菜鸟级是足够了，只是奇怪cad为什么不提供这个功能呢？
我们为什么又要加密呢？

duely

eachy 楼主,你的附件里面怎么没有图形锁定的ealock.vlx了 急啊 我才看到这个贴子 结果发现下载后没有加密的程序了 请检查下附件吧