Un modelo en Visual Basic para generar clave secreta aleatoria para usar en tus proyectos Web
<script runat="server">
'GENERA CLAVE ALEATORIA ALFA NUMÉRICA DE HASTA 62 POSISIONES
Private Function GeneraClaveAleatoria(ByVal Longitud As String) As String
Dim Clave As String = ""
Dim Valores(61) As Char
Dim i As Integer
Dim j As Integer
j = 64
For i = 0 To 61
j = j + 1
Valores(i) = Chr(j)
Select Case j
Case 90
j = 96
Case 122
j = 47
End Select
Next
Randomize()
For i = 1 To Longitud
Clave = Clave & Valores(Int(61 * Rnd()))
Next
Return Clave
End Function
</script>
Después en el espacio que deseo generarla hago esto:
Dim clavex As String
clavex = GeneraClaveAleatoria(8)
clavex = Trim(clavex)