Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

CRC16-Funktion falsch?
Autor: Schü
Datum: 20.10.06 09:12
Hallo! ich hab' eine Funktion von VB6.0 in VB.Net umgeschrieben, aber offensichtlich rechnet liefert die Funktion falsche Ergebnisse. Der errechnete Wert stimmt nicht mit dem vorgegebenen überein. Liegt das möglicherweise an der interpretation von neg. Zahlen? Hat jemand ein Beispiel, woran man die Richtigkeit überprüfen kann? z.B. 10 Byte-Werte und den zugehörigen CRC16 oder so? Ich kenne nicht genau die internen Routienen zur Berechnung einer 16Bit Prüfsumme. Schü Public Function CRC16(ByRef ByteArray() As Byte, _ Optional ByVal Start As Int32 = 0, _ Optional ByVal Länge As Int32 = 0, _ Optional ByVal CRCInitVal As Int32 = 0) As String Dim Power(7) As Int32 Dim CRC As Int64 = CRCInitVal Dim TestBit As Boolean Dim j As Int16, i As Int32 For i = 0 To 7 Power(i) = CInt(2 ^ i) Next i Dim OG As Int32 If Länge = 0 Then OG = ByteArray.Length - 1 Else OG = Start + Länge - 1 End If If OG > ByteArray.Length - 1 Then OG = ByteArray.Length - 1 For i = Start To OG For j = 7 To 0 Step -1 TestBit = ((CRC And 32768) = 32768) Xor _ ((ByteArray(i) And Power(j)) = Power(j)) CRC = (CRC And 32767) * 2 If TestBit Then CRC = CRC Xor &H1021& Next j Next i Dim Temp As String = "0000" & Hex(CInt(CRC)) Return Temp.Substring(Temp.Length - 4, 4) End Function

CRC16-Funktion falsch?	2.075	Schü	20.10.06 09:12
Re: CRC16-Funktion falsch?	1.752	DaveS	20.10.06 10:39
Re: CRC16-Funktion falsch?	1.562	Schü	23.10.06 15:18
Re: CRC16-Funktion falsch?	1.559	DaveS	23.10.06 15:44
Re: CRC16-Funktion falsch?	1.635	Schü	24.10.06 11:07

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen