[pve-devel] [PATCH common 1/2] certificate: add subroutine that checks if cert and key match
Max Carrara
m.carrara at proxmox.com
Tue Feb 28 17:36:31 CET 2023
This is done here in order to allow other packages to make use of
this subroutine.
Signed-off-by: Max Carrara <m.carrara at proxmox.com>
---
src/PVE/Certificate.pm | 26 ++++++++++++++++++++++++++
1 file changed, 26 insertions(+)
diff --git a/src/PVE/Certificate.pm b/src/PVE/Certificate.pm
index 31a7722..5ec1c6b 100644
--- a/src/PVE/Certificate.pm
+++ b/src/PVE/Certificate.pm
@@ -228,6 +228,32 @@ sub get_certificate_fingerprint {
return $fp;
}
+sub certificate_matches_key {
+ my ($cert_path, $key_path) = @_;
+
+ die "No certificate path given!\n" if !$cert_path;
+ die "No certificate key path given!\n" if !$key_path;
+
+ die "Certificate at '$cert_path' does not exist!\n" if ! -e $cert_path;
+ die "Certificate key '$key_path' does not exist!\n" if ! -e $key_path;
+
+ my $ctx = Net::SSLeay::CTX_new()
+ or $ssl_die->(
+ "failed to create SSL context in order to verify private key\n"
+ );
+
+ Net::SSLeay::set_cert_and_key($ctx, $cert_path, $key_path);
+
+ my $result = Net::SSLeay::CTX_check_private_key($ctx);
+
+ $ssl_warn->("Failed to validate private key and certificate\n")
+ if !$result;
+
+ Net::SSLeay::CTX_free($ctx);
+
+ return $result;
+}
+
sub get_certificate_info {
my ($cert_path) = @_;
--
2.30.2
More information about the pve-devel
mailing list