[VB.net][SNIPPET] LZ77 Dekompression.

hack!osa · 30. März 2013

Hallo,
ich veröffentliche hier aus meinem Trainer Backsprite Editor Rebirth den LZ77 Dekomprimierungscode.
Ich habe ihn mal für euch angepasst, hoffe, dass er so funktioniert.

Code

Public Class LZ77
Public Function Decompress(ByVal s As Stream, Optional ByVal offset As Integer = 0) As Byte()
Dim lzSize As Integer
Dim DataLeft As Integer
Dim dcb As Byte
Dim j As Integer
Dim br As BinaryReader = New BinaryReader(s)
br.BaseStream.Position = offset
lzSize = br.ReadInt32()
lzSize >>= 8
DataLeft = lzSize
Dim Destination(lzSize) As Byte
On Error Resume Next
While Not DataLeft <= 0
' Read Decode Byte
dcb = br.ReadByte
For i = 1 To 8
Dim x As Byte = CByte((128 / (2 ^ (i - 1))))
If CInt((dcb And x) >> (2 ^ (i - 1))) = 0 Then
Destination(j) = br.ReadByte
j += 1
DataLeft -= 1
Else
Dim rPos As Integer, howManyByte As Integer
Dim tmp As Integer = br.ReadUInt16
Dim tmpRev As Integer = (tmp >> 8) + ((tmp And 255) << 8)
howManyByte = ((tmpRev And 61440) >> 12) + 3
rPos = (tmpRev And 4095) + 1
For i2 = 0 To howManyByte - 1
Destination(j + i2) = Destination(j - rPos + i2)
DataLeft -= 1
Next
j += howManyByte
End If
Next
End While
Return Destination
End Function
End Class

Alles anzeigen

System.IO muss imported werden..

mfG hack!osa

Sturmvogel · 30. März 2013

Hmm imo wäre es schöner einen Stream zu übergeben und ein dynamisches Byte Array in Form einer generic List zurück zu geben, denn dann wäre man nicht an Files gebunden sondern könnte u.A. auch einen MemoryStream oder sogar(Unnötigerweiße) einen NetworkStream Dekomprimieren. Außerdem: Ich bin zwar nicht mehr ganz so gewandt in VB, aber wenn du einen Destination Buffer benutzt solltest du denke ich eine Subroutine anstelle einer Function erstellen und den Pararmeter als out oder Referenz deklarieren, schöner wäre aber mmn. immernoch ein Rückgabewert. Deine Funktion könntest du außerdem statisch machen und in eine Klasse packen.

~Sturmvogel

hack!osa · 30. März 2013

Danke für das Feedback. Werd ich geich machen.
Wollte eigentlich Ubuntu laden und installieren, aber das Inet spackt..

EDIT: Code geupdated
Changelog:
[+] Stream wird nun angegeben
[+] Angabe eines Offset optional, standardmäßig 0
[+] Größe des Arrays muss nicht vorher definiert sein
[+] Unabhängig von Funktionen wie Dec2Bin
[+] In einer Klasse vorhanden

mfG hack!osa

ShadowDialga · 30. März 2013

Hallo,

das ist sicher für einige brauchbar, für mich jetzt nicht, aber ich hätte noch zwei Vorschläge zum Codestil. Es wäre schön wenn du diese Dinge ändern würdest.

1) In Zeile 14: 'On Error Resume Next' ist stark veraltet. In .NET nimmt man dafür eigentlich Try [...] Catch [...] End Try her. Mein Vorschlag wäre allerdings bei einem Fehler diesen Fehler auch in der Funktion durchgehen zu lassen - für den Benutzer wäre es sicher gut wenn er im Falle eines solchen weiß was schief gelaufen ist!
2) Eher etwas unwichtiges, aber trotzdem ^^: In einer Funktion schreibt man Variablen normalerweise klein (also, hier z.B. DataLeft -> dataLeft). Das ist einfach zum Orientieren besser und allgemein so angewendet. Das ist, wie schon gesagt, nicht wichtig, wäre allerdings so ein Pluspunkt. :3

Und noch ein paar Fehler in VS:
- Bei 'Function' fehlt noch ein 'As Byte()', oder halt eine 'Sub'. So geht das sonst nicht!
- Bei 'Option Strict On' in Zeile 19 und 20 gibt es noch Konvertierungsfehler, die solltest du vielleicht noch ausmerzen.

Aber trotzdem, echt gute Arbeit. Ist sicher nützlich!

lg

hack!osa · 31. März 2013

Zitat

1) In Zeile 14: 'On Error Resume Next' ist stark veraltet. In .NET nimmt man dafür eigentlich Try [...] Catch [...] End Try her. Mein Vorschlag wäre allerdings bei einem Fehler diesen Fehler auch in der Funktion durchgehen zu lassen - für den Benutzer wäre es sicher gut wenn er im Falle eines solchen weiß was schief gelaufen ist!

Joah bin es halt noch von VB6 gewohnt.

Zitat

2) Eher etwas unwichtiges, aber trotzdem : In einer Funktion schreibt man Variablen normalerweise klein (also, hier z.B. DataLeft -> dataLeft). Das ist einfach zum Orientieren besser und allgemein so angewendet. Das ist, wie schon gesagt, nicht wichtig, wäre allerdings so ein Pluspunkt. :3

Naja haste recht ist jetzt nicht wirklich wichtig, kann ich aber gerne anpassen!

Zitat

Und noch ein paar Fehler in VS:
- Bei 'Function' fehlt noch ein 'As Byte()', oder halt eine 'Sub'. So geht das sonst nicht!
- Bei 'Option Strict On' in Zeile 19 und 20 gibt es noch Konvertierungsfehler, die solltest du vielleicht noch ausmerzen.

Die beiden Sachen kann ich nicht verstehen, da der Code bei mir so einwandfrei läuft.

Zitat

Aber trotzdem, echt gute Arbeit. Ist sicher nützlich!

Danke!

Lg hack!osa

ShadowDialga · 31. März 2013

Cool dass du das noch änderst!
Warte, ich zeig dir mal ein Bild von den Fehlern. Das passiert, wenn man in den Optionen 'Option Strict On' einstellt oder gaaaanz oben im Codefenster 'Option Strict On' schreibt!

hack!osa · 31. März 2013

Ok also einfach ein CByte um die besagte Stelle, richtig?

ShadowDialga · 31. März 2013

Ja, das tut es! Und bei der Zeile danach ein CInt(...).
Danke!

The_Learner · 26. März 2017

This is the place to stay!

Hey do you happen to have a compression function as well... Need it for my tool

hack!osa · 26. März 2017

Hey,

sorry, I do not happen to have a compression algorithm, since I never had the need for one. Though going from the decompression routine it shouldn't be too hard to create one. My general (though untested) approach would be to process the data to compress from begin to end and at each position look if the data at the current cursor also exists in the compression window (the area that can be addressed with an reference at that position). Then just place either a reference or the actual data in the compressed buffer!

Kind Regards,
hack!osa

The_Learner · 27. März 2017

Oh ok....

I was able to create a decompression function in vb which accepted string and gave back string... (the need of string I/O came upto my head due to my readhex and writehex function which gave result as string)
But i had simply made "byte array" <--> "string" conversion function as well.

Now as you said I was also thinking of the same thing... but this really bored to get it dont today
I will try it out some other day as I am also not in a urgent need of it

Thanks for the reply.

Kind Regards,
The_Learner!

Teilen