Parsing more information from SSL Labs

This commit is contained in:
Frank Breedijk 2016-06-23 16:55:29 +02:00
parent cf8b2f01f2
commit a73caa930a
2 changed files with 723 additions and 9 deletions

File diff suppressed because it is too large Load Diff

View File

@ -119,7 +119,25 @@ foreach my $client ( @$ssllabs ) {
printf OUT "lowest_protocol+=(\"0x%04x\")\n", $client->{lowestProtocol}; printf OUT "lowest_protocol+=(\"0x%04x\")\n", $client->{lowestProtocol};
printf OUT "highest_protocol+=(\"0x%04x\")\n", $client->{highestProtocol}; printf OUT "highest_protocol+=(\"0x%04x\")\n", $client->{highestProtocol};
print OUT "service+=(\"HTTP\")\n"; if ( lc($client->{name}) eq "java" || lc($client->{name}) eq "openssl" ) {
# Java and OpenSSL are generic clients
print OUT "service+=(\"ANY\")\n";
} else {
# All others are HTTP(s) only
print OUT "service+=(\"HTTP\")\n";
}
# Bit size limitations
print OUT "minDhBits+=($client->{minDhBits})\n";
print OUT "maxDhBits+=($client->{maxDhBits})\n";
print OUT "minRsaBits+=($client->{minRsaBits})\n";
print OUT "maxRsaBits+=($client->{maxRsaBits})\n";
print OUT "minEcdsaBits+=($client->{minEcdsaBits})\n";
if ( defined $client->{requiresSha2} && $client->{requiresSha2} ) {
print OUT "requiresSha2+=(true)\n";
} else {
print OUT "requiresSha2+=(false)\n";
}
print OUT "\n"; print OUT "\n";
} }