我想使用Perl库Net::SSLeay下载服务器的SSL证书，但是在弄清楚如何执行此操作时遇到了麻烦。我需要整个证书，而不仅仅是通用名称和一些字段。
例如，我给脚本提供参数google.com，它将连接到https://google.com并使用CN“ * .google.com”获得证书的整个证书字符串。
该脚本需要在Debian wheezy服务器上运行，因此必须使用1.48版Net::SSLeay。
我相信这可能是您想要的？
($reply, $err, $cert) = sslcat('www.google.com', 443, '/'); # 5
$PEM = Net::SSLeay::PEM_get_string_X509( $cert);
将为您提供PEM编码的SSL证书。您可以使用MIME :: Base64对其进行解码。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句