SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 超强CAD炸碎解密.lsp [打印本页]

作者: dieyer 时间: 2010-5-1 01:30
标题: 超强CAD炸碎解密.lsp
可解密贱人工具箱、钢构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, 下载次数: 20)

作者: shixiangli 时间: 2010-5-16 01:01
我先下下来，试下看看能用不。

作者: wotan3 时间: 2010-5-16 02:38
好东西。。下个试试

作者: yql1968-10 时间: 2010-6-1 05:52
好，能用，谢谢！

作者: hexiaofengxia 时间: 2010-6-19 02:01
还没有试过，待会就去试下效果

作者: YWS_cumt 时间: 2010-6-20 05:55
这么神奇，不知道效果怎么样？

作者: heshuiquan 时间: 2010-7-1 21:17
收藏一个，看看能否用上。

作者: yirenlzz833 时间: 2010-7-18 11:47
先试试。呵呵。

作者: pumpsonline 时间: 2010-8-8 07:29
以下载，如果好使推荐给大家

作者: 风雨阳光 时间: 2024-3-10 13:22
SolidWorks机械工程师网，顶一下。

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)