Discussion :

[Andry]

Bonjour à tous.
Nous avons une petite application existant qui fonctionne très bien mais je dois le réécrire pour modifier un traitement et rajouter une fonctionnalité.
Le souci actuel est l'accès au programme qui necessite un couple User/Mot de passe. J'ai appelé le gars qui a developpé le soft et il m'a dit qu'il suffit de faire un XoR 0xAAAAAAAB sur le mdp cripter pour l'avoir en clair.

Comment faire ?

Merci

[Paul TOTH]

Bonjour à tous.
Nous avons une petite application existant qui fonctionne très bien mais je dois le réécrire pour modifier un traitement et rajouter une fonctionnalité.
Le souci actuel est l'accès au programme qui necessite un couple User/Mot de passe. J'ai appelé le gars qui a developpé le soft et il m'a dit qu'il suffit de faire un XoR 0xAAAAAAAB sur le mdp cripter pour l'avoir en clair.

Comment faire ?

Merci

à vu de nez, le mot de passe crypté a une longueur multiple de 4

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function Decrypt(const pass:string):string;
var
  p : pcardinal;
  i  : Integer;
begin
  Result := pass;
  p := @Result[1];
  for i := 0 to (Length(Result) div 4)-1 do
  begin
   p^:=p^ xor $AAAAAAAB;
   inc(p);
  end;
end;

[Andry]

Cool Paul.
Effectivement, le mdp max est de 4 caractères. J'ai verifier avec l'ancien prog en creant un utilisateur et en testant la valeur avec chaque password entrée et enregistrer par l'appli.
Le hic c'est que la longueur maximal autorisé est de 4 caractères, or je me suis amusé à ne rentrer que 3 caractères, et la ça bug.

Comment y remedier.

[Paul TOTH]

une solution simple est de le retailler à 4 caractère plus de le tronquer à sa taille initiale

sinon il faut faire un XOR 8bit au lieu de le faire sur 32 bits avec $AA ou $AB selon le cas

[Andry]

Merci Paul.
Effectivement, j'ai déjà modifier la routine pour détecter la taille du passe et ensuite retailler le résultat en fonction.

En tous cas, merci pour ton aide.