decode.c revision e65e5c2d2f32a99e8c5f740cabae9075dab03ce7
e65e5c2d2f32a99e8c5f740cabae9075dab03ce7Wyllys Ingersoll * Copyright 2010 Sun Microsystems, Inc. All rights reserved.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Use is subject to license terms.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * The contents of this file are subject to the Netscape Public License
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Version 1.0 (the "NPL"); you may not use this file except in
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * compliance with the NPL. You may obtain a copy of the NPL at
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Software distributed under the NPL is distributed on an "AS IS" basis,
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * for the specific language governing rights and limitations under the
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * The Initial Developer of this code under the NPL is Netscape
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Communications Corporation. Portions created by Netscape are
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Copyright (C) 1998 Netscape Communications Corporation. All Rights
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Reserved.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Copyright (c) 1990 Regents of the University of Michigan.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * All rights reserved.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Redistribution and use in source and binary forms are permitted
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * provided that this notice is preserved and that due credit is given
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * to the University of Michigan at Ann Arbor. The name of the University
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * may not be used to endorse or promote products derived from this
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * software without specific prior written permission. This software
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * is provided ``as is'' without express or implied warranty.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys/* decode.c - ber input decoding routines */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Note: kmfber_get_tag() only uses the ber_end and ber_ptr elements of ber.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * If that changes, the kmfber_peek_tag() and/or
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * kmfkmfber_skip_tag() implementations will need to be changed.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys/* return the tag - KMFBER_DEFAULT returned means trouble */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys unsigned char xbyte;
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((xbyte & KMFBER_BIG_TAG_MASK) != KMFBER_BIG_TAG_MASK)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys /* tag too big! */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if (i == sizeof (ber_int_t))
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys /* want leading, not trailing 0's */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Note: kmfber_skip_tag() only uses the ber_end and ber_ptr elements of ber.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * If that changes, the implementation of kmfber_peek_tag() will need to
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * be changed.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys unsigned char lc;
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Any ber element looks like this: tag length contents.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Assuming everything's ok, we return the tag byte (we
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * can assume a single byte), and return the length in len.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Assumptions:
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * 1) definite lengths
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * 2) primitive encodings used whenever possible
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * First, we read the tag.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Next, read the length. The first byte contains the length of
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * the length. If bit 8 is set, the length is the long form,
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * otherwise it's the short form. We don't allow a length that's
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * greater than what we can hold in an unsigned long.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if (kmfber_read(ber, (char *)&netlen + diff, noctets)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Note: Previously, we passed the "ber" parameter directly to
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * kmfber_skip_tag(), saving and restoring the ber_ptr element only.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * We now take advantage of the fact that the only ber structure
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * elements touched by kmfber_skip_tag() are ber_end and ber_ptr.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * If that changes, this code must change too.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllysber_getnint(BerElement *ber, ber_int_t *num, ber_slen_t len)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * The tag and length have already been stripped off. We should
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * be sitting right before len bytes of 2's complement integer,
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * ready to be read straight into an int. We may have to sign
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * extend after we read it in.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys return (-1);
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys /* read into the low-order bytes of netnum */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys return (-1);
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys /* This sets the required sign extension */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if (len != 0) {
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys for (i = 0; i < len; i++)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((tag = kmfber_skip_tag(ber, &len)) == KMFBER_DEFAULT)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * len is being demoted to a long here -- possible conversion error
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if (ber_getnint(ber, num, (int)len) != (ber_slen_t)len)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllyskmfber_get_stringb(BerElement *ber, char *buf, ber_len_t *len)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys#endif /* STR_TRANSLATION */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((tag = kmfber_skip_tag(ber, &datalen)) == KMFBER_DEFAULT)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * datalen is being demoted to a long here -- possible conversion error
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if (kmfber_read(ber, buf, datalen) != (ber_slen_t)datalen)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if (datalen > 0 && (ber->ber_options & KMFBER_OPT_TRANSLATE_STRINGS)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((*(ber->ber_decode_translate_proc))(&transbuf, &datalen,
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys#endif /* STR_TRANSLATION */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((tag = kmfber_skip_tag(ber, &datalen)) == KMFBER_DEFAULT)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((*buf = (char *)malloc((size_t)datalen + 1)) == NULL)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * datalen is being demoted to a long here -- possible conversion error
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if (kmfber_read(ber, *buf, datalen) != (ber_slen_t)datalen)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((oid->bv_val = (char *)malloc((size_t)len + 1)) == NULL) {
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((*bv = (struct berval *)malloc(sizeof (struct berval)))
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((tag = kmfber_skip_tag(ber, &len)) != BER_INTEGER) {
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if (((*bv)->bv_val = (char *)malloc((size_t)len + 1))
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * len is being demoted to a long here -- possible conversion error
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if (kmfber_read(ber, (*bv)->bv_val, len) != (ber_slen_t)len)
e65e5c2d2f32a99e8c5f740cabae9075dab03ce7Wyllys Ingersoll /* If DER encoding, strip leading 0's if high-order bit is set */
e65e5c2d2f32a99e8c5f740cabae9075dab03ce7Wyllys Ingersoll while ((*p == 0x00) && ((*bv)->bv_len > 0) && (p[1] & 0x80)) {
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * Shift the buffer to the beginning of the allocated space
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * so it can be properly freed later.
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllyskmfber_get_stringal(BerElement *ber, struct berval **bv)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((*bv = (struct berval *)malloc(sizeof (struct berval)))
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((tag = kmfber_skip_tag(ber, &len)) == KMFBER_DEFAULT) {
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if (((*bv)->bv_val = (char *)malloc((size_t)len + 1))
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * len is being demoted to a long here -- possible conversion error
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if (kmfber_read(ber, (*bv)->bv_val, len) != (ber_slen_t)len)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllyskmfber_get_bitstringa(BerElement *ber, char **buf, ber_len_t *blen)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys unsigned char unusedbits;
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((tag = kmfber_skip_tag(ber, &datalen)) == KMFBER_DEFAULT)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((*buf = (char *)malloc((size_t)datalen - 1)) == NULL)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys /* Subtract 1 for the unused bits */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys * datalen is being demoted to a long here -- possible conversion error
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if (kmfber_read(ber, *buf, datalen) != (ber_slen_t)datalen)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((tag = kmfber_skip_tag(ber, &len)) == KMFBER_DEFAULT)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllyskmfber_first_element(BerElement *ber, ber_len_t *len, char **last)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys /* skip the sequence header, use the len to mark where to stop */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllyskmfber_next_element(BerElement *ber, ber_len_t *len, char *last)
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys/* VARARGS */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys for (rc = 0, p = (char *)fmt; *p && rc != KMFBER_DEFAULT; p++) {
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys switch (*p) {
d00756ccb34596a328f8a15d1965da5412d366d0wyllys case 'a': /* octet string - allocate storage as needed */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys /* Treat INTEGER same as an OCTET string, but ignore the tag */
d00756ccb34596a328f8a15d1965da5412d366d0wyllys case 'O': /* octet string - allocate & include length */
d00756ccb34596a328f8a15d1965da5412d366d0wyllys case 'B': /* bit string - allocate storage as needed */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys l = va_arg(ap, ber_slen_t *); /* for length, in bits */
d00756ccb34596a328f8a15d1965da5412d366d0wyllys /* Make room for at least 15 strings */
d00756ccb34596a328f8a15d1965da5412d366d0wyllys /* We'v overflowed our buffer */
d00756ccb34596a328f8a15d1965da5412d366d0wyllys if (rc != KMFBER_DEFAULT && tag != KMFBER_END_OF_SEQORSET) {
d00756ccb34596a328f8a15d1965da5412d366d0wyllys case 'x': /* skip the next element - whatever it is */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((rc = kmfber_skip_tag(ber, &len)) == KMFBER_DEFAULT)
d00756ccb34596a328f8a15d1965da5412d366d0wyllys switch (*fmt) {
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys case 'a': /* octet string - allocate storage as needed */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys case 'O': /* octet string - allocate & include length */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys case 'B': /* bit string - allocate storage as needed */
d00756ccb34596a328f8a15d1965da5412d366d0wyllys l = va_arg(ap, ber_slen_t *); /* for length, in bits */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys case 'x': /* skip the next element - whatever it is */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys } /* for */
99ebb4ca412cb0a19d77a3899a87c055b9c30fa8wyllys if ((new = (struct berval *)malloc(sizeof (struct berval)))