juanma.m.d
20-02-2002, 19:51
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...
juanma.m.d
21-02-2002, 17:45
Esq soy un patan, pero lo necesito, me lo podrias hacer tu y postearlo, sino da = muchas gracias
dagoberto1b
21-02-2002, 18:19
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