mirror of
https://github.com/openssl/openssl.git
synced 2025-01-24 13:55:42 +08:00
6c73ca4a2f
FIPS 186-4 section 5 "The RSA Digital Signature Algorithm", subsection 5.5 "PKCS #1" says: "For RSASSA-PSS […] the length (in bytes) of the salt (sLen) shall satisfy 0 <= sLen <= hLen, where hLen is the length of the hash function output block (in bytes)." Introduce a new option RSA_PSS_SALTLEN_AUTO_DIGEST_MAX and make it the default. The new value will behave like RSA_PSS_SALTLEN_AUTO, but will not use more than the digest length when signing, so that FIPS 186-4 is not violated. This value has two advantages when compared with RSA_PSS_SALTLEN_DIGEST: (1) It will continue to do auto-detection when verifying signatures for maximum compatibility, where RSA_PSS_SALTLEN_DIGEST would fail for other digest sizes. (2) It will work for combinations where the maximum salt length is smaller than the digest size, which typically happens with large digest sizes (e.g., SHA-512) and small RSA keys. J.-S. Coron shows in "Optimal Security Proofs for PSS and Other Signature Schemes. Advances in Cryptology – Eurocrypt 2002, volume 2332 of Lecture Notes in Computer Science, pp. 272 – 287. Springer Verlag, 2002." that longer salts than the output size of modern hash functions do not increase security: "For example,for an application in which at most one billion signatures will be generated, k0 = 30 bits of random salt are actually sufficient to guarantee the same level of security as RSA, and taking a larger salt does not increase the security level." Signed-off-by: Clemens Lang <cllang@redhat.com> Reviewed-by: Dmitry Belyavskiy <beldmit@gmail.com> Reviewed-by: Tomas Mraz <tomas@openssl.org> (Merged from https://github.com/openssl/openssl/pull/19724)
588 lines
23 KiB
Perl
588 lines
23 KiB
Perl
#! /usr/bin/env perl
|
|
# Copyright 2015-2022 The OpenSSL Project Authors. All Rights Reserved.
|
|
#
|
|
# Licensed under the Apache License 2.0 (the "License"). You may not use
|
|
# this file except in compliance with the License. You can obtain a copy
|
|
# in the file LICENSE in the source distribution or at
|
|
# https://www.openssl.org/source/license.html
|
|
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use OpenSSL::Test::Utils;
|
|
use OpenSSL::Test qw/:DEFAULT srctop_file/;
|
|
|
|
setup("test_req");
|
|
|
|
plan tests => 92;
|
|
|
|
require_ok(srctop_file('test', 'recipes', 'tconversion.pl'));
|
|
|
|
my @certs = qw(test certs);
|
|
|
|
# What type of key to generate?
|
|
my @req_new;
|
|
if (disabled("rsa")) {
|
|
@req_new = ("-newkey", "dsa:".srctop_file("apps", "dsa512.pem"));
|
|
} else {
|
|
@req_new = ("-new");
|
|
note("There should be a 2 sequences of .'s and some +'s.");
|
|
note("There should not be more that at most 80 per line");
|
|
}
|
|
|
|
# Prevent MSys2 filename munging for arguments that look like file paths but
|
|
# aren't
|
|
$ENV{MSYS2_ARG_CONV_EXCL} = "/CN=";
|
|
|
|
# Check for duplicate -addext parameters, and one "working" case.
|
|
my @addext_args = ( "openssl", "req", "-new", "-out", "testreq.pem",
|
|
"-key", srctop_file(@certs, "ee-key.pem"),
|
|
"-config", srctop_file("test", "test.cnf"), @req_new );
|
|
my $val = "subjectAltName=DNS:example.com";
|
|
my $val2 = " " . $val;
|
|
my $val3 = $val;
|
|
$val3 =~ s/=/ =/;
|
|
ok( run(app([@addext_args, "-addext", $val])));
|
|
ok(!run(app([@addext_args, "-addext", $val, "-addext", $val])));
|
|
ok(!run(app([@addext_args, "-addext", $val, "-addext", $val2])));
|
|
ok(!run(app([@addext_args, "-addext", $val, "-addext", $val3])));
|
|
ok(!run(app([@addext_args, "-addext", $val2, "-addext", $val3])));
|
|
|
|
# If a CSR is provided with neither of -key or -CA/-CAkey, this should fail.
|
|
ok(!run(app(["openssl", "req", "-x509",
|
|
"-in", srctop_file(@certs, "x509-check.csr"),
|
|
"-out", "testreq.pem"])));
|
|
|
|
subtest "generating alt certificate requests with RSA" => sub {
|
|
plan tests => 3;
|
|
|
|
SKIP: {
|
|
skip "RSA is not supported by this OpenSSL build", 2
|
|
if disabled("rsa");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-section", "altreq",
|
|
"-new", "-out", "testreq-rsa.pem", "-utf8",
|
|
"-key", srctop_file("test", "testrsa.pem")])),
|
|
"Generating request");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq-rsa.pem", "-noout"])),
|
|
"Verifying signature on request");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-section", "altreq",
|
|
"-verify", "-in", "testreq-rsa.pem", "-noout"])),
|
|
"Verifying signature on request");
|
|
}
|
|
};
|
|
|
|
|
|
subtest "generating certificate requests with RSA" => sub {
|
|
plan tests => 8;
|
|
|
|
SKIP: {
|
|
skip "RSA is not supported by this OpenSSL build", 2
|
|
if disabled("rsa");
|
|
|
|
ok(!run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq-rsa.pem", "-utf8",
|
|
"-key", srctop_file("test", "testrsa.pem"),
|
|
"-keyform", "DER"])),
|
|
"Checking that mismatching keyform fails");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq-rsa.pem", "-utf8",
|
|
"-key", srctop_file("test", "testrsa.pem"),
|
|
"-keyform", "PEM"])),
|
|
"Generating request");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq-rsa.pem", "-noout"])),
|
|
"Verifying signature on request");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-modulus", "-in", "testreq-rsa.pem", "-noout"])),
|
|
"Printing a modulus of the request key");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq_withattrs_pem.pem", "-utf8",
|
|
"-key", srctop_file("test", "testrsa_withattrs.pem")])),
|
|
"Generating request from a key with extra attributes - PEM");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq_withattrs_pem.pem", "-noout"])),
|
|
"Verifying signature on request from a key with extra attributes - PEM");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq_withattrs_der.pem", "-utf8",
|
|
"-key", srctop_file("test", "testrsa_withattrs.der"),
|
|
"-keyform", "DER"])),
|
|
"Generating request from a key with extra attributes - PEM");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq_withattrs_der.pem", "-noout"])),
|
|
"Verifying signature on request from a key with extra attributes - PEM");
|
|
}
|
|
};
|
|
|
|
subtest "generating certificate requests with RSA-PSS" => sub {
|
|
plan tests => 12;
|
|
|
|
SKIP: {
|
|
skip "RSA is not supported by this OpenSSL build", 2
|
|
if disabled("rsa");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq-rsapss.pem", "-utf8",
|
|
"-key", srctop_file("test", "testrsapss.pem")])),
|
|
"Generating request");
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq-rsapss.pem", "-noout"])),
|
|
"Verifying signature on request");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq-rsapss2.pem", "-utf8",
|
|
"-sigopt", "rsa_padding_mode:pss",
|
|
"-sigopt", "rsa_pss_saltlen:-1",
|
|
"-key", srctop_file("test", "testrsapss.pem")])),
|
|
"Generating request");
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq-rsapss2.pem", "-noout"])),
|
|
"Verifying signature on request");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq-rsapssmand.pem", "-utf8",
|
|
"-sigopt", "rsa_padding_mode:pss",
|
|
"-key", srctop_file("test", "testrsapssmandatory.pem")])),
|
|
"Generating request");
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq-rsapssmand.pem", "-noout"])),
|
|
"Verifying signature on request");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq-rsapssmand2.pem", "-utf8",
|
|
"-sigopt", "rsa_pss_saltlen:100",
|
|
"-key", srctop_file("test", "testrsapssmandatory.pem")])),
|
|
"Generating request");
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq-rsapssmand2.pem", "-noout"])),
|
|
"Verifying signature on request");
|
|
|
|
ok(!run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq-rsapss3.pem", "-utf8",
|
|
"-sigopt", "rsa_padding_mode:pkcs1",
|
|
"-key", srctop_file("test", "testrsapss.pem")])),
|
|
"Generating request with expected failure");
|
|
|
|
ok(!run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq-rsapss3.pem", "-utf8",
|
|
"-sigopt", "rsa_pss_saltlen:-5",
|
|
"-key", srctop_file("test", "testrsapss.pem")])),
|
|
"Generating request with expected failure");
|
|
|
|
ok(!run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq-rsapssmand3.pem", "-utf8",
|
|
"-sigopt", "rsa_pss_saltlen:10",
|
|
"-key", srctop_file("test", "testrsapssmandatory.pem")])),
|
|
"Generating request with expected failure");
|
|
|
|
ok(!run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq-rsapssmand3.pem", "-utf8",
|
|
"-sha256",
|
|
"-key", srctop_file("test", "testrsapssmandatory.pem")])),
|
|
"Generating request with expected failure");
|
|
}
|
|
};
|
|
|
|
subtest "generating certificate requests with DSA" => sub {
|
|
plan tests => 2;
|
|
|
|
SKIP: {
|
|
skip "DSA is not supported by this OpenSSL build", 2
|
|
if disabled("dsa");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq-dsa.pem", "-utf8",
|
|
"-key", srctop_file("test", "testdsa.pem")])),
|
|
"Generating request");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq-dsa.pem", "-noout"])),
|
|
"Verifying signature on request");
|
|
}
|
|
};
|
|
|
|
subtest "generating certificate requests with ECDSA" => sub {
|
|
plan tests => 2;
|
|
|
|
SKIP: {
|
|
skip "ECDSA is not supported by this OpenSSL build", 2
|
|
if disabled("ec");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq-ec.pem", "-utf8",
|
|
"-key", srctop_file("test", "testec-p256.pem")])),
|
|
"Generating request");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq-ec.pem", "-noout"])),
|
|
"Verifying signature on request");
|
|
}
|
|
};
|
|
|
|
subtest "generating certificate requests with Ed25519" => sub {
|
|
plan tests => 2;
|
|
|
|
SKIP: {
|
|
skip "Ed25519 is not supported by this OpenSSL build", 2
|
|
if disabled("ec");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq-ed25519.pem", "-utf8",
|
|
"-key", srctop_file("test", "tested25519.pem")])),
|
|
"Generating request");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq-ed25519.pem", "-noout"])),
|
|
"Verifying signature on request");
|
|
}
|
|
};
|
|
|
|
subtest "generating certificate requests with Ed448" => sub {
|
|
plan tests => 2;
|
|
|
|
SKIP: {
|
|
skip "Ed448 is not supported by this OpenSSL build", 2
|
|
if disabled("ec");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-out", "testreq-ed448.pem", "-utf8",
|
|
"-key", srctop_file("test", "tested448.pem")])),
|
|
"Generating request");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq-ed448.pem", "-noout"])),
|
|
"Verifying signature on request");
|
|
}
|
|
};
|
|
|
|
subtest "generating certificate requests" => sub {
|
|
plan tests => 2;
|
|
|
|
ok(run(app(["openssl", "req", "-config", srctop_file("test", "test.cnf"),
|
|
"-key", srctop_file(@certs, "ee-key.pem"),
|
|
@req_new, "-out", "testreq.pem"])),
|
|
"Generating request");
|
|
|
|
ok(run(app(["openssl", "req", "-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq.pem", "-noout"])),
|
|
"Verifying signature on request");
|
|
};
|
|
|
|
subtest "generating SM2 certificate requests" => sub {
|
|
plan tests => 4;
|
|
|
|
SKIP: {
|
|
skip "SM2 is not supported by this OpenSSL build", 4
|
|
if disabled("sm2");
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-key", srctop_file(@certs, "sm2.key"),
|
|
"-sigopt", "distid:1234567812345678",
|
|
"-out", "testreq-sm2.pem", "-sm3"])),
|
|
"Generating SM2 certificate request");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq-sm2.pem", "-noout",
|
|
"-vfyopt", "distid:1234567812345678", "-sm3"])),
|
|
"Verifying signature on SM2 certificate request");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-new", "-key", srctop_file(@certs, "sm2.key"),
|
|
"-sigopt", "hexdistid:DEADBEEF",
|
|
"-out", "testreq-sm2.pem", "-sm3"])),
|
|
"Generating SM2 certificate request with hex id");
|
|
|
|
ok(run(app(["openssl", "req",
|
|
"-config", srctop_file("test", "test.cnf"),
|
|
"-verify", "-in", "testreq-sm2.pem", "-noout",
|
|
"-vfyopt", "hexdistid:DEADBEEF", "-sm3"])),
|
|
"Verifying signature on SM2 certificate request");
|
|
}
|
|
};
|
|
|
|
my @openssl_args = ("req", "-config", srctop_file("apps", "openssl.cnf"));
|
|
|
|
run_conversion('req conversions',
|
|
"testreq.pem");
|
|
run_conversion('req conversions -- testreq2',
|
|
srctop_file("test", "testreq2.pem"));
|
|
|
|
sub run_conversion {
|
|
my $title = shift;
|
|
my $reqfile = shift;
|
|
|
|
subtest $title => sub {
|
|
run(app(["openssl", @openssl_args,
|
|
"-in", $reqfile, "-inform", "p",
|
|
"-noout", "-text"],
|
|
stderr => "req-check.err", stdout => undef));
|
|
open DATA, "req-check.err";
|
|
SKIP: {
|
|
plan skip_all => "skipping req conversion test for $reqfile"
|
|
if grep /Unknown Public Key/, map { s/\R//; } <DATA>;
|
|
|
|
tconversion( -type => 'req', -in => $reqfile,
|
|
-args => [ @openssl_args ] );
|
|
}
|
|
close DATA;
|
|
unlink "req-check.err";
|
|
|
|
done_testing();
|
|
};
|
|
}
|
|
|
|
# Test both generation and verification of certs w.r.t. RFC 5280 requirements
|
|
|
|
my $ca_cert; # will be set below
|
|
sub generate_cert {
|
|
my $cert = shift @_;
|
|
my $ss = $cert =~ m/self-signed/;
|
|
my $is_ca = $cert =~ m/CA/;
|
|
my $cn = $is_ca ? "CA" : "EE";
|
|
my $ca_key = srctop_file(@certs, "ca-key.pem");
|
|
my $key = $is_ca ? $ca_key : srctop_file(@certs, "ee-key.pem");
|
|
my @cmd = ("openssl", "req", "-config", "", "-x509",
|
|
"-subj", "/CN=$cn", @_, "-out", $cert);
|
|
push(@cmd, ("-key", $key)) if $ss;
|
|
push(@cmd, ("-CA", $ca_cert, "-CAkey", $ca_key)) unless $ss;
|
|
ok(run(app([@cmd])), "generate $cert");
|
|
}
|
|
sub has_SKID {
|
|
my $cert = shift @_;
|
|
my $expect = shift @_;
|
|
cert_contains($cert, "Subject Key Identifier", $expect);
|
|
}
|
|
sub has_AKID {
|
|
my $cert = shift @_;
|
|
my $expect = shift @_;
|
|
cert_contains($cert, "Authority Key Identifier", $expect);
|
|
}
|
|
sub has_keyUsage {
|
|
my $cert = shift @_;
|
|
my $expect = shift @_;
|
|
cert_contains($cert, "Key Usage", $expect);
|
|
}
|
|
sub strict_verify {
|
|
my $cert = shift @_;
|
|
my $expect = shift @_;
|
|
my $trusted = shift @_;
|
|
$trusted = $cert unless $trusted;
|
|
ok(run(app(["openssl", "verify", "-x509_strict", "-trusted", $trusted,
|
|
"-partial_chain", $cert])) == $expect,
|
|
"strict verify allow $cert");
|
|
}
|
|
|
|
my @v3_ca = ("-addext", "basicConstraints = critical,CA:true",
|
|
"-addext", "keyUsage = keyCertSign");
|
|
my $SKID_AKID = "subjectKeyIdentifier,authorityKeyIdentifier";
|
|
|
|
# # SKID
|
|
|
|
my $cert = "self-signed_v3_CA_hash_SKID.pem";
|
|
generate_cert($cert, @v3_ca, "-addext", "subjectKeyIdentifier = hash");
|
|
has_SKID($cert, 1); # explicit hash SKID
|
|
|
|
$cert = "self-signed_v3_CA_no_SKID.pem";
|
|
generate_cert($cert, @v3_ca, "-addext", "subjectKeyIdentifier = none");
|
|
cert_ext_has_n_different_lines($cert, 0, $SKID_AKID); # no SKID and no AKID
|
|
#TODO strict_verify($cert, 0);
|
|
|
|
$cert = "self-signed_v3_CA_given_SKID.pem";
|
|
generate_cert($cert, @v3_ca, "-addext", "subjectKeyIdentifier = 45");
|
|
cert_contains($cert, "Subject Key Identifier: 45 ", 1); # given SKID
|
|
strict_verify($cert, 1);
|
|
|
|
# AKID of self-signed certs
|
|
|
|
$cert = "self-signed_v1_CA_no_KIDs.pem";
|
|
generate_cert($cert);
|
|
cert_ext_has_n_different_lines($cert, 0, $SKID_AKID); # no SKID and no AKID
|
|
#TODO strict_verify($cert, 1); # self-signed v1 root cert should be accepted as CA
|
|
|
|
$ca_cert = "self-signed_v3_CA_default_SKID.pem"; # will also be used below
|
|
generate_cert($ca_cert, @v3_ca);
|
|
has_SKID($ca_cert, 1); # default SKID
|
|
has_AKID($ca_cert, 0); # no default AKID
|
|
strict_verify($ca_cert, 1);
|
|
|
|
$cert = "self-signed_v3_CA_no_AKID.pem";
|
|
generate_cert($cert, @v3_ca, "-addext", "authorityKeyIdentifier = none");
|
|
has_AKID($cert, 0); # forced no AKID
|
|
|
|
$cert = "self-signed_v3_CA_explicit_AKID.pem";
|
|
generate_cert($cert, @v3_ca, "-addext", "authorityKeyIdentifier = keyid");
|
|
has_AKID($cert, 0); # for self-signed cert, AKID suppressed and not forced
|
|
|
|
$cert = "self-signed_v3_CA_forced_AKID.pem";
|
|
generate_cert($cert, @v3_ca, "-addext", "authorityKeyIdentifier = keyid:always");
|
|
cert_ext_has_n_different_lines($cert, 3, $SKID_AKID); # forced AKID, AKID == SKID
|
|
strict_verify($cert, 1);
|
|
|
|
$cert = "self-signed_v3_CA_issuer_AKID.pem";
|
|
generate_cert($cert, @v3_ca, "-addext", "authorityKeyIdentifier = issuer");
|
|
has_AKID($cert, 0); # suppressed AKID since not forced
|
|
|
|
$cert = "self-signed_v3_CA_forced_issuer_AKID.pem";
|
|
generate_cert($cert, @v3_ca, "-addext", "authorityKeyIdentifier = issuer:always");
|
|
cert_contains($cert, "Authority Key Identifier: DirName:/CN=CA serial:", 1); # forced issuer AKID
|
|
|
|
$cert = "self-signed_v3_CA_nonforced_keyid_issuer_AKID.pem";
|
|
generate_cert($cert, @v3_ca, "-addext", "authorityKeyIdentifier = keyid, issuer");
|
|
has_AKID($cert, 0); # AKID not present because not forced and cert self-signed
|
|
|
|
$cert = "self-signed_v3_CA_keyid_forced_issuer_AKID.pem";
|
|
generate_cert($cert, @v3_ca, "-addext", "authorityKeyIdentifier = keyid, issuer:always");
|
|
cert_contains($cert, "Authority Key Identifier: DirName:/CN=CA serial:", 1); # issuer AKID forced, with keyid not forced
|
|
|
|
$cert = "self-signed_v3_CA_forced_keyid_issuer_AKID.pem";
|
|
generate_cert($cert, @v3_ca, "-addext", "authorityKeyIdentifier = keyid:always, issuer");
|
|
has_AKID($cert, 1); # AKID with keyid forced
|
|
cert_contains($cert, "Authority Key Identifier: DirName:/CN=CA serial:", 0); # no issuer AKID
|
|
|
|
$cert = "self-signed_v3_CA_forced_keyid_forced_issuer_AKID.pem";
|
|
generate_cert($cert, @v3_ca, "-addext", "authorityKeyIdentifier = keyid:always, issuer:always");
|
|
cert_contains($cert, "Authority Key Identifier: keyid(:[0-9A-Fa-f]{2})+ DirName:/CN=CA serial:", 1); # AKID with keyid and issuer forced
|
|
|
|
$cert = "self-signed_v3_EE_wrong_keyUsage.pem";
|
|
generate_cert($cert, "-addext", "keyUsage = keyCertSign");
|
|
#TODO strict_verify($cert, 1); # should be accepted because RFC 5280 does not apply
|
|
|
|
# AKID of self-issued but not self-signed certs
|
|
|
|
$cert = "self-issued_x509_v3_CA_default_KIDs.pem";
|
|
ok(run(app([("openssl", "x509", "-copy_extensions", "copy",
|
|
"-req", "-in", srctop_file(@certs, "ext-check.csr"),
|
|
"-key", srctop_file(@certs, "ca-key.pem"),
|
|
"-force_pubkey", srctop_file("test", "testrsapub.pem"),
|
|
"-out", $cert)])), "generate using x509: $cert");
|
|
cert_contains($cert, "Issuer: CN=test .*? Subject: CN=test", 1);
|
|
cert_ext_has_n_different_lines($cert, 4, $SKID_AKID); # SKID != AKID
|
|
strict_verify($cert, 1);
|
|
|
|
$cert = "self-issued_v3_CA_default_KIDs.pem";
|
|
generate_cert($cert, "-addext", "keyUsage = dataEncipherment",
|
|
"-in", srctop_file(@certs, "x509-check.csr"));
|
|
cert_contains($cert, "Issuer: CN=CA .*? Subject: CN=CA", 1);
|
|
cert_ext_has_n_different_lines($cert, 4, $SKID_AKID); # SKID != AKID
|
|
strict_verify($cert, 1);
|
|
|
|
$cert = "self-issued_v3_CA_no_AKID.pem";
|
|
generate_cert($cert, "-addext", "authorityKeyIdentifier = none",
|
|
"-in", srctop_file(@certs, "x509-check.csr"));
|
|
has_AKID($cert, 0);
|
|
strict_verify($cert, 1);
|
|
|
|
$cert = "self-issued_v3_CA_explicit_AKID.pem";
|
|
generate_cert($cert, "-addext", "authorityKeyIdentifier = keyid",
|
|
"-in", srctop_file(@certs, "x509-check.csr"));
|
|
cert_ext_has_n_different_lines($cert, 4, $SKID_AKID); # SKID != AKID
|
|
strict_verify($cert, 1);
|
|
|
|
$cert = "self-issued_v3_CA_forced_AKID.pem";
|
|
generate_cert($cert, "-addext", "authorityKeyIdentifier = keyid:always",
|
|
"-in", srctop_file(@certs, "x509-check.csr"));
|
|
cert_ext_has_n_different_lines($cert, 4, $SKID_AKID); # SKID != AKID
|
|
|
|
$cert = "self-issued_v3_CA_issuer_AKID.pem";
|
|
generate_cert($cert, @v3_ca, "-addext", "authorityKeyIdentifier = issuer",
|
|
"-in", srctop_file(@certs, "x509-check.csr"));
|
|
cert_contains($cert, "Authority Key Identifier: DirName:/CN=CA serial:", 1); # just issuer AKID
|
|
|
|
$cert = "self-issued_v3_CA_forced_issuer_AKID.pem";
|
|
generate_cert($cert, @v3_ca, "-addext", "authorityKeyIdentifier = issuer:always",
|
|
"-in", srctop_file(@certs, "x509-check.csr"));
|
|
cert_contains($cert, "Authority Key Identifier: DirName:/CN=CA serial:", 1); # just issuer AKID
|
|
|
|
$cert = "self-issued_v3_CA_keyid_issuer_AKID.pem";
|
|
generate_cert($cert, "-addext", "authorityKeyIdentifier = keyid, issuer",
|
|
"-in", srctop_file(@certs, "x509-check.csr"));
|
|
cert_ext_has_n_different_lines($cert, 4, $SKID_AKID); # SKID != AKID, not forced
|
|
|
|
$cert = "self-issued_v3_CA_keyid_forced_issuer_AKID.pem";
|
|
generate_cert($cert, "-addext", "authorityKeyIdentifier = keyid, issuer:always",
|
|
"-in", srctop_file(@certs, "x509-check.csr"));
|
|
cert_ext_has_n_different_lines($cert, 6, $SKID_AKID); # SKID != AKID, with forced issuer
|
|
|
|
$cert = "self-issued_v3_CA_forced_keyid_and_issuer_AKID.pem";
|
|
generate_cert($cert, "-addext", "authorityKeyIdentifier = keyid:always, issuer:always",
|
|
"-in", srctop_file(@certs, "x509-check.csr"));
|
|
cert_ext_has_n_different_lines($cert, 6, $SKID_AKID); # SKID != AKID, both forced
|
|
|
|
# AKID of not self-issued certs
|
|
|
|
$cert = "regular_v3_EE_default_KIDs.pem";
|
|
generate_cert($cert, "-addext", "keyUsage = dataEncipherment",
|
|
"-key", srctop_file(@certs, "ee-key.pem"));
|
|
cert_ext_has_n_different_lines($cert, 4, $SKID_AKID); # SKID != AKID
|
|
strict_verify($cert, 1, $ca_cert);
|
|
|
|
$cert = "regular_v3_EE_copied_exts_default_KIDs.pem";
|
|
generate_cert($cert, "-copy_extensions", "copy",
|
|
"-in", srctop_file(@certs, "ext-check.csr"));
|
|
cert_ext_has_n_different_lines($cert, 4, $SKID_AKID); # SKID != AKID
|
|
strict_verify($cert, 1);
|
|
|
|
$cert = "v3_EE_no_AKID.pem";
|
|
generate_cert($cert, "-addext", "authorityKeyIdentifier = none",
|
|
"-key", srctop_file(@certs, "ee-key.pem"));
|
|
has_SKID($cert, 1);
|
|
has_AKID($cert, 0);
|
|
strict_verify($cert, 0, $ca_cert);
|
|
|
|
|
|
# Key Usage
|
|
|
|
$cert = "self-signed_CA_no_keyUsage.pem";
|
|
generate_cert($cert, "-in", srctop_file(@certs, "ext-check.csr"));
|
|
has_keyUsage($cert, 0);
|
|
$cert = "self-signed_CA_with_keyUsages.pem";
|
|
generate_cert($cert, "-in", srctop_file(@certs, "ext-check.csr"),
|
|
"-copy_extensions", "copy");
|
|
has_keyUsage($cert, 1);
|