ganz einfache Verschlüsselung von einem Memo Text

[3_of_8]

Mal ne ganz einfache Möglichkeit:

Verschlüsseln:

Delphi-Quellcode:

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

Zum Entschlüsseln eines Strings die Funktion encodestr einfach noch einmal anwenden, das ganze ist umkehrbar.

Die "Cäsarverschlüsselung" ist auch ganz einfach:

Delphi-Quellcode:

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


function decodestr(Str: String): String;
var I: Cardinal;
begin
Result:=Str;
for I:=1 to length(Result) do
Result[I]:=Chr(Ord(Result[I])-1);
end;