none
GENERAR CONTRASEÑAS DE 10 DIGITOS ALEATORIAS, QUE CONTENGAN NUMERO Y LETRAS. RRS feed

  • Pregunta

  • Buenas Tardes, la verdad es que me resulta interesante el sabaer como puedo generar claves dando clic en un bioton y me aparesca en un textbox, necesito consejos de como hacerlo gracias
    jueves, 21 de enero de 2016 21:25

Respuestas

  • Hola, puedes intentar el siguiente código:

    public string CrearPassword(int longitud) { string caracteres = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"; StringBuilder res = new StringBuilder(); Random rnd = new Random(); while (0 < longitud--) { res.Append(caracteres[rnd.Next(caracteres.Length)]); } return res.ToString(); }

    luego para tu textbox;

    texbox.Value =CrearPassword(10);

    en caracteres podrías agregar o quitar los caracteres que necesites

    jueves, 21 de enero de 2016 21:32

Todas las respuestas

  • Hola, puedes intentar el siguiente código:

    public string CrearPassword(int longitud) { string caracteres = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"; StringBuilder res = new StringBuilder(); Random rnd = new Random(); while (0 < longitud--) { res.Append(caracteres[rnd.Next(caracteres.Length)]); } return res.ToString(); }

    luego para tu textbox;

    texbox.Value =CrearPassword(10);

    en caracteres podrías agregar o quitar los caracteres que necesites

    jueves, 21 de enero de 2016 21:32
  • Gracias, lo dejo en VB.NET si alguien lo requiere.

        Private Function CrearPassword(longitud As Integer) As String
            Dim caracteres As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
            Dim res As New StringBuilder()
            Dim rnd As New Random()
            While 0 < System.Math.Max(System.Threading.Interlocked.Decrement(longitud), longitud + 1)
                res.Append(caracteres(rnd.[Next](caracteres.Length)))
            End While
            Return res.ToString()
        End Function
    
        Private Sub btngenerarcontraseña_Click(sender As Object, e As EventArgs) Handles btngenerarcontraseña.Click
            txtcontraseña.Text = CrearPassword(10)
        End Sub

    • Propuesto como respuesta manuelcolletti miércoles, 20 de junio de 2018 14:48
    jueves, 21 de enero de 2016 21:41