Perl의 Net :: SSLeay를 사용하여 전체 인증서 얻기

Question

Perl 라이브러리 Net::SSLeay을 사용하여 서버의 SSL 인증서를 다운로드하고 싶지만이를 수행하는 방법을 찾는 데 문제가 있습니다. 일반 이름과 일부 필드가 아닌 전체 인증서가 필요합니다.

예를 들어 스크립트에 google.com을 입력하면 https://google.com에 연결되어 CN "* .google.com"으로 인증서의 전체 인증서 문자열을 가져옵니다.

이 스크립트는 데비안 천리안 서버에서 실행되어야하므로 버전 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를 사용하여 디코딩 할 수 있습니다.