2016-01-15 08:48:27 +00:00
|
|
|
#! /bin/bash
|
|
|
|
#
|
|
|
|
# Copyright (c) 2016 Viktor Dukhovni <openssl-users@dukhovni.org>.
|
|
|
|
# All rights reserved.
|
|
|
|
#
|
|
|
|
# Contributed to the OpenSSL project under the terms of the OpenSSL license
|
|
|
|
# included with the version of the OpenSSL software that includes this module.
|
|
|
|
|
|
|
|
# 100 years should be enough for now
|
|
|
|
#
|
2016-06-22 17:09:42 +00:00
|
|
|
if [ -z "$DAYS" ]; then
|
|
|
|
DAYS=36525
|
|
|
|
fi
|
2016-01-15 08:48:27 +00:00
|
|
|
|
2016-03-19 02:09:41 +00:00
|
|
|
if [ -z "$OPENSSL_SIGALG" ]; then
|
|
|
|
OPENSSL_SIGALG=sha256
|
|
|
|
fi
|
|
|
|
|
2016-06-22 12:36:08 +00:00
|
|
|
if [ -z "$REQMASK" ]; then
|
|
|
|
REQMASK=utf8only
|
|
|
|
fi
|
|
|
|
|
2016-01-15 08:48:27 +00:00
|
|
|
stderr_onerror() {
|
|
|
|
(
|
|
|
|
err=$("$@" >&3 2>&1) || {
|
|
|
|
printf "%s\n" "$err" >&2
|
|
|
|
exit 1
|
|
|
|
}
|
|
|
|
) 3>&1
|
|
|
|
}
|
|
|
|
|
|
|
|
key() {
|
|
|
|
local key=$1; shift
|
|
|
|
|
|
|
|
local alg=rsa
|
|
|
|
if [ -n "$OPENSSL_KEYALG" ]; then
|
|
|
|
alg=$OPENSSL_KEYALG
|
|
|
|
fi
|
|
|
|
|
|
|
|
local bits=2048
|
|
|
|
if [ -n "$OPENSSL_KEYBITS" ]; then
|
|
|
|
bits=$OPENSSL_KEYBITS
|
|
|
|
fi
|
|
|
|
|
|
|
|
if [ ! -f "${key}.pem" ]; then
|
|
|
|
args=(-algorithm "$alg")
|
|
|
|
case $alg in
|
|
|
|
rsa) args=("${args[@]}" -pkeyopt rsa_keygen_bits:$bits );;
|
Suppress DANE TLSA reflection when verification fails
As documented both SSL_get0_dane_authority() and SSL_get0_dane_tlsa()
are expected to return a negative match depth and nothing else when
verification fails. However, this only happened when verification
failed during chain construction. Errors in verification of the
constructed chain did not have the intended effect on these functions.
This commit updates the functions to check for verify_result ==
X509_V_OK, and no longer erases any accumulated match information
when chain construction fails. Sophisticated developers can, with
care, use SSL_set_verify_result(ssl, X509_V_OK) to "peek" at TLSA
info even when verification fail. They must of course first check
and save the real error, and restore the original error as quickly
as possible. Hiding by default seems to be the safer interface.
Introduced X509_V_ERR_DANE_NO_MATCH code to signal failure to find
matching TLSA records. Previously reported via X509_V_ERR_CERT_UNTRUSTED.
This also changes the "-brief" output from s_client to include
verification results and TLSA match information.
Mentioned session resumption in code example in SSL_CTX_dane_enable(3).
Also mentioned that depths returned are relative to the verified chain
which is now available via SSL_get0_verified_chain(3).
Added a few more test-cases to danetest, that exercise the new
code.
Resolved thread safety issue in use of static buffer in
X509_verify_cert_error_string().
Fixed long-stating issue in apps/s_cb.c which always sets verify_error
to either X509_V_OK or "chain to long", code elsewhere (e.g.
s_time.c), seems to expect the actual error. [ The new chain
construction code is expected to correctly generate "chain
too long" errors, so at some point we need to drop the
work-arounds, once SSL_set_verify_depth() is also fixed to
propagate the depth to X509_STORE_CTX reliably. ]
Reviewed-by: Rich Salz <rsalz@openssl.org>
2016-02-08 00:07:57 +00:00
|
|
|
ec) args=("${args[@]}" -pkeyopt "ec_paramgen_curve:$bits")
|
2016-01-15 08:48:27 +00:00
|
|
|
args=("${args[@]}" -pkeyopt ec_param_enc:named_curve);;
|
|
|
|
*) printf "Unsupported key algorithm: %s\n" "$alg" >&2; return 1;;
|
|
|
|
esac
|
|
|
|
stderr_onerror \
|
|
|
|
openssl genpkey "${args[@]}" -out "${key}.pem"
|
|
|
|
fi
|
|
|
|
}
|
|
|
|
|
2016-06-19 08:56:09 +00:00
|
|
|
# Usage: $0 req keyname dn1 dn2 ...
|
2016-01-15 08:48:27 +00:00
|
|
|
req() {
|
|
|
|
local key=$1; shift
|
|
|
|
|
|
|
|
key "$key"
|
|
|
|
local errs
|
|
|
|
|
|
|
|
stderr_onerror \
|
2016-03-19 02:09:41 +00:00
|
|
|
openssl req -new -"${OPENSSL_SIGALG}" -key "${key}.pem" \
|
2016-06-22 12:36:08 +00:00
|
|
|
-config <(printf "string_mask=%s\n[req]\n%s\n%s\n[dn]\n" \
|
|
|
|
"$REQMASK" "prompt = no" "distinguished_name = dn"
|
2016-06-19 08:56:09 +00:00
|
|
|
for dn in "$@"; do echo "$dn"; done)
|
2016-01-15 08:48:27 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
req_nocn() {
|
|
|
|
local key=$1; shift
|
|
|
|
|
|
|
|
key "$key"
|
|
|
|
stderr_onerror \
|
2016-03-19 02:09:41 +00:00
|
|
|
openssl req -new -"${OPENSSL_SIGALG}" -subj / -key "${key}.pem" \
|
2016-01-15 08:48:27 +00:00
|
|
|
-config <(printf "[req]\n%s\n[dn]\nCN_default =\n" \
|
|
|
|
"distinguished_name = dn")
|
|
|
|
}
|
|
|
|
|
|
|
|
cert() {
|
|
|
|
local cert=$1; shift
|
|
|
|
local exts=$1; shift
|
|
|
|
|
|
|
|
stderr_onerror \
|
2016-03-19 02:09:41 +00:00
|
|
|
openssl x509 -req -"${OPENSSL_SIGALG}" -out "${cert}.pem" \
|
2016-01-15 08:48:27 +00:00
|
|
|
-extfile <(printf "%s\n" "$exts") "$@"
|
|
|
|
}
|
|
|
|
|
|
|
|
genroot() {
|
|
|
|
local cn=$1; shift
|
|
|
|
local key=$1; shift
|
|
|
|
local cert=$1; shift
|
|
|
|
local skid="subjectKeyIdentifier = hash"
|
|
|
|
local akid="authorityKeyIdentifier = keyid"
|
|
|
|
|
2016-06-13 02:21:54 +00:00
|
|
|
exts=$(printf "%s\n%s\n%s\n" "$skid" "$akid" "basicConstraints = critical,CA:true")
|
2016-01-29 07:28:43 +00:00
|
|
|
for eku in "$@"
|
|
|
|
do
|
|
|
|
exts=$(printf "%s\nextendedKeyUsage = %s\n" "$exts" "$eku")
|
|
|
|
done
|
2016-06-19 08:56:09 +00:00
|
|
|
csr=$(req "$key" "CN = $cn") || return 1
|
2016-01-15 08:48:27 +00:00
|
|
|
echo "$csr" |
|
|
|
|
cert "$cert" "$exts" -signkey "${key}.pem" -set_serial 1 -days "${DAYS}"
|
|
|
|
}
|
|
|
|
|
|
|
|
genca() {
|
|
|
|
local cn=$1; shift
|
|
|
|
local key=$1; shift
|
|
|
|
local cert=$1; shift
|
|
|
|
local cakey=$1; shift
|
|
|
|
local cacert=$1; shift
|
|
|
|
local skid="subjectKeyIdentifier = hash"
|
|
|
|
local akid="authorityKeyIdentifier = keyid"
|
|
|
|
|
2016-06-13 02:21:54 +00:00
|
|
|
exts=$(printf "%s\n%s\n%s\n" "$skid" "$akid" "basicConstraints = critical,CA:true")
|
2016-01-29 07:28:43 +00:00
|
|
|
for eku in "$@"
|
|
|
|
do
|
|
|
|
exts=$(printf "%s\nextendedKeyUsage = %s\n" "$exts" "$eku")
|
|
|
|
done
|
2016-06-22 12:36:08 +00:00
|
|
|
if [ -n "$NC" ]; then
|
|
|
|
exts=$(printf "%s\nnameConstraints = %s\n" "$exts" "$NC")
|
|
|
|
fi
|
2016-06-19 08:56:09 +00:00
|
|
|
csr=$(req "$key" "CN = $cn") || return 1
|
2016-01-15 08:48:27 +00:00
|
|
|
echo "$csr" |
|
|
|
|
cert "$cert" "$exts" -CA "${cacert}.pem" -CAkey "${cakey}.pem" \
|
2016-01-29 07:28:43 +00:00
|
|
|
-set_serial 2 -days "${DAYS}"
|
2016-01-15 08:48:27 +00:00
|
|
|
}
|
|
|
|
|
2016-03-29 23:40:03 +00:00
|
|
|
gen_nonbc_ca() {
|
|
|
|
local cn=$1; shift
|
|
|
|
local key=$1; shift
|
|
|
|
local cert=$1; shift
|
|
|
|
local cakey=$1; shift
|
|
|
|
local cacert=$1; shift
|
|
|
|
local skid="subjectKeyIdentifier = hash"
|
|
|
|
local akid="authorityKeyIdentifier = keyid"
|
|
|
|
|
|
|
|
exts=$(printf "%s\n%s\n%s\n" "$skid" "$akid")
|
|
|
|
exts=$(printf "%s\nkeyUsage = %s\n" "$exts" "keyCertSign, cRLSign")
|
|
|
|
for eku in "$@"
|
|
|
|
do
|
|
|
|
exts=$(printf "%s\nextendedKeyUsage = %s\n" "$exts" "$eku")
|
|
|
|
done
|
2016-06-19 08:56:09 +00:00
|
|
|
csr=$(req "$key" "CN = $cn") || return 1
|
2016-03-29 23:40:03 +00:00
|
|
|
echo "$csr" |
|
|
|
|
cert "$cert" "$exts" -CA "${cacert}.pem" -CAkey "${cakey}.pem" \
|
|
|
|
-set_serial 2 -days "${DAYS}"
|
|
|
|
}
|
|
|
|
|
2016-06-19 08:56:09 +00:00
|
|
|
# Usage: $0 genpc keyname certname eekeyname eecertname pcext1 pcext2 ...
|
|
|
|
#
|
|
|
|
# Note: takes csr on stdin, so must be used with $0 req like this:
|
|
|
|
#
|
|
|
|
# $0 req keyname dn | $0 genpc keyname certname eekeyname eecertname pcext ...
|
|
|
|
genpc() {
|
|
|
|
local key=$1; shift
|
|
|
|
local cert=$1; shift
|
|
|
|
local cakey=$1; shift
|
|
|
|
local ca=$1; shift
|
|
|
|
|
|
|
|
exts=$(printf "%s\n%s\n%s\n%s\n" \
|
|
|
|
"subjectKeyIdentifier = hash" \
|
|
|
|
"authorityKeyIdentifier = keyid, issuer:always" \
|
|
|
|
"basicConstraints = CA:false" \
|
|
|
|
"proxyCertInfo = critical, @pcexts";
|
|
|
|
echo "[pcexts]";
|
|
|
|
for x in "$@"; do echo $x; done)
|
|
|
|
cert "$cert" "$exts" -CA "${ca}.pem" -CAkey "${cakey}.pem" \
|
|
|
|
-set_serial 2 -days "${DAYS}"
|
|
|
|
}
|
|
|
|
|
2016-06-22 12:36:08 +00:00
|
|
|
# Usage: $0 genalt keyname certname eekeyname eecertname alt1 alt2 ...
|
|
|
|
#
|
|
|
|
# Note: takes csr on stdin, so must be used with $0 req like this:
|
|
|
|
#
|
|
|
|
# $0 req keyname dn | $0 genalt keyname certname eekeyname eecertname alt ...
|
|
|
|
geneealt() {
|
|
|
|
local key=$1; shift
|
|
|
|
local cert=$1; shift
|
|
|
|
local cakey=$1; shift
|
|
|
|
local ca=$1; shift
|
|
|
|
|
|
|
|
exts=$(printf "%s\n%s\n%s\n%s\n" \
|
|
|
|
"subjectKeyIdentifier = hash" \
|
|
|
|
"authorityKeyIdentifier = keyid" \
|
|
|
|
"basicConstraints = CA:false" \
|
|
|
|
"subjectAltName = @alts";
|
|
|
|
echo "[alts]";
|
|
|
|
for x in "$@"; do echo $x; done)
|
|
|
|
cert "$cert" "$exts" -CA "${ca}.pem" -CAkey "${cakey}.pem" \
|
|
|
|
-set_serial 2 -days "${DAYS}"
|
|
|
|
}
|
|
|
|
|
2016-01-15 08:48:27 +00:00
|
|
|
genee() {
|
|
|
|
local OPTIND=1
|
|
|
|
local purpose=serverAuth
|
|
|
|
|
|
|
|
while getopts p: o
|
|
|
|
do
|
|
|
|
case $o in
|
|
|
|
p) purpose="$OPTARG";;
|
|
|
|
*) echo "Usage: $0 genee [-p EKU] cn keyname certname cakeyname cacertname" >&2
|
|
|
|
return 1;;
|
|
|
|
esac
|
|
|
|
done
|
|
|
|
|
|
|
|
shift $((OPTIND - 1))
|
|
|
|
local cn=$1; shift
|
|
|
|
local key=$1; shift
|
|
|
|
local cert=$1; shift
|
|
|
|
local cakey=$1; shift
|
|
|
|
local ca=$1; shift
|
|
|
|
|
|
|
|
exts=$(printf "%s\n%s\n%s\n%s\n%s\n[alts]\n%s\n" \
|
|
|
|
"subjectKeyIdentifier = hash" \
|
|
|
|
"authorityKeyIdentifier = keyid, issuer" \
|
|
|
|
"basicConstraints = CA:false" \
|
|
|
|
"extendedKeyUsage = $purpose" \
|
|
|
|
"subjectAltName = @alts" "DNS=${cn}")
|
2016-06-19 08:56:09 +00:00
|
|
|
csr=$(req "$key" "CN = $cn") || return 1
|
2016-01-15 08:48:27 +00:00
|
|
|
echo "$csr" |
|
|
|
|
cert "$cert" "$exts" -CA "${ca}.pem" -CAkey "${cakey}.pem" \
|
|
|
|
-set_serial 2 -days "${DAYS}" "$@"
|
|
|
|
}
|
|
|
|
|
|
|
|
genss() {
|
|
|
|
local cn=$1; shift
|
|
|
|
local key=$1; shift
|
|
|
|
local cert=$1; shift
|
|
|
|
|
|
|
|
exts=$(printf "%s\n%s\n%s\n%s\n%s\n[alts]\n%s\n" \
|
|
|
|
"subjectKeyIdentifier = hash" \
|
|
|
|
"authorityKeyIdentifier = keyid, issuer" \
|
|
|
|
"basicConstraints = CA:false" \
|
|
|
|
"extendedKeyUsage = serverAuth" \
|
|
|
|
"subjectAltName = @alts" "DNS=${cn}")
|
2016-06-19 08:56:09 +00:00
|
|
|
csr=$(req "$key" "CN = $cn") || return 1
|
2016-01-15 08:48:27 +00:00
|
|
|
echo "$csr" |
|
|
|
|
cert "$cert" "$exts" -signkey "${key}.pem" \
|
|
|
|
-set_serial 1 -days "${DAYS}" "$@"
|
|
|
|
}
|
|
|
|
|
|
|
|
gennocn() {
|
|
|
|
local key=$1; shift
|
|
|
|
local cert=$1; shift
|
|
|
|
|
|
|
|
csr=$(req_nocn "$key") || return 1
|
|
|
|
echo "$csr" |
|
|
|
|
cert "$cert" "" -signkey "${key}.pem" -set_serial 1 -days -1 "$@"
|
|
|
|
}
|
|
|
|
|
|
|
|
"$@"
|