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
© 2014 bubuko.com 版权所有 - 联系我们:wmxa8@hotmail.com
打开技术之扣,分享程序人生!