Delphi 字符串加密与解密函数

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi 检测url地址是否有效

Delphi 使用 {$include} 或 {$i} 指令管理和调用自定义函数

Delphi vcl 鼠标左键长按功能的实现

Delphi下遍历文件夹下所有文件的递归算法

Delphi 试试带参数的 exit

Delphi 文件路径结尾去掉“\”

Delphi 中窗体form显示在第二个显示器中的方法

Delphi 判断文件路径，不存在则建立

Delphi twebbrowser流程讲解及如何判断下载网页成功

Delphi repeat until 运用

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 字符串加密与解密函数