Zitat von
Cicaro:
@Penelope:
Zur Erstellung des One-Time-Pad-Keys, wie du ihn beschrieben hast:
Delphi-Quellcode:
function GetOneTimePadKey(Text:String):String;var i:Integer;
begin
// Länge festlegen
SetLength(Result,Length(Text));
// zufällige Zeichen
for i:=1 to Length(Result) do
Result[i]:=Char(Min_ASCII_Code+Random(Max_ASCII_Code-Min_ASCII_Code+1));
// Min_ASCII_Code und Max_ASCII_Code können beispielsweise 65 und 90 sein
end;
Wie kann ich einstellen , dass der key genau so lang sein soll wie der Klartext???