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 xe 提示没有定义decimalseparator等的解决方法

Delphi 删除整个目录

Delphi加载驱动的代码演示

Delphi 时间年月日，星期

Delphi idhttp友好错误信息的捕获

Delphi idsmtp发送邮件

Delphi byte类型算术运算

Delphi android调用授权管理打开通知监听服务

Delphi 获得指定进程的id号

Delphi 密码框写完后按enter直接登录

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

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