Calcul CRCRésolu

Question

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.

cs_ShayW · Answer

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

AGG · Answer

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

Calcul CRC

2 réponses

Votre réponse

Discussions similaires