Calcul CRC [Résolu]

Messages postés
2
Date d'inscription
mercredi 27 juillet 2005
Statut
Membre
Dernière intervention
31 mars 2014
-
Bonjour,

Je dispose d'un code en c++ qui permet de calculer un CRC.
J'ai beaucoup de mal a le comprendre, puis moi et les math.

Je cherche a le refaire en VB6.

char TestCRC::CalcCRC(unsigned char *tgram)   
{
unsigned char CRC=0;
for(int i=0;i<4*8;i++)
// IF bit i in telegram XOR bit to shift out
if(((tgram[i>>3]>>(i&7))^CRC)&1)
CRC=(CRC>>1)^0xCF;
else
CRC>>=1;
return CRC;
}

Pouvez vous me mettre sur la bonne vois ?
Cordialement.
Afficher la suite 

Votre réponse

2 réponses

Messages postés
3247
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
26 décembre 2018
45
0
Merci
Bonjour
Il serait fortement conseillé que tu comprennes le raisonement du
crc et commence toi meme à écrire ton propre code en vb6
et ne pas de venir avec un bout de code en c++
en plus il y a un moteur de recherche du forum cherche crc
Commenter la réponse de cs_ShayW
Messages postés
2
Date d'inscription
mercredi 27 juillet 2005
Statut
Membre
Dernière intervention
31 mars 2014
0
Merci
J'ai fini par trouvé seul, ça fonctionne.

Function CalcCRC(tgram As String)
Dim CRC As Long, X As Integer
For X = 1 To Len(tgram)
CRC = CRC + Asc(Mid(tgram, X, 1))
Next X
CalcCRC = Chr((CRC Mod 256) Xor 255)
End Functionn
Commenter la réponse de AGG