超强CAD炸碎解密.lsp

dieyer · 发表于 2010-5-1 01:30:02

可解密贱人工具箱、钢构CAD、Smartlock、Lockup、CAD加密工具0.2等加锁的CAD图纸

源码如下，拷贝到写字板，存为 jiemi.lsp，拖到AutoCAD中。也可直接下载附件。

(defun C:JM1()
(setq e(car(entsel)))
(setq el(entget e))
(setq el2(list(cons 0 "INSERT")(assoc 10 el)(assoc 2 el)))
(command "erase" e "")
(setq enew(entmake el2))
(command "explode" "all")
(princ"\n你看是否解密了。再炸炸看，若不能，请重复执行此命令")
)
(defun C:JM2()
;下面查找匿名多重插入块，若有，反复炸碎
(command"_.undo""BE")
(while(setq ss1(ssget "X" (list(cons 0 "INSERT")(cons 67 0))))
  (setq tot(sslength ss1))
  (setq id 0)
  (while (< id tot)
(setq en(ssname ss1 id)) ;获取图块块名
(setq id(+ 1 id))
(setq el(entget en)) ;图块DXF表
(setq el2(list(cons 0 "INSERT")(assoc 10 el)(assoc 2 el))); 创造一个和“多重插入块”相同的普通图块dxf表
(command "erase" en "")  ;删除“多重插入块”
(entmake el2) ;插入一个和“多重插入块”相同的普通图块，就可以砸碎了
  )
  (setq n 0)
  ;下面看匿名多重插入块内部是否还有块，若有，反复炸碎
  (while(and(setq ss2(ssget "X" (list(cons 0 "INSERT")(cons 67 0)(cons -4 "=") (cons 70 1)(cons -4 "NOT>"))))(< n 10))
  (command "explode" ss2) ;彻底炸碎
  (setq n(+ 1 n)) ;防止死循环
  )
)
(command"_.undo""end")
)
(alert "解密！可解密贱人工具箱、钢构CAD、Smartlock、Lockup、CAD加密工具0.2等加锁的CAD图纸！\n\n命令：JM1 -- 简单解密,若一遍不行，就重复几次！ \n  JM2 -- 超强炸碎！")

超强炸碎解密.rar (852 Bytes, 下载次数: 19)