Discussion :

[remixtech]

Bonjour,

Je tente de faire une fonction de cryptage (très basique) et je voudrai l'optimiser... Pourriez vous me dire si c'est possible ?

mon algo est le suivant :

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
var
a_crypter:array[0..99] of byte;
cle:array[0..99] of byte;
sortie:array[0..99] of byte;
begin
 
for i:=0 to 99 do begin
if a_crypter[i] + cle[i] > 255 then begin
sortie[i] := (a_crypter[i] + cle[i]) mod 256;
end
else begin
sortie[i] :=   a_crypter[i] + cle[i] ;
end;
 
end;

y'a pas un moyen plus rapide de faire ça et d'éviter le if ? Je suis bien tenté par traité ce problème avec le binaire (un byte = XXXXXXXX)...

Vous avez une idée?

Merci d'avance

[smyley]

Déjà ça :

Code :

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

1
2
3
4
5
6
7
 
if a_crypter[i] + cle[i] > 255 then begin
sortie[i] := (a_crypter[i] + cle[i]) mod 256;
end
else begin
sortie[i] :=   a_crypter[i] + cle[i] ;
end;

c'est la même chose que ça :

Code :

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

1
2
 
sortie[i] := (a_crypter[i] + cle[i]) mod 256;

donc ça deviens ça :

Code :

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

1
2
3
for i:=0 to 99 do begin
sortie[i] := (a_crypter[i] + cle[i]) mod 256;
end;

pourquoi ? parce que (a + b) mod 256 = a + b si 0 <= (a + b) < 256, a+b - 256k sinon (avec k un entier relatif différent de 0 et a et b positifs, des bytes quoi).

[remixtech]

Ha oui en effet, ...
Merci beaucoup
Y'a t'il moyen de travailler en binaire pour ce genre d'opération ?

Bonne journée

[guillemouze]

je pense que le mod n'est pas necessaire dans ton cas, car tu stock tes infos dans des bytes.
du coup, si tu fais
253 + 5 = 258
258 mod 256 = 2
or
258 = 100000010
mais un byte ne prend que 8 bits, donc les bits rouges ne seront pas pris en compte, et tu obtiendra donc
0000010 = 2

[remixtech]

Merci en effet cela fonctionne bien, je ne sais pas si je gagne en performance, mais en tout cas, la solution me semble plus "belle"...

Merci Bonne journée

[guillemouze]

Y'a t'il moyen de travailler en binaire pour ce genre d'opération ?

je sais pas si tu peux faire plus optimisé que ca, l'addition se fait simplement en additionnant les bits (donc en binaire). La question qui peut te faire gagner un peu de temps, c'est de savoir si le compilateur fait l'operation sur un entier plus grand qu'un byte (32 octets par exemple) puis ignore les bits au dela des limites du byte, ou si il fait juste le traitement sur les 8 bits necessaires. Mais a mon avis, ca ne change pas grand chose.

[ShaiLeTroll]

Euh, les opérateurs logiques et binaires sont les mêmes, ce qui rend parfois la chose confuse par rapport au C ... donc le and var effectuer le masque en recopiant que les 1 en commun ...

Code :

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

1
2
for i:=0 to 99 do 
  sortie[i] := a_crypter[i] and cle[i];

[remixtech]

Quel est l'avantage d'utiliser le and ? Le '+' n'est il pas un "and" camouflé ici ?

Merci beaucoup