（XD::String:XorText）两字符串异或（XOR)运算

marting

1. (defun XD::String:XorText ( text password )
   
2.     ;;  简单的异或运算
   
3.     (   (lambda ( codes mask i j )
   
4.             (vl-list->string
   
5.                 (mapcar
   
6.                    '(lambda ( x )
   
7.                         (boole 6 x
   
8.                             (nth
   
9.                                 (if (eq (setq i (1+ i)) j) (setq i 0) i)
   
10.                                 mask
    
11.                             )
    
12.                         )
    
13.                     )
    
14.                     codes
    
15.                 )   
    
16.             )
    
17.         )
    
18.         (vl-string->list text)
    
19.         (vl-string->list password)
    
20.         -1
    
21.         (strlen password)
    
22.     )
    
23. )
    
24. 
    

(defun XD::String:XorText ( text password )<br />     ;;  简单的异或运算<br />     (   (lambda ( codes mask i j )<br />             (vl-list->string<br />                 (mapcar<br />                    '(lambda ( x )<br />                         (boole 6 x<br />                             (nth<br />                                 (if (eq (setq i (1+ i)) j) (setq i 0) i)<br />                                 mask<br />                             )<br />                         )<br />                     )<br />                     codes<br />                 )   <br />             )<br />         )<br />         (vl-string->list text)<br />         (vl-string->list password)<br />         -1<br />         (strlen password)<br />     )<br /> )<br /> <br />

命令: (setq a (XD::STRING:XORTEXT "XDCAD.Net" "XDCAD"))
"\000\000\000\000\000v\n&5"
命令: !a
"\000\000\000\000\000v\n&5"
命令: (XD::STRING:XORTEXT a "XDCAD")
"XDCAD.Net"

tanjurun

异或运算是个啥

一张单程票

看到好贴必赞，感谢分享！