CRC8 in VB.NET - Finde den Fehler.

[Marc (Gast)]

Moin,

Ich versuche gerade ein Vb.Net gegenstück zur Bascom CRC8 Checksumme zu 
erstellen. Es soll eine CRC8 über 3 Bytes berechnet werden.

In der Bascom Hilfe ist sogar ein VB6 Code angegeben, allerdings 
funktioniert meine Übersetzung nach Vb.net nicht richtig.

Hier das MCS Beispiel:

Function Docrc8(s As String) As Byte

Dim j As Byte
Dim k As Byte
Dim crc8 As Byte
crc8 = 0

For m = 1 To Len(s)
 x = Asc(Mid(s, m, 1))
 For k = 0 To 7
  j = 1 And (x Xor crc8)
  crc8 = Fix(crc8 / 2) And &HFF
  x = Fix(x / 2) And &HFF
  If j <> 0 Then
  crc8 = crc8 Xor &H8C
  End If
 Next k
Next
Docrc8 = crc8
End Function

Und hier nun meine Version:

Dim buffer(3) as byte

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

        buffer(0) = 1
        buffer(1) = 2
        buffer(2) = 3

        Dim j As Byte
        Dim crc8 As Byte = 0
        For m As Integer = 0 To (buffer.Length - 1)
            Dim x As Byte = buffer(m)

            For k As Integer = 0 To 7
                j = CByte(1 And (x Xor crc8))
                crc8 = CByte((crc8 / 2) And &HFF)
                x = CByte((x / 2) And &HFF)
                If j <> 0 Then
                    crc8 = CByte(crc8 Xor &H8C)
                End If
            Next
        Next

        TextBox4.Text = Str(crc8)
    End Sub

Für das Array {1, 2, 3} gibt Bascom mir die Checksumme "216" aus,
.Net sagt "0", für {2, 3, 4} .Net "71", Bascom "123"...

Ich komme leider nicht darauf, was da falsch läuft. Hat jemand eine 
Idee?

Vielen Dank!

[Lutz H. (luhe)]

Die zwei Funktionen sind sehr unterschiedlich.
Ich würde die gleichen Namen und Definitionen verwenden.

[Marc (Gast)]

Grundsätzlich hast du natürlich recht.
Allerdings geht es im Wesentlichen um den Algorithmus, der trotz 
(vermeintlich) gleichen Berechnungsschritten unterschiedliche Ergebnisse 
liefert.

Zum "spielen" habe ich die Berechnung in eine andere Routine gesetzt, 
die (Bei Click auf einen Button) direkt ausgeführt wird ohne das Array 
vorher an die Funktion übergeben zu müssen...

[Karl H. (kbuchegg)]

Marc schrieb:
> Grundsätzlich hast du natürlich recht.
> Allerdings geht es im Wesentlichen um den Algorithmus, der trotz
> (vermeintlich) gleichen Berechnungsschritten unterschiedliche Ergebnisse
> liefert.

Dann spick die beiden Code mit Ausgabeanweisungen, so dass du dir auch 
die Zwischenschritte ansehen kannst. Dann kannst du vergleichen, an 
welcher Stelle der vb.net Code abweichende Ergebnisse  bringt.

Es ist nicht verboten, ein Computerprogramm so zu verändern, dass einem 
das Programm selber dabei hilft zu verstehen, welche Berechnungen in 
welcher Reihenfolge gemacht werden und welche Zwischenergebnisse dabei 
entstehen.

[Maxx (Gast)]

Marc schrieb:
> crc8 = CByte((crc8 / 2) And &HFF)

Ich bin jetzt kein VB.net Experte, aber sollte das Cast nicht vor dem 
and stehen?

(crc8 / 2) müsste in VB.NET ein Double sein. Das And operiert also nicht 
wie gewollt auf einem Integer.

[Marc (Gast)]

Karl Heinz schrieb:
> Dann spick die beiden Code mit Ausgabeanweisungen, so dass du dir auch
> die Zwischenschritte ansehen kannst. Dann kannst du vergleichen, an
> welcher Stelle der vb.net Code abweichende Ergebnisse  bringt.

Tja, leider habe ich keine VB6 Umgebung installiert, ansonsten natürlich 
eine gute Idee. Werde mich mal kümmern, wo man die schnell herbekommt.

Maxx schrieb:
> Ich bin jetzt kein VB.net Experte, aber sollte das Cast nicht vor dem
> and stehen?
>
> (crc8 / 2) müsste in VB.NET ein Double sein. Das And operiert also nicht
> wie gewollt auf einem Integer.

Hm, ich habe das "CByte" 
https://msdn.microsoft.com/de-de/library/s2dy91zy.aspx als Ersatz für 
das "Fix" http://www.vbarchiv.net/commands/cmd_fix.html gewählt.

Aber irgendwo da wird der Hund wohl begraben liegen ;)

Ich suche weiter und freue mich über Anregungen!

[Marc (Gast)]

So gehts... warum auch immer

Dim s as string
 s = Chr(buffer(0)) + Chr(buffer(1)) + Chr(buffer(2))
 TextBox5.Text = Str(Docrc8(s))

 
Function Docrc8(ByVal s As String) As Byte
        Dim j As Byte
        Dim k As Byte
        Dim crc8 As Byte
        Dim m As Byte
        Dim x As Byte
        crc8 = 0
        For m = 1 To Len(s)
            x = Asc(Mid(s, m, 1))
            For k = 0 To 7
                j = 1 And (x Xor crc8)
                crc8 = Fix(crc8 / 2) And &HFF
                x = Fix(x / 2) And &HFF
                If j <> 0 Then
                    crc8 = crc8 Xor &H8C
                End If
            Next k
        Next
        Docrc8 = crc8
    End Function

[Maxx (Gast)]

Marc schrieb:
> Maxx schrieb:
>> Ich bin jetzt kein VB.net Experte, aber sollte das Cast nicht vor dem
>> and stehen?
>>
>> (crc8 / 2) müsste in VB.NET ein Double sein. Das And operiert also nicht
>> wie gewollt auf einem Integer.
>
> Hm, ich habe das "CByte"
> https://msdn.microsoft.com/de-de/library/s2dy91zy.aspx als Ersatz für
> das "Fix" http://www.vbarchiv.net/commands/cmd_fix.html gewählt.
>
> Aber irgendwo da wird der Hund wohl begraben liegen ;)

Du wendest das CByte aber NACH dem UND an.
Das Fix hingegen VOR dem UND.

[Marc (Gast)]

Maxx schrieb:
> Du wendest das CByte aber NACH dem UND an.
> Das Fix hingegen VOR dem UND.

Asche auf mein Haupt.
Mit dem Fix vor dem AND gehts auch mit dem Bytearray, das CByte war ne 
doofe Idee.

Falls es irgendwann nochmal wer braucht, das hier geht funzt ganz gut:

 Dim j As Byte
        Dim crc8 As Byte = 0
        For m As Integer = 0 To (buffer.Length - 1)
            Dim x As Byte = buffer(m)

            For k As Integer = 0 To 7
                j = 1 And (x Xor crc8)
                crc8 = Fix((crc8 / 2)) And &HFF
                x = Fix((x / 2)) And &HFF
                If j <> 0 Then
                    crc8 = crc8 Xor &H8C
                End If
            Next
        Next