Génération de Hash MD5
Code : Tout sélectionner
; Mise à jour pour PB 5.60 : Ar-S
UseMD5Fingerprint()
Mdp.s="Motdepasse" ; Le pass a crypter
Resultat$ = StringFingerprint(Mdp, #PB_Cipher_MD5,0, #PB_Unicode)
SetClipboardText(Resultat$)
MessageRequester("Résultat de l'algorithm",Resultat$)
; Le Hash MD5 pour Motdepass est donc 35f8eab4a4efbff1b40a73691bcb5a46
Code : Tout sélectionner
; Mise à jour pour PB 5.60 : Ar-S
; Mot de passe à entrer: Motdepasse
UseMD5Fingerprint()
Pass.s = InputRequester("Mot de passe","Saisir votre mot de passe","")
If Fingerprint(@Pass, StringByteLength(Pass), #PB_Cipher_MD5) = "35f8eab4a4efbff1b40a73691bcb5a46" ; Le Hash précédement entré avec la possibilité d'ajouter "une pointe de sel" si besoin
MessageRequester("Résultat","Mot de passe OK")
Else
MessageRequester("Erreur","Mauvais mot de passe !!!")
EndIf