perl - 使用 Perl 的 Net::SSLeay 获取整个证书

Question

我想使用 Perl 库 Net::SSLeay下载服务器的 SSL 证书，但无法弄清楚如何执行此操作。我想要完整证书，而不仅仅是通用名称和一些字段。

例如，我会给脚本参数 google.com，它会连接到 https://google.com并获取带有 CN“*.google.com”的证书的完整证书字符串。

此脚本需要在 Debian wheezy 服务器上运行，因此必须使用 1.48 版的 Net::SSLeay。

Answer 1

我相信这可能是您想要的？

($reply, $err, $cert) = sslcat('www.google.com', 443, '/'); # 5
$PEM = Net::SSLeay::PEM_get_string_X509( $cert);

将为您提供 PEM 编码的 SSL 证书。您可以使用 MIME::Base64 对其进行解码。