12.28日更新-cad病毒免疫的一种有效方法

langke52

(WHILE (OR (SETQ a (FINDFILE "acaddoc.lsp"))
           (SETQ a (FINDFILE "acaddoc.fas"))
       ) ;_ 结束or
  (OR (WCMATCH A "*Tangent*") (VL-FILE-DELETE a))
) ;_ 结束while
含有Tangent文字的路径不删除。病毒会跟文件一起加载，这个FINDFILE不一定找得到

血司

前生 发表于 2017-12-19 00:10
1：良好的绘图习惯
2：别人发过来的图，特别是压缩文件，先解压，看看有没有*.lsp,fas,vlx 文件，有就彻底 ...

正解，就是一句，良好的使用习惯

caokancc

所有的dwg文件，不要双击dwg打开，而是从cad软件里面选择打开。。。

xman00

cabinsummer 发表于 2017-12-19 15:18
论坛里虾的杀毒是最好的，懂CAD的人才能写出最好的CAD杀毒软件。网上那些CAD杀毒都是垃圾。

具体是哪位大家哇，能否上传你提到的它的杀毒作品

ftmm

顶一下......

mj0000

找个病毒文件，里面有改文件属性的函数

ftmm

找了3-4个，都没发现有。

mj0000

2. ;;; 设置文件属性
   
3. ;;; 用这个函数把要删的文件属性设置为0
   
4. ;;; (setq virus-file (findfile "acad.fas")) ;文件路径
   
5. ;;; (YX:File-Att_Set virus-file 0) ;设置文件属为0才能删除
   
6. ;;; (if (vl-file-delete virus-file) (princ (strcat "*** 文件《 " virus-file " 》已经删除 ***\n")));先删除acad.fas
   
7. (defun Att_Set (fp code / fp1)
   
8.   (if (and fp (/= "" fp) code)
   
9.     (progn (vl-load-com)
   
10.            (vlax-put-property (setq fp1 (vlax-invoke-method (vlax-create-object "Scripting.FileSystemObject") 'GetFile fp))
    
11.                               'Attributes
    
12.                               code
    
13.            )
    
14.            (vlax-release-object fp1)
    
15.     )
    
16.   )
    
17. )

;;; 设置文件属性<br /> ;;; 用这个函数把要删的文件属性设置为0<br /> ;;; (setq virus-file (findfile "acad.fas")) ;文件路径<br /> ;;; (YX:File-Att_Set virus-file 0) ;设置文件属为0才能删除<br /> ;;; (if (vl-file-delete virus-file) (princ (strcat "*** 文件《 " virus-file " 》已经删除 ***\n")));先删除acad.fas<br /> (defun Att_Set (fp code / fp1)<br />   (if (and fp (/= "" fp) code)<br />     (progn (vl-load-com)<br />            (vlax-put-property (setq fp1 (vlax-invoke-method (vlax-create-object "Scripting.FileSystemObject") 'GetFile fp))<br />                               'Attributes<br />                               code<br />            )<br />            (vlax-release-object fp1)<br />     )<br />   )<br /> )

前生

实际上。acad以及acaddoc是自定义函数加载的常用模式，你说的这种或这些方法，没用。