谁能解密"AutoCAD PROTECTED LISP file"?

牛阿哥

这是公司开发R14二次开发的，用起来比较顺手。现在WIN7装不上，想编辑一下，但是不能破解。
希望大家帮忙！

xyp1964

慎用！

vlisp2012

yuan zhang li hai  

牛阿哥

AutoCAD PROTECTED LISP file怎么破解，整套编码都是加密的
可以告知吗

lidaxiu

院长这个咋还收费，不是好多东西能破开么
  (defun s::startup(/ fi rr als alsm mmn mnn m mm1)  
     (setvar "cmdecho" 0)
     (setq dictr (getvar "acadprefix"))
     (setq dictr (substr dictr 1 2))
     (setq dictr (strcat dictr "/Program Files/AutoCAD R14/"))
     (setq amdph (strcat dictr "amd"))
     (setq fi(open (strcat amdph "/sup/amd.cfg") "r"))
     (setq rr(read-line fi) als '())
     (while (/= rr nil)
              (setq m 1)
              (setq mm1(ascii (substr rr m 1)))
              (while (/= mm1 44)
                  (setq m (+ m 1))
                  (setq mm1(ascii (substr rr m 1)))
              )
             (setq mmn(substr rr 1 (- m 1)) mnn(substr rr (+ m 1)(strlen rr)))
             (setq alsm(list mmn mnn))
             (setq als (cons alsm als))  
             (setq rr(read-line fi))
     )
     (close fi)
     (setq %amdsys% als)
     (load "dw0/ahead")
     (load "dw0/setlayer")
     (load "dw0/setstyle")
     (load "dw0/dimver")
     (c:ahead)
     (c:setlayer)
     (c:setstyle)
     (c:dimver)
     (load "dw0/3c")
     (command "layer" "off" "dimbox" "")
     (princ)
)

前生

很久以前在DOS版本里面用的多。

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

hhh454

lidaxiu 发表于 2017-11-9 12:50
院长这个咋还收费，不是好多东西能破开么
  (defun s::startup(/ fi rr als alsm mmn mnn m mm1)  
      ...

我想知道这个有什么用，刚刚花了2个币

hhh454

hhh454 发表于 2017-11-12 09:13
我想知道这个有什么用，刚刚花了2个币

院长说的有道理