Basic Encryption with the XOR command

參考引用
--
Dim strResult As String
Dim strChar1 As String * 1
Dim strChar2 As String * 1
 
   strChar1 = "E"
   strChar2 = "z"
   strResult = Chr(Asc(strChar1) Xor Asc(strChar2))