(XD::String:unHex)HEX编码字串解码

st788796

2. 
   
3. (defun XD::String:unHex        (hex / _split)
   
4.   (defun _split        (s / len i lst)
   
5.     (setq len (strlen s)
   
6.           i   1
   
7.     )
   
8.     (repeat (/ len 2)
   
9.       (setq lst        (cons (substr s i 2)
   
10.                       lst
    
11.                 )
    
12.             i        (+ i 2)
    
13.       )
    
14.     )
    
15.     (reverse lst)
    
16.   )
    
17.   (if (and
    
18.         (= (type hex) 'STR)
    
19.         (xd::string:regexps "^(0x|0X)?(-)?([a-fA-F0-9]+$)" hex "")
    
20.         (setq hex (xd::string:regexpr "^[0x|0X]" hex "" ""))
    
21.         (zerop (rem (strlen hex) 2))
    
22.       )
    
23.     (vl-list->string (mapcar 'xd::math:hex2dec (_split hex)))
    
24.   )
    
25. )

<br /> (defun XD::String:unHex        (hex / _split)<br />   (defun _split        (s / len i lst)<br />     (setq len (strlen s)<br />           i   1<br />     )<br />     (repeat (/ len 2)<br />       (setq lst        (cons (substr s i 2)<br />                       lst<br />                 )<br />             i        (+ i 2)<br />       )<br />     )<br />     (reverse lst)<br />   )<br />   (if (and<br />         (= (type hex) 'STR)<br />         (xd::string:regexps "^(0x|0X)?(-)?([a-fA-F0-9]+$)" hex "")<br />         (setq hex (xd::string:regexpr "^[0x|0X]" hex "" ""))<br />         (zerop (rem (strlen hex) 2))<br />       )<br />     (vl-list->string (mapcar 'xd::math:hex2dec (_split hex)))<br />   )<br /> )

1. 
   
2. _$ (XD::STRING:UNHEX "5844434144BFD5BCE4")
   
3. "XDCAD空间"
   
4. _$

复制代码