用Delphi制作文本文档程序，在文本中内容加密，我的思路是把文本内容打成乱码，在点击“解密”变回原来的

我以前也做过这种小程序。这个算法你可以自己设计，也可以用像什么MD5之类的加解密算法咯。

但因为不能粘贴附件，所以就贴点代码。

procedure TForm1.N2Click(Sender: TObject)//打开文件

var

tl:string

begin

if OpenDialog1.Execute then

begin

ListBox1.Clear

Caption:='文件加密解密器'+OpenDialog1.FileName

AssignFile(ATextFile,OpenDialog1.FileName)

Reset(ATextFile)

while not eof(ATextFile) do

begin

Readln(ATextFile,tl)

ListBox1.Items.Add(tl)

end

CloseFile(ATextFile)

end

end

function Encode(s:string):string//加密的核心部分

var

n,i:integer

str:string

begin

n:=length(s)

str:=''

for i:=1 to n do

begin

str:=str+char(ord(s[i])+10)

end

Encode:=str

end

function Decode(s:string):string//解密的核心部分

var

n,i:integer

str:string

begin

n:=length(s)

str:=''

for i:=1 to n do

begin

str:=str+char(ord(s[i])-10)

end

Decode:=str

end

procedure TForm1.N3Click(Sender: TObject)//加密

var

ln:integer

tl,nl:string

begin

if SaveDialog1.Execute then

begin

AssignFile(ATextFile,SaveDialog1.FileName)

Rewrite(ATextFile)

for ln:=0 to ListBox1.Items.Count-1 do

begin

tl:=ListBox1.Items[ln]

nl:=Encode(tl)//加密

Writeln(ATextFile,nl)

end

CloseFile(ATextFile)

end

end

procedure TForm1.N4Click(Sender: TObject)//解密

var

ln:integer

tl,nl:string

begin

if SaveDialog1.Execute then

begin

AssignFile(AtextFile,SaveDialog1.FileName)

Rewrite(ATextFile)

for ln:=0 to ListBox1.Items.Count-1 do

begin

tl:=ListBox1.Items[ln]

nl:=Decode(tl)//解密

Writeln(ATextFile,nl)

end

CloseFile(ATextFile)

end

end

dpr

为工程文件

dfm

为窗体文件

pas

为单元文件

cfg

配置文件

dof

为项目选项文件(一般没用)

dcu

compiled

units文件

,编译后的单元文件

res

资源文件

ddp

文件就是Delphi

Diagram

Portfolio简写,是用来保存Code

Editor中的Diagram信息的.

一般一个项目要考个别人,只需要

dpr,dfm,pas文件即可,如果有cfg,res也一块考(后两个文件很少用到)

Delphi单元文件

1.库单元文件头:其中声明了库单元的名字.

2.Interface部分:

由保留字interface开始,结束于保留字implementation,它用来声明引用的单元,常量,数据类型,变量,过程和函数.在Interface部分声明的变量,常量,数据类型,过程,函数都可以供外部引用,对整个程序而言是共有的.也就是说,对于所有引用该单元的单元来说,这些声明都是可见和可访问的.

在Interface部分,只需写出过程和函数的首部,具体的定义是在下面的implementation部分给出的.

Interface部分又可分为多个可选部分,分别为单元引入部分(uses),常量说明部分,类型说明部分,变量说明部分,过程和函数声明部分.

3.Implementation部分:

Implementation部分分为两部分.一部分是声明部分,包括单元引用,常量,类型,变量,过程和函数的声明,这一点和Interface部分相似.

区别有两点:

(1):在Implementation部分声明的只对本单元是公共的,可见的,其他单元即使引用了该单元,也不能访问它们.

(2):在Implementation部分声明的过程和函数,不需要遵循先声明后定义的规则,而可以直接写出过程和函数的定义.另一部分是在Interface部分声明的过程和函数的定义.

4.Initialization部分:

用于初始化该库单元,此处的代码最先执行.如果多个库单元中包含Initialization部分,那么它们的执行顺序就和Program的uses部分引用单元的出现顺序是一致的.

5.Finalization部分:

通常用于释放Initialization部分分配的资源.如果多个库单元中包含Finalization部分,其执行顺序和Initialization部分正好相反.

---