.z (zlip) Entpacken

jvbsl · 20. Juni 2016, 13:35

Flush ist unnötig, passiert dann spätestens beim Close sowieso.
und Streams muss man auch nicht schließen, wenn man sie in einem using verwendet.

Ein using ist dafür da, um Resourcen innerhalb eines Scopes zu verwenden und beim verlassen dieses scopes automatisch aufzuräumen, d.h. auf Streams wird Close und Dispose aufgerufen.
Bei IDisposables nur Dispose z.B.

Dann sollte das Programm theoretisch stehen.
Aber noch immer fehlt die Überprüfung des Magics, damit verhinderst du, dass du versuchst eine Datei mit dem falschen Format zu öffnen.

Die Datei oben hab ich bereits gesehen, sonst hätte ich unmöglich so viel über das Format herausbekommen. Aber die hat eben nur 1en run, interessant sind dateien mit mehr als einem run

haufe · 20. Juni 2016, 14:01

Leider habe ich keine Datei mit mehr als einem runs.

Habe jetzt eine If Abfrage als Validierung genutzt um falsche Dateien zu übergehen:

VB.NET-Quellcode

Dim zielfilename As String = Path.GetFileNameWithoutExtension(zfile.FullName)
Dim h As New Header
Dim fh As New Fileheader
Dim _dLen As UInteger = 8192
Dim _d As Byte() = New Byte(_dLen - 1) {}
Dim count As Integer
Dim outputbyte() As Byte
Using src As FileStream = File.Open(zfile.FullName, FileMode.Open)
Using reader As New BinaryReader(src)
h.magic = reader.ReadUInt64()
h.size1 = reader.ReadUInt64
h.unknow = reader.ReadUInt64()
h.size2 = reader.ReadUInt64
If h.magic = 2653586369 Then
Dim bytesout As Byte()
Dim runs As ULong
runs = (h.size1 + h.size2 - 1) / h.size1
Dim array As New List(Of Fileheader)
Dim uebergabe As New Fileheader
For o As Integer = 0 To runs - 1 Step 1
uebergabe.compressedSize = reader.ReadUInt64
uebergabe.uncompressedSize = reader.ReadUInt64()
array.Add(uebergabe)
Next
Using dest As FileStream = File.Open("c:\test.u", FileMode.Create, FileAccess.Write)
For i As Integer = 0 To runs - 1 Step 1
Dim to_read As ULong = array(i).compressedSize
Dim compressed As Byte() = reader.ReadBytes(to_read)
Using ms As New MemoryStream(compressed)
Using ds As New Compression.DeflateStream(ms, Compression.CompressionMode.Decompress)
ds.CopyTo(dest)
End Using
End Using
Next
Return True
End Using
Else
Console.WriteLine("Die Datei " & zfile.Name & " hat ein falsches Format")
End If
End Using
End Using

Bekomme aber einen Fehler bei ds.copy:
Zusätzliche Informationen: Die Blocklänge entspricht nicht dem Komplement.

jvbsl · 20. Juni 2016, 15:07

aha, es handelt sich um zlib spezifikation und nicht deflate. Aber ich denke wir können davon ausgehen, dass es sich immer um deflate handelt, d.h.

Du musst in der Schleife von Zeile 30 einen ushort lesen

Visual Basic-Quellcode

Dim zlibHeader As UShort = reader.ReadUInt16()

und in Zeile 31 zwei von der compressed Size abziehen, dann sollte es funktionieren

haufe · 20. Juni 2016, 17:04

Vielen Dank!

Warum muss ich ein Ushort nehmen, und warum -2 ?

Wie kann ich mich bei Dir für deine Hilfe bedanken?!

Hier die Lösung für wie entpacke ich eine .z File:

VB.NET-Quellcode

Public Class Form1
Private Structure Header
Dim magic, size1, unknow, size2 As ULong
End Structure
Private Structure daten
Dim zahl As ULong
End Structure
Private Structure Fileheader
Dim compressedSize As ULong
Dim uncompressedSize As ULong
End Structure
Function decompress(ByVal zfile As FileInfo) As Boolean
Dim zielfilename As String = Path.GetFileNameWithoutExtension(zfile.FullName)
Dim h As New Header
Dim fh As New Fileheader
Dim _dLen As UInteger = 8192
Dim _d As Byte() = New Byte(_dLen - 1) {}
Using src As FileStream = File.Open(zfile.FullName, FileMode.Open)
Using reader As New BinaryReader(src)
h.magic = reader.ReadUInt64()
h.size1 = reader.ReadUInt64
h.unknow = reader.ReadUInt64()
h.size2 = reader.ReadUInt64
If h.magic = 2653586369 Then
Dim runs As ULong
runs = fix((h.size1 + h.size2 - 1) / h.size1)
Dim array As New List(Of Fileheader)
Dim uebergabe As New Fileheader
For o As Integer = 0 To runs - 1 Step 1
uebergabe.compressedSize = reader.ReadUInt64
uebergabe.uncompressedSize = reader.ReadUInt64()
array.Add(uebergabe)
Next
Using dest As FileStream = File.Open(Path.GetFileNameWithoutExtension(zfile.FullName), FileMode.Create, FileAccess.Write)
For i As Integer = 0 To runs - 1 Step 1
Dim zlibHeader As UShort = reader.ReadUInt16() '/ 40056
Dim to_read As ULong = array(i).compressedSize
Dim compressed As Byte() = reader.ReadBytes(to_read - 2)
Using ms As New MemoryStream(compressed)
Using ds As New Compression.DeflateStream(ms, Compression.CompressionMode.Decompress)
ds.CopyTo(dest)
End Using
End Using
Next
Return True
End Using
Else
Console.WriteLine("Die Datei " & zfile.Name & " hat ein falsches Format")
End If
End Using
End Using
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim directoryPath As String = "c:\"
Dim directorySelected As New DirectoryInfo(directoryPath)
Dim fileinfo As FileInfo = directorySelected.GetFiles("test.z")(0)
decompress(fileinfo)
End Sub

jvbsl · 20. Juni 2016, 17:25

zlib hat einen header von 2 bytes, der beinhaltet die Art der Komprimierung(meines Wissens unterstützt zlib im Moment sowieso nur deflate), also ignorieren wir die ersten zwei Bytes für die Dekomprimierung.
D.h. wir lesen die aus dem stream und die restlichen daten die noch zu dekomprimieren sind, sind dann natürlich um diese zwei bytes auch gekürzt.
UShort deshalb, weil negativ werte bei soetwas keinen Sinn ergeben und ein Short(in .Net) aus 2 bytes besteht

haufe · 20. Juni 2016, 17:34

Danke, danke, danke!
Super Hilfe!

Habe noch einen Fehler gefunden bei der Datei im Anhang, er sagt :
Über das Ende des Datenstroms hinaus kann nicht gelesen werden.

haufe · 21. Juni 2016, 08:09

Habe jetzt nochmals den Thread geöffnet da ich doch eine Datei habe die mehr als einen run hat, zumindest laut der Rechnung

VB.NET-Quellcode

runs = (h.size1 + h.size2 - 1) / h.size1

Dort bekomme ich dann den Fehler der im Post "26" hier im Thread zu lesen ist, setzte ich runs = 1 kann ich die Datei Entpacken, wie entsteht der Fehler bei der Rechnung und wie kann ich ihn beheben?

Habe die Lösung selbst gefunden!
Das Problem liegt daran das bei der Summe 1,8 heraus kommt und die aufgerundet wird, mit dem Befehl Fix() konnte ich es lösen.

jvbsl · 21. Juni 2016, 14:34

strange, seit wann rundet VB da auf?

anstelle von Fix sollte aber dann auch das hier funktionieren

Visual Basic-Quellcode

runs = (h.size1 + h.size2 - 1) \ h.size1

Der Backslash ist eine ganzzahl division, und sollte dann eigt. auch zum gewünschten ergebnis führen

.z (zlip) Entpacken

VB.NET-Quellcode

Visual Basic-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Visual Basic-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben