函数如下:
function addkey(str1:string):string;//加密
var
i:integer;
temp:string;
begin
temp:=str1;
for i:=1 to length(str1) do
begin
temp[i]:=char(ord(str1[i]) xor (i));
end;
addkey:=temp;
end;
怎样对文本文件中的一段加密.
如对<begin>至<end>的内容加密
function addkey(str1:string):string;//加密
var
i:integer;
temp:string;
begin
temp:=str1;
for i:=1 to length(str1) do
begin
temp[i]:=char(ord(str1[i]) xor (i));
end;
addkey:=temp;
end;
怎样对文本文件中的一段加密.
如对<begin>至<end>的内容加密
不懂