Binary Daten lesen

Darknoop

Hallo zusammen,

Da ich in letzter Zeit öfters mal mit Netzwerkprotokollen und Binary Daten zu tun hatte, habe ich mir zur Hilfe folgende Funktion geschrieben:

Code

_BinParse(binary, expression)

Mit Hilfe von dieser Funktion (Vielleicht hat jemand ja nen besseren Namen) kann man Binary-daten einfach und schnell in die einzelnen Bestandteile zerlegen... Das funktioniert so:

Man übergibt der Funktion die Binary-daten als ersten Parameter.
Danach erstellt man den Aufbau der Binary-daten und übergibt ihn als 2. Parameter, hierzu ein Beispiel:

Code

byte
byte
word
<-word
array^word

In der ersten Zeile wird ein byte gelesen
In der zweiten Zeile wird erneut ein byte gelesen
Darauf folgt ein word (2 bytes)
Darauf folgt erneut ein word, dieses wird aber durch den Pfeil (<-) umgedreht, da in manchen Protokollen (Bspl. OSCAR, dort wird die byte-reihenfolge als typisches Hexadecimal angegeben) oder auch Dateiheadern Zahlen nicht als korrektes Endianness definiert sind, was für eine Konvertierung zu einer Zahl, bei dieser Funktion allerdings notwendig ist!
Zu letzt folgt ein byte-array (Ein Datenfeld) mit der Länge des vorherigen word's(^word)

Wenn diese Funktion erfolgreich ausgeführt wurde, gibt sie folgendes array zurück:

Code

array[0] = 5
array[1] = byte
array[2] = byte
array[3] = word
array[4] = <-word
array[5] = array^word

array[0] ist hierbei immer die Anzahl der Elemente im Array!

Hier noch ein paar Erklärungen zur Syntax der Parse-Expressions:
Wichtig zu Beginn: Nach jedem Ausdruck muss ein Zeilenumbruch erfolgen! (Carriage return + Line feed!)

Code

\n

Stellt einen Zeilenumbruch dar. (CR & LF)

Code

byte

Liest ein byte.

Code

word

Liest ein word (2 byte).

Code

dword

Liest ein dword (2 word's).

Code

qword

Liest ein qword (2 dword's).

Code

array^x

Liest ein byte-array mit der Länge x (Für x kann eine beliebige Zahl eingesetzt werden!).

Code

array^word

Liest ein byte-array mit der länge des letzten gelesenen word's. (alternativ können anstatt word auch noch: byte, dword und qword genutzt werden).

Code

array^byte(x)

Liest ein byte-array mit der länge des x. byte, das gelesen wurde. (alternativ können anstatt byte auch noch: word, dword und qword genutzt werden)

Code

/* comment */

Ein Kommentar, welches vom Parser zu Beginn aus dem Code gelöscht wird.

Ein praktisches Beispiel am OSCAR Protokoll:

[autoit]

; anpassen: #include <binparse.au3>
#include <array.au3>

[/autoit][autoit][/autoit][autoit]

Global $data = Binary('0x2a02123400080001000455667788') ; OSCAR Packet example
; Den packet header parsen
Dim $parse = _BinParse($data, _
'byte\n' & _ ; OSCAR packet mark
'byte\n' & _ ; Channel
'word\n' & _ ; sequence
'<-word\n' & _ ; length
'array^word') ; packet data
If IsArray($parse) Then _ArrayDisplay($parse)

[/autoit][autoit][/autoit][autoit]

; Den TLV Anhang parsen
Dim $parse2 = _BinParse($parse[$parse[0]], _
'word\n' & _ ; TLV id
'<-word\n' & _ ; TLV length
'array^word') ; TLV data
If IsArray($parse2) Then _ArrayDisplay($parse2)

[/autoit]

Spoiler anzeigen

[autoit]

Func _BinParse($bBinary, $sTempExp)
Local $bRead = Binary(''), $iMain, $iSub, $aReturn[1] = [0]
Local $sExpression = _FormatParseExpression($sTempExp)
Local $aSplit = StringSplit($sExpression, @CRLF, 1)
Local $aType[6][3] = [[5],['byte', 1],['word', 2],['dword', 4],['qword', 8],['array', Default]]
For $iMain = 1 To $aSplit[0]
Local $fInvert = False