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

2005/6/23 12:19:38

阅读全文(2190) | 回复(0) | 编辑 | 精华

做一个完全动态的密码，让相同的密码生成不同的结果密码aaa经过第一次运算后结果为：jlce1d65ec3b91556234879c9db8f6da1123第二次：hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4第三次：grttb05901915e121d83ebefad7e809ef1b0... ...当然，亦可还原比较以下我根据动网MD5函数修改后的代码，'======================================='word 要加密的字符串'返回加密后的 word'例：response.write Md6("aaa")'www.knowsky.com'======================================= Function Md6(Word)Dim Random, RandomNum, reRandom, reWordRandomizeDo While Len(Random) < 4RandomNum = Chr(25 * rnd + 97 )Random = Random & RandomNumLoop                                                               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, reWordRandom = Mid(OldWord, 1, 4)                         reRandom = Md5(Random)                           reWord = Md5(Word)                     If OldWord = Random & Md5(reRandom + reWord) Then      Md6Back = True  Else      Md6Back = FalseEnd IfEnd Function   [中国WEB开发者网络]

Qr

Posted by Qr on 2005/6/23 12:19:38

发表评论：

昵称： 密码： 主页： 标题： 验证码：  (不区分大小写,请仔细填写,输错需重写评论内容！)