Discussion :

[zohra051]

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;	
}

[Paul TOTH]

ça doit donner quelque chose de cet ordre

Code :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
// unsigned short crc( unsigned char *p, unsigned short length){
fuction crc(p: PAnsiChar; len: Integer): word;
//	const unsigned short generator_polynom = 0x8810;
//	int i, carry;
//	unsigned short sum;
var
  generator_polynom: Word;
  x, i, carry: Integer;
  num: Word;
begin
  generator_polynom := $8810;
//	for (sum = 0; length > 0 ; length -- , p++){
  sum := 0;
  for x := 0 to length - 1 do
  begin
//		sum ^= (unsigned short) *p << 8 ;
    sum := sum xor (ord(p[x]) shl 8);
//		for( i = 0 ; i<8 ; i++){
   for i := 0 to 7 do
  begin
//			if (carry = ((sum & 0x8000) != 0))
   carry := Ord(sum and $8000 <> 0);
   if carry <> 0 then
   begin
//				sum ^= generator_polynom;
     sum := sum xor generator_polynom;
//		}
  end;
//			sum = (sum <<1) + carry;
   sum := (sum shl 1) + carry;
//		}
  end;
//	}
  end;
//	return sum;	
  Result := sum;
//}
end;

[zohra051]

ça doit donner quelque chose de cet ordre

Code :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
// unsigned short crc( unsigned char *p, unsigned short length){
fuction crc(p: PAnsiChar; len: Integer): word;
//	const unsigned short generator_polynom = 0x8810;
//	int i, carry;
//	unsigned short sum;
var
  generator_polynom: Word;
  x, i, carry: Integer;
  num: Word;
begin
  generator_polynom := $8810;
//	for (sum = 0; length > 0 ; length -- , p++){
  sum := 0;
  for x := 0 to length - 1 do
  begin
//		sum ^= (unsigned short) *p << 8 ;
    sum := sum xor (ord(p[x]) shl 8);
//		for( i = 0 ; i<8 ; i++){
   for i := 0 to 7 do
  begin
//			if (carry = ((sum & 0x8000) != 0))
   carry := Ord(sum and $8000 <> 0);
   if carry <> 0 then
   begin
//				sum ^= generator_polynom;
     sum := sum xor generator_polynom;
//		}
  end;
//			sum = (sum <<1) + carry;
   sum := (sum shl 1) + carry;
//		}
  end;
//	}
  end;
//	return sum;	
  Result := sum;
//}
end;

Je te remercie grandement, je comprend beaucoup mieux. C'est très gentil.

[ShaiLeTroll]

Code C++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
	for (sum = 0; length > 0 ; length -- , p++)

Original ce length -- pour éviter une variable "j"
Se servir du for pour initaliser le sum à zéro en début de boucle, ça aussi c'est retord

pour rester dans l'esprit de l'optimisation je n'aurais pas utilisée x de for x := 0 to length - 1 do

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sum := sum xor (ord(p[x]) shl 8);

ainsi serait comme en C++ avec un incrément

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sum := sum xor (ord(p^) shl 8);
Inc(p);

Avantage, ne pas utiliser x génère une boucle for légèrement différente (en fait celle du C++ allant de length - 1 à 0 au lieu de 0 à length - 1, la comparaison à zéro étant plus rapide)

[Paul TOTH]

en fait le code initial correspond à un truc comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
  sum := 0;
  while length > 0 do
  begin
   ...
    Dec(Length);
    Inc(p);
  end;

l'introduction de X évite l'incrément et décrément...je n'ai pas regardé le code généré mais il est possible que X soit un registre avec une lecture de [ofs + reg] qui soit plus rapide au final

[ShaiLeTroll]

en fait le code initial correspond à un truc comme ... while length > 0 do

Tout à fait, je trouve ta dernière forme plus proche du code C++, je trouve ça plus didactique cette traduction qui effectue les mêmes opérations

unsigned char *p aimant savoir le contexte, si c'est plutôt un PAnsiChar ou un PByte ... car le type de paramètre peut influencer le code, surtout en Delphi entre le RawByteString, le array of Char ou TBytes ...