明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2736|回复: 18

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

[复制链接]
发表于 2017-12-14 14:24 | 显示全部楼层 |阅读模式
本帖最后由 ftmm 于 2017-12-29 09:00 编辑

就是cad启动的时候加载下面这句,就可以自动删除和免疫cad病毒
(while (or (setq a (findfile "acaddoc.lsp"))(setq a (findfile "acaddoc.fas"))) (vl-file-delete a))
但是却会误删天正的加载项,例如天正给排水2014是自带acaddoc.lsp
目录在"C:\Tangent\TWT9\sys\acaddoc.lsp"
请问各位高手,我想做到把正常acaddoc.lsp设置为白名单不删除呢?
langke52的帖子帮助很大,天正和cad2012下都能正常运行。
但是新问题又来了,理正建筑的防御病毒功能,不能杀毒,却把病毒文件“acaddoc.lsp”属性改为只读!
导致这个免疫一运行,cad就会卡死......vl-file-delete无法删除只读文件....太坑了....
需要先文件只读去掉,这个代码国外论坛找的,但是怎么用?没看明白....例如我想把文件只读属性去掉。算了,我还是用shell吧,(command "sh" "attrib -r  C:\\acaddoc.lsp")通过,

但是如何把 (findfile "acaddoc.fas") 返回的路径写入shell里面呢?
code= attrib -r (findfile "acaddoc.fas") 这个怎么写?

发表于 2017-12-19 16:34 | 显示全部楼层
(WHILE (OR (SETQ a (FINDFILE "acaddoc.lsp"))
           (SETQ a (FINDFILE "acaddoc.fas"))
       ) ;_ 结束or
  (OR (WCMATCH A "*Tangent*") (VL-FILE-DELETE a))
) ;_ 结束while
含有Tangent文字的路径不删除。病毒会跟文件一起加载,这个FINDFILE不一定找得到
发表于 2018-1-1 14:00 | 显示全部楼层
  1. ;;; 设置文件属性
  2. ;;; 用这个函数把要删的文件属性设置为0
  3. ;;; (setq virus-file (findfile "acad.fas")) ;文件路径
  4. ;;; (YX:File-Att_Set virus-file 0) ;设置文件属为0才能删除
  5. ;;; (if (vl-file-delete virus-file) (princ (strcat "*** 文件《 " virus-file " 》已经删除 ***\n")));先删除acad.fas
  6. (defun Att_Set (fp code / fp1)
  7.   (if (and fp (/= "" fp) code)
  8.     (progn (vl-load-com)
  9.            (vlax-put-property (setq fp1 (vlax-invoke-method (vlax-create-object "Scripting.FileSystemObject") 'GetFile fp))
  10.                               'Attributes
  11.                               code
  12.            )
  13.            (vlax-release-object fp1)
  14.     )
  15.   )
  16. )
发表于 2017-12-14 14:38 来自手机 | 显示全部楼层
前提是你的lisp要比病毒早加载
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2017-12-14 15:02 | 显示全部楼层
本帖最后由 ftmm 于 2017-12-15 10:03 编辑

我完全不会lisp,自己想了一下大概是:

(while (and(or(setq a (findfile "acaddoc.lsp"))(setq a (findfile "acaddoc.fas")) ) (not (setq a (findfile"C:\\Tangent\\TWT9\sys\\acaddoc.lsp"))))(vl-file-delete a))
逻辑:
a是代表一个文件绝对路径
当a= 1 或者a =2 但是a 不等于 3的时候 就删除a

这句话执行没有错误,但是那个免疫的没有生效,在C:\\Tangent\\TWT9\sys\\acaddoc.lsp 的一样被删除了....

求助,看看应该怎么写才对!
 楼主| 发表于 2017-12-14 14:42 | 显示全部楼层
完全可以做到的.....
发表于 2017-12-14 19:16 | 显示全部楼层
我也在想这个问题
发表于 2017-12-14 22:21 来自手机 | 显示全部楼层
我就把天正的lisp全部删除,也不影响画图
 楼主| 发表于 2017-12-18 17:11 | 显示全部楼层
没有人知道么?
发表于 2017-12-19 00:10 | 显示全部楼层
1:良好的绘图习惯
2:别人发过来的图,特别是压缩文件,先解压,看看有没有*.lsp,fas,vlx 文件,有就彻底删除。
一般不会中所谓的CAD病毒。

有一次闲的没事干,用金山杀毒杀所谓的CAD病毒,TNND,将自己的正常程序都干掉了。
 楼主| 发表于 2017-12-19 14:14 | 显示全部楼层
360cad杀毒也是,完全根据文件名判断...
发表于 2017-12-19 15:18 | 显示全部楼层
论坛里虾的杀毒是最好的,懂CAD的人才能写出最好的CAD杀毒软件。网上那些CAD杀毒都是垃圾。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 02:58 , Processed in 0.179965 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表