home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / kerberosIV / krb / rd_safe.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-01-23  |  5.8 KB  |  186 lines
  1. /*
  2.  * $Source: /mit/kerberos/src/lib/krb/RCS/rd_safe.c,v $
  3.  * $Author: steiner $
  4.  *
  5.  * Copyright 1986, 1987, 1988 by the Massachusetts Institute
  6.  * of Technology.
  7.  *
  8.  * For copying and distribution information, please see the file
  9.  * <mit-copyright.h>.
  10.  *
  11.  * This routine dissects a a Kerberos 'safe msg', checking its
  12.  * integrity, and returning a pointer to the application data
  13.  * contained and its length.
  14.  *
  15.  * Returns 0 (RD_AP_OK) for success or an error code (RD_AP_...)
  16.  *
  17.  * Steve Miller    Project Athena  MIT/DEC
  18.  */
  19.  
  20. #ifndef lint
  21. static char *rcsid_rd_safe_c=
  22. "$Header: rd_safe.c,v 4.12 89/01/23 15:16:16 steiner Exp $";
  23. #endif /* lint */
  24.  
  25. #include <mit-copyright.h>
  26.  
  27. /* system include files */
  28. #include <stdio.h>
  29. #include <errno.h>
  30. #include <sys/types.h>
  31. #include <netinet/in.h>
  32. #include <sys/time.h>
  33.  
  34. /* application include files */
  35. #include <des.h>
  36. #include <krb.h>
  37. #include <prot.h>
  38. #include "lsb_addr_comp.h"
  39.  
  40. extern char *errmsg();
  41. extern int errno;
  42. extern int krb_debug;
  43.  
  44. /* static storage */
  45.  
  46. static C_Block calc_cksum[2];
  47. static C_Block big_cksum[2];
  48. static int swap_bytes;
  49. static struct timeval local_time;
  50. static u_long delta_t;
  51.  
  52. /*
  53.  * krb_rd_safe() checks the integrity of an AUTH_MSG_SAFE message.
  54.  * Given the message received, "in", the length of that message,
  55.  * "in_length", the "key" to compute the checksum with, and the
  56.  * network addresses of the "sender" and "receiver" of the message,
  57.  * krb_rd_safe() returns RD_AP_OK if message is okay, otherwise
  58.  * some error code.
  59.  *
  60.  * The message data retrieved from "in" is returned in the structure
  61.  * "m_data".  The pointer to the application data (m_data->app_data)
  62.  * refers back to the appropriate place in "in".
  63.  *
  64.  * See the file "mk_safe.c" for the format of the AUTH_MSG_SAFE
  65.  * message.  The structure containing the extracted message
  66.  * information, MSG_DAT, is defined in "krb.h".
  67.  */
  68.  
  69. long krb_rd_safe(in,in_length,key,sender,receiver,m_data)
  70.     u_char *in;                 /* pointer to the msg received */
  71.     u_long in_length;           /* length of "in" msg */
  72.     C_Block *key;               /* encryption key for seed and ivec */
  73.     struct sockaddr_in *sender; /* sender's address */
  74.     struct sockaddr_in *receiver; /* receiver's address -- me */
  75.     MSG_DAT *m_data;        /* where to put message information */
  76. {
  77.     register u_char     *p,*q;
  78.     static      u_long  src_addr; /* Can't send structs since no
  79.                                    * guarantees on size */
  80.     /* Be very conservative */
  81.     if (sizeof(u_long) != sizeof(struct in_addr)) {
  82.         fprintf(stderr,"\n\
  83. krb_rd_safe protocol err sizeof(u_long) != sizeof(struct in_addr)");
  84.         exit(-1);
  85.     }
  86.  
  87.     if (gettimeofday(&local_time,(struct timezone *)0))
  88.         return  -1;
  89.  
  90.     p = in;                     /* beginning of message */
  91.     swap_bytes = 0;
  92.  
  93.     if (*p++ != KRB_PROT_VERSION)       return RD_AP_VERSION;
  94.     if (((*p) & ~1) != AUTH_MSG_SAFE) return RD_AP_MSG_TYPE;
  95.     if ((*p++ & 1) != HOST_BYTE_ORDER) swap_bytes++;
  96.  
  97.     q = p;                      /* mark start of cksum stuff */
  98.  
  99.     /* safely get length */
  100.     bcopy((char *)p,(char *)&(m_data->app_length),
  101.           sizeof(m_data->app_length));
  102.     if (swap_bytes) swap_u_long(m_data->app_length);
  103.     p += sizeof(m_data->app_length); /* skip over */
  104.  
  105.     if (m_data->app_length + sizeof(in_length)
  106.         + sizeof(m_data->time_sec) + sizeof(m_data->time_5ms)
  107.         + sizeof(big_cksum) + sizeof(src_addr)
  108.         + VERSION_SZ + MSG_TYPE_SZ > in_length)
  109.         return(RD_AP_MODIFIED);
  110.  
  111.     m_data->app_data = p;       /* we're now at the application data */
  112.  
  113.     /* skip app data */
  114.     p += m_data->app_length;
  115.  
  116.     /* safely get time_5ms */
  117.     bcopy((char *)p, (char *)&(m_data->time_5ms),
  118.           sizeof(m_data->time_5ms));
  119.  
  120.     /* don't need to swap-- one byte for now */
  121.     p += sizeof(m_data->time_5ms);
  122.  
  123.     /* safely get src address */
  124.     bcopy((char *)p,(char *)&src_addr,sizeof(src_addr));
  125.  
  126.     /* don't swap, net order always */
  127.     p += sizeof(src_addr);
  128.  
  129.     if (src_addr != (u_long) sender->sin_addr.s_addr)
  130.         return RD_AP_MODIFIED;
  131.  
  132.     /* safely get time_sec */
  133.     bcopy((char *)p, (char *)&(m_data->time_sec),
  134.           sizeof(m_data->time_sec));
  135.     if (swap_bytes)
  136.         swap_u_long(m_data->time_sec);
  137.     p += sizeof(m_data->time_sec);
  138.  
  139.     /* check direction bit is the sign bit */
  140.     /* For compatibility with broken old code, compares are done in VAX 
  141.        byte order (LSBFIRST) */ 
  142.     if (lsb_net_ulong_less(sender->sin_addr.s_addr,
  143.                receiver->sin_addr.s_addr)==-1) 
  144.     /* src < recv */ 
  145.     m_data->time_sec =  - m_data->time_sec; 
  146.     else if (lsb_net_ulong_less(sender->sin_addr.s_addr, 
  147.                 receiver->sin_addr.s_addr)==0) 
  148.     if (lsb_net_ushort_less(sender->sin_port,receiver->sin_port)==-1)
  149.         /* src < recv */
  150.         m_data->time_sec =  - m_data->time_sec; 
  151.  
  152.     /*
  153.      * All that for one tiny bit!  Heaven help those that talk to
  154.      * themselves.
  155.      */
  156.  
  157.     /* check the time integrity of the msg */
  158.     delta_t = abs((int)((long) local_time.tv_sec - m_data->time_sec));
  159.     if (delta_t > CLOCK_SKEW) return RD_AP_TIME;
  160.  
  161.     /*
  162.      * caller must check timestamps for proper order and replays, since
  163.      * server might have multiple clients each with its own timestamps
  164.      * and we don't assume tightly synchronized clocks.
  165.      */
  166.  
  167.     bcopy((char *)p,(char *)big_cksum,sizeof(big_cksum));
  168.     if (swap_bytes) swap_u_16(big_cksum);
  169.  
  170. #ifdef NOENCRYPTION
  171.     bzero(calc_cksum, sizeof(calc_cksum));
  172. #else /* Do encryption */
  173.     /* calculate the checksum of the length, timestamps, and
  174.      * input data, on the sending byte order !! */
  175.     quad_cksum(q,calc_cksum,p-q,2,key);
  176. #endif /* NOENCRYPTION */
  177.  
  178.     if (krb_debug)
  179.         printf("\ncalc_cksum = %u, received cksum = %u",
  180.                (long) calc_cksum[0], (long) big_cksum[0]);
  181.     if (bcmp((char *)big_cksum,(char *)calc_cksum,sizeof(big_cksum)))
  182.         return(RD_AP_MODIFIED);
  183.  
  184.     return(RD_AP_OK);           /* OK == 0 */
  185. }
  186.