#!/usr/bin/perl
#H# Generates a random password.

# print out help info if requested
if ($ARGV[0] ne "") {
  open (SELF, $0);
  while (<SELF>) {
    if ($_ =~ /^#H# /) {
      $_ =~ s/^#H# //;
      print $_;
    }
  }
  exit;
}

$LegalChars="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@#\$%^&*()-=_+,./?][}{|;:~\"\'\`\\";
#$LegalChars="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890";
$MinChars="8";
$MaxExtraChars="01234";
srand;
$NumOfChars=substr($MaxExtraChars,int(rand(length($MaxExtraChars))),1);
$NumOfChars=$NumOfChars+$MinChars;
$Loop=1;
$Pass="";
while ($Loop <= $NumOfChars) {
  $Pass=$Pass . substr($LegalChars,int(rand(length($LegalChars))),1);
  $Loop=$Loop+1;
}
print "$Pass\n";