ss_md5.asp

网络办公系统源码

<!--#include file="md5.asp"-->
<%

Function Ss_Md5_RandStr(LenNum)
On Error Resume Next
    Randomize
    For k = 1 To LenNum
    'tmp = tmp & Mid("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz", Fix(Rnd * 63) + 1, 1)
	tmp = tmp & Mid("0123456789abcdef", Fix(Rnd * 16) + 1, 1)
    Next
    Ss_Md5_RandStr = tmp
End Function

Function Ss_Md5_In(vstr,vwhere,vistr)
On Error Resume Next
   Dim str1,str2,lenstr
         lenstr=len(vstr)
         if lenstr<=vwhere then
             Ss_Md5_In=vstr&vistr
         else
             str1=left(vstr,vwhere)
             str2=left(vstr,lenstr-vwhere)
             Ss_Md5_In=str1&vistr&str2
         end if
End Function



Function Ss_Md5_Check(Word,OldWord)
Dim Random, RandomNum, reRandom, reWord,Rwmd5

Random = Mid(OldWord,11,1)&Mid(OldWord,21,1)&Mid(OldWord,29,1)  
reWord = Md5(Word,16)  
reRandom = Md5(Random,16)  
Rwmd5 = Md5(reRandom+reWord,32)  

Ss_Md5_Check =Ss_Md5_In(Rwmd5,10,Mid(Random,1,1))
Ss_Md5_Check =Ss_Md5_In(Ss_Md5_Check,20,Mid(Random,2,1))
Ss_Md5_Check =Ss_Md5_In(Ss_Md5_Check,28,Mid(Random,3,1))

End Function

Function Ss_Md5(Word)
Dim RandomNum, reRandom, reWord,Rwmd5
Random = Ss_Md5_RandStr(3)                                                           
reRandom = Md5(Random,16)                          
reWord = Md5(Word,16) 
Rwmd5= Md5(reRandom+ reWord,32)
                            
Ss_Md5 =Ss_Md5_In(Rwmd5,10,Mid(Random,1,1))
Ss_Md5 =Ss_Md5_In(Ss_Md5,20,Mid(Random,2,1))
Ss_Md5 =Ss_Md5_In(Ss_Md5,28,Mid(Random,3,1))

End Function

%>