Te paso la que tengo yo hecha en vb.net a ver si te sirve o te da pistas.
Public Shared Function calculatecrc8(ByVal input As String) As String
Dim crc8_table() As Byte = New Byte() {CByte(&H0), CByte(&H7), CByte(&HE), CByte(&H9), CByte(&H1C), CByte(&H1B), CByte(&H12), CByte(&H15), CByte(&H38), CByte(&H3F), CByte(&H36), CByte(&H31), CByte(&H24), CByte(&H23), CByte(&H2A), CByte(&H2D), CByte(&H70), CByte(&H77), CByte(&H7E), CByte(&H79), CByte(&H6C), CByte(&H6B), CByte(&H62), CByte(&H65), CByte(&H48), CByte(&H4F), CByte(&H46), CByte(&H41), CByte(&H54), CByte(&H53), CByte(&H5A), CByte(&H5D), CByte(&HE0), CByte(&HE7), CByte(&HEE), CByte(&HE9), CByte(&HFC), CByte(&HFB), CByte(&HF2), CByte(&HF5), CByte(&HD8), CByte(&HDF), CByte(&HD6), CByte(&HD1), CByte(&HC4), CByte(&HC3), CByte(&HCA), CByte(&HCD), CByte(&H90), CByte(&H97), CByte(&H9E), CByte(&H99), CByte(&H8C), CByte(&H8B), CByte(&H82), CByte(&H85), CByte(&HA8), CByte(&HAF), CByte(&HA6), CByte(&HA1), CByte(&HB4), CByte(&HB3), CByte(&HBA), CByte(&HBD), CByte(&HC7), CByte(&HC0), CByte(&HC9), CByte(&HCE), CByte(&HDB), CByte(&HDC), CByte(&HD5), CByte(&HD2), CByte(&HFF), CByte(&HF8), CByte(&HF1), CByte(&HF6), CByte(&HE3), CByte(&HE4), CByte(&HED), CByte(&HEA), CByte(&HB7), CByte(&HB0), CByte(&HB9), CByte(&HBE), CByte(&HAB), CByte(&HAC), CByte(&HA5), CByte(&HA2), CByte(&H8F), CByte(&H88), CByte(&H81), CByte(&H86), CByte(&H93), CByte(&H94), CByte(&H9D), CByte(&H9A), CByte(&H27), CByte(&H20), CByte(&H29), CByte(&H2E), CByte(&H3B), CByte(&H3C), CByte(&H35), CByte(&H32), CByte(&H1F), CByte(&H18), CByte(&H11), CByte(&H16), CByte(&H3), CByte(&H4), CByte(&HD), CByte(&HA), CByte(&H57), CByte(&H50), CByte(&H59), CByte(&H5E), CByte(&H4B), CByte(&H4C), CByte(&H45), CByte(&H42), CByte(&H6F), CByte(&H68), CByte(&H61), CByte(&H66), CByte(&H73), CByte(&H74), CByte(&H7D), CByte(&H7A), CByte(&H89), CByte(&H8E), CByte(&H87), CByte(&H80), CByte(&H95), CByte(&H92), CByte(&H9B), CByte(&H9C), CByte(&HB1), CByte(&HB6), CByte(&HBF), CByte(&HB8), CByte(&HAD), CByte(&HAA), CByte(&HA3), CByte(&HA4), CByte(&HF9), CByte(&HFE), CByte(&HF7), CByte(&HF0), CByte(&HE5), CByte(&HE2), CByte(&HEB), CByte(&HEC), CByte(&HC1), CByte(&HC6), CByte(&HCF), CByte(&HC8), CByte(&HDD), CByte(&HDA), CByte(&HD3), CByte(&HD4), CByte(&H69), CByte(&H6E), CByte(&H67), CByte(&H60), CByte(&H75), CByte(&H72), CByte(&H7B), CByte(&H7C), CByte(&H51), CByte(&H56), CByte(&H5F), CByte(&H58), CByte(&H4D), CByte(&H4A), CByte(&H43), CByte(&H44), CByte(&H19), CByte(&H1E), CByte(&H17), CByte(&H10), CByte(&H5), CByte(&H2), CByte(&HB), CByte(&HC), CByte(&H21), CByte(&H26), CByte(&H2F), CByte(&H28), CByte(&H3D), CByte(&H3A), CByte(&H33), CByte(&H34), CByte(&H4E), CByte(&H49), CByte(&H40), CByte(&H47), CByte(&H52), CByte(&H55), CByte(&H5C), CByte(&H5B), CByte(&H76), CByte(&H71), CByte(&H78), CByte(&H7F), CByte(&H6A), CByte(&H6D), CByte(&H64), CByte(&H63), CByte(&H3E), CByte(&H39), CByte(&H30), CByte(&H37), CByte(&H22), CByte(&H25), CByte(&H2C), CByte(&H2B), CByte(&H6), CByte(&H1), CByte(&H8), CByte(&HF), CByte(&H1A), CByte(&H1D), CByte(&H14), CByte(&H13), CByte(&HAE), CByte(&HA9), CByte(&HA0), CByte(&HA7), CByte(&HB2), CByte(&HB5), CByte(&HBC), CByte(&HBB), CByte(&H96), CByte(&H91), CByte(&H98), CByte(&H9F), CByte(&H8A), CByte(&H8D), CByte(&H84), CByte(&H83), CByte(&HDE), CByte(&HD9), CByte(&HD0), CByte(&HD7), CByte(&HC2), CByte(&HC5), CByte(&HCC), CByte(&HCB), CByte(&HE6), CByte(&HE1), CByte(&HE8), CByte(&HEF), CByte(&HFA), CByte(&HFD), CByte(&HF4), CByte(&HF3)}
Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(input)
Dim len As Integer = data.Length
Dim crc As Byte = 0
For i As Integer = 0 To len - 1
crc = crc8_table((crc Xor data(i)) And 255)
Next i
Return String.Format("{0
3}", crc And &HFFL)
End Function