Nun, der obere Beitrag beschreibt die Vignere Verschlüsselung.
Wie ich eben erst gelesen habe, suchst DU etwas für die Caesar Verschlüsselung.
Die ist noch simpler.
KlartextAlpabet ABCDEFGHIJKLMNOP
Schlüsselalphabet GOLDBERG
Dann wird wenn im Klartext ein A vorkommt dieses durch ein G ersetzt.
Die Position des Buchstaben Alpabet im Klartext- und Schlüsselalphabet
ist die gleiche.
Also: Position des Buchstaben ermitteln : ord(KlarText[i]) - ord('A'] + 1
Geheimtextbuchstabe: Schlüsselalphabet[ord(KlarText[i]) - ord('A'] + 1]
Mit Memo1.text[i] kannst Du auf die einzelnen Zeichen des Memo Zugreifen.
Während der Verschlüsselung am besten alles in ein String schreiben und den
String dann mit Memo2.lines.add(DeinString) dem Ausgangsmemo hinzufügen.
Mit
Delphi-Quellcode:
for i:=1 to length(Memo1.Text) do
...
kannst Du das ganze Memo1 durchlaufen.
Und ein wenig solltest Du auch selber machen.
Grüße
Klaus