Date: Fri, 12 Sep 2003 17:10:52 +0100 From: Matthew Seaman <m.seaman@infracaninophile.co.uk> To: thomas may <thomas.may@x9media.com> Cc: freebsd-questions@freebsd.org Subject: Re: passwort create with perl Message-ID: <20030912161052.GC50239@happy-idiot-talk.infracaninophile.co.uk> In-Reply-To: <000001c37928$825eced0$8b01a8c0@notebook> References: <000001c37928$825eced0$8b01a8c0@notebook>
next in thread | previous in thread | raw e-mail | index | archive | help
--ALfTUftag+2gvp1h
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable
On Fri, Sep 12, 2003 at 02:22:11PM +0200, thomas may wrote:
> iam searching for a perl programm to create an freebsd user account
> password, i dont want to change a password, i want to see it on the
> command line, to copy and paste it into another application.
You want to input the password to the perl program and get from it the
password hash as stored in /etc/master.passwd? This will generate you
the MD5 hash:
#!/usr/bin/perl -w
@pwchars =3D ('a' .. 'z', 'A' .. 'Z', '0' .. '9', '/', '.');
$salt =3D '$1$';
for (1 .. 8) {
$salt .=3D $pwchars[rand @pwchars];
}
$salt .=3D '$';
print crypt($ARGV[0], $salt), "\n";
Cheers,
Matthew
--=20
Dr Matthew J Seaman MA, D.Phil. 26 The Paddocks
Savill Way
PGP: http://www.infracaninophile.co.uk/pgpkey Marlow
Tel: +44 1628 476614 Bucks., SL7 1TH UK
--ALfTUftag+2gvp1h
Content-Type: application/pgp-signature
Content-Disposition: inline
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.3 (FreeBSD)
iD8DBQE/YfAMdtESqEQa7a0RAl0OAJ9A+1hww/HgJFjREIWjC0DbC6uAtwCfc//d
COVNaLcOS848Hvl+0knffl8=
=G09l
-----END PGP SIGNATURE-----
--ALfTUftag+2gvp1h--
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20030912161052.GC50239>