NAME <length>


Generate hard guessing password of <lentgh> characters.


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
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


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