Discussion :

[bubulemaster]

Bonjour,

quelle est l'instruction pour faire une rotation de bit (à droite ou à gauche). En assembleur je sais que c'est ror ou rol mais je souhaite être multiplateforme.

J'ai cherché sur internet mais je n'ai rien trouvé.

Si ça n'existe pas, je le coderais.

Merci

[M.Dlb]

Il faut le coder soi-même, mais comme je suis sympa, je te donne la solution:

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
function ROL(A, B: Byte): Byte; inline;
var
  C: Byte;
begin
  C := B mod 8;
  ROL := (A shr (8 - C)) or (A shl C);
end;
 
function ROR(A, B: Byte): Byte; inline;
var
  C: Byte;
begin
  C := B mod 8;
  ROR := (A shl (8 - C)) or (A shr C);
end;

Voilà

[bubulemaster]

merci mais c'est faux. Voici le bon code :

Code :

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

1
2
3
4
5
6
7
8
9
function Rol(octet : byte; decalage : byte) : byte ;
begin
    Result := (octet shl 1) or ((octet and 128) shr 7) ;
end ;
 
function Ror(octet : byte; decalage : byte) : byte ;
begin
    Result := ((octet and 1) shl 7) or (octet shr 1) ;
end ;