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

eachy

游客，如果您要查看本帖隐藏内容请回复

bing314

可以在2004里面用么?

xiguao

不能有效加密，如果不将加密的图与解密文件放在同一目录，打开加密dwg文件后，加载如下代码的lsp文件，也就是将每个图元附加反应器，然后再加载解密文件，就生成了正常图元的数据，存放在一个文件中，然后对该文件进行处理，再打开不要解密的原加密文件，用entmake函数生成可见的图元，解蜜完成。代码如下：

2. 
   
3. (defun c:jm ()
   
4.   (vl-load-com)
   
5.   (setq
   
6.     doc        (vlax-get-property (vlax-get-acad-object) 'activedocument)
   
7.   )
   
8. 
   
9. ;;; (vlax-map-collection
   
10. ;;;   (vlax-get-property doc 'modelspace)
    
11. ;;;  '(lambda (x) (vla-put-visible x :vlax-true))
    
12. ;;; )
    
13.   (vlax-map-collection
    
14.     (vlax-get-property doc 'modelspace)
    
15.     '(lambda (x)
    
16.        (vlr-object-reactor
    
17.          (list x)
    
18.          nil
    
19.          '((:vlr-objectClosed . putdata))
    
20.        )
    
21.      )
    
22.   )
    
23. )
    
24. (defun putdata (notifier-object reactor-object parameter-list / enti)
    
25.   (if (vla-get-visible notifier-object)
    
26.     (progn
    
27.       (setq p (open "c:\\dataobj.lsp" "a"))
    
28.       (setq enti (vlax-vla-object->ename notifier-object))
    
29.       (setq enti1 (entget enti))
    
30.       (setq et 0)
    
31.       (princ "\n" p)
    
32.       (princ "(entmake '" p)
    
33.       (prin1 enti1 p)
    
34.       (princ ")" p)
    
35.       (close p)
    
36.     )
    
37.   ))

<br /> (defun c:jm ()<br />   (vl-load-com)<br />   (setq<br />     doc        (vlax-get-property (vlax-get-acad-object) 'activedocument)<br />   )<br /> <br /> ;;; (vlax-map-collection<br /> ;;;   (vlax-get-property doc 'modelspace)<br /> ;;;  '(lambda (x) (vla-put-visible x :vlax-true))<br /> ;;; )<br />   (vlax-map-collection<br />     (vlax-get-property doc 'modelspace)<br />     '(lambda (x)<br />        (vlr-object-reactor<br />          (list x)<br />          nil<br />          '((:vlr-objectClosed . putdata))<br />        )<br />      )<br />   )<br /> )<br /> (defun putdata (notifier-object reactor-object parameter-list / enti)<br />   (if (vla-get-visible notifier-object)<br />     (progn<br />       (setq p (open "c:\\dataobj.lsp" "a"))<br />       (setq enti (vlax-vla-object->ename notifier-object))<br />       (setq enti1 (entget enti))<br />       (setq et 0)<br />       (princ "\n" p)<br />       (princ "(entmake '" p)<br />       (prin1 enti1 p)<br />       (princ ")" p)<br />       (close p)<br />     )<br />   ))

只是还有一点，生成的dataobj.lsp文件，如果直接加载运行，会出错，只能将-1组和330组去掉后才能生成图元，还有文件中有两行大致相同，是有无60组码的区别，不知道为什么会这样。抛砖引玉，大家参考吧！

njshf

加密后的图形别人必须能看，否则加密何用？

aeo

最初由 LUCAS 发布
[B][HIDE]
[CODE]
;;這樣才能剎掉所有空間物件
(defun DELALL (VAR1 VAR2 / DOC)
  (vlax-map-collection
    (vlax-get-property
      (setq
        DOC (vlax-get-property (vlax-get-acad-object) 'ACTIVEDOCUMENT... [/B]

删除东西，当然可以，但最主要的是处理掉undo
因为我前面的vlr-remove-all ，就已经解掉了.

至于sdi ,我前面说的就是这意思，在另外的图档里就可以copy了
我可以先写一个反映器，使sdi永远是0（不知道能不能做到)
当然不为0也可以,ObjectDBX,应该也算一个图吧!

不过写一个反映器，在删除图元前，先输出对象应该可以吧.

eachy

游客，如果您要查看本帖隐藏内容请回复

lhj743

难过！
好多要积分限制！
可是，本论坛的加密都非常失败，
无论是转化为jpg还是pdf，都做得太过分，肯定对将来的交流都有影响！
本人有个加密的lsp程序，原滋原位的图纸成了一整块，可观看和打印，添加也行，就是不能编辑加密部分－－本来打算共享的，算了，看到这些限制就寒心，放弃这打算了！

eachy

最初由 lhj743 发布
[B]难过！
好多要积分限制！
可是，本论坛的加密都非常失败，
无论是转化为jpg还是pdf，都做得太过分，肯定对将来的交流都有影响！
本人有个加密的lsp程序，原滋原位的图纸成了一整块，可观看和打印，添加也行，就?.. [/B]

只有积极参与才会消除这种障碍

shisj

既然讨论就不要敝帚自珍了，积分限制，我们连学习的机会都没有，怎么提高,用反应器加密，总感觉还是不方便。

JSSJ

做这些加密的事，总的来说是烦人烦己。

它山之石

换个思路如何？
我将图中加入水印，是不可去除的。
当然你可以编辑我的图。但打印出来会有水印。
也算是对版权的保护。

csun

搞得太复杂了，就会成为lisp病毒，就像3721一样，人人喊打！

xiguao

针对楼主的加密程充，我己成功解出，只是方法哆嗦了一点，请高手多多指教！
源程序如下：

2. 
   
3. ;;;针对于网上加密的解密程序。推测加密方法为对所有物体设为不可见，然后对物体行
   
4. ;;;一系列的变形，设置永久反应器，就是ealock.vlx的主要工作。
   
5. ;;;永久反应器的回调函数就放在与加密图形一个目录下的*.vlx文件，先对物体还原，
   
6. ;;;然后设置一系列的禁止反应器，物体不能修改，也不能存盘。
   
7. ;;;解密思路是打开加密图形时不加载*.vlx，而加载本文件，对每个物体设置反应，
   
8. ;;;只要物体可见时输出物体数据，并禁止输出-1和330组码，这个在jm命令完。
   
9. ;;;然后加载*.vlx，即可得到data.lsp文件，关闭此加密dwg文件，不存。
   
10. ;;;重新不加载*.vlx打开加密dwg文件，加载本文件，运行xug命令，生成data01.lsp
    
11. ;;;文件，去除了60组码，全是可见图形，加载data01.lsp，生成解密后的所有dwg
    
12. ;;;物体。所强调的是要在加密的dwg文件下完成这些操作，是因为有可能块定等
    
13. ;;;不会出错。
    
14. (princ
    
15.   "解密命令：JM生成data.lsp;XUG生成data01.lsp，然后加载data01.lsp"
    
16. )
    
17. (defun c:jm ()
    
18.   (vl-load-com)
    
19.   (setq
    
20.     doc        (vlax-get-property (vlax-get-acad-object) 'activedocument)
    
21.   )
    
22.   (vlax-map-collection
    
23.     (vlax-get-property doc 'modelspace)
    
24.     '(lambda (x)
    
25.        (vlr-object-reactor
    
26.          (list x)
    
27.          nil
    
28.          '((:vlr-objectClosed . putdata))
    
29.        )
    
30.      )
    
31.   )
    
32. )
    
33. (defun putdata (notifier-object reactor-object parameter-list / enti)
    
34.   (if (vla-get-visible notifier-object)
    
35.     (progn
    
36.       (setq p (open "c:\\data.lsp" "a"))
    
37.       (setq enti (vlax-vla-object->ename notifier-object))
    
38.       (setq enti1 (entget enti))
    
39.       (princ "\n" p)
    
40.       (princ "(entmake '" p)
    
41.       (setq enti1 (vl-remove (assoc -1 enti1) enti1))
    
42.       (setq enti1 (vl-remove (assoc 330 enti1) enti1))
    
43.       (prin1 enti1 p)
    
44.       (princ ")" p)
    
45.       (close p)
    
46.     )
    
47.   )
    
48. )
    
49. 
    
50. (defun c:xug ()
    
51.   (setq        q (open "c:\\data.lsp" "r")
    
52.         w (open "c:\\data01.lsp" "a")
    
53.   )
    
54.   (while (setq rdl (read-line q))
    
55.     (setq fno (listp rdl))
    
56.     (IF        (not (wcmatch rdl "*(60 . 1)*"))
    
57.       (write-line rdl w)
    
58.     )
    
59.   )
    
60.   (close q)
    
61.   (close w)
    
62.   (princ)
    
63. )

<br /> ;;;针对于网上加密的解密程序。推测加密方法为对所有物体设为不可见，然后对物体行<br /> ;;;一系列的变形，设置永久反应器，就是ealock.vlx的主要工作。<br /> ;;;永久反应器的回调函数就放在与加密图形一个目录下的*.vlx文件，先对物体还原，<br /> ;;;然后设置一系列的禁止反应器，物体不能修改，也不能存盘。<br /> ;;;解密思路是打开加密图形时不加载*.vlx，而加载本文件，对每个物体设置反应，<br /> ;;;只要物体可见时输出物体数据，并禁止输出-1和330组码，这个在jm命令完。<br /> ;;;然后加载*.vlx，即可得到data.lsp文件，关闭此加密dwg文件，不存。<br /> ;;;重新不加载*.vlx打开加密dwg文件，加载本文件，运行xug命令，生成data01.lsp<br /> ;;;文件，去除了60组码，全是可见图形，加载data01.lsp，生成解密后的所有dwg<br /> ;;;物体。所强调的是要在加密的dwg文件下完成这些操作，是因为有可能块定等<br /> ;;;不会出错。<br /> (princ<br />   "解密命令：JM生成data.lsp;XUG生成data01.lsp，然后加载data01.lsp"<br /> )<br /> (defun c:jm ()<br />   (vl-load-com)<br />   (setq<br />     doc        (vlax-get-property (vlax-get-acad-object) 'activedocument)<br />   )<br />   (vlax-map-collection<br />     (vlax-get-property doc 'modelspace)<br />     '(lambda (x)<br />        (vlr-object-reactor<br />          (list x)<br />          nil<br />          '((:vlr-objectClosed . putdata))<br />        )<br />      )<br />   )<br /> )<br /> (defun putdata (notifier-object reactor-object parameter-list / enti)<br />   (if (vla-get-visible notifier-object)<br />     (progn<br />       (setq p (open "c:\\data.lsp" "a"))<br />       (setq enti (vlax-vla-object->ename notifier-object))<br />       (setq enti1 (entget enti))<br />       (princ "\n" p)<br />       (princ "(entmake '" p)<br />       (setq enti1 (vl-remove (assoc -1 enti1) enti1))<br />       (setq enti1 (vl-remove (assoc 330 enti1) enti1))<br />       (prin1 enti1 p)<br />       (princ ")" p)<br />       (close p)<br />     )<br />   )<br /> )<br /> <br /> (defun c:xug ()<br />   (setq        q (open "c:\\data.lsp" "r")<br />         w (open "c:\\data01.lsp" "a")<br />   )<br />   (while (setq rdl (read-line q))<br />     (setq fno (listp rdl))<br />     (IF        (not (wcmatch rdl "*(60 . 1)*"))<br />       (write-line rdl w)<br />     )<br />   )<br />   (close q)<br />   (close w)<br />   (princ)<br /> )

eachy

游客，如果您要查看本帖隐藏内容请回复

cdlh

eachy 老大：
你看看这个加密程序如何？
http://www.xdcad.net/forum/showt ... 1257424#post1257424

我觉得要解开图形还要加一个vlx文件总是不太方便，如果甲方将vlx文件误删了，那就出大问题了。毕竟甲方的大部分都是菜鸟呀。另外还要考虑到用R14的怎么办？你不可能强制人家都升级吧。在单位用D版我们可不敢，版权局的家伙们成天钉着呢。