perl - 检查通过 LWP 请求返回的 SSL 证书

Question

我在 perl 中使用 LWP 请求网页，我希望能够访问网络服务器提供的 SSL 证书(我正在寻找证书中的到期日期等) .我想要的信息不在 Crypt::SSLeay 添加到请求的三个 header 中。有没有一种方法可以让我忽略(理想情况下)获取 SSL 证书的对象引用？我浏览了一些 perl 文档和谷歌，但这是漫长的一周，我可能只是没有阅读正确的内容。

如果可以避免，我不想通过建立单独的原始 SSL 连接来直接获取证书 - 因为有一个经过身份验证的 Web 代理，而 LWP 只是让这个问题对我来说透明地消失了。 :) 当我需要的数据已经传输到我的机器/某处/...时建立两个连接是愚蠢的

Answer 1

LWP 提供的回调都没有提供(有意的)对套接字的访问，但似乎确实有一个潜在的解决方法——如果您提供 keep_alive 和 conn_cache LWP 的选项，在请求结束时，LWP 将使用连接套接字作为参数在 conn_cache 对象上调用 ->deposit。您可以编写一个虚拟的 conn-cache 对象，或者只是“创造性地”使用 LWP 提供的 LWP::ConnCache。

无论如何，如果您使用该反手方法获取套接字，它将成为 Net::SSL 的子类(假设您使用的是 ssleay)，因此您将只需调用 ->get_peer_certificate 即可。