155714Skris/* crypto/asn1/a_print.c */
255714Skris/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
355714Skris * All rights reserved.
455714Skris *
555714Skris * This package is an SSL implementation written
655714Skris * by Eric Young (eay@cryptsoft.com).
755714Skris * The implementation was written so as to conform with Netscapes SSL.
8296465Sdelphij *
955714Skris * This library is free for commercial and non-commercial use as long as
1055714Skris * the following conditions are aheared to.  The following conditions
1155714Skris * apply to all code found in this distribution, be it the RC4, RSA,
1255714Skris * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
1355714Skris * included with this distribution is covered by the same copyright terms
1455714Skris * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15296465Sdelphij *
1655714Skris * Copyright remains Eric Young's, and as such any Copyright notices in
1755714Skris * the code are not to be removed.
1855714Skris * If this package is used in a product, Eric Young should be given attribution
1955714Skris * as the author of the parts of the library used.
2055714Skris * This can be in the form of a textual message at program startup or
2155714Skris * in documentation (online or textual) provided with the package.
22296465Sdelphij *
2355714Skris * Redistribution and use in source and binary forms, with or without
2455714Skris * modification, are permitted provided that the following conditions
2555714Skris * are met:
2655714Skris * 1. Redistributions of source code must retain the copyright
2755714Skris *    notice, this list of conditions and the following disclaimer.
2855714Skris * 2. Redistributions in binary form must reproduce the above copyright
2955714Skris *    notice, this list of conditions and the following disclaimer in the
3055714Skris *    documentation and/or other materials provided with the distribution.
3155714Skris * 3. All advertising materials mentioning features or use of this software
3255714Skris *    must display the following acknowledgement:
3355714Skris *    "This product includes cryptographic software written by
3455714Skris *     Eric Young (eay@cryptsoft.com)"
3555714Skris *    The word 'cryptographic' can be left out if the rouines from the library
3655714Skris *    being used are not cryptographic related :-).
37296465Sdelphij * 4. If you include any Windows specific code (or a derivative thereof) from
3855714Skris *    the apps directory (application code) you must include an acknowledgement:
3955714Skris *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40296465Sdelphij *
4155714Skris * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
4255714Skris * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
4355714Skris * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
4455714Skris * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
4555714Skris * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
4655714Skris * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
4755714Skris * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
4855714Skris * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
4955714Skris * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
5055714Skris * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
5155714Skris * SUCH DAMAGE.
52296465Sdelphij *
5355714Skris * The licence and distribution terms for any publically available version or
5455714Skris * derivative of this code cannot be changed.  i.e. this code cannot simply be
5555714Skris * copied and put under another distribution licence
5655714Skris * [including the GNU Public Licence.]
5755714Skris */
5855714Skris
5955714Skris#include <stdio.h>
6055714Skris#include "cryptlib.h"
6155714Skris#include <openssl/asn1.h>
6255714Skris
63160814Ssimonint ASN1_PRINTABLE_type(const unsigned char *s, int len)
64296465Sdelphij{
65296465Sdelphij    int c;
66296465Sdelphij    int ia5 = 0;
67296465Sdelphij    int t61 = 0;
6855714Skris
69296465Sdelphij    if (len <= 0)
70296465Sdelphij        len = -1;
71296465Sdelphij    if (s == NULL)
72296465Sdelphij        return (V_ASN1_PRINTABLESTRING);
7355714Skris
74296465Sdelphij    while ((*s) && (len-- != 0)) {
75296465Sdelphij        c = *(s++);
7655714Skris#ifndef CHARSET_EBCDIC
77296465Sdelphij        if (!(((c >= 'a') && (c <= 'z')) ||
78296465Sdelphij              ((c >= 'A') && (c <= 'Z')) ||
79296465Sdelphij              (c == ' ') ||
80296465Sdelphij              ((c >= '0') && (c <= '9')) ||
81296465Sdelphij              (c == ' ') || (c == '\'') ||
82296465Sdelphij              (c == '(') || (c == ')') ||
83296465Sdelphij              (c == '+') || (c == ',') ||
84296465Sdelphij              (c == '-') || (c == '.') ||
85296465Sdelphij              (c == '/') || (c == ':') || (c == '=') || (c == '?')))
86296465Sdelphij            ia5 = 1;
87296465Sdelphij        if (c & 0x80)
88296465Sdelphij            t61 = 1;
8955714Skris#else
90296465Sdelphij        if (!isalnum(c) && (c != ' ') && strchr("'()+,-./:=?", c) == NULL)
91296465Sdelphij            ia5 = 1;
92296465Sdelphij        if (os_toascii[c] & 0x80)
93296465Sdelphij            t61 = 1;
9455714Skris#endif
95296465Sdelphij    }
96296465Sdelphij    if (t61)
97296465Sdelphij        return (V_ASN1_T61STRING);
98296465Sdelphij    if (ia5)
99296465Sdelphij        return (V_ASN1_IA5STRING);
100296465Sdelphij    return (V_ASN1_PRINTABLESTRING);
101296465Sdelphij}
10255714Skris
10355714Skrisint ASN1_UNIVERSALSTRING_to_string(ASN1_UNIVERSALSTRING *s)
104296465Sdelphij{
105296465Sdelphij    int i;
106296465Sdelphij    unsigned char *p;
10755714Skris
108296465Sdelphij    if (s->type != V_ASN1_UNIVERSALSTRING)
109296465Sdelphij        return (0);
110296465Sdelphij    if ((s->length % 4) != 0)
111296465Sdelphij        return (0);
112296465Sdelphij    p = s->data;
113296465Sdelphij    for (i = 0; i < s->length; i += 4) {
114296465Sdelphij        if ((p[0] != '\0') || (p[1] != '\0') || (p[2] != '\0'))
115296465Sdelphij            break;
116296465Sdelphij        else
117296465Sdelphij            p += 4;
118296465Sdelphij    }
119296465Sdelphij    if (i < s->length)
120296465Sdelphij        return (0);
121296465Sdelphij    p = s->data;
122296465Sdelphij    for (i = 3; i < s->length; i += 4) {
123296465Sdelphij        *(p++) = s->data[i];
124296465Sdelphij    }
125296465Sdelphij    *(p) = '\0';
126296465Sdelphij    s->length /= 4;
127296465Sdelphij    s->type = ASN1_PRINTABLE_type(s->data, s->length);
128296465Sdelphij    return (1);
129296465Sdelphij}
130