259 lines
6.3 KiB
C
259 lines
6.3 KiB
C
/*
|
|
radix.c
|
|
|
|
base-64 encoding pinched from lynx2-7-2, who pinched it from rpem.
|
|
Originally written by Mark Riordan 12 August 1990 and 17 Feb 1991
|
|
and placed in the public domain.
|
|
|
|
Dug Song <dugsong@UMICH.EDU>
|
|
*/
|
|
|
|
#include "includes.h"
|
|
|
|
#ifdef AFS
|
|
#include <krb.h>
|
|
|
|
char six2pr[64] = {
|
|
'A','B','C','D','E','F','G','H','I','J','K','L','M',
|
|
'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
|
|
'a','b','c','d','e','f','g','h','i','j','k','l','m',
|
|
'n','o','p','q','r','s','t','u','v','w','x','y','z',
|
|
'0','1','2','3','4','5','6','7','8','9','+','/'
|
|
};
|
|
|
|
unsigned char pr2six[256];
|
|
|
|
int uuencode(unsigned char *bufin, unsigned int nbytes, char *bufcoded)
|
|
{
|
|
/* ENC is the basic 1 character encoding function to make a char printing */
|
|
#define ENC(c) six2pr[c]
|
|
|
|
register char *outptr = bufcoded;
|
|
unsigned int i;
|
|
|
|
for (i=0; i<nbytes; i += 3) {
|
|
*(outptr++) = ENC(*bufin >> 2); /* c1 */
|
|
*(outptr++) = ENC(((*bufin << 4) & 060) | ((bufin[1] >> 4) & 017)); /*c2*/
|
|
*(outptr++) = ENC(((bufin[1] << 2) & 074) | ((bufin[2] >> 6) & 03));/*c3*/
|
|
*(outptr++) = ENC(bufin[2] & 077); /* c4 */
|
|
bufin += 3;
|
|
}
|
|
if (i == nbytes+1) {
|
|
outptr[-1] = '=';
|
|
} else if (i == nbytes+2) {
|
|
outptr[-1] = '=';
|
|
outptr[-2] = '=';
|
|
}
|
|
*outptr = '\0';
|
|
return(outptr - bufcoded);
|
|
}
|
|
|
|
int uudecode(const char *bufcoded, unsigned char *bufplain, int outbufsize)
|
|
{
|
|
/* single character decode */
|
|
#define DEC(c) pr2six[(unsigned char)c]
|
|
#define MAXVAL 63
|
|
|
|
static int first = 1;
|
|
int nbytesdecoded, j;
|
|
const char *bufin = bufcoded;
|
|
register unsigned char *bufout = bufplain;
|
|
register int nprbytes;
|
|
|
|
/* If this is the first call, initialize the mapping table. */
|
|
if (first) {
|
|
first = 0;
|
|
for(j=0; j<256; j++) pr2six[j] = MAXVAL+1;
|
|
for(j=0; j<64; j++) pr2six[(unsigned char)six2pr[j]] = (unsigned char)j;
|
|
}
|
|
|
|
/* Strip leading whitespace. */
|
|
while (*bufcoded==' ' || *bufcoded == '\t') bufcoded++;
|
|
|
|
/* Figure out how many characters are in the input buffer.
|
|
If this would decode into more bytes than would fit into
|
|
the output buffer, adjust the number of input bytes downwards. */
|
|
bufin = bufcoded;
|
|
while (DEC(*(bufin++)) <= MAXVAL);
|
|
nprbytes = bufin - bufcoded - 1;
|
|
nbytesdecoded = ((nprbytes+3)/4) * 3;
|
|
if (nbytesdecoded > outbufsize)
|
|
nprbytes = (outbufsize*4)/3;
|
|
|
|
bufin = bufcoded;
|
|
|
|
while (nprbytes > 0) {
|
|
*(bufout++) = (unsigned char) (DEC(*bufin) << 2 | DEC(bufin[1]) >> 4);
|
|
*(bufout++) = (unsigned char) (DEC(bufin[1]) << 4 | DEC(bufin[2]) >> 2);
|
|
*(bufout++) = (unsigned char) (DEC(bufin[2]) << 6 | DEC(bufin[3]));
|
|
bufin += 4;
|
|
nprbytes -= 4;
|
|
}
|
|
if (nprbytes & 03) {
|
|
if (DEC(bufin[-2]) > MAXVAL)
|
|
nbytesdecoded -= 2;
|
|
else
|
|
nbytesdecoded -= 1;
|
|
}
|
|
return(nbytesdecoded);
|
|
}
|
|
|
|
typedef unsigned char my_u_char;
|
|
typedef unsigned int my_u_int32_t;
|
|
typedef unsigned short my_u_short;
|
|
|
|
/* Nasty macros from BIND-4.9.2 */
|
|
|
|
#define GETSHORT(s, cp) { \
|
|
register my_u_char *t_cp = (my_u_char*)(cp); \
|
|
(s) = (((my_u_short)t_cp[0]) << 8) \
|
|
| (((my_u_short)t_cp[1])) \
|
|
; \
|
|
(cp) += 2; \
|
|
}
|
|
|
|
#define GETLONG(l, cp) { \
|
|
register my_u_char *t_cp = (my_u_char*)(cp); \
|
|
(l) = (((my_u_int32_t)t_cp[0]) << 24) \
|
|
| (((my_u_int32_t)t_cp[1]) << 16) \
|
|
| (((my_u_int32_t)t_cp[2]) << 8) \
|
|
| (((my_u_int32_t)t_cp[3])) \
|
|
; \
|
|
(cp) += 4; \
|
|
}
|
|
|
|
#define PUTSHORT(s, cp) { \
|
|
register my_u_short t_s = (my_u_short)(s); \
|
|
register my_u_char *t_cp = (my_u_char*)(cp); \
|
|
*t_cp++ = t_s >> 8; \
|
|
*t_cp = t_s; \
|
|
(cp) += 2; \
|
|
}
|
|
|
|
#define PUTLONG(l, cp) { \
|
|
register my_u_int32_t t_l = (my_u_int32_t)(l); \
|
|
register my_u_char *t_cp = (my_u_char*)(cp); \
|
|
*t_cp++ = t_l >> 24; \
|
|
*t_cp++ = t_l >> 16; \
|
|
*t_cp++ = t_l >> 8; \
|
|
*t_cp = t_l; \
|
|
(cp) += 4; \
|
|
}
|
|
|
|
#define GETSTRING(s, p, p_l) { \
|
|
register char* p_targ = (p) + p_l; \
|
|
register char* s_c = (s); \
|
|
register char* p_c = (p); \
|
|
while (*p_c && (p_c < p_targ)) { \
|
|
*s_c++ = *p_c++; \
|
|
} \
|
|
if (p_c == p_targ) { \
|
|
return 1; \
|
|
} \
|
|
*s_c = *p_c++; \
|
|
(p_l) = (p_l) - (p_c - (p)); \
|
|
(p) = p_c; \
|
|
}
|
|
|
|
|
|
int creds_to_radix(CREDENTIALS *creds, unsigned char *buf)
|
|
{
|
|
char *p, *s;
|
|
int len;
|
|
char temp[2048];
|
|
|
|
p = temp;
|
|
*p++ = 1; /* version */
|
|
s = creds->service; while (*s) *p++ = *s++; *p++ = *s;
|
|
s = creds->instance; while (*s) *p++ = *s++; *p++ = *s;
|
|
s = creds->realm; while (*s) *p++ = *s++; *p++ = *s;
|
|
|
|
s = creds->pname; while (*s) *p++ = *s++; *p++ = *s;
|
|
s = creds->pinst; while (*s) *p++ = *s++; *p++ = *s;
|
|
/* Null string to repeat the realm. */
|
|
*p++ = '\0';
|
|
|
|
PUTLONG(creds->issue_date,p);
|
|
{
|
|
unsigned int endTime ;
|
|
endTime = (unsigned int)krb_life_to_time(creds->issue_date,
|
|
creds->lifetime);
|
|
PUTLONG(endTime,p);
|
|
}
|
|
|
|
memcpy(p,&creds->session, sizeof(creds->session));
|
|
p += sizeof(creds->session);
|
|
|
|
PUTSHORT(creds->kvno,p);
|
|
PUTLONG(creds->ticket_st.length,p);
|
|
|
|
memcpy(p,creds->ticket_st.dat, creds->ticket_st.length);
|
|
p += creds->ticket_st.length;
|
|
len = p - temp;
|
|
|
|
return(uuencode(temp, len, buf));
|
|
}
|
|
|
|
int radix_to_creds(const char *buf, CREDENTIALS *creds)
|
|
{
|
|
|
|
char *p;
|
|
int len, tl;
|
|
char version;
|
|
char temp[2048];
|
|
|
|
if (!(len = uudecode(buf, temp, sizeof(temp))))
|
|
return 0;
|
|
|
|
p = temp;
|
|
|
|
/* check version and length! */
|
|
if (len < 1) return 0;
|
|
version = *p; p++; len--;
|
|
|
|
GETSTRING(creds->service, p, len);
|
|
GETSTRING(creds->instance, p, len);
|
|
GETSTRING(creds->realm, p, len);
|
|
|
|
GETSTRING(creds->pname, p, len);
|
|
GETSTRING(creds->pinst, p, len);
|
|
/* Ignore possibly different realm. */
|
|
while (*p && len) p++, len--;
|
|
if (len == 0) return 0;
|
|
p++, len--;
|
|
|
|
/* Enough space for remaining fixed-length parts? */
|
|
if (len < (4 + 4 + sizeof(creds->session) + 2 + 4))
|
|
return 0;
|
|
|
|
GETLONG(creds->issue_date,p);
|
|
len -= 4;
|
|
{
|
|
unsigned int endTime;
|
|
GETLONG(endTime,p);
|
|
len -= 4;
|
|
creds->lifetime = krb_time_to_life(creds->issue_date, endTime);
|
|
}
|
|
|
|
memcpy(&creds->session, p, sizeof(creds->session));
|
|
p += sizeof(creds->session);
|
|
len -= sizeof(creds->session);
|
|
|
|
GETSHORT(creds->kvno,p);
|
|
len -= 2;
|
|
GETLONG(creds->ticket_st.length,p);
|
|
len -= 4;
|
|
|
|
tl = creds->ticket_st.length;
|
|
if (tl < 0 || tl > len || tl > sizeof(creds->ticket_st.dat))
|
|
return 0;
|
|
|
|
memcpy(creds->ticket_st.dat, p, tl);
|
|
p += tl;
|
|
len -= tl;
|
|
|
|
return 1;
|
|
}
|
|
|
|
#endif /* AFS */
|