Haga una contraseña completamente dinámica, de modo que la misma contraseña genere resultados diferentes. Luego de la primera operación de contraseña aaa, el resultado es:
jlce1d65ec3b91556234879c9db8f6da1123
Segunda vez:
hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4
La tercera vez:
grttb05901915e121d83ebefad7e809ef1b0
... ...
Por supuesto, también puede restaurar y comparar el código que modifiqué según la función MD5 de Dongwang.
'==========================================
'palabra La cadena que se va a cifrar
'Devuelve la palabra cifrada
'Ejemplo: respuesta.escribir Md6("aaa")
'www.downcodes.com
'======================================
Función Md6(Palabra)
Dim Random, RandomNum, reRandom, reWord
Aleatorizar
Hacer mientras Len (aleatorio) <4
NumAleatorio = Chr(25 * rnd + 97)
Aleatorio = Aleatorio y Número aleatorio
Bucle
reAleatorio = Md5(Aleatorio)
rePalabra = Md5(Palabra)
Md6 = LCase(Aleatorio y Md5(reAleatorio + reWord))
Función final
'==========================================
'Wrod es la cadena que debe verificarse, OldWord es la cadena original después del cifrado.
'Devuelve el resultado de la comparación, si es igual, devuelve Verdadero, de lo contrario Falso
'Ejemplo: pwd="aaa"
'old_pwd="grttb05901915e121d83ebefad7e809ef1b0"
' si Md6Back(contraseña,contraseña_antigua)=TRUE entonces
'...
'======================================
Función Md6Back(Word, OldWord)
Dim Random, RandomNum, reRandom, reWord
Aleatorio = Medio(Palabra antigua, 1, 4)
reAleatorio = Md5(Aleatorio)
rePalabra = Md5(Palabra)
Si OldWord = Random & Md5(reRandom + reWord) Entonces
Md6Back = Verdadero
Demás
Md6Back = Falso
Terminar si
Función final