password assigning under AIX5.1

[onyxia]

Hi all,

I've got a question about password generating / password assigning (under AIX 5.1)
I'd like to assign a predefined password to an optional user.
The password has been created before by a password generator and I don't know how to assign this password automatically to a special user.
"passwd" and "useradd" seem not to have a possibility to set passwords by an argument or something similar . The script I expect should create automatically the password and assign it to a user. There shouldn't be any input by prompt.

Someone can help me?

 

[p5wizard]

see faq52-5866

HTH,

p5wizard

 

[rzs0502]

Is use APG (Automated Password Generator)

http://aixpdslib.seas.ucla.edu/packages/apg.html

and chpasswd to assign it to a user


"If you always do what you've always done, you will always be where you've always been."

 

[onyxia]

Thank you p5wizard! This will certainly help me!

 

[Ogzilal]

Hi,

Here is a more concise perl function I used to generate passwords for aix 4.3.3 and aix 5.2 : say gen_crypted.pl

#!/usr/bin/perl
#--------------------------------------------
# input : path/to/passwordfile login password
#--------------------------------------------
if ( $#ARGV < 2 ){
        print "Usage : $0 <output file> login password\n";
        print "output file = file containing crypted password\n";
        die;
}
use POSIX;
$ENV{'TZ'} = "GMT";
#--------------
# get arguments
#--------------
$ofile=@ARGV[0];
$login=@ARGV[1];
$pass=@ARGV[2];

#---------------------------------------
# generate 2 random ASCII chars for salt
#---------------------------------------
$hz= int(rand()*100) + 26;
$c1=chr($hz);
while ( $c1 !~ "[./0-9A-Za-z]"  ) {
        $hz= int(rand()*100) + 26;
        $c1=chr($hz);
}
$hz= int(rand()*100) + 26;
$c2=chr($hz);
while ( $c2 !~ "[./0-9A-Za-z]"  ) {
        $hz= int(rand()*100) + 26;
        $c2=chr($hz);
}

$salt="$c1$c2";

#-------------------
# crypt the password
#-------------------
$passcrypt = crypt($pass,$salt) ;
#-------------------
# get epoch date
#-------------------
$epoch = POSIX::time() ;
#---------------------------------------------
# write a password stanza to given output file
#---------------------------------------------
open (OUT, ">>$ofile") || die "cant open $ofile: $!.\n";
print OUT<<EOF;
$login:
        password = $passcrypt
        lastupdate = $epoch
        flags =

EOF
exit 0

How to use it in a shell script :

#perl gen_crypted.pl try.passwd user123 mypass

The generated stanza is the same as /etc/security/passwd

#cat try.passwd

user123:
        password = U2AuRvAzhEx3I
        lastupdate = 1128690322
        flags =
                 
#