#!/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" ;
}