ganz einfache Verschlüsselung von einem Memo Text

[Maximus]

Es gibt viele verschiedene Wege so eine Verschlüsselung umzusetzen ...

Eine Möglichkeit ist z.b. dass du ein Schlüssel nimmst, den aktuellen Buchstaben suchst und dann durch den nächsten ersetzt

Delphi-Quellcode:

function Verschluessle(Text: String) : String;

const
 Key = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ ';

{ ... }

function Verschluessle(Text: String) : String;
var i,j: Integer;
begin
 Result := ''; //Ergebniss zurücksetzen

 for i := 1 to length(Text) do //Jeden Buchstaben des Textes durchgehen
 begin
   for j := 1 to 27 do //Jeden Buchstaben des Schlüssels durchgehen
   begin
     if Text[i] = Key[j] then //Sobald der Buchststabe gefunden ist
      Result := Result + Key[j+1]; //Den nächsten Buchstaben des Schlüssels hinzufügen
   end;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.Text := Verschluessle(Memo1.Lines.Text); //Möglicher ausruf der Funktion
end;

Natürlich funktioniert dies nur mit Großbuchstaben, aber ich denke du wirst hier auch ganz leicht Kleinbuchstaben implementieren können, und noch diverse Bugs behebn können. (Eigeninitiative)

MFG
Maximus