Posted By

fugue on 12/29/06

Tagged

1 person have marked this snippet as a favorite

/ Published in: Perl

srand(time ^ $$); 
 
for ($n = 1; $n <= 6; $n++) { 
  $ch = 65+rand(26); 
  if (rand() > 0.5) { 
    $ch += 32; 
  } 
  $pw .= chr($ch); 
}

Comment:

You need to login to post a comment.