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

je voudrais réaliser l'algo INVERSE de celui ci :

//PID est une Array[0..14] of CARDINAL à 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;


De sorte de retrouver PID à partir de DES

Dur dur, c'est pas évident pour moi.