简易VB字符串加密解密函数