CRC 8 berechnen ?

[Blamaster]

@ himitsu

Stimmt die oberste funktion scheint etwas aufweniger gestaltet zu sein wieso auch immer.

Ich bin jetzt etwas weitergekommen.

Ich weiß nun schonmal soviel.

A: array[0..2] of byte;

A[0] := 1
A[1] := 2
A[2] := 3

Die Crc8 der 3 Bytes müsste 216 ergeben.

Außerdem habe ich noch folgendes VB beispiel dazu gefunden:

Delphi-Quellcode:

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

Lässt das Rückschlüsse auf das verwendete Polynom zu ?