520 lines
17 KiB
C
520 lines
17 KiB
C
/*
|
|
* X.509 base functions for creating certificates / CSRs
|
|
*
|
|
* Copyright The Mbed TLS Contributors
|
|
* SPDX-License-Identifier: Apache-2.0
|
|
*
|
|
* Licensed under the Apache License, Version 2.0 (the "License"); you may
|
|
* not use this file except in compliance with the License.
|
|
* You may obtain a copy of the License at
|
|
*
|
|
* http://www.apache.org/licenses/LICENSE-2.0
|
|
*
|
|
* Unless required by applicable law or agreed to in writing, software
|
|
* distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
|
|
* WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
* See the License for the specific language governing permissions and
|
|
* limitations under the License.
|
|
*/
|
|
|
|
#include "common.h"
|
|
|
|
#if defined(MBEDTLS_X509_CREATE_C)
|
|
|
|
#include "mbedtls/x509.h"
|
|
#include "mbedtls/asn1write.h"
|
|
#include "mbedtls/error.h"
|
|
#include "mbedtls/oid.h"
|
|
|
|
#include <string.h>
|
|
|
|
#include "mbedtls/platform.h"
|
|
|
|
#if defined(MBEDTLS_ASN1_PARSE_C)
|
|
#include "mbedtls/asn1.h"
|
|
#endif
|
|
|
|
/* Structure linking OIDs for X.509 DN AttributeTypes to their
|
|
* string representations and default string encodings used by Mbed TLS. */
|
|
typedef struct {
|
|
const char *name; /* String representation of AttributeType, e.g.
|
|
* "CN" or "emailAddress". */
|
|
size_t name_len; /* Length of 'name', without trailing 0 byte. */
|
|
const char *oid; /* String representation of OID of AttributeType,
|
|
* as per RFC 5280, Appendix A.1. encoded as per
|
|
* X.690 */
|
|
int default_tag; /* The default character encoding used for the
|
|
* given attribute type, e.g.
|
|
* MBEDTLS_ASN1_UTF8_STRING for UTF-8. */
|
|
} x509_attr_descriptor_t;
|
|
|
|
#define ADD_STRLEN(s) s, sizeof(s) - 1
|
|
|
|
/* X.509 DN attributes from RFC 5280, Appendix A.1. */
|
|
static const x509_attr_descriptor_t x509_attrs[] =
|
|
{
|
|
{ ADD_STRLEN("CN"),
|
|
MBEDTLS_OID_AT_CN, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("commonName"),
|
|
MBEDTLS_OID_AT_CN, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("C"),
|
|
MBEDTLS_OID_AT_COUNTRY, MBEDTLS_ASN1_PRINTABLE_STRING },
|
|
{ ADD_STRLEN("countryName"),
|
|
MBEDTLS_OID_AT_COUNTRY, MBEDTLS_ASN1_PRINTABLE_STRING },
|
|
{ ADD_STRLEN("O"),
|
|
MBEDTLS_OID_AT_ORGANIZATION, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("organizationName"),
|
|
MBEDTLS_OID_AT_ORGANIZATION, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("L"),
|
|
MBEDTLS_OID_AT_LOCALITY, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("locality"),
|
|
MBEDTLS_OID_AT_LOCALITY, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("R"),
|
|
MBEDTLS_OID_PKCS9_EMAIL, MBEDTLS_ASN1_IA5_STRING },
|
|
{ ADD_STRLEN("OU"),
|
|
MBEDTLS_OID_AT_ORG_UNIT, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("organizationalUnitName"),
|
|
MBEDTLS_OID_AT_ORG_UNIT, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("ST"),
|
|
MBEDTLS_OID_AT_STATE, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("stateOrProvinceName"),
|
|
MBEDTLS_OID_AT_STATE, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("emailAddress"),
|
|
MBEDTLS_OID_PKCS9_EMAIL, MBEDTLS_ASN1_IA5_STRING },
|
|
{ ADD_STRLEN("serialNumber"),
|
|
MBEDTLS_OID_AT_SERIAL_NUMBER, MBEDTLS_ASN1_PRINTABLE_STRING },
|
|
{ ADD_STRLEN("postalAddress"),
|
|
MBEDTLS_OID_AT_POSTAL_ADDRESS, MBEDTLS_ASN1_PRINTABLE_STRING },
|
|
{ ADD_STRLEN("postalCode"),
|
|
MBEDTLS_OID_AT_POSTAL_CODE, MBEDTLS_ASN1_PRINTABLE_STRING },
|
|
{ ADD_STRLEN("dnQualifier"),
|
|
MBEDTLS_OID_AT_DN_QUALIFIER, MBEDTLS_ASN1_PRINTABLE_STRING },
|
|
{ ADD_STRLEN("title"),
|
|
MBEDTLS_OID_AT_TITLE, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("surName"),
|
|
MBEDTLS_OID_AT_SUR_NAME, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("SN"),
|
|
MBEDTLS_OID_AT_SUR_NAME, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("givenName"),
|
|
MBEDTLS_OID_AT_GIVEN_NAME, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("GN"),
|
|
MBEDTLS_OID_AT_GIVEN_NAME, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("initials"),
|
|
MBEDTLS_OID_AT_INITIALS, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("pseudonym"),
|
|
MBEDTLS_OID_AT_PSEUDONYM, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("generationQualifier"),
|
|
MBEDTLS_OID_AT_GENERATION_QUALIFIER, MBEDTLS_ASN1_UTF8_STRING },
|
|
{ ADD_STRLEN("domainComponent"),
|
|
MBEDTLS_OID_DOMAIN_COMPONENT, MBEDTLS_ASN1_IA5_STRING },
|
|
{ ADD_STRLEN("DC"),
|
|
MBEDTLS_OID_DOMAIN_COMPONENT, MBEDTLS_ASN1_IA5_STRING },
|
|
{ NULL, 0, NULL, MBEDTLS_ASN1_NULL }
|
|
};
|
|
|
|
static const x509_attr_descriptor_t *x509_attr_descr_from_name(const char *name, size_t name_len)
|
|
{
|
|
const x509_attr_descriptor_t *cur;
|
|
|
|
for (cur = x509_attrs; cur->name != NULL; cur++) {
|
|
if (cur->name_len == name_len &&
|
|
strncmp(cur->name, name, name_len) == 0) {
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (cur->name == NULL) {
|
|
return NULL;
|
|
}
|
|
|
|
return cur;
|
|
}
|
|
|
|
static int hex_to_int(char c)
|
|
{
|
|
return ('0' <= c && c <= '9') ? (c - '0') :
|
|
('a' <= c && c <= 'f') ? (c - 'a' + 10) :
|
|
('A' <= c && c <= 'F') ? (c - 'A' + 10) : -1;
|
|
}
|
|
|
|
static int hexpair_to_int(char c1, char c2)
|
|
{
|
|
int n1 = hex_to_int(c1);
|
|
int n2 = hex_to_int(c2);
|
|
if (n1 != -1 && n2 != -1) {
|
|
return (n1 << 4) | n2;
|
|
} else {
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
static int parse_attribute_value_string(const char *s,
|
|
int len,
|
|
unsigned char *data,
|
|
size_t *data_len)
|
|
{
|
|
const char *c = s;
|
|
const char *end = c + len;
|
|
int hexpair = 0;
|
|
unsigned char *d = data;
|
|
int n;
|
|
while (c < end) {
|
|
if (*c == '\\') {
|
|
c++;
|
|
|
|
/* Check for valid escaped characters in RFC 4514 in Section 3*/
|
|
if (c + 1 < end && (n = hexpair_to_int(*c, *(c+1))) != -1) {
|
|
if (n == 0) {
|
|
return MBEDTLS_ERR_X509_INVALID_NAME;
|
|
}
|
|
hexpair = 1;
|
|
*(d++) = n;
|
|
c++;
|
|
} else if (c == end || !strchr(" ,=+<>#;\"\\", *c)) {
|
|
return MBEDTLS_ERR_X509_INVALID_NAME;
|
|
}
|
|
}
|
|
if (!hexpair) {
|
|
*(d++) = *c;
|
|
}
|
|
if (d - data == MBEDTLS_X509_MAX_DN_NAME_SIZE) {
|
|
return MBEDTLS_ERR_X509_INVALID_NAME;
|
|
}
|
|
|
|
hexpair = 0;
|
|
c++;
|
|
}
|
|
*data_len = d - data;
|
|
return 0;
|
|
}
|
|
|
|
#if defined(MBEDTLS_ASN1_PARSE_C)
|
|
static int parse_attribute_value_ber_encoded(const char *s,
|
|
int len,
|
|
unsigned char *data,
|
|
size_t *data_len,
|
|
int *tag)
|
|
{
|
|
const char *c = s;
|
|
const char *end = c + len;
|
|
unsigned char asn1_der_buf[MBEDTLS_X509_MAX_DN_NAME_SIZE];
|
|
unsigned char *asn1_der_end;
|
|
unsigned char *p;
|
|
unsigned char *d = data;
|
|
int n;
|
|
/* Converting from hexstring to raw binary so we can use asn1parse.c*/
|
|
if ((len < 5) || (*c != '#')) {
|
|
return MBEDTLS_ERR_X509_INVALID_NAME;
|
|
}
|
|
c++;
|
|
if ((*tag = hexpair_to_int(*c, *(c+1))) == -1) {
|
|
return MBEDTLS_ERR_X509_INVALID_NAME;
|
|
}
|
|
c += 2;
|
|
p = asn1_der_buf;
|
|
for (p = asn1_der_buf; c < end; c += 2) {
|
|
if ((c + 1 >= end) || (n = hexpair_to_int(*c, *(c+1))) == -1) {
|
|
return MBEDTLS_ERR_X509_INVALID_NAME;
|
|
}
|
|
if (MBEDTLS_ASN1_IS_STRING_TAG(*tag) && n == 0) {
|
|
return MBEDTLS_ERR_X509_INVALID_NAME;
|
|
}
|
|
*(p++) = n;
|
|
}
|
|
asn1_der_end = p;
|
|
|
|
p = asn1_der_buf;
|
|
if (mbedtls_asn1_get_len(&p, asn1_der_end, data_len) != 0) {
|
|
return MBEDTLS_ERR_X509_INVALID_NAME;
|
|
}
|
|
|
|
while (p < asn1_der_end) {
|
|
*(d++) = *(p++);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
#endif
|
|
|
|
int mbedtls_x509_string_to_names(mbedtls_asn1_named_data **head, const char *name)
|
|
{
|
|
int ret = MBEDTLS_ERR_X509_INVALID_NAME;
|
|
int parse_ret = 0;
|
|
const char *s = name, *c = s;
|
|
const char *end = s + strlen(s);
|
|
mbedtls_asn1_buf oid = { .p = NULL, .len = 0, .tag = MBEDTLS_ASN1_NULL };
|
|
const x509_attr_descriptor_t *attr_descr = NULL;
|
|
int in_attr_type = 1;
|
|
int tag;
|
|
int numericoid = 0;
|
|
unsigned char data[MBEDTLS_X509_MAX_DN_NAME_SIZE];
|
|
size_t data_len = 0;
|
|
|
|
/* Clear existing chain if present */
|
|
mbedtls_asn1_free_named_data_list(head);
|
|
|
|
while (c <= end) {
|
|
if (in_attr_type && *c == '=') {
|
|
if ((attr_descr = x509_attr_descr_from_name(s, c - s)) == NULL) {
|
|
if ((mbedtls_oid_from_numeric_string(&oid, s, c - s)) != 0) {
|
|
return MBEDTLS_ERR_X509_INVALID_NAME;
|
|
} else {
|
|
numericoid = 1;
|
|
}
|
|
} else {
|
|
oid.len = strlen(attr_descr->oid);
|
|
oid.p = mbedtls_calloc(1, oid.len);
|
|
memcpy(oid.p, attr_descr->oid, oid.len);
|
|
numericoid = 0;
|
|
}
|
|
|
|
s = c + 1;
|
|
in_attr_type = 0;
|
|
}
|
|
|
|
if (!in_attr_type && ((*c == ',' && *(c-1) != '\\') || c == end)) {
|
|
#if defined(MBEDTLS_ASN1_PARSE_C)
|
|
if ((parse_ret =
|
|
parse_attribute_value_ber_encoded(s, (int) (c - s), data, &data_len,
|
|
&tag)) != 0) {
|
|
if (numericoid) {
|
|
mbedtls_free(oid.p);
|
|
return MBEDTLS_ERR_X509_INVALID_NAME;
|
|
} else {
|
|
if ((parse_ret =
|
|
parse_attribute_value_string(s, (int) (c - s), data,
|
|
&data_len)) != 0) {
|
|
mbedtls_free(oid.p);
|
|
return parse_ret;
|
|
}
|
|
tag = attr_descr->default_tag;
|
|
}
|
|
}
|
|
#else
|
|
if (!numericoid) {
|
|
if ((parse_ret =
|
|
parse_attribute_value_string(s, (int) (c - s), data, &data_len)) != 0) {
|
|
mbedtls_free(oid);
|
|
return parse_ret;
|
|
}
|
|
tag = attr_descr->default_tag;
|
|
}
|
|
if (numericoid) {
|
|
mbedtls_free(oid);
|
|
return MBEDTLS_ERR_X509_INVALID_NAME;
|
|
}
|
|
#endif
|
|
mbedtls_asn1_named_data *cur =
|
|
mbedtls_asn1_store_named_data(head, (char *) oid.p, oid.len,
|
|
(unsigned char *) data,
|
|
data_len);
|
|
mbedtls_free(oid.p);
|
|
oid.p = NULL;
|
|
if (cur == NULL) {
|
|
return MBEDTLS_ERR_X509_ALLOC_FAILED;
|
|
}
|
|
|
|
// set tagType
|
|
cur->val.tag = tag;
|
|
|
|
while (c < end && *(c + 1) == ' ') {
|
|
c++;
|
|
}
|
|
|
|
s = c + 1;
|
|
in_attr_type = 1;
|
|
|
|
/* Successfully parsed one name, update ret to success */
|
|
ret = 0;
|
|
}
|
|
c++;
|
|
}
|
|
if (oid.p != NULL) {
|
|
mbedtls_free(oid.p);
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
/* The first byte of the value in the mbedtls_asn1_named_data structure is reserved
|
|
* to store the critical boolean for us
|
|
*/
|
|
int mbedtls_x509_set_extension(mbedtls_asn1_named_data **head, const char *oid, size_t oid_len,
|
|
int critical, const unsigned char *val, size_t val_len)
|
|
{
|
|
mbedtls_asn1_named_data *cur;
|
|
|
|
if ((cur = mbedtls_asn1_store_named_data(head, oid, oid_len,
|
|
NULL, val_len + 1)) == NULL) {
|
|
return MBEDTLS_ERR_X509_ALLOC_FAILED;
|
|
}
|
|
|
|
cur->val.p[0] = critical;
|
|
memcpy(cur->val.p + 1, val, val_len);
|
|
|
|
return 0;
|
|
}
|
|
|
|
/*
|
|
* RelativeDistinguishedName ::=
|
|
* SET OF AttributeTypeAndValue
|
|
*
|
|
* AttributeTypeAndValue ::= SEQUENCE {
|
|
* type AttributeType,
|
|
* value AttributeValue }
|
|
*
|
|
* AttributeType ::= OBJECT IDENTIFIER
|
|
*
|
|
* AttributeValue ::= ANY DEFINED BY AttributeType
|
|
*/
|
|
static int x509_write_name(unsigned char **p,
|
|
unsigned char *start,
|
|
mbedtls_asn1_named_data *cur_name)
|
|
{
|
|
int ret = MBEDTLS_ERR_ERROR_CORRUPTION_DETECTED;
|
|
size_t len = 0;
|
|
const char *oid = (const char *) cur_name->oid.p;
|
|
size_t oid_len = cur_name->oid.len;
|
|
const unsigned char *name = cur_name->val.p;
|
|
size_t name_len = cur_name->val.len;
|
|
|
|
// Write correct string tag and value
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_tagged_string(p, start,
|
|
cur_name->val.tag,
|
|
(const char *) name,
|
|
name_len));
|
|
// Write OID
|
|
//
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_oid(p, start, oid,
|
|
oid_len));
|
|
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_len(p, start, len));
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_tag(p, start,
|
|
MBEDTLS_ASN1_CONSTRUCTED |
|
|
MBEDTLS_ASN1_SEQUENCE));
|
|
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_len(p, start, len));
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_tag(p, start,
|
|
MBEDTLS_ASN1_CONSTRUCTED |
|
|
MBEDTLS_ASN1_SET));
|
|
|
|
return (int) len;
|
|
}
|
|
|
|
int mbedtls_x509_write_names(unsigned char **p, unsigned char *start,
|
|
mbedtls_asn1_named_data *first)
|
|
{
|
|
int ret = MBEDTLS_ERR_ERROR_CORRUPTION_DETECTED;
|
|
size_t len = 0;
|
|
mbedtls_asn1_named_data *cur = first;
|
|
|
|
while (cur != NULL) {
|
|
MBEDTLS_ASN1_CHK_ADD(len, x509_write_name(p, start, cur));
|
|
cur = cur->next;
|
|
}
|
|
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_len(p, start, len));
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_tag(p, start, MBEDTLS_ASN1_CONSTRUCTED |
|
|
MBEDTLS_ASN1_SEQUENCE));
|
|
|
|
return (int) len;
|
|
}
|
|
|
|
int mbedtls_x509_write_sig(unsigned char **p, unsigned char *start,
|
|
const char *oid, size_t oid_len,
|
|
unsigned char *sig, size_t size,
|
|
mbedtls_pk_type_t pk_alg)
|
|
{
|
|
int ret = MBEDTLS_ERR_ERROR_CORRUPTION_DETECTED;
|
|
int write_null_par;
|
|
size_t len = 0;
|
|
|
|
if (*p < start || (size_t) (*p - start) < size) {
|
|
return MBEDTLS_ERR_ASN1_BUF_TOO_SMALL;
|
|
}
|
|
|
|
len = size;
|
|
(*p) -= len;
|
|
memcpy(*p, sig, len);
|
|
|
|
if (*p - start < 1) {
|
|
return MBEDTLS_ERR_ASN1_BUF_TOO_SMALL;
|
|
}
|
|
|
|
*--(*p) = 0;
|
|
len += 1;
|
|
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_len(p, start, len));
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_tag(p, start, MBEDTLS_ASN1_BIT_STRING));
|
|
|
|
// Write OID
|
|
//
|
|
if (pk_alg == MBEDTLS_PK_ECDSA) {
|
|
/*
|
|
* The AlgorithmIdentifier's parameters field must be absent for DSA/ECDSA signature
|
|
* algorithms, see https://www.rfc-editor.org/rfc/rfc5480#page-17 and
|
|
* https://www.rfc-editor.org/rfc/rfc5758#section-3.
|
|
*/
|
|
write_null_par = 0;
|
|
} else {
|
|
write_null_par = 1;
|
|
}
|
|
MBEDTLS_ASN1_CHK_ADD(len,
|
|
mbedtls_asn1_write_algorithm_identifier_ext(p, start, oid, oid_len,
|
|
0, write_null_par));
|
|
|
|
return (int) len;
|
|
}
|
|
|
|
static int x509_write_extension(unsigned char **p, unsigned char *start,
|
|
mbedtls_asn1_named_data *ext)
|
|
{
|
|
int ret = MBEDTLS_ERR_ERROR_CORRUPTION_DETECTED;
|
|
size_t len = 0;
|
|
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_raw_buffer(p, start, ext->val.p + 1,
|
|
ext->val.len - 1));
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_len(p, start, ext->val.len - 1));
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_tag(p, start, MBEDTLS_ASN1_OCTET_STRING));
|
|
|
|
if (ext->val.p[0] != 0) {
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_bool(p, start, 1));
|
|
}
|
|
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_raw_buffer(p, start, ext->oid.p,
|
|
ext->oid.len));
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_len(p, start, ext->oid.len));
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_tag(p, start, MBEDTLS_ASN1_OID));
|
|
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_len(p, start, len));
|
|
MBEDTLS_ASN1_CHK_ADD(len, mbedtls_asn1_write_tag(p, start, MBEDTLS_ASN1_CONSTRUCTED |
|
|
MBEDTLS_ASN1_SEQUENCE));
|
|
|
|
return (int) len;
|
|
}
|
|
|
|
/*
|
|
* Extension ::= SEQUENCE {
|
|
* extnID OBJECT IDENTIFIER,
|
|
* critical BOOLEAN DEFAULT FALSE,
|
|
* extnValue OCTET STRING
|
|
* -- contains the DER encoding of an ASN.1 value
|
|
* -- corresponding to the extension type identified
|
|
* -- by extnID
|
|
* }
|
|
*/
|
|
int mbedtls_x509_write_extensions(unsigned char **p, unsigned char *start,
|
|
mbedtls_asn1_named_data *first)
|
|
{
|
|
int ret = MBEDTLS_ERR_ERROR_CORRUPTION_DETECTED;
|
|
size_t len = 0;
|
|
mbedtls_asn1_named_data *cur_ext = first;
|
|
|
|
while (cur_ext != NULL) {
|
|
MBEDTLS_ASN1_CHK_ADD(len, x509_write_extension(p, start, cur_ext));
|
|
cur_ext = cur_ext->next;
|
|
}
|
|
|
|
return (int) len;
|
|
}
|
|
|
|
#endif /* MBEDTLS_X509_CREATE_C */
|