0: #A quick password generator which might suffice for account creatio
+n
1: # Usage: my $Password = Pass();
2: 
3: sub Pass {
4:     my $pas, $ran;
5:    
6:     foreach (1..8) {
7:         $ran = int rand 62; #goods 48-57 65-90 97-122 = 10+26+26
8:         if ($ran > 9)  { $ran += 7; } # x57-64
9:         if ($ran > 43) { $ran += 6; } # x90-96
A:         $ran += 48;
B:         $pas .= chr $ran;
C:     }
D:     return($pas); 
E: }
[download]

TTFN & Shalom.

-PipTigger
p.s. Mine sux compared to chromatic's & turnstep's... I'm lerning too =).