www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > code.asp

    <%
Function pwdCode(Word)
Dim aa
For aa=1 To Len(Word)
pwdCode=pwdCode & Asc(Mid(Word,aa,1))
Next
pwdCode=Hex(pwdCode)
End Function

Function pwdtoCode(CodeStr)
Dim CodeLen,CodeSpace,NewCode,bb,cc,dd,ee
CodeLen=16
CodeSpace=CodeLen-Len(CodeStr)
If Not CodeSpace<1 Then
For bb=1 To CodeSpace
CodeStr=CodeStr & Chr(29)
Next
End If
NewCode=1
For dd=1 To CodeLen
cc=CodeLen+Asc(Mid(CodeStr,dd,1))*dd
NewCode=NewCode*cc
Next
CodeStr=NewCode
NewCode=Empty
For ee=1 To Len(CodeStr)
NewCode=NewCode & pwdCode(Mid(CodeStr,ee,3))
Next
For ee=2 To Len(NewCode) Step 2
pwdtoCode=pwdtoCode & Mid(NewCode,ee,1)
Next
End Function
%>