[原创]：自己制作ACAD.LSP病毒免疫程序

eachy

可以将下面的代码加入到自定义的一个自动加载MNL或者Lisp中，即使ACAD已经感染ACAD.LSP病毒，当前图形中的失效命令也会自动恢复。

2. 
   
3. (setvar "cmdecho" 0)
   
4. (if (findfile "acad.lsp")
   
5.   (progn
   
6.     (setq stl (mapcar
   
7.                 '(lambda (x) (vl-string-trim "\\"\t()" x))
   
8.                 (mapcar 'strcase ([URL=http://www.xdcad.net/forum/showthread.php?s=&threadid=462486][color=blue][U]xdl-readfile[/U][/color][/URL] (findfile "acad.lsp")))
   
9.               )
   
10.     )
    
11.     (if        (or (vl-position "ACADAPP" stl)
    
12.             (vl-position "ACADAPP.LSP" stl)
    
13.             (vl-position "WRITEAPP" stl)
    
14.         )
    
15.       (progn
    
16.         (vl-file-delete (findfile "acad.lsp"))
    
17.         (if (findfile "acadapp.lsp")
    
18.           (vl-file-delete app)
    
19.         )
    
20.         (alert
    
21.           "  您的CAD可能被ACAD.LSP病毒感染，\n\n失效命令已经恢复，退出CAD后请杀毒!"
    
22.         )
    
23.       )
    
24.     )
    
25.     (if        (= (type c:explode) 'USUBR)
    
26.       (progn
    
27.         (setq c:explode nil)
    
28.         (command ".redefine" "explode" ".explode")
    
29.       )
    
30.     )
    
31.     (if        (= (type c:burst) 'USUBR)
    
32.       (progn
    
33.         (setq c:burst nil)
    
34.         (command ".redefine" "burst" ".burst")
    
35.       )
    
36.     )
    
37.     (if        (= (type c:xref) 'USUBR)
    
38.       (progn
    
39.         (setq c:xref nil)
    
40.         (command ".redefine" "xref" ".xref")
    
41.       )
    
42.     )
    
43.     (if        (= (type c:xbind) 'USUBR)
    
44.       (progn
    
45.         (setq c:xbind nil)
    
46.         (command ".redefine" "xbind" ".xbind")
    
47.       )
    
48.     )
    
49.     (setq fl  nil
    
50.           app nil
    
51.           stl nil
    
52.     )
    
53.    
    
54.   )
    
55. )
    
56. (princ)

<br /> (setvar "cmdecho" 0)<br /> (if (findfile "acad.lsp")<br />   (progn<br />     (setq stl (mapcar<br />                 '(lambda (x) (vl-string-trim "\\"\t()" x))<br />                 (mapcar 'strcase ([URL=http://www.xdcad.net/forum/showthread.php?s=&threadid=462486][color=blue][U]xdl-readfile[/U][/color][/URL] (findfile "acad.lsp")))<br />               )<br />     )<br />     (if        (or (vl-position "ACADAPP" stl)<br />             (vl-position "ACADAPP.LSP" stl)<br />             (vl-position "WRITEAPP" stl)<br />         )<br />       (progn<br />         (vl-file-delete (findfile "acad.lsp"))<br />         (if (findfile "acadapp.lsp")<br />           (vl-file-delete app)<br />         )<br />         (alert<br />           "  您的CAD可能被ACAD.LSP病毒感染，\n\n失效命令已经恢复，退出CAD后请杀毒!"<br />         )<br />       )<br />     )<br />     (if        (= (type c:explode) 'USUBR)<br />       (progn<br />         (setq c:explode nil)<br />         (command ".redefine" "explode" ".explode")<br />       )<br />     )<br />     (if        (= (type c:burst) 'USUBR)<br />       (progn<br />         (setq c:burst nil)<br />         (command ".redefine" "burst" ".burst")<br />       )<br />     )<br />     (if        (= (type c:xref) 'USUBR)<br />       (progn<br />         (setq c:xref nil)<br />         (command ".redefine" "xref" ".xref")<br />       )<br />     )<br />     (if        (= (type c:xbind) 'USUBR)<br />       (progn<br />         (setq c:xbind nil)<br />         (command ".redefine" "xbind" ".xbind")<br />       )<br />     )<br />     (setq fl  nil<br />           app nil<br />           stl nil<br />     )<br />     <br />   )<br /> )<br /> (princ)

似水无痕

ACAD.LSP病毒目前我还没有遇到过，但是论坛上请求解毒的帖子还是不少。非常感谢eachy 斑竹的慷慨，我要下载下来好好研究一下！也顺便帮顶一下，希望大家都可以看到！
顺便问一下，eachy 兄的这个帖子为什么锁起了，是你自己锁的么？我下载了，好像是个帮助文件，里面全是e文，这么多年不学了，几乎记不得几个单词了！呵呵！
链接在此：http://www.xdcad.net/forum/showthread.php?s=&threadid=500414

[I]以下内容被“似水无痕”重新编辑过，也顺便学学用斜体字：[/I]

为了不至于在这个帖子中出现eachy兄说到的“无谓的水贴回复”情况，我还是把对你在三楼的回复说到这里，呵呵！
文件已经下载了，谢谢！
不知到怎么回事？这两天下载附件后，显示均为“下载次数为0”，我找了一个收取爱心币的帖子里下载了一个附件，结果显示仍然为0，可我的爱心币却少了一个！

eachy

该文档是部分 ET 函数的说明，标明的时间比较早，而且也不是全部的 ET 函数，为了避免无谓的水贴回复发帖后直接关闭的。

对ET函数有兴趣的可以下载后研究，虽是英文但还是比较简单的，只要知道调用方法和返回值，该函数你就至少掌握了 80%，剩下的 20% 就是编程中的应用技巧了。

zzx4274382

可否發一個帶病的我看一下

黑米

我之前机子上ACAD.lsp病毒和加载的lsp...,打开内容都一样

SZ008

我找了好久了，真是很感谢了！！！谢谢！！