Corsi on-line

Generazione di password casuali con Perl

Questo post è una risposta ad un’email inviatami recentemente da un utente che mi chiedeva la procedura per la creazione di un piccolo file eseguibile da richiamare su Shell Linux (o Unix) che avesse come unica finalità quella di produrre password casuali. Ho promesso al gentile signor R. che gli avrei risposto tramite un articolo, e cosi farò.

Ecco il semplice codice per ottenere la mini applicazione richiesta:

#!/usr/bin/perl
# accettiamo soltanto caratteri alfanumerici
my @carattericonsentiti = ('a'..'z', 'A'..'Z', 0..9);
# generiamo la password
my $outrand = join ", map $carattericonsentiti[rand @carattericonsentiti], 0..9;
# esecuzione
print "$passrand\n"

Salviamo il tutto in un file denominato “passrand.pl” ed eseguiamolo da terminale nel modo seguente:

./passrand.pl

Ad ogni esecuzione otterremo una password alfanumerica casuale della lunghezza di 9 caratteri.

Post correlati
I più letti del mese
Tematiche