Make a completely dynamic password, so that the same password generates different results. After the first operation of password aaa, the result is:
jlce1d65ec3b91556234879c9db8f6da1123
Second time:
hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4
The third time:
grttb05901915e121d83ebefad7e809ef1b0
... ...
Of course, you can also restore and compare the code I modified based on the MD5 function of Dongwang.
'========================================
'word The string to be encrypted
'Return the encrypted word
'Example: response.write Md6("aaa")
'www.downcodes.com
'======================================
Function Md6(Word)
Dim Random, RandomNum, reRandom, reWord
Randomize
Do While Len(Random) < 4
RandomNum = Chr(25 * rnd + 97)
Random = Random & RandomNum
Loop
reRandom = Md5(Random)
reWord = Md5(Word)
Md6 = LCase(Random & Md5(reRandom + reWord))
End Function
'========================================
'Wrod is the string that needs to be verified, OldWord is the original string after encryption.
'Return the comparison result, if equal, return True, otherwise False
'Example: pwd="aaa"
' old_pwd="grttb05901915e121d83ebefad7e809ef1b0"
' if Md6Back(pwd,old_pwd)=TRUE then
'...
'======================================
Function Md6Back(Word, OldWord)
Dim Random, RandomNum, reRandom, reWord
Random = Mid(OldWord, 1, 4)
reRandom = Md5(Random)
reWord = Md5(Word)
If OldWord = Random & Md5(reRandom + reWord) Then
Md6Back = True
Else
Md6Back = False
End If
End Function