Calcul CRC [Résolu]

Messages postés
2
Date d'inscription
mercredi 27 juillet 2005
Dernière intervention
31 mars 2014
- 31 mars 2014 à 13:31 - Dernière réponse :
Messages postés
2
Date d'inscription
mercredi 27 juillet 2005
Dernière intervention
31 mars 2014
- 31 mars 2014 à 17:23
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
3238
Date d'inscription
jeudi 26 novembre 2009
Dernière intervention
14 mars 2018
- 31 mars 2014 à 16: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
Dernière intervention
31 mars 2014
- Modifié par AGG le 31/03/2014 à 17:51
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.