Hier nochmal mein Quelltext:
Delphi-Quellcode:
procedure TForm1.FormActivate(Sender: TObject);
begin
s:=Memo1.Lines.Text;
end;
function GetOneTimePadKey(Text:String):String;var i:Integer;
begin
SetLength(Result,Length(Text));
for i:=1 to Length(Result) do
Result[i]:=Char(Random(255));
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to length(s)
do begin
s[i] := Chr( Ord(s[i]) + 3);
end;
Memo1.Lines.Text:=s;
end;
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!