public byte[] Encrypt(string content)
{
IDataCryptoProvider provider = CreateCrypto();
// 先将内容用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);
}

Crypto 这个没有提供现成的，你可以看看 IINDY 有没有封装这个。反正我知道 MD5 是封装好的。
function Encrypt(content:string): Tbytes;
begin
Result := [];
provider := Txxx.create;
try
// 先将内容用GBK 转码成byte 数组
buffer := TEncoding.GetEncoding('GB2312').GetBytes(content);
buffer := provider.Encrypt(buffer);
// 用base64 编码，变成可打印字符串
s := base64函数(buffer);
result := TEncoding.ASCII.GetBytes(s);
finally
freeandnil(provider);
end;
end;
//代码变化不大。主要是需要对应的函数或类。