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)

Comenta este contenido