为什么unlisp解不开加密的lisp,请哪位高人指点一下

shxh24

龙龙仔

lisp加密有好几,像convert7加密的lisp,要处理一下才可以解密,把它传上来,让大家试试!![br]lisp加密有好几,像convert7加密的lisp,要处理一下才可以解密,把它传上来,让大家试试!!

shxh24

龙龙仔

(defun _@LD (FILE)
  (if (and (not (member FILE _TCHATOML))
           (load (strcat _PREFIX FILE))
      )
    (setq _TCHATOML (cons FILE _TCHATOML))
  )
  (princ)
)
(defun C:CLEAN () (setq _TCHATOML NIL))
(defun GETPFX (/ STR STR1 I J N)
  (setq        STR  (getvar "acadprefix")
        STR1 (strcase STR)
        N    (strlen STR)
        I    3
        J    1
  )
  (while (and (/= "\\SYS1;" (substr STR1 I 6)) (> N I))
    (setq I (1+ I))
  )
  (if (> N I)
    (setq _PREFIX1 (strcat (substr STR 1 (+ I 4)) "\\")
          J           (+ I 6)
          I           (+ J 6)
    )
    (setq I 6)
  )
  (while (and (/= "\\SYS;" (substr STR1 I 5)) (> N I))
    (setq I (1+ I))
  )
  (strcat (substr STR J (- I J)) "\\")
)
(defun ANGTOS1 (A) (angtos A (getvar "aunits") 9))
(defun REDRAW_LE ()
  (foreach E LE_DRW (redraw E 4))
  (setq LE_DRW NIL)
)
(defun *ERROR* (MSG)
  (REDRAW_LE)
  (setvar "cmdecho" 0)
  (setvar "users1" ".")
  (UCSOFF)
  (LINE1)
)
(defun S::STARTUP ()
  (if (not (menugroup "tch"))
    (command "menu" "tch.mns")
  )
  (princ "\n≡ 天正给排水Ⅱ v2.0 ≡")
  (princ)
)
(setq _PREFIX0        (GETPFX)
      _PREFIX        (strcat _PREFIX0 "LISP\\")
      _DIM_AUTO        t
      _IS_V14        0
      _PI2        (/ pi 2)
)
(if (not _PREFIX1)
  (setq _PREFIX1 _PREFIX)
)
(setvar "cmdecho" 0)
(_@LD "loadcfg")
(LOADCFG)
(setq T_BLIP (nth 4 _CFGDATA))
(setvar        "blipmode"
        (if T_BLIP
          0
          1
        )
)
(setvar "limcheck" 0)

shxh24

谢谢。其实我虽然一直在用lisp，自己却不会编。请问有什么简单易学的办法可以解密呢？[br]

shxh24

龙龙仔

论坛上已有说明解密UNLSP.EXE的使用法,找找看会有更大的收护!!
不会LISP的话,解密后也不会修改程序,解密就没有多大用途。
书:Visual LISP for AutoCAD2002程序设计〉作者:陈伯雄
(但还没有出版,我也在等它)

shxh24