提供三个acet*.fas里面的自定义函数

newer · 发表于 2013-8-5 13:07:21

ayl1004 发表于 2013-8-5 13:02
第四个fas，另外两个fas----util2 util3因为加入了错码加密方法，这方法用我现在的工具无法解密，但是可以 ...

哪些是现在解密过的，给大家贴上来啊。

ayl1004 · 发表于 2013-8-5 13:21:58

本帖最后由 ayl1004 于 2013-8-5 13:34 编辑

newer 发表于 2013-8-5 13:07
哪些是现在解密过的，给大家贴上来啊。

大大，我的工具是解密数据区的，这些公布的都是fas里的自定义函数代号名，后面的整数是编号，未公布的前面的编号都是存储的变量、函数、参数、以及浮点数和字符串两种lisp数据类型，还有fas内部函数，这些东西总不能公布吧；另外，表达式区的代码就是引用这些编号来执行函数运算的，我说过，还没整成工具。

我再声明一下，这些编号，是我的工具编的绝对编号，而不是被表达式引用的相对编号，想找相对编号，只要找到一个fas内部函数 _al-bind-alist 的相对编号就行了。
不能再说了，再说就露馅了，呵呵。。。

newer · 发表于 2013-8-5 14:01:14

ayl1004 发表于 2013-8-5 13:21
大大，我的工具是解密数据区的，这些公布的都是fas里的自定义函数代号名，后面的整数是编号，未公布的 ...

那就是看不到源码了哦？

ayl1004 · 发表于 2013-8-13 11:28:16

(defun ACET-SAFE-COMMAND (START END LST / N A RES)
(if START
(progn
(ACET-CMD-EXIT)
(command (CAR LST))
(SETQ N 1)
)
(SETQ N 0)
)
(while (< N (LENGTH LST))
(SETQ A (NTH N LST))
(if (NOT (EQUAL (GETVAR "cmdnames") ""))
(command A)
(SETQ N (+ (LENGTH LST) 100))
)
(SETQ N (+ N 1))
)
(if END
(ACET-CMD-EXIT)
)
(EQUAL N (LENGTH LST))
)
(defun ACET-UCS-CMD (LST / A CUCS ORG XDIR YDIR)
(ACET-SYSVAR-SET (LIST "osmode" 0))
(SETQ CUCS (ACET-UCS-GET nil))
(if (and (= 1 (LENGTH LST))
(EQUAL STR (TYPE (CAR LST)))
(SETQ A (CAR LST))
(or (ACET-STR-EQUAL (SUBSTR A 1 2) "_P")
(ACET-STR-EQUAL (SUBSTR A 1 1) "P")
)
)
(progn
(SETQ A (CAR ACET:UCS-LIST))
(SETQ ACET:UCS-LIST (CDR ACET:UCS-LIST))
(if A
(progn
(command "_.ucs")
(MAPCAR 'COMMAND LST)
(if (NOT (EQUAL A (ACET-UCS-GET nil)))
(progn
(SETQ ORG (TRANS (CAR A) 0 1))
(SETQ XDIR (TRANS (CADR A) 0 1 T))
(SETQ YDIR (TRANS (CADDR A) 0 1 T))
(command "_.ucs")
(command "_3p" ORG)
(command (ACET-GEOM-VECTOR-ADD ORG XDIR))
(command (ACET-GEOM-VECTOR-ADD ORG YDIR))
)
)
)
)
)
(progn
(command "_.ucs")
(MAPCAR 'COMMAND LST)
(SETQ A (CAR LST))
(if (or (NOT (EQUAL 2 (LENGTH LST)))
(NOT (EQUAL STR (TYPE A)))
(and (NOT (ACET-STR-EQUAL (SUBSTR A 1 2) "_S"))
(NOT (ACET-STR-EQUAL (SUBSTR A 1 1) "S"))
(NOT (ACET-STR-EQUAL (SUBSTR A 1 2) "_D"))
(NOT (ACET-STR-EQUAL (SUBSTR A 1 1) "D"))
)
)
(SETQ ACET:UCS-LIST (CONS CUCS ACET:UCS-LIST))
)
)
)
(ACET-SYSVAR-RESTORE)
)
(defun ACET-UCS-GET (NA / E1 ORG XDIR YDIR)
(if (and NA
(SETQ E1 (ENTGET NA ("*")))
(= "VIEWPORT" (CDR (ASSOC 0 E1)))
(= 1 (CDR (ASSOC 71 E1)))
)
(SETQ ORG (CDR (ASSOC 110 E1))
XDIR (CDR (ASSOC 111 E1))
YDIR (CDR (ASSOC 112 E1))
)
(SETQ ORG (GETVAR "ucsorg")
XDIR (GETVAR "ucsxdir")
YDIR (GETVAR "ucsydir")
)
)
(LIST ORG XDIR YDIR)
)
(defun ACET-PSPACE-VIEWPORT-ENAME (/ SS NA)
(SETQ SS
(SSGET "_x"
(LIST '(0 . "VIEWPORT")
'(67 . 1)
'(69 . 1)
(CONS 410 (ACET-STR-ESC-WILDCARDS (GETVAR "ctab")))
)
)
)
(if SS
(SETQ NA (SSNAME SS 0))
)
NA
)
(defun ACET-CURRENTVIEWPORT-ENAME (/ SS NA)
(SETQ SS
(SSGET "_x"
(LIST '(0 . "VIEWPORT")
'(67 . 1)
(CONS 69 (GETVAR "cvport"))
(CONS 410 (ACET-STR-ESC-WILDCARDS (GETVAR "ctab")))
)
)
)
(if SS
(SETQ NA (SSNAME SS 0))
)
NA
)
(defun ACET-SPINNER ()
(if (NOT #SPIN)
(SETQ #SPIN "-")
)
(cond
((= #SPIN "-") (SETQ #SPIN "\"))
((= #SPIN "\") (SETQ #SPIN "|"))
((= #SPIN "|") (SETQ #SPIN "/"))
(t (SETQ #SPIN "-"))
)
(PRINC (STRCAT (CHR 8) #SPIN))
)
(defun ACET-DXF (CODE E1)
(CDR (ASSOC CODE E1))
)
(defun ACET-GETVAR-FIXED-PROFILE (VAR / VAL KEY TP)
(SETQ KEY (vlax-product-key))
(SETQ KEY (STRCAT "HKEY_CURRENT_USER\" KEY "\\FixedProfile\\General"))
(if (SETQ VAL (VL-REGISTRY-READ KEY VAR))
(progn
(SETQ TP (SUBSTR VAL 1 5))
(SETQ VAL (SUBSTR VAL 6))
(cond
((EQUAL TP "REAL_") (SETQ VAL (ATOF VAL)))
((EQUAL TP "INT__") (SETQ VAL (ATOI VAL)))
((NOT (EQUAL TP "STR__")) (SETQ VAL (READ VAL)))
)
)
)
VAR
)
(defun ACET-GETVAR-CPROFILE (VAR / PROF VAL KEY TP)
(SETQ PROF (GETVAR "cprofile"))
(SETQ KEY (vlax-product-key))
(SETQ KEY (STRCAT "HKEY_CURRENT_USER\" KEY "\\Profiles\" PROF "\\General"))
(if (SETQ VAL (VL-REGISTRY-READ KEY VAR))
(progn
(SETQ TP (SUBSTR VAL 1 5))
(SETQ VAL (SUBSTR VAL 6))
(cond
((EQUAL TP "REAL_") (SETQ VAL (ATOF VAL)))
((EQUAL TP "INT__") (SETQ VAL (ATOI VAL)))
((NOT (EQUAL TP "STR__")) (SETQ VAL (READ VAL)))
)
)
)
VAR
)
(defun ACET-GETVAR-DWG (VAR / NA E1 LST N VAL E2)
(if (SETQ E1 (DICTSEARCH (NAMEDOBJDICT) "BNS_VARIABLES"))
(progn
(SETQ NA (CDR (ASSOC 255 E1)))
(if (SETQ E2 (DICTSEARCH NA VAR))
(progn
(SETQ E2 (CDR (MEMBER '(100 . "AcDbXrecord") E2)))
(SETQ LST (1 40 70 330 2))
(SETQ N 0)
(while (and (< N (LENGTH LST)) (NOT VAL))
(SETQ VAL (ASSOC (NTH N LST) E2))
(SETQ N (+ N 1))
)
(if (EQUAL (CAR VAL) 2)
(SETQ VAL (READ (CDR VAL)))
(SETQ VAL (CDR VAL))
)
)
)
)
)
VAL
)
(defun ACET-GETVAR (LST / VAR VAL FLAG)
(if (SETQ VAR (CAR LST))
(progn
(if (NOT (SETQ FLAG (CADR LST)))
(SETQ FLAG (+ 1 2 4))
)
(SETQ VAR (XSTRCASE VAR))
(if (= 1 (LOGAND 1 FLAG))
(SETQ VAL (ACET-GETVAR-DWG VAR))
)
(if (and (= 2 (LOGAND 2 FLAG)) (NOT VAL))
(SETQ VAL (ACET-GETVAR-CPROFILE VAR))
)
(if (and (= 4 (LOGAND 4 FLAG)) (NOT VAL))
(SETQ VAL (ACET-GETVAR-FIXED-PROFILE VAR))
)
)
)
VAL
)
(defun ACET-SETVAR-FIXED-PROFILE (VAR VAL / KEY TP)
(SETQ KEY (vlax-product-key))
(SETQ
KEY (STRCAT "HKEY_CURRENT_USER\" KEY "\\FixedProfile\\General")
)
(cond
((NOT VAL) (VL-REGISTRY-DELETE KEY VAR))
((or (EQUAL (TYPE VAL) 'STR)
(EQUAL (TYPE VAL) 'REAL)
(EQUAL (TYPE VAL) 'INT)
(EQUAL (TYPE VAL) 'LIST)
)
(SETQ TP (VL-PRIN1-TO-STRING (TYPE VAL)))
(while (< (STRLEN TP) 5)
(SETQ TP (STRCAT TP "_"))
)
(if (NOT (EQUAL (TYPE VAL) STR))
(SETQ VAL (VL-PRIN1-TO-STRING VAL))
)
(SETQ VAL (STRCAT TP VAL))
(VL-REGISTRY-WRITE KEY VAR VAL)
)
(t
(PRINC "\nInvalid type in acet-setvar-fixed-profile")
)
)
)

(defun ACET-SAFE-COMMAND (START END LST / N A RES) 
  (if START 
    (progn 
      (ACET-CMD-EXIT) 
      (command (CAR LST)) 
      (SETQ N 1) 
    ) 
    (SETQ N 0) 
  ) 
  (while (< N (LENGTH LST)) 
    (SETQ A (NTH N LST)) 
    (if        (NOT (EQUAL (GETVAR "cmdnames") "")) 
      (command A) 
      (SETQ N (+ (LENGTH LST) 100)) 
    ) 
    (SETQ N (+ N 1)) 
  ) 
  (if END 
    (ACET-CMD-EXIT) 
  ) 
  (EQUAL N (LENGTH LST)) 
) 
(defun ACET-UCS-CMD (LST / A CUCS ORG XDIR YDIR) 
  (ACET-SYSVAR-SET (LIST "osmode" 0)) 
  (SETQ CUCS (ACET-UCS-GET nil)) 
  (if (and (= 1 (LENGTH LST)) 
           (EQUAL STR (TYPE (CAR LST))) 
           (SETQ A (CAR LST)) 
           (or (ACET-STR-EQUAL (SUBSTR A 1 2) "_P") 
               (ACET-STR-EQUAL (SUBSTR A 1 1) "P") 
           ) 
      ) 
    (progn 
      (SETQ A (CAR ACET:UCS-LIST)) 
      (SETQ ACET:UCS-LIST (CDR ACET:UCS-LIST)) 
      (if A 
        (progn 
          (command "_.ucs") 
          (MAPCAR 'COMMAND LST) 
          (if (NOT (EQUAL A (ACET-UCS-GET nil))) 
            (progn 
              (SETQ ORG (TRANS (CAR A) 0 1)) 
              (SETQ XDIR (TRANS (CADR A) 0 1 T)) 
              (SETQ YDIR (TRANS (CADDR A) 0 1 T)) 
              (command "_.ucs") 
              (command "_3p" ORG) 
              (command (ACET-GEOM-VECTOR-ADD ORG XDIR)) 
              (command (ACET-GEOM-VECTOR-ADD ORG YDIR)) 
            ) 
          ) 
        ) 
      ) 
    ) 
    (progn 
      (command "_.ucs") 
      (MAPCAR 'COMMAND LST) 
      (SETQ A (CAR LST)) 
      (if (or (NOT (EQUAL 2 (LENGTH LST))) 
              (NOT (EQUAL STR (TYPE A))) 
              (and (NOT (ACET-STR-EQUAL (SUBSTR A 1 2) "_S")) 
                   (NOT (ACET-STR-EQUAL (SUBSTR A 1 1) "S")) 
                   (NOT (ACET-STR-EQUAL (SUBSTR A 1 2) "_D")) 
                   (NOT (ACET-STR-EQUAL (SUBSTR A 1 1) "D")) 
              ) 
          ) 
        (SETQ ACET:UCS-LIST (CONS CUCS ACET:UCS-LIST)) 
      ) 
    ) 
  ) 
  (ACET-SYSVAR-RESTORE) 
) 
(defun ACET-UCS-GET (NA / E1 ORG XDIR YDIR) 
  (if (and NA 
           (SETQ E1 (ENTGET NA ("*"))) 
           (= "VIEWPORT" (CDR (ASSOC 0 E1))) 
           (= 1 (CDR (ASSOC 71 E1))) 
      ) 
    (SETQ ORG  (CDR (ASSOC 110 E1)) 
          XDIR (CDR (ASSOC 111 E1)) 
          YDIR (CDR (ASSOC 112 E1)) 
    ) 
    (SETQ ORG  (GETVAR "ucsorg") 
          XDIR (GETVAR "ucsxdir") 
          YDIR (GETVAR "ucsydir") 
    ) 
  ) 
  (LIST ORG XDIR YDIR) 
) 
(defun ACET-PSPACE-VIEWPORT-ENAME (/ SS NA) 
  (SETQ        SS 
         (SSGET        "_x" 
                (LIST '(0 . "VIEWPORT") 
                      '(67 . 1) 
                      '(69 . 1) 
                      (CONS 410 (ACET-STR-ESC-WILDCARDS (GETVAR "ctab"))) 
                ) 
         ) 
  ) 
  (if SS 
    (SETQ NA (SSNAME SS 0)) 
  ) 
  NA 
) 
(defun ACET-CURRENTVIEWPORT-ENAME (/ SS NA) 
  (SETQ        SS 
         (SSGET        "_x" 
                (LIST '(0 . "VIEWPORT") 
                      '(67 . 1) 
                      (CONS 69 (GETVAR "cvport")) 
                      (CONS 410 (ACET-STR-ESC-WILDCARDS (GETVAR "ctab"))) 
                ) 
         ) 
  ) 
  (if SS 
    (SETQ NA (SSNAME SS 0)) 
  ) 
  NA 
) 
(defun ACET-SPINNER () 
  (if (NOT #SPIN) 
    (SETQ #SPIN "-") 
  ) 
  (cond 
    ((= #SPIN "-") (SETQ #SPIN "\")) 
    ((= #SPIN "\") (SETQ #SPIN "|")) 
    ((= #SPIN "|") (SETQ #SPIN "/")) 
    (t (SETQ #SPIN "-")) 
  ) 
  (PRINC (STRCAT (CHR 8) #SPIN)) 
) 
(defun ACET-DXF (CODE E1) 
  (CDR (ASSOC CODE E1)) 
) 
(defun ACET-GETVAR-FIXED-PROFILE (VAR / VAL KEY TP) 
  (SETQ KEY (vlax-product-key)) 
  (SETQ KEY (STRCAT "HKEY_CURRENT_USER\" KEY "\\FixedProfile\\General")) 
  (if (SETQ VAL (VL-REGISTRY-READ KEY VAR)) 
    (progn 
      (SETQ TP (SUBSTR VAL 1 5)) 
      (SETQ VAL (SUBSTR VAL 6)) 
      (cond 
        ((EQUAL TP "REAL_") (SETQ VAL (ATOF VAL))) 
        ((EQUAL TP "INT__") (SETQ VAL (ATOI VAL))) 
        ((NOT (EQUAL TP "STR__")) (SETQ VAL (READ VAL))) 
      ) 
    ) 
  ) 
  VAR 
) 
(defun ACET-GETVAR-CPROFILE (VAR / PROF VAL KEY TP) 
  (SETQ PROF (GETVAR "cprofile")) 
  (SETQ KEY (vlax-product-key)) 
  (SETQ KEY (STRCAT "HKEY_CURRENT_USER\" KEY "\\Profiles\" PROF "\\General")) 
  (if (SETQ VAL (VL-REGISTRY-READ KEY VAR)) 
    (progn 
      (SETQ TP (SUBSTR VAL 1 5)) 
      (SETQ VAL (SUBSTR VAL 6)) 
      (cond 
        ((EQUAL TP "REAL_") (SETQ VAL (ATOF VAL))) 
        ((EQUAL TP "INT__") (SETQ VAL (ATOI VAL))) 
        ((NOT (EQUAL TP "STR__")) (SETQ VAL (READ VAL))) 
      ) 
    ) 
  ) 
  VAR 
) 
(defun ACET-GETVAR-DWG (VAR / NA E1 LST N VAL E2) 
  (if (SETQ E1 (DICTSEARCH (NAMEDOBJDICT) "BNS_VARIABLES")) 
    (progn 
      (SETQ NA (CDR (ASSOC 255 E1))) 
      (if (SETQ E2 (DICTSEARCH NA VAR)) 
        (progn 
          (SETQ E2 (CDR (MEMBER '(100 . "AcDbXrecord") E2))) 
          (SETQ LST (1 40 70 330 2)) 
          (SETQ N 0) 
          (while (and (< N (LENGTH LST)) (NOT VAL)) 
            (SETQ VAL (ASSOC (NTH N LST) E2)) 
            (SETQ N (+ N 1)) 
          ) 
          (if (EQUAL (CAR VAL) 2) 
            (SETQ VAL (READ (CDR VAL))) 
            (SETQ VAL (CDR VAL)) 
          ) 
        ) 
      ) 
    ) 
  ) 
  VAL 
) 
(defun ACET-GETVAR (LST / VAR VAL FLAG) 
  (if (SETQ VAR (CAR LST)) 
    (progn 
      (if (NOT (SETQ FLAG (CADR LST))) 
        (SETQ FLAG (+ 1 2 4)) 
      ) 
      (SETQ VAR (XSTRCASE VAR)) 
      (if (= 1 (LOGAND 1 FLAG)) 
        (SETQ VAL (ACET-GETVAR-DWG VAR)) 
      ) 
      (if (and (= 2 (LOGAND 2 FLAG)) (NOT VAL)) 
        (SETQ VAL (ACET-GETVAR-CPROFILE VAR)) 
      ) 
      (if (and (= 4 (LOGAND 4 FLAG)) (NOT VAL)) 
        (SETQ VAL (ACET-GETVAR-FIXED-PROFILE VAR)) 
      ) 
    ) 
  ) 
  VAL 
) 
(defun ACET-SETVAR-FIXED-PROFILE (VAR VAL / KEY TP) 
  (SETQ KEY (vlax-product-key)) 
  (SETQ 
    KEY        (STRCAT "HKEY_CURRENT_USER\" KEY "\\FixedProfile\\General") 
  ) 
  (cond 
    ((NOT VAL) (VL-REGISTRY-DELETE KEY VAR)) 
    ((or (EQUAL (TYPE VAL) 'STR) 
         (EQUAL (TYPE VAL) 'REAL) 
         (EQUAL (TYPE VAL) 'INT) 
         (EQUAL (TYPE VAL) 'LIST) 
     ) 
     (SETQ TP (VL-PRIN1-TO-STRING (TYPE VAL))) 
     (while (< (STRLEN TP) 5) 
       (SETQ TP (STRCAT TP "_")) 
     ) 
     (if (NOT (EQUAL (TYPE VAL) STR)) 
       (SETQ VAL (VL-PRIN1-TO-STRING VAL)) 
     ) 
     (SETQ VAL (STRCAT TP VAL)) 
     (VL-REGISTRY-WRITE KEY VAR VAL) 
    ) 
    (t 
     (PRINC "\nInvalid type in acet-setvar-fixed-profile") 
    ) 
  ) 
)

newer · 发表于 2013-8-13 11:43:34

ayl1004 发表于 2013-8-13 11:28

大师，这个代码是解密出来就这样易读的吗？

ayl1004 · 发表于 2013-8-13 11:45:16

newer 发表于 2013-8-13 11:43
大师，这个代码是解密出来就这样易读的吗？

斑竹，你别损我了

手工整理的

st788796 · 发表于 2013-8-13 11:59:12

ayl1004 发表于 2013-8-13 11:45
斑竹，你别损我了

手工整理的

其实LZ给讲解下这个解密用什么写法会增加难度会更让Lisper少些担心{:soso_e100:}

ayl1004 · 发表于 2013-8-13 12:06:49

st788796 发表于 2013-8-13 11:59
其实LZ给讲解下这个解密用什么写法会增加难度会更让Lisper少些担心

感觉都差不多吧
神马都是浮云

ayl1004 · 发表于 2013-8-13 13:31:23

我忽然犯愁了，发这些函数定义是不是又得罪一些人了？

newer · 发表于 2013-8-13 13:48:45

本帖最后由 newer 于 2013-8-13 13:49 编辑

ayl1004 发表于 2013-8-13 13:31
我忽然犯愁了，发这些函数定义是不是又得罪一些人了？

得罪谁啊，要得罪也是ADESK公司，他们不会怪你的，你是普及他们产品嘛，他们自己的产品都不怕破解，还怕下面的而且是自己的 ACET FAS了。
除了他们，还有谁用这个ACET FAS挣钱的吗？

ayl1004 · 发表于 2013-8-13 13:51:06

可是，我大概看了一下，基本的功能acet里都有，这不是让部分人丢了饭碗？

newer · 发表于 2013-8-13 13:56:07

ayl1004 发表于 2013-8-13 13:51
可是，我大概看了一下，基本的功能acet里都有，这不是让部分人丢了饭碗？

原来的ACET不也是能用嘛，只是看不到源码而已了，你公布和没公布对用ACET来说没什么不同。你要这么说，XDRX API应该砸了更多人的饭碗，其实尼，不会的。

/db_自贡黄明儒_ · 发表于 2013-8-30 15:50:55

破解ACET-SYS-KEYSTATE的定义没有呀，我想不装ET就能使用这一函数

st788796 · 发表于 2013-8-30 16:09:41

/db_自贡黄明儒_ 发表于 2013-8-30 15:50
破解ACET-SYS-KEYSTATE的定义没有呀，我想不装ET就能使用这一函数

这是ARX定义的吧

ayl1004 · 发表于 2013-8-31 23:44:53

本帖最后由 ayl1004 于 2013-9-3 16:20 编辑

全部6个.fas的非完整.lsp文件，里面的单引号自己添加，跳转指令自己整理。

账号		自动登录	找回密码
密码			立即注册

[发布] 提供三个acet*.fas里面的自定义函数

点评

点评

点评

评分

点评

点评

点评

点评

点评

点评

评分