depf_main.~pas

这是一个利用des算法加解密工具.可以用来加解密任何文件.

unit depf_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses des;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
srcstr,desstr:TStringStream;
ms:TMemoryStream;
begin
if trim(edit1.text)='' then
   begin
     showmessage('请选择要解密的文件');
     exit;
   end;
if trim(edit2.text)='' then
   begin
     showmessage('请输入解密密码');
     exit;
   end;
srcstr:=TStringStream.Create(s);
desstr:=TStringStream.Create(s);
ms:=TMemoryStream.Create;
ms.LoadFromFile(edit1.text);
ms.SaveToStream(srcstr);
desstr.WriteString(des.DecryStr(srcstr.DataString,trim(edit2.text)) );
ms.LoadFromStream(desstr);
if FileExists(pchar(trim(edit1.text))) then
  setfileattributes(pchar(trim(edit1.text)), FILE_ATTRIBUTE_NORMAL); //可写
ms.SaveToFile(trim(edit1.text));
setfileattributes(pchar(trim(edit1.text)), FILE_ATTRIBUTE_READONLY	);//只读
showmessage('处理完成');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
OpenDialog1.InitialDir:=GetCurrentDir;
OpenDialog1.Execute ;
if length(trim(OpenDialog1.FileName))>0 then
        edit1.text:=OpenDialog1.FileName ;

end;

procedure TForm1.Button4Click(Sender: TObject);
var
s:string;
srcstr,desstr:TStringStream;
ms:TMemoryStream;
begin
if trim(edit1.text)='' then
   begin
     showmessage('请选择要加密的文件');
     exit;
   end;
if trim(edit2.text)='' then
   begin
     showmessage('请输入加密密码');
     exit;
   end;
srcstr:=TStringStream.Create(s);
desstr:=TStringStream.Create(s);
ms:=TMemoryStream.Create;
ms.LoadFromFile(edit1.text);
ms.SaveToStream(srcstr);
desstr.WriteString(des.EncryStr(srcstr.DataString,trim(edit2.text)) );
ms.LoadFromStream(desstr);
if FileExists(pchar(trim(edit1.text))) then
  setfileattributes(pchar(trim(edit1.text)), FILE_ATTRIBUTE_NORMAL); //可写
ms.SaveToFile(trim(edit1.text));
setfileattributes(pchar(trim(edit1.text)), FILE_ATTRIBUTE_READONLY	);//只读
showmessage('处理完成');

end;

end.