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)

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