Question

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

谁能给我给思路，最好相应的程序，谢谢了

Answer 1

我以前也做过这种小程序。这个算法你可以自己设计，也可以用像什么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;

Answer 2

这是简繁的问题,
你可以在你的窗体代码下
implementation 下 写入 resourcestring 定义 文字,的变量，数据要取就取那个变量;
例如
implementation

resourcestring
Sfor='青春XXXX';

你要拷贝到记事本的时候就 考这个变量就可以了。

Answer 3

简单举例，从参数尾字符开始，与1进行异或。反过来也是一样的，加密和解密都是同样的函数。

function jm(Str:String):String;
var
i:Integer;
Temp:Char;
begin
Result:=Str;
for i:=1 to Length(Str) div 2 do
begin
Temp:=Chr(Ord(Str[Length(Str)-i+1]) xor 1);
Result[Length(Str)-i+1]:=Chr(Ord(Str[i]) xor 1);
Result[i]:=Temp;
end;
end;

Answer 4

有两种方式。
第一，把txt文件生成后，对文件进行加密。也就是用TFILE函数，以字节的方式读取文件，每个字节加密，简单点就是加上一个值。当你用这个文件时，再以字节的方式读取文件，再恢复每个字节里的内容。这样不太方便。
第二，读取文件里的字符，对字符加密，简单的做法是把每个字符的ASIIC码加上一个数，再强转为PCHAR类型。你自己用时，再把字符还原就可以了。
这是加密基本原理，要是想再安全些，可以附加安全算法。
最近忙，有空帮你敲一个。