From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from gate001.proxmox.com (gate001.proxmox.com [45.144.208.40]) by lore.proxmox.com (Postfix) with ESMTPS id B52C31FF12C for ; Wed, 05 Aug 2026 15:18:56 +0200 (CEST) Received: from gate001.proxmox.com (localhost.localdomain [127.0.0.1]) by gate001.proxmox.com (Proxmox) with ESMTP id 5FFEC21953; Wed, 05 Aug 2026 15:18:56 +0200 (CEST) From: Shannon Sterz To: pdm-devel@lists.proxmox.com Subject: [PATCH pve-common v2 02/16] certificate: add helper to verify that a certificate was signed by a ca Date: Wed, 5 Aug 2026 15:18:25 +0200 Message-ID: <20260805131838.254723-4-s.sterz@proxmox.com> X-Mailer: git-send-email 2.47.3 In-Reply-To: <20260805131838.254723-2-s.sterz@proxmox.com> References: <20260805131838.254723-2-s.sterz@proxmox.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Bm-Milter-Handled: 55990f41-d878-4baa-be0a-ee34c49e34d2 X-Bm-Transport-Timestamp: 1785935918371 X-SPAM-LEVEL: Spam detection results: 0 AWL 0.140 Adjusted score from AWL reputation of From: address DMARC_MISSING 0.1 Missing DMARC policy KAM_DMARC_STATUS 0.01 Test Rule for DKIM or SPF Failure with Strict Alignment (newer systems) RCVD_IN_DNSWL_LOW -0.7 Sender listed at https://www.dnswl.org/, low trust SPF_HELO_NONE 0.001 SPF: HELO does not publish an SPF Record SPF_PASS -0.001 SPF: sender matches SPF record Message-ID-Hash: NM6JDYOUX7XXLFOLYKYASGC5UPIF3LOK X-Message-ID-Hash: NM6JDYOUX7XXLFOLYKYASGC5UPIF3LOK X-MailFrom: s.sterz@proxmox.com X-Mailman-Rule-Misses: dmarc-mitigation; no-senders; approved; loop; banned-address; emergency; member-moderation; nonmember-moderation; administrivia; implicit-dest; max-recipients; max-size; news-moderation; no-subject; digests; suspicious-header X-Mailman-Version: 3.3.10 Precedence: list List-Id: Proxmox Datacenter Manager development discussion List-Help: List-Owner: List-Post: List-Subscribe: List-Unsubscribe: Signed-off-by: Shannon Sterz --- src/PVE/Certificate.pm | 46 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) diff --git a/src/PVE/Certificate.pm b/src/PVE/Certificate.pm index b8415e2..91b3c4d 100644 --- a/src/PVE/Certificate.pm +++ b/src/PVE/Certificate.pm @@ -260,6 +260,52 @@ sub assert_certificate_matches_key { return 1; } +=head3 check_certificate_signed_by_ca() + +Checks whether the certificate at C<$cert_path> is signed by the CA certificate +located at C<$ca_path>. + +=cut + +sub check_certificate_signed_by_ca { + my ($cert_path, $ca_path) = @_; + my @cleanup; + + my $result = eval { + my $ca_cert = $read_certificate->($ca_path); + push @cleanup, sub { Net::SSLeay::X509_free($ca_cert) }; + + my $cert = $read_certificate->($cert_path); + push @cleanup, sub { Net::SSLeay::X509_free($cert) }; + + my $store = Net::SSLeay::X509_STORE_new() + or ssl_die("Could not create an SSL store to check if ca signed certificate"); + push @cleanup, sub { Net::SSLeay::X509_STORE_free($store) }; + + Net::SSLeay::X509_STORE_add_cert($store, $ca_cert) + or ssl_die("Could not load ca certificate into context."); + + my $ctx = Net::SSLeay::X509_STORE_CTX_new() + or ssl_die("Could not create an SSL context to check if ca signed certificate"); + push @cleanup, sub { Net::SSLeay::X509_STORE_CTX_free($ctx) }; + + Net::SSLeay::X509_STORE_CTX_init($ctx, $store, $cert, 0) + or ssl_die("Could not initialize an SSL context to check if ca signed certificate"); + + Net::SSLeay::X509_verify_cert($ctx); + }; + + my $err = $@; + + while (my $cleanup_fn = pop @cleanup) { + $cleanup_fn->(); + } + + die $err if $err; + + return $result == 1; +} + sub get_certificate_info { my ($cert_path) = @_; -- 2.47.3