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

eachy

原理就不说了

2004.8.20

测试文件

http://p4.xdcad.net/bbstech/acad/eachy/lock.rar

2004.8.17

重新完善修改

2004.8.12

修改了还原与保护部分，自动加载文件改成了 acaddoc.vlx 经试验在 CAD2005 下可以自动加载。
压缩包内DWG为 2005 版文件。

2004.08.07 下午

改了种方式测试，下载文件只有一个 Lock.vlx 用以测试这种反应器的保护强度。

任何文档在加载本程序后将不可再编辑及保存，你只要能够把保护后的文件实现存盘（不包括打印后矢量化或其他转化方法如DWF-〉DWG、DXBout）并把方法提供出来将予以奖励。


声明：

1 本程序仅供Lisp爱好者测试之用，正常绘图时切勿加载，否则后果自负

2 本程序适用CAD2000+以上版本

3 本人在 XP + CAD2005、2004、2002 上测试正常，但不保证每台机器都可用

4 如果你在打开图形时加载就直接删除了所有实体，用 UNDO 命令可以恢复，保持文件加载时的状态

5 本程序所声明的不可编辑指：

  a 不可添加实体，添加的实体会自动删除，UNDO不可恢复

  b 不可以用程序生成实体，同 a

所说实体不包括 ray xline

6 本程序所声明的不可保存包括：

  a 不可Save、Saveas，存图后是空白

  b 不可 Dxfout

  c 不可 Wblock

  b 不可 VBA的Saveas、Save

  d 不可 Lisp 方法保存

2004.08.07

修改BUG，禁止各种形式写出图形

2004.08.06 更新

1 修改加密程序

2 解密后的DWG文件不再允许修改

说明：

1 本程序仅是用来测试只要，加密部分比较简单但已经不是原图了

2  发布加密生成的 Lock 图形和 acad200xdoc.vlx 文件打包在一起

3  如果你是为了研究破解之方，请备份好原图

4 加密后的图形可以编辑、打印、绘制等，只是不能保存

5 ealcok.vlx 为加密图形程序，加载后运行 ealock 命令自动生成加密图形

6 适用 2000+ 以上版本

lhj743

4 加密后的图形可以编辑、打印、绘制等，只是不能保存
------------
我无法下载附件！
请问楼主，可以复制到其他空白文件保存吗？
否则加密没用噢！

WRHCHINA

acad2005中没有所说的效果啊，能否搞个演示动画？

"发布加密生成的 Lock 图形和 acad200xdoc.vlx 文件打包在一起"，如何打包？就是放在一起吗？

LUCAS

acad2004中也沒有所說的效果啊!
不知甚麼原因?反正程式沒有鎖圖效果!!!!  8-(

eachy

最初由 LUCAS 发布
[B]acad2004中也沒有所說的效果啊!
不知甚麼原因?反正程式沒有鎖圖效果!!!!  8-( [/B]

重新修改了程序，加密后的图纸显示 DWG Is Lock！ 字样。
压缩包仅放了一个 acad200xdoc.vlx 文件，请自行修改为对应的版本
Acad2000 -〉acad2000doc.vlx
Acad2002 -> acad2002doc.vlx
acad2004 -> acad2004doc.vlx
acad2005 -> acad2005doc.vlx

改为对应的文件和加密的dwg放在一起这样做只是为了自动加载，当然不改名字也可以手动加载完成解密。

xgwl

试了半天，不明白楼主的意思！ 加密后的图纸显示 DWG Is Lock！ 字样, 就这样吗？ 再打开还是显示DWG Is Lock! 什么也看不到了啊！ 希望有个演示就好了！

eachy

最初由 xgwl 发布
[B]试了半天，不明白楼主的意思！ 加密后的图纸显示 DWG Is Lock！ 字样, 就这样吗？ 再打开还是显示DWG Is Lock! 什么也看不到了啊！ 希望有个演示就好了！ [/B]

加载 acad200xdoc.vlx 文件就会还原

柔柔

原理嘛，1-->60
解密嘛，0-->60
这种加密只对不知道对象数据和对编程一点都不会的用户起作用。
只要会这么关键一句，解密不费吹灰之力。
(entmod (subst (cons 60 0) (assoc 60 elist) elist))

不必把其它几句写出来了吧。哈哈～～～

eachy

最初由 柔柔 发布
[B]原理嘛，1-->60
解密嘛，0-->60
这种加密只对不知道对象数据和对编程一点都不会的用户起作用。
只要会这么关键一句，解密不费吹灰之力。
(entmod (subst (cons 60 0) (assoc 60 elist) elist))

不必把其它几?.. [/B]

隐藏只是一部分，你取消隐藏了也不是原图。

先用 ealock.vlx 处理一下图纸再试试。另附件已更新。

所谓加密有两层意思

1 图形经过一定的算法将里面的实体位置搞混乱，这是发布图形，即加密

2 解密部分使用保护程序将混乱的图形还原，这时候可以在cad内看到原始图形。但是保护程序会将看到的还原图形保护起来，禁止修改、禁止保存，如果进行这两个方面的操作将删除图纸中的所有实体，从而达到“加密”的目的。用户拿到的DWG不经过保护程序还原将是一个混乱的图形。


这个程序的保护部分可以分离出来，做成一个函数供用户调用，加密/还原部分你自己写，然后将打包编译，这样只有你自己才可以还原自己的图纸。

cqnj023

加载lock.vlx后，不能新建文档，否则会出现以下错误并退出cad。

eachy

最初由 cqnj023 发布
[B]加载lock.vlx后，不能新建文档，否则会出现以下错误并退出cad。 [/B]

可能和系统有关系，我在XP上顺利通过，Windows2000+CAD2002时好时坏。

xgwl

这回又没搞懂！ 一加载 Lock.vlx , 先是出来一个提示框， 然后图什么都没了！输入ealock说：未知命令“EALOCK“  我在天正6下用的！画了几根线试了试！ 这个加密最终是不是所有图形都隐藏了？ 自己也看不到？

zhouxj

我和xgwl 斑竹的结果一样。

cqnj023

更新后的lock.vlx加载后不用再运行什么命令就已经运行了，产生了不能新建对象及输出或存盘的保护措施。

aeo

ctrl+c
new
ctrl+v