Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    my $password = "";
    my $possible = 'abcdefghijkmnpqrstuvwxyz23456789ABCDEFGHJKLMNPQRSTUVWX
    +YZ';
    while (length($password) < $length) {$password .= substr($possible, (i
    +nt(rand(length($possible)))), 1);}return $password}
    
  2. or download this
    __DATA__
    dn: uid=1234567,ou=people,dc=abc,o=oursite.com
    ...
    homeDirectory: /home/1234567
    loginShell:  /bin/csh
    userPassword: xyz456    <==constant line