| |
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 |
|
|
Neu! sevPopUp 2.0
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere 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
|
|