Verschlüsselungs Problem mit ASCII Zeichen

[Cicaro]

Zitat von Penelopee:

Also den key hab ich jetzt erstellt bekommen , aber im Moment wird einfach nur immer der Text um 3 Zeichen verschoben , wie kann ich das machen , dass der Text so verschlüsselt wird , dass ich ihn mit dem zufällig erstelltem key entschlüsseln kann????
Danke schon mal!

Ich hab' diese One-Time-Pad-Sache zwar nicht ganz parat, aber ich würde das spontan wie folgt machen:

Delphi-Quellcode:

// Wichtig: den One-Time-Pad-Key aufbewahren sonst kann man den Text nicht mehr entschlüsseln
// Key ist als String verfügbar
// A: Verschiebung um 0
// B: Verschiebung um 1 ...
if Length(S)>0 then
  for i:=1 to Length(S) do
    begin
      S[i]:=Chr(65 + ((Ord(S[i]) - 65) + (Ord(Key[S]) - 65)) mod 26 );
    end;