加密方法

procedure TForm1.Button1Click(Sender: TObject);
var str:string;  a,i:integer;
begin
str:=edit1.text;
a:=length(edit1.text);
for i:=1 to a do
     str[i]:=Char(Ord(str[i]) XOR 20);//STR[I]的意思就是EDIT1里的每个字节,比如第一个字节那么就等于后面那句加密计算出来的.
edit2.text:=str;
end;
其中的XOR 20 其实就是一个异域运算(2进制的运算)，如果相同着等于1，不相同者等于0,当然也有反算.
ord的意思是把每个‘字符’（一个字节）转成2进制对应的‘数值’
而char是把'2进制数值'（一个字节）转成对应的‘字符'，
但实际上在内存中都是以2进制数值来表示的，只是我门在程序中要这样写的