Hallo ich bin neu hier, also bitte nich hauen...
ich möchte gerne in einer Funktion einen Stream 2x verschlüsseln mit unterschiedlichen Passwörtern und versuche dafür TCipher_Blowfish erneut zu erstellen mit einem neuen Passwort, aber das klappt nicht. Es wird immer nur das Passwort der ersten Initialisierung verwendet, aber warum??? Ich habe es auch schon mit "destroy" und "nil" probiert aber es klappt alles nicht...
Hier der Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var stream, stream_neu: TMemoryStream;
var groesse: LongInt;
begin
stream := TMemoryStream.Create;
stream_neu := TMemoryStream.Create;
stream.LoadFromFile('C:\test.txt');
groesse := stream.Size;
with TCipher_Blowfish.Create('', nil) do
try
InitKey('test', nil);
EncodeStream(stream, stream_neu, groesse);
stream_neu.SaveToFile('c:\test1.txt');
finally
Free;
end;
with TCipher_Blowfish.Create('', nil) do
try
InitKey('test2', nil);
EncodeStream(stream, stream_neu, groesse);
stream_neu.SaveToFile('c:\test2.txt');
finally
Free;
end;
stream.Destroy;
stream_neu.Destroy;
end;
Für jeden Hinweis wäre ich überaus dankbar!!!
Viele Grüsse,
Tom
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]