/**
* Returns non-zero if the caller's process started as set-uid or
* set-gid (and therefore the environment cannot be trusted).
*
* As much as possible this implements the same functionality and
* semantics as OpenBSD's issetugid() (as opposed to FreeBSD's).
*
* Preserves errno.
*
* @return Non-zero if the environment is not trusted.
*/
ROKEN_LIB_FUNCTION int ROKEN_LIB_CALL
issuid(void)
{
#ifdef WIN32
return 0; /* No set-id programs or anything like it on Windows */
#else
/*
* We want to use issetugid(), but issetugid() is not the same on
* all OSes.
*
* On OpenBSD (where issetugid() originated), Illumos derivatives,
* and Solaris, issetugid() returns true IFF the program exec()ed
* was set-uid or set-gid.
*
* FreeBSD departed from OpenBSD's issetugid() semantics, and other
* BSDs (NetBSD, DragonFly) and OS X adopted FreeBSD's.
*
* FreeBSDs' issetugid() returns true if the program exec()ed was
* set-uid or set-gid, or if the process has switched UIDs/GIDs or
* otherwise changed privileges or is a descendant of such a process
* and has not exec()ed since.
*
* The FreeBSD/NetBSD issetugid() does us no good because we _want_
* to trust the environment when the process started life as
* non-set-uid root (or otherwise privileged). There's nothing
* about _dropping_ privileges (without having gained them first)
* that taints the environment. It's not like calling system(),
* say, might change the environment of the caller.
*
* We want OpenBSD's issetugid() semantics.
*
* Linux, meanwhile, has no issetugid() (at least glibc doesn't
* anyways) but has an equivalent: getauxval(AT_SECURE).
*
* To be really specific: we want getauxval(AT_SECURE) semantics
* because there may be ways in which a process might gain privilege
* at exec time other than by exec'ing a set-id program.
*
* Where we use getauxval(), we really use our getauxval(), the one
* that isn't broken the way glibc's used to be. Our getauxval()
* also works on more systems than actually provide one.
*
* In order to avoid FreeBSD issetugid() semantics, where available,
* we use the ELF auxilliary vector to implement OpenBSD semantics
* before finally falling back on issetugid().
*
* All of this is as of April 2017, and might become stale in the
* future.
*/
static int we_are_suid = -1; /* Memoize; -1 == dunno */
int save_errno = errno;
#if defined(AT_EUID) && defined(AT_UID) && defined(AT_EGID) && defined(AT_GID)
int seen = 0;
#endif
if (we_are_suid >= 0 && !rk_injected_auxv)
return we_are_suid;
#ifdef AT_SECURE
errno = 0;
if (rk_getauxval(AT_SECURE) != 0) {
errno = save_errno;
return we_are_suid = 1;
} else if (errno == 0) {
errno = save_errno;
return we_are_suid = 0;
}
/* errno == ENOENT; AT_SECURE not found; fall through */
#endif
#if defined(AT_EUID) && defined(AT_UID) && defined(AT_EGID) && defined(AT_GID)
{
unsigned long euid;
unsigned long uid;
errno = 0;
euid = rk_getauxval(AT_EUID);
if (errno == 0)
seen |= 1;
errno = 0;
uid = rk_getauxval(AT_UID);
if (errno == 0)
seen |= 2;
if (euid != uid) {
errno = save_errno;
return we_are_suid = 1;
}
}
/* Check GIDs */
{
unsigned long egid;
unsigned long gid;
errno = 0;
egid = rk_getauxval(AT_EGID);
if (errno == 0)
seen |= 4;
errno = 0;
gid = rk_getauxval(AT_GID);
if (errno == 0)
seen |= 8;
if (egid != gid) {
errno = save_errno;
return we_are_suid = 1;
}
}
errno = save_errno;
if (seen == 15)
return we_are_suid = 0;
#endif
#if defined(HAVE_ISSETUGID)
/* If issetugid() == 0 then we're definitely OK then */
if (issetugid() == 0)
return we_are_suid = 0;
/* issetugid() == 1 might have been a false positive; fall through */
#endif /* USE_RK_GETAUXVAL */
#ifdef AT_EXECFN
/*
* There's an auxval by which to find the path of the program this
* process exec'ed.
*
* We can stat() it. If the program did a chroot() and the chroot
* has a program with the same path but not set-uid/set-gid, of
* course, we lose here. But a) that's a bit of a stretch, b)
* there's not much more we can do here.
*
* Also, this is technically a TOCTOU race, though for set-id
* programs this is exceedingly unlikely to be an actual TOCTOU
* race.
*/
{
unsigned long p = getauxval(AT_EXECPATH);
struct stat st;
if (p != 0 && *(const char *)p == '/' &&
stat((const char *)p, &st) == 0) {
if ((st.st_mode & S_ISUID) || (st.st_mode & S_ISGID)) {
errno = save_errno;
return we_are_suid = 1;
}
errno = save_errno;
return we_are_suid = 0;
}
}
/* Fall through */
#endif
#if defined(HAVE_ISSETUGID)
errno = save_errno;
return we_are_suid = 1;
#else
/*
* Paranoia: for extra safety we ought to default to returning 1.
*
* But who knows what that might break where users link statically
* (so no auxv), say.
*
* We'll check the actual real and effective IDs (as opposed to the
* ones at main() start time.
*
* For now we stick to returning zero by default. We've been rather
* heroic above trying to find out if we're suid, and we're running
* on a rather old or uncool OS if we've gotten here.
*/
#if defined(HAVE_GETRESUID)
/*
* If r/e/suid are all the same then chances are very good we did
* not start as set-uid. Though this could be a login program that
* started out as privileged and is calling Heimdal "as the user".
*
* Again, such a program would have to be statically linked to get
* here.
*/
{
uid_t r, e, s;
if (getresuid(&r, &e, &s) == 0) {
if (r != e || r != s) {
errno = save_errno;
return we_are_suid = 1;
}
}
}
#endif
#if defined(HAVE_GETRESGID)
{
gid_t r, e, s;
if (getresgid(&r, &e, &s) == 0) {
if (r != e || r != s) {
errno = save_errno;
return we_are_suid = 1;
}
}
}
#endif
#if defined(HAVE_GETRESUID) && defined(HAVE_GETRESGID)
errno = save_errno;
return we_are_suid = 0;
#else /* avoid compiler warnings about dead code */
#if defined(HAVE_GETUID) && defined(HAVE_GETEUID)
if (getuid() != geteuid())
return we_are_suid = 1;
#endif
#if defined(HAVE_GETGID) && defined(HAVE_GETEGID)
if (getgid() != getegid())
return we_are_suid = 1;
#endif
#endif /* !defined(HAVE_GETRESUID) || !defined(HAVE_GETRESGID) */
errno = save_errno;
return we_are_suid = 0;
#endif /* !defined(HAVE_ISSETUGID) */
#endif /* WIN32 */
}
/**
* Returns non-zero if the caller's process started as set-uid or
* set-gid (and therefore the environment cannot be trusted).
*
* @return Non-zero if the environment is not trusted.
*/
ROKEN_LIB_FUNCTION int ROKEN_LIB_CALL
issuid(void)
{
/*
* We want to use issetugid(), but issetugid() is not the same on
* all OSes.
*
* On Illumos derivatives, OpenBSD, and Solaris issetugid() returns
* true IFF the program exec()ed was set-uid or set-gid.
*
* On NetBSD and FreeBSD issetugid() returns true if the program
* exec()ed was set-uid or set-gid, or if the process has switched
* UIDs/GIDs or otherwise changed privileges or is a descendant of
* such a process and has not exec()ed since.
*
* What we want here is to know only if the program exec()ed was
* set-uid or set-gid, so we can decide whether to trust the
* enviroment variables. We don't care if this was a process that
* started as root and later changed UIDs/privs whatever: since it
* started out as privileged, it inherited an environment from a
* privileged pre-exec self, and so on, so the environment is
* trusted.
*
* Therefore the FreeBSD/NetBSD issetugid() does us no good.
*
* Linux, meanwhile, has no issetugid() (at least glibc doesn't
* anyways).
*
* Systems that support ELF put an "auxilliary vector" on the stack
* prior to starting the RTLD, and this vector includes (optionally)
* information about the process' EUID, RUID, EGID, RGID, and so on
* at the time of exec(), which we can use to construct proper
* issetugid() functionality.
*
* Where available, we use the ELF auxilliary vector as a fallback
* if issetugid() is not available.
*
* All of this is as of late March 2015, and might become stale in
* the future.
*/
#ifdef USE_RK_GETAUXVAL
/* If we have getauxval(), use that */
#if (defined(AT_EUID) && defined(AT_UID) || (defined(AT_EGID) && defined(AT_GID)))
int seen = 0;
#endif
#if defined(AT_EUID) && defined(AT_UID)
{
unsigned long euid;
unsigned long uid;
euid = rk_getauxval(AT_EUID);
if (errno == 0)
seen |= 1;
uid = rk_getauxval(AT_UID);
if (errno == 0)
seen |= 2;
if (euid != uid)
return 1;
}
#endif
#if defined(AT_EGID) && defined(AT_GID)
{
unsigned long egid;
unsigned long gid;
egid = rk_getauxval(AT_EGID);
if (errno == 0)
seen |= 4;
gid = rk_getauxval(AT_GID);
if (errno == 0)
seen |= 8;
if (egid != gid)
return 2;
}
#endif
#ifdef AT_SECURE
/* AT_SECURE is set if the program was set-id. */
if (rk_getauxval(AT_SECURE) != 0)
return 1;
#endif
#if (defined(AT_EUID) && defined(AT_UID) || (defined(AT_EGID) && defined(AT_GID)))
if (seen == 15)
return 0;
#endif
/* rk_getauxval() does set errno */
if (errno == 0)
return 0;
/*
* Fall through if we have getauxval() but we didn't have (or don't
* know if we don't have) the aux entries that we needed.
*/
#endif /* USE_RK_GETAUXVAL */
#if defined(HAVE_ISSETUGID)
/*
* If we have issetugid(), use it.
*
* We may lose on some BSDs. This manifests as, for example,
* gss_store_cred() not honoring KRB5CCNAME.
*/
return issetugid();
#endif /* USE_RK_GETAUXVAL */
/*
* Paranoia: for extra safety we ought to default to returning 1.
* But who knows what that might break where users link statically
* and use a.out, say. Also, on Windows we should always return 0.
*
* For now we stick to returning zero by default.
*/
#if defined(HAVE_GETUID) && defined(HAVE_GETEUID)
if (getuid() != geteuid())
return 1;
#endif
#if defined(HAVE_GETGID) && defined(HAVE_GETEGID)
if (getgid() != getegid())
return 2;
#endif
return 0;
}