Vbscript实现Hex（十六进制）与Ascii码互转

   nums = a2h("中国A")    
WScript.Echo nums    h2a(nums)
Function a2h(s)
    Dim i    
For i = 1 To Lenb(s) Step 2        
a2h = a2h & Hex(Ascb(Midb(s,i,1))) & Space(1) & Hex(Ascb(Midb(s,i+1,1))) & Space(1)    
Next
End Function
Function h2a(s)
    Dim arr    
Dim i    
arr = Split(RTrim(s))    
For i = 0 To UBound(arr) Step 2       
 WScript.Echo ChrW(CInt("&H" & arr(i+1)) * 256 + CInt("&H" & arr(i)))    
Next
End Function