Verschlüsselungs Problem mit ASCII Zeichen

[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;