<%
'*******************************
'기능 : gen_key (숫자)
'매개 변수 : 숫자 ---- 임의의 숫자를 생성하기위한 비트 수
'저자 : Alixi
'날짜 : 2007/7/13
'설명 : 숫자, 대문자, 소문자로 명시된 임의의 숫자를 생성합니다. 반환 값 : 생성 할 임의의 지정된 배수 숫자
'예 : <%= gen_key (8)%>
'*******************************
functiongen_key (숫자)
'배열을 정의하고 초기화합니다
Dimchar_array (80)
'번호를 초기화하십시오
fori = 0to9
char_array (i) = cstr (i)
다음
'대문자 초기화
fori = 10to35
char_array (i) = chr (i+55)
다음
'소문자 초기화
fori = 36to61
char_array (i) = chr (i+61)
다음
Randomize '랜덤 숫자 생성기를 초기화합니다.
Dowhilelen (출력) <숫자
num = char_array (int ((62-0+1)*rnd+0))
출력 = 출력+num
고리
'반환 값을 설정하십시오
gen_key = 출력
최종 기능 장애
%>