RSS订阅 | 匿名投稿
您的位置:网站首页 > 加密 > 正文

Delphi 字符串加密与解密函数

作者:admin 来源: 日期:2018/1/12 20:02:12 人气: 标签:

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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料