Es kommt drauf an, wie sicher die verschlüsselung sein muss... wenn es einfach nur so ist, dann kannst du auch eine xor methode nehmen:
Delphi-Quellcode:
function crypt(s:string):string;
var
i:integer;
begin
Result:='';
for i:=1 to Length(s) do Result:=Result+char(ord(s[i]) xor 2);
end;
Mit der function kannst du ein text ver- oder entschlüsseln... die Zahl 2 kannst du beliebig ändern, aber bei der entschlüsselung muss logische weise der gleiche parameter verwendet werden.