字符串加密解密函数
加密函数：
function editstrtomd(s:string; strkey:char ):string;//原字符转换成加密字符串
var
str:string; //定义两个字符串的昨临时变量
str1:string; //定义两个字符串的昨临时变量
i:integer; //循环加密变量
j:integer; //加密关键字
begin
str:=s; //存储传入的字符串
str1:=‘‘; //初始化转化后的字符串
j:= integer(strkey);//将加密关键字转换成整数
for i:=1 to length(str) do //字符串的循环加密
begin
str1:=str1+char(integer(str[i])+j);//汉字转换的整形值是偶数
end;
result := str1; //返回加密后的结果
end;
解密函数：
function mdtoeditstr(s:string; strkey:char ):string;//加密字符串换成原字符转
var
str:string; //定义两个字符串的昨临时变量
str1:string; //定义两个字符串的昨临时变量
i:integer; //循环加密变量
j:integer; //加密关键字
begin
str1:=s; //存储传入的字符串
str:=‘‘; //初始化转化后的字符串
j:= integer(strkey);//将解密关键字转换成整数
for i:=1 to length(str1) do //字符串的循环解密
begin
str:=str+char(integer(str1[i])-j);
end;
result := str; //返回解密后的结果
end;
