?? getmd5.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="md5.asp"-->
<%
function getrandom( n)
randomize timer
getrandom=Int(n*Rnd(timer)+1)
end function
%>
<%=md5("admin") %>
<p>
<%
dim sel
dim num
dim total,length,i,j,cur
dim ar(),arnew()
redim ar(100)
redim arnew(100)
num=8
total=20
length=total
for i=1 to 20
ar(i)=i
next
i=1
do while(length>1 and num>0)
cur=getrandom(length)
arnew(i)=ar(cur)
for j=cur to length-1
ar(j)=ar(j+1)
next
num=num-1
length=length-1
i=i+1
loop
%>
<%for i=1 to 8 %>
<%=arnew(i) %>
<p>
<% next %>
<%
erase ar
erase arnew
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -