Blob Blame History Raw
From 237695d30c9f716333cfa077554a6e1ae0d2c589 Mon Sep 17 00:00:00 2001
From: rpm-build <rpm-build>
Date: Sat, 20 Aug 2022 09:52:08 +0900
Subject: [PATCH] gnutls-3.7.6-fips-rsa-key-sizes.patch

---
 lib/nettle/pk.c        |  54 ++++---
 tests/Makefile.am      |   3 +-
 tests/fips-rsa-sizes.c | 328 +++++++++++++++++++++++++++++++++++++++++
 3 files changed, 361 insertions(+), 24 deletions(-)
 create mode 100644 tests/fips-rsa-sizes.c

diff --git a/lib/nettle/pk.c b/lib/nettle/pk.c
index eba246f..f38016b 100644
--- a/lib/nettle/pk.c
+++ b/lib/nettle/pk.c
@@ -1247,20 +1247,20 @@ _wrap_nettle_pk_sign(gnutls_pk_algorithm_t algo,
 
 			_rsa_params_to_privkey(pk_params, &priv);
 
-			/* RSA key size should be 2048-bit or larger in FIPS
-			 * 140-3.  In addition to this, only SHA-2 is allowed
-			 * for SigGen; it is checked in pk_prepare_hash lib/pk.c
-			 */
-			if (unlikely(priv.size < 256)) {
-				not_approved = true;
-			}
-
 			ret = _rsa_params_to_pubkey(pk_params, &pub);
 			if (ret < 0) {
 				gnutls_assert();
 				goto cleanup;
 			}
 
+			/* RSA modulus size should be 2048-bit or larger in FIPS
+			 * 140-3.  In addition to this, only SHA-2 is allowed
+			 * for SigGen; it is checked in pk_prepare_hash lib/pk.c
+			 */
+			if (unlikely(mpz_sizeinbase(pub.n, 2) < 2048)) {
+				not_approved = true;
+			}
+
 			mpz_init(s);
 
 			if (_gnutls_get_lib_state() == LIB_STATE_SELFTEST)
@@ -1298,22 +1298,22 @@ _wrap_nettle_pk_sign(gnutls_pk_algorithm_t algo,
 
 			_rsa_params_to_privkey(pk_params, &priv);
 
-			/* RSA key size should be 2048-bit or larger in FIPS
+			ret = _rsa_params_to_pubkey(pk_params, &pub);
+			if (ret < 0) {
+				gnutls_assert();
+				goto cleanup;
+			}
+
+			/* RSA modulus size should be 2048-bit or larger in FIPS
 			 * 140-3.  In addition to this, only SHA-2 is allowed
 			 * for SigGen; however, Nettle only support SHA256,
 			 * SHA384, and SHA512 for RSA-PSS (see
 			 * _rsa_pss_sign_digest_tr in this file for details).
 			 */
-			if (unlikely(priv.size < 256)) {
+			if (unlikely(mpz_sizeinbase(pub.n, 2) < 2048)) {
 				not_approved = true;
 			}
 
-			ret = _rsa_params_to_pubkey(pk_params, &pub);
-			if (ret < 0) {
-				gnutls_assert();
-				goto cleanup;
-			}
-
 			mpz_init(s);
 
 			ret =
@@ -1643,6 +1643,7 @@ _wrap_nettle_pk_verify(gnutls_pk_algorithm_t algo,
 	case GNUTLS_PK_RSA:
 		{
 			struct rsa_public_key pub;
+			size_t bits;
 
 			ret = _rsa_params_to_pubkey(pk_params, &pub);
 			if (ret < 0) {
@@ -1650,12 +1651,19 @@ _wrap_nettle_pk_verify(gnutls_pk_algorithm_t algo,
 				goto cleanup;
 			}
 
-			/* RSA key size should be 2048-bit or larger in FIPS
-			 * 140-3.  In addition to this, only SHA-1 and SHA-2 are
-			 * allowed for SigVer; it is checked in
-			 * _pkcs1_rsa_verify_sig in lib/pubkey.c
+			bits = mpz_sizeinbase(pub.n, 2);
+
+			/* In FIPS 140-3, RSA key size should be larger than
+			 * 2048-bit or one of the known lengths (1024, 1280,
+			 * 1536, 1792; i.e., multiple of 256-bits).
+			 *
+			 * In addition to this, only SHA-1 and SHA-2 are allowed
+			 * for SigVer; it is checked in _pkcs1_rsa_verify_sig in
+			 * lib/pubkey.c.
 			 */
-			if (unlikely(pub.size < 256)) {
+			if (unlikely(bits < 2048 &&
+				     bits != 1024 && bits != 1280 &&
+				     bits != 1536 && bits != 1792)) {
 				not_approved = true;
 			}
 
@@ -1701,13 +1709,13 @@ _wrap_nettle_pk_verify(gnutls_pk_algorithm_t algo,
 				goto cleanup;
 			}
 
-			/* RSA key size should be 2048-bit or larger in FIPS
+			/* RSA modulus size should be 2048-bit or larger in FIPS
 			 * 140-3.  In addition to this, only SHA-1 and SHA-2 are
 			 * allowed for SigVer, while Nettle only supports
 			 * SHA256, SHA384, and SHA512 for RSA-PSS (see
 			 * _rsa_pss_verify_digest in this file for the details).
 			 */
-			if (unlikely(pub.size < 256)) {
+			if (unlikely(mpz_sizeinbase(pub.n, 2) < 2048)) {
 				not_approved = true;
 			}
 
diff --git a/tests/Makefile.am b/tests/Makefile.am
index 7a7a4af..dd21e45 100644
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -233,7 +233,8 @@ ctests += mini-record-2 simple gnutls_hmac_fast set_pkcs12_cred cert certuniquei
 	 tls13-without-timeout-func buffer status-request-revoked \
 	 set_x509_ocsp_multi_cli kdf-api keylog-func handshake-write \
 	 x509cert-dntypes id-on-xmppAddr tls13-compat-mode ciphersuite-name \
-	 x509-upnconstraint pkcs7-verify-double-free
+	 x509-upnconstraint pkcs7-verify-double-free \
+	 fips-rsa-sizes
 
 ctests += tls-channel-binding
 
diff --git a/tests/fips-rsa-sizes.c b/tests/fips-rsa-sizes.c
new file mode 100644
index 0000000..84b9aff
--- /dev/null
+++ b/tests/fips-rsa-sizes.c
@@ -0,0 +1,328 @@
+/*
+ * Copyright (C) 2022 Red Hat, Inc.
+ *
+ * Author: Alexander Sosedkin
+ *
+ * This file is part of GnuTLS.
+ *
+ * GnuTLS is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * GnuTLS is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GnuTLS; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
+ */
+
+#include <assert.h>
+#include <stdio.h>
+#include <utils.h>
+#include <gnutls/gnutls.h>
+#include <gnutls/abstract.h>
+#include <gnutls/x509.h>
+
+#define FIPS_PUSH_CONTEXT() do {				\
+	ret = gnutls_fips140_push_context(fips_context);	\
+	if (ret < 0) {						\
+		fail("gnutls_fips140_push_context failed\n");	\
+	}							\
+} while (0)
+
+#define FIPS_POP_CONTEXT(state) do {					\
+	ret = gnutls_fips140_pop_context();				\
+	if (ret < 0) {							\
+		fail("gnutls_fips140_context_pop failed\n");		\
+	}								\
+	fips_state = gnutls_fips140_get_operation_state(fips_context);	\
+	if (fips_state != GNUTLS_FIPS140_OP_ ## state) {		\
+		fail("operation state is not " # state " (%d)\n",	\
+		     fips_state);					\
+	}								\
+} while (0)
+
+
+void generate_successfully(gnutls_privkey_t* privkey, gnutls_pubkey_t* pubkey,
+                           unsigned int size);
+void generate_unsuccessfully(gnutls_privkey_t* privkey, gnutls_pubkey_t* pubkey,
+                             unsigned int size);
+void sign_verify_successfully(gnutls_privkey_t privkey, gnutls_pubkey_t pubkey);
+void sign_verify_unsuccessfully(gnutls_privkey_t privkey,
+                                gnutls_pubkey_t pubkey);
+void nosign_verify(gnutls_privkey_t privkey, gnutls_pubkey_t pubkey);
+
+
+void generate_successfully(gnutls_privkey_t* privkey, gnutls_pubkey_t* pubkey,
+                           unsigned int size)
+{
+	int ret;
+	gnutls_x509_privkey_t xprivkey;
+	gnutls_fips140_context_t fips_context;
+	gnutls_fips140_operation_state_t fips_state;
+	assert(gnutls_fips140_context_init(&fips_context) == 0);
+
+	fprintf(stderr, "%d-bit\n", size);
+
+	/* x509 generation as well just because why not */
+	FIPS_PUSH_CONTEXT();
+	assert(gnutls_x509_privkey_init(&xprivkey) == 0);
+	ret = gnutls_x509_privkey_generate(xprivkey, GNUTLS_PK_RSA, size, 0);
+	if (ret != GNUTLS_E_SUCCESS)
+		fail("%d-bit x509_privkey_init (%d)\n", size, ret);
+	FIPS_POP_CONTEXT(APPROVED);
+	gnutls_x509_privkey_deinit(xprivkey);
+
+	FIPS_PUSH_CONTEXT();
+	assert(gnutls_privkey_init(privkey) == 0);
+	ret = gnutls_privkey_generate(*privkey, GNUTLS_PK_RSA, size, 0);
+	if (ret != GNUTLS_E_SUCCESS)
+		fail("%d-bit privkey_init (%d)\n", size, ret);
+	FIPS_POP_CONTEXT(APPROVED);
+
+	assert(gnutls_pubkey_init(pubkey) == 0);
+	FIPS_PUSH_CONTEXT();
+	ret = gnutls_pubkey_import_privkey(*pubkey, *privkey,
+					   GNUTLS_KEY_DIGITAL_SIGNATURE, 0);
+	if (ret != GNUTLS_E_SUCCESS)
+		fail("%d-bit pubkey_import_privkey (%d)\n", size, ret);
+	FIPS_POP_CONTEXT(INITIAL);
+
+	gnutls_fips140_context_deinit(fips_context);
+}
+
+
+void generate_unsuccessfully(gnutls_privkey_t* privkey, gnutls_pubkey_t* pubkey,
+                             unsigned int size)
+{
+	int ret;
+	gnutls_x509_privkey_t xprivkey;
+	gnutls_fips140_context_t fips_context;
+	gnutls_fips140_operation_state_t fips_state;
+	assert(gnutls_fips140_context_init(&fips_context) == 0);
+
+	fprintf(stderr, "%d-bit\n", size);
+
+	/* short x509 generation: ERROR, blocked */
+	FIPS_PUSH_CONTEXT();
+	assert(gnutls_x509_privkey_init(&xprivkey) == 0);
+	ret = gnutls_x509_privkey_generate(xprivkey, GNUTLS_PK_RSA, size, 0);
+	if (ret != GNUTLS_E_PK_GENERATION_ERROR)
+		fail("%d-bit x509_privkey_init (%d)\n", size, ret);
+	FIPS_POP_CONTEXT(ERROR);
+	gnutls_x509_privkey_deinit(xprivkey);
+
+	/* short key generation: ERROR, blocked */
+	FIPS_PUSH_CONTEXT();
+	assert(gnutls_privkey_init(privkey) == 0);
+	ret = gnutls_privkey_generate(*privkey, GNUTLS_PK_RSA, size, 0);
+	if (ret != GNUTLS_E_PK_GENERATION_ERROR)
+		fail("%d-bit privkey_init (%d)\n", size, ret);
+	FIPS_POP_CONTEXT(ERROR);
+	gnutls_privkey_deinit(*privkey);
+
+	/* Disable FIPS to generate them anyway */
+	gnutls_fips140_set_mode(GNUTLS_FIPS140_LAX, 0);
+	assert(gnutls_fips140_mode_enabled() == GNUTLS_FIPS140_LAX);
+
+	assert(gnutls_x509_privkey_init(&xprivkey) == 0);
+	ret = gnutls_x509_privkey_generate(xprivkey, GNUTLS_PK_RSA, size, 0);
+	if (ret != GNUTLS_E_SUCCESS)
+		fail("%d-bit x509_privkey_init (%d)\n", size, ret);
+	gnutls_x509_privkey_deinit(xprivkey);
+
+	assert(gnutls_privkey_init(privkey) == 0);
+	ret = gnutls_privkey_generate(*privkey, GNUTLS_PK_RSA, size, 0);
+	if (ret != GNUTLS_E_SUCCESS)
+		fail("%d-bit privkey_init (%d)\n", size, ret);
+
+	assert(gnutls_pubkey_init(pubkey) == 0);
+	ret = gnutls_pubkey_import_privkey(*pubkey, *privkey,
+					   GNUTLS_KEY_DIGITAL_SIGNATURE, 0);
+	if (ret != GNUTLS_E_SUCCESS)
+		fail("%d-bit pubkey_import_privkey (%d)\n", size, ret);
+
+	gnutls_fips140_set_mode(GNUTLS_FIPS140_STRICT, 0);
+	assert(gnutls_fips140_mode_enabled());
+
+	gnutls_fips140_context_deinit(fips_context);
+}
+
+
+void sign_verify_successfully(gnutls_privkey_t privkey, gnutls_pubkey_t pubkey) {
+	int ret;
+	gnutls_fips140_context_t fips_context;
+	gnutls_fips140_operation_state_t fips_state;
+
+	gnutls_datum_t signature;
+	gnutls_datum_t plaintext = {
+		.data = (unsigned char* const) "Hello world!",
+		.size = 12
+	};
+	assert(gnutls_fips140_context_init(&fips_context) == 0);
+
+	/* RSA sign: approved */
+	FIPS_PUSH_CONTEXT();
+	ret = gnutls_privkey_sign_data(privkey, GNUTLS_DIG_SHA256, 0,
+	                               &plaintext, &signature);
+	if (ret < 0)
+		fail("gnutls_privkey_sign_data failed\n");
+	FIPS_POP_CONTEXT(APPROVED);
+
+	/* RSA verify: approved */
+	FIPS_PUSH_CONTEXT();
+	ret = gnutls_pubkey_verify_data2(pubkey, GNUTLS_SIGN_RSA_SHA256, 0,
+	                                 &plaintext, &signature);
+	if (ret < 0)
+		fail("gnutls_pubkey_verify_data2 failed\n");
+	FIPS_POP_CONTEXT(APPROVED);
+
+	gnutls_free(signature.data);
+	gnutls_fips140_context_deinit(fips_context);
+}
+
+
+void sign_verify_unsuccessfully(gnutls_privkey_t privkey,
+                                gnutls_pubkey_t pubkey) {
+	int ret;
+	gnutls_fips140_context_t fips_context;
+	gnutls_fips140_operation_state_t fips_state;
+
+	gnutls_datum_t signature;
+	gnutls_datum_t plaintext = {
+		.data = (unsigned char* const) "Hello world!",
+		.size = 12
+	};
+	assert(gnutls_fips140_context_init(&fips_context) == 0);
+
+	/* small key RSA sign: not approved */
+	FIPS_PUSH_CONTEXT();
+	ret = gnutls_privkey_sign_data(privkey, GNUTLS_DIG_SHA256, 0,
+	                               &plaintext, &signature);
+	if (ret < 0)
+		fail("gnutls_privkey_sign_data failed\n");
+	FIPS_POP_CONTEXT(NOT_APPROVED);
+
+	/* small key RSA verify: not approved */
+	FIPS_PUSH_CONTEXT();
+	ret = gnutls_pubkey_verify_data2(pubkey, GNUTLS_SIGN_RSA_SHA256, 0,
+	                                 &plaintext, &signature);
+	if (ret < 0)
+		fail("gnutls_pubkey_verify_data2 failed\n");
+	FIPS_POP_CONTEXT(NOT_APPROVED);
+
+	gnutls_free(signature.data);
+	gnutls_pubkey_deinit(pubkey);
+	gnutls_privkey_deinit(privkey);
+	gnutls_fips140_context_deinit(fips_context);
+}
+
+
+void nosign_verify(gnutls_privkey_t privkey, gnutls_pubkey_t pubkey) {
+	int ret;
+	gnutls_fips140_context_t fips_context;
+	gnutls_fips140_operation_state_t fips_state;
+
+	gnutls_datum_t signature;
+	gnutls_datum_t plaintext = {
+		.data = (unsigned char* const) "Hello world!",
+		.size = 12
+	};
+	assert(gnutls_fips140_context_init(&fips_context) == 0);
+
+	/* 1024, 1280, 1536, 1792 key RSA sign: not approved */
+	FIPS_PUSH_CONTEXT();
+	ret = gnutls_privkey_sign_data(privkey, GNUTLS_DIG_SHA256, 0,
+	                               &plaintext, &signature);
+	if (ret < 0)
+		fail("gnutls_privkey_sign_data failed\n");
+	FIPS_POP_CONTEXT(NOT_APPROVED);
+
+	/* Disable FIPS to sign them anyway */
+	gnutls_fips140_set_mode(GNUTLS_FIPS140_LAX, 0);
+	assert(gnutls_fips140_mode_enabled() == GNUTLS_FIPS140_LAX);
+
+	ret = gnutls_privkey_sign_data(privkey, GNUTLS_DIG_SHA256, 0,
+	                               &plaintext, &signature);
+	if (ret < 0)
+		fail("gnutls_privkey_sign_data failed\n");
+
+	gnutls_fips140_set_mode(GNUTLS_FIPS140_STRICT, 0);
+	assert(gnutls_fips140_mode_enabled());
+
+	/* 1024, 1280, 1536, 1792 key RSA verify: approved (exception) */
+	FIPS_PUSH_CONTEXT();
+	ret = gnutls_pubkey_verify_data2(pubkey, GNUTLS_SIGN_RSA_SHA256, 0,
+	                                 &plaintext, &signature);
+	if (ret < 0)
+		fail("gnutls_pubkey_verify_data2 failed\n");
+	FIPS_POP_CONTEXT(APPROVED);
+
+	gnutls_free(signature.data);
+	gnutls_pubkey_deinit(pubkey);
+	gnutls_privkey_deinit(privkey);
+	gnutls_fips140_context_deinit(fips_context);
+}
+
+
+void doit(void)
+{
+	gnutls_fips140_context_t fips_context;
+	gnutls_privkey_t privkey;
+	gnutls_pubkey_t pubkey;
+
+	if (gnutls_fips140_mode_enabled() == 0) {
+		success("We are not in FIPS140 mode\n");
+		exit(77);  /* SKIP */
+	}
+
+	assert(gnutls_fips140_context_init(&fips_context) == 0);
+
+	/* 512-bit RSA: no generate, no sign, no verify */
+	generate_unsuccessfully(&privkey, &pubkey, 512);
+	sign_verify_unsuccessfully(privkey, pubkey);
+	/* 512-bit RSA again (to be safer about going in and out of FIPS) */
+	generate_unsuccessfully(&privkey, &pubkey, 512);
+	sign_verify_unsuccessfully(privkey, pubkey);
+	/* 600-bit RSA: no generate, no sign, no verify */
+	generate_unsuccessfully(&privkey, &pubkey, 600);
+	sign_verify_unsuccessfully(privkey, pubkey);
+
+	/* 768-bit RSA not-an-exception: nogenerate, nosign, verify */
+	generate_unsuccessfully(&privkey, &pubkey, 768);
+	sign_verify_unsuccessfully(privkey, pubkey);
+	/* 1024-bit RSA exception: nogenerate, nosign, verify */
+	generate_unsuccessfully(&privkey, &pubkey, 1024);
+	nosign_verify(privkey, pubkey);
+	/* 1280-bit RSA exception: nogenerate, nosign, verify */
+	generate_unsuccessfully(&privkey, &pubkey, 1280);
+	nosign_verify(privkey, pubkey);
+	/* 1500-bit RSA not-an-exception: nogenerate, nosign, noverify */
+	generate_unsuccessfully(&privkey, &pubkey, 1500);
+	sign_verify_unsuccessfully(privkey, pubkey);
+	/* 1536-bit RSA exception: nogenerate, nosign, verify */
+	generate_unsuccessfully(&privkey, &pubkey, 1536);
+	nosign_verify(privkey, pubkey);
+	/* 1792-bit RSA exception: nogenerate, nosign, verify */
+	generate_unsuccessfully(&privkey, &pubkey, 1792);
+	nosign_verify(privkey, pubkey);
+	/* 2000-bit RSA not-an-exception: nogenerate, nosign, noverify */
+	generate_unsuccessfully(&privkey, &pubkey, 2000);
+	sign_verify_unsuccessfully(privkey, pubkey);
+
+	/* 2048-bit RSA: generate, sign, verify */
+	generate_successfully(&privkey, &pubkey, 2048);
+	sign_verify_successfully(privkey, pubkey);
+	/* 2432-bit RSA: nogenerate, sign, verify */
+	generate_unsuccessfully(&privkey, &pubkey, 2432);
+	sign_verify_successfully(privkey, pubkey);
+	/* 3072-bit RSA: generate, sign, verify */
+	generate_successfully(&privkey, &pubkey, 3072);
+	sign_verify_successfully(privkey, pubkey);
+
+	gnutls_fips140_context_deinit(fips_context);
+}
-- 
2.37.2