Salut à tous,

je voudrais réaliser l'opération inverse de celle décrite ici (décryptage Base24):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
//PID est une Array[0..14] of byte à décoder
//Des est une Array[0..24] of byte résultat du décodage
//HN, Value: CARDINAL;
 
  for I := 24 downto 0 do begin
      HN := 0;
      for N := 14 downto 0 do begin
        Value := (HN shl 8) or PID[N];
        PID[N] := Value div 24;
        HN    := Value mod 24;
      end;
      Des[I] := HN;
    end;
c'est à dire partir de l'array Des pour obtenir l'array PID...
J'ai cherché mais je n'ai trouvé qu'un bon mal de tête...

Si quelqu'un a un cerveau meilleur que le mien, merci d'avance à lui.