CRC Control in vb.Net

Version imprimable

Bonjour,
Désolée de vous déranger encore.:oops:
Je travaille sur une application en vb.Net qui se connecte aux modems GSM par les ports série,Je veux donc appliquer un contrôle sur les trames reçues(CRC control),en vba j'ai utilisé un Activex qui s'appelle CrcCtrl.ocx (il n'existe plus !) et je l'ai utilisé comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 crcSnd = DoCRC1(bTemp)
    crcSnd1 = Int(crcSnd / 256)
    crcSnd2 = crcSnd - (crcSnd1 * 256)
'..................
 crcCalc = DoCRC2(bRcv)
            crcCalc1 = Int(crcCalc / 256)
            crcCalc2 = crcCalc - (crcCalc1 * 256)
'........................
Function DoCRC1(ByVal payLoad As Variant)
    On Error Resume Next
    CrcCtrl1.CRCType = 3 ' set which algorithm to use - vb pops up valid types!
    CrcCtrl1.DoCRCVar payLoad ' do the calculation, without a seed, ie not split up
    DoCRC1 = CrcCtrl1.GetCRCDecStr ' display the result in a label
    'MsgBox (CrcCtrl1.GetCRCHexStr & CrcCtrl1.GetCRCDecStr)
End Function
Function DoCRC2(ByVal payLoad As Variant)
    On Error Resume Next
    CrcCtrl2.CRCType = 9 ' set which algorithm to use - vb pops up valid types!
    CrcCtrl2.DoCRCVar payLoad ' do the calculation, without a seed, ie not split up
    DoCRC2 = CrcCtrl2.GetCRCDecStr  ' display the result in a label
End Function

Je veux une méthode à le faire en vb.Net sans utiliser les Activex,juste avec une bibliothèque vb ou avec une fonction
Merci d'avance

15/03/2013, 16h06
Rose Butterfly

1 pièce(s) jointe(s)

Bonjour ,
pour plus de détails je vais joindre carrément le dossier de l'Activex CrcCtrl.ocx qui contient les fonctions, si quelqu'un pourra me montrer comment trouver un équivalent pour vbNet.
18/03/2013, 11h17
Pol63

tu peux l'utiliser en .net, le seul truc c'est qu'à l'installation il faut copier l'ocx dans system32 et le registrer (regsvr32)

au niveau du projet il faut ajouter une référence vers l'ocx

Merci Pol63,
Justement,je peux pas l'utiliser,parce qu'il existe plus,et il marche pas sous windows 7,donc je cherche une fonction en vb.Net qui fera le même travail.et voici la description des deux algorithmes utilisés:
Code:

1 2 3 4 5 3: CRC16 Fairly widely used CRC, it expressed as x^16,15,2,0. This algorithm has a precalculated lookup table and is done in assembly. 9: CCITT16 Reversed As 8, 16 x^16,12,5,0, without the twist. This algorithm has a precalculated lookup

18/03/2013, 13h54
Pol63

"il existe plus"
on ne peut pas vraiment dire ca, je ne pense pas que cet ocx était fournit avec vb6 (mais je peux me tromper)
si tu as le fichier tu peux l'utiliser

utiliser des ocx en .net est déconseillé mais pas interdit, et dans certains cas ca ne pose pas de problème

par contre sous windows 7 et autres os x64 il faut que le programme tourne en x86 pour pouvoir utiliser des dll/ocx 32 bits
ca se change dans les propriétés du projet, onglet compiler, bouton options avancées de compilation, remplacer AnyCpu par x86

après si tu sais ce que fais concretement cet ocx il suffit de recoder, tu peux aussi chercher un décompilateur d'ocx pour récupérer le code source de l'ocx et l'adapter à .net

EDIT : vu que tu as les noms des normes de CRC que tu utilises tu peux trouver le code .net qui avec sur le net
googler CRC16 c# et CCITT16 Reversed c# (il y a plus de sources sur c# que sur vb.net)
et après tu passes le code c# dans un convertisseur vb.net
18/03/2013, 15h15
Rose Butterfly

Pour le ocx je veux m'en débarrasser,car j'ai essayé de le faire marcher mais il y a beaucoup de problème.
J'ai chercher sur Internet, mais il y a beaucoup de codes différents,je n'arrive pas à trouver c'est lequel le bon, j'ai trouvé un code sur ce site:
http://www.drdobbs.com/implementing-...ndan/199904926
je pense il est bon mais je ne suis pas sûr car je ne peux pas le tester pour le moment.Si tu peux me dire est-ce qu'il est convenant à la description des deux algorithmes que j'ai donné ça sera pas mal( vu que tu es plus expert que moi)
Merci:ccool:
18/03/2013, 15h30
Pol63

sur wikipedia en général il y a aussi la description du fonctionnement à partir de laquelle on peut coder ...
18/03/2013, 15h45
Rose Butterfly

Ok je vais essayer de faire ça
Merci
18/03/2013, 21h57
rv26t

Bonjour,
Un Tutoriel sur le calcul des CRC, il pourra peut-être t'aider dans ton développement.
A+, Hervé.

Salut,

J'ai bossé sur le CrC il y a quelques mois. J'ai trouvé et adapté deux fonctions.

La première calcul le CRC, la seconde l'intègre dans la trame. Dans les deux cas la trame est un tableau Bytes().

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Function CRC16(ByVal data() As Byte) As Array
        Dim CRC16Lo As Byte, CRC16Hi As Byte 'CRC register
        Dim CL As Byte, CH As Byte 'Polynomial codes & HA001
        Dim SaveHi As Byte, SaveLo As Byte
        Dim i As Integer
        Dim Flag As Integer
        Dim ReturnData(2) As Byte
 
        CRC16Lo = &HFF
        CRC16Hi = &HFF
        CL = &H1
        CH = &HA0
 
        For i = 0 To UBound(data)
            CRC16Lo = CRC16Lo Xor data(i) 'for each data and CRC register XOR
 
            For Flag = 0 To 7
                SaveHi = CRC16Hi
                SaveLo = CRC16Lo
                CRC16Hi = CRC16Hi  2 'peak shift to the right one
                CRC16Lo = CRC16Lo  2 'shift to the right a low
 
                If ((SaveHi And &H1) = &H1) Then 'If the high byte last one for a
                    CRC16Lo = CRC16Lo Or &H80 'then the low byte shifted to the right after the meeting in front of a
                End If 'Otherwise, auto-fill 0
 
                If ((SaveLo And &H1) = &H1) Then 'If the LSB is 1, then XOR with the polynomial codes
                    CRC16Hi = CRC16Hi Xor CH
                    CRC16Lo = CRC16Lo Xor CL
                End If
            Next Flag
        Next i
 
        ReturnData(0) = CRC16Hi 'CRC high
        ReturnData(1) = CRC16Lo 'CRC low
        Return ReturnData
    End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Function AddCRC16(ByVal data() As Byte) As Byte()
        Dim CRC16Lo As Byte, CRC16Hi As Byte 'CRC register
        Dim CL As Byte, CH As Byte 'Polynomial codes & HA001
        Dim SaveHi As Byte, SaveLo As Byte
        Dim i As Integer
        Dim Flag As Integer
        'Dim ReturnData(2) As Byte
 
        CRC16Lo = &HFF
        CRC16Hi = &HFF
        CL = &H1
        CH = &HA0
 
        For i = 0 To UBound(data)
            CRC16Lo = CRC16Lo Xor data(i) 'for each data and CRC register XOR
 
            For Flag = 0 To 7
                SaveHi = CRC16Hi
                SaveLo = CRC16Lo
                CRC16Hi = CRC16Hi  2 'peak shift to the right one
                CRC16Lo = CRC16Lo  2 'shift to the right a low
 
                If ((SaveHi And &H1) = &H1) Then 'If the high byte last one for a
                    CRC16Lo = CRC16Lo Or &H80 'then the low byte shifted to the right after the meeting in front of a
                End If 'Otherwise, auto-fill 0
 
                If ((SaveLo And &H1) = &H1) Then 'If the LSB is 1, then XOR with the polynomial codes
                    CRC16Hi = CRC16Hi Xor CH
                    CRC16Lo = CRC16Lo Xor CL
                End If
            Next Flag
        Next i
 
        'Agrandissement du data pour mettre 2 paramètres supplémentaires
        ReDim Preserve data(UBound(data) + 2)
 
        'Stock le CRC
        data(UBound(data) - 1) = Convert.ToByte(CRC16Lo)
        data(UBound(data)) = Convert.ToByte(CRC16Hi)
 
        Return data
    End Function

19/03/2013, 11h26
Rose Butterfly
Merci prologic,
Cette fonction pour calculer le CRC pour un tableau de byte reçu?
il y a une erreur de syntaxe ici :
Code:

1 2 3 CRC16Hi = CRC16Hi 2 'peak shift to the right one CRC16Lo = CRC16Lo 2 'shift to the right a low
27/03/2013, 10h49
prologic
Citation:
Envoyé par Rose Butterfly

Merci prologic,
Cette fonction pour calculer le CRC pour un tableau de byte reçu?
il y a une erreur de syntaxe ici :

Code:

1 2 3 CRC16Hi = CRC16Hi 2 'peak shift to the right one CRC16Lo = CRC16Lo 2 'shift to the right a low
Pour l'erreur de syntaxe, j'en ai pas la moindre idée, ca fonctionne pour mon programme. A la base, c'est la même fonction, j'ai juste rajouter l'insertion auto du CRC dans le tableau de bytes.

Mais j'avoue sur que tu as piqué ma curiosité....
27/03/2013, 10h59
prologic
Ca y est, j'ai trouvé....

J'ai copier/coller la fonction a partir de mon blog et l'éditeur de texte a viré des caractères:
Code:

1 2 CRC16Hi = CRC16Hi \ 2 CRC16Lo = CRC16Lo \ 2
Par contre, même après recherche, je n'ai aucune idée de l'utilité de ces oprérateurs.
27/03/2013, 11h18
Pol63

/ veut dire divisé par
\ veut dire divisé par mais avec retour en tant que nombre entier au lieu de nombre décimal

5/2 = 2.5
5\2 = 2