<%
'***********************************
'Função: gen_key (dígitos)
Parâmetros: dígitos ---- o número de bits para gerar números aleatórios
'Autor: Alixi
Data: 2007/7/13
'Descrição: gerar um número aleatório de dígitos especificados por números, letras maiúsculas, letras minúsculas; Valor de retorno: um número aleatório de múltiplo especificado a ser gerado
'Exemplo: <%= gen_key (8)%>
'***********************************
Functiongen_key (dígitos)
'Defina e inicialize a matriz
DiMchar_array (80)
'Inicialize o número
Fori = 0to9
char_array (i) = cstr (i)
Próximo
'Inicialize letras maiúsculas
Fori = 10to35
char_array (i) = ch (i+55)
Próximo
'Inicialize letras minúsculas
Fori = 36to61
char_array (i) = ch (i+61)
Próximo
Randomize 'inicializa o gerador de números aleatórios.
Dowhilelen (saída) <dígitos
num = char_array (int ((62-0+1)*rnd+0))
saída = saída+num
laço
'Defina o valor de retorno
gen_key = saída
Função final
%>