Hola, estoy haciendo un pequeño programa para generar contraseñas seguras y se me ocurrió hacer un programa que genere 11 números diferentes pero no tengo ni idea de cómo hacerlo.
Intento algo así: 18945612456
¿Alguien me explica cómo hacerlo?
-
- Publicidad
Cómo generar números diferentes
5 mensajes
• Página 1 de 1
Cómo generar números diferentes
por BigBear » 2009-08-28 11:54 @537
- BigBear
- Perlero frecuente
- Mensajes: 981
- Registrado: 2009-03-01 18:39 @818
Publicidad
Re: Como generar numeros diferentes
por netsoul » 2009-08-28 12:14 @551
Mmmm... ¿Contraseñas seguras con sólo números?
Está Crypt::GeneratePassword. (No sé si hay otro, pero seguro que sí)
Está Crypt::GeneratePassword. (No sé si hay otro, pero seguro que sí)
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use strict;
- use warnings;
- use Crypt::GeneratePassword qw(word chars);
- my ($minlen, $maxlen) = (1, 11);
- print word($minlen,$maxlen), "\n";
- print chars($minlen,$maxlen), "\n";
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
With Perl
Imagination is more important than knowledge. Albert Einstein.
Imagination is more important than knowledge. Albert Einstein.
- netsoul
- Perlero nuevo
- Mensajes: 150
- Registrado: 2008-05-04 01:11 @091
Re: Cómo generar números diferentes
por explorer » 2009-08-28 12:16 @553
Con la función rand() puedes generar números aleatorios.
Por ejemplo, con int( rand(10) ) generas un número entero aleatorio entre 0 y 9 (incluidos).
Solo te queda hacer un bucle de 11 ciclos.
Por ejemplo, con int( rand(10) ) generas un número entero aleatorio entre 0 y 9 (incluidos).
Solo te queda hacer un bucle de 11 ciclos.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Cómo generar números diferentes
por BigBear » 2009-08-28 12:26 @559
explorer escribiste:Con la función rand() puedes generar números aleatorios.
Por ejemplo, con int( rand(10) ) generas un número entero aleatorio entre 0 y 9 (incluidos).
Solo te queda hacer un bucle de 11 ciclos.
Pero ¿cómo quedaría el bucle con el rand()?
- BigBear
- Perlero frecuente
- Mensajes: 981
- Registrado: 2009-03-01 18:39 @818
Re: Cómo generar números diferentes
por explorer » 2009-08-28 12:38 @568
Pero Murdoc, tío... a estas alturas ya deberías saberlo 
que es la forma abreviada de
Using perl Syntax Highlighting
my $contrasena = join '', map { int rand 10 } 1 .. 11;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
que es la forma abreviada de
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
5 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 51 invitados