当前位置:七道奇文章资讯安全技术网络技术
日期:2009-12-19 13:39:00  来源:本站整理

打造完好动态不反复的安全加密代码进级MD5.ASP[网络技术]

赞助商链接



  本文“打造完好动态不反复的安全加密代码进级MD5.ASP[网络技术]”是由七道奇为您精心收集,来源于网络转载,文章版权归文章作者所有,本站不对其观点以及内容做任何评价,请读者自行判断,以下是其具体内容:

做一个完好动态的密码,让相同的密码生成差别的后果
密码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


  以上是“打造完好动态不反复的安全加密代码进级MD5.ASP[网络技术]”的内容,如果你对以上该文章内容感兴趣,你可以看看七道奇为您推荐以下文章:
  • 打造完好动态不反复的安全加密代码进级MD5.ASP
  • 本文地址: 与您的QQ/BBS好友分享!
    • 好的评价 如果您觉得此文章好,就请您
        0%(0)
    • 差的评价 如果您觉得此文章差,就请您
        0%(0)

    文章评论评论内容只代表网友观点,与本站立场无关!

       评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
    Copyright © 2020-2022 www.xiamiku.com. All Rights Reserved .