如何在Perl中验证RSA证书？已知根证书时的后续验证步骤问询

算力阿峰

2026-5-21

在Perl中验证RSA证书（含根证书验证目标证书）

首先先帮你修正代码里的一个小疏漏——你在提取公钥时误用了未定义的$x509变量，应该分别对应$root_x509和$other_x509对象：

use Crypt::OpenSSL::X509;
use Crypt::OpenSSL::RSA;

# 加载根证书与目标证书
my $root_x509 = Crypt::OpenSSL::X509->new_from_string($root_key_data, FORMAT_ASN1);
my $other_x509 = Crypt::OpenSSL::X509->new_from_string($other_key_data, FORMAT_ASN1);

# 修正：从根证书提取公钥
my $root_pubkey = $root_x509->pubkey();
# 修正：从目标证书提取公钥（若后续有需要）
my $other_pubkey = $other_x509->pubkey();

接下来的核心验证步骤其实不需要单独调用Crypt::OpenSSL::RSA的方法，Crypt::OpenSSL::X509本身就封装了更便捷的证书签名验证逻辑：

1. 验证目标证书的签名由根证书签发

直接调用目标证书的verify()方法，传入根证书的公钥即可完成签名验证：

# 验证结果：1=成功，0=失败，undef=过程出错
my $verify_result = $other_x509->verify($root_pubkey);

if ($verify_result == 1) {
    print "目标证书的签名已通过根证书验证\n";
} elsif ($verify_result == 0) {
    print "目标证书签名验证失败\n";
} else {
    die "验证过程出错: " . Crypt::OpenSSL::X509::errstr();
}

2. 更全面的证书验证（可选）

如果需要确保证书完全合规，还可以补充以下检查：

检查目标证书是否在有效期内
确认根证书是有效的自签名证书

# 检查目标证书有效期
my $current_time = time();
if ($other_x509->not_before() > $current_time || $other_x509->not_after() < $current_time) {
    die "目标证书已过期或尚未生效";
}

# 验证根证书为自签名（根证书必须满足此条件）
unless ($root_x509->verify($root_x509->pubkey())) {
    die "根证书不是有效的自签名证书";
}