Actually that's probably about as good as any other way. Quoting from the
Perl Cookbook: "Making random numbers is hard."
Also from the Perl Cookbook, here is a way to generate a 10 character string
'randomly':
@chars = ( "A" .. "Z", "a" .. "z", 0 .. 9 );
$password = join( "", @chars[ map { rand @chars } ( 1 .. 10 ) ] );
print "$password \n";
Regards,
Rick
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
