sys/kern/kern_prot.c

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