notes.ntks.ru

#!/usr/bin/perl
#
#Password Generator
#
sub randomPassword {
  my $password;
  my $_rand;
     
  my $password_length = $_[0];
          if (!$password_length) {
            $password_length = 10;
         }
     
  my @chars = split(" ", "Q W E R T Y U I O P L K J H G F D S A Z X C V B N M
                                 q w e r t y u i o p l k j h g f d s a z x c v b n m
                                      1 2 3 4 5 6 7 8 9 0 , . ? / < > | \ ! @ # $ % ^ & * ( ) _ + = - { ] } ]
                      ");
  srand;
      for (my $i=0; $i <= $password_length ;$i++) {
    $_rand = int(rand 98);
    $password .= $chars[$_rand];
      }
    return $password;
}

print "************************\n";
print "password: ", randomPassword(12);
print "\n";
print "************************\n";