perl script problem in adding user

john83reuben · 03-27-2008, 10:53 AM

HI guys, I am trying out adding user through
perl script with file handling. BUt I am stucked. Please help me. New
to perl

this is my script called ya2.pl

Code:

#!/usr/bin/perl -w

use strict;
my @line;
open(FILEHANDLE, "<file.txt") or die "cannot open file for reading: $!";

while(@line = <FILEHANDLE>){

my $pass = crypt($line[1],"password");
system("sudo /usr/sbin/useradd -m -p $pass $line[0]");


}

close(FILEHANDLE);

THis is my text file called file.txt

Code:

sarvin1
123

This script will add user, but the password is not working. Y is that. Is this because of the array. Pls help..THanks..

forrestt · 03-27-2008, 11:17 AM

I'm guessing the salt you are using ("password") isn't valid. Unless you are really set on using the perl crypt function, try the following instead:

Code:

#!/usr/bin/perl -w

use strict;

$inputFile = "file.txt";

open(FILEHANDLE, "<$inputFile") or die "cannot open file for reading: $!";

while(<FILEHANDLE>){
    my $username = $_;
    my $password = $_;
    system("sudo /usr/sbin/useradd -m $username");
    system("echo $password | sudo /usr/bin/passwd --stdin $username");
}

close(FILEHANDLE);

HTH

Forrest

john83reuben · 03-27-2008, 12:37 PM

I have tried that code, it gives error, I am not sure what it says, Please have a look

Quote:

sarvin3
sh: -c: line 1: syntax error near unexpected token `|'
sh: -c: line 1: ` | sudo /usr/bin/passwd --stdin sarvin3'
123
sh: -c: line 1: syntax error near unexpected token `|'
sh: -c: line 1: ` | sudo /usr/bin/passwd --stdin 123'

i used the crypt because the p in, /usr/sbin/useradd -p , is encrypted password. So if i put password = 123, the number 123 will be in shadow file. so when i log in i can put 123 as password because it is encrypted version..so i have to decrypt. so thats y i use crypt, so that i encrypt again the crypted password. Please help

forrestt · 03-27-2008, 12:56 PM

Sorry, that should be:

Code:

#!/usr/bin/perl -w

use strict;

my $inputFile = "file.txt";

open(FILEHANDLE, "<$inputFile") or die "cannot open file for reading: $!";

while(<FILEHANDLE>){
    my $username = $_;
    my $password = <FILEHANDLE>;
    system("sudo /usr/sbin/useradd -m $username");
    system("echo $password | sudo /usr/bin/passwd --stdin $username");
}

close(FILEHANDLE);

However, I didn't test it, and you are right, the system calls aren't working properly. (although the same works from a shell). I'll let you know when I figure it out.

HTH

Forrest

exscape · 03-27-2008, 01:00 PM

If the data is "user\npass\n", shouldn't you chomp() the data somewhere?

forrestt · 03-27-2008, 01:10 PM

OK, the following works for me:

Code:

#!/usr/bin/perl -w

use strict;

my $inputFile = "file.txt";

open(FILEHANDLE, "<$inputFile") or die "cannot open file for reading: $!";

while(<FILEHANDLE>){
    my $username = $_;
    my $password = <FILEHANDLE>;

    system("sudo /usr/sbin/useradd -m $username");

    open(PASSWD, "|sudo /usr/bin/passwd --stdin $username");
    print PASSWD $password;
    close(PASSWD);
}

close(FILEHANDLE);

HTH

Forrest

john83reuben · 03-27-2008, 01:38 PM

Thanks 4 the reply.I have tried, but there is an error in my system

here is the error

Quote:

/usr/bin/passwd: unrecognized option `--stdin'
Usage: passwd [options] [LOGIN]

Options:
-a, --all report password status on all accounts
-d, --delete delete the password for the named account
-e, --expire force expire the password for the named account
-h, --help display this help message and exit
-k, --keep-tokens change password only if expired
-i, --inactive INACTIVE set password inactive after expiration
to INACTIVE
-l, --lock lock the named account
-n, --mindays MIN_DAYS set minimum number of days before password
change to MIN_DAYS
-q, --quiet quiet mode
-r, --repository REPOSITORY change password in REPOSITORY repository
-S, --status report password status on the named account
-u, --unlock unlock the named account
-w, --warndays WARN_DAYS set expiration warning days to WARN_DAYS
-x, --maxdays MAX_DAYS set maximim number of days before password
change to MAX_DAYS

what does this means /usr/bin/passwd: unrecognized option `--stdin'

forrestt · 03-27-2008, 01:46 PM

It means there is a difference between the password command on Debian and the password command on Fedora. Change it to the following:

Code:

#!/usr/bin/perl -w

use strict;

my $inputFile = "file.txt";

open(FILEHANDLE, "<$inputFile") or die "cannot open file for reading: $!";

while(<FILEHANDLE>){
    my $username = $_;
    my $password = <FILEHANDLE>;

    system("sudo /usr/sbin/useradd -m $username");

    open(PASSWD, "|sudo /usr/bin/passwd $username");
    print PASSWD $password;
    print PASSWD $password;
    close(PASSWD);
}

close(FILEHANDLE);

HTH

Forrest

john83reuben · 03-27-2008, 02:01 PM

It didnt seem to work. It shows this error

Quote:

Enter new UNIX password: Retype new UNIX password: Sorry, passwords do not match
passwd: Authentication information cannot be recovered
passwd: password unchanged

With my earlier code

Quote:

#!/usr/bin/perl -w

use strict;
my @line;
open(FILEHANDLE, "<file.txt") or die "cannot open file for reading: $!";

while(@line = <FILEHANDLE>){

my $pass = crypt($line[1],"password");
system("sudo /usr/sbin/useradd -m -p $pass $line[0]");

}

close(FILEHANDLE);

I think, this line

Quote:

system("sudo /usr/sbin/useradd -m -p $pass $line[0]");

the useradd -p $pass doesnt take an array. So is there any other way, I could retrieve the password from file.txt, without doing it by array.

forrestt · 03-27-2008, 02:15 PM

You can do it the same way I am, line by line.
Change it to

Code:

#!/usr/bin/perl -w

use strict;
my $inputFile = "file.txt";
open(FILEHANDLE, "<$inputFile") or die "cannot open file for reading: $!";

while(<FILEHANDLE>){
    my $username = $_;
    my $password = <FILEHANDLE>;
    my $pass = crypt($password,"password");
    system("sudo /usr/sbin/useradd -m -p $pass $username");
}

close(FILEHANDLE);

The problem with your while method is that it will ONLY allow you to have one username and password in the file (well, you can have more, but they won't be looked at). Also, I don't think you will be able to log into the system as the crypt is most likely not using the same encryption technique as the passwd command (It does NOT work on my system as the shadow entry is only 13 characters long instead of the desired 34 characters.

HTH

Forrest

forrestt · 03-27-2008, 02:31 PM

Info from http://sial.org/howto/perl/password-crypt/ has shown me what you probably need to change:

Code:

#!/usr/bin/perl -w

use strict;
use Crypt::PasswdMD5 qw(unix_md5_crypt);

my $useMD5 = 1;
my $inputFile = "file.txt";
my @salt = ( '.', '/', 0 .. 9, 'A' .. 'Z', 'a' .. 'z' );

open(FILEHANDLE, "<$inputFile") or die "cannot open file for reading: $!";

while(<FILEHANDLE>){
    my $username = $_;
    my $password = <FILEHANDLE>;

    # generate traditional (weak!) DES password, and more modern md5
    my $des_passwd = crypt( $password, gensalt(2) );
    my $md5_passwd = unix_md5_crypt( $password, gensalt(8) );

    if ($useMD5 == 1) {
        system("sudo /usr/sbin/useradd -m -p $md5_pass $username");
    } else {
        system("sudo /usr/sbin/useradd -m -p $des_pass $username");
    }
}

close(FILEHANDLE);

# uses global @salt to construct a RANDOM salt string of requested length
sub gensalt {
    my $count = shift;
    my $salt;
    for (1..$count) {
       $salt .= (@salt)[rand @salt];
    }
    return $salt;
}

HTH

Forrest

john83reuben · 03-27-2008, 02:34 PM

Actually the crypt works. check this code, I put a value for the password in this script itself

Quote:

#!/usr/bin/perl -w

use strict;
my @line;
open(FILEHANDLE, "<file.txt") or die "cannot open file for reading: $!";

while(@line = <FILEHANDLE>){

my $newpass = 123;
my $pass = crypt($newpass,"password");
system("sudo /usr/sbin/useradd -m -p $pass $line[0]");

}

close(FILEHANDLE

but when its not functioning when the password is retrieved from file.txt, put it in a array and use that array.

john83reuben · 03-27-2008, 02:34 PM

I wil try ur latest post nw..didnt see it earlier

john83reuben · 03-27-2008, 02:46 PM

an error

Quote:

Can't locate Crypt/PasswdMD5.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at ./ya4.pl line 4.
BEGIN failed--compilation aborted at ./ya4.pl line 4

do i have to install Crypt/PasswdMD5.pm

forrestt · 03-27-2008, 02:52 PM

Yes, you have to install it (it is giving me the same error, and I'm attempting the install now).

Run:

Code:

sudo perl -MCPAN -e "install Crypt::PasswdMD5"

HTH

Forrest