Question

这个语句是C#的，请问如何用delphi写出来？

// 先将内容用GBK 转码成byte 数组
byte[] buffer = Encoding.GetEncoding("GB2312").GetBytes(content);
// 加密变成密文
byte[] result = provider.Encrypt(buffer);
// 用base64 编码，变成可打印字符串
string s = Convert.ToBase64String(result);
// 转成ascii 字节流
return Encoding.ASCII.GetBytes(s);

Answer 1

这是 BASE64 编码的，delphi 中自带有个EncdDecd 类，里面提供了编码和解码函数，分别是：

function EncodeString(const Input: string): string; 

function DecodeString(const Input: string): string;

追问

我没找到这个类在哪啊，能把这个上述代码具体写法写出来吗？

追答

引用EncdDecd.pas单元。