Создайте полностью динамический пароль, чтобы один и тот же пароль давал разные результаты. После первого применения пароля aaa результат будет следующим:
jlce1d65ec3b91556234879c9db8f6da1123
Второй раз:
hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4
Третий раз:
grttb05901915e121d83ebefad7e809ef1b0
... ...
Конечно, вы также можете восстановить и сравнить модифицированный мной код на основе функции MD5 Dongwang.
'======================================
'word Строка, которую нужно зашифровать
'Вернем зашифрованное слово
'Пример: response.write Md6("ааа")
'www.downcodes.com
'====================================
Функция Md6(Word)
Dim Random, RandomNum, reRandom, reWord
Рандомизировать
Делай, пока Лен (случайно) < 4
RandomNum = Chr(25 * rnd + 97)
Случайный = Случайный и СлучайныйЧисло
Петля
reRandom = Md5(Случайный)
переСлово = Md5(Слово)
Md6 = LCase(Random & Md5(reRandom + reWord))
Конечная функция
'======================================
'Wrod — это строка, которую необходимо проверить, OldWord — это исходная строка после шифрования.
'Возвращаем результат сравнения, если он равен, возвращаем True, в противном случае False
'Пример: pwd="ааа"
' old_pwd="grttb05901915e121d83ebefad7e809ef1b0"
' если Md6Back(pwd,old_pwd)=TRUE, то
'...
'=====================================
Функция Md6Back(Word, OldWord)
Dim Random, RandomNum, reRandom, reWord
Случайный = Средний(OldWord, 1, 4)
reRandom = Md5(Случайный)
переСлово = Md5(Слово)
Если OldWord = Random & Md5(reRandom + reWord), Тогда
Md6Back = Истина
Еще
Md6Back = Ложь
Конец, если
Конечная функция