pwgen.pl



NAME

pwgen.pl <length>


DESCRIPTION

Generate hard guessing password of <lentgh> characters.


COPYRIGHT

Copyright 2010 Etienne LEMEE <coding AT etilem DOT net>

This piece of code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.


#!/usr/bin/perl -w

use strict;

@ARGV > 0 or die << "USAGE";

usage: $0 <length>
    
generate hard guessing password of <lentgh> characters
USAGE
    
    
my $len = shift;

my @chr = qw( 
a b c d e f g h i j k   m n   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   P Q R S T U V W X Y Z
0 1 2 3 4 5 6 7 8 9
);

srand;

print $chr[rand(@chr)] while ($len--);