Créez un mot de passe complètement dynamique, afin que le même mot de passe génère des résultats différents. Après la première opération du mot de passe aaa, le résultat est :
jlce1d65ec3b91556234879c9db8f6da1123
Deuxième fois:
hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4
La troisième fois :
grttb05901915e121d83ebefad7e809ef1b0
... ...
Bien sûr, vous pouvez également restaurer et comparer le code que j'ai modifié en fonction de la fonction MD5 de Dongwang.
'=========================================
'word La chaîne à chiffrer
'Renvoyer le mot crypté
'Exemple : réponse.write Md6("aaa")
'www.downcodes.com
'======================================
Fonction Md6 (Mot)
Dim Random, RandomNum, reRandom, reWord
Randomiser
Faire pendant que Len (Aléatoire) < 4
RandomNum = Chr(25 * rnd + 97)
Aléatoire = Aléatoire et NuméroAléatoire
Boucle
reRandom = Md5 (Aléatoire)
reWord = Md5(Mot)
Md6 = LCase (Aléatoire & Md5 (reRandom + reWord))
Fin de la fonction
'=========================================
'Wrod est la chaîne qui doit être vérifiée, OldWord est la chaîne d'origine après cryptage.
'Renvoie le résultat de la comparaison, s'il est égal, renvoie True, sinon False
'Exemple : pwd="aaa"
'old_pwd="grttb05901915e121d83ebefad7e809ef1b0"
' si Md6Back(pwd,old_pwd)=TRUE alors
'...
'======================================
Fonction Md6Back (Word, OldWord)
Dim Random, RandomNum, reRandom, reWord
Aléatoire = Milieu (OldWord, 1, 4)
reRandom = Md5 (Aléatoire)
reWord = Md5(Mot)
Si OldWord = Random & Md5 (reRandom + reWord) Alors
Md6Back = Vrai
Autre
Md6Retour = Faux
Fin si
Fonction de fin