Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Verschlüsselungs Problem mit ASCII Zeichen

    Delphi
    by Cicaro, 22. Dez 2005
  Ich hab' diese One-Time-Pad-Sache zwar nicht ganz parat, aber ich würde das spontan wie folgt machen:
  
  // 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:=Chr(65 + ((Ord(S) - 65) + (Ord(Key) - 65))...
• Forum: Multimedia

  Re: Verschlüsselungs Problem mit ASCII Zeichen

    Delphi
    by Cicaro, 15. Dez 2005
  @Penelope:
  Zur Erstellung des One-Time-Pad-Keys, wie du ihn beschrieben hast:
  
  
  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
• Forum: Multimedia

  Re: Verschlüsselungs Problem mit ASCII Zeichen

    Delphi
    by Cicaro, 14. Dez 2005
  @Penelopee:
  So wie ich das sehe, versuchst du die Caesar-Verschlüsselung zu proggen und du möchtest die 26 Großbuchstaben verwenden. Diese liegen im ASCII-Code zwischen 65 und (65+26), oder ?
  
  Ein einzelnes Zeichen kannst du mit
  
  
  // Zeichen ist vom Typ Char
  Zeichen := Char( (Ord(Zeichen)-65 + 3) mod 26 +65);
  
  auf dem Zeichenring um 3 verschieben.