<%=id1%> | <%=name%> | <%=mail%> | <%for j=3 to 10 '这就是密码长度设置,你可以设到2到10什么的. '解密过程 templen = pass oldpass = "" Int0 = 0 For i = 1 To 10 Str1 = Left(templen, 1) templen = Right(templen, Len(templen) - 1) Int1 = Asc(Str1) If i = 10 Then Int0 = 11 Else Int0 = i End If Int1 = Int1 + j - Int0 oldpass = oldpass & Chr(Int1) Next password = Left(StrReverse(oldpass), j) %><%=password%>| | '密码用|隔开 <%Next oldname=name end if%>
欢迎光临 黑色海岸线论坛 (http://bbs.thysea.com/) | Powered by Discuz! 7.2 |