Conversion c++ en delphi

Version imprimable

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:

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

ça doit donner quelque chose de cet ordre

Code:

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;

Citation:

Envoyé par Paul TOTH

ça doit donner quelque chose de cet ordre

Code:

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.

11/12/2020, 16h22
ShaiLeTroll
Citation:
Envoyé par zohra051

Code:

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:

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

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

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)
11/12/2020, 17h15
Paul TOTH
en fait le code initial correspond à un truc comme
Code:

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 :)
11/12/2020, 17h20
ShaiLeTroll

Citation:

Envoyé par Paul TOTH

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 ...