Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Visual Basic.NET - generador de contraseñas alfanumericas

  Imprimir  
Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

generador de contraseñas alfanumericas

Autor:alan carrillo (9 intervenciones)
Fecha:10/10/2008 21:33:09
solo aclarando antes de k entren en tema, este pequeño random genera variables numericas que despues 3 de ellas se convierten en un par de letras por medio de un case, hay una forma de eliminar el case usando codigo ascii pero me dio flojera echarle coco jajaja. bueno aki les dejo este codigo. que espero les sea de utilidad para ustedes.


Private Sub btnacc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnacc.Click
'-----generador de random-----
'!***elaborado por alan carrillo romero*****
'!

Dim rnd As New Random
Dim alfarndg As String = rnd.Next(0, 60)
Dim alfarndg1 As String = rnd.Next(0, 60)
Dim alfarndg2 As String = rnd.Next(0, 60)

'----almacenadoras---

Dim pca As Integer = rnd.Next(1, 99)
Dim pce As String
Dim pce1 As Integer = alfarndg
Dim pci As String
Dim pci1 As Integer = alfarndg1
Dim pco As Integer = rnd.Next(1, 99)
Dim pc32 As Integer = rnd.Next(1, 99)
Dim pcu As String
Dim pcu1 As Integer = alfarndg2
Dim var As Integer = Nothing
Dim var2 As String
'***este es un goto simplemente para evitar el ciclo for****
slay:
'---------coloca valores------
Dim undo As Integer = 0
If undo = 0 Then
If var = Nothing Then
var = pce1
Else
If var = pce1 Then
var = pci1
pce1 = Nothing
Else
If var = pci1 Then
var = pcu1
pci1 = Nothing
undo = 1
End If
End If
End If

'** esta parte convierte el numero en letra
Select Case var
Case 0 : var2 = "ah"
Case 1 : var2 = "bx"
Case 2 : var2 = "ch"
Case 3 : var2 = "dp"
Case 4 : var2 = "ea"
Case 5 : var2 = "ff"
Case 6 : var2 = "gt"
Case 7 : var2 = "hh"
Case 8 : var2 = "iu"
Case 9 : var2 = "jb"
Case 10 : var2 = "kw"
Case 11 : var2 = "lw"
Case 12 : var2 = "wm"
Case 13 : var2 = "nf"
Case 14 : var2 = "fo"
Case 15 : var2 = "pf"
Case 16 : var2 = "hq"
Case 17 : var2 = "ry"
Case 18 : var2 = "ys"
Case 19 : var2 = "it"
Case 20 : var2 = "uh"
Case 21 : var2 = "zv"
Case 22 : var2 = "wz"
Case 23 : var2 = "yx"
Case 24 : var2 = "yp"
Case 25 : var2 = "zk"
Case 26 : var2 = "rt"
Case 27 : var2 = "an"
Case 28 : var2 = "al"
Case 29 : var2 = "qw"
Case 29 : var2 = "wq"
Case 30 : var2 = "as"
Case 31 : var2 = "se"
Case 32 : var2 = "dc"
Case 33 : var2 = "ds"
Case 34 : var2 = "fr"
Case 35 : var2 = "tg"
Case 36 : var2 = "xs"
Case 37 : var2 = "bg"
Case 38 : var2 = "vb"
Case 39 : var2 = "az"
Case 40 : var2 = "zñ"
Case 41 : var2 = "bn"
Case 42 : var2 = "nt"
Case 43 : var2 = "ei"
Case 44 : var2 = "no"
Case 45 : var2 = "po"
Case 46 : var2 = "pu"
Case 47 : var2 = "to"
Case 48 : var2 = "hu"
Case 49 : var2 = "ad"
Case 50 : var2 = "ds"
Case 56 : var2 = "ed"
Case 57 : var2 = "fg"
Case 58 : var2 = "vh"
Case 59 : var2 = "jn"
Case 60 : var2 = "mf"
End Select
If Not pce1 = Nothing Then
pce = var2
GoTo slay
End If
If Not pci1 = Nothing Then
pci = var2

GoTo slay
End If
If Not pcu1 = Nothing Then
pcu = var2
pcu1 = Nothing
GoTo slay
End If
End If
'Dim generate As String
'-------almacenado de valores(converti las variables numericas en cadena por el motivo k me indicaba que no podia generar un doble)--------
Dim a As String = pca
Dim b As String = pco
Dim c As String = pc32
Dim longtipe As String = a + pce + pci + c + b + pcu
txtpass.Text = longtipe
End Sub

bueno esta muy simple, espero que sea de su agrado.

gracias.
Responder