| |
VB.NET - Ein- und UmsteigerCRC16-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 | |
Re: CRC16-Funktion falsch? | | | Autor: Schü | Datum: 23.10.06 15:18 |
| Hmmm...
ich habe eine CRC-Calculator im Netz gefunden.
Ich benötige CRC16 also Generatorpolynom X^16 + x^15 + x^2+1 = &H8005
Also in meinem Fall müsste die Zeile so geändert werden:
If TestBit Then CRC = CRC Xor &H8005&
Bei dem oben angegebenen Code und dem ByteFeld{31,32,33} müsste die Funktion BA04(hex) zurückliefern. Tut sie allerdings nicht.
Liegt das an den Bitoperationen unter .Net oder warum bekomme ich C14A(hex) raus?
Schü | |
Re: CRC16-Funktion falsch? | | | Autor: Schü | Datum: 24.10.06 11:07 |
| OK, ich schau mir den Code dort noch mal an.
Danke | |
| 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 |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevEingabe 3.0
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|