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 %>