Habe grade kein Delphi hier, aber grob aus dem Kopf:
Delphi-Quellcode:
var
FS: TFileStream;
Key: TBytes;
begin
FS := TFileStream.Create('...', fmOpenRead);
try
FS.Seek($24, soBeginning);
SetLength(Key, 16);
FS.Read(Key[0], Length(Key));
// ...
finally
FS.Free;
end;
Zur Dekompression:
Delphi-Quellcode:
ZLibStream := TZDecompressionStream.Create(FS);
OutputStream.CopyFrom(ZLibStream, 0);
OutputStream
kann z.B. auch ein
TFileStream
, welcher die unkomprimierten Daten direkt auf der Platte ablegt.