un genereador de passwords q contenga todos las ltras y numeraos hasta 15 caracteres.
un genereador de passwords q contenga todos las ltras y numeraos hasta 15 caracteres.
Pillas la tabla ASCII a partir del número que empieza a ser el primer caracter, y sacas todas las combinaciones combinando la primera con todas las demás, la segunda... en cualquier lenguja te deberías de resultar fácil.
Nox vemox...
GRacias tio
Esq soy un patan, pero lo necesito, me lo podrias hacer tu y postearlo, sino da = muchas gracias
Bueno, preparado XDDD
Esto... q si, q clase tiene toda la razon del mundo, pero yo me
lo puse a hacer en VB y no daba transformado los numeritos en caracteres de ascii, así q no me lie y a copiar y a pegar ifs XDDD
Funciona, y hasta te puse comentarios, si quieres lo modificas tu
para que el codigo quede mas presentable
pues eso, si lo quieres en c supongo q tb sere capaz (malo sera),
y si quieres el .exe directamente pues tb, a mandar XD
Option Explicit
Option Base 0
'Lo q pides en VB y forma cutre
'text1(y) es un array de cajas de texto.
'en cada caja guardo un numero o letra generado aleatoriamente
'y al final pego el contenido de cada caja en una sola
'pa q se pueda copiar y pegar la clave resultante
'Bueno; no se si es lo q quieres pero ahi va. Como ves los bucles
'brillan por su ausencia , y he usado mucho el copiar y pegar
Private Sub Command1_Click()
Dim y As Integer 'contador de cajas
For y = 0 To 13 Step 1
Dim x As Integer
Randomize
'coge valor devuelto por el reloj del sistema 'se usa como el nuevo valor de semilla, q a su vez usara el Rnd para generar numeros aleatorios
x = Int((1 - 0 + 1) * Rnd + 0)
'elige entre 0 y 1 con un 50% de posibilidades, si es 1 saldra un numero y si es cero una letra
'sacado de la ayuda: Int((Límite_superior - límite_inferior + 1) * Rnd + límite_inferior)
If x = 1 Then
Randomize
'si no se pone el randomize, generaria siempre la misma serie de numeros cada vez q se inicialiciase el programa
'pq la semilla es la misma
Text1(y).Text = Int((9 - 0 + 1) * Rnd + 0)
'elige un numero entre 0 y 9
ElseIf x = 0 Then
Dim transforma As Integer
Randomize
transforma = Int((26 - 0 + 1) * Rnd + 0)
'elige un numero entre 0 y 26
'los siguientes ifs los transforman a letras
'VB debe de teneruna funcion para hacer esto A NARICES
'pero bueno, si te interesa la buscas tu XD
'como ves hice uso y abuso del Ctrl+c, Ctrl+v
If transforma = 0 Then
Text1(y).Text = "A"
ElseIf transforma = 1 Then
Text1(y).Text = "B"
ElseIf transforma = 2 Then
Text1(y).Text = "C"
ElseIf transforma = 3 Then
Text1(y).Text = "D"
ElseIf transforma = 4 Then
Text1(y).Text = "E"
ElseIf transforma = 5 Then
Text1(y).Text = "F"
ElseIf transforma = 6 Then
Text1(y).Text = "G"
ElseIf transforma = 7 Then
Text1(y).Text = "H"
ElseIf transforma = 8 Then
Text1(y).Text = "I"
ElseIf transforma = 9 Then
Text1(y).Text = "J"
ElseIf transforma = 10 Then
Text1(y).Text = "K"
ElseIf transforma = 11 Then
Text1(y).Text = "L"
ElseIf transforma = 12 Then
Text1(y).Text = "M"
ElseIf transforma = 13 Then
Text1(y).Text = "N"
ElseIf transforma = 14 Then
Text1(y).Text = "Ñ"
ElseIf transforma = 15 Then
Text1(y).Text = "O"
ElseIf transforma = 16 Then
Text1(y).Text = "P"
ElseIf transforma = 17 Then
Text1(y).Text = "Q"
ElseIf transforma = 18 Then
Text1(y).Text = "R"
ElseIf transforma = 19 Then
Text1(y).Text = "S"
ElseIf transforma = 20 Then
Text1(y).Text = "T"
ElseIf transforma = 21 Then
Text1(y).Text = "U"
ElseIf transforma = 22 Then
Text1(y).Text = "V"
ElseIf transforma = 23 Then
Text1(y).Text = "W"
ElseIf transforma = 24 Then
Text1(y).Text = "X"
ElseIf transforma = 25 Then
Text1(y).Text = "Y"
ElseIf transforma = 26 Then
Text1(y).Text = "Z"
End If
End If
Next y
Dim pepe As String
pepe = Text1(0).Text + Text1(1).Text + Text1(2).Text + Text1(3).Text + Text1(4).Text + Text1(5).Text + Text1(6).Text + Text1(7).Text + Text1(8).Text + Text1(9).Text + Text1(10).Text + Text1(11).Text + Text1(12).Text + Text1(13).Text
txtTojunto.Text = pepe
' pues eso, copio a la var pepe el contenido de todas las celdas,
' y pongo pepe en una caja de texto pa q quede to junto y se pueda
'copiar y pegar facilmente
'Bueno, pues CUTRE PERO FUNCIONA XD, si es q era esto lo q querias
' ni tan siquiera un misero for :_(
End Sub
Marcadores