升级MD5，打造完全动态不重复的安全加密代码

来源：作者：出处：巧巧读书 2006-09-13 进入讨论组

关键词：
word

讨论组：http://group.qqread.com

　　做一个完全动态的密码，让相同的密码生成不同的结果
　　密码aaa经过第一次运算后结果为：
jlce1d65ec3b91556234879c9db8f6da1123
　　第二次：
hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4
　　第三次：
grttb05901915e121d83ebefad7e809ef1b0

... ...
　　当然，亦可还原比较

　　以下我根据动网MD5函数修改后的代码，
'=======================================
'word 要加密的字符串
'返回加密后的 word
'例：response.write Md6("aaa")
'www.knowsky.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 需要验证的字符串，Oldword 加密后的原字符串
'返回比较后的结果，如果相等返回True，反之False
'例：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