Calcul CRC [Résolu]

AGG 2 Messages postés mercredi 27 juillet 2005Date d'inscription 31 mars 2014 Dernière intervention - 31 mars 2014 à 13:31 - Dernière réponse : AGG 2 Messages postés mercredi 27 juillet 2005Date d'inscription 31 mars 2014 Dernière intervention
- 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 

2 réponses

Répondre au sujet
cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention - 31 mars 2014 à 16:45
0
Utile
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
AGG 2 Messages postés mercredi 27 juillet 2005Date d'inscription 31 mars 2014 Dernière intervention - Modifié par AGG le 31/03/2014 à 17:51
0
Utile
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.