[讨论]：为何我的机子时不时出现acad.lsp

黑米

为何我的机子时不时出现acad.lsp

我把它删后,一会又自动生成,,之后我加载的一些小软件就都不能用了.

大家有没有遇到这个问题呢?

sky3912

这是个病毒啦，好像论坛里面有怎么删除的哦，楼主可以找找看啊！！

lzhhtm

如果有acad.lsp，在R14下炸开命令都不能用，把它直接删除就可以啦

网络真我

楼主搜索下今天下午有人已经问过的问题
有非常详细的回复 站内还有好多杀毒方面的帖子

黑米

我用网友编的这个程序,可不是会出现?晕
(setvar "cmdecho" 0)
(if (findfile "acad.lsp")
  (progn
    (setq stl (mapcar
                '(lambda (x) (vl-string-trim "\\\"\t()" x))
                (mapcar 'strcase (xdl-readfile (findfile "acad.lsp")))
              )
    )
    (if        (or (vl-position "ACADAPP" stl)
            (vl-position "ACADAPP.LSP" stl)
            (vl-position "WRITEAPP" stl)
        )
      (progn
        (vl-file-delete (findfile "acad.lsp"))
        (if (findfile "acadapp.lsp")
          (vl-file-delete app)
        )
        (alert
          "  您的CAD可能被ACAD.LSP病毒感染，\n\n失效命令已经恢复，退出CAD后请杀毒!"
        )
      )
    )
    (if        (= (type c:explode) 'USUBR)
      (progn
        (setq c:explode nil)
        (command ".redefine" "explode" ".explode")
      )
    )
    (if        (= (type c:burst) 'USUBR)
      (progn
        (setq c:burst nil)
        (command ".redefine" "burst" ".burst")
      )
    )
    (if        (= (type c:xref) 'USUBR)
      (progn
        (setq c:xref nil)
        (command ".redefine" "xref" ".xref")
      )
    )
    (if        (= (type c:xbind) 'USUBR)
      (progn
        (setq c:xbind nil)
        (command ".redefine" "xbind" ".xbind")
      )
    )
    (setq fl  nil
          app nil
          stl nil
    )
   
  )
)
(princ)

sfcbbq

我的2006还是出现它，用瑞星杀不死

marcoyuwen

用ACAD病毒专杀工具或江民，可以杀！

JOSDENNIS

用這個來殺

xiaojinwen

这个文件在CAD运行时会自动复制，
解决方法：
使用搜索，将所有硬盘里的ACAD.LSP找出来 全部删除。