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.
Partager