TChipher in Funktion neu initialisieren mit neuem Passwort

[Sharky]

Hai thy,

wenn ich das richtig Sehe musst Du deine Streams vor dem zweiten Verschlüsseln wieder auf den Anfang positionieren. (Genaueres wird wohl wieder nur negaH wissen).

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 stream, stream_neu: TMemoryStream;
 groesse: LongInt;
begin
  stream := TMemoryStream.Create;
  stream_neu := TMemoryStream.Create;
  try
    stream.LoadFromFile('C:\test.txt');
    groesse := stream.Size;
    with TCipher_Blowfish.Create('test', nil) do
    begin
      try
        EncodeStream(stream, stream_neu, groesse);
        stream_neu.SaveToFile('c:\test1.txt');
      finally
        Free;
      end;
    end;
    stream.Position := 0;  // Position des Quellstreams auf Anfang setzen.
    stream_neu.Position := 0; // Position des Zielstreams auf Anfang setzen.
    with TCipher_Blowfish.Create('test2', nil) do
    begin
      try
        EncodeStream(stream, stream_neu, groesse);
        stream_neu.SaveToFile('c:\test2.txt');
      finally
       Free;
      end;
    end;
  finally
    FreeAndNil (stream);
    FreeAndNil (stream_neu);
  end;
end;