Lisp代码在线加密(内测)

我爱lisp

(defun c:tt()(defun XcOk803 ()(MfRn182))(defun TmKa712 ()(MdDx318))(defun VlXo269 ()(defun IpNd91 ()(setq JkOw877 (eval (read (vl-list->string '( 99 111 110 115)))))))(defun GsOe397 ()(defun HnOx186 ()  (setq VpSc563 (OaCw11 KmMc782))))(defun NcGw832 ()(defun CvMh190 ()(setq OaCw11 (eval (read (vl-list->string '( 103 101 116 105 110 116)))))))(defun BwCr148 ()(PyFu526))(defun YgLv613 ()(defun RtFo314 ()(setq AfVl654 (eval (read (vl-list->string '( 99 111 110 115)))))))(defun VfYb152 ()(CdKu306))(defun HpDn50 ()(defun XiWm960 ()  (setq VpSc563 FuKm786)))(defun AyNi496 ()(defun DxLn95 ()(setq OcQm873 (eval (read (vl-list->string '( 43)))))))(defun KiSo488 ()(DxLn95))(defun AbBx360 ()(CvMh190))(defun GnEh145 ()(IiPq972))(defun RrJg923 ()(LhDf529))(defun PsWr368 ()(EuAv745))(defun LfHx141 ()(NaRh968))(defun IkDg836 ()(defun GqAp533 ()(setq LjBl434 (eval (read (vl-list->string '( 99 100 114)))))))(defun BbMo401 ()(defun EuAv745 ()(setq InYo227 (eval (read (vl-list->string '( 105 116 111 97)))))))(defun MaHq927 ()(GqAp533))(defun GlQr281 ()(defun MdDx318 ()(setq SpGh102 (eval (read (vl-list->string '( 101 110 116 109 111 100)))))))(defun CxBw53 ()(defun SrUw964 ()(setq KmMc782 (eval (read (vl-list->string '( 34 92 110 32 112 108 101 97 115 101 32 105 110 112 117 116 32 110 111 46 49 32 60 49 62 58 32 34)))))))(defun KgEy624 ()(defun JmCs680 ()(setq TqFn7 (eval (read (vl-list->string '( 61)))))))(defun QuUx273 ()(defun PyFu526 ()(setq SvEt219 (eval (read (vl-list->string '( 34 92 110 32 112 108 101 97 115 101 32 115 101 108 101 99 116 32 98 97 114 32 109 97 114 107 58 32 34)))))))(defun RvTe178 ()(defun NaRh968 ()(setq DvWx231 (eval (read (vl-list->string '( 49)))))))(defun OyUf484 ()(IpNd91))(defun HjFa931 ()(ByXn245))(defun WjMw919 ()(YeWg749))(defun DtBq840 ()(defun IiPq972 ()(setq EaJt998 (eval (read (vl-list->string '( 49)))))))(defun FqPy492 ()(defun TsSd869 ()(setq XgIx99 (eval (read (vl-list->string '( 49)))))))(defun LdSi277 ()(defun LhDf529 ()(setq LfOp666 (eval (read (vl-list->string '( 101 110 116 103 101 116)))))))(defun EoQs587 ()(SrUw964))(defun ToJf617 ()(defun ByXn245 ()(setq EsLg881 (eval (read (vl-list->string '( 115 117 98 115 116)))))))(defun XeMp708 ()(RtFo314))(defun RpVq61 ()(defun YeWg749 ()(setq WjTo446 (eval (read (vl-list->string '( 101 110 116 115 101 108)))))))(defun UkYi364 ()(JmCs680))(defun FsEo356 ()(HnOx186))(defun PwGp621 ()(defun WlIe310 ()(setq UoTv658 (eval (read (vl-list->string '( 97 115 115 111 99)))))))(defun OvIj716 ()(TsSd869))(defun DvPg704 ()(WlIe310))(defun WhXb211 ()(defun MfRn182 ()   (while VpSc563    (setq YiHd4 (InYo227 VpSc563))    (repeat EaJt998      (setq NeCf714 (WjTo446 SvEt219)    CbWf442 (LfOp666 (HrYu438 NeCf714))    PwQg662 (LjBl434 (UoTv658  '1  CbWf442))      )       (setq CbWf442 (EsLg881 (AfVl654  '1  YiHd4) (JkOw877  '1  PwQg662) CbWf442))      (SpGh102 CbWf442)    )     (setq VpSc563 (OcQm873 VpSc563 XgIx99))  )))(defun YaCv955 ()(defun QsHi409 ()  (if (TqFn7 VpSc563 FuKm786)    (setq VpSc563 DvWx231)  )))(defun OxVy579 ()(QsHi409))(defun JgTj583 ()(XiWm960))(defun VjJy405 ()(defun CdKu306 ()(setq HrYu438 (eval (read (vl-list->string '( 99 97 114)))))))(VjJy405)(RvTe178)(BbMo401)(KgEy624)(GsOe397)(PwGp621)(YaCv955)(ToJf617)(DtBq840)(YgLv613)(IkDg836)(RpVq61)(NcGw832)(WhXb211)(GlQr281)(CxBw53)(LdSi277)(HpDn50)(QuUx273)(AyNi496)(VlXo269)(FqPy492)(OvIj716)(KiSo488)(TmKa712)(OyUf484)(XeMp708)(HjFa931)(DvPg704)(MaHq927)(VfYb152)(RrJg923)(BwCr148)(WjMw919)(GnEh145)(PsWr368)(LfHx141)(UkYi364)(EoQs587)(AbBx360)(JgTj583)(FsEo356)(OxVy579)(XcOk803))
加密这个还有有破解可能的，比如：(setq JkOw877 (eval (read (vl-list->string '(99 111 110 115))))) 运行该语句结果：#<SUBR @0a421f64 CONS>  分解出来就是cons
这个加密核心语句就行(eval (read (vl-list->string '( 按这个思路可以追溯到原函数名，再按数字顺序还原为原始顺序。一点愚见，等待砖头