Encodage en base24

Question

Salut à tous,

je voudrais réaliser l'opération inverse de celle décrite ici :

//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.

fa

Francky23012301 · Answer

Salut

Pourquoi ne pas utiliser Indy qui fait ca très bien ? TIdDecoderMIME et TIdEncoderMIME

cs_fadiese · Answer

Merci pour la réponse, mais Indy est une véritable usine à gaz et je n'ai besoin que de quelques lignes de code.







BON NOËL





fa

cptpingu · Answer

Ce qui pose surtout probleme c'est le "or".
J'ai essayé "d'inverser" l'algo mais je reste bloqué à cause de cet opérateur.

La table inverse du or donne:
0 0   0
0 1   1
1 0   NULL (cas impossible)
1 1   X (0 ou 1)

Il doit y avoir un moyen, mais je n'ai pas trouvé.

cs_fadiese · Answer

Petite correction pour la définition de PID :



//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;




(l'aspirine ne peut plus rien pour moi....)

fa

WhiteHippo · Answer

Tout ça ressemble fort à du décodage/encodage de clés des produits Microsoft. Car qui d'autre, à part MS, utilise la base "quadrovigesimal" ?

Cordialement. 

<hr />
L'imbécile prétentieux est celui qui se croit plus intelligent que ceux qui sont aussi bêtes que lui.

Encodage en base24

5 réponses

Votre réponse

Discussions similaires