delphi xe5 对字符进行 base64 的加解密 实例,附带源码