This is a fork of the mbed port of axTLS

Dependents:   TLS_axTLS-Example HTTPSClientExample

Overview

This library is a fork from the mbed port of axTLS. It attempts to :

  • reduce the usage of dynamic memory
  • verify certificates with key size up to 2048 bits
  • provide a simple interface

Encryption

This library uses either RC4 or AES for encryption.

Memory usage

During the establishment of a connection, about 10KB of memory is allocated dynamically (it depends on certificates). Once the connection is established, the memory consumption is relatively low. This means that your program must not use too much static memory or allocate memory before you establish a TLS connection.

Certificates

Certificates are the major source of problem and will often be the reason why your program will crash. Due to memory constraint, there are some limitations on certificates :

  • Each certificate must not be bigger than 2KB
  • TLS client can only handle a chain of up to three certificates (excluding the root certificate). This means that the server must not send more than three certificates.

Also, this library can only load certificates following these specifications :

  • encoded in binary DER format (PKCS1)
  • The public key must use RSA only

Once the connection is established, you should free all loaded certificates by calling CertificateManager::clear(). This will free a few kilobytes (it depends on your certificates). In addition, to enable certificate verification during the connection, this library has a "precomputed mode". This mode uses much less memory than a normal certificate verification.

Normal mode

You need to copy the root certificate in binary-DER format on the mbed. Then in your code, let's say that your root certificate is saved on the mbed as "root.der", assuming that you include CertificateManager.h and that you created a LocalFileSystem, you can load this certificate as this ;

Load root certificate

CertificateManager::add("/local/root.der");
CertificateManager::load();

Do not forget that this mode takes quite a lot of memory ( the memory peak is high while verifying certificates) and will only work if the key size is not bigger than 1024 bits (otherwise it will crash while verifying certificates).

Precomputed mode

In this mode, you need to save the entire chain of certificates (in binary-DER format) including the root certificate on the mbed. In practice, this means that you must first retrieve all certificates that the server sends during a connection and then find the right root certificate. In your code, you must call CertificateManager::add for each certificate and in the right order : from the server certificate to the root certificate. Here is how you shoud load certificates in this mode :

Loadcertificates in precomputed mode

CertificateManager::add("/local/server1.der");
CertificateManager::add("/local/server2.der");
CertificateManager::add("/local/server3.der");
CertificateManager::add("/local/root.der");
CertificateManager::load(true);

Using this mode, you should be able to verify certificates with key size up to 2048 bits.

How do I find these certificates ?

I posted an entry in my notebook detailing how to get certificates from a server. You should be able to get all certificates you need except the root certificate. Here is a way how to get the root certificate on windows :

  1. Open (double-click) the last certificate sent by the server
  2. Go to details panel and click on the entry called Issuer. The first line gives you the name of this certificate and the second line indicates the company who created this certificate
  3. Open firefox
  4. Go to options, advanced panel and click on View Certificates
  5. Go to Authorities panel
  6. Choose the certificate whose name match the issuer of the last certificate sent by the server
  7. Export this certificate to binary-DER format.

Connect to mbed.org !

Import programTLS_axTLS-Example

Establishing a connection to mbed.org using TLS

Committer:
feb11
Date:
Thu Sep 12 15:18:04 2013 +0000
Revision:
0:85fceccc1a7c
intial import

Who changed what in which revision?

UserRevisionLine numberNew contents of line
feb11 0:85fceccc1a7c 1 /*
feb11 0:85fceccc1a7c 2 * Copyright (c) 2007, Cameron Rich
feb11 0:85fceccc1a7c 3 *
feb11 0:85fceccc1a7c 4 * All rights reserved.
feb11 0:85fceccc1a7c 5 *
feb11 0:85fceccc1a7c 6 * Redistribution and use in source and binary forms, with or without
feb11 0:85fceccc1a7c 7 * modification, are permitted provided that the following conditions are met:
feb11 0:85fceccc1a7c 8 *
feb11 0:85fceccc1a7c 9 * * Redistributions of source code must retain the above copyright notice,
feb11 0:85fceccc1a7c 10 * this list of conditions and the following disclaimer.
feb11 0:85fceccc1a7c 11 * * Redistributions in binary form must reproduce the above copyright notice,
feb11 0:85fceccc1a7c 12 * this list of conditions and the following disclaimer in the documentation
feb11 0:85fceccc1a7c 13 * and/or other materials provided with the distribution.
feb11 0:85fceccc1a7c 14 * * Neither the name of the axTLS project nor the names of its contributors
feb11 0:85fceccc1a7c 15 * may be used to endorse or promote products derived from this software
feb11 0:85fceccc1a7c 16 * without specific prior written permission.
feb11 0:85fceccc1a7c 17 *
feb11 0:85fceccc1a7c 18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
feb11 0:85fceccc1a7c 19 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
feb11 0:85fceccc1a7c 20 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
feb11 0:85fceccc1a7c 21 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
feb11 0:85fceccc1a7c 22 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
feb11 0:85fceccc1a7c 23 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
feb11 0:85fceccc1a7c 24 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
feb11 0:85fceccc1a7c 25 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
feb11 0:85fceccc1a7c 26 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
feb11 0:85fceccc1a7c 27 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
feb11 0:85fceccc1a7c 28 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
feb11 0:85fceccc1a7c 29 */
feb11 0:85fceccc1a7c 30
feb11 0:85fceccc1a7c 31 /**
feb11 0:85fceccc1a7c 32 * Process PKCS#8/PKCS#12 keys.
feb11 0:85fceccc1a7c 33 *
feb11 0:85fceccc1a7c 34 * The decoding of a PKCS#12 key is fairly specific - this code was tested on a
feb11 0:85fceccc1a7c 35 * key generated with:
feb11 0:85fceccc1a7c 36 *
feb11 0:85fceccc1a7c 37 * openssl pkcs12 -export -in axTLS.x509_1024.pem -inkey axTLS.key_1024.pem
feb11 0:85fceccc1a7c 38 * -keypbe PBE-SHA1-RC4-128 -certpbe PBE-SHA1-RC4-128
feb11 0:85fceccc1a7c 39 * -name "p12_withoutCA" -out axTLS.withoutCA.p12 -password pass:abcd
feb11 0:85fceccc1a7c 40 *
feb11 0:85fceccc1a7c 41 * or with a certificate chain:
feb11 0:85fceccc1a7c 42 *
feb11 0:85fceccc1a7c 43 * openssl pkcs12 -export -in axTLS.x509_1024.pem -inkey axTLS.key_1024.pem
feb11 0:85fceccc1a7c 44 * -certfile axTLS.ca_x509.pem -keypbe PBE-SHA1-RC4-128 -certpbe
feb11 0:85fceccc1a7c 45 * PBE-SHA1-RC4-128 -name "p12_withCA" -out axTLS.withCA.p12 -password pass:abcd
feb11 0:85fceccc1a7c 46 *
feb11 0:85fceccc1a7c 47 * Note that the PBE has to be specified with PBE-SHA1-RC4-128. The
feb11 0:85fceccc1a7c 48 * private/public keys/certs have to use RSA encryption. Both the integrity
feb11 0:85fceccc1a7c 49 * and privacy passwords are the same.
feb11 0:85fceccc1a7c 50 *
feb11 0:85fceccc1a7c 51 * The PKCS#8 files were generated with something like:
feb11 0:85fceccc1a7c 52 *
feb11 0:85fceccc1a7c 53 * PEM format:
feb11 0:85fceccc1a7c 54 * openssl pkcs8 -in axTLS.key_512.pem -passout pass:abcd -topk8 -v1
feb11 0:85fceccc1a7c 55 * PBE-SHA1-RC4-128 -out axTLS.encrypted_pem.p8
feb11 0:85fceccc1a7c 56 *
feb11 0:85fceccc1a7c 57 * DER format:
feb11 0:85fceccc1a7c 58 * openssl pkcs8 -in axTLS.key_512.pem -passout pass:abcd -topk8 -outform DER
feb11 0:85fceccc1a7c 59 * -v1 PBE-SHA1-RC4-128 -out axTLS.encrypted.p8
feb11 0:85fceccc1a7c 60 */
feb11 0:85fceccc1a7c 61
feb11 0:85fceccc1a7c 62 #include <stdlib.h>
feb11 0:85fceccc1a7c 63 #include <string.h>
feb11 0:85fceccc1a7c 64 #include <stdio.h>
feb11 0:85fceccc1a7c 65 #include "os_port.h"
feb11 0:85fceccc1a7c 66 #include "ssl.h"
feb11 0:85fceccc1a7c 67
feb11 0:85fceccc1a7c 68 /* all commented out if not used */
feb11 0:85fceccc1a7c 69 #ifdef CONFIG_SSL_USE_PKCS12
feb11 0:85fceccc1a7c 70
feb11 0:85fceccc1a7c 71 #define BLOCK_SIZE 64
feb11 0:85fceccc1a7c 72 #define PKCS12_KEY_ID 1
feb11 0:85fceccc1a7c 73 #define PKCS12_IV_ID 2
feb11 0:85fceccc1a7c 74 #define PKCS12_MAC_ID 3
feb11 0:85fceccc1a7c 75
feb11 0:85fceccc1a7c 76 static char *make_uni_pass(const char *password, int *uni_pass_len);
feb11 0:85fceccc1a7c 77 static int p8_decrypt(const char *uni_pass, int uni_pass_len,
feb11 0:85fceccc1a7c 78 const uint8_t *salt, int iter,
feb11 0:85fceccc1a7c 79 uint8_t *priv_key, int priv_key_len, int id);
feb11 0:85fceccc1a7c 80 static int p8_add_key(SSL_CTX *ssl_ctx, uint8_t *priv_key);
feb11 0:85fceccc1a7c 81 static int get_pbe_params(uint8_t *buf, int *offset,
feb11 0:85fceccc1a7c 82 const uint8_t **salt, int *iterations);
feb11 0:85fceccc1a7c 83
feb11 0:85fceccc1a7c 84 /*
feb11 0:85fceccc1a7c 85 * Take a raw pkcs8 block and then decrypt it and turn it into a normal key.
feb11 0:85fceccc1a7c 86 */
feb11 0:85fceccc1a7c 87 int pkcs8_decode(SSL_CTX *ssl_ctx, SSLObjLoader *ssl_obj, const char *password)
feb11 0:85fceccc1a7c 88 {
feb11 0:85fceccc1a7c 89 uint8_t *buf = ssl_obj->buf;
feb11 0:85fceccc1a7c 90 int len, offset = 0;
feb11 0:85fceccc1a7c 91 int iterations;
feb11 0:85fceccc1a7c 92 int ret = SSL_NOT_OK;
feb11 0:85fceccc1a7c 93 uint8_t *version = NULL;
feb11 0:85fceccc1a7c 94 const uint8_t *salt;
feb11 0:85fceccc1a7c 95 uint8_t *priv_key;
feb11 0:85fceccc1a7c 96 int uni_pass_len;
feb11 0:85fceccc1a7c 97 char *uni_pass = make_uni_pass(password, &uni_pass_len);
feb11 0:85fceccc1a7c 98
feb11 0:85fceccc1a7c 99 if (asn1_next_obj(buf, &offset, ASN1_SEQUENCE) < 0)
feb11 0:85fceccc1a7c 100 {
feb11 0:85fceccc1a7c 101 #ifdef CONFIG_SSL_FULL_MODE
feb11 0:85fceccc1a7c 102 printf("Error: Invalid p8 ASN.1 file\n");
feb11 0:85fceccc1a7c 103 #endif
feb11 0:85fceccc1a7c 104 goto error;
feb11 0:85fceccc1a7c 105 }
feb11 0:85fceccc1a7c 106
feb11 0:85fceccc1a7c 107 /* unencrypted key? */
feb11 0:85fceccc1a7c 108 if (asn1_get_int(buf, &offset, &version) > 0 && *version == 0)
feb11 0:85fceccc1a7c 109 {
feb11 0:85fceccc1a7c 110 ret = p8_add_key(ssl_ctx, buf);
feb11 0:85fceccc1a7c 111 goto error;
feb11 0:85fceccc1a7c 112 }
feb11 0:85fceccc1a7c 113
feb11 0:85fceccc1a7c 114 if (get_pbe_params(buf, &offset, &salt, &iterations) < 0)
feb11 0:85fceccc1a7c 115 goto error;
feb11 0:85fceccc1a7c 116
feb11 0:85fceccc1a7c 117 if ((len = asn1_next_obj(buf, &offset, ASN1_OCTET_STRING)) < 0)
feb11 0:85fceccc1a7c 118 goto error;
feb11 0:85fceccc1a7c 119
feb11 0:85fceccc1a7c 120 priv_key = &buf[offset];
feb11 0:85fceccc1a7c 121
feb11 0:85fceccc1a7c 122 p8_decrypt(uni_pass, uni_pass_len, salt,
feb11 0:85fceccc1a7c 123 iterations, priv_key, len, PKCS12_KEY_ID);
feb11 0:85fceccc1a7c 124 ret = p8_add_key(ssl_ctx, priv_key);
feb11 0:85fceccc1a7c 125
feb11 0:85fceccc1a7c 126 error:
feb11 0:85fceccc1a7c 127 free(version);
feb11 0:85fceccc1a7c 128 free(uni_pass);
feb11 0:85fceccc1a7c 129 return ret;
feb11 0:85fceccc1a7c 130 }
feb11 0:85fceccc1a7c 131
feb11 0:85fceccc1a7c 132 /*
feb11 0:85fceccc1a7c 133 * Take the unencrypted pkcs8 and turn it into a private key
feb11 0:85fceccc1a7c 134 */
feb11 0:85fceccc1a7c 135 static int p8_add_key(SSL_CTX *ssl_ctx, uint8_t *priv_key)
feb11 0:85fceccc1a7c 136 {
feb11 0:85fceccc1a7c 137 uint8_t *buf = priv_key;
feb11 0:85fceccc1a7c 138 int len, offset = 0;
feb11 0:85fceccc1a7c 139 int ret = SSL_NOT_OK;
feb11 0:85fceccc1a7c 140
feb11 0:85fceccc1a7c 141 /* Skip the preamble and go straight to the private key.
feb11 0:85fceccc1a7c 142 We only support rsaEncryption (1.2.840.113549.1.1.1) */
feb11 0:85fceccc1a7c 143 if (asn1_next_obj(buf, &offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 144 asn1_skip_obj(buf, &offset, ASN1_INTEGER) < 0 ||
feb11 0:85fceccc1a7c 145 asn1_skip_obj(buf, &offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 146 (len = asn1_next_obj(buf, &offset, ASN1_OCTET_STRING)) < 0)
feb11 0:85fceccc1a7c 147 goto error;
feb11 0:85fceccc1a7c 148
feb11 0:85fceccc1a7c 149 ret = asn1_get_private_key(&buf[offset], len, &ssl_ctx->rsa_ctx);
feb11 0:85fceccc1a7c 150
feb11 0:85fceccc1a7c 151 error:
feb11 0:85fceccc1a7c 152 return ret;
feb11 0:85fceccc1a7c 153 }
feb11 0:85fceccc1a7c 154
feb11 0:85fceccc1a7c 155 /*
feb11 0:85fceccc1a7c 156 * Create the unicode password
feb11 0:85fceccc1a7c 157 */
feb11 0:85fceccc1a7c 158 static char *make_uni_pass(const char *password, int *uni_pass_len)
feb11 0:85fceccc1a7c 159 {
feb11 0:85fceccc1a7c 160 int pass_len = 0, i;
feb11 0:85fceccc1a7c 161 char *uni_pass;
feb11 0:85fceccc1a7c 162
feb11 0:85fceccc1a7c 163 if (password == NULL)
feb11 0:85fceccc1a7c 164 {
feb11 0:85fceccc1a7c 165 password = "";
feb11 0:85fceccc1a7c 166 }
feb11 0:85fceccc1a7c 167
feb11 0:85fceccc1a7c 168 uni_pass = (char *)malloc((strlen(password)+1)*2);
feb11 0:85fceccc1a7c 169
feb11 0:85fceccc1a7c 170 /* modify the password into a unicode version */
feb11 0:85fceccc1a7c 171 for (i = 0; i < (int)strlen(password); i++)
feb11 0:85fceccc1a7c 172 {
feb11 0:85fceccc1a7c 173 uni_pass[pass_len++] = 0;
feb11 0:85fceccc1a7c 174 uni_pass[pass_len++] = password[i];
feb11 0:85fceccc1a7c 175 }
feb11 0:85fceccc1a7c 176
feb11 0:85fceccc1a7c 177 uni_pass[pass_len++] = 0; /* null terminate */
feb11 0:85fceccc1a7c 178 uni_pass[pass_len++] = 0;
feb11 0:85fceccc1a7c 179 *uni_pass_len = pass_len;
feb11 0:85fceccc1a7c 180 return uni_pass;
feb11 0:85fceccc1a7c 181 }
feb11 0:85fceccc1a7c 182
feb11 0:85fceccc1a7c 183 /*
feb11 0:85fceccc1a7c 184 * Decrypt a pkcs8 block.
feb11 0:85fceccc1a7c 185 */
feb11 0:85fceccc1a7c 186 static int p8_decrypt(const char *uni_pass, int uni_pass_len,
feb11 0:85fceccc1a7c 187 const uint8_t *salt, int iter,
feb11 0:85fceccc1a7c 188 uint8_t *priv_key, int priv_key_len, int id)
feb11 0:85fceccc1a7c 189 {
feb11 0:85fceccc1a7c 190 uint8_t p[BLOCK_SIZE*2];
feb11 0:85fceccc1a7c 191 uint8_t d[BLOCK_SIZE];
feb11 0:85fceccc1a7c 192 uint8_t Ai[SHA1_SIZE];
feb11 0:85fceccc1a7c 193 SHA1_CTX sha_ctx;
feb11 0:85fceccc1a7c 194 RC4_CTX rc4_ctx;
feb11 0:85fceccc1a7c 195 int i;
feb11 0:85fceccc1a7c 196
feb11 0:85fceccc1a7c 197 for (i = 0; i < BLOCK_SIZE; i++)
feb11 0:85fceccc1a7c 198 {
feb11 0:85fceccc1a7c 199 p[i] = salt[i % SALT_SIZE];
feb11 0:85fceccc1a7c 200 p[BLOCK_SIZE+i] = uni_pass[i % uni_pass_len];
feb11 0:85fceccc1a7c 201 d[i] = id;
feb11 0:85fceccc1a7c 202 }
feb11 0:85fceccc1a7c 203
feb11 0:85fceccc1a7c 204 /* get the key - no IV since we are using RC4 */
feb11 0:85fceccc1a7c 205 SHA1_Init(&sha_ctx);
feb11 0:85fceccc1a7c 206 SHA1_Update(&sha_ctx, d, sizeof(d));
feb11 0:85fceccc1a7c 207 SHA1_Update(&sha_ctx, p, sizeof(p));
feb11 0:85fceccc1a7c 208 SHA1_Final(Ai, &sha_ctx);
feb11 0:85fceccc1a7c 209
feb11 0:85fceccc1a7c 210 for (i = 1; i < iter; i++)
feb11 0:85fceccc1a7c 211 {
feb11 0:85fceccc1a7c 212 SHA1_Init(&sha_ctx);
feb11 0:85fceccc1a7c 213 SHA1_Update(&sha_ctx, Ai, SHA1_SIZE);
feb11 0:85fceccc1a7c 214 SHA1_Final(Ai, &sha_ctx);
feb11 0:85fceccc1a7c 215 }
feb11 0:85fceccc1a7c 216
feb11 0:85fceccc1a7c 217 /* do the decryption */
feb11 0:85fceccc1a7c 218 if (id == PKCS12_KEY_ID)
feb11 0:85fceccc1a7c 219 {
feb11 0:85fceccc1a7c 220 RC4_setup(&rc4_ctx, Ai, 16);
feb11 0:85fceccc1a7c 221 RC4_crypt(&rc4_ctx, priv_key, priv_key, priv_key_len);
feb11 0:85fceccc1a7c 222 }
feb11 0:85fceccc1a7c 223 else /* MAC */
feb11 0:85fceccc1a7c 224 memcpy(priv_key, Ai, SHA1_SIZE);
feb11 0:85fceccc1a7c 225
feb11 0:85fceccc1a7c 226 return 0;
feb11 0:85fceccc1a7c 227 }
feb11 0:85fceccc1a7c 228
feb11 0:85fceccc1a7c 229 /*
feb11 0:85fceccc1a7c 230 * Take a raw pkcs12 block and the decrypt it and turn it into a certificate(s)
feb11 0:85fceccc1a7c 231 * and keys.
feb11 0:85fceccc1a7c 232 */
feb11 0:85fceccc1a7c 233 int pkcs12_decode(SSL_CTX *ssl_ctx, SSLObjLoader *ssl_obj, const char *password)
feb11 0:85fceccc1a7c 234 {
feb11 0:85fceccc1a7c 235 uint8_t *buf = ssl_obj->buf;
feb11 0:85fceccc1a7c 236 int len, iterations, auth_safes_start,
feb11 0:85fceccc1a7c 237 auth_safes_end, auth_safes_len, key_offset, offset = 0;
feb11 0:85fceccc1a7c 238 int all_certs = 0;
feb11 0:85fceccc1a7c 239 uint8_t *version = NULL, *auth_safes = NULL, *cert, *orig_mac;
feb11 0:85fceccc1a7c 240 uint8_t key[SHA1_SIZE];
feb11 0:85fceccc1a7c 241 uint8_t mac[SHA1_SIZE];
feb11 0:85fceccc1a7c 242 const uint8_t *salt;
feb11 0:85fceccc1a7c 243 int uni_pass_len, ret = SSL_OK;
feb11 0:85fceccc1a7c 244 char *uni_pass = make_uni_pass(password, &uni_pass_len);
feb11 0:85fceccc1a7c 245 static const uint8_t pkcs_data[] = /* pkc7 data */
feb11 0:85fceccc1a7c 246 { 0x2a, 0x86, 0x48, 0x86, 0xf7, 0x0d, 0x01, 0x07, 0x01 };
feb11 0:85fceccc1a7c 247 static const uint8_t pkcs_encrypted[] = /* pkc7 encrypted */
feb11 0:85fceccc1a7c 248 { 0x2a, 0x86, 0x48, 0x86, 0xf7, 0x0d, 0x01, 0x07, 0x06 };
feb11 0:85fceccc1a7c 249 static const uint8_t pkcs8_key_bag[] = /* 1.2.840.113549.1.12.10.1.2 */
feb11 0:85fceccc1a7c 250 { 0x2a, 0x86, 0x48, 0x86, 0xf7, 0x0d, 0x01, 0x0c, 0x0a, 0x01, 0x02 };
feb11 0:85fceccc1a7c 251
feb11 0:85fceccc1a7c 252 if (asn1_next_obj(buf, &offset, ASN1_SEQUENCE) < 0)
feb11 0:85fceccc1a7c 253 {
feb11 0:85fceccc1a7c 254 #ifdef CONFIG_SSL_FULL_MODE
feb11 0:85fceccc1a7c 255 printf("Error: Invalid p12 ASN.1 file\n");
feb11 0:85fceccc1a7c 256 #endif
feb11 0:85fceccc1a7c 257 goto error;
feb11 0:85fceccc1a7c 258 }
feb11 0:85fceccc1a7c 259
feb11 0:85fceccc1a7c 260 if (asn1_get_int(buf, &offset, &version) < 0 || *version != 3)
feb11 0:85fceccc1a7c 261 {
feb11 0:85fceccc1a7c 262 ret = SSL_ERROR_INVALID_VERSION;
feb11 0:85fceccc1a7c 263 goto error;
feb11 0:85fceccc1a7c 264 }
feb11 0:85fceccc1a7c 265
feb11 0:85fceccc1a7c 266 /* remove all the boring pcks7 bits */
feb11 0:85fceccc1a7c 267 if (asn1_next_obj(buf, &offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 268 (len = asn1_next_obj(buf, &offset, ASN1_OID)) < 0 ||
feb11 0:85fceccc1a7c 269 len != sizeof(pkcs_data) ||
feb11 0:85fceccc1a7c 270 memcmp(&buf[offset], pkcs_data, sizeof(pkcs_data)))
feb11 0:85fceccc1a7c 271 goto error;
feb11 0:85fceccc1a7c 272
feb11 0:85fceccc1a7c 273 offset += len;
feb11 0:85fceccc1a7c 274
feb11 0:85fceccc1a7c 275 if (asn1_next_obj(buf, &offset, ASN1_EXPLICIT_TAG) < 0 ||
feb11 0:85fceccc1a7c 276 asn1_next_obj(buf, &offset, ASN1_OCTET_STRING) < 0)
feb11 0:85fceccc1a7c 277 goto error;
feb11 0:85fceccc1a7c 278
feb11 0:85fceccc1a7c 279 /* work out the MAC start/end points (done on AuthSafes) */
feb11 0:85fceccc1a7c 280 auth_safes_start = offset;
feb11 0:85fceccc1a7c 281 auth_safes_end = offset;
feb11 0:85fceccc1a7c 282 if (asn1_skip_obj(buf, &auth_safes_end, ASN1_SEQUENCE) < 0)
feb11 0:85fceccc1a7c 283 goto error;
feb11 0:85fceccc1a7c 284
feb11 0:85fceccc1a7c 285 auth_safes_len = auth_safes_end - auth_safes_start;
feb11 0:85fceccc1a7c 286 auth_safes = malloc(auth_safes_len);
feb11 0:85fceccc1a7c 287
feb11 0:85fceccc1a7c 288 memcpy(auth_safes, &buf[auth_safes_start], auth_safes_len);
feb11 0:85fceccc1a7c 289
feb11 0:85fceccc1a7c 290 if (asn1_next_obj(buf, &offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 291 asn1_next_obj(buf, &offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 292 (len = asn1_next_obj(buf, &offset, ASN1_OID)) < 0 ||
feb11 0:85fceccc1a7c 293 (len != sizeof(pkcs_encrypted) ||
feb11 0:85fceccc1a7c 294 memcmp(&buf[offset], pkcs_encrypted, sizeof(pkcs_encrypted))))
feb11 0:85fceccc1a7c 295 goto error;
feb11 0:85fceccc1a7c 296
feb11 0:85fceccc1a7c 297 offset += len;
feb11 0:85fceccc1a7c 298
feb11 0:85fceccc1a7c 299 if (asn1_next_obj(buf, &offset, ASN1_EXPLICIT_TAG) < 0 ||
feb11 0:85fceccc1a7c 300 asn1_next_obj(buf, &offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 301 asn1_skip_obj(buf, &offset, ASN1_INTEGER) < 0 ||
feb11 0:85fceccc1a7c 302 asn1_next_obj(buf, &offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 303 (len = asn1_next_obj(buf, &offset, ASN1_OID)) < 0 ||
feb11 0:85fceccc1a7c 304 len != sizeof(pkcs_data) ||
feb11 0:85fceccc1a7c 305 memcmp(&buf[offset], pkcs_data, sizeof(pkcs_data)))
feb11 0:85fceccc1a7c 306 goto error;
feb11 0:85fceccc1a7c 307
feb11 0:85fceccc1a7c 308 offset += len;
feb11 0:85fceccc1a7c 309
feb11 0:85fceccc1a7c 310 /* work out the salt for the certificate */
feb11 0:85fceccc1a7c 311 if (get_pbe_params(buf, &offset, &salt, &iterations) < 0 ||
feb11 0:85fceccc1a7c 312 (len = asn1_next_obj(buf, &offset, ASN1_IMPLICIT_TAG)) < 0)
feb11 0:85fceccc1a7c 313 goto error;
feb11 0:85fceccc1a7c 314
feb11 0:85fceccc1a7c 315 /* decrypt the certificate */
feb11 0:85fceccc1a7c 316 cert = &buf[offset];
feb11 0:85fceccc1a7c 317 if ((ret = p8_decrypt(uni_pass, uni_pass_len, salt, iterations, cert,
feb11 0:85fceccc1a7c 318 len, PKCS12_KEY_ID)) < 0)
feb11 0:85fceccc1a7c 319 goto error;
feb11 0:85fceccc1a7c 320
feb11 0:85fceccc1a7c 321 offset += len;
feb11 0:85fceccc1a7c 322
feb11 0:85fceccc1a7c 323 /* load the certificate */
feb11 0:85fceccc1a7c 324 key_offset = 0;
feb11 0:85fceccc1a7c 325 all_certs = asn1_next_obj(cert, &key_offset, ASN1_SEQUENCE);
feb11 0:85fceccc1a7c 326
feb11 0:85fceccc1a7c 327 /* keep going until all certs are loaded */
feb11 0:85fceccc1a7c 328 while (key_offset < all_certs)
feb11 0:85fceccc1a7c 329 {
feb11 0:85fceccc1a7c 330 int cert_offset = key_offset;
feb11 0:85fceccc1a7c 331
feb11 0:85fceccc1a7c 332 if (asn1_skip_obj(cert, &cert_offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 333 asn1_next_obj(cert, &key_offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 334 asn1_skip_obj(cert, &key_offset, ASN1_OID) < 0 ||
feb11 0:85fceccc1a7c 335 asn1_next_obj(cert, &key_offset, ASN1_EXPLICIT_TAG) < 0 ||
feb11 0:85fceccc1a7c 336 asn1_next_obj(cert, &key_offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 337 asn1_skip_obj(cert, &key_offset, ASN1_OID) < 0 ||
feb11 0:85fceccc1a7c 338 asn1_next_obj(cert, &key_offset, ASN1_EXPLICIT_TAG) < 0 ||
feb11 0:85fceccc1a7c 339 (len = asn1_next_obj(cert, &key_offset, ASN1_OCTET_STRING)) < 0)
feb11 0:85fceccc1a7c 340 goto error;
feb11 0:85fceccc1a7c 341
feb11 0:85fceccc1a7c 342 if ((ret = add_cert(ssl_ctx, &cert[key_offset], len)) < 0)
feb11 0:85fceccc1a7c 343 goto error;
feb11 0:85fceccc1a7c 344
feb11 0:85fceccc1a7c 345 key_offset = cert_offset;
feb11 0:85fceccc1a7c 346 }
feb11 0:85fceccc1a7c 347
feb11 0:85fceccc1a7c 348 if (asn1_next_obj(buf, &offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 349 (len = asn1_next_obj(buf, &offset, ASN1_OID)) < 0 ||
feb11 0:85fceccc1a7c 350 len != sizeof(pkcs_data) ||
feb11 0:85fceccc1a7c 351 memcmp(&buf[offset], pkcs_data, sizeof(pkcs_data)))
feb11 0:85fceccc1a7c 352 goto error;
feb11 0:85fceccc1a7c 353
feb11 0:85fceccc1a7c 354 offset += len;
feb11 0:85fceccc1a7c 355
feb11 0:85fceccc1a7c 356 if (asn1_next_obj(buf, &offset, ASN1_EXPLICIT_TAG) < 0 ||
feb11 0:85fceccc1a7c 357 asn1_next_obj(buf, &offset, ASN1_OCTET_STRING) < 0 ||
feb11 0:85fceccc1a7c 358 asn1_next_obj(buf, &offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 359 asn1_next_obj(buf, &offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 360 (len = asn1_next_obj(buf, &offset, ASN1_OID)) < 0 ||
feb11 0:85fceccc1a7c 361 (len != sizeof(pkcs8_key_bag)) ||
feb11 0:85fceccc1a7c 362 memcmp(&buf[offset], pkcs8_key_bag, sizeof(pkcs8_key_bag)))
feb11 0:85fceccc1a7c 363 goto error;
feb11 0:85fceccc1a7c 364
feb11 0:85fceccc1a7c 365 offset += len;
feb11 0:85fceccc1a7c 366
feb11 0:85fceccc1a7c 367 /* work out the salt for the private key */
feb11 0:85fceccc1a7c 368 if (asn1_next_obj(buf, &offset, ASN1_EXPLICIT_TAG) < 0 ||
feb11 0:85fceccc1a7c 369 asn1_next_obj(buf, &offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 370 get_pbe_params(buf, &offset, &salt, &iterations) < 0 ||
feb11 0:85fceccc1a7c 371 (len = asn1_next_obj(buf, &offset, ASN1_OCTET_STRING)) < 0)
feb11 0:85fceccc1a7c 372 goto error;
feb11 0:85fceccc1a7c 373
feb11 0:85fceccc1a7c 374 /* decrypt the private key */
feb11 0:85fceccc1a7c 375 cert = &buf[offset];
feb11 0:85fceccc1a7c 376 if ((ret = p8_decrypt(uni_pass, uni_pass_len, salt, iterations, cert,
feb11 0:85fceccc1a7c 377 len, PKCS12_KEY_ID)) < 0)
feb11 0:85fceccc1a7c 378 goto error;
feb11 0:85fceccc1a7c 379
feb11 0:85fceccc1a7c 380 offset += len;
feb11 0:85fceccc1a7c 381
feb11 0:85fceccc1a7c 382 /* load the private key */
feb11 0:85fceccc1a7c 383 if ((ret = p8_add_key(ssl_ctx, cert)) < 0)
feb11 0:85fceccc1a7c 384 goto error;
feb11 0:85fceccc1a7c 385
feb11 0:85fceccc1a7c 386 /* miss out on friendly name, local key id etc */
feb11 0:85fceccc1a7c 387 if (asn1_skip_obj(buf, &offset, ASN1_SET) < 0)
feb11 0:85fceccc1a7c 388 goto error;
feb11 0:85fceccc1a7c 389
feb11 0:85fceccc1a7c 390 /* work out the MAC */
feb11 0:85fceccc1a7c 391 if (asn1_next_obj(buf, &offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 392 asn1_next_obj(buf, &offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 393 asn1_skip_obj(buf, &offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 394 (len = asn1_next_obj(buf, &offset, ASN1_OCTET_STRING)) < 0 ||
feb11 0:85fceccc1a7c 395 len != SHA1_SIZE)
feb11 0:85fceccc1a7c 396 goto error;
feb11 0:85fceccc1a7c 397
feb11 0:85fceccc1a7c 398 orig_mac = &buf[offset];
feb11 0:85fceccc1a7c 399 offset += len;
feb11 0:85fceccc1a7c 400
feb11 0:85fceccc1a7c 401 /* get the salt */
feb11 0:85fceccc1a7c 402 if ((len = asn1_next_obj(buf, &offset, ASN1_OCTET_STRING)) < 0 || len != 8)
feb11 0:85fceccc1a7c 403 goto error;
feb11 0:85fceccc1a7c 404
feb11 0:85fceccc1a7c 405 salt = &buf[offset];
feb11 0:85fceccc1a7c 406
feb11 0:85fceccc1a7c 407 /* work out what the mac should be */
feb11 0:85fceccc1a7c 408 if ((ret = p8_decrypt(uni_pass, uni_pass_len, salt, iterations,
feb11 0:85fceccc1a7c 409 key, SHA1_SIZE, PKCS12_MAC_ID)) < 0)
feb11 0:85fceccc1a7c 410 goto error;
feb11 0:85fceccc1a7c 411
feb11 0:85fceccc1a7c 412 hmac_sha1(auth_safes, auth_safes_len, key, SHA1_SIZE, mac);
feb11 0:85fceccc1a7c 413
feb11 0:85fceccc1a7c 414 if (memcmp(mac, orig_mac, SHA1_SIZE))
feb11 0:85fceccc1a7c 415 {
feb11 0:85fceccc1a7c 416 ret = SSL_ERROR_INVALID_HMAC;
feb11 0:85fceccc1a7c 417 goto error;
feb11 0:85fceccc1a7c 418 }
feb11 0:85fceccc1a7c 419
feb11 0:85fceccc1a7c 420 error:
feb11 0:85fceccc1a7c 421 free(version);
feb11 0:85fceccc1a7c 422 free(uni_pass);
feb11 0:85fceccc1a7c 423 free(auth_safes);
feb11 0:85fceccc1a7c 424 return ret;
feb11 0:85fceccc1a7c 425 }
feb11 0:85fceccc1a7c 426
feb11 0:85fceccc1a7c 427 /*
feb11 0:85fceccc1a7c 428 * Retrieve the salt/iteration details from a PBE block.
feb11 0:85fceccc1a7c 429 */
feb11 0:85fceccc1a7c 430 static int get_pbe_params(uint8_t *buf, int *offset,
feb11 0:85fceccc1a7c 431 const uint8_t **salt, int *iterations)
feb11 0:85fceccc1a7c 432 {
feb11 0:85fceccc1a7c 433 static const uint8_t pbeSH1RC4[] = /* pbeWithSHAAnd128BitRC4 */
feb11 0:85fceccc1a7c 434 { 0x2a, 0x86, 0x48, 0x86, 0xf7, 0x0d, 0x01, 0x0c, 0x01, 0x01 };
feb11 0:85fceccc1a7c 435
feb11 0:85fceccc1a7c 436 int i, len;
feb11 0:85fceccc1a7c 437 uint8_t *iter = NULL;
feb11 0:85fceccc1a7c 438 int error_code = SSL_ERROR_NOT_SUPPORTED;
feb11 0:85fceccc1a7c 439
feb11 0:85fceccc1a7c 440 /* Get the PBE type */
feb11 0:85fceccc1a7c 441 if (asn1_next_obj(buf, offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 442 (len = asn1_next_obj(buf, offset, ASN1_OID)) < 0)
feb11 0:85fceccc1a7c 443 goto error;
feb11 0:85fceccc1a7c 444
feb11 0:85fceccc1a7c 445 /* we expect pbeWithSHAAnd128BitRC4 (1.2.840.113549.1.12.1.1)
feb11 0:85fceccc1a7c 446 which is the only algorithm we support */
feb11 0:85fceccc1a7c 447 if (len != sizeof(pbeSH1RC4) ||
feb11 0:85fceccc1a7c 448 memcmp(&buf[*offset], pbeSH1RC4, sizeof(pbeSH1RC4)))
feb11 0:85fceccc1a7c 449 {
feb11 0:85fceccc1a7c 450 #ifdef CONFIG_SSL_FULL_MODE
feb11 0:85fceccc1a7c 451 printf("Error: pkcs8/pkcs12 must use \"PBE-SHA1-RC4-128\"\n");
feb11 0:85fceccc1a7c 452 #endif
feb11 0:85fceccc1a7c 453 goto error;
feb11 0:85fceccc1a7c 454 }
feb11 0:85fceccc1a7c 455
feb11 0:85fceccc1a7c 456 *offset += len;
feb11 0:85fceccc1a7c 457
feb11 0:85fceccc1a7c 458 if (asn1_next_obj(buf, offset, ASN1_SEQUENCE) < 0 ||
feb11 0:85fceccc1a7c 459 (len = asn1_next_obj(buf, offset, ASN1_OCTET_STRING)) < 0 ||
feb11 0:85fceccc1a7c 460 len != 8)
feb11 0:85fceccc1a7c 461 goto error;
feb11 0:85fceccc1a7c 462
feb11 0:85fceccc1a7c 463 *salt = &buf[*offset];
feb11 0:85fceccc1a7c 464 *offset += len;
feb11 0:85fceccc1a7c 465
feb11 0:85fceccc1a7c 466 if ((len = asn1_get_int(buf, offset, &iter)) < 0)
feb11 0:85fceccc1a7c 467 goto error;
feb11 0:85fceccc1a7c 468
feb11 0:85fceccc1a7c 469 *iterations = 0;
feb11 0:85fceccc1a7c 470 for (i = 0; i < len; i++)
feb11 0:85fceccc1a7c 471 {
feb11 0:85fceccc1a7c 472 (*iterations) <<= 8;
feb11 0:85fceccc1a7c 473 (*iterations) += iter[i];
feb11 0:85fceccc1a7c 474 }
feb11 0:85fceccc1a7c 475
feb11 0:85fceccc1a7c 476 free(iter);
feb11 0:85fceccc1a7c 477 error_code = SSL_OK; /* got here - we are ok */
feb11 0:85fceccc1a7c 478
feb11 0:85fceccc1a7c 479 error:
feb11 0:85fceccc1a7c 480 return error_code;
feb11 0:85fceccc1a7c 481 }
feb11 0:85fceccc1a7c 482
feb11 0:85fceccc1a7c 483 #endif
feb11 0:85fceccc1a7c 484
feb11 0:85fceccc1a7c 485