当前位置: 首页 > 图文教程 > 网络编程 > ASP > 升级MD5.ASP，打造完全动态不重复的安全加密代码

ASP
ASP系列讲座（十）ASP 内建对象
ASP系列讲座（十一）ActiveX 组件
ASP系列讲座（十二）向浏览器发送内容
ASP系列讲座（十三）向浏览器传送脚本
ASP系列讲座（十四）包含文件
ASP系列讲座（十五）使用 HTML 表格
ASP系列讲座（十六）访问数据库
ASP系列讲座（十七）调试 ASP 脚本
ASP系列讲座（十八）管理应用程序
ASP系列讲座（十九）管理会话
ASP系列讲座（二十）维护 ASP 应用程序的安全
ASP系列讲座（二十一）创建事务性脚本
ASP系列讲座（二十二）使用国际站点
ASP系列讲座（二十三）编写跨平台应用程序
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （一）
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （二）
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （三）
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （四）
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （五）
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （六）

No. « 154 155 156 157 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 62 ::
收藏到网摘: n/a

 

做一个完全动态的密码，让相同的密码生成不同的结果
密码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