Submit Hint Search The Forums LinksStatsPollsHeadlinesRSS
14,000 hints and counting!


Click here to return to the 'Even less overkill version' hint
The following comments are owned by whoever posted them. This site is not responsible for what they say.
Even less overkill version
Authored by: kenahoo on Mar 05, '06 10:45:19AM

#!/usr/bin/perl
my $newpw;
my @charset = ('A'..'Z', 'a'..'z', 0..9);
$newpw .= $charset[ rand @charset] for 1..8;
print "password: $newpw\n";


[ Reply to This | # ]