#!/usr/bin/perl
# $Id$
# (c)Peter Gervai, 2002; Released under GPLv2 + CC_BY-SA-2.0
#
# jelszogenerator, 2002/04/08
#

if( $ARGV[0] =~ /shutup/i ) { $shutup = 1; $num=1; } else { $num = 6; }

$vowel='aeiou';
#$cons='bcdfghjklmnpqrstvwxyz';
 $cons='bcdfghjklmnprstvxyz';

$vlen=length($vowel);
$clen=length($cons);


$longsyl=20; # percent
$sylnum=4 + rand(3);

print "$num tok jo jelszo: " unless $shutup;



for (1..$num) {
    for my $i (1..$sylnum) {
        print substr($cons,rand($clen),1);
        print substr($vowel,rand($vlen),1);
        print substr($cons,rand($clen),1) if $longsyl > rand(100);
        #print "-";
    }
    print "  " unless $shutup;
}

print "\n";
print "\n" unless $shutup;