mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-02-08 15:33:33 +00:00
398f0c16fb
This change makes SSL virtual hosting possible. You can now load
multiple certificates for multiple domains and redbean will just
figure out which one to use, even if you only have 1 ip address.
You can also use a jumbo certificate that lists all your domains
in the the subject alternative names.
This change also makes performance improvements to MbedTLS. Here
are some benchmarks vs. cc1920749e
BEFORE AFTER (microsecs)
suite_ssl.com 2512881 191738 13.11x faster
suite_pkparse.com 36291 3295 11.01x faster
suite_x509parse.com 854669 120293 7.10x faster
suite_pkwrite.com 6549 1265 5.18x faster
suite_ecdsa.com 53347 18778 2.84x faster
suite_pk.com 49051 18717 2.62x faster
suite_ecdh.com 19535 9502 2.06x faster
suite_shax.com 15848 7965 1.99x faster
suite_rsa.com 353257 184828 1.91x faster
suite_x509write.com 162646 85733 1.90x faster
suite_ecp.com 20503 11050 1.86x faster
suite_hmac_drbg.no_reseed.com 19528 11417 1.71x faster
suite_hmac_drbg.nopr.com 12460 8010 1.56x faster
suite_mpi.com 687124 442661 1.55x faster
suite_hmac_drbg.pr.com 11890 7752 1.53x faster
There aren't any special tricks to the performance imporvements.
It's mostly due to code cleanup, assembly and intel instructions
like mulx, adox, and adcx.
413 lines
13 KiB
C
413 lines
13 KiB
C
/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:4;tab-width:4;coding:utf-8 -*-│
|
|
│vi: set net ft=c ts=2 sts=2 sw=2 fenc=utf-8 :vi│
|
|
╞══════════════════════════════════════════════════════════════════════════════╡
|
|
│ Copyright The Mbed TLS Contributors │
|
|
│ │
|
|
│ 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 "libc/mem/mem.h"
|
|
#include "libc/stdio/stdio.h"
|
|
#include "third_party/mbedtls/common.h"
|
|
#include "third_party/mbedtls/error.h"
|
|
#include "third_party/mbedtls/md.h"
|
|
#include "third_party/mbedtls/md5.h"
|
|
#include "third_party/mbedtls/platform.h"
|
|
#include "third_party/mbedtls/sha1.h"
|
|
#include "third_party/mbedtls/sha256.h"
|
|
#include "third_party/mbedtls/sha512.h"
|
|
/* clang-format off */
|
|
|
|
asm(".ident\t\"\\n\\n\
|
|
Mbed TLS (Apache 2.0)\\n\
|
|
Copyright ARM Limited\\n\
|
|
Copyright Mbed TLS Contributors\"");
|
|
asm(".include \"libc/disclaimer.inc\"");
|
|
|
|
/**
|
|
* \file md.c
|
|
*
|
|
* \brief Generic message digest wrapper for mbed TLS
|
|
*
|
|
* \author Adriaan de Jong <dejong@fox-it.com>
|
|
*
|
|
* 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.
|
|
*/
|
|
|
|
#if defined(MBEDTLS_MD_C)
|
|
|
|
#define CHECK(f) \
|
|
do \
|
|
{ \
|
|
if( ( ret = (f) ) ) \
|
|
goto cleanup; \
|
|
} while( 0 )
|
|
|
|
/*
|
|
* Reminder: update profiles in x509_crt.c when adding a new hash!
|
|
*/
|
|
static const uint8_t supported_digests[] = {
|
|
#if defined(MBEDTLS_SHA512_C)
|
|
MBEDTLS_MD_SHA512,
|
|
#if !defined(MBEDTLS_SHA512_NO_SHA384)
|
|
MBEDTLS_MD_SHA384,
|
|
#endif
|
|
#endif
|
|
#if defined(MBEDTLS_SHA256_C)
|
|
MBEDTLS_MD_SHA256,
|
|
MBEDTLS_MD_SHA224,
|
|
#endif
|
|
#if defined(MBEDTLS_SHA1_C)
|
|
MBEDTLS_MD_SHA1,
|
|
#endif
|
|
#if defined(MBEDTLS_MD5_C)
|
|
MBEDTLS_MD_MD5,
|
|
#endif
|
|
#if defined(MBEDTLS_MD4_C)
|
|
MBEDTLS_MD_MD4,
|
|
#endif
|
|
#if defined(MBEDTLS_MD2_C)
|
|
MBEDTLS_MD_MD2,
|
|
#endif
|
|
MBEDTLS_MD_NONE
|
|
};
|
|
|
|
const uint8_t *mbedtls_md_list( void )
|
|
{
|
|
return( supported_digests );
|
|
}
|
|
|
|
const mbedtls_md_info_t *mbedtls_md_info_from_string( const char *md_name )
|
|
{
|
|
if( NULL == md_name )
|
|
return( NULL );
|
|
/* Get the appropriate digest information */
|
|
#if defined(MBEDTLS_MD2_C)
|
|
if( !strcmp( "MD2", md_name ) )
|
|
return mbedtls_md_info_from_type( MBEDTLS_MD_MD2 );
|
|
#endif
|
|
#if defined(MBEDTLS_MD4_C)
|
|
if( !strcmp( "MD4", md_name ) )
|
|
return mbedtls_md_info_from_type( MBEDTLS_MD_MD4 );
|
|
#endif
|
|
#if defined(MBEDTLS_MD5_C)
|
|
if( !strcmp( "MD5", md_name ) )
|
|
return mbedtls_md_info_from_type( MBEDTLS_MD_MD5 );
|
|
#endif
|
|
#if defined(MBEDTLS_SHA1_C)
|
|
if( !strcmp( "SHA1", md_name ) || !strcmp( "SHA", md_name ) )
|
|
return mbedtls_md_info_from_type( MBEDTLS_MD_SHA1 );
|
|
#endif
|
|
#if defined(MBEDTLS_SHA256_C)
|
|
if( !strcmp( "SHA224", md_name ) )
|
|
return mbedtls_md_info_from_type( MBEDTLS_MD_SHA224 );
|
|
if( !strcmp( "SHA256", md_name ) )
|
|
return mbedtls_md_info_from_type( MBEDTLS_MD_SHA256 );
|
|
#endif
|
|
#if defined(MBEDTLS_SHA512_C)
|
|
#if !defined(MBEDTLS_SHA512_NO_SHA384)
|
|
if( !strcmp( "SHA384", md_name ) )
|
|
return mbedtls_md_info_from_type( MBEDTLS_MD_SHA384 );
|
|
#endif
|
|
if( !strcmp( "SHA512", md_name ) )
|
|
return mbedtls_md_info_from_type( MBEDTLS_MD_SHA512 );
|
|
#endif
|
|
return( NULL );
|
|
}
|
|
|
|
const mbedtls_md_info_t *mbedtls_md_info_from_type( mbedtls_md_type_t md_type )
|
|
{
|
|
switch( md_type )
|
|
{
|
|
#if defined(MBEDTLS_MD2_C)
|
|
case MBEDTLS_MD_MD2:
|
|
return( &mbedtls_md2_info );
|
|
#endif
|
|
#if defined(MBEDTLS_MD4_C)
|
|
case MBEDTLS_MD_MD4:
|
|
return( &mbedtls_md4_info );
|
|
#endif
|
|
#if defined(MBEDTLS_MD5_C)
|
|
case MBEDTLS_MD_MD5:
|
|
return( &mbedtls_md5_info );
|
|
#endif
|
|
#if defined(MBEDTLS_SHA1_C)
|
|
case MBEDTLS_MD_SHA1:
|
|
return( &mbedtls_sha1_info );
|
|
#endif
|
|
#if defined(MBEDTLS_SHA256_C)
|
|
case MBEDTLS_MD_SHA224:
|
|
return( &mbedtls_sha224_info );
|
|
case MBEDTLS_MD_SHA256:
|
|
return( &mbedtls_sha256_info );
|
|
#endif
|
|
#if defined(MBEDTLS_SHA512_C)
|
|
#if !defined(MBEDTLS_SHA512_NO_SHA384)
|
|
case MBEDTLS_MD_SHA384:
|
|
return( &mbedtls_sha384_info );
|
|
#endif
|
|
case MBEDTLS_MD_SHA512:
|
|
return( &mbedtls_sha512_info );
|
|
#endif
|
|
default:
|
|
return( NULL );
|
|
}
|
|
}
|
|
|
|
static int16_t GetMdContextSize(mbedtls_md_type_t t)
|
|
{
|
|
switch( t )
|
|
{
|
|
#if defined(MBEDTLS_MD2_C)
|
|
case MBEDTLS_MD_MD2:
|
|
return sizeof(mbedtls_md2_context);
|
|
#endif
|
|
#if defined(MBEDTLS_MD4_C)
|
|
case MBEDTLS_MD_MD4:
|
|
return sizeof(mbedtls_md4_context);
|
|
#endif
|
|
#if defined(MBEDTLS_MD5_C)
|
|
case MBEDTLS_MD_MD5:
|
|
return sizeof(mbedtls_md5_context);
|
|
#endif
|
|
#if defined(MBEDTLS_SHA1_C)
|
|
case MBEDTLS_MD_SHA1:
|
|
return sizeof(mbedtls_sha1_context);
|
|
#endif
|
|
#if defined(MBEDTLS_SHA256_C)
|
|
case MBEDTLS_MD_SHA224:
|
|
case MBEDTLS_MD_SHA256:
|
|
return sizeof(mbedtls_sha256_context);
|
|
#endif
|
|
#if defined(MBEDTLS_SHA512_C)
|
|
#if !defined(MBEDTLS_SHA512_NO_SHA384)
|
|
case MBEDTLS_MD_SHA384:
|
|
#endif
|
|
case MBEDTLS_MD_SHA512:
|
|
return sizeof(mbedtls_sha512_context);
|
|
#endif
|
|
default:
|
|
return( MBEDTLS_ERR_MD_BAD_INPUT_DATA );
|
|
}
|
|
}
|
|
|
|
void mbedtls_md_init( mbedtls_md_context_t *ctx )
|
|
{
|
|
mbedtls_platform_zeroize( ctx, sizeof( mbedtls_md_context_t ) );
|
|
}
|
|
|
|
void mbedtls_md_free( mbedtls_md_context_t *ctx )
|
|
{
|
|
int16_t csize;
|
|
if( !ctx || !ctx->md_info )
|
|
return;
|
|
if( ctx->md_ctx )
|
|
{
|
|
if ( ( csize = GetMdContextSize( ctx->md_info->type ) ) > 0 )
|
|
mbedtls_platform_zeroize( ctx->md_ctx, csize );
|
|
mbedtls_free( ctx->md_ctx );
|
|
}
|
|
if( ctx->hmac_ctx )
|
|
{
|
|
mbedtls_platform_zeroize( ctx->hmac_ctx,
|
|
2 * ctx->md_info->block_size );
|
|
mbedtls_free( ctx->hmac_ctx );
|
|
}
|
|
mbedtls_platform_zeroize( ctx, sizeof( mbedtls_md_context_t ) );
|
|
}
|
|
|
|
int mbedtls_md_clone( mbedtls_md_context_t *dst,
|
|
const mbedtls_md_context_t *src )
|
|
{
|
|
int16_t csize;
|
|
if( !dst || !dst->md_info ||
|
|
!src || !src->md_info ||
|
|
dst->md_info != src->md_info ||
|
|
( csize = GetMdContextSize( src->md_info->type ) ) < 0)
|
|
{
|
|
return( MBEDTLS_ERR_MD_BAD_INPUT_DATA );
|
|
}
|
|
memcpy( dst->md_ctx, src->md_ctx, csize );
|
|
return( 0 );
|
|
}
|
|
|
|
#define ALLOC( type ) \
|
|
do { \
|
|
ctx->md_ctx = mbedtls_calloc( 1, sizeof( mbedtls_##type##_context ) ); \
|
|
if( !ctx->md_ctx ) \
|
|
return( MBEDTLS_ERR_MD_ALLOC_FAILED ); \
|
|
} \
|
|
while( 0 )
|
|
|
|
int mbedtls_md_setup( mbedtls_md_context_t *ctx, const mbedtls_md_info_t *md_info, int hmac )
|
|
{
|
|
int16_t csize;
|
|
if( !md_info || !ctx )
|
|
return( MBEDTLS_ERR_MD_BAD_INPUT_DATA );
|
|
ctx->md_info = md_info;
|
|
ctx->md_ctx = NULL;
|
|
ctx->hmac_ctx = NULL;
|
|
if ((csize = GetMdContextSize(md_info->type)) < 0)
|
|
return( csize );
|
|
if( !( ctx->md_ctx = mbedtls_calloc( 1, csize ) ) )
|
|
return( MBEDTLS_ERR_MD_ALLOC_FAILED );
|
|
if( hmac )
|
|
{
|
|
ctx->hmac_ctx = mbedtls_calloc( 2, md_info->block_size );
|
|
if( !ctx->hmac_ctx )
|
|
{
|
|
mbedtls_md_free( ctx );
|
|
return( MBEDTLS_ERR_MD_ALLOC_FAILED );
|
|
}
|
|
}
|
|
return( 0 );
|
|
}
|
|
|
|
int mbedtls_md_file( const mbedtls_md_info_t *md_info, const char *path, unsigned char *output )
|
|
{
|
|
int ret = MBEDTLS_ERR_THIS_CORRUPTION;
|
|
FILE *f;
|
|
size_t n;
|
|
mbedtls_md_context_t ctx;
|
|
unsigned char buf[1024];
|
|
if( !md_info )
|
|
return( MBEDTLS_ERR_MD_BAD_INPUT_DATA );
|
|
if( !( f = fopen( path, "rb" ) ) )
|
|
return( MBEDTLS_ERR_MD_FILE_IO_ERROR );
|
|
mbedtls_md_init( &ctx );
|
|
CHECK( mbedtls_md_setup( &ctx, md_info, 0 ) );
|
|
CHECK( mbedtls_md_starts( &ctx ) );
|
|
while( ( n = fread( buf, 1, sizeof( buf ), f ) ) > 0 )
|
|
CHECK( mbedtls_md_update( &ctx, buf, n ) );
|
|
if( ferror( f ) )
|
|
ret = MBEDTLS_ERR_MD_FILE_IO_ERROR;
|
|
else
|
|
ret = mbedtls_md_finish( &ctx, output );
|
|
cleanup:
|
|
mbedtls_platform_zeroize( buf, sizeof( buf ) );
|
|
mbedtls_md_free( &ctx );
|
|
fclose( f );
|
|
return( ret );
|
|
}
|
|
|
|
int mbedtls_md_hmac_starts( mbedtls_md_context_t *ctx, const unsigned char *key, size_t keylen )
|
|
{
|
|
int ret = MBEDTLS_ERR_THIS_CORRUPTION;
|
|
unsigned char sum[MBEDTLS_MD_MAX_SIZE];
|
|
unsigned char *ipad, *opad;
|
|
size_t i;
|
|
if( !ctx || !ctx->md_info || !ctx->hmac_ctx )
|
|
return( MBEDTLS_ERR_MD_BAD_INPUT_DATA );
|
|
if( keylen > (size_t) ctx->md_info->block_size )
|
|
{
|
|
CHECK( mbedtls_md_starts( ctx ) );
|
|
CHECK( mbedtls_md_update( ctx, key, keylen ) );
|
|
CHECK( mbedtls_md_finish( ctx, sum ) );
|
|
keylen = ctx->md_info->size;
|
|
key = sum;
|
|
}
|
|
ipad = (unsigned char *) ctx->hmac_ctx;
|
|
opad = (unsigned char *) ctx->hmac_ctx + ctx->md_info->block_size;
|
|
memset( ipad, 0x36, ctx->md_info->block_size );
|
|
memset( opad, 0x5C, ctx->md_info->block_size );
|
|
for( i = 0; i < keylen; i++ )
|
|
{
|
|
ipad[i] = (unsigned char)( ipad[i] ^ key[i] );
|
|
opad[i] = (unsigned char)( opad[i] ^ key[i] );
|
|
}
|
|
CHECK( mbedtls_md_starts( ctx ) );
|
|
CHECK( mbedtls_md_update( ctx, ipad, ctx->md_info->block_size ) );
|
|
cleanup:
|
|
mbedtls_platform_zeroize( sum, sizeof( sum ) );
|
|
return( ret );
|
|
}
|
|
|
|
int mbedtls_md_hmac_finish( mbedtls_md_context_t *ctx, unsigned char *output )
|
|
{
|
|
int ret = MBEDTLS_ERR_THIS_CORRUPTION;
|
|
unsigned char tmp[MBEDTLS_MD_MAX_SIZE];
|
|
unsigned char *opad;
|
|
if( !ctx || !ctx->md_info || !ctx->hmac_ctx )
|
|
return( MBEDTLS_ERR_MD_BAD_INPUT_DATA );
|
|
opad = (unsigned char *) ctx->hmac_ctx + ctx->md_info->block_size;
|
|
CHECK( mbedtls_md_finish( ctx, tmp ) );
|
|
CHECK( mbedtls_md_starts( ctx ) );
|
|
CHECK( mbedtls_md_update( ctx, opad, ctx->md_info->block_size ) );
|
|
CHECK( mbedtls_md_update( ctx, tmp, ctx->md_info->size ) );
|
|
return( mbedtls_md_finish( ctx, output ) );
|
|
cleanup:
|
|
return( ret );
|
|
}
|
|
|
|
int mbedtls_md_hmac_reset( mbedtls_md_context_t *ctx )
|
|
{
|
|
int ret = MBEDTLS_ERR_THIS_CORRUPTION;
|
|
unsigned char *ipad;
|
|
if( !ctx || !ctx->md_info || !ctx->hmac_ctx )
|
|
return( MBEDTLS_ERR_MD_BAD_INPUT_DATA );
|
|
ipad = (unsigned char *) ctx->hmac_ctx;
|
|
if( ( ret = mbedtls_md_starts( ctx ) ) )
|
|
return( ret );
|
|
return( mbedtls_md_update( ctx, ipad, ctx->md_info->block_size ) );
|
|
}
|
|
|
|
int mbedtls_md_hmac( const mbedtls_md_info_t *md_info,
|
|
const unsigned char *key, size_t keylen,
|
|
const unsigned char *input, size_t ilen,
|
|
unsigned char *output )
|
|
{
|
|
mbedtls_md_context_t ctx;
|
|
int ret = MBEDTLS_ERR_THIS_CORRUPTION;
|
|
if( !md_info )
|
|
return( MBEDTLS_ERR_MD_BAD_INPUT_DATA );
|
|
mbedtls_md_init( &ctx );
|
|
CHECK( mbedtls_md_setup( &ctx, md_info, 1 ) );
|
|
CHECK( mbedtls_md_hmac_starts( &ctx, key, keylen ) );
|
|
CHECK( mbedtls_md_hmac_update( &ctx, input, ilen ) );
|
|
CHECK( mbedtls_md_hmac_finish( &ctx, output ) );
|
|
cleanup:
|
|
mbedtls_md_free( &ctx );
|
|
return( ret );
|
|
}
|
|
|
|
#if defined(MBEDTLS_MD2_C)
|
|
const mbedtls_md_info_t mbedtls_md2_info = {
|
|
"MD2",
|
|
MBEDTLS_MD_MD2,
|
|
16,
|
|
16,
|
|
};
|
|
#endif
|
|
|
|
#if defined(MBEDTLS_MD4_C)
|
|
const mbedtls_md_info_t mbedtls_md4_info = {
|
|
"MD4",
|
|
MBEDTLS_MD_MD4,
|
|
16,
|
|
64,
|
|
};
|
|
#endif
|
|
|
|
#endif /* MBEDTLS_MD_C */
|