Função para Gerar Senha

<%'##################################'#        Por: Carlos Alessandro Ribeiro(rOcKLoCo)       #'#        Data: 17/10/2003                                            #'##################################Function GeraString(tamString, tipo, tamParte) tamString = Int(tamString)     'nº de caracteres em cada parte tipo = Int(tipo)       'tipo da String: 1 alfanumérica, 2 = só letras, 3 = números tamParte = Int(tamParte)     'nº de partes que será criada if IsNumeric(tamString)  = False OR tamString = 0 then  tamString = 5 end if if IsNumeric(tipo) = False OR tipo = 0 then  tipo = 1 end if if IsNumeric(tamParte) = False OR tamParte = 0 then  tamParte = 3 end if if tipo = 1 then  MyArr = Array("1","2","3","4","5","6","7","8","9","0","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") elseif tipo = 2 then  MyArr = Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") else  MyArr = Array("1","2","3","4","5","6","7","8","9","0") end if for d = 1 to tamParte  for i = 1 to tamString   Randomize    StringGerada = StringGerada & MyArr(Int(Rnd*UBound(MyArr)))  next  varRand = StringGerada  if tamParte  = 1 then   StringFinal = StringFinal & "{" & varRand & "}"  else   if d = tamParte then    StringFinal = StringFinal & varRand & "}"   else    if d = 1 then     StringFinal = StringFinal & "{" & varRand & " - "     else     StringFinal = StringFinal & varRand & " - "    end if   end if  end if  StringGerada = "" next GeraString = StringFinalEnd Function%>

Para chamar a função ficaria assim:

<div align='center' style="font-family:verdana; font-size:11px"><%=GeraString(20, 1, 3)%></div>

e o resultado nesse caso seria:

{PKxVKzP3HHscH0nEiDmr - WIFxTPhHbidruMcepAu5 - mI8tnaLWXV3JBJkzyRV1}