ganz einfache Verschlüsselung von einem Memo Text

[Ultimator]

Delphi-Quellcode:

function encodestr(Str: String; Key: Byte): string; 
var I: Cardinal; 
begin 
  Result:=Str; 
  for I:=1 to length(Str) do 
   Result[I]:=Chr(Ord(Result[I] xor Key); 
end;

Du hast vergessen, den Typ des Result anzugeben