字符串加密解密函數(shù)
加密函數(shù)：

function editstrtomd(s:string; strkey:char ):string;//原字符轉(zhuǎn)換成加密字符串
var
   str:string;          //定義兩個(gè)字符串的昨臨時(shí)變量
   str1:string;         //定義兩個(gè)字符串的昨臨時(shí)變量
   i:integer;           //循環(huán)加密變量
   j:integer;           //加密關(guān)鍵字
begin
   str:=s;              //存儲(chǔ)傳入的字符串
   str1:=‘‘;            //初始化轉(zhuǎn)化后的字符串
   j:= integer(strkey);//將加密關(guān)鍵字轉(zhuǎn)換成整數(shù)
   for i:=1 to length(str) do    //字符串的循環(huán)加密
   begin
   str1:=str1+char(integer(str[i])+j);//漢字轉(zhuǎn)換的整形值是偶數(shù)
   end;
   result := str1;      //返回加密后的結(jié)果
end;


解密函數(shù)：

function mdtoeditstr(s:string; strkey:char ):string;//加密字符串換成原字符轉(zhuǎn)
var
   str:string;          //定義兩個(gè)字符串的昨臨時(shí)變量
   str1:string;         //定義兩個(gè)字符串的昨臨時(shí)變量
   i:integer;           //循環(huán)加密變量
   j:integer;           //加密關(guān)鍵字
begin
   str1:=s;             //存儲(chǔ)傳入的字符串
   str:=‘‘;             //初始化轉(zhuǎn)化后的字符串
   j:= integer(strkey);//將解密關(guān)鍵字轉(zhuǎn)換成整數(shù)
   for   i:=1 to length(str1) do   //字符串的循環(huán)解密
   begin
     str:=str+char(integer(str1[i])-j);
   end;
   result := str;       //返回解密后的結(jié)果
end;