Resultados 1 al 5 de 5

Tema: Alguien sabe como programar un ...

  1. #1 Alguien sabe como programar un ... 
    Avanzado
    Fecha de ingreso
    Dec 2001
    Ubicación
    127.0.0.1
    Mensajes
    1.526
    Descargas
    1
    Uploads
    0
    un genereador de passwords q contenga todos las ltras y numeraos hasta 15 caracteres.
    Citar  
     

  2. #2 Fácil 
    Avanzado
    Fecha de ingreso
    Nov 2001
    Ubicación
    Internet
    Mensajes
    288
    Descargas
    0
    Uploads
    0
    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...
    Citar  
     

  3. #3 GRACIAS 
    Avanzado
    Fecha de ingreso
    Dec 2001
    Ubicación
    127.0.0.1
    Mensajes
    1.526
    Descargas
    1
    Uploads
    0
    GRacias tio
    Citar  
     

  4. #4 ME harias un favor?? 
    Avanzado
    Fecha de ingreso
    Dec 2001
    Ubicación
    127.0.0.1
    Mensajes
    1.526
    Descargas
    1
    Uploads
    0
    Esq soy un patan, pero lo necesito, me lo podrias hacer tu y postearlo, sino da = muchas gracias
    Citar  
     

  5. #5 En VB y un poco cutre 
    Iniciado
    Fecha de ingreso
    Dec 2001
    Mensajes
    16
    Descargas
    0
    Uploads
    0
    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
    Citar  
     

Temas similares

  1. Alguien sabe cómo su trabajo?
    Por techpaulo en el foro DIGITAL+
    Respuestas: 0
    Último mensaje: 18-11-2010, 15:00
  2. ALguien sabe como
    Por vactor en el foro APLICACIONES
    Respuestas: 0
    Último mensaje: 07-01-2006, 21:02
  3. Alguien sabe como se hace esto?
    Por icedrek en el foro HARDWARE
    Respuestas: 1
    Último mensaje: 13-05-2004, 19:06
  4. si alguien sabe como crakear un shareware
    Por jusarq en el foro GENERAL
    Respuestas: 5
    Último mensaje: 22-05-2002, 18:13
  5. Alguien sabe como SpyNet?
    Por cbr600f6 en el foro INGENIERIA INVERSA
    Respuestas: 1
    Último mensaje: 23-03-2002, 07:36

Marcadores

Marcadores

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •