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