]> git.cameronkatri.com Git - pw-darwin.git/blob - libutil/pw_util.c
Revert "Set chpass to 755 too"
[pw-darwin.git] / libutil / pw_util.c
1 /*--
2 * SPDX-License-Identifier: BSD-3-Clause
3 *
4 * Copyright (c) 1990, 1993, 1994
5 * The Regents of the University of California. All rights reserved.
6 * Copyright (c) 2002 Networks Associates Technology, Inc.
7 * All rights reserved.
8 *
9 * Portions of this software were developed for the FreeBSD Project by
10 * ThinkSec AS and NAI Labs, the Security Research Division of Network
11 * Associates, Inc. under DARPA/SPAWAR contract N66001-01-C-8035
12 * ("CBOSS"), as part of the DARPA CHATS research program.
13 *
14 * Redistribution and use in source and binary forms, with or without
15 * modification, are permitted provided that the following conditions
16 * are met:
17 * 1. Redistributions of source code must retain the above copyright
18 * notice, this list of conditions and the following disclaimer.
19 * 2. Redistributions in binary form must reproduce the above copyright
20 * notice, this list of conditions and the following disclaimer in the
21 * documentation and/or other materials provided with the distribution.
22 * 3. Neither the name of the University nor the names of its contributors
23 * may be used to endorse or promote products derived from this software
24 * without specific prior written permission.
25 *
26 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
27 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
28 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
29 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
30 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
31 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
32 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
33 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
34 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
35 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 * SUCH DAMAGE.
37 */
38
39 #include <sys/cdefs.h>
40 __FBSDID("$FreeBSD$");
41 __SCCSID("@(#)pw_util.c 8.3 (Berkeley) 4/2/94");
42
43 /*
44 * This file is used by all the "password" programs; vipw(8), chpass(1),
45 * and passwd(1).
46 */
47
48 #include <sys/param.h>
49 #include <sys/errno.h>
50 #include <sys/time.h>
51 #include <sys/resource.h>
52 #include <sys/stat.h>
53 #include <sys/wait.h>
54
55 #include <ctype.h>
56 #include <err.h>
57 #include <fcntl.h>
58 #include <inttypes.h>
59 #include <paths.h>
60 #include <pwd.h>
61 #include <signal.h>
62 #include <stdio.h>
63 #include <stdlib.h>
64 #include <string.h>
65 #include <unistd.h>
66
67 #include <os/availability.h>
68 API_AVAILABLE(macos(10.12), ios(10.0), tvos(10.0), watchos(3.0))
69 void * reallocarray(void * in_ptr, size_t nmemb, size_t size) __DARWIN_EXTSN(reallocarray) __result_use_check;
70
71 #include "libutil.h"
72
73 static pid_t editpid = -1;
74 static int lockfd = -1;
75 static char masterpasswd[PATH_MAX];
76 static char passwd_dir[PATH_MAX];
77 static char tempname[PATH_MAX];
78 static int initialized;
79
80 #if 0
81 void
82 pw_cont(int sig)
83 {
84
85 if (editpid != -1)
86 kill(editpid, sig);
87 }
88 #endif
89
90 /*
91 * Initialize statics and set limits, signals & umask to try to avoid
92 * interruptions, crashes etc. that might expose passord data.
93 */
94 int
95 pw_init(const char *dir, const char *master)
96 {
97 #if 0
98 struct rlimit rlim;
99 #endif
100
101 if (dir == NULL) {
102 strcpy(passwd_dir, _PATH_PWD);
103 } else {
104 if (strlen(dir) >= sizeof(passwd_dir)) {
105 errno = ENAMETOOLONG;
106 return (-1);
107 }
108 strcpy(passwd_dir, dir);
109 }
110
111 if (master == NULL) {
112 if (dir == NULL) {
113 strcpy(masterpasswd, _PATH_MASTERPASSWD);
114 } else if (snprintf(masterpasswd, sizeof(masterpasswd), "%s/%s",
115 passwd_dir, _MASTERPASSWD) > (int)sizeof(masterpasswd)) {
116 errno = ENAMETOOLONG;
117 return (-1);
118 }
119 } else {
120 if (strlen(master) >= sizeof(masterpasswd)) {
121 errno = ENAMETOOLONG;
122 return (-1);
123 }
124 strcpy(masterpasswd, master);
125 }
126
127 /*
128 * The code that follows is extremely disruptive to the calling
129 * process, and is therefore disabled until someone can conceive
130 * of a realistic scenario where it would fend off a compromise.
131 * Race conditions concerning the temporary files can be guarded
132 * against in other ways than masking signals (by checking stat(2)
133 * results after creation).
134 */
135 #if 0
136 /* Unlimited resource limits. */
137 rlim.rlim_cur = rlim.rlim_max = RLIM_INFINITY;
138 (void)setrlimit(RLIMIT_CPU, &rlim);
139 (void)setrlimit(RLIMIT_FSIZE, &rlim);
140 (void)setrlimit(RLIMIT_STACK, &rlim);
141 (void)setrlimit(RLIMIT_DATA, &rlim);
142 (void)setrlimit(RLIMIT_RSS, &rlim);
143
144 /* Don't drop core (not really necessary, but GP's). */
145 rlim.rlim_cur = rlim.rlim_max = 0;
146 (void)setrlimit(RLIMIT_CORE, &rlim);
147
148 /* Turn off signals. */
149 (void)signal(SIGALRM, SIG_IGN);
150 (void)signal(SIGHUP, SIG_IGN);
151 (void)signal(SIGINT, SIG_IGN);
152 (void)signal(SIGPIPE, SIG_IGN);
153 (void)signal(SIGQUIT, SIG_IGN);
154 (void)signal(SIGTERM, SIG_IGN);
155 (void)signal(SIGCONT, pw_cont);
156
157 /* Create with exact permissions. */
158 (void)umask(0);
159 #endif
160 initialized = 1;
161 return (0);
162 }
163
164 /*
165 * Lock the master password file.
166 */
167 int
168 pw_lock(void)
169 {
170
171 if (*masterpasswd == '\0')
172 return (-1);
173
174 /*
175 * If the master password file doesn't exist, the system is hosed.
176 * Might as well try to build one. Set the close-on-exec bit so
177 * that users can't get at the encrypted passwords while editing.
178 * Open should allow flock'ing the file; see 4.4BSD. XXX
179 */
180 for (;;) {
181 struct stat st;
182
183 lockfd = flopen(masterpasswd, O_RDONLY|O_NONBLOCK|O_CLOEXEC, 0);
184 if (lockfd == -1) {
185 if (errno == EWOULDBLOCK) {
186 errx(1, "the password db file is busy");
187 } else {
188 err(1, "could not lock the passwd file");
189 }
190 }
191
192 /*
193 * If the password file was replaced while we were trying to
194 * get the lock, our hardlink count will be 0 and we have to
195 * close and retry.
196 */
197 if (fstat(lockfd, &st) == -1)
198 err(1, "fstat() failed");
199 if (st.st_nlink != 0)
200 break;
201 close(lockfd);
202 lockfd = -1;
203 }
204 return (lockfd);
205 }
206
207 /*
208 * Create and open a presumably safe temp file for editing the password
209 * data, and copy the master password file into it.
210 */
211 int
212 pw_tmp(int mfd)
213 {
214 char buf[8192];
215 ssize_t nr;
216 const char *p;
217 int tfd;
218
219 if (*masterpasswd == '\0')
220 return (-1);
221 if ((p = strrchr(masterpasswd, '/')))
222 ++p;
223 else
224 p = masterpasswd;
225 if (snprintf(tempname, sizeof(tempname), "%.*spw.XXXXXX",
226 (int)(p - masterpasswd), masterpasswd) >= (int)sizeof(tempname)) {
227 errno = ENAMETOOLONG;
228 return (-1);
229 }
230 if ((tfd = mkostemp(tempname, 0)) == -1)
231 return (-1);
232 if (mfd != -1) {
233 while ((nr = read(mfd, buf, sizeof(buf))) > 0)
234 if (write(tfd, buf, (size_t)nr) != nr)
235 break;
236 if (nr != 0) {
237 unlink(tempname);
238 *tempname = '\0';
239 close(tfd);
240 return (-1);
241 }
242 }
243 return (tfd);
244 }
245
246 /*
247 * Regenerate the password database.
248 */
249 int
250 pw_mkdb(const char *user)
251 {
252 int pstat;
253 pid_t pid;
254
255 (void)fflush(stderr);
256 switch ((pid = fork())) {
257 case -1:
258 return (-1);
259 case 0:
260 /* child */
261 if (user == NULL)
262 execl(_PATH_PWD_MKDB, "pwd_mkdb", "-p",
263 "-d", passwd_dir, tempname, (char *)NULL);
264 else
265 execl(_PATH_PWD_MKDB, "pwd_mkdb", "-p",
266 "-d", passwd_dir, "-u", user, tempname,
267 (char *)NULL);
268 _exit(1);
269 /* NOTREACHED */
270 default:
271 /* parent */
272 break;
273 }
274 if (waitpid(pid, &pstat, 0) == -1)
275 return (-1);
276 if (WIFEXITED(pstat) && WEXITSTATUS(pstat) == 0)
277 return (0);
278 errno = 0;
279 return (-1);
280 }
281
282 /*
283 * Edit the temp file. Return -1 on error, >0 if the file was modified, 0
284 * if it was not.
285 */
286 int
287 pw_edit(int notsetuid)
288 {
289 struct sigaction sa, sa_int, sa_quit;
290 sigset_t oldsigset, nsigset;
291 struct stat st1, st2;
292 const char *editor;
293 int pstat;
294
295 if ((editor = getenv("EDITOR")) == NULL)
296 editor = _PATH_VI;
297 if (stat(tempname, &st1) == -1)
298 return (-1);
299 sa.sa_handler = SIG_IGN;
300 sigemptyset(&sa.sa_mask);
301 sa.sa_flags = 0;
302 sigaction(SIGINT, &sa, &sa_int);
303 sigaction(SIGQUIT, &sa, &sa_quit);
304 sigemptyset(&nsigset);
305 sigaddset(&nsigset, SIGCHLD);
306 sigprocmask(SIG_BLOCK, &nsigset, &oldsigset);
307 switch ((editpid = fork())) {
308 case -1:
309 return (-1);
310 case 0:
311 sigaction(SIGINT, &sa_int, NULL);
312 sigaction(SIGQUIT, &sa_quit, NULL);
313 sigprocmask(SIG_SETMASK, &oldsigset, NULL);
314 if (notsetuid) {
315 if (setgid(getgid()) == -1)
316 err(1, "setgid");
317 if (setuid(getuid()) == -1)
318 err(1, "setuid");
319 }
320 execlp(editor, editor, tempname, (char *)NULL);
321 err(1, "%s", editor);
322 default:
323 /* parent */
324 break;
325 }
326 for (;;) {
327 if (waitpid(editpid, &pstat, WUNTRACED) == -1) {
328 if (errno == EINTR)
329 continue;
330 unlink(tempname);
331 editpid = -1;
332 break;
333 } else if (WIFSTOPPED(pstat)) {
334 raise(WSTOPSIG(pstat));
335 } else if (WIFEXITED(pstat)) {
336 if (WEXITSTATUS(pstat) != 0)
337 errx(1, "\"%s\" exited with status %d", editor, WEXITSTATUS(pstat));
338 editpid = -1;
339 break;
340 } else {
341 unlink(tempname);
342 editpid = -1;
343 break;
344 }
345 }
346 sigaction(SIGINT, &sa_int, NULL);
347 sigaction(SIGQUIT, &sa_quit, NULL);
348 sigprocmask(SIG_SETMASK, &oldsigset, NULL);
349 if (stat(tempname, &st2) == -1)
350 return (-1);
351 return (st1.st_mtimespec.tv_sec != st2.st_mtimespec.tv_sec ||
352 st1.st_mtimespec.tv_nsec != st2.st_mtimespec.tv_nsec);
353 }
354
355 /*
356 * Clean up. Preserve errno for the caller's convenience.
357 */
358 void
359 pw_fini(void)
360 {
361 int serrno, status;
362
363 if (!initialized)
364 return;
365 initialized = 0;
366 serrno = errno;
367 if (editpid != -1) {
368 kill(editpid, SIGTERM);
369 kill(editpid, SIGCONT);
370 waitpid(editpid, &status, 0);
371 editpid = -1;
372 }
373 if (*tempname != '\0') {
374 unlink(tempname);
375 *tempname = '\0';
376 }
377 if (lockfd != -1)
378 close(lockfd);
379 errno = serrno;
380 }
381
382 /*
383 * Compares two struct pwds.
384 */
385 int
386 pw_equal(const struct passwd *pw1, const struct passwd *pw2)
387 {
388 return (strcmp(pw1->pw_name, pw2->pw_name) == 0 &&
389 pw1->pw_uid == pw2->pw_uid &&
390 pw1->pw_gid == pw2->pw_gid &&
391 strcmp(pw1->pw_class, pw2->pw_class) == 0 &&
392 pw1->pw_change == pw2->pw_change &&
393 pw1->pw_expire == pw2->pw_expire &&
394 strcmp(pw1->pw_gecos, pw2->pw_gecos) == 0 &&
395 strcmp(pw1->pw_dir, pw2->pw_dir) == 0 &&
396 strcmp(pw1->pw_shell, pw2->pw_shell) == 0);
397 }
398
399 /*
400 * Make a passwd line out of a struct passwd.
401 */
402 char *
403 pw_make(const struct passwd *pw)
404 {
405 char *line;
406
407 asprintf(&line, "%s:%s:%ju:%ju:%s:%ju:%ju:%s:%s:%s", pw->pw_name,
408 pw->pw_passwd, (uintmax_t)pw->pw_uid, (uintmax_t)pw->pw_gid,
409 pw->pw_class, (uintmax_t)pw->pw_change, (uintmax_t)pw->pw_expire,
410 pw->pw_gecos, pw->pw_dir, pw->pw_shell);
411 return (line);
412 }
413
414 /*
415 * Make a passwd line (in v7 format) out of a struct passwd
416 */
417 char *
418 pw_make_v7(const struct passwd *pw)
419 {
420 char *line;
421
422 asprintf(&line, "%s:*:%ju:%ju:%s:%s:%s", pw->pw_name,
423 (uintmax_t)pw->pw_uid, (uintmax_t)pw->pw_gid,
424 pw->pw_gecos, pw->pw_dir, pw->pw_shell);
425 return (line);
426 }
427
428 /*
429 * Copy password file from one descriptor to another, replacing, deleting
430 * or adding a single record on the way.
431 */
432 int
433 pw_copy(int ffd, int tfd, const struct passwd *pw, struct passwd *old_pw)
434 {
435 char *buf, *end, *line, *p, *q, *r, *tmp;
436 struct passwd *fpw;
437 const struct passwd *spw;
438 size_t len, size;
439 int eof, readlen;
440 char t;
441
442 if (old_pw == NULL && pw == NULL)
443 return (-1);
444
445 spw = old_pw;
446 /* deleting a user */
447 if (pw == NULL) {
448 line = NULL;
449 } else {
450 if ((line = pw_make(pw)) == NULL)
451 return (-1);
452 }
453
454 /* adding a user */
455 if (spw == NULL)
456 spw = pw;
457
458 /* initialize the buffer */
459 if ((buf = malloc(size = 1024)) == NULL)
460 goto err;
461
462 eof = 0;
463 len = 0;
464 p = q = end = buf;
465 for (;;) {
466 /* find the end of the current line */
467 for (p = q; q < end && *q != '\0'; ++q)
468 if (*q == '\n')
469 break;
470
471 /* if we don't have a complete line, fill up the buffer */
472 if (q >= end) {
473 if (eof)
474 break;
475 while ((size_t)(q - p) >= size) {
476 if ((tmp = reallocarray(buf, 2, size)) == NULL) {
477 warnx("passwd line too long");
478 goto err;
479 }
480 p = tmp + (p - buf);
481 q = tmp + (q - buf);
482 end = tmp + (end - buf);
483 buf = tmp;
484 size = size * 2;
485 }
486 if (p < end) {
487 q = memmove(buf, p, end - p);
488 end -= p - buf;
489 } else {
490 p = q = end = buf;
491 }
492 readlen = read(ffd, end, size - (end - buf));
493 if (readlen == -1)
494 goto err;
495 else
496 len = (size_t)readlen;
497 if (len == 0 && p == buf)
498 break;
499 end += len;
500 len = end - buf;
501 if (len < size) {
502 eof = 1;
503 if (len > 0 && buf[len - 1] != '\n')
504 ++len, *end++ = '\n';
505 }
506 continue;
507 }
508
509 /* is it a blank line or a comment? */
510 for (r = p; r < q && isspace(*r); ++r)
511 /* nothing */ ;
512 if (r == q || *r == '#') {
513 /* yep */
514 if (write(tfd, p, q - p + 1) != q - p + 1)
515 goto err;
516 ++q;
517 continue;
518 }
519
520 /* is it the one we're looking for? */
521
522 t = *q;
523 *q = '\0';
524
525 fpw = pw_scan(r, PWSCAN_MASTER);
526
527 /*
528 * fpw is either the struct passwd for the current line,
529 * or NULL if the line is malformed.
530 */
531
532 *q = t;
533 if (fpw == NULL || strcmp(fpw->pw_name, spw->pw_name) != 0) {
534 /* nope */
535 if (fpw != NULL)
536 free(fpw);
537 if (write(tfd, p, q - p + 1) != q - p + 1)
538 goto err;
539 ++q;
540 continue;
541 }
542 if (old_pw && !pw_equal(fpw, old_pw)) {
543 warnx("entry inconsistent");
544 free(fpw);
545 errno = EINVAL; /* hack */
546 goto err;
547 }
548 free(fpw);
549
550 /* it is, replace or remove it */
551 if (line != NULL) {
552 len = strlen(line);
553 if (write(tfd, line, len) != (int)len)
554 goto err;
555 } else {
556 /* when removed, avoid the \n */
557 q++;
558 }
559 /* we're done, just copy the rest over */
560 for (;;) {
561 if (write(tfd, q, end - q) != end - q)
562 goto err;
563 q = buf;
564 readlen = read(ffd, buf, size);
565 if (readlen == 0)
566 break;
567 else
568 len = (size_t)readlen;
569 if (readlen == -1)
570 goto err;
571 end = buf + len;
572 }
573 goto done;
574 }
575
576 /* if we got here, we didn't find the old entry */
577 if (line == NULL) {
578 errno = ENOENT;
579 goto err;
580 }
581 len = strlen(line);
582 if ((size_t)write(tfd, line, len) != len ||
583 write(tfd, "\n", 1) != 1)
584 goto err;
585 done:
586 free(line);
587 free(buf);
588 return (0);
589 err:
590 free(line);
591 free(buf);
592 return (-1);
593 }
594
595 /*
596 * Return the current value of tempname.
597 */
598 const char *
599 pw_tempname(void)
600 {
601
602 return (tempname);
603 }
604
605 /*
606 * Duplicate a struct passwd.
607 */
608 struct passwd *
609 pw_dup(const struct passwd *pw)
610 {
611 char *dst;
612 struct passwd *npw;
613 ssize_t len;
614
615 len = sizeof(*npw);
616 if (pw->pw_name != NULL)
617 len += strlen(pw->pw_name) + 1;
618 if (pw->pw_passwd != NULL)
619 len += strlen(pw->pw_passwd) + 1;
620 if (pw->pw_class != NULL)
621 len += strlen(pw->pw_class) + 1;
622 if (pw->pw_gecos != NULL)
623 len += strlen(pw->pw_gecos) + 1;
624 if (pw->pw_dir != NULL)
625 len += strlen(pw->pw_dir) + 1;
626 if (pw->pw_shell != NULL)
627 len += strlen(pw->pw_shell) + 1;
628 if ((npw = malloc((size_t)len)) == NULL)
629 return (NULL);
630 memcpy(npw, pw, sizeof(*npw));
631 dst = (char *)npw + sizeof(*npw);
632 if (pw->pw_name != NULL) {
633 npw->pw_name = dst;
634 dst = stpcpy(npw->pw_name, pw->pw_name) + 1;
635 }
636 if (pw->pw_passwd != NULL) {
637 npw->pw_passwd = dst;
638 dst = stpcpy(npw->pw_passwd, pw->pw_passwd) + 1;
639 }
640 if (pw->pw_class != NULL) {
641 npw->pw_class = dst;
642 dst = stpcpy(npw->pw_class, pw->pw_class) + 1;
643 }
644 if (pw->pw_gecos != NULL) {
645 npw->pw_gecos = dst;
646 dst = stpcpy(npw->pw_gecos, pw->pw_gecos) + 1;
647 }
648 if (pw->pw_dir != NULL) {
649 npw->pw_dir = dst;
650 dst = stpcpy(npw->pw_dir, pw->pw_dir) + 1;
651 }
652 if (pw->pw_shell != NULL) {
653 npw->pw_shell = dst;
654 dst = stpcpy(npw->pw_shell, pw->pw_shell) + 1;
655 }
656 return (npw);
657 }
658
659 #include "pw_scan.h"
660
661 /*
662 * Wrapper around some internal libc functions.
663 */
664
665 void
666 pw_initpwd(struct passwd *pw)
667 {
668
669 __pw_initpwd(pw);
670 }
671
672 struct passwd *
673 pw_scan(const char *line, int flags)
674 {
675 struct passwd pw, *ret;
676 char *bp;
677
678 if ((bp = strdup(line)) == NULL)
679 return (NULL);
680 __pw_initpwd(&pw);
681 if (!__pw_scan(bp, &pw, flags)) {
682 free(bp);
683 return (NULL);
684 }
685 ret = pw_dup(&pw);
686 free(bp);
687 return (ret);
688 }