/* * Sun RPC is a product of Sun Microsystems, Inc. and is provided for * unrestricted use provided that this legend is included on all tape * media and as a part of the software program in whole or part.  Users * may copy or modify Sun RPC without charge, but are not authorized * to license or distribute it to anyone else except as part of a product or * program developed by the user. * * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE. * * Sun RPC is provided with no support and without any obligation on the * part of Sun Microsystems, Inc. to assist in its use, correction, * modification or enhancement. * * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC * OR ANY PART THEREOF. * * In no event will Sun Microsystems, Inc. be liable for any lost revenue * or profits or other special, indirect and consequential damages, even if * Sun has been advised of the possibility of such damages. * * Sun Microsystems, Inc. * 2550 Garcia Avenue * Mountain View, California  94043 *//* * Copyright (C) 1984, Sun Microsystems, Inc. *//* * auth_unix.c, Implements UNIX style authentication parameters. * * The system is very weak.  The client uses no encryption for it's * credentials and only sends null verifiers.  The server sends backs * null verifiers or optionally a verifier that suggests a new short hand * for the credentials. */#define __FORCE_GLIBC#include <features.h>#include <limits.h>#include <stdio.h>#include <string.h>#include <unistd.h>#include <sys/param.h>#include <rpc/types.h>#include <rpc/xdr.h>#include <rpc/auth.h>#include <rpc/auth_unix.h>#ifdef USE_IN_LIBIO# include <wchar.h>#endif/* * Unix authenticator operations vector */static void authunix_nextverf (AUTH *);static bool_t authunix_marshal (AUTH *, XDR *);static bool_t authunix_validate (AUTH *, struct opaque_auth *);static bool_t authunix_refresh (AUTH *);static void authunix_destroy (AUTH *);static struct auth_ops auth_unix_ops = {  authunix_nextverf,  authunix_marshal,  authunix_validate,  authunix_refresh,  authunix_destroy};/* * This struct is pointed to by the ah_private field of an auth_handle. */struct audata {  struct opaque_auth au_origcred;	/* original credentials */  struct opaque_auth au_shcred;	/* short hand cred */  u_long au_shfaults;		/* short hand cache faults */  char au_marshed[MAX_AUTH_BYTES];  u_int au_mpos;		/* xdr pos at end of marshed */};#define	AUTH_PRIVATE(auth)	((struct audata *)auth->ah_private)static bool_t marshal_new_auth (AUTH *) internal_function;/* * Create a unix style authenticator. * Returns an auth handle with the given stuff in it. */AUTH *authunix_create (char *machname, uid_t uid, gid_t gid, int len,		 gid_t *aup_gids){  struct authunix_parms aup;  char mymem[MAX_AUTH_BYTES];  struct timeval now;  XDR xdrs;  AUTH *auth;  struct audata *au;  /*   * Allocate and set up auth handle   */  auth = (AUTH *) mem_alloc (sizeof (*auth));  au = (struct audata *) mem_alloc (sizeof (*au));  if (auth == NULL || au == NULL)    {no_memory:#ifdef USE_IN_LIBIO      if (_IO_fwide (stderr, 0) > 0)	(void) __fwprintf (stderr, L"%s",			   _("authunix_create: out of memory\n"));      else#endif	(void) fputs (_("authunix_create: out of memory\n"), stderr);      mem_free (auth, sizeof (*auth));      mem_free (au, sizeof (*au));      return NULL;    }  auth->ah_ops = &auth_unix_ops;  auth->ah_private = (caddr_t) au;  auth->ah_verf = au->au_shcred = _null_auth;  au->au_shfaults = 0;  /*   * fill in param struct from the given params   */  (void) gettimeofday (&now, (struct timezone *) 0);  aup.aup_time = now.tv_sec;  aup.aup_machname = machname;  aup.aup_uid = uid;  aup.aup_gid = gid;  aup.aup_len = (u_int) len;  aup.aup_gids = aup_gids;  /*   * Serialize the parameters into origcred   */  xdrmem_create (&xdrs, mymem, MAX_AUTH_BYTES, XDR_ENCODE);  if (!xdr_authunix_parms (&xdrs, &aup))    abort ();  au->au_origcred.oa_length = len = XDR_GETPOS (&xdrs);  au->au_origcred.oa_flavor = AUTH_UNIX;  au->au_origcred.oa_base = mem_alloc ((u_int) len);  if (au->au_origcred.oa_base == NULL)    goto no_memory;  memcpy(au->au_origcred.oa_base, mymem, (u_int) len);  /*   * set auth handle to reflect new cred.   */  auth->ah_cred = au->au_origcred;  marshal_new_auth (auth);  return auth;}/* * Returns an auth handle with parameters determined by doing lots of * syscalls. */AUTH *authunix_create_default (void){  int len;  char machname[MAX_MACHINE_NAME + 1];  uid_t uid;  gid_t gid;  int max_nr_groups = sysconf (_SC_NGROUPS_MAX);  gid_t gids[max_nr_groups];  if (gethostname (machname, MAX_MACHINE_NAME) == -1)    abort ();  machname[MAX_MACHINE_NAME] = 0;  uid = geteuid ();  gid = getegid ();  if ((len = getgroups (max_nr_groups, gids)) < 0)    abort ();  /* This braindamaged Sun code forces us here to truncate the     list of groups to NGRPS members since the code in     authuxprot.c transforms a fixed array.  Grrr.  */  return authunix_create (machname, uid, gid, MIN (NGRPS, len), gids);}/* * authunix operations */static voidauthunix_nextverf (AUTH *auth){  /* no action necessary */}static bool_tauthunix_marshal (AUTH *auth, XDR *xdrs){  struct audata *au = AUTH_PRIVATE (auth);  return XDR_PUTBYTES (xdrs, au->au_marshed, au->au_mpos);}static bool_tauthunix_validate (AUTH *auth, struct opaque_auth *verf){  struct audata *au;  XDR xdrs;  if (verf->oa_flavor == AUTH_SHORT)    {      au = AUTH_PRIVATE (auth);      xdrmem_create (&xdrs, verf->oa_base, verf->oa_length,		     XDR_DECODE);      if (au->au_shcred.oa_base != NULL)	{	  mem_free (au->au_shcred.oa_base,		    au->au_shcred.oa_length);	  au->au_shcred.oa_base = NULL;	}      if (xdr_opaque_auth (&xdrs, &au->au_shcred))	{	  auth->ah_cred = au->au_shcred;	}      else	{	  xdrs.x_op = XDR_FREE;	  (void) xdr_opaque_auth (&xdrs, &au->au_shcred);	  au->au_shcred.oa_base = NULL;	  auth->ah_cred = au->au_origcred;	}      marshal_new_auth (auth);    }  return TRUE;}static bool_tauthunix_refresh (AUTH *auth){  struct audata *au = AUTH_PRIVATE (auth);  struct authunix_parms aup;  struct timeval now;  XDR xdrs;  int stat;  if (auth->ah_cred.oa_base == au->au_origcred.oa_base)    {      /* there is no hope.  Punt */      return FALSE;    }  au->au_shfaults++;  /* first deserialize the creds back into a struct authunix_parms */  aup.aup_machname = NULL;  aup.aup_gids = (gid_t *) NULL;  xdrmem_create (&xdrs, au->au_origcred.oa_base,		 au->au_origcred.oa_length, XDR_DECODE);  stat = xdr_authunix_parms (&xdrs, &aup);  if (!stat)    goto done;  /* update the time and serialize in place */  (void) gettimeofday (&now, (struct timezone *) 0);  aup.aup_time = now.tv_sec;  xdrs.x_op = XDR_ENCODE;  XDR_SETPOS (&xdrs, 0);  stat = xdr_authunix_parms (&xdrs, &aup);  if (!stat)    goto done;  auth->ah_cred = au->au_origcred;  marshal_new_auth (auth);done:  /* free the struct authunix_parms created by deserializing */  xdrs.x_op = XDR_FREE;  (void) xdr_authunix_parms (&xdrs, &aup);  XDR_DESTROY (&xdrs);  return stat;}static voidauthunix_destroy (AUTH *auth){  struct audata *au = AUTH_PRIVATE (auth);  mem_free (au->au_origcred.oa_base, au->au_origcred.oa_length);  if (au->au_shcred.oa_base != NULL)    mem_free (au->au_shcred.oa_base, au->au_shcred.oa_length);  mem_free (auth->ah_private, sizeof (struct audata));  if (auth->ah_verf.oa_base != NULL)    mem_free (auth->ah_verf.oa_base, auth->ah_verf.oa_length);  mem_free ((caddr_t) auth, sizeof (*auth));}/* * Marshals (pre-serializes) an auth struct. * sets private data, au_marshed and au_mpos */static bool_tinternal_functionmarshal_new_auth (AUTH *auth){  XDR xdr_stream;  XDR *xdrs = &xdr_stream;  struct audata *au = AUTH_PRIVATE (auth);  xdrmem_create (xdrs, au->au_marshed, MAX_AUTH_BYTES, XDR_ENCODE);  if ((!xdr_opaque_auth (xdrs, &(auth->ah_cred))) ||      (!xdr_opaque_auth (xdrs, &(auth->ah_verf))))    perror (_("auth_none.c - Fatal marshalling problem"));  else    au->au_mpos = XDR_GETPOS (xdrs);  XDR_DESTROY (xdrs);  return TRUE;}