Ein Passwort-Generator in Perl

Passwort Generator in Perl

Da häufig die Frage nach einem neuen Passwort aufkommt, stelle ich euch hier ein einfaches Perl Snippet zur Verfügung, mit dem ihr euch zufällige Passworte generieren könnt.

 

#!/usr/bin/perl
# Ein einfacher Passwortgenerator
# www.JoeKaDev.de

use strict;
# Verwendeter Zeichensatz
my @charset = qw( a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0 1 2 3 4 5 6 7 8 9 );
# passwort Array
my @passwort = ("");
# Zufallszeichen aus @charset wählen und ins Array @passwort schreiben.
sub pwgen {
my $rand = int(rand(@charset));
my $add_char = $charset[$rand];
push(@passwort, $add_char);
}
# Laenge des Passwortes.
my $laenge = shift || 10;
# Aufruf x-mal der Funktion pwgen
for (my $x = 1; $x <= $laenge; $x++) { &pwgen(); } 
# Passwort anzeigen
print "\n\n Dein neues Passwort ist: "; 
print @passwort = grep { "$_" } @passwort, "\n\n"; 
print "\n\n Besuche www.JoeKaDev.de fuer mehr tolles Zeuch! \n\n";
#EOF

 

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.