## This generator mimics Japanese syllable-based language, which

## results easy to pronounce gibberish. 

##

## Puroguramu o go riyo itadaki arigatogozaimasu. :-)

##

my $help;                       # please?

my $words=5;                    # how many pw to be generated

my $syllab=4;                   # how many syllables in a [pass]word

my $dash;                       # use dashes

my $dashlen=2;                  # use dash after N syllable(s)

my $dashchr='-';                # dash character (if used)

my $longsyl=20;                 # long syllable n% probability

my $nolf=0;                     # no linefeed after the last word (script friendly)

my $hu_friendly = 5;           # n% probability of unfriendly consonants

    "help" 	    => \&help,

    "words=i" 	=> \$words,

    "syllab=i"	=> \$syllab,

    "dash"	    => \$dash,

    "dashlen=i"	=> \$dashlen,

    "longsyl=i"	=> \$longsyl,

    "dashchr=s"	=> \$dashchr,

    "nolf"	    => \$nolf,

    "hufriendly=i"=> \$hu_friendly,

#$cons='bcdfghjklmnpqrstvwxyz'; # consonants without visually confusing ones (like 0 vs o)

 $consh='bcdfghjklmnprstvz';    # non-English user friendly consonants 

 $consx='qxy';                  # for advanced speakers! ;-)

$chlen=length($consh);

$cxlen=length($consx);

        print &get_consonant;

        print &get_consonant if $longsyl > rand(100);

    print "      words:   how many passwords to display (5)\n";

    print "      syllab:  how many syllables in a word (4)\n";

    print "      longsyl: long syllable probability (20%)\n";

    print "      hufriendly: probability of unfriendly consonants (5%)\n";

# Hungarian-friendly consonants

sub get_consonant {

    if( $hu_friendly > rand(100) ) {

        # be nasty to native speakers :-)

        return substr($consx, rand($cxlen),1);

    }

    return substr($consh, rand($chlen),1);

}

## cons:		rnd(20)				-  4.32 bit (a bit less due to hu_friendly)