Entschlüsselungs-Probleme mit DEC

[Sharky]

Da der Code ganz oben ja auch von mir ist

Delphi-Quellcode:

uses
  Cipher1, Cipher, DECUtil;

const
  DefCipherClass: TCipherClass = TCipher_Rijndael;
  CipherMode = cmCBC; // Cipher-Mode: cmCTS, cmCBC, cmCFB, cmOFB, cmECB

procedure TForm1.Button1Click(Sender: TObject);
var
  decStream: TMemoryStream;
  encStream: TMemoryStream;
begin
  ListBox1.Items.LoadFromFile('c:\test.txt'); // Datei laden
  decStream := TMemoryStream.Create; // TStream für den Text erzeugen
  encStream := TMemoryStream.Create; // Stream für die Verschlüsselung
  try
    ListBox1.Items.SaveToStream(decStream); // Text in Stream speichern
    decStream.Position := 0;  // Stream auf den Anfang setzen
    with DefCipherClass.Create('', nil) do // Verschlüsseln
    begin
      try
        Mode := CipherMode;
        InitKey('password', nil);
        EncodeStream(decStream, encStream, decStream.Size);  // Stream verschlüsseln
        encStream.Position := 0;  // Verschlüsselten Stream auf den anfang setzen
        encStream.SaveToFile('c:\encode.txt'); // Stream speichern
      finally
        Free;
      end;
    end;
  finally
    encStream.Free;
    decStream.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  decStream: TMemoryStream;
  encStream: TMemoryStream;
begin
  decStream := TMemoryStream.Create; // TStream für den Text erzeugen
  encStream := TMemoryStream.Create; // Stream für die Verschlüsselung
  try
    encStream.LoadFromFile('c:\encode.txt');  // Verschlüsselten Text laden
    encStream.Position := 0;
    with DefCipherClass.Create('', nil) do // Entschlüsseln
    begin
      try
        Mode := CipherMode;
        InitKey('password', nil);
        DecodeStream(encStream, decStream, encStream.Size);  //Stream entschlüsseln
        decStream.Position := 0;
        ListBox2.Items.LoadFromStream(decStream);
      finally
        Free;
      end;
    end;
  finally
    encStream.Free;
    decStream.Free;
  end;
end;