File libgcrypt-CVE-2024-2236_05.patch of Package libgcrypt.39917

From f2ba9b2c55dba980450547f5219df92b9283e316 Mon Sep 17 00:00:00 2001
From: Jakub Jelen <jjelen@redhat.com>
Date: Mon, 29 Apr 2024 18:04:59 +0200
Subject: [PATCH 05/11] tests: Remove needless PKCS#1.5 encryption and
 decryption parameters

* tests/pkcs1v2.c (check_v15crypt): Remove needless flags from s-exp.

--

Signed-off-by: Jakub Jelen <jjelen@redhat.com>
---
 tests/pkcs1v2.c | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

Index: libgcrypt-1.6.1/tests/pkcs1v2.c
===================================================================
--- libgcrypt-1.6.1.orig/tests/pkcs1v2.c
+++ libgcrypt-1.6.1/tests/pkcs1v2.c
@@ -450,7 +450,7 @@ check_v15crypt (void)
           seed = data_from_hex (tbl[tno].m[mno].seed, &seed_len);
 
           err = gcry_sexp_build (&plain, NULL,
-                                 "(data (flags pkcs1)(hash-algo sha1)"
+                                 "(data (flags pkcs1)"
                                  "(value %b)(random-override %b))",
                                  (int)mesg_len, mesg,
                                  (int)seed_len, seed);
@@ -480,19 +480,15 @@ check_v15crypt (void)
           plain = NULL;
 
           /* Now test the decryption.  */
-          seed = data_from_hex (tbl[tno].m[mno].seed, &seed_len);
           encr = data_from_hex (tbl[tno].m[mno].encr, &encr_len);
 
           err = gcry_sexp_build (&ciph, NULL,
-                                 "(enc-val (flags pkcs1)(hash-algo sha1)"
-                                 "(random-override %b)"
+                                 "(enc-val (flags pkcs1)"
                                  "(rsa (a %b)))",
-                                 (int)seed_len, seed,
                                  (int)encr_len, encr);
           if (err)
             die ("constructing cipher data failed: %s\n", gpg_strerror (err));
           gcry_free (encr);
-          gcry_free (seed);
 
           err = gcry_pk_decrypt (&plain, ciph, sec_key);
           if (err)
openSUSE Build Service is sponsored by