Bonjour à tous,

Quelqu'un pourrais m'aider à convertir mon CRC fait en c++ vers le langage delphi s'il vous plaît ?

Un grand merci

Code C++ : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
unsigned short crc( unsigned char *p, unsigned short length){
	const unsigned short generator_polynom = 0x8810;
	int i, carry;
	unsigned short sum;
	for (sum = 0; length > 0 ; length -- , p++){
		sum ^= (unsigned short) *p << 8 ;
		for( i = 0 ; i<8 ; i++){
			if (carry = ((sum & 0x8000) != 0))
			{
				sum ^= generator_polynom;
 
			}
			sum = (sum <<1) + carry;
		}
 
	}
	return sum;	
}