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;