Function Decrypt(const s:string;key:integer):string; //key=1时为加密,0为解密
Function TChatForm.Decrypt(const S:string;key:integer):string;
var
I:Integer;
begin
Result:='';
case key of
1: //加密
begin
for i:=1 to length(s) do
result := result+chr(ord(s[i]) xor i xor 69);
result := result + char(69);
end;
0: //解密
begin
for i:=1 to length(s) - 1 do
result := result+chr(ord(s[i]) xor i xor 69);
end;
end;
end;