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));