ftwsnow

摘要： function ToUTF8Encode(str: string): string; //将字符串转UTF8编码 var b: Byte; begin for b in BytesOf(UTF8Encode(str)) do Result := Format('%s%%%.2x', [Result, b]); end; function Encode(const KeyContent, content : string) : string;//加密(密钥, 待加密串) var md5key : string; MyMD5: TIdHashMes... 阅读全文