Lisp加密程序

xvjiex

谢谢分享，这个不会用。

yanshengjiang

一晃很多年过去了  不知道楼主还来明经不
(DEFUN C:TEST        ()
    (SETVAR "cmdecho" 0)
    (OYEAR_TIME)
    (SMWINWT)
    (SMWINRD)
    (setq Z01 (DEG->BIN (ATOI S01)))
    (setq Z02 (DEG->BIN (ATOI S02)))
    (setq Z03 (DEG->BIN (ATOI S03)))
    (setq Z04 (DEG->BIN (ATOI S04)))
    (setq Z05 (DEG->BIN (ATOI S05)))
    (setq Z06 (DEG->BIN (ATOI S06)))
    (setq Z07 (DEG->BIN (ATOI S07)))
    (setq Z08 (DEG->BIN (ATOI S08)))
    (if        (= N01 Z01)
      (PROGN
        (setq N01 nil)
        (setq Z01 nil)
        (if (= N02 Z02)
          (PROGN
            (setq N02 nil)
            (setq Z02 nil)
            (if        (= N03 Z03)

f4800

高手 佩服   虽然看不懂。。。。