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

00071335

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

9 [% G$ l" X: ^6 G: s! l6 ?, e5 {

4 J- _& @2 p% ]7 v. s% j! x先给不了解LSP的同志稍微铺垫一下。
" G# G, a2 L5 j. M9 \3 U  m
2 R5 s* [6 Q, PACAD有个很大的优点,就是开放性,它有很多开放的接口,这给用户自定义以及第三方二次开发提供了极大的方便。ACAD用户化门槛不算高,只要有兴趣、有些耐心,你总可以亲自动手不同程度地进行自定义。

% p: I4 W) G8 B( o- q. g  i马上要讨论的是关于启动自动化的AUTOLISP接口,这个接口现在被人用来搞了点恶作剧。
" T7 K" n, Y- B: B: Y! M* S* G
在ACAD启动或开图时会被自动加载的LSP文件
浅见,这种LSP包括:
ACAD.LSP,新装的纯ACAD里面没有这个文件。一般由用户自己编写或者第三方软件提供,放在ACAD目录或SUPPORT子夹都可以。
ACADR$.LSP,$是系统版本号,比如ACADR14.LSP,在SUPPORT子夹。
  V# p4 k& p& f7 m3 E+ i还有一种先不说了.

2 e+ G$ d% Z$ U+ q3 G& g加载时自动运行的由defun函数定义的函数名
& n. X; N5 }: g6 O0 z: }- ?7 h就一种,S::STARTUP,它和ACAD.LSP配套,同时不支持其他扩展名为LSP的文件
可能是因为这个原因,目标被定位于ACAD.LSP? 不知道了,其实不一定非用S::STARTUP,用了那就说明这位大虾是个追求完美的人~

铺垫好了,来看看这个病毒acad.lsp的作用~
/ h# C8 o! M$ R
& c( @! u/ G9 W+ ?- p% T{00.定义自动函数S::STARTUP
6 W/ a9 y2 q0 b) Q
+ Y- Z9 t* A& Q" I. y{01.获取CMDECHO变量,改设为0,一般程序最后会再改回去,
2 r5 q" i( r( N) \2 ?" t. l0 i- w目的是悄悄地进村打枪地不要.大家都喜欢这么干 }

! g1 a+ T% t" e6 S{02.通过搜索base.dcl文件,获取ACAD安装路径(support子夹) }
7 d9 Y9 P: V. g) [7 I
{03.获取菜单文件完整路径和名称,后来又没用~}

{04.获取当前图形文件完整路径和名称,截取当前工作路径}

" }4 y  C* F' v: r1 X' X5 S; _{05.获取当前首选ACAD.LSP文件完整路径和名称,截取其路径}

+ X2 H' F* C0 E+ o! d% s8 d  \{06.预设程序标记变量LSPBJ为0,意思是假设还没得手}

& r' `9 S5 @' D+ A9 k3 J! D{07.用只读方式打开support中的ACAD.LSP,如文件不存在则建立同名文件
& c% R  `! j2 [6 ^1 Q1 U逐行检查此ACAD.LSP文件内容,一旦发现某行开头为(load "acadapp")
( |. ^2 C/ Z0 o" z则设程序标记变量LSPBJ为1,表示已经得手过
只读任务结束，关闭文件}
7 t( {6 a4 L( L. d" Y6 d
{08.如果找到的ACAD.LSP路径和当前工作路径不同，
* g+ U" Y. Y/ j+ }6 p并且不在ACAD\support里面，则
{如果LSPBJ为0，也即尚未得手，那么
就在ACAD\support\acad.lsp文件末尾添加(load "acadapp")(princ),
即ACAD启动或开图时自动加载acadapp.lsp并隐蔽命令行反应。
然后同路径创建acadapp.lsp文件，作为刚改过的acad.lsp的备份. }
. V$ W) m. U1 _, n- ~1 d6 M& i{如果LSPBJ为1,即已得手,且当前绘图不是未命名的新绘图任务,则
用复写ACAD\support\acadapp.lsp的方式
: L( L# M% V( Z$ c) D在当前工作路径创建acad.lsp. }
2 Y6 L/ f* ]2 b1 `  U3 }}
;注:到此为止,ACAD启动时必搜的程序文件路径里面都放好了此acad.lsp!
" f' b% u, I- _& M0 K7 f
3 K3 f/ U& Q# ~7 j1 E& r! F{09.程序开始做真正让大家不愉快的事情,
; x) }! a# O# O7 a3 C$ K+ F它取消了3个系统预设的命令名: 不止explode, 还有xref和xbind
# X) @- m5 \/ {/ }. ?8 Q. f' O" _可能因为Xref和xbind不是每个人都常用,所以好象报案的不多,
而explode几乎是所有用ACAD画图的人都难以避免使用的,就显得很典型}

S::STARTUP函数定义结束}

/ R$ m) U, o) D; E# F9 t. z5 w还没完,前面取消了那3个命令的定义,现在要重新定义它们,幸好这位大虾良心不算坏,只是让命令不起作用或者改成其他加法命令,并没写成破坏性函数或OS命令
! m8 |2 u2 D8 I8 ^- r; H- j
EXPLODE的新功能和交互情况是:
# ~9 ?! V2 g* c! I/ {0 r9 {command: EXPLODE
Seltct objects: 200 found
Select objects:
( `3 o' c7 w% R200 was not able to be explode
command:

随你怎么选,它就是说炸不了

然后XREF和XBIND这对难兄难弟双双被改成了insert,交互响应制作很不精良,根本就是空白,可能大虾忽然觉得倦了吧.

最后,它还重新定义了BONUS和EXPRESS TOOLS工具集里面提供的BURST命令,其实是个外部函数(c:burst)
BURST原来的用途是"Explode Attributes to Text",把属性文本炸成text类物体
7 s# k+ t1 Q8 l被重新定义后这样:
4 J5 Q3 j% ]/ K# K0 h" D0 T) bcommand: BURST
3 ~* G5 ~, J. g! PBURST----将图块中的文字炸开后成为实体
# A3 H& u! J* CSelect objects: 200 found
Select objects:
( V, z4 Q  ^  Z2 C) a2 D+ gcommand:

解决方案：  1、使用鸿业附带的专杀工具查杀
) f+ N) h. J7 Z5 j                 2、使用卡巴斯基反病毒Personal Pro进行查杀
2 y, B  K! g9 v, l! J4 ?) s/ _＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

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

gatcad

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

reacle

多谢了，很有帮助。

wangzhongtj

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

yanhany

太牛了，支持一把。

ontarget

支持一把