xref: /freebsd/sys/kern/kern_prot.c (revision a7dea1671b87c07d2d266f836bfa8b58efc7c134)
1 /*-
2  * SPDX-License-Identifier: BSD-3-Clause
3  *
4  * Copyright (c) 1982, 1986, 1989, 1990, 1991, 1993
5  *	The Regents of the University of California.
6  * (c) UNIX System Laboratories, Inc.
7  * Copyright (c) 2000-2001 Robert N. M. Watson.
8  * All rights reserved.
9  *
10  * All or some portions of this file are derived from material licensed
11  * to the University of California by American Telephone and Telegraph
12  * Co. or Unix System Laboratories, Inc. and are reproduced herein with
13  * the permission of UNIX System Laboratories, Inc.
14  *
15  * Redistribution and use in source and binary forms, with or without
16  * modification, are permitted provided that the following conditions
17  * are met:
18  * 1. Redistributions of source code must retain the above copyright
19  *    notice, this list of conditions and the following disclaimer.
20  * 2. Redistributions in binary form must reproduce the above copyright
21  *    notice, this list of conditions and the following disclaimer in the
22  *    documentation and/or other materials provided with the distribution.
23  * 3. Neither the name of the University nor the names of its contributors
24  *    may be used to endorse or promote products derived from this software
25  *    without specific prior written permission.
26  *
27  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
28  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
31  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
32  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
33  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
34  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
35  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
36  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
37  * SUCH DAMAGE.
38  *
39  *	@(#)kern_prot.c	8.6 (Berkeley) 1/21/94
40  */
41 
42 /*
43  * System calls related to processes and protection
44  */
45 
46 #include <sys/cdefs.h>
47 __FBSDID("$FreeBSD$");
48 
49 #include "opt_inet.h"
50 #include "opt_inet6.h"
51 
52 #include <sys/param.h>
53 #include <sys/systm.h>
54 #include <sys/acct.h>
55 #include <sys/kdb.h>
56 #include <sys/kernel.h>
57 #include <sys/lock.h>
58 #include <sys/loginclass.h>
59 #include <sys/malloc.h>
60 #include <sys/mutex.h>
61 #include <sys/refcount.h>
62 #include <sys/sx.h>
63 #include <sys/priv.h>
64 #include <sys/proc.h>
65 #include <sys/sysent.h>
66 #include <sys/sysproto.h>
67 #include <sys/jail.h>
68 #include <sys/pioctl.h>
69 #include <sys/racct.h>
70 #include <sys/rctl.h>
71 #include <sys/resourcevar.h>
72 #include <sys/socket.h>
73 #include <sys/socketvar.h>
74 #include <sys/syscallsubr.h>
75 #include <sys/sysctl.h>
76 
77 #ifdef REGRESSION
78 FEATURE(regression,
79     "Kernel support for interfaces necessary for regression testing (SECURITY RISK!)");
80 #endif
81 
82 #include <security/audit/audit.h>
83 #include <security/mac/mac_framework.h>
84 
85 static MALLOC_DEFINE(M_CRED, "cred", "credentials");
86 
87 SYSCTL_NODE(_security, OID_AUTO, bsd, CTLFLAG_RW, 0, "BSD security policy");
88 
89 static void crsetgroups_locked(struct ucred *cr, int ngrp,
90     gid_t *groups);
91 
92 #ifndef _SYS_SYSPROTO_H_
93 struct getpid_args {
94 	int	dummy;
95 };
96 #endif
97 /* ARGSUSED */
98 int
99 sys_getpid(struct thread *td, struct getpid_args *uap)
100 {
101 	struct proc *p = td->td_proc;
102 
103 	td->td_retval[0] = p->p_pid;
104 #if defined(COMPAT_43)
105 	if (SV_PROC_FLAG(p, SV_AOUT))
106 		td->td_retval[1] = kern_getppid(td);
107 #endif
108 	return (0);
109 }
110 
111 #ifndef _SYS_SYSPROTO_H_
112 struct getppid_args {
113         int     dummy;
114 };
115 #endif
116 /* ARGSUSED */
117 int
118 sys_getppid(struct thread *td, struct getppid_args *uap)
119 {
120 
121 	td->td_retval[0] = kern_getppid(td);
122 	return (0);
123 }
124 
125 int
126 kern_getppid(struct thread *td)
127 {
128 	struct proc *p = td->td_proc;
129 
130 	return (p->p_oppid);
131 }
132 
133 /*
134  * Get process group ID; note that POSIX getpgrp takes no parameter.
135  */
136 #ifndef _SYS_SYSPROTO_H_
137 struct getpgrp_args {
138         int     dummy;
139 };
140 #endif
141 int
142 sys_getpgrp(struct thread *td, struct getpgrp_args *uap)
143 {
144 	struct proc *p = td->td_proc;
145 
146 	PROC_LOCK(p);
147 	td->td_retval[0] = p->p_pgrp->pg_id;
148 	PROC_UNLOCK(p);
149 	return (0);
150 }
151 
152 /* Get an arbitrary pid's process group id */
153 #ifndef _SYS_SYSPROTO_H_
154 struct getpgid_args {
155 	pid_t	pid;
156 };
157 #endif
158 int
159 sys_getpgid(struct thread *td, struct getpgid_args *uap)
160 {
161 	struct proc *p;
162 	int error;
163 
164 	if (uap->pid == 0) {
165 		p = td->td_proc;
166 		PROC_LOCK(p);
167 	} else {
168 		p = pfind(uap->pid);
169 		if (p == NULL)
170 			return (ESRCH);
171 		error = p_cansee(td, p);
172 		if (error) {
173 			PROC_UNLOCK(p);
174 			return (error);
175 		}
176 	}
177 	td->td_retval[0] = p->p_pgrp->pg_id;
178 	PROC_UNLOCK(p);
179 	return (0);
180 }
181 
182 /*
183  * Get an arbitrary pid's session id.
184  */
185 #ifndef _SYS_SYSPROTO_H_
186 struct getsid_args {
187 	pid_t	pid;
188 };
189 #endif
190 int
191 sys_getsid(struct thread *td, struct getsid_args *uap)
192 {
193 
194 	return (kern_getsid(td, uap->pid));
195 }
196 
197 int
198 kern_getsid(struct thread *td, pid_t pid)
199 {
200 	struct proc *p;
201 	int error;
202 
203 	if (pid == 0) {
204 		p = td->td_proc;
205 		PROC_LOCK(p);
206 	} else {
207 		p = pfind(pid);
208 		if (p == NULL)
209 			return (ESRCH);
210 		error = p_cansee(td, p);
211 		if (error) {
212 			PROC_UNLOCK(p);
213 			return (error);
214 		}
215 	}
216 	td->td_retval[0] = p->p_session->s_sid;
217 	PROC_UNLOCK(p);
218 	return (0);
219 }
220 
221 #ifndef _SYS_SYSPROTO_H_
222 struct getuid_args {
223         int     dummy;
224 };
225 #endif
226 /* ARGSUSED */
227 int
228 sys_getuid(struct thread *td, struct getuid_args *uap)
229 {
230 
231 	td->td_retval[0] = td->td_ucred->cr_ruid;
232 #if defined(COMPAT_43)
233 	td->td_retval[1] = td->td_ucred->cr_uid;
234 #endif
235 	return (0);
236 }
237 
238 #ifndef _SYS_SYSPROTO_H_
239 struct geteuid_args {
240         int     dummy;
241 };
242 #endif
243 /* ARGSUSED */
244 int
245 sys_geteuid(struct thread *td, struct geteuid_args *uap)
246 {
247 
248 	td->td_retval[0] = td->td_ucred->cr_uid;
249 	return (0);
250 }
251 
252 #ifndef _SYS_SYSPROTO_H_
253 struct getgid_args {
254         int     dummy;
255 };
256 #endif
257 /* ARGSUSED */
258 int
259 sys_getgid(struct thread *td, struct getgid_args *uap)
260 {
261 
262 	td->td_retval[0] = td->td_ucred->cr_rgid;
263 #if defined(COMPAT_43)
264 	td->td_retval[1] = td->td_ucred->cr_groups[0];
265 #endif
266 	return (0);
267 }
268 
269 /*
270  * Get effective group ID.  The "egid" is groups[0], and could be obtained
271  * via getgroups.  This syscall exists because it is somewhat painful to do
272  * correctly in a library function.
273  */
274 #ifndef _SYS_SYSPROTO_H_
275 struct getegid_args {
276         int     dummy;
277 };
278 #endif
279 /* ARGSUSED */
280 int
281 sys_getegid(struct thread *td, struct getegid_args *uap)
282 {
283 
284 	td->td_retval[0] = td->td_ucred->cr_groups[0];
285 	return (0);
286 }
287 
288 #ifndef _SYS_SYSPROTO_H_
289 struct getgroups_args {
290 	u_int	gidsetsize;
291 	gid_t	*gidset;
292 };
293 #endif
294 int
295 sys_getgroups(struct thread *td, struct getgroups_args *uap)
296 {
297 	struct ucred *cred;
298 	u_int ngrp;
299 	int error;
300 
301 	cred = td->td_ucred;
302 	ngrp = cred->cr_ngroups;
303 
304 	if (uap->gidsetsize == 0) {
305 		error = 0;
306 		goto out;
307 	}
308 	if (uap->gidsetsize < ngrp)
309 		return (EINVAL);
310 
311 	error = copyout(cred->cr_groups, uap->gidset, ngrp * sizeof(gid_t));
312 out:
313 	td->td_retval[0] = ngrp;
314 	return (error);
315 }
316 
317 #ifndef _SYS_SYSPROTO_H_
318 struct setsid_args {
319         int     dummy;
320 };
321 #endif
322 /* ARGSUSED */
323 int
324 sys_setsid(struct thread *td, struct setsid_args *uap)
325 {
326 	struct pgrp *pgrp;
327 	int error;
328 	struct proc *p = td->td_proc;
329 	struct pgrp *newpgrp;
330 	struct session *newsess;
331 
332 	error = 0;
333 	pgrp = NULL;
334 
335 	newpgrp = malloc(sizeof(struct pgrp), M_PGRP, M_WAITOK | M_ZERO);
336 	newsess = malloc(sizeof(struct session), M_SESSION, M_WAITOK | M_ZERO);
337 
338 	sx_xlock(&proctree_lock);
339 
340 	if (p->p_pgid == p->p_pid || (pgrp = pgfind(p->p_pid)) != NULL) {
341 		if (pgrp != NULL)
342 			PGRP_UNLOCK(pgrp);
343 		error = EPERM;
344 	} else {
345 		(void)enterpgrp(p, p->p_pid, newpgrp, newsess);
346 		td->td_retval[0] = p->p_pid;
347 		newpgrp = NULL;
348 		newsess = NULL;
349 	}
350 
351 	sx_xunlock(&proctree_lock);
352 
353 	if (newpgrp != NULL)
354 		free(newpgrp, M_PGRP);
355 	if (newsess != NULL)
356 		free(newsess, M_SESSION);
357 
358 	return (error);
359 }
360 
361 /*
362  * set process group (setpgid/old setpgrp)
363  *
364  * caller does setpgid(targpid, targpgid)
365  *
366  * pid must be caller or child of caller (ESRCH)
367  * if a child
368  *	pid must be in same session (EPERM)
369  *	pid can't have done an exec (EACCES)
370  * if pgid != pid
371  * 	there must exist some pid in same session having pgid (EPERM)
372  * pid must not be session leader (EPERM)
373  */
374 #ifndef _SYS_SYSPROTO_H_
375 struct setpgid_args {
376 	int	pid;		/* target process id */
377 	int	pgid;		/* target pgrp id */
378 };
379 #endif
380 /* ARGSUSED */
381 int
382 sys_setpgid(struct thread *td, struct setpgid_args *uap)
383 {
384 	struct proc *curp = td->td_proc;
385 	struct proc *targp;	/* target process */
386 	struct pgrp *pgrp;	/* target pgrp */
387 	int error;
388 	struct pgrp *newpgrp;
389 
390 	if (uap->pgid < 0)
391 		return (EINVAL);
392 
393 	error = 0;
394 
395 	newpgrp = malloc(sizeof(struct pgrp), M_PGRP, M_WAITOK | M_ZERO);
396 
397 	sx_xlock(&proctree_lock);
398 	if (uap->pid != 0 && uap->pid != curp->p_pid) {
399 		if ((targp = pfind(uap->pid)) == NULL) {
400 			error = ESRCH;
401 			goto done;
402 		}
403 		if (!inferior(targp)) {
404 			PROC_UNLOCK(targp);
405 			error = ESRCH;
406 			goto done;
407 		}
408 		if ((error = p_cansee(td, targp))) {
409 			PROC_UNLOCK(targp);
410 			goto done;
411 		}
412 		if (targp->p_pgrp == NULL ||
413 		    targp->p_session != curp->p_session) {
414 			PROC_UNLOCK(targp);
415 			error = EPERM;
416 			goto done;
417 		}
418 		if (targp->p_flag & P_EXEC) {
419 			PROC_UNLOCK(targp);
420 			error = EACCES;
421 			goto done;
422 		}
423 		PROC_UNLOCK(targp);
424 	} else
425 		targp = curp;
426 	if (SESS_LEADER(targp)) {
427 		error = EPERM;
428 		goto done;
429 	}
430 	if (uap->pgid == 0)
431 		uap->pgid = targp->p_pid;
432 	if ((pgrp = pgfind(uap->pgid)) == NULL) {
433 		if (uap->pgid == targp->p_pid) {
434 			error = enterpgrp(targp, uap->pgid, newpgrp,
435 			    NULL);
436 			if (error == 0)
437 				newpgrp = NULL;
438 		} else
439 			error = EPERM;
440 	} else {
441 		if (pgrp == targp->p_pgrp) {
442 			PGRP_UNLOCK(pgrp);
443 			goto done;
444 		}
445 		if (pgrp->pg_id != targp->p_pid &&
446 		    pgrp->pg_session != curp->p_session) {
447 			PGRP_UNLOCK(pgrp);
448 			error = EPERM;
449 			goto done;
450 		}
451 		PGRP_UNLOCK(pgrp);
452 		error = enterthispgrp(targp, pgrp);
453 	}
454 done:
455 	sx_xunlock(&proctree_lock);
456 	KASSERT((error == 0) || (newpgrp != NULL),
457 	    ("setpgid failed and newpgrp is NULL"));
458 	if (newpgrp != NULL)
459 		free(newpgrp, M_PGRP);
460 	return (error);
461 }
462 
463 /*
464  * Use the clause in B.4.2.2 that allows setuid/setgid to be 4.2/4.3BSD
465  * compatible.  It says that setting the uid/gid to euid/egid is a special
466  * case of "appropriate privilege".  Once the rules are expanded out, this
467  * basically means that setuid(nnn) sets all three id's, in all permitted
468  * cases unless _POSIX_SAVED_IDS is enabled.  In that case, setuid(getuid())
469  * does not set the saved id - this is dangerous for traditional BSD
470  * programs.  For this reason, we *really* do not want to set
471  * _POSIX_SAVED_IDS and do not want to clear POSIX_APPENDIX_B_4_2_2.
472  */
473 #define POSIX_APPENDIX_B_4_2_2
474 
475 #ifndef _SYS_SYSPROTO_H_
476 struct setuid_args {
477 	uid_t	uid;
478 };
479 #endif
480 /* ARGSUSED */
481 int
482 sys_setuid(struct thread *td, struct setuid_args *uap)
483 {
484 	struct proc *p = td->td_proc;
485 	struct ucred *newcred, *oldcred;
486 	uid_t uid;
487 	struct uidinfo *uip;
488 	int error;
489 
490 	uid = uap->uid;
491 	AUDIT_ARG_UID(uid);
492 	newcred = crget();
493 	uip = uifind(uid);
494 	PROC_LOCK(p);
495 	/*
496 	 * Copy credentials so other references do not see our changes.
497 	 */
498 	oldcred = crcopysafe(p, newcred);
499 
500 #ifdef MAC
501 	error = mac_cred_check_setuid(oldcred, uid);
502 	if (error)
503 		goto fail;
504 #endif
505 
506 	/*
507 	 * See if we have "permission" by POSIX 1003.1 rules.
508 	 *
509 	 * Note that setuid(geteuid()) is a special case of
510 	 * "appropriate privileges" in appendix B.4.2.2.  We need
511 	 * to use this clause to be compatible with traditional BSD
512 	 * semantics.  Basically, it means that "setuid(xx)" sets all
513 	 * three id's (assuming you have privs).
514 	 *
515 	 * Notes on the logic.  We do things in three steps.
516 	 * 1: We determine if the euid is going to change, and do EPERM
517 	 *    right away.  We unconditionally change the euid later if this
518 	 *    test is satisfied, simplifying that part of the logic.
519 	 * 2: We determine if the real and/or saved uids are going to
520 	 *    change.  Determined by compile options.
521 	 * 3: Change euid last. (after tests in #2 for "appropriate privs")
522 	 */
523 	if (uid != oldcred->cr_ruid &&		/* allow setuid(getuid()) */
524 #ifdef _POSIX_SAVED_IDS
525 	    uid != oldcred->cr_svuid &&		/* allow setuid(saved gid) */
526 #endif
527 #ifdef POSIX_APPENDIX_B_4_2_2	/* Use BSD-compat clause from B.4.2.2 */
528 	    uid != oldcred->cr_uid &&		/* allow setuid(geteuid()) */
529 #endif
530 	    (error = priv_check_cred(oldcred, PRIV_CRED_SETUID)) != 0)
531 		goto fail;
532 
533 #ifdef _POSIX_SAVED_IDS
534 	/*
535 	 * Do we have "appropriate privileges" (are we root or uid == euid)
536 	 * If so, we are changing the real uid and/or saved uid.
537 	 */
538 	if (
539 #ifdef POSIX_APPENDIX_B_4_2_2	/* Use the clause from B.4.2.2 */
540 	    uid == oldcred->cr_uid ||
541 #endif
542 	    /* We are using privs. */
543 	    priv_check_cred(oldcred, PRIV_CRED_SETUID) == 0)
544 #endif
545 	{
546 		/*
547 		 * Set the real uid and transfer proc count to new user.
548 		 */
549 		if (uid != oldcred->cr_ruid) {
550 			change_ruid(newcred, uip);
551 			setsugid(p);
552 		}
553 		/*
554 		 * Set saved uid
555 		 *
556 		 * XXX always set saved uid even if not _POSIX_SAVED_IDS, as
557 		 * the security of seteuid() depends on it.  B.4.2.2 says it
558 		 * is important that we should do this.
559 		 */
560 		if (uid != oldcred->cr_svuid) {
561 			change_svuid(newcred, uid);
562 			setsugid(p);
563 		}
564 	}
565 
566 	/*
567 	 * In all permitted cases, we are changing the euid.
568 	 */
569 	if (uid != oldcred->cr_uid) {
570 		change_euid(newcred, uip);
571 		setsugid(p);
572 	}
573 	proc_set_cred(p, newcred);
574 #ifdef RACCT
575 	racct_proc_ucred_changed(p, oldcred, newcred);
576 	crhold(newcred);
577 #endif
578 	PROC_UNLOCK(p);
579 #ifdef RCTL
580 	rctl_proc_ucred_changed(p, newcred);
581 	crfree(newcred);
582 #endif
583 	uifree(uip);
584 	crfree(oldcred);
585 	return (0);
586 
587 fail:
588 	PROC_UNLOCK(p);
589 	uifree(uip);
590 	crfree(newcred);
591 	return (error);
592 }
593 
594 #ifndef _SYS_SYSPROTO_H_
595 struct seteuid_args {
596 	uid_t	euid;
597 };
598 #endif
599 /* ARGSUSED */
600 int
601 sys_seteuid(struct thread *td, struct seteuid_args *uap)
602 {
603 	struct proc *p = td->td_proc;
604 	struct ucred *newcred, *oldcred;
605 	uid_t euid;
606 	struct uidinfo *euip;
607 	int error;
608 
609 	euid = uap->euid;
610 	AUDIT_ARG_EUID(euid);
611 	newcred = crget();
612 	euip = uifind(euid);
613 	PROC_LOCK(p);
614 	/*
615 	 * Copy credentials so other references do not see our changes.
616 	 */
617 	oldcred = crcopysafe(p, newcred);
618 
619 #ifdef MAC
620 	error = mac_cred_check_seteuid(oldcred, euid);
621 	if (error)
622 		goto fail;
623 #endif
624 
625 	if (euid != oldcred->cr_ruid &&		/* allow seteuid(getuid()) */
626 	    euid != oldcred->cr_svuid &&	/* allow seteuid(saved uid) */
627 	    (error = priv_check_cred(oldcred, PRIV_CRED_SETEUID)) != 0)
628 		goto fail;
629 
630 	/*
631 	 * Everything's okay, do it.
632 	 */
633 	if (oldcred->cr_uid != euid) {
634 		change_euid(newcred, euip);
635 		setsugid(p);
636 	}
637 	proc_set_cred(p, newcred);
638 	PROC_UNLOCK(p);
639 	uifree(euip);
640 	crfree(oldcred);
641 	return (0);
642 
643 fail:
644 	PROC_UNLOCK(p);
645 	uifree(euip);
646 	crfree(newcred);
647 	return (error);
648 }
649 
650 #ifndef _SYS_SYSPROTO_H_
651 struct setgid_args {
652 	gid_t	gid;
653 };
654 #endif
655 /* ARGSUSED */
656 int
657 sys_setgid(struct thread *td, struct setgid_args *uap)
658 {
659 	struct proc *p = td->td_proc;
660 	struct ucred *newcred, *oldcred;
661 	gid_t gid;
662 	int error;
663 
664 	gid = uap->gid;
665 	AUDIT_ARG_GID(gid);
666 	newcred = crget();
667 	PROC_LOCK(p);
668 	oldcred = crcopysafe(p, newcred);
669 
670 #ifdef MAC
671 	error = mac_cred_check_setgid(oldcred, gid);
672 	if (error)
673 		goto fail;
674 #endif
675 
676 	/*
677 	 * See if we have "permission" by POSIX 1003.1 rules.
678 	 *
679 	 * Note that setgid(getegid()) is a special case of
680 	 * "appropriate privileges" in appendix B.4.2.2.  We need
681 	 * to use this clause to be compatible with traditional BSD
682 	 * semantics.  Basically, it means that "setgid(xx)" sets all
683 	 * three id's (assuming you have privs).
684 	 *
685 	 * For notes on the logic here, see setuid() above.
686 	 */
687 	if (gid != oldcred->cr_rgid &&		/* allow setgid(getgid()) */
688 #ifdef _POSIX_SAVED_IDS
689 	    gid != oldcred->cr_svgid &&		/* allow setgid(saved gid) */
690 #endif
691 #ifdef POSIX_APPENDIX_B_4_2_2	/* Use BSD-compat clause from B.4.2.2 */
692 	    gid != oldcred->cr_groups[0] && /* allow setgid(getegid()) */
693 #endif
694 	    (error = priv_check_cred(oldcred, PRIV_CRED_SETGID)) != 0)
695 		goto fail;
696 
697 #ifdef _POSIX_SAVED_IDS
698 	/*
699 	 * Do we have "appropriate privileges" (are we root or gid == egid)
700 	 * If so, we are changing the real uid and saved gid.
701 	 */
702 	if (
703 #ifdef POSIX_APPENDIX_B_4_2_2	/* use the clause from B.4.2.2 */
704 	    gid == oldcred->cr_groups[0] ||
705 #endif
706 	    /* We are using privs. */
707 	    priv_check_cred(oldcred, PRIV_CRED_SETGID) == 0)
708 #endif
709 	{
710 		/*
711 		 * Set real gid
712 		 */
713 		if (oldcred->cr_rgid != gid) {
714 			change_rgid(newcred, gid);
715 			setsugid(p);
716 		}
717 		/*
718 		 * Set saved gid
719 		 *
720 		 * XXX always set saved gid even if not _POSIX_SAVED_IDS, as
721 		 * the security of setegid() depends on it.  B.4.2.2 says it
722 		 * is important that we should do this.
723 		 */
724 		if (oldcred->cr_svgid != gid) {
725 			change_svgid(newcred, gid);
726 			setsugid(p);
727 		}
728 	}
729 	/*
730 	 * In all cases permitted cases, we are changing the egid.
731 	 * Copy credentials so other references do not see our changes.
732 	 */
733 	if (oldcred->cr_groups[0] != gid) {
734 		change_egid(newcred, gid);
735 		setsugid(p);
736 	}
737 	proc_set_cred(p, newcred);
738 	PROC_UNLOCK(p);
739 	crfree(oldcred);
740 	return (0);
741 
742 fail:
743 	PROC_UNLOCK(p);
744 	crfree(newcred);
745 	return (error);
746 }
747 
748 #ifndef _SYS_SYSPROTO_H_
749 struct setegid_args {
750 	gid_t	egid;
751 };
752 #endif
753 /* ARGSUSED */
754 int
755 sys_setegid(struct thread *td, struct setegid_args *uap)
756 {
757 	struct proc *p = td->td_proc;
758 	struct ucred *newcred, *oldcred;
759 	gid_t egid;
760 	int error;
761 
762 	egid = uap->egid;
763 	AUDIT_ARG_EGID(egid);
764 	newcred = crget();
765 	PROC_LOCK(p);
766 	oldcred = crcopysafe(p, newcred);
767 
768 #ifdef MAC
769 	error = mac_cred_check_setegid(oldcred, egid);
770 	if (error)
771 		goto fail;
772 #endif
773 
774 	if (egid != oldcred->cr_rgid &&		/* allow setegid(getgid()) */
775 	    egid != oldcred->cr_svgid &&	/* allow setegid(saved gid) */
776 	    (error = priv_check_cred(oldcred, PRIV_CRED_SETEGID)) != 0)
777 		goto fail;
778 
779 	if (oldcred->cr_groups[0] != egid) {
780 		change_egid(newcred, egid);
781 		setsugid(p);
782 	}
783 	proc_set_cred(p, newcred);
784 	PROC_UNLOCK(p);
785 	crfree(oldcred);
786 	return (0);
787 
788 fail:
789 	PROC_UNLOCK(p);
790 	crfree(newcred);
791 	return (error);
792 }
793 
794 #ifndef _SYS_SYSPROTO_H_
795 struct setgroups_args {
796 	u_int	gidsetsize;
797 	gid_t	*gidset;
798 };
799 #endif
800 /* ARGSUSED */
801 int
802 sys_setgroups(struct thread *td, struct setgroups_args *uap)
803 {
804 	gid_t smallgroups[XU_NGROUPS];
805 	gid_t *groups;
806 	u_int gidsetsize;
807 	int error;
808 
809 	gidsetsize = uap->gidsetsize;
810 	if (gidsetsize > ngroups_max + 1)
811 		return (EINVAL);
812 
813 	if (gidsetsize > XU_NGROUPS)
814 		groups = malloc(gidsetsize * sizeof(gid_t), M_TEMP, M_WAITOK);
815 	else
816 		groups = smallgroups;
817 
818 	error = copyin(uap->gidset, groups, gidsetsize * sizeof(gid_t));
819 	if (error == 0)
820 		error = kern_setgroups(td, gidsetsize, groups);
821 
822 	if (gidsetsize > XU_NGROUPS)
823 		free(groups, M_TEMP);
824 	return (error);
825 }
826 
827 int
828 kern_setgroups(struct thread *td, u_int ngrp, gid_t *groups)
829 {
830 	struct proc *p = td->td_proc;
831 	struct ucred *newcred, *oldcred;
832 	int error;
833 
834 	MPASS(ngrp <= ngroups_max + 1);
835 	AUDIT_ARG_GROUPSET(groups, ngrp);
836 	newcred = crget();
837 	crextend(newcred, ngrp);
838 	PROC_LOCK(p);
839 	oldcred = crcopysafe(p, newcred);
840 
841 #ifdef MAC
842 	error = mac_cred_check_setgroups(oldcred, ngrp, groups);
843 	if (error)
844 		goto fail;
845 #endif
846 
847 	error = priv_check_cred(oldcred, PRIV_CRED_SETGROUPS);
848 	if (error)
849 		goto fail;
850 
851 	if (ngrp == 0) {
852 		/*
853 		 * setgroups(0, NULL) is a legitimate way of clearing the
854 		 * groups vector on non-BSD systems (which generally do not
855 		 * have the egid in the groups[0]).  We risk security holes
856 		 * when running non-BSD software if we do not do the same.
857 		 */
858 		newcred->cr_ngroups = 1;
859 	} else {
860 		crsetgroups_locked(newcred, ngrp, groups);
861 	}
862 	setsugid(p);
863 	proc_set_cred(p, newcred);
864 	PROC_UNLOCK(p);
865 	crfree(oldcred);
866 	return (0);
867 
868 fail:
869 	PROC_UNLOCK(p);
870 	crfree(newcred);
871 	return (error);
872 }
873 
874 #ifndef _SYS_SYSPROTO_H_
875 struct setreuid_args {
876 	uid_t	ruid;
877 	uid_t	euid;
878 };
879 #endif
880 /* ARGSUSED */
881 int
882 sys_setreuid(struct thread *td, struct setreuid_args *uap)
883 {
884 	struct proc *p = td->td_proc;
885 	struct ucred *newcred, *oldcred;
886 	uid_t euid, ruid;
887 	struct uidinfo *euip, *ruip;
888 	int error;
889 
890 	euid = uap->euid;
891 	ruid = uap->ruid;
892 	AUDIT_ARG_EUID(euid);
893 	AUDIT_ARG_RUID(ruid);
894 	newcred = crget();
895 	euip = uifind(euid);
896 	ruip = uifind(ruid);
897 	PROC_LOCK(p);
898 	oldcred = crcopysafe(p, newcred);
899 
900 #ifdef MAC
901 	error = mac_cred_check_setreuid(oldcred, ruid, euid);
902 	if (error)
903 		goto fail;
904 #endif
905 
906 	if (((ruid != (uid_t)-1 && ruid != oldcred->cr_ruid &&
907 	      ruid != oldcred->cr_svuid) ||
908 	     (euid != (uid_t)-1 && euid != oldcred->cr_uid &&
909 	      euid != oldcred->cr_ruid && euid != oldcred->cr_svuid)) &&
910 	    (error = priv_check_cred(oldcred, PRIV_CRED_SETREUID)) != 0)
911 		goto fail;
912 
913 	if (euid != (uid_t)-1 && oldcred->cr_uid != euid) {
914 		change_euid(newcred, euip);
915 		setsugid(p);
916 	}
917 	if (ruid != (uid_t)-1 && oldcred->cr_ruid != ruid) {
918 		change_ruid(newcred, ruip);
919 		setsugid(p);
920 	}
921 	if ((ruid != (uid_t)-1 || newcred->cr_uid != newcred->cr_ruid) &&
922 	    newcred->cr_svuid != newcred->cr_uid) {
923 		change_svuid(newcred, newcred->cr_uid);
924 		setsugid(p);
925 	}
926 	proc_set_cred(p, newcred);
927 #ifdef RACCT
928 	racct_proc_ucred_changed(p, oldcred, newcred);
929 	crhold(newcred);
930 #endif
931 	PROC_UNLOCK(p);
932 #ifdef RCTL
933 	rctl_proc_ucred_changed(p, newcred);
934 	crfree(newcred);
935 #endif
936 	uifree(ruip);
937 	uifree(euip);
938 	crfree(oldcred);
939 	return (0);
940 
941 fail:
942 	PROC_UNLOCK(p);
943 	uifree(ruip);
944 	uifree(euip);
945 	crfree(newcred);
946 	return (error);
947 }
948 
949 #ifndef _SYS_SYSPROTO_H_
950 struct setregid_args {
951 	gid_t	rgid;
952 	gid_t	egid;
953 };
954 #endif
955 /* ARGSUSED */
956 int
957 sys_setregid(struct thread *td, struct setregid_args *uap)
958 {
959 	struct proc *p = td->td_proc;
960 	struct ucred *newcred, *oldcred;
961 	gid_t egid, rgid;
962 	int error;
963 
964 	egid = uap->egid;
965 	rgid = uap->rgid;
966 	AUDIT_ARG_EGID(egid);
967 	AUDIT_ARG_RGID(rgid);
968 	newcred = crget();
969 	PROC_LOCK(p);
970 	oldcred = crcopysafe(p, newcred);
971 
972 #ifdef MAC
973 	error = mac_cred_check_setregid(oldcred, rgid, egid);
974 	if (error)
975 		goto fail;
976 #endif
977 
978 	if (((rgid != (gid_t)-1 && rgid != oldcred->cr_rgid &&
979 	    rgid != oldcred->cr_svgid) ||
980 	     (egid != (gid_t)-1 && egid != oldcred->cr_groups[0] &&
981 	     egid != oldcred->cr_rgid && egid != oldcred->cr_svgid)) &&
982 	    (error = priv_check_cred(oldcred, PRIV_CRED_SETREGID)) != 0)
983 		goto fail;
984 
985 	if (egid != (gid_t)-1 && oldcred->cr_groups[0] != egid) {
986 		change_egid(newcred, egid);
987 		setsugid(p);
988 	}
989 	if (rgid != (gid_t)-1 && oldcred->cr_rgid != rgid) {
990 		change_rgid(newcred, rgid);
991 		setsugid(p);
992 	}
993 	if ((rgid != (gid_t)-1 || newcred->cr_groups[0] != newcred->cr_rgid) &&
994 	    newcred->cr_svgid != newcred->cr_groups[0]) {
995 		change_svgid(newcred, newcred->cr_groups[0]);
996 		setsugid(p);
997 	}
998 	proc_set_cred(p, newcred);
999 	PROC_UNLOCK(p);
1000 	crfree(oldcred);
1001 	return (0);
1002 
1003 fail:
1004 	PROC_UNLOCK(p);
1005 	crfree(newcred);
1006 	return (error);
1007 }
1008 
1009 /*
1010  * setresuid(ruid, euid, suid) is like setreuid except control over the saved
1011  * uid is explicit.
1012  */
1013 #ifndef _SYS_SYSPROTO_H_
1014 struct setresuid_args {
1015 	uid_t	ruid;
1016 	uid_t	euid;
1017 	uid_t	suid;
1018 };
1019 #endif
1020 /* ARGSUSED */
1021 int
1022 sys_setresuid(struct thread *td, struct setresuid_args *uap)
1023 {
1024 	struct proc *p = td->td_proc;
1025 	struct ucred *newcred, *oldcred;
1026 	uid_t euid, ruid, suid;
1027 	struct uidinfo *euip, *ruip;
1028 	int error;
1029 
1030 	euid = uap->euid;
1031 	ruid = uap->ruid;
1032 	suid = uap->suid;
1033 	AUDIT_ARG_EUID(euid);
1034 	AUDIT_ARG_RUID(ruid);
1035 	AUDIT_ARG_SUID(suid);
1036 	newcred = crget();
1037 	euip = uifind(euid);
1038 	ruip = uifind(ruid);
1039 	PROC_LOCK(p);
1040 	oldcred = crcopysafe(p, newcred);
1041 
1042 #ifdef MAC
1043 	error = mac_cred_check_setresuid(oldcred, ruid, euid, suid);
1044 	if (error)
1045 		goto fail;
1046 #endif
1047 
1048 	if (((ruid != (uid_t)-1 && ruid != oldcred->cr_ruid &&
1049 	     ruid != oldcred->cr_svuid &&
1050 	      ruid != oldcred->cr_uid) ||
1051 	     (euid != (uid_t)-1 && euid != oldcred->cr_ruid &&
1052 	    euid != oldcred->cr_svuid &&
1053 	      euid != oldcred->cr_uid) ||
1054 	     (suid != (uid_t)-1 && suid != oldcred->cr_ruid &&
1055 	    suid != oldcred->cr_svuid &&
1056 	      suid != oldcred->cr_uid)) &&
1057 	    (error = priv_check_cred(oldcred, PRIV_CRED_SETRESUID)) != 0)
1058 		goto fail;
1059 
1060 	if (euid != (uid_t)-1 && oldcred->cr_uid != euid) {
1061 		change_euid(newcred, euip);
1062 		setsugid(p);
1063 	}
1064 	if (ruid != (uid_t)-1 && oldcred->cr_ruid != ruid) {
1065 		change_ruid(newcred, ruip);
1066 		setsugid(p);
1067 	}
1068 	if (suid != (uid_t)-1 && oldcred->cr_svuid != suid) {
1069 		change_svuid(newcred, suid);
1070 		setsugid(p);
1071 	}
1072 	proc_set_cred(p, newcred);
1073 #ifdef RACCT
1074 	racct_proc_ucred_changed(p, oldcred, newcred);
1075 	crhold(newcred);
1076 #endif
1077 	PROC_UNLOCK(p);
1078 #ifdef RCTL
1079 	rctl_proc_ucred_changed(p, newcred);
1080 	crfree(newcred);
1081 #endif
1082 	uifree(ruip);
1083 	uifree(euip);
1084 	crfree(oldcred);
1085 	return (0);
1086 
1087 fail:
1088 	PROC_UNLOCK(p);
1089 	uifree(ruip);
1090 	uifree(euip);
1091 	crfree(newcred);
1092 	return (error);
1093 
1094 }
1095 
1096 /*
1097  * setresgid(rgid, egid, sgid) is like setregid except control over the saved
1098  * gid is explicit.
1099  */
1100 #ifndef _SYS_SYSPROTO_H_
1101 struct setresgid_args {
1102 	gid_t	rgid;
1103 	gid_t	egid;
1104 	gid_t	sgid;
1105 };
1106 #endif
1107 /* ARGSUSED */
1108 int
1109 sys_setresgid(struct thread *td, struct setresgid_args *uap)
1110 {
1111 	struct proc *p = td->td_proc;
1112 	struct ucred *newcred, *oldcred;
1113 	gid_t egid, rgid, sgid;
1114 	int error;
1115 
1116 	egid = uap->egid;
1117 	rgid = uap->rgid;
1118 	sgid = uap->sgid;
1119 	AUDIT_ARG_EGID(egid);
1120 	AUDIT_ARG_RGID(rgid);
1121 	AUDIT_ARG_SGID(sgid);
1122 	newcred = crget();
1123 	PROC_LOCK(p);
1124 	oldcred = crcopysafe(p, newcred);
1125 
1126 #ifdef MAC
1127 	error = mac_cred_check_setresgid(oldcred, rgid, egid, sgid);
1128 	if (error)
1129 		goto fail;
1130 #endif
1131 
1132 	if (((rgid != (gid_t)-1 && rgid != oldcred->cr_rgid &&
1133 	      rgid != oldcred->cr_svgid &&
1134 	      rgid != oldcred->cr_groups[0]) ||
1135 	     (egid != (gid_t)-1 && egid != oldcred->cr_rgid &&
1136 	      egid != oldcred->cr_svgid &&
1137 	      egid != oldcred->cr_groups[0]) ||
1138 	     (sgid != (gid_t)-1 && sgid != oldcred->cr_rgid &&
1139 	      sgid != oldcred->cr_svgid &&
1140 	      sgid != oldcred->cr_groups[0])) &&
1141 	    (error = priv_check_cred(oldcred, PRIV_CRED_SETRESGID)) != 0)
1142 		goto fail;
1143 
1144 	if (egid != (gid_t)-1 && oldcred->cr_groups[0] != egid) {
1145 		change_egid(newcred, egid);
1146 		setsugid(p);
1147 	}
1148 	if (rgid != (gid_t)-1 && oldcred->cr_rgid != rgid) {
1149 		change_rgid(newcred, rgid);
1150 		setsugid(p);
1151 	}
1152 	if (sgid != (gid_t)-1 && oldcred->cr_svgid != sgid) {
1153 		change_svgid(newcred, sgid);
1154 		setsugid(p);
1155 	}
1156 	proc_set_cred(p, newcred);
1157 	PROC_UNLOCK(p);
1158 	crfree(oldcred);
1159 	return (0);
1160 
1161 fail:
1162 	PROC_UNLOCK(p);
1163 	crfree(newcred);
1164 	return (error);
1165 }
1166 
1167 #ifndef _SYS_SYSPROTO_H_
1168 struct getresuid_args {
1169 	uid_t	*ruid;
1170 	uid_t	*euid;
1171 	uid_t	*suid;
1172 };
1173 #endif
1174 /* ARGSUSED */
1175 int
1176 sys_getresuid(struct thread *td, struct getresuid_args *uap)
1177 {
1178 	struct ucred *cred;
1179 	int error1 = 0, error2 = 0, error3 = 0;
1180 
1181 	cred = td->td_ucred;
1182 	if (uap->ruid)
1183 		error1 = copyout(&cred->cr_ruid,
1184 		    uap->ruid, sizeof(cred->cr_ruid));
1185 	if (uap->euid)
1186 		error2 = copyout(&cred->cr_uid,
1187 		    uap->euid, sizeof(cred->cr_uid));
1188 	if (uap->suid)
1189 		error3 = copyout(&cred->cr_svuid,
1190 		    uap->suid, sizeof(cred->cr_svuid));
1191 	return (error1 ? error1 : error2 ? error2 : error3);
1192 }
1193 
1194 #ifndef _SYS_SYSPROTO_H_
1195 struct getresgid_args {
1196 	gid_t	*rgid;
1197 	gid_t	*egid;
1198 	gid_t	*sgid;
1199 };
1200 #endif
1201 /* ARGSUSED */
1202 int
1203 sys_getresgid(struct thread *td, struct getresgid_args *uap)
1204 {
1205 	struct ucred *cred;
1206 	int error1 = 0, error2 = 0, error3 = 0;
1207 
1208 	cred = td->td_ucred;
1209 	if (uap->rgid)
1210 		error1 = copyout(&cred->cr_rgid,
1211 		    uap->rgid, sizeof(cred->cr_rgid));
1212 	if (uap->egid)
1213 		error2 = copyout(&cred->cr_groups[0],
1214 		    uap->egid, sizeof(cred->cr_groups[0]));
1215 	if (uap->sgid)
1216 		error3 = copyout(&cred->cr_svgid,
1217 		    uap->sgid, sizeof(cred->cr_svgid));
1218 	return (error1 ? error1 : error2 ? error2 : error3);
1219 }
1220 
1221 #ifndef _SYS_SYSPROTO_H_
1222 struct issetugid_args {
1223 	int dummy;
1224 };
1225 #endif
1226 /* ARGSUSED */
1227 int
1228 sys_issetugid(struct thread *td, struct issetugid_args *uap)
1229 {
1230 	struct proc *p = td->td_proc;
1231 
1232 	/*
1233 	 * Note: OpenBSD sets a P_SUGIDEXEC flag set at execve() time,
1234 	 * we use P_SUGID because we consider changing the owners as
1235 	 * "tainting" as well.
1236 	 * This is significant for procs that start as root and "become"
1237 	 * a user without an exec - programs cannot know *everything*
1238 	 * that libc *might* have put in their data segment.
1239 	 */
1240 	td->td_retval[0] = (p->p_flag & P_SUGID) ? 1 : 0;
1241 	return (0);
1242 }
1243 
1244 int
1245 sys___setugid(struct thread *td, struct __setugid_args *uap)
1246 {
1247 #ifdef REGRESSION
1248 	struct proc *p;
1249 
1250 	p = td->td_proc;
1251 	switch (uap->flag) {
1252 	case 0:
1253 		PROC_LOCK(p);
1254 		p->p_flag &= ~P_SUGID;
1255 		PROC_UNLOCK(p);
1256 		return (0);
1257 	case 1:
1258 		PROC_LOCK(p);
1259 		p->p_flag |= P_SUGID;
1260 		PROC_UNLOCK(p);
1261 		return (0);
1262 	default:
1263 		return (EINVAL);
1264 	}
1265 #else /* !REGRESSION */
1266 
1267 	return (ENOSYS);
1268 #endif /* REGRESSION */
1269 }
1270 
1271 /*
1272  * Check if gid is a member of the group set.
1273  */
1274 int
1275 groupmember(gid_t gid, struct ucred *cred)
1276 {
1277 	int l;
1278 	int h;
1279 	int m;
1280 
1281 	if (cred->cr_groups[0] == gid)
1282 		return(1);
1283 
1284 	/*
1285 	 * If gid was not our primary group, perform a binary search
1286 	 * of the supplemental groups.  This is possible because we
1287 	 * sort the groups in crsetgroups().
1288 	 */
1289 	l = 1;
1290 	h = cred->cr_ngroups;
1291 	while (l < h) {
1292 		m = l + ((h - l) / 2);
1293 		if (cred->cr_groups[m] < gid)
1294 			l = m + 1;
1295 		else
1296 			h = m;
1297 	}
1298 	if ((l < cred->cr_ngroups) && (cred->cr_groups[l] == gid))
1299 		return (1);
1300 
1301 	return (0);
1302 }
1303 
1304 /*
1305  * Test the active securelevel against a given level.  securelevel_gt()
1306  * implements (securelevel > level).  securelevel_ge() implements
1307  * (securelevel >= level).  Note that the logic is inverted -- these
1308  * functions return EPERM on "success" and 0 on "failure".
1309  *
1310  * Due to care taken when setting the securelevel, we know that no jail will
1311  * be less secure that its parent (or the physical system), so it is sufficient
1312  * to test the current jail only.
1313  *
1314  * XXXRW: Possibly since this has to do with privilege, it should move to
1315  * kern_priv.c.
1316  */
1317 int
1318 securelevel_gt(struct ucred *cr, int level)
1319 {
1320 
1321 	return (cr->cr_prison->pr_securelevel > level ? EPERM : 0);
1322 }
1323 
1324 int
1325 securelevel_ge(struct ucred *cr, int level)
1326 {
1327 
1328 	return (cr->cr_prison->pr_securelevel >= level ? EPERM : 0);
1329 }
1330 
1331 /*
1332  * 'see_other_uids' determines whether or not visibility of processes
1333  * and sockets with credentials holding different real uids is possible
1334  * using a variety of system MIBs.
1335  * XXX: data declarations should be together near the beginning of the file.
1336  */
1337 static int	see_other_uids = 1;
1338 SYSCTL_INT(_security_bsd, OID_AUTO, see_other_uids, CTLFLAG_RW,
1339     &see_other_uids, 0,
1340     "Unprivileged processes may see subjects/objects with different real uid");
1341 
1342 /*-
1343  * Determine if u1 "can see" the subject specified by u2, according to the
1344  * 'see_other_uids' policy.
1345  * Returns: 0 for permitted, ESRCH otherwise
1346  * Locks: none
1347  * References: *u1 and *u2 must not change during the call
1348  *             u1 may equal u2, in which case only one reference is required
1349  */
1350 int
1351 cr_canseeotheruids(struct ucred *u1, struct ucred *u2)
1352 {
1353 
1354 	if (!see_other_uids && u1->cr_ruid != u2->cr_ruid) {
1355 		if (priv_check_cred(u1, PRIV_SEEOTHERUIDS) != 0)
1356 			return (ESRCH);
1357 	}
1358 	return (0);
1359 }
1360 
1361 /*
1362  * 'see_other_gids' determines whether or not visibility of processes
1363  * and sockets with credentials holding different real gids is possible
1364  * using a variety of system MIBs.
1365  * XXX: data declarations should be together near the beginning of the file.
1366  */
1367 static int	see_other_gids = 1;
1368 SYSCTL_INT(_security_bsd, OID_AUTO, see_other_gids, CTLFLAG_RW,
1369     &see_other_gids, 0,
1370     "Unprivileged processes may see subjects/objects with different real gid");
1371 
1372 /*
1373  * Determine if u1 can "see" the subject specified by u2, according to the
1374  * 'see_other_gids' policy.
1375  * Returns: 0 for permitted, ESRCH otherwise
1376  * Locks: none
1377  * References: *u1 and *u2 must not change during the call
1378  *             u1 may equal u2, in which case only one reference is required
1379  */
1380 int
1381 cr_canseeothergids(struct ucred *u1, struct ucred *u2)
1382 {
1383 	int i, match;
1384 
1385 	if (!see_other_gids) {
1386 		match = 0;
1387 		for (i = 0; i < u1->cr_ngroups; i++) {
1388 			if (groupmember(u1->cr_groups[i], u2))
1389 				match = 1;
1390 			if (match)
1391 				break;
1392 		}
1393 		if (!match) {
1394 			if (priv_check_cred(u1, PRIV_SEEOTHERGIDS) != 0)
1395 				return (ESRCH);
1396 		}
1397 	}
1398 	return (0);
1399 }
1400 
1401 /*
1402  * 'see_jail_proc' determines whether or not visibility of processes and
1403  * sockets with credentials holding different jail ids is possible using a
1404  * variety of system MIBs.
1405  *
1406  * XXX: data declarations should be together near the beginning of the file.
1407  */
1408 
1409 static int	see_jail_proc = 1;
1410 SYSCTL_INT(_security_bsd, OID_AUTO, see_jail_proc, CTLFLAG_RW,
1411     &see_jail_proc, 0,
1412     "Unprivileged processes may see subjects/objects with different jail ids");
1413 
1414 /*-
1415  * Determine if u1 "can see" the subject specified by u2, according to the
1416  * 'see_jail_proc' policy.
1417  * Returns: 0 for permitted, ESRCH otherwise
1418  * Locks: none
1419  * References: *u1 and *u2 must not change during the call
1420  *             u1 may equal u2, in which case only one reference is required
1421  */
1422 int
1423 cr_canseejailproc(struct ucred *u1, struct ucred *u2)
1424 {
1425 	if (u1->cr_uid == 0)
1426 		return (0);
1427 	return (!see_jail_proc && u1->cr_prison != u2->cr_prison ? ESRCH : 0);
1428 }
1429 
1430 /*-
1431  * Determine if u1 "can see" the subject specified by u2.
1432  * Returns: 0 for permitted, an errno value otherwise
1433  * Locks: none
1434  * References: *u1 and *u2 must not change during the call
1435  *             u1 may equal u2, in which case only one reference is required
1436  */
1437 int
1438 cr_cansee(struct ucred *u1, struct ucred *u2)
1439 {
1440 	int error;
1441 
1442 	if ((error = prison_check(u1, u2)))
1443 		return (error);
1444 #ifdef MAC
1445 	if ((error = mac_cred_check_visible(u1, u2)))
1446 		return (error);
1447 #endif
1448 	if ((error = cr_canseeotheruids(u1, u2)))
1449 		return (error);
1450 	if ((error = cr_canseeothergids(u1, u2)))
1451 		return (error);
1452 	if ((error = cr_canseejailproc(u1, u2)))
1453 		return (error);
1454 	return (0);
1455 }
1456 
1457 /*-
1458  * Determine if td "can see" the subject specified by p.
1459  * Returns: 0 for permitted, an errno value otherwise
1460  * Locks: Sufficient locks to protect p->p_ucred must be held.  td really
1461  *        should be curthread.
1462  * References: td and p must be valid for the lifetime of the call
1463  */
1464 int
1465 p_cansee(struct thread *td, struct proc *p)
1466 {
1467 
1468 	/* Wrap cr_cansee() for all functionality. */
1469 	KASSERT(td == curthread, ("%s: td not curthread", __func__));
1470 	PROC_LOCK_ASSERT(p, MA_OWNED);
1471 	return (cr_cansee(td->td_ucred, p->p_ucred));
1472 }
1473 
1474 /*
1475  * 'conservative_signals' prevents the delivery of a broad class of
1476  * signals by unprivileged processes to processes that have changed their
1477  * credentials since the last invocation of execve().  This can prevent
1478  * the leakage of cached information or retained privileges as a result
1479  * of a common class of signal-related vulnerabilities.  However, this
1480  * may interfere with some applications that expect to be able to
1481  * deliver these signals to peer processes after having given up
1482  * privilege.
1483  */
1484 static int	conservative_signals = 1;
1485 SYSCTL_INT(_security_bsd, OID_AUTO, conservative_signals, CTLFLAG_RW,
1486     &conservative_signals, 0, "Unprivileged processes prevented from "
1487     "sending certain signals to processes whose credentials have changed");
1488 /*-
1489  * Determine whether cred may deliver the specified signal to proc.
1490  * Returns: 0 for permitted, an errno value otherwise.
1491  * Locks: A lock must be held for proc.
1492  * References: cred and proc must be valid for the lifetime of the call.
1493  */
1494 int
1495 cr_cansignal(struct ucred *cred, struct proc *proc, int signum)
1496 {
1497 	int error;
1498 
1499 	PROC_LOCK_ASSERT(proc, MA_OWNED);
1500 	/*
1501 	 * Jail semantics limit the scope of signalling to proc in the
1502 	 * same jail as cred, if cred is in jail.
1503 	 */
1504 	error = prison_check(cred, proc->p_ucred);
1505 	if (error)
1506 		return (error);
1507 #ifdef MAC
1508 	if ((error = mac_proc_check_signal(cred, proc, signum)))
1509 		return (error);
1510 #endif
1511 	if ((error = cr_canseeotheruids(cred, proc->p_ucred)))
1512 		return (error);
1513 	if ((error = cr_canseeothergids(cred, proc->p_ucred)))
1514 		return (error);
1515 
1516 	/*
1517 	 * UNIX signal semantics depend on the status of the P_SUGID
1518 	 * bit on the target process.  If the bit is set, then additional
1519 	 * restrictions are placed on the set of available signals.
1520 	 */
1521 	if (conservative_signals && (proc->p_flag & P_SUGID)) {
1522 		switch (signum) {
1523 		case 0:
1524 		case SIGKILL:
1525 		case SIGINT:
1526 		case SIGTERM:
1527 		case SIGALRM:
1528 		case SIGSTOP:
1529 		case SIGTTIN:
1530 		case SIGTTOU:
1531 		case SIGTSTP:
1532 		case SIGHUP:
1533 		case SIGUSR1:
1534 		case SIGUSR2:
1535 			/*
1536 			 * Generally, permit job and terminal control
1537 			 * signals.
1538 			 */
1539 			break;
1540 		default:
1541 			/* Not permitted without privilege. */
1542 			error = priv_check_cred(cred, PRIV_SIGNAL_SUGID);
1543 			if (error)
1544 				return (error);
1545 		}
1546 	}
1547 
1548 	/*
1549 	 * Generally, the target credential's ruid or svuid must match the
1550 	 * subject credential's ruid or euid.
1551 	 */
1552 	if (cred->cr_ruid != proc->p_ucred->cr_ruid &&
1553 	    cred->cr_ruid != proc->p_ucred->cr_svuid &&
1554 	    cred->cr_uid != proc->p_ucred->cr_ruid &&
1555 	    cred->cr_uid != proc->p_ucred->cr_svuid) {
1556 		error = priv_check_cred(cred, PRIV_SIGNAL_DIFFCRED);
1557 		if (error)
1558 			return (error);
1559 	}
1560 
1561 	return (0);
1562 }
1563 
1564 /*-
1565  * Determine whether td may deliver the specified signal to p.
1566  * Returns: 0 for permitted, an errno value otherwise
1567  * Locks: Sufficient locks to protect various components of td and p
1568  *        must be held.  td must be curthread, and a lock must be
1569  *        held for p.
1570  * References: td and p must be valid for the lifetime of the call
1571  */
1572 int
1573 p_cansignal(struct thread *td, struct proc *p, int signum)
1574 {
1575 
1576 	KASSERT(td == curthread, ("%s: td not curthread", __func__));
1577 	PROC_LOCK_ASSERT(p, MA_OWNED);
1578 	if (td->td_proc == p)
1579 		return (0);
1580 
1581 	/*
1582 	 * UNIX signalling semantics require that processes in the same
1583 	 * session always be able to deliver SIGCONT to one another,
1584 	 * overriding the remaining protections.
1585 	 */
1586 	/* XXX: This will require an additional lock of some sort. */
1587 	if (signum == SIGCONT && td->td_proc->p_session == p->p_session)
1588 		return (0);
1589 	/*
1590 	 * Some compat layers use SIGTHR and higher signals for
1591 	 * communication between different kernel threads of the same
1592 	 * process, so that they expect that it's always possible to
1593 	 * deliver them, even for suid applications where cr_cansignal() can
1594 	 * deny such ability for security consideration.  It should be
1595 	 * pretty safe to do since the only way to create two processes
1596 	 * with the same p_leader is via rfork(2).
1597 	 */
1598 	if (td->td_proc->p_leader != NULL && signum >= SIGTHR &&
1599 	    signum < SIGTHR + 4 && td->td_proc->p_leader == p->p_leader)
1600 		return (0);
1601 
1602 	return (cr_cansignal(td->td_ucred, p, signum));
1603 }
1604 
1605 /*-
1606  * Determine whether td may reschedule p.
1607  * Returns: 0 for permitted, an errno value otherwise
1608  * Locks: Sufficient locks to protect various components of td and p
1609  *        must be held.  td must be curthread, and a lock must
1610  *        be held for p.
1611  * References: td and p must be valid for the lifetime of the call
1612  */
1613 int
1614 p_cansched(struct thread *td, struct proc *p)
1615 {
1616 	int error;
1617 
1618 	KASSERT(td == curthread, ("%s: td not curthread", __func__));
1619 	PROC_LOCK_ASSERT(p, MA_OWNED);
1620 	if (td->td_proc == p)
1621 		return (0);
1622 	if ((error = prison_check(td->td_ucred, p->p_ucred)))
1623 		return (error);
1624 #ifdef MAC
1625 	if ((error = mac_proc_check_sched(td->td_ucred, p)))
1626 		return (error);
1627 #endif
1628 	if ((error = cr_canseeotheruids(td->td_ucred, p->p_ucred)))
1629 		return (error);
1630 	if ((error = cr_canseeothergids(td->td_ucred, p->p_ucred)))
1631 		return (error);
1632 	if (td->td_ucred->cr_ruid != p->p_ucred->cr_ruid &&
1633 	    td->td_ucred->cr_uid != p->p_ucred->cr_ruid) {
1634 		error = priv_check(td, PRIV_SCHED_DIFFCRED);
1635 		if (error)
1636 			return (error);
1637 	}
1638 	return (0);
1639 }
1640 
1641 /*
1642  * Handle getting or setting the prison's unprivileged_proc_debug
1643  * value.
1644  */
1645 static int
1646 sysctl_unprivileged_proc_debug(SYSCTL_HANDLER_ARGS)
1647 {
1648 	struct prison *pr;
1649 	int error, val;
1650 
1651 	val = prison_allow(req->td->td_ucred, PR_ALLOW_UNPRIV_DEBUG) != 0;
1652 	error = sysctl_handle_int(oidp, &val, 0, req);
1653 	if (error != 0 || req->newptr == NULL)
1654 		return (error);
1655 	pr = req->td->td_ucred->cr_prison;
1656 	mtx_lock(&pr->pr_mtx);
1657 	switch (val) {
1658 	case 0:
1659 		pr->pr_allow &= ~(PR_ALLOW_UNPRIV_DEBUG);
1660 		break;
1661 	case 1:
1662 		pr->pr_allow |= PR_ALLOW_UNPRIV_DEBUG;
1663 		break;
1664 	default:
1665 		error = EINVAL;
1666 	}
1667 	mtx_unlock(&pr->pr_mtx);
1668 
1669 	return (error);
1670 }
1671 
1672 /*
1673  * The 'unprivileged_proc_debug' flag may be used to disable a variety of
1674  * unprivileged inter-process debugging services, including some procfs
1675  * functionality, ptrace(), and ktrace().  In the past, inter-process
1676  * debugging has been involved in a variety of security problems, and sites
1677  * not requiring the service might choose to disable it when hardening
1678  * systems.
1679  */
1680 SYSCTL_PROC(_security_bsd, OID_AUTO, unprivileged_proc_debug,
1681     CTLTYPE_INT | CTLFLAG_RW | CTLFLAG_PRISON | CTLFLAG_SECURE, 0, 0,
1682     sysctl_unprivileged_proc_debug, "I",
1683     "Unprivileged processes may use process debugging facilities");
1684 
1685 /*-
1686  * Determine whether td may debug p.
1687  * Returns: 0 for permitted, an errno value otherwise
1688  * Locks: Sufficient locks to protect various components of td and p
1689  *        must be held.  td must be curthread, and a lock must
1690  *        be held for p.
1691  * References: td and p must be valid for the lifetime of the call
1692  */
1693 int
1694 p_candebug(struct thread *td, struct proc *p)
1695 {
1696 	int credentialchanged, error, grpsubset, i, uidsubset;
1697 
1698 	KASSERT(td == curthread, ("%s: td not curthread", __func__));
1699 	PROC_LOCK_ASSERT(p, MA_OWNED);
1700 	if ((error = priv_check(td, PRIV_DEBUG_UNPRIV)))
1701 		return (error);
1702 	if (td->td_proc == p)
1703 		return (0);
1704 	if ((error = prison_check(td->td_ucred, p->p_ucred)))
1705 		return (error);
1706 #ifdef MAC
1707 	if ((error = mac_proc_check_debug(td->td_ucred, p)))
1708 		return (error);
1709 #endif
1710 	if ((error = cr_canseeotheruids(td->td_ucred, p->p_ucred)))
1711 		return (error);
1712 	if ((error = cr_canseeothergids(td->td_ucred, p->p_ucred)))
1713 		return (error);
1714 
1715 	/*
1716 	 * Is p's group set a subset of td's effective group set?  This
1717 	 * includes p's egid, group access list, rgid, and svgid.
1718 	 */
1719 	grpsubset = 1;
1720 	for (i = 0; i < p->p_ucred->cr_ngroups; i++) {
1721 		if (!groupmember(p->p_ucred->cr_groups[i], td->td_ucred)) {
1722 			grpsubset = 0;
1723 			break;
1724 		}
1725 	}
1726 	grpsubset = grpsubset &&
1727 	    groupmember(p->p_ucred->cr_rgid, td->td_ucred) &&
1728 	    groupmember(p->p_ucred->cr_svgid, td->td_ucred);
1729 
1730 	/*
1731 	 * Are the uids present in p's credential equal to td's
1732 	 * effective uid?  This includes p's euid, svuid, and ruid.
1733 	 */
1734 	uidsubset = (td->td_ucred->cr_uid == p->p_ucred->cr_uid &&
1735 	    td->td_ucred->cr_uid == p->p_ucred->cr_svuid &&
1736 	    td->td_ucred->cr_uid == p->p_ucred->cr_ruid);
1737 
1738 	/*
1739 	 * Has the credential of the process changed since the last exec()?
1740 	 */
1741 	credentialchanged = (p->p_flag & P_SUGID);
1742 
1743 	/*
1744 	 * If p's gids aren't a subset, or the uids aren't a subset,
1745 	 * or the credential has changed, require appropriate privilege
1746 	 * for td to debug p.
1747 	 */
1748 	if (!grpsubset || !uidsubset) {
1749 		error = priv_check(td, PRIV_DEBUG_DIFFCRED);
1750 		if (error)
1751 			return (error);
1752 	}
1753 
1754 	if (credentialchanged) {
1755 		error = priv_check(td, PRIV_DEBUG_SUGID);
1756 		if (error)
1757 			return (error);
1758 	}
1759 
1760 	/* Can't trace init when securelevel > 0. */
1761 	if (p == initproc) {
1762 		error = securelevel_gt(td->td_ucred, 0);
1763 		if (error)
1764 			return (error);
1765 	}
1766 
1767 	/*
1768 	 * Can't trace a process that's currently exec'ing.
1769 	 *
1770 	 * XXX: Note, this is not a security policy decision, it's a
1771 	 * basic correctness/functionality decision.  Therefore, this check
1772 	 * should be moved to the caller's of p_candebug().
1773 	 */
1774 	if ((p->p_flag & P_INEXEC) != 0)
1775 		return (EBUSY);
1776 
1777 	/* Denied explicitely */
1778 	if ((p->p_flag2 & P2_NOTRACE) != 0) {
1779 		error = priv_check(td, PRIV_DEBUG_DENIED);
1780 		if (error != 0)
1781 			return (error);
1782 	}
1783 
1784 	return (0);
1785 }
1786 
1787 /*-
1788  * Determine whether the subject represented by cred can "see" a socket.
1789  * Returns: 0 for permitted, ENOENT otherwise.
1790  */
1791 int
1792 cr_canseesocket(struct ucred *cred, struct socket *so)
1793 {
1794 	int error;
1795 
1796 	error = prison_check(cred, so->so_cred);
1797 	if (error)
1798 		return (ENOENT);
1799 #ifdef MAC
1800 	error = mac_socket_check_visible(cred, so);
1801 	if (error)
1802 		return (error);
1803 #endif
1804 	if (cr_canseeotheruids(cred, so->so_cred))
1805 		return (ENOENT);
1806 	if (cr_canseeothergids(cred, so->so_cred))
1807 		return (ENOENT);
1808 
1809 	return (0);
1810 }
1811 
1812 /*-
1813  * Determine whether td can wait for the exit of p.
1814  * Returns: 0 for permitted, an errno value otherwise
1815  * Locks: Sufficient locks to protect various components of td and p
1816  *        must be held.  td must be curthread, and a lock must
1817  *        be held for p.
1818  * References: td and p must be valid for the lifetime of the call
1819 
1820  */
1821 int
1822 p_canwait(struct thread *td, struct proc *p)
1823 {
1824 	int error;
1825 
1826 	KASSERT(td == curthread, ("%s: td not curthread", __func__));
1827 	PROC_LOCK_ASSERT(p, MA_OWNED);
1828 	if ((error = prison_check(td->td_ucred, p->p_ucred)))
1829 		return (error);
1830 #ifdef MAC
1831 	if ((error = mac_proc_check_wait(td->td_ucred, p)))
1832 		return (error);
1833 #endif
1834 #if 0
1835 	/* XXXMAC: This could have odd effects on some shells. */
1836 	if ((error = cr_canseeotheruids(td->td_ucred, p->p_ucred)))
1837 		return (error);
1838 #endif
1839 
1840 	return (0);
1841 }
1842 
1843 /*
1844  * Allocate a zeroed cred structure.
1845  */
1846 struct ucred *
1847 crget(void)
1848 {
1849 	struct ucred *cr;
1850 
1851 	cr = malloc(sizeof(*cr), M_CRED, M_WAITOK | M_ZERO);
1852 	refcount_init(&cr->cr_ref, 1);
1853 #ifdef AUDIT
1854 	audit_cred_init(cr);
1855 #endif
1856 #ifdef MAC
1857 	mac_cred_init(cr);
1858 #endif
1859 	cr->cr_groups = cr->cr_smallgroups;
1860 	cr->cr_agroups =
1861 	    sizeof(cr->cr_smallgroups) / sizeof(cr->cr_smallgroups[0]);
1862 	return (cr);
1863 }
1864 
1865 /*
1866  * Claim another reference to a ucred structure.
1867  */
1868 struct ucred *
1869 crhold(struct ucred *cr)
1870 {
1871 
1872 	refcount_acquire(&cr->cr_ref);
1873 	return (cr);
1874 }
1875 
1876 /*
1877  * Free a cred structure.  Throws away space when ref count gets to 0.
1878  */
1879 void
1880 crfree(struct ucred *cr)
1881 {
1882 
1883 	KASSERT(cr->cr_ref > 0, ("bad ucred refcount: %d", cr->cr_ref));
1884 	KASSERT(cr->cr_ref != 0xdeadc0de, ("dangling reference to ucred"));
1885 	if (refcount_release(&cr->cr_ref)) {
1886 		/*
1887 		 * Some callers of crget(), such as nfs_statfs(),
1888 		 * allocate a temporary credential, but don't
1889 		 * allocate a uidinfo structure.
1890 		 */
1891 		if (cr->cr_uidinfo != NULL)
1892 			uifree(cr->cr_uidinfo);
1893 		if (cr->cr_ruidinfo != NULL)
1894 			uifree(cr->cr_ruidinfo);
1895 		/*
1896 		 * Free a prison, if any.
1897 		 */
1898 		if (cr->cr_prison != NULL)
1899 			prison_free(cr->cr_prison);
1900 		if (cr->cr_loginclass != NULL)
1901 			loginclass_free(cr->cr_loginclass);
1902 #ifdef AUDIT
1903 		audit_cred_destroy(cr);
1904 #endif
1905 #ifdef MAC
1906 		mac_cred_destroy(cr);
1907 #endif
1908 		if (cr->cr_groups != cr->cr_smallgroups)
1909 			free(cr->cr_groups, M_CRED);
1910 		free(cr, M_CRED);
1911 	}
1912 }
1913 
1914 /*
1915  * Copy a ucred's contents from a template.  Does not block.
1916  */
1917 void
1918 crcopy(struct ucred *dest, struct ucred *src)
1919 {
1920 
1921 	KASSERT(dest->cr_ref == 1, ("crcopy of shared ucred"));
1922 	bcopy(&src->cr_startcopy, &dest->cr_startcopy,
1923 	    (unsigned)((caddr_t)&src->cr_endcopy -
1924 		(caddr_t)&src->cr_startcopy));
1925 	crsetgroups(dest, src->cr_ngroups, src->cr_groups);
1926 	uihold(dest->cr_uidinfo);
1927 	uihold(dest->cr_ruidinfo);
1928 	prison_hold(dest->cr_prison);
1929 	loginclass_hold(dest->cr_loginclass);
1930 #ifdef AUDIT
1931 	audit_cred_copy(src, dest);
1932 #endif
1933 #ifdef MAC
1934 	mac_cred_copy(src, dest);
1935 #endif
1936 }
1937 
1938 /*
1939  * Dup cred struct to a new held one.
1940  */
1941 struct ucred *
1942 crdup(struct ucred *cr)
1943 {
1944 	struct ucred *newcr;
1945 
1946 	newcr = crget();
1947 	crcopy(newcr, cr);
1948 	return (newcr);
1949 }
1950 
1951 /*
1952  * Fill in a struct xucred based on a struct ucred.
1953  */
1954 void
1955 cru2x(struct ucred *cr, struct xucred *xcr)
1956 {
1957 	int ngroups;
1958 
1959 	bzero(xcr, sizeof(*xcr));
1960 	xcr->cr_version = XUCRED_VERSION;
1961 	xcr->cr_uid = cr->cr_uid;
1962 
1963 	ngroups = MIN(cr->cr_ngroups, XU_NGROUPS);
1964 	xcr->cr_ngroups = ngroups;
1965 	bcopy(cr->cr_groups, xcr->cr_groups,
1966 	    ngroups * sizeof(*cr->cr_groups));
1967 }
1968 
1969 void
1970 cru2xt(struct thread *td, struct xucred *xcr)
1971 {
1972 
1973 	cru2x(td->td_ucred, xcr);
1974 	xcr->cr_pid = td->td_proc->p_pid;
1975 }
1976 
1977 /*
1978  * Set initial process credentials.
1979  * Callers are responsible for providing the reference for provided credentials.
1980  */
1981 void
1982 proc_set_cred_init(struct proc *p, struct ucred *newcred)
1983 {
1984 
1985 	p->p_ucred = newcred;
1986 }
1987 
1988 /*
1989  * Change process credentials.
1990  * Callers are responsible for providing the reference for passed credentials
1991  * and for freeing old ones.
1992  *
1993  * Process has to be locked except when it does not have credentials (as it
1994  * should not be visible just yet) or when newcred is NULL (as this can be
1995  * only used when the process is about to be freed, at which point it should
1996  * not be visible anymore).
1997  */
1998 void
1999 proc_set_cred(struct proc *p, struct ucred *newcred)
2000 {
2001 
2002 	MPASS(p->p_ucred != NULL);
2003 	if (newcred == NULL)
2004 		MPASS(p->p_state == PRS_ZOMBIE);
2005 	else
2006 		PROC_LOCK_ASSERT(p, MA_OWNED);
2007 
2008 	p->p_ucred = newcred;
2009 	if (newcred != NULL)
2010 		PROC_UPDATE_COW(p);
2011 }
2012 
2013 struct ucred *
2014 crcopysafe(struct proc *p, struct ucred *cr)
2015 {
2016 	struct ucred *oldcred;
2017 	int groups;
2018 
2019 	PROC_LOCK_ASSERT(p, MA_OWNED);
2020 
2021 	oldcred = p->p_ucred;
2022 	while (cr->cr_agroups < oldcred->cr_agroups) {
2023 		groups = oldcred->cr_agroups;
2024 		PROC_UNLOCK(p);
2025 		crextend(cr, groups);
2026 		PROC_LOCK(p);
2027 		oldcred = p->p_ucred;
2028 	}
2029 	crcopy(cr, oldcred);
2030 
2031 	return (oldcred);
2032 }
2033 
2034 /*
2035  * Extend the passed in credential to hold n items.
2036  */
2037 void
2038 crextend(struct ucred *cr, int n)
2039 {
2040 	int cnt;
2041 
2042 	/* Truncate? */
2043 	if (n <= cr->cr_agroups)
2044 		return;
2045 
2046 	/*
2047 	 * We extend by 2 each time since we're using a power of two
2048 	 * allocator until we need enough groups to fill a page.
2049 	 * Once we're allocating multiple pages, only allocate as many
2050 	 * as we actually need.  The case of processes needing a
2051 	 * non-power of two number of pages seems more likely than
2052 	 * a real world process that adds thousands of groups one at a
2053 	 * time.
2054 	 */
2055 	if ( n < PAGE_SIZE / sizeof(gid_t) ) {
2056 		if (cr->cr_agroups == 0)
2057 			cnt = MAX(1, MINALLOCSIZE / sizeof(gid_t));
2058 		else
2059 			cnt = cr->cr_agroups * 2;
2060 
2061 		while (cnt < n)
2062 			cnt *= 2;
2063 	} else
2064 		cnt = roundup2(n, PAGE_SIZE / sizeof(gid_t));
2065 
2066 	/* Free the old array. */
2067 	if (cr->cr_groups != cr->cr_smallgroups)
2068 		free(cr->cr_groups, M_CRED);
2069 
2070 	cr->cr_groups = malloc(cnt * sizeof(gid_t), M_CRED, M_WAITOK | M_ZERO);
2071 	cr->cr_agroups = cnt;
2072 }
2073 
2074 /*
2075  * Copy groups in to a credential, preserving any necessary invariants.
2076  * Currently this includes the sorting of all supplemental gids.
2077  * crextend() must have been called before hand to ensure sufficient
2078  * space is available.
2079  */
2080 static void
2081 crsetgroups_locked(struct ucred *cr, int ngrp, gid_t *groups)
2082 {
2083 	int i;
2084 	int j;
2085 	gid_t g;
2086 
2087 	KASSERT(cr->cr_agroups >= ngrp, ("cr_ngroups is too small"));
2088 
2089 	bcopy(groups, cr->cr_groups, ngrp * sizeof(gid_t));
2090 	cr->cr_ngroups = ngrp;
2091 
2092 	/*
2093 	 * Sort all groups except cr_groups[0] to allow groupmember to
2094 	 * perform a binary search.
2095 	 *
2096 	 * XXX: If large numbers of groups become common this should
2097 	 * be replaced with shell sort like linux uses or possibly
2098 	 * heap sort.
2099 	 */
2100 	for (i = 2; i < ngrp; i++) {
2101 		g = cr->cr_groups[i];
2102 		for (j = i-1; j >= 1 && g < cr->cr_groups[j]; j--)
2103 			cr->cr_groups[j + 1] = cr->cr_groups[j];
2104 		cr->cr_groups[j + 1] = g;
2105 	}
2106 }
2107 
2108 /*
2109  * Copy groups in to a credential after expanding it if required.
2110  * Truncate the list to (ngroups_max + 1) if it is too large.
2111  */
2112 void
2113 crsetgroups(struct ucred *cr, int ngrp, gid_t *groups)
2114 {
2115 
2116 	if (ngrp > ngroups_max + 1)
2117 		ngrp = ngroups_max + 1;
2118 
2119 	crextend(cr, ngrp);
2120 	crsetgroups_locked(cr, ngrp, groups);
2121 }
2122 
2123 /*
2124  * Get login name, if available.
2125  */
2126 #ifndef _SYS_SYSPROTO_H_
2127 struct getlogin_args {
2128 	char	*namebuf;
2129 	u_int	namelen;
2130 };
2131 #endif
2132 /* ARGSUSED */
2133 int
2134 sys_getlogin(struct thread *td, struct getlogin_args *uap)
2135 {
2136 	char login[MAXLOGNAME];
2137 	struct proc *p = td->td_proc;
2138 	size_t len;
2139 
2140 	if (uap->namelen > MAXLOGNAME)
2141 		uap->namelen = MAXLOGNAME;
2142 	PROC_LOCK(p);
2143 	SESS_LOCK(p->p_session);
2144 	len = strlcpy(login, p->p_session->s_login, uap->namelen) + 1;
2145 	SESS_UNLOCK(p->p_session);
2146 	PROC_UNLOCK(p);
2147 	if (len > uap->namelen)
2148 		return (ERANGE);
2149 	return (copyout(login, uap->namebuf, len));
2150 }
2151 
2152 /*
2153  * Set login name.
2154  */
2155 #ifndef _SYS_SYSPROTO_H_
2156 struct setlogin_args {
2157 	char	*namebuf;
2158 };
2159 #endif
2160 /* ARGSUSED */
2161 int
2162 sys_setlogin(struct thread *td, struct setlogin_args *uap)
2163 {
2164 	struct proc *p = td->td_proc;
2165 	int error;
2166 	char logintmp[MAXLOGNAME];
2167 
2168 	CTASSERT(sizeof(p->p_session->s_login) >= sizeof(logintmp));
2169 
2170 	error = priv_check(td, PRIV_PROC_SETLOGIN);
2171 	if (error)
2172 		return (error);
2173 	error = copyinstr(uap->namebuf, logintmp, sizeof(logintmp), NULL);
2174 	if (error != 0) {
2175 		if (error == ENAMETOOLONG)
2176 			error = EINVAL;
2177 		return (error);
2178 	}
2179 	AUDIT_ARG_LOGIN(logintmp);
2180 	PROC_LOCK(p);
2181 	SESS_LOCK(p->p_session);
2182 	strcpy(p->p_session->s_login, logintmp);
2183 	SESS_UNLOCK(p->p_session);
2184 	PROC_UNLOCK(p);
2185 	return (0);
2186 }
2187 
2188 void
2189 setsugid(struct proc *p)
2190 {
2191 
2192 	PROC_LOCK_ASSERT(p, MA_OWNED);
2193 	p->p_flag |= P_SUGID;
2194 	if (!(p->p_pfsflags & PF_ISUGID))
2195 		p->p_stops = 0;
2196 }
2197 
2198 /*-
2199  * Change a process's effective uid.
2200  * Side effects: newcred->cr_uid and newcred->cr_uidinfo will be modified.
2201  * References: newcred must be an exclusive credential reference for the
2202  *             duration of the call.
2203  */
2204 void
2205 change_euid(struct ucred *newcred, struct uidinfo *euip)
2206 {
2207 
2208 	newcred->cr_uid = euip->ui_uid;
2209 	uihold(euip);
2210 	uifree(newcred->cr_uidinfo);
2211 	newcred->cr_uidinfo = euip;
2212 }
2213 
2214 /*-
2215  * Change a process's effective gid.
2216  * Side effects: newcred->cr_gid will be modified.
2217  * References: newcred must be an exclusive credential reference for the
2218  *             duration of the call.
2219  */
2220 void
2221 change_egid(struct ucred *newcred, gid_t egid)
2222 {
2223 
2224 	newcred->cr_groups[0] = egid;
2225 }
2226 
2227 /*-
2228  * Change a process's real uid.
2229  * Side effects: newcred->cr_ruid will be updated, newcred->cr_ruidinfo
2230  *               will be updated, and the old and new cr_ruidinfo proc
2231  *               counts will be updated.
2232  * References: newcred must be an exclusive credential reference for the
2233  *             duration of the call.
2234  */
2235 void
2236 change_ruid(struct ucred *newcred, struct uidinfo *ruip)
2237 {
2238 
2239 	(void)chgproccnt(newcred->cr_ruidinfo, -1, 0);
2240 	newcred->cr_ruid = ruip->ui_uid;
2241 	uihold(ruip);
2242 	uifree(newcred->cr_ruidinfo);
2243 	newcred->cr_ruidinfo = ruip;
2244 	(void)chgproccnt(newcred->cr_ruidinfo, 1, 0);
2245 }
2246 
2247 /*-
2248  * Change a process's real gid.
2249  * Side effects: newcred->cr_rgid will be updated.
2250  * References: newcred must be an exclusive credential reference for the
2251  *             duration of the call.
2252  */
2253 void
2254 change_rgid(struct ucred *newcred, gid_t rgid)
2255 {
2256 
2257 	newcred->cr_rgid = rgid;
2258 }
2259 
2260 /*-
2261  * Change a process's saved uid.
2262  * Side effects: newcred->cr_svuid will be updated.
2263  * References: newcred must be an exclusive credential reference for the
2264  *             duration of the call.
2265  */
2266 void
2267 change_svuid(struct ucred *newcred, uid_t svuid)
2268 {
2269 
2270 	newcred->cr_svuid = svuid;
2271 }
2272 
2273 /*-
2274  * Change a process's saved gid.
2275  * Side effects: newcred->cr_svgid will be updated.
2276  * References: newcred must be an exclusive credential reference for the
2277  *             duration of the call.
2278  */
2279 void
2280 change_svgid(struct ucred *newcred, gid_t svgid)
2281 {
2282 
2283 	newcred->cr_svgid = svgid;
2284 }
2285