'=======================================
    '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