Re: Récupérer Mot de passe Analyse

Posté par bird le 20/6/2006 16:59:16

J'ai écris à Michel, pour l'instant pas de réponse.
En attendant sa réponse,
j'ai adapté la source de Michel pour Windev 10
en remplaçant OUEXBinaire disponible dans WinDev 5.5.
par OUExclusifBinaire
et en déclarant Res est une chaîne

j'obtiens des résultats bizarre :

password is

2à_Ñíáq
ou
¼Þ‘ëêÇ¥


Merci pour votre aide




buf is fixed string 1024
Res est une chaîne
i est un entier



f is int = fOpen("D:\PROJETS_2006\test.wdd")
IF f=-1 THEN Info("can't open Analysis");RETURN



fRead(f,0x16d,&buf)
fRead(f,0x8,&buf)
IF buf[[1 TO 8]] = RepeatString(Charact(0), 8) THEN
Info("No password !")
ELSE
FOR i=1 TO 8
res += Charact(OUExclusifBinaire(Asc(buf[[i]]), 0xb1))
END
Info("password is "+res)
END
resultat=res
fClose(f)