Delphi 字符串加密与解密函数
时间:2019-08-04 12:53:03
收藏:0
阅读:389
EncdDecd 单元: EncodeString、DecodeString、EncodeBase64、DecodeBase64 uses EncdDecd; const str = ‘万一的 Delphi 博客‘; procedure TForm1.Button1Click(Sender: TObject); var strEncode,strDecode: string; begin strEncode := EncodeString(str); strDecode := DecodeString(strEncode); ShowMessageFmt(‘%s‘#10#13‘%s‘, [strEncode, strDecode]); end; procedure TForm1.Button2Click(Sender: TObject); var strEncode,strDecode: string; begin strEncode := EncodeBase64(BytesOf(str), Length(BytesOf(str))); strDecode := StringOf(DecodeBase64(strEncode)); ShowMessageFmt(‘%s‘#10#13‘%s‘, [strEncode, strDecode]); end;
原文:https://www.cnblogs.com/jijm123/p/11297571.html
评论(0)