Faça uma senha totalmente dinâmica, para que a mesma senha gere resultados diferentes. Após a primeira operação da senha aaa, o resultado é:
jlce1d65ec3b91556234879c9db8f6da1123
Segunda vez:
hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4
A terceira vez:
grttb05901915e121d83ebefad7e809ef1b0
... ...
Claro, você também pode restaurar e comparar o código que modifiquei com base na função MD5 de Dongwang.
'=======================================
'word A string a ser criptografada
'Retorna a palavra criptografada
'Exemplo: resposta.write Md6("aaa")
'www.downcodes.com
'=====================================
Função Md6 (Word)
Dim Random, RandomNum, reRandom, reWord
Randomizar
Faça enquanto Len (aleatório) <4
RandomNum = Chr(25 * final + 97)
Aleatório = Aleatório e Número Aleatório
Laço
reAleatório = Md5 (Aleatório)
rePalavra = Md5(Palavra)
Md6 = LCase (Aleatório e Md5 (reRandom + reWord))
Função final
'========================================
'Wrod é a string que precisa ser verificada, OldWord é a string original após a criptografia.
'Retorna o resultado da comparação, se for igual, retorna True, caso contrário retorna False
'Exemplo: pwd="aaa"
'old_pwd="grttb05901915e121d83ebefad7e809ef1b0"
'se Md6Back(pwd,old_pwd)=TRUE então
'...
'=====================================
Função Md6Back(Word, OldWord)
Dim Random, RandomNum, reRandom, reWord
Aleatório = Médio (OldWord, 1, 4)
reAleatório = Md5 (Aleatório)
rePalavra = Md5(Palavra)
Se OldWord = Random & Md5 (reRandom + reWord) Então
Md6Back = Verdadeiro
Outro
Md6Back = Falso
Terminar se
Função final