Récupérer info certificat SSL perl / TCPDUMP
Bonjour,
Je dois récupérer automatiquement la date de validité des certificat SSL de partenaires avec lesquels je fait du SSL.
Je recherche comment je peux récupérer cette information de validité via un tcpdump / tshark / Net::Tshark / ou tout autre solution.
Via Net::Tshark j'ai ça : 'ssl' => 'ssl' => 'Secure Socket Layer' }, 'Net::Tshark::Packet' ); que je suis incapable d'interpréter.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| #!/usr/bin/env perl
use strict;
use utf8;
use warnings qw(all);
use Data::Dumper;
use Net::Tshark;
my $tshark = Net::Tshark->new;
$tshark->start(interface => 4, display_filter => 'ssl');
sleep 30;
$tshark->stop;
my @packets = $tshark->get_packets;
print Dumper(@packets); |
