安大互联
财经热点 > Asp编程 > 升级MD5.ASP,打造完全动态不重复的加密代码
升级MD5.ASP,打造完全动态不重复的加密代码
浏览次数:【261】  发布日期:2009-8-13 12:09:22    文章分类:Asp编程   
专题:】 【
 
做一个完全动态的密码,让相同的密码生成不一样的结果
密码aaa经过第壹次运算后结果为:
jlce1d65ec3b91556234879c9db8f6da1123
第贰次:
hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4
第叁次:
grttb05901915e121d83ebefad7e809ef1b0
... ...

当然,亦可还原比较
以下我根据动网MD5函数更改后的代码,
'=======================================
'word 要加密的字符串
'返回加密后的 word
'例:response.write Md6("aaa")'=======================================

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
手机扫码浏览该文章
 ● 相关资讯专题
  • 网络建设业务咨询

   TEl:13626712526