http://edysoftware.com/word/source/2008/08/14/delphi-simple-encrypt-and-decrypt.html#more-34
function Decrypt(const S: String): String;
var
I: byte;
t:string;
begin
for I := 1 to Length(S)div 2 do begin
t:=t+chr(ord(s[i])-64);
end;
result:=t;
end;
var
I: byte;
t:string;
begin
for I := 1 to Length(S)div 2 do begin
t:=t+chr(ord(s[i])-64);
end;
result:=t;
end;
function Encrypt(const S: String): String;
Var
I: byte;
t:string;
begin
for I := 1 to Length(S) do begin
t:=t+chr(ord(s[i])+64);
end;
result:=t+t;
end;
Var
I: byte;
t:string;
begin
for I := 1 to Length(S) do begin
t:=t+chr(ord(s[i])+64);
end;
result:=t+t;
end;