WDForge.org - Forums

Re: Récupérer Mot de passe Analyse

Sujet: Re: Récupérer Mot de passe Analyse
par bird sur 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)