랜덤키를 만들어야 하는 경우에 이용가능하다.

랜덤으로 만들어진 값을 숫자(0~9)와 알파벳으로 표현하는 36진수로 변환 하여 랜덤키를 만듭니다.

<%
response.write KeyGen32()&".txt"

function KeyGen32()
	dim iRnd, Response
	dim cRnd, i
	Randomize

	cRnd = ""
	for i = 1 to 8
		iRnd = Int(( 999999 - 1 + 1) * Rnd + 1) '=== 6 digits
		cRnd = cRnd & Dec6to36( FillZero(iRnd,6) )
	next
	KeyGen32 = cRnd
end function


function Dec6to36(num)
	dim d1,d2,d3,d4,r1,r2

	d1 = Int( num / 46656 )
		r1 = ( num mod 46656 )
	d2 = Int( r1 / 1296 )
		r2 = ( r1 mod 1296 )
	d3 = Int( r2 / 36 )
	d4 = ( r2 mod 36 )

	Dec6to36 = Convert10to36(d1) & Convert10to36(d2) & Convert10to36(d3) & Convert10to36(d4)
end function

'== 10진수를 36진수로 변환
function Convert10to36( i )
	if ( i < 10 ) then
		Convert10to36 = i
	else
		Convert10to36 = chr(55+i)
	end if
end function

function FillZero( cString, iLength )
	FillZero = FillString( cString, iLength, "0" )
end function

function FillString( cString, iLength, cFillString )
	if( iLength >Len(cString) ) then
		FillString = ( String( iLength -Len( cString ), cFillString ) & cString )
	else
		FillString = cString
	end if
end function
%>