牛阿哥 发表于 2017-11-8 17:54:51

谁能解密"AutoCAD PROTECTED LISP file"?

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

xyp1964 发表于 2017-11-8 19:34:07

慎用！


vlisp2012 发表于 2017-11-9 09:54:59

yuan zhang li hai

牛阿哥 发表于 2017-11-9 11:58:29

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

lidaxiu 发表于 2017-11-9 12:50:00

院长这个咋还收费，不是好多东西能破开么
(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)
)

前生 发表于 2017-11-10 01:15:06

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

pengfei2010 发表于 2017-11-10 08:49:14

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

hhh454 发表于 2017-11-12 09:13:48

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

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

hhh454 发表于 2017-11-13 11:14:37

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

院长说的有道理
页: [1]
查看完整版本: 谁能解密"AutoCAD PROTECTED LISP file"?