delphi base64加解密

本文整理自网络，侵删。

 
代码效果如下

按钮1是将edit1内容加密，并存入text文件中，按钮2是在text文件中读取加密后的内容，并解密。 
unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, EncdDecd,StdCtrls;type  TForm1 = class(TForm)    edt1: TEdit;    edt2: TEdit;    edt3: TEdit;    btn1: TButton;    btn2: TButton;    procedure FormCreate(Sender: TObject);    procedure btn1Click(Sender: TObject);    procedure btn2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;  t:Text;  f:string;  implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);begin  edt2.Text:=EncodeString(edt1.Text);  if FileExists(f) then    begin      AssignFile(t,f);    end    else    begin      AssignFile(t,f);      Rewrite(t);    end;    Append(t);    Writeln(t,edt2.text);    CloseFile(t);end;procedure TForm1.btn2Click(Sender: TObject);vars:string;begin  if FileExists(f) then    begin      AssignFile(t,f);      Reset(t);      while not Eof(t) do        Readln(t,s);        edt3.Text:=DecodeString(s);    end;    CloseFile(t);end;procedure TForm1.FormCreate(Sender: TObject);begin  f:=ExtractFilePath(ParamStr(0))+'text.txt';end;end.
 

相关阅读 >>

Delphi checklistbox 用法

Delphi ttabcontrol在tabitem添加关闭按钮

Delphi 新建文件 复制文件 重命名文件名时 文件存在自动重命名

Delphi systemparametersinfo 用法

Delphixe5如何获取android手机sim卡串号

Delphi 获取cpuid的函数

Delphi 调用sql和mysql存储过程

Delphi xe 中使用正则表达式

Delphi 过滤字符串特殊符号的函数

Delphi中启用禁止cd驱动器自动运行播放

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

转载请注明出处：木庄网络博客 » delphi base64加解密