编写定制的文件流实现文件读写加密.docVIP

编写定制的文件流实现文件读写加密 编写定制的文件流实现文件读写加密 作者：吴国扬 阅读人次：1163 文章来源：计算机世界日报 发布时间：2007-8-30 网友评论(0)条 在Delphi中预定义了Tfilestream类，通过它可以对磁盘文件进行读写，笔者选定Tfilestream为基类，通过对其核心的两个读、写方法进行重载，编写定制的文件流，实现对文件的读、写进行加密。 　 首先，来看一下定制文件流（Tmystream）的声明： type Tmystream=class(Tfilestream) private fkey:string; public constructor create (const filename:string;mode:word); function read(var buffer;count:longint): longint;override; function write(const buffer;count:longint): longint;override; property key:string read fkey write fkey ; end; 　 在Tmystream的声名中，我们对read、write两个方法进行了重载，并添加了一个新的特性key，用以存储对文件进行加密时所需的密码。为实现文件读写的加密，在write方法中，将key的每个字符依次与buffer中的字符相加，将得到的结果写入文件，实现加密；在read方法中，将读出的内容依次与key的每个字符相减，实现解密。加密及解密的方法多种多样，读者可以通过改写相关代码，得到不同的加密方法。 程序清单如下： function Tmystream.write(const buffer; count:longint):longint; var Pbu,Pmy,mykey:pchar; i,enc:integer; begin getmem(pmy,count); //为pmy分配内存 mykey:=pchar(key); //将key转换为pchar指针 try pbu:=pchar(@buffer); //将buffer转换为pchar指针 for i:=0 to count-1 do //将key的每个字符以此与buffer的 每个字符循环相加,结果放入pmy指向的内存区 begin enc:=(ord(pbu[i])+ord(mykey [(i mod length(key))])) mod 256; Pmy[i]:=char(enc); end; result:=inherited write(Pmy^,count); //将pmy指向的内容写入文件 finally freemem(Pmy,count); end; end; function Tmystream.read(var buffer;count:longint): longint; var Pbu,Pmy,mykey:pchar; i,mycount,enc:integer; begin getmem(Pmy,count);//为pmy分配内存 mykey:=pchar(key);//将key转换为pchar指针 try mycount:=inherited read(Pmy^,count); //将文件内容读入pmy指向内存区 Pbu:=Pchar(@buffer);将buffer转换为pchar指针 for i:=0 to mycount-1 do//将key的每个字符依次 与pmy的每个字符循环相减，结果放入pbu指向的变量 begin enc:=(ord(Pmy[i])-ord(mykey [(i mod length(key))])) mod 256; Pbu[i]:=chr(enc); end; finally freemem(P count); end; result:=mycount; end; 　 完成定制文件流的编写后，便可在程序中应用，实现文件的读写加密，例程如下： unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,unit2,unit3; //unit2定义了Tmystream //unit3定义了输入密码对话框form3 type TForm1 = class(TForm) Button1