Forum: Object-Pascal / Delphi-Language
by Luckie,
5. Mär 2010
OK, Ich weiß nicht, was es war, aber jetzt scheint es zu funktionieren.
Forum: Object-Pascal / Delphi-Language
by Luckie,
5. Mär 2010
Neue Erkenntnisse. jetzt stimmt zumindest wieder die Dateigröße:
procedure TAppendFile.ExtractEncrypted;
var
fsCarrier: TFileStream;
fsTrailer: TFileStream;
EncryptStream: TMemoryStream;
Salt: Binary;
Key: Binary;
begin
ReadFileInfo;
Forum: Object-Pascal / Delphi-Language
by Luckie,
5. Mär 2010
Ich lese ihn ja aus:
EncryptStream.Read(Salt, Length(Salt));
Da nach müsste der Positionszeiger doch hinter dem Salt stehen oder irre ich mich da?
Aber ich überlege gerade in TfileInfo.FFileSize steht noch der Salt mit drin.
Forum: Object-Pascal / Delphi-Language
by Luckie,
5. Mär 2010
So sieht meine Methode aus, um einen Stream zu verschlüsseln und diesen dann aneine Datei zu hängen:
procedure TAppendFile.AppenEncrypted;
var
fsCarrier: TFileStream;
fsTrailer: TFileStream;
EncryptStream: TMemoryStream;
Salt: Binary;
Key: Binary;
FileInfo: TFileInfo;
begin