Funcion para Generar Contraseñas

La siguiente función permite generar contraseñas automáticamente y aleatoriamente. Sin usar dll o librerías extras, solo usando la función Random.

Module mdGenPass
Dim rNum As New Random(100)
Dim rLowerCase As New Random(500)
Dim rUpperCase As New Random(50)
Dim psw As String
Dim RandomSelect As New Random(50)

Public Function Gen_Psw(ByVal Lenght As Integer, Optional ByVal Reset As Boolean = False) As String
Dim i As Integer
Dim CNT(2) As Integer
Dim Char_Sel(2) As String
Dim iSel As Integer

If Reset = True Then
psw = ""
End If
For i = 1 To Lenght
CNT(0) = rNum.Next(48, 57)
CNT(1) = rLowerCase.Next(65, 90)
CNT(2) = rUpperCase.Next(97, 122)
Char_Sel(0) = System.Convert.ToChar(CNT(0)).ToString
Char_Sel(1) = System.Convert.ToChar(CNT(1)).ToString
Char_Sel(2) = System.Convert.ToChar(CNT(2)).ToString
iSel = RandomSelect.Next(0, 3)
psw &= Char_Sel(iSel)
If Reset = True Then

psw.Replace(psw, Char_Sel(iSel))
End If
Next
Return psw
End Function
End Module

 

Se puede llamar la función así:

Gen_Psw()

Para el ejemplo creare una forma con un botón que me permita llamar la función.

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
MessageBox.Show(Gen_Psw(80, False), "Función Generar Contraseña")
End Sub

Donde el numero 80 es el tamaño o longitud de caracteres en la contraseña a generar. Pueden bajar el ejemplo de Acá. Requisitos (Microsoft Visual Studio 2010)


8 Responses

  1. Ing. Juan Mancilla dice:

    Hola, yo quisiera saber que cambias hay que hacer para usar este codigo en Visual Basic .net 2010

  2. Ing. Juan Mancilla dice:

    Estuve viendo la denominación y es .net, retiro lo dicho anteriormente!!!

  3. Víctor Cáceres dice:

    Muy bueno, para motivar el uso del Visual.net, aunque me gustaría para complementar sí es posible hallar un manual o similar gratis, donde estén todas las funciones o sentencias, para ir mejorando o progresando el desarrollo de aplicaciones en estos lenguajes. Saludos

  4. Alexis dice:

    Facil, copias las funciones en nuestro sabio google y ahi tienes para aprender.

    Muy bueno el Articulo, gracias

  5. LUIS BARRAL dice:

    BUENISIMO!!!!!

  6. Esefany dice:

    Me gustaría este mismo ejemplo pero en VBA, ya que varias palabras cambian, gracias de ante mano

  7. Jensy dice:

    Buen Aporte :)

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *

*

Puedes usar las siguientes etiquetas y atributos HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

© VB-MUNDO – Visual Basic y mucho más
CyberChimps