GeeGo Systems - Tech Land

Tech Tips9　 New Perl password producer.

Author: Ben｜Date: 2007/06/07｜Back to Tech Tips

#!/usr/bin/perl

@list = (0..9, a..z, A..Z,'!','@','#','$','%','^','&','*','(',')');
print $list[rand(@list)] foreach (1..10);