Discussion :

[fadiese_1]

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.

[anapurna]

salut


bon j'ai pas la reponse mais peut etre quelque voix

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
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; //=>  PID[N]  := (Value) DIV 24
        HN    := Value mod 24; //=> HN = (Value) - PID[N]
        //=> HN = Value - (Value DIV 24) => 24 *HN = 24*Value - Value
        // => 24 HN = 23 Value => 24/23 HN = Value   
      end;
      Des[i] := HN;
    end;

en sachant que le SHL est une decalage de bit a gauche ce qui revient a
2 ^8 = 256

@+ Phil

[Graffito]

Bnjour,

En modifiant un peu le code pour stocker les valeurs intermédiaires, cela donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
//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 N := 14 downto 0 do TPID[25,N]:=PID[N]
  for I := 24 downto 0 do begin
  THN[i,15] := 0;
      for N := 14 downto 0 do begin
        TValue[i,N] := THN[i,N+1]*256 + TPID[i+1,N];
        THN[i,N]  := TValue[i,N] mod 24;
        TPID[i,N] := (TValue[i,N] - THN[i,N])/24 ;
      end;
      Des[I] := THN[i,0];
    end;

A partir des Des[i], on obtient évidemment THN[i,0] et ensuite ...je coince aussi

Dans quel cadre est demandé ce décryptage ?
Est-on sur qu'il y a réellement une solution ?

il faudrait-il peut-être demander aux modérateurs le transfert du post sur le forum algorithme.

[fadiese_1]

Petit rectificatif sur la définition de PID :

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 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;

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.

Le but de cet algo est d'inscrire dans le registre la clé de Windows XP lors d'une installation en Unattended. L'intêret, c'est que toutes les maj sont intégrées dans le CD ainsi que IE7 et WMP11 car ceux-ci demandent qu'une clé valide soit présente lors de leur installation . Du coup, plus d'attente.

Tout ceci est parfaitement légal et régulier, bien sur.

L'algo fourni ici sert à trouver la clé d'origine depuis celle cryptée en base24 dans le registre.

[tourlourou]

SGDG :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
for i:=0 to 24 do begin
  HN:=Des[i];
  for n:=0 to 14 do begin
    value:=24*PID[n]+HN;
    HN:=value div 256;
    PID[n]:=value mod 256;
  end;
end;

[fadiese_1]

ON A TROUVE LE CERVEAU !!!

SGDG :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
for i:=0 to 24 do begin
  HN:=Des[i];
  for n:=0 to 14 do begin
    value:=24*PID[n]+HN;
    HN:=value div 256;
    PID[n]:=value mod 256;
  end;
end;

[defluc]

N'ayant pas bien compris le sujet, j'ai observé à distance.

Chapeau les gars.