On 21-Jan-02 brettp@users.sourceforge.net wrote:

On Mon, Jan 21, 2002 at 12:03:55PM +0000, Simon wrote:

...

Hi, does anyone know of, or can help me. I need a script/prog to change about 3500 users passwords to their usernames ???

have you got a list of usernames in a file? if so, you could do something similar to:

$ for user in `cat usernames`; do usermod -p $user $user; done

That should do it for you. Thanks, Brett Parker

Not sure this will help, since it looks as though the password argument to usermod -p has to be already encrypted: usermod [-c comment] [-d home_dir [ -m]] [-e expire_date] [-f inactive_time] [-g initial_group] [-G group[,...]] [-l login_name] [-p passwd] [-s shell] [-u uid [ -o]] [-L|-U] login -p passwd The encrypted password, as returned by crypt(3). Ted. -------------------------------------------------------------------- E-Mail: (Ted Harding) <Ted.Harding@nessie.mcc.ac.uk> Fax-to-email: +44 (0)870 167 1972 Date: 21-Jan-02 Time: 12:34:13 ------------------------------ XFMail ------------------------------

On Mon, Jan 21, 2002 at 02:42:31PM +0000, abower@thebowery.co.uk wrote:

On Mon, 21 Jan 2002, (Ted Harding) wrote:

...

Not sure this will help, since it looks as though the password argument to usermod -p has to be already encrypted:

mkpasswd might be your friend here though, although i couldn't figure it out, maybe someody else can be bothered?

OK, here goes nothing!!! for user in `cat usernames`; do usermod -p `perl -e "\$count = 0; \$chars = ''; open RANDOM, '/dev/urandom'; while (\$count < 2) { read (RANDOM, \$char, 1); vec (\$char, 7, 1) = 0; if (\$char =~ /^[A-Za-z0-9]$/) { \$chars .= \$char; \$count ++; }; }; close (RANDOM); print crypt $user, \$chars"` $user; done phew. that do ya? I'm not known as a nasty shell and perl hacker for nothing you know ;) The chunk of perl makes a random seed and then crypts the username with it. I had that laying about, you know, as you do... forgot where I'd put it thou! Hope that does what you want, Cheers, Brett - the not entirely awake, shell hacking, mad bastard - Parker