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