| |
VB.NET - Ein- und UmsteigerRe: 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ü | |
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 | |
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 |
|
|
sevAniGif (VB/VBA)
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 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
|
|