Erstellen Sie ein vollständig dynamisches Passwort, sodass dasselbe Passwort unterschiedliche Ergebnisse generiert. Nach der ersten Operation von Passwort aaa ist das Ergebnis:
jlce1d65ec3b91556234879c9db8f6da1123
Zweites Mal:
hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4
Das dritte Mal:
grttb05901915e121d83ebefad7e809ef1b0
... ...
Natürlich können Sie den von mir geänderten Code auch basierend auf der MD5-Funktion von Dongwang wiederherstellen und vergleichen.
'=======================================
'word Die zu verschlüsselnde Zeichenfolge
„Gib das verschlüsselte Wort zurück.“
'Beispiel: Response.write Md6("aaa")
„www.downcodes.com
'====================================
Funktion Md6(Wort)
Dim Random, RandomNum, reRandom, reWord
Randomisieren
Do While Len(Random) < 4
RandomNum = Chr(25 * rnd + 97)
Random = Random & RandomNum
Schleife
reRandom = Md5(Random)
reWord = Md5(Wort)
Md6 = LCase(Random & Md5(reRandom + reWord))
Endfunktion
'=======================================
„Wrod ist die Zeichenfolge, die überprüft werden muss, OldWord ist die ursprüngliche Zeichenfolge nach der Verschlüsselung.“
'Gib das Vergleichsergebnis zurück, wenn es gleich ist, gib True zurück, andernfalls False
'Beispiel: pwd="aaa"
' old_pwd="grttb05901915e121d83ebefad7e809ef1b0"
' wenn Md6Back(pwd,old_pwd)=TRUE dann
'...
'====================================
Funktion Md6Back(Word, OldWord)
Dim Random, RandomNum, reRandom, reWord
Random = Mid(OldWord, 1, 4)
reRandom = Md5(Random)
reWord = Md5(Wort)
Wenn OldWord = Random & Md5(reRandom + reWord), dann
Md6Back = True
Anders
Md6Back = Falsch
Ende wenn
Funktion beenden