asn1.c File Reference

#include <rz_util.h>
#include <rz_cons.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>

Go to the source code of this file.

Functions
RZ_API void	asn1_setformat (int fmt)
static ut32	asn1_ber_indefinite (const ut8 *buffer, ut32 length)
static RASN1Object *	asn1_parse_header (const ut8 *buffer, ut32 length, const ut8 *start_pointer)
static ut32	rz_asn1_count_objects (const ut8 *buffer, ut32 length)
RZ_API RASN1Object *	rz_asn1_create_object (const ut8 *buffer, ut32 length, const ut8 *start_pointer)
RZ_API RASN1Binary *	rz_asn1_create_binary (const ut8 *buffer, ut32 length)
RZ_API void	rz_asn1_print_hex (RASN1Object *object, char *buffer, ut32 size, ut32 depth)
static void	rz_asn1_print_padded (RzStrBuf *sb, RASN1Object *object, int depth, const char *k, const char *v)
static RASN1String *	rz_asn1_print_hexdump_padded (RASN1Object *object, ut32 depth)
RZ_API char *	rz_asn1_to_string (RASN1Object *object, ut32 depth, RzStrBuf *sb)
RZ_API void	rz_asn1_free_object (RASN1Object *object)
RZ_API void	rz_asn1_free_binary (RASN1Binary *bin)

Variables
static int	ASN1_STD_FORMAT = 1

Function Documentation

asn1_ber_indefinite()

static ut32 asn1_ber_indefinite ( const ut8 *  buffer, ut32  length  )

static

Definition at line 16 of file asn1.c.

                                                                {
    if (!buffer || length < 3) {
        return 0;
    }
    const ut8 *next = buffer + 2;
    const ut8 *end = buffer + (length - 3);
    while (next < end) {
        if (!next[0] && !next[1]) {
            break;
        }
        if (next[0] == 0x80 && (next[-1] & ASN1_FORM) == FORM_CONSTRUCTED) {
            next--;
            int sz = asn1_ber_indefinite(next, end - next);
            if (sz < 1) {
                break;
            }
            next += sz;
        }
        next++;
    }
    return (next - buffer) + 2;
}

References ASN1_FORM, test_evm::end, FORM_CONSTRUCTED, and length.

Referenced by asn1_parse_header().

asn1_parse_header()

static RASN1Object* asn1_parse_header ( const ut8 *  buffer, ut32  length, const ut8 *  start_pointer  )

static

Definition at line 39 of file asn1.c.

                                                                                                {
    ut8 head, length8, byte;
    ut64 length64;
    if (!buffer || length < 2) {
        return NULL;
    }
 
    RASN1Object *object = RZ_NEW0(RASN1Object);
    if (!object) {
        return NULL;
    }
    head = buffer[0];
    object->offset = start_pointer ? (buffer - start_pointer) : 0;
    object->klass = head & ASN1_CLASS;
    object->form = head & ASN1_FORM;
    object->tag = head & ASN1_TAG;
    length8 = buffer[1];
    if (length8 & ASN1_LENLONG) {
        length64 = 0;
        length8 &= ASN1_LENSHORT;
        object->sector = buffer + 2;
        if (length8 && length8 < length - 2) {
            ut8 i8;
            // can overflow.
            for (i8 = 0; i8 < length8; i8++) {
                byte = buffer[2 + i8];
                length64 <<= 8;
                length64 |= byte;
                if (length64 > length) {
                    goto out_error;
                }
            }
            object->sector += length8;
        } else {
            length64 = asn1_ber_indefinite(object->sector, length - 2);
        }
        object->length = (ut32)length64;
    } else {
        object->length = (ut32)length8;
        object->sector = buffer + 2;
    }
 
    if (object->tag == TAG_BITSTRING && object->sector[0] == 0) {
        if (object->length > 0) {
            object->sector++; // real sector starts + 1
            object->length--;
        }
    }
    if (object->length > length) {
        // Malformed object - overflow from data ptr
        goto out_error;
    }
    return object;
out_error:
    free(object);
    return NULL;
}

References asn1_ber_indefinite(), ASN1_CLASS, ASN1_FORM, ASN1_LENLONG, ASN1_LENSHORT, ASN1_TAG, free(), test-lz4-versions::head, rz_asn1_object_t::length, length, NULL, buffer::offset, RZ_NEW0, rz_asn1_object_t::sector, rz_asn1_object_t::tag, TAG_BITSTRING, and ut64().

Referenced by rz_asn1_count_objects(), and rz_asn1_create_object().

asn1_setformat()

RZ_API void asn1_setformat

(

int

fmt

)

Definition at line 12 of file asn1.c.

                                    {
    ASN1_STD_FORMAT = fmt;
}

References ASN1_STD_FORMAT.

Referenced by cmd_print_fromage().

rz_asn1_count_objects()

static ut32 rz_asn1_count_objects ( const ut8 *  buffer, ut32  length  )

static

Definition at line 97 of file asn1.c.

                                                                  {
    if (!buffer || !length) {
        return 0;
    }
    ut32 counter = 0;
    RASN1Object *object = NULL;
    const ut8 *next = buffer;
    const ut8 *end = buffer + length;
    while (next >= buffer && next < end) {
        // i do not care about the offset now.
        object = asn1_parse_header(next, end - next, 0);
        if (!object || next == object->sector) {
            RZ_FREE(object);
            break;
        }
        next = object->sector + object->length;
        counter++;
        RZ_FREE(object);
    }
    RZ_FREE(object);
    return counter;
}

References asn1_parse_header(), counter, test_evm::end, length, NULL, RZ_FREE, and rz_asn1_object_t::sector.

Referenced by rz_asn1_create_object().

rz_asn1_create_binary()

RZ_API RASN1Binary* rz_asn1_create_binary	(	const ut8 *	buffer,
		ut32	length
	)

Definition at line 152 of file asn1.c.

                                                                          {
    if (!buffer || !length) {
        return NULL;
    }
    ut8 *buf = (ut8 *)calloc(sizeof(*buf), length);
    if (!buf) {
        return NULL;
    }
    RASN1Binary *bin = RZ_NEW0(RASN1Binary);
    if (!bin) {
        free(buf);
        return NULL;
    }
    memcpy(buf, buffer, length);
    bin->binary = buf;
    bin->length = length;
    return bin;
}

References calloc(), free(), length, memcpy(), NULL, and RZ_NEW0.

Referenced by rz_pkcs7_parse_attribute(), rz_pkcs7_parse_contentinfo(), rz_pkcs7_parse_issuerandserialnumber(), rz_pkcs7_parse_signerinfo(), rz_pkcs7_parse_spcdata(), rz_pkcs7_parse_spcmessagedigest(), rz_x509_parse_certificate(), rz_x509_parse_crlentry(), rz_x509_parse_extension(), rz_x509_parse_subjectpublickeyinfo(), and rz_x509_parse_tbscertificate().

rz_asn1_create_object()

RZ_API RASN1Object* rz_asn1_create_object	(	const ut8 *	buffer,
		ut32	length,
		const ut8 *	start_pointer
	)

Definition at line 120 of file asn1.c.

                                                                                                    {
    RASN1Object *object = asn1_parse_header(buffer, length, start_pointer);
    if (object && (object->form == FORM_CONSTRUCTED || object->tag == TAG_BITSTRING || object->tag == TAG_OCTETSTRING)) {
        const ut8 *next = object->sector;
        const ut8 *end = next + object->length;
        if (end > buffer + length) {
            free(object);
            return NULL;
        }
        ut32 count = rz_asn1_count_objects(object->sector, object->length);
        if (count > 0) {
            object->list.length = count;
            object->list.objects = RZ_NEWS0(RASN1Object *, count);
            if (!object->list.objects) {
                rz_asn1_free_object(object);
                return NULL;
            }
            ut32 i;
            for (i = 0; next >= buffer && next < end && i < count; i++) {
                RASN1Object *inner = rz_asn1_create_object(next, end - next, start_pointer);
                if (!inner || next == inner->sector) {
                    rz_asn1_free_object(inner);
                    break;
                }
                next = inner->sector + inner->length;
                object->list.objects[i] = inner;
            }
        }
    }
    return object;
}

References asn1_parse_header(), count, test_evm::end, rz_asn1_object_t::form, FORM_CONSTRUCTED, free(), i, rz_asn1_object_t::length, length, rz_asn1_object_t::list, NULL, rz_asn1_list_t::objects, rz_asn1_count_objects(), rz_asn1_create_object(), rz_asn1_free_object(), RZ_NEWS0, rz_asn1_object_t::sector, rz_asn1_object_t::tag, TAG_BITSTRING, and TAG_OCTETSTRING.

Referenced by cmd_print_fromage(), rz_asn1_create_object(), rz_pkcs7_parse_cms(), rz_pkcs7_parse_spcinfo(), and rz_x509_parse_certificate2().

rz_asn1_free_binary()

RZ_API void rz_asn1_free_binary

(

RASN1Binary *

bin

)

Definition at line 463 of file asn1.c.

                                                  {
    if (bin) {
        free(bin->binary);
        free(bin);
    }
}

References free().

Referenced by rz_pkcs7_free_attribute(), rz_pkcs7_free_contentinfo(), rz_pkcs7_free_issuerandserialnumber(), rz_pkcs7_free_signerinfo(), rz_pkcs7_free_spcdata(), rz_pkcs7_free_spcmessagedigest(), rz_x509_free_certificate(), rz_x509_free_crlentry(), rz_x509_free_extension(), rz_x509_free_subjectpublickeyinfo(), and rz_x509_free_tbscertificate().

rz_asn1_free_object()

RZ_API void rz_asn1_free_object

(

RASN1Object *

object

)

Definition at line 445 of file asn1.c.

                                                     {
    ut32 i;
    if (!object) {
        return;
    }
    // This shall not be freed. it's a pointer into the buffer.
    object->sector = NULL;
    if (object->list.objects) {
        for (i = 0; i < object->list.length; i++) {
            rz_asn1_free_object(object->list.objects[i]);
        }
        RZ_FREE(object->list.objects);
    }
    object->list.objects = NULL;
    object->list.length = 0;
    free(object);
}

References free(), i, rz_asn1_object_t::list, NULL, rz_asn1_list_t::objects, rz_asn1_free_object(), and RZ_FREE.

Referenced by cmd_print_fromage(), rz_asn1_create_object(), rz_asn1_free_object(), rz_pkcs7_parse_cms(), rz_pkcs7_parse_spcinfo(), and rz_x509_parse_certificate().

rz_asn1_print_hex()

RZ_API void rz_asn1_print_hex	(	RASN1Object *	object,
		char *	buffer,
		ut32	size,
		ut32	depth
	)

Definition at line 171 of file asn1.c.

                                                                                        {
    ut32 i;
    if (!object || !object->sector) {
        return;
    }
    char *p = buffer;
    char *end = buffer + size;
    if (depth > 0 && !ASN1_STD_FORMAT) {
        const char *pad = rz_str_pad(' ', (depth * 2) - 2);
        snprintf(p, end - p, "%s", pad);
        p += strlen(pad);
    }
    for (i = 0; i < object->length && p < end; i++) {
        snprintf(p, end - p, "%02x", object->sector[i]);
        p += 2;
    }
    if (p >= end) {
        p -= 4;
        snprintf(p, end - p, "...");
    }
}

References ASN1_STD_FORMAT, test_evm::end, i, p, pad(), rz_str_pad(), rz_asn1_object_t::sector, and snprintf.

Referenced by rz_asn1_to_string().

rz_asn1_print_hexdump_padded()

static RASN1String* rz_asn1_print_hexdump_padded ( RASN1Object *  object, ut32  depth  )

static

Definition at line 219 of file asn1.c.

                                                                                  {
    const char *pad;
    ut32 i, j;
    char readable[20] = { 0 };
    if (!object || !object->sector || object->length < 1) {
        return NULL;
    }
    RzStrBuf *sb = rz_strbuf_new("");
    if (ASN1_STD_FORMAT) {
        pad = "                                        : ";
    } else {
        pad = rz_str_pad(' ', depth * 2);
        rz_strbuf_appendf(sb, "  ");
    }
 
    for (i = 0, j = 0; i < object->length; i++, j++) {
        ut8 c = object->sector[i];
        if (i > 0 && (i % 16) == 0) {
            rz_strbuf_appendf(sb, "|%-16s|\n%s", readable, pad);
            memset(readable, 0, sizeof(readable));
            j = 0;
        }
        rz_strbuf_appendf(sb, "%02x ", c);
        readable[j] = IS_PRINTABLE(c) ? c : '.';
    }
 
    while ((i % 16) != 0) {
        rz_strbuf_appendf(sb, "   ");
        i++;
    }
    rz_strbuf_appendf(sb, "|%-16s|", readable);
    char *text = rz_strbuf_drain(sb);
    RASN1String *asn1str = rz_asn1_create_string(text, true, strlen(text) + 1);
    if (!asn1str) {
        /* no memory left.. */
        free(text);
    }
    return asn1str;
}

References ASN1_STD_FORMAT, c, free(), i, IS_PRINTABLE, rz_asn1_object_t::length, memset(), NULL, pad(), rz_asn1_create_string(), rz_str_pad(), rz_strbuf_appendf(), rz_strbuf_drain(), rz_strbuf_new(), sb, rz_asn1_object_t::sector, and create_tags_rz::text.

Referenced by rz_asn1_to_string().

rz_asn1_print_padded()

static void rz_asn1_print_padded ( RzStrBuf *  sb, RASN1Object *  object, int  depth, const char *  k, const char *  v  )

static

Definition at line 194 of file asn1.c.

                                                                                                             {
    const char *pad = rz_str_pad(' ', (depth * 2) - 2);
    if (object->form && !*v) {
        return;
    }
    switch (object->tag) {
    case TAG_NULL:
    case TAG_EOC:
        break;
    case TAG_INTEGER:
    case TAG_REAL:
        if (*rz_str_trim_head_ro(v)) {
            rz_strbuf_appendf(sb, "%s%s\n%s%s\n", pad, k, pad, v);
        }
        break;
    case TAG_BITSTRING:
    default:
        if (*rz_str_trim_head_ro(v)) {
            rz_strbuf_appendf(sb, "%s%s\n", pad, v);
        }
        break;
    }
}

References rz_asn1_object_t::form, k, pad(), rz_str_pad(), rz_str_trim_head_ro(), rz_strbuf_appendf(), sb, rz_asn1_object_t::tag, TAG_BITSTRING, TAG_EOC, TAG_INTEGER, TAG_NULL, TAG_REAL, and v.

Referenced by rz_asn1_to_string().

rz_asn1_to_string()

RZ_API char* rz_asn1_to_string	(	RASN1Object *	object,
		ut32	depth,
		RzStrBuf *	sb
	)

Definition at line 259 of file asn1.c.

                                                                              {
    ut32 i;
    bool root = false;
    if (!object) {
        return NULL;
    }
    if (!sb) {
        sb = rz_strbuf_new("");
        root = true;
    }
    // this shall not be freed. it's a pointer into the buffer.
    RASN1String *asn1str = NULL;
    static char temp_name[4096] = { 0 };
    const char *name = "";
    const char *string = "";
 
    switch (object->klass) {
    case CLASS_UNIVERSAL: // universal
        switch (object->tag) {
        case TAG_EOC:
            name = "EOC";
            break;
        case TAG_BOOLEAN:
            name = "BOOLEAN";
            if (object->sector) {
                string = (object->sector[0] != 0) ? "true" : "false";
            }
            break;
        case TAG_INTEGER:
            name = "INTEGER";
            if (object->length < 16) {
                rz_asn1_print_hex(object, temp_name, sizeof(temp_name), depth);
                string = temp_name;
            } else {
                asn1str = rz_asn1_print_hexdump_padded(object, depth);
            }
            break;
        case TAG_BITSTRING:
            name = "BIT_STRING";
            if (!object->list.objects) {
                if (object->length < 16) {
                    rz_asn1_print_hex(object, temp_name, sizeof(temp_name), depth);
                    string = temp_name;
                } else {
                    asn1str = rz_asn1_print_hexdump_padded(object, depth);
                }
            }
            break;
        case TAG_OCTETSTRING:
            name = "OCTET_STRING";
            if (rz_str_is_printable_limited((const char *)object->sector, object->length)) {
                asn1str = rz_asn1_stringify_string(object->sector, object->length);
            } else if (!object->list.objects) {
                if (object->length < 16) {
                    rz_asn1_print_hex(object, temp_name, sizeof(temp_name), depth);
                    string = temp_name;
                } else {
                    asn1str = rz_asn1_print_hexdump_padded(object, depth);
                }
            }
            break;
        case TAG_NULL:
            name = "NULL";
            break;
        case TAG_OID:
            name = "OBJECT_IDENTIFIER";
            asn1str = rz_asn1_stringify_oid(object->sector, object->length);
            break;
        case TAG_OBJDESCRIPTOR:
            name = "OBJECT_DESCRIPTOR";
            break;
        case TAG_EXTERNAL:
            name = "EXTERNAL";
            break;
        case TAG_REAL:
            name = "REAL";
            asn1str = rz_asn1_print_hexdump_padded(object, depth);
            break;
        case TAG_ENUMERATED:
            name = "ENUMERATED";
            break;
        case TAG_EMBEDDED_PDV:
            name = "EMBEDDED_PDV";
            break;
        case TAG_UTF8STRING:
            name = "UTF8String";
            asn1str = rz_asn1_stringify_string(object->sector, object->length);
            break;
        case TAG_SEQUENCE:
            name = "SEQUENCE";
            break;
        case TAG_SET:
            name = "SET";
            break;
        case TAG_NUMERICSTRING:
            name = "NumericString";
            asn1str = rz_asn1_stringify_string(object->sector, object->length);
            break;
        case TAG_PRINTABLESTRING:
            name = "PrintableString"; // ASCII subset
            asn1str = rz_asn1_stringify_string(object->sector, object->length);
            break;
        case TAG_T61STRING:
            name = "TeletexString"; // aka T61String
            asn1str = rz_asn1_stringify_string(object->sector, object->length);
            break;
        case TAG_VIDEOTEXSTRING:
            name = "VideotexString";
            asn1str = rz_asn1_stringify_string(object->sector, object->length);
            break;
        case TAG_IA5STRING:
            name = "IA5String"; // ASCII
            asn1str = rz_asn1_stringify_string(object->sector, object->length);
            break;
        case TAG_UTCTIME:
            name = "UTCTime";
            asn1str = rz_asn1_stringify_utctime(object->sector, object->length);
            break;
        case TAG_GENERALIZEDTIME:
            name = "GeneralizedTime";
            asn1str = rz_asn1_stringify_time(object->sector, object->length);
            break;
        case TAG_GRAPHICSTRING:
            name = "GraphicString";
            asn1str = rz_asn1_stringify_string(object->sector, object->length);
            break;
        case TAG_VISIBLESTRING:
            name = "VisibleString"; // ASCII subset
            asn1str = rz_asn1_stringify_string(object->sector, object->length);
            break;
        case TAG_GENERALSTRING:
            name = "GeneralString";
            break;
        case TAG_UNIVERSALSTRING:
            name = "UniversalString";
            asn1str = rz_asn1_stringify_string(object->sector, object->length);
            break;
        case TAG_BMPSTRING:
            name = "BMPString";
            asn1str = rz_asn1_stringify_string(object->sector, object->length);
            break;
        default:
            snprintf(temp_name, sizeof(temp_name), "Universal_%u", object->tag);
            name = temp_name;
            break;
        }
        break;
    case CLASS_APPLICATION:
        snprintf(temp_name, sizeof(temp_name), "Application_%u", object->tag);
        name = temp_name;
        break;
    case CLASS_CONTEXT:
        snprintf(temp_name, sizeof(temp_name), "Context [%u]", object->tag); // Context
        name = temp_name;
        break;
    case CLASS_PRIVATE:
        snprintf(temp_name, sizeof(temp_name), "Private_%u", object->tag);
        name = temp_name;
        break;
    }
    if (asn1str) {
        string = asn1str->string;
    }
    if (ASN1_STD_FORMAT) {
        rz_strbuf_appendf(sb, "%4" PFMT64d "  ", object->offset);
        rz_strbuf_appendf(sb, "%4u:%2d: %s %-20s: %s\n", object->length,
            depth, object->form ? "cons" : "prim", name, string);
        rz_asn1_free_string(asn1str);
        if (object->list.objects) {
            for (i = 0; i < object->list.length; i++) {
                rz_asn1_to_string(object->list.objects[i], depth + 1, sb);
            }
        }
    } else {
        rz_asn1_print_padded(sb, object, depth, name, string);
        rz_asn1_free_string(asn1str);
        if (object->list.objects) {
            for (i = 0; i < object->list.length; i++) {
                RASN1Object *obj = object->list.objects[i];
                rz_asn1_to_string(obj, depth + 1, sb);
            }
        }
    }
    return root ? rz_strbuf_drain(sb) : NULL;
}

References ASN1_STD_FORMAT, CLASS_APPLICATION, CLASS_CONTEXT, CLASS_PRIVATE, CLASS_UNIVERSAL, rz_asn1_object_t::form, i, rz_asn1_object_t::klass, rz_asn1_object_t::length, rz_asn1_object_t::list, NULL, rz_asn1_list_t::objects, rz_asn1_object_t::offset, PFMT64d, root, rz_asn1_free_string(), rz_asn1_print_hex(), rz_asn1_print_hexdump_padded(), rz_asn1_print_padded(), rz_asn1_stringify_oid(), rz_asn1_stringify_string(), rz_asn1_stringify_time(), rz_asn1_stringify_utctime(), rz_asn1_to_string(), rz_str_is_printable_limited(), rz_strbuf_appendf(), rz_strbuf_drain(), rz_strbuf_new(), sb, rz_asn1_object_t::sector, snprintf, rz_asn1_string_t::string, rz_asn1_object_t::tag, TAG_BITSTRING, TAG_BMPSTRING, TAG_BOOLEAN, TAG_EMBEDDED_PDV, TAG_ENUMERATED, TAG_EOC, TAG_EXTERNAL, TAG_GENERALIZEDTIME, TAG_GENERALSTRING, TAG_GRAPHICSTRING, TAG_IA5STRING, TAG_INTEGER, TAG_NULL, TAG_NUMERICSTRING, TAG_OBJDESCRIPTOR, TAG_OCTETSTRING, TAG_OID, TAG_PRINTABLESTRING, TAG_REAL, TAG_SEQUENCE, TAG_SET, TAG_T61STRING, TAG_UNIVERSALSTRING, TAG_UTCTIME, TAG_UTF8STRING, TAG_VIDEOTEXSTRING, and TAG_VISIBLESTRING.

Referenced by cmd_print_fromage(), and rz_asn1_to_string().

Variable Documentation

ASN1_STD_FORMAT

int ASN1_STD_FORMAT = 1

static

Definition at line 10 of file asn1.c.

Referenced by asn1_setformat(), rz_asn1_print_hex(), rz_asn1_print_hexdump_padded(), and rz_asn1_to_string().