<%
'*******************************
'기능 : makepassword (byvalmaxlen)
'매개 변수 : Maxlen, 생성 할 비밀번호 숫자의 길이
'저자 : Alixi
'날짜 : 2007/7/12
'설명 : 여러 자리의 임의 암호를 생성합니다
'예 : <%= makepassword (8)%>
'*******************************
functionmakepassword (byvalmaxlen)
Dimstrnewpass
DimWhatsNext, 상단, 하부, 인스턴터
무작위 화
forIntCounter = 1TOMAXLEN
whatsnext = int ((1-0+1)*rnd+0)
ifwhatsnext = 0then
'성격
상단 = 90
낮은 = 65
또 다른
상단 = 57
낮은 = 48
endif
strnewpass = strnewpass & chr (int ((상위 저하+1)*rnd+lower))
다음
makepassword = strnewpass
최종 기능 장애
%>