@ 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 ?