core: Fix duplication of close_notify_handler for gpgsm.
[gpgme.git] / src / parsetlv.c
1 /* parsetlv.c -  ASN.1 TLV functions
2  * Copyright (C) 2005, 2007, 2008, 2012 g10 Code GmbH
3  *
4  * This file is free software; you can redistribute it and/or modify
5  * it under the terms of the GNU Lesser General Public License as
6  * published by the Free Software Foundation; either version 2.1 of
7  * the License, or (at your option) any later version.
8  *
9  * This file is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  * GNU Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public
15  * License along with this program; if not, see <https://gnu.org/licenses/>.
16  * SPDX-License-Identifier: LGPL-2.1-or-later
17  */
18
19 #ifdef HAVE_CONFIG_H
20 # include <config.h>
21 #endif
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
25
26 #include "parsetlv.h"
27
28
29 /* Simple but pretty complete ASN.1 BER parser.  Parse the data at the
30    address of BUFFER with a length given at the address of SIZE.  On
31    success return 0 and update BUFFER and SIZE to point to the value.
32    Do not update them on error.  The information about the object are
33    stored in the caller allocated TI structure.  */
34 int
35 _gpgme_parse_tlv (char const **buffer, size_t *size, tlvinfo_t *ti)
36 {
37   int c;
38   unsigned long tag;
39   const unsigned char *buf = (const unsigned char *)(*buffer);
40   size_t length = *size;
41
42   ti->cls = 0;
43   ti->tag = 0;
44   ti->is_cons = 0;
45   ti->is_ndef = 0;
46   ti->length = 0;
47   ti->nhdr = 0;
48
49   if (!length)
50     return -1;
51   c = *buf++; length--; ++ti->nhdr;
52
53   ti->cls = (c & 0xc0) >> 6;
54   ti->is_cons = !!(c & 0x20);
55   tag = c & 0x1f;
56
57   if (tag == 0x1f)
58     {
59       tag = 0;
60       do
61         {
62           tag <<= 7;
63           if (!length)
64             return -1;
65           c = *buf++; length--; ++ti->nhdr;
66           tag |= c & 0x7f;
67         }
68       while (c & 0x80);
69     }
70   ti->tag = tag;
71
72   if (!length)
73     return -1;
74   c = *buf++; length--; ++ti->nhdr;
75
76   if ( !(c & 0x80) )
77     ti->length = c;
78   else if (c == 0x80)
79     ti->is_ndef = 1;
80   else if (c == 0xff)
81     return -1;
82   else
83     {
84       unsigned long len = 0;
85       int count = (c & 0x7f);
86
87       if (count > sizeof (len) || count > sizeof (size_t))
88         return -1;
89
90       for (; count; count--)
91         {
92           len <<= 8;
93           if (!length)
94             return -1;
95           c = *buf++; length--; ++ti->nhdr;
96           len |= c & 0xff;
97         }
98       ti->length = len;
99     }
100
101   *buffer = (void*)buf;
102   *size = length;
103   return 0;
104 }