Traduction code de C en vb6 ?

Bonjour,

j'ai un léger soucis pour traduire ce morceau de code en vb6
Est ce que quelqu'un saurait m'aider svp?
D'avance merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#define MA_VAR 0x08408 unsigned int GetCRC16(unsigned char* bufData, unsigned int sizeData) { unsigned int CRC, i; unsigned char j; CRC = 0; for(i=0; i < sizeData; i++) { CRC ^= bufData[i]; for(j=0; j < 8; j++) { if(CRC & 0x0001) {CRC >>= 1; CRC ^= MA_VAR;} else CRC >>= 1; } } return CRC; }

---

Bonsoir,

Approximativement (VB ne gère pas les représentations non signées)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function GetCRC16(bufData() As Byte, sizeData As Long) As Long Const MA_VAR As Long = &H8408 '? + 65536 ? Dim CRC As Long, i As Long, j As Byte, b As Boolean   For i = 0 To sizeData - 1 CRC = CRC Xor bufData(i) For j = 0 To 7 b = (CRC And 1) CRC = CRC \ 2 If b Then CRC = CRC Xor MA_VAR Next Next   GetCRC16 = CRC End Function

---