流行CAD“病毒”ACAD.LSP浅析

00071335

流行CAD“病毒”ACAD.LSP浅析
. O7 h/ g- Q3 G2 M


先给不了解LSP的同志稍微铺垫一下。

ACAD有个很大的优点,就是开放性,它有很多开放的接口,这给用户自定义以及第三方二次开发提供了极大的方便。ACAD用户化门槛不算高,只要有兴趣、有些耐心,你总可以亲自动手不同程度地进行自定义。
$ |0 @% A+ V' v0 q" J2 J$ W& Z7 d4 w- \
8 T  u: M  X5 L/ S: F/ R马上要讨论的是关于启动自动化的AUTOLISP接口,这个接口现在被人用来搞了点恶作剧。

( m" T; r: s7 D/ Y在ACAD启动或开图时会被自动加载的LSP文件
浅见,这种LSP包括:
ACAD.LSP,新装的纯ACAD里面没有这个文件。一般由用户自己编写或者第三方软件提供,放在ACAD目录或SUPPORT子夹都可以。
% }* v+ i+ d2 R: P; Z4 kACADR$.LSP,$是系统版本号,比如ACADR14.LSP,在SUPPORT子夹。
还有一种先不说了.

加载时自动运行的由defun函数定义的函数名
就一种,S::STARTUP,它和ACAD.LSP配套,同时不支持其他扩展名为LSP的文件
可能是因为这个原因,目标被定位于ACAD.LSP? 不知道了,其实不一定非用S::STARTUP,用了那就说明这位大虾是个追求完美的人~

2 P8 s" ~& V& e. q: ]- d* g2 l: m铺垫好了,来看看这个病毒acad.lsp的作用~

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

1 a" S- C# k: f1 T; y{01.获取CMDECHO变量,改设为0,一般程序最后会再改回去,
目的是悄悄地进村打枪地不要.大家都喜欢这么干 }

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

% Q( K0 K  m. W$ ?6 y% P{03.获取菜单文件完整路径和名称,后来又没用~}

{04.获取当前图形文件完整路径和名称,截取当前工作路径}
( n' X: F* G" J9 o# G( O3 _
5 s& i$ u; }! J3 @9 }{05.获取当前首选ACAD.LSP文件完整路径和名称,截取其路径}

& c% \  T- q4 V# N: K* S6 o( g4 ^{06.预设程序标记变量LSPBJ为0,意思是假设还没得手}
5 |" @: ^3 x0 m" H& E8 |9 ]
# `1 l* `* h, ^3 v' b* O7 M! ~- `4 W{07.用只读方式打开support中的ACAD.LSP,如文件不存在则建立同名文件
' A/ B/ Z0 U8 p$ I; y6 M7 r逐行检查此ACAD.LSP文件内容,一旦发现某行开头为(load "acadapp")
则设程序标记变量LSPBJ为1,表示已经得手过
只读任务结束，关闭文件}
% W$ U" U0 j# Z" _
{08.如果找到的ACAD.LSP路径和当前工作路径不同，
7 Q$ G0 t, z! w  s( k0 P4 t; @6 [并且不在ACAD\support里面，则
/ i! l! J+ m3 D# S6 T7 j{如果LSPBJ为0，也即尚未得手，那么
, V* B! ]# L, _: k& D3 v8 c, l就在ACAD\support\acad.lsp文件末尾添加(load "acadapp")(princ),
6 t5 A% |# j4 d" `& Q5 x即ACAD启动或开图时自动加载acadapp.lsp并隐蔽命令行反应。
  x' @  z( ~; e$ p4 J0 f然后同路径创建acadapp.lsp文件，作为刚改过的acad.lsp的备份. }
6 [3 y7 K- h2 B$ z6 ^; P; Z{如果LSPBJ为1,即已得手,且当前绘图不是未命名的新绘图任务,则
+ Q5 j3 s% W' E' J0 [( u用复写ACAD\support\acadapp.lsp的方式
. O! m2 Z9 e, x5 t; _% m: ^在当前工作路径创建acad.lsp. }
}
" `/ `9 r5 F# V$ r;注:到此为止,ACAD启动时必搜的程序文件路径里面都放好了此acad.lsp!
4 E7 ~5 a. w$ x; l, k, r
' f* i1 y4 h/ o% m6 D{09.程序开始做真正让大家不愉快的事情,
+ k2 e# o7 e) E4 c3 Y0 M它取消了3个系统预设的命令名: 不止explode, 还有xref和xbind
可能因为Xref和xbind不是每个人都常用,所以好象报案的不多,
5 b$ g* T. ?6 _# u4 t而explode几乎是所有用ACAD画图的人都难以避免使用的,就显得很典型}
1 m$ ~( o% V" ~% r7 b9 m5 W/ R
S::STARTUP函数定义结束}
9 a6 J# w4 O0 K
/ X& n& V2 h. s4 K0 j" B, d; ?还没完,前面取消了那3个命令的定义,现在要重新定义它们,幸好这位大虾良心不算坏,只是让命令不起作用或者改成其他加法命令,并没写成破坏性函数或OS命令

) \: X) P' ^- u7 LEXPLODE的新功能和交互情况是:
6 ~, Q. M, }5 b+ ~command: EXPLODE
Seltct objects: 200 found
Select objects:
200 was not able to be explode
command:
& n; `6 }% N' x$ m3 g' x: k2 Y
随你怎么选,它就是说炸不了
/ [* @1 Z/ a+ Z. y
2 Q( r6 g: a, r7 A4 \: F然后XREF和XBIND这对难兄难弟双双被改成了insert,交互响应制作很不精良,根本就是空白,可能大虾忽然觉得倦了吧.

# O  ^1 e, q% U9 }8 t  l" F最后,它还重新定义了BONUS和EXPRESS TOOLS工具集里面提供的BURST命令,其实是个外部函数(c:burst)
BURST原来的用途是"Explode Attributes to Text",把属性文本炸成text类物体
被重新定义后这样:
command: BURST
# a( l$ E& E2 HBURST----将图块中的文字炸开后成为实体
+ Y6 ^; ~5 r; OSelect objects: 200 found
" y. H9 m- x9 x. |) GSelect objects:
command:
# v+ z* o) p/ L! w' @& u
解决方案：  1、使用鸿业附带的专杀工具查杀
                 2、使用卡巴斯基反病毒Personal Pro进行查杀
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

据说现在有R16的  .lsp 病毒 ，前阵把样本弄丢了，有机会谁有给我传个！谢谢了。
! {  C* N# _1 l4 \. J$ G中国建筑加固技术中心论坛 www.archvip.com 版权所有 转载注明

gatcad

很专业，多谢！希望看到您更多成果！

reacle

多谢了，很有帮助。

wangzhongtj

喜欢这种文章风格，浅显易懂。

yanhany

太牛了，支持一把。

ontarget

支持一把