diff options
| author |   bitblt <bitblt@openbsd.org> | 1998-02-16 16:04:41 +0000 |
|---|---|---|
| committer | bitblt <bitblt@openbsd.org> | 1998-02-16 16:04:41 +0000 |
| commit | f791d137f19ec6dbc70a6540cfda797fdf19bac0 (patch) | |
| tree | 595e43113bb585208561fe270d4ece34fd6bc409 /usr.sbin/adduser/adduser.perl | |
| parent | more Xr (diff) | |
| download | wireguard-openbsd-f791d137f19ec6dbc70a6540cfda797fdf19bac0.tar.xz wireguard-openbsd-f791d137f19ec6dbc70a6540cfda797fdf19bac0.zip | |
Shell metacharacters are now ok in user passwords, as per the first half
of PR 402
Diffstat (limited to 'usr.sbin/adduser/adduser.perl')
| -rw-r--r-- | usr.sbin/adduser/adduser.perl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/usr.sbin/adduser/adduser.perl b/usr.sbin/adduser/adduser.perl index c1a52edfd14..5d360e28a0d 100644 --- a/usr.sbin/adduser/adduser.perl +++ b/usr.sbin/adduser/adduser.perl @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# $OpenBSD: adduser.perl,v 1.5 1997/05/29 04:26:56 gene Exp $ +# $OpenBSD: adduser.perl,v 1.6 1998/02/16 16:04:41 bitblt Exp $ # # Copyright (c) 1995-1996 Wolfram Schneider <wosch@FreeBSD.org>. Berlin. # All rights reserved. @@ -921,6 +921,7 @@ sub salt { sub encrypt { local($pass, $salt) = ($_[0], $_[1]); local $args, $crypt; + local $goodpass; if ($encryptionmethod eq "des") { $args = "-s $salt"; @@ -930,7 +931,9 @@ sub encrypt { $args = "-b $salt"; } - $crypt = `encrypt $args $pass`; + $pass =~ s/(.)/\\$1/g; + + $crypt = `/usr/bin/encrypt $args $pass`; chop $crypt; return($crypt); } @@ -1440,7 +1443,7 @@ sub config_write { print C <<EOF; # -# $OpenBSD: adduser.perl,v 1.5 1997/05/29 04:26:56 gene Exp $ +# $OpenBSD: adduser.perl,v 1.6 1998/02/16 16:04:41 bitblt Exp $ # $config - automatic generated by adduser(8) # # Note: adduser read *and* write this file. |