news.55.la - 我拉站长咨询网

站长资讯通告:
搜索: 您的位置主页 > 网络编程 > Asp编程 > 阅读资讯:升级MD5.ASP,打造完整动态不重复的安全加密代码

升级MD5.ASP,打造完整动态不重复的安全加密代码

2012-11-20 18:16:20 来源: 【 评论: 作者:admin
摘要: 做一个完整动态的密码,让雷同的密码天生不同的成果 密码aaa经过第一次运算后成果为: jlce1d65ec3b91556234879c9db8f6da1123 第二次: hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4 第三次: grttb05901915e121d83e

做一个完整动态的密码,让雷同的密码天生不同的成果
密码aaa经过第一次运算后成果为:
jlce1d65ec3b91556234879c9db8f6da1123
第二次:
hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4
第三次:
grttb05901915e121d83ebefad7e809ef1b0
... ...
当然,亦可还原比拟
以下我根据动网MD5函数修正后的代码,
'=======================================
'word 要加密的字符串
'返回加密后的 word
'例:response.write Md6('aaa')
'www.webjx.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


顶一下
(0)
0%
踩一下
(2)
100%
Tags:
责任编辑:静水流深
收藏】 【挑错】 【推荐】 【打印
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片