Comment faire un CRC8

Version imprimable

Bonjour,

voila j'ai récupéré un code en VB.net pour calculer un CRC8 mais celui si ne fonctionne pas comme je voudrais.

Ma textbox1.text contient "FF FF FF FF FF FF FF FF FF FF AA AA BB CC DD"

Le resultat du checksum devrait etre AE
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public Shared Function Crc8(ByVal data As Byte(), ByVal size As Integer) As Byte Dim checksum As Byte = 0 For i As Integer = 0 To size - 1 checksum = (CInt(checksum) + data(i)) Mod 256 Next If checksum = 0 Then Return 0 Else Return CByte(256 - checksum) End If End Function
Textbox2.Text = Crc8(Textbox1.text, 31)

Il me renvoi une erreur : impossible de convertir un string en tableau 1 dimension. Le String etant le Textbox1.text

Meme si dans la fonction je le passe le byte en string cela ne change rien.

Merci

26/03/2016, 20h35
Pol63

c'est un peu la base !

la fonction te demande un tableau d'octet (byte()) et tu lui donnes un string
donc c'est normal qu'il ne veuille pas, il faut lui donner un tableau d'octet
26/03/2016, 21h13
NeoRonin

Oui, j avais vu mais je ne sais pas comment convertir le textbox en byte.
Comme indiqué je suis débutant.
26/03/2016, 22h20
wallace1

Citation:

Envoyé par NeoRonin

Oui, j avais vu mais je ne sais pas comment convertir le textbox en byte.
Comme indiqué je suis débutant.

Etre débutant n’excuse absolument rien donc un peu de lecture ne te fera certainement pas de mal :

http://plasserre.developpez.com/cours/vb-net/

A+

Ok, j'ai trouve :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Public Shared Function Crc8(ByVal data As Byte(), ByVal size As Integer) As Byte
        Dim checksum As Byte = 0
        For i As Integer = 0 To size - 1
            checksum = (CInt(checksum) + data(i)) Mod 256
        Next
        If checksum = 0 Then
            Return 0
        Else
            Return CByte(256 - checksum)
        End If
    End Function
 
Textbox1.text = "FFFFFFFFFFFFFFFFFFFFAAAABBCCDD"
 
Dim Value As String = textbox1.text
Dim array() As Byte = System.Text.Encoding.ASCII.GetBytes(value)
 
TextBox2.Text = Crc8(array, Len(TextBox1.Text))

Le résultat est 242 alors que je devrait obtenir AE

Et si je fais : TextBox2.Text = hex(Crc8(array, Len(TextBox1.Text)))

Il me donne comme resultat F2