#!/usr/local/bin/perl
# r0rl8 - Generate and list 15 random 8-character passwords (at least 1 numeric, keys alternate right and left hands)

$set[0] = '12345qwertasdfgzxcvbQWERTASDFGZXCVB';
$nset[0] = 35 ;
$set[1] = '67890yuiophjklnmYUIOPHJKLNM';
$nset[1] = 27 ;

sub r0rl8 {
       my $r0rl8 = '' ;
       my $h = int(rand(2)) ;
       foreach my $n (0..7) {
               $r0rl8 .= substr($set[$h], int(rand($nset[$h])), 1) ;
               $h = $h == 1 ? 0 : 1 ;
       }
       if ( $r0rl8 =~ /[0-9]/ ) { return $r0rl8 ; }
       else {
               my $numi = int(rand(8)) ;
               my $num = substr($set[$numi % 2 == $h ? 0 : 1], int(rand(5)), 1) ;
               return substr($r0rl8, 0, $numi) . $num . substr($r0rl8, $numi + 1);
       }
}

foreach $l (0..2) {
       foreach $p (0..3) { print r0rl8(), ' ' x 5 ; }
       print r0rl8(), "\n" ;
}