一个简单的加密解密程序

function addpassword(str:string):string;
var text,str1:string;
    i,j:integer;
begin
 if str='' then
  begin
   result:='';
   exit;
  end;
  text:='ZXB'; //加密因子，可自已另設
  str1:='';
  for i:=1 to length(str) do
   begin
    j:=i mod length(text)+1;
    str1:=str1+chr(ord(str[i]) xor ord(text[j]) mod 10);
   end;
   result:=str1;
end;

//----------------------------------------------------------------

  加密  edit2.Text:=addpassword(trim(edit1.text));

  解密  edit3.Text:=addpassword(trim(edit2.text));