동일한 비밀번호가 다른 결과를 생성하도록 완전히 동적 비밀번호를 만드십시오. 비밀번호 aaa의 첫 번째 작업 후 결과는 다음과 같습니다.
jlce1d65ec3b91556234879c9db8f6da1123
두번째:
hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4
세 번째:
grttb05901915e121d83ebefad7e809ef1b0
... ...
물론, 동왕의 MD5 기능을 기반으로 제가 수정한 코드를 복원하고 비교할 수도 있습니다.
'=========================================
'word 암호화할 문자열
'암호화된 단어를 반환합니다.
'예: response.write Md6("aaa")
'www.downcodes.com
'======================================
함수 Md6(워드)
Dim Random, RandomNum, reRandom, reWord
무작위화
Do While Len(랜덤) < 4
RandomNum = Chr(25 * rnd + 97)
무작위 = 무작위 및 무작위 숫자
고리
reRandom = Md5(랜덤)
reWord = Md5(워드)
Md6 = LCase(랜덤 & Md5(reRandom + reWord))
함수 종료
'========================================
'Wrod는 검증이 필요한 문자열이고, OldWord는 암호화 후 원본 문자열입니다.
'비교 결과를 반환하고, 같으면 True를 반환하고, 그렇지 않으면 False를 반환합니다.
'예: pwd="aaa"
' old_pwd="grttb05901915e121d83ebefad7e809ef1b0"
' Md6Back(pwd,old_pwd)=TRUE이면
'...
'======================================
함수 Md6Back(Word, OldWord)
Dim Random, RandomNum, reRandom, reWord
무작위 = 중간(OldWord, 1, 4)
reRandom = Md5(랜덤)
reWord = Md5(워드)
OldWord = Random & Md5(reRandom + reWord)이면
Md6Back = 참
또 다른
Md6Back = 거짓
종료 조건
기능 종료