方法一(加密解密为同一函数)：
function NotString(S:string):string;
var
I:Cardinal;
begin
for I:=1 to Length(S)-1 do
S:=Char(not Byte(S));
Result:=S;
end;
方法二(加密解密为同一函数)：
function XorString(S:string;Key:Byte):string;
var
I:Cardinal;
begin
for I:=1 to Length(S)-1 do
S:=Char(Byte(S) xor Key);
Result:=S;
end;
