谁能解密"AutoCAD PROTECTED LISP file"?
(Defun C:BURST (/ item bitset bump att-text lastent burst-one burst<br/>BCNT BLAYER BCOLOR ELAST BLTYPE ETYPE PSFLAG ENAME )<br/>(if (not nop) <br/>(dscprinc))<br/>(Defun ITEM (N E) (CDR (Assoc N E)))<br/>(init_bonus_error <br/>(list<br/>(list "cmdecho" 0<br/>"highlight" 1<br/>)<br/>T ;flag. True means use undo for error clean up. <br/>);list <br/>);init_bonus_error<br/>(Defun BITSET (A B) (= (Boole 1 A B) B))<br/>(Setq bcnt 0)<br/>(Defun bump (prmpt)<br/>(Princ<br/>(Nth bcnt '("\r-" "\r\\" "\r|" "\r/")) <br/>)<br/>(Setq bcnt (Rem (1+ bcnt) 4))<br/>)<br/>(Defun ATT-TEXT (AENT / TENT ILIST INUM)<br/>(Setq TENT '((0 . "TEXT")))<br/>(ForEach INUM '(8<br/>6<br/>38<br/>39<br/>62<br/>67<br/>210<br/>10<br/>40<br/>1<br/>50<br/>41<br/>51<br/>7<br/>71<br/>72<br/>73<br/>11<br/>)<br/>(If (Setq ILIST (Assoc INUM AENT))<br/>(Setq TENT (Cons ILIST TENT))<br/>)<br/>)<br/>(Setq<br/>tent (Subst<br/>(Cons 73 (item 74 aent))<br/>(Assoc 72 tent)<br/>tent<br/>)<br/>)<br/>(EntMake (Reverse TENT))<br/>)<br/>(Defun LASTENT (/ E0 EN)<br/>(Setq E0 (EntLast))<br/>(While (Setq EN (EntNext E0))<br/>(Setq E0 EN)<br/>)<br/>E0<br/>)<br/>(Defun BURST-ONE (BNAME / BENT ANAME ENT ATYPE AENT AGAIN ENAME<br/>ENT SS-COLOR SS-LAYER SS-LTYPE mirror ss-mirror<br/>mlast)<br/>(Setq<br/>BENT (EntGet BNAME)<br/>BLAYER (ITEM 8 BENT)<br/>BCOLOR (ITEM 62 BENT)<br/>BCOLOR (Cond<br/>((> BCOLOR 0) BCOLOR)<br/>((= BCOLOR 0) "BYBLOCK")<br/>("BYLAYER")<br/>)<br/>BLTYPE (Cond ((ITEM 6 BENT)) ("BYLAYER"))<br/>)<br/>(Setq ELAST (LASTENT))<br/>(If (= 1 (ITEM 66 BENT))<br/>(Progn<br/>(Setq ANAME BNAME)<br/>(While (Setq<br/>ANAME (EntNext ANAME)<br/>AENT (EntGet ANAME)<br/>ATYPE (ITEM 0 AENT)<br/>AGAIN (= "ATTRIB" ATYPE)<br/>)<br/>(bump "Converting attributes")<br/>(ATT-TEXT AENT)<br/>)<br/>)<br/>)<br/>(Progn<br/>(bump "Exploding block")<br/>(Command "_.explode" BNAME)<br/>)<br/>(Setq<br/>SS-LAYER (SsAdd)<br/>SS-COLOR (SsAdd)<br/>SS-LTYPE (SsAdd)<br/>ENAME ELAST<br/>)<br/>(While (Setq ENAME (EntNext ENAME))<br/>(bump "Gathering pieces")<br/>(Setq<br/>ENT (EntGet ENAME)<br/>ETYPE (ITEM 0 ENT)<br/>)<br/>(If (= "ATTDEF" ETYPE)<br/>(Progn<br/>(If (BITSET (ITEM 70 ENT) 2)<br/>(ATT-TEXT ENT)<br/>)<br/>(EntDel ENAME)<br/>)<br/>(Progn<br/>(If (= "0" (ITEM 8 ENT))<br/>(SsAdd ENAME SS-LAYER)<br/>)<br/>(If (= 0 (ITEM 62 ENT))<br/>(SsAdd ENAME SS-COLOR)<br/>)<br/>(If (= "BYBLOCK" (ITEM 6 ENT))<br/>(SsAdd ENAME SS-LTYPE)<br/>)<br/>)<br/>)<br/>)<br/>(If (> (SsLength SS-LAYER) 0)<br/>(Progn<br/>(bump "Fixing layers")<br/>(Command<br/>"_.chprop" SS-LAYER "" "_LA" BLAYER ""<br/>)<br/>)<br/>)<br/>(If (> (SsLength SS-COLOR) 0)<br/>(Progn<br/>(bump "Fixing colors")<br/>(Command<br/>"_.chprop" SS-COLOR "" "_C" BCOLOR ""<br/>)<br/>)<br/>)<br/>(If (> (SsLength SS-LTYPE) 0)<br/>(Progn<br/>(bump "Fixing linetypes")<br/>(Command<br/>"_.chprop" SS-LTYPE "" "_LT" BLTYPE ""<br/>)<br/>)<br/>)<br/>)<br/>(Defun BURST (/ SS1)<br/>(setq PSFLAG (if (= 1 (caar (vports)))<br/>1 0<br/>)<br/>)<br/>(Setq SS1 (SsGet (list (cons 0 "INSERT")(cons 67 PSFLAG))))<br/>(If SS1<br/>(Progn<br/>(Setvar "highlight" 0)<br/>(terpri)<br/>(Repeat<br/>(SsLength SS1)<br/>(Setq ENAME (SsName SS1 0))<br/>(SsDel ENAME SS1)<br/>(BURST-ONE ENAME)<br/>)<br/>(princ "\n")<br/>)<br/>)<br/>)<br/>(BURST)<br/>(restore_old_error)<br/>);end defun<br/>(Princ "\nBURST 调入, BURST——将图块中的文字炸开后成为实体")<br/>(Princ)<br/>(Princ)<br/> <p>真厉害！能否赐教是怎样解密的？</p> <p>谢谢<strong><font face="Verdana" color="#61b713">aicr317</font></strong>奉献！</p> liu_kunlun发表于2008-10-9 19:40:00static/image/common/back.gif谢谢aicr317奉献！帮助别人比自己得到更快乐! 感謝分享 aicr317发表于2008-10-9 20:52:00static/image/common/back.gif帮助别人比自己得到更快乐!
<p>请教<strong><em>aicr317,您有办法解开 FAS 或 LVX 文件吗??</em></strong></p><p><strong><em>请教您了</em></strong></p> 多谢谢，确是好东西 谢谢<strong><font face="Verdana" color="#61b713">aicr317</font></strong>奉献
页:
[1]
2