Hi,
Here's something I put together in perl some time ago - feel free to use
it if you like. As always, no warranties express or implied, your mileage
may vary, etc, etc.
Cheers!
Deke
cut here:
------------------------------------------------------------------------
#!/pkg/perl5/bin/perl -w
# random password generator
# dkc 4/97
print "Enter length of password: ";
chomp ($length = <STDIN>);
print "Enter number of passwords: ";
chomp ($count = <STDIN>);
# set random number seed
srand( time() ^ ($$ + ($$ << 15)) );
# All lowercase, uppercase, and numeric except zero (to prevent confusion
# with alpha O).
@characters =
("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z",1,2,3,4,5,6,7,8,9);
open(OUTFILE, ">passwords.txt") || die "can't open output file";
for (; $count > 0; $count--) {
for ($loop = 0; $loop < $length; $loop ++) {
$temp = int(rand 60) + 1;
print OUTFILE $characters[$temp];
}
print OUTFILE "\n";
}
exit();
----------------------------------------------------------------------------
end batchrpw
On Thu, 26 Mar 1998, Bob Plagens wrote:
> Recently, a need has arisen for a script to generate a list of passwords.
> I know there are already scripts written to do this, so I would prefer to
> not have to write my own. Unfortunately, I have been unable to locate any
> non-shareware Windoze based programs.
>
> What I am looking for is a script/program that you are able to specify
> that you want, say 500 passwords of 8 character each and the name of an
> output file to dump them into. Does anyone know of where I might be able
> to grab such a program?
>
> Bob Plagens
> System Administrator, TFSnet, Inc
> email: [EMAIL PROTECTED]
> ------------------------------------------------------------------------
> The Force is like Duct Tape. It has a Dark Side and a Light Side and it
> holds the universe together.
>
>
> --
> PLEASE read the Red Hat FAQ, Tips, Errata and the MAILING LIST ARCHIVES!
> http://www.redhat.com/RedHat-FAQ /RedHat-Errata /RedHat-Tips /mailing-lists
> To unsubscribe: mail [EMAIL PROTECTED] with
> "unsubscribe" as the Subject.
>
--
PLEASE read the Red Hat FAQ, Tips, Errata and the MAILING LIST ARCHIVES!
http://www.redhat.com/RedHat-FAQ /RedHat-Errata /RedHat-Tips /mailing-lists
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject.
