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

shxh24 发表于 2002-7-26 13:46:00

龙龙仔 发表于 2002-7-26 15:22:00

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

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

shxh24 发表于 2002-7-30 12:51:00

谢谢,请指点.

龙龙仔 发表于 2002-7-30 16:27:00

这只是平常加密LISP,为甚么你不会解????

(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 发表于 2002-7-30 18:15:00

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

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

shxh24 发表于 2002-7-31 12:44:00

请教龙兄，请问这个lisp怎么解？

龙龙仔 发表于 2002-7-31 13:13:00

论坛上已有说明解密UNLSP.EXE的使用法,找找看会有更大的收护!!

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

shxh24 发表于 2002-7-31 18:24:00

谢谢龙龙仔，我学会了。

页: [1]

明经CAD社区's Archiver