#!/usr/bin/perl -Tw
# Generates random passwords
#
# Jon Hart <warchild@spoofed.org>
#
use strict;
my $size = $ARGV[0] || 16;
my $pass = "";
my @bad = qw(" \\ ');
for (1 .. $size) {
   $pass .= &randchr; 
}
print("$pass\n");
sub randchr {
   START:
   my $poss = chr(33 + int(rand(94)));
   foreach (@bad) {
      if (ord($_) == ord($poss)) {
         goto START;
      }
   }
   return $poss;
}