testssl.sh/utils/wireshark2ciphers.pl

#!/usr/bin/perl

use strict;
use Data::Dumper;
use JSON;

my $namelength = 30;

# Get all ciphers first
my @spec;
my %ciphers;
my $ossl = "bin/openssl." . `uname -s` . "." . `uname -m`;
$ossl =~ s/\R//g;                                       # remove LFs

die "Unable to open $ossl" unless -f $ossl;
my $ossl = "$ossl" . " ciphers -V 'ALL:COMPLEMENTOFALL:\@STRENGTH'";

foreach my $line ( split /\n/, `$ossl` ) {
	my @fields = split /\s+/, $line;
	my $hex = "";
	foreach my $byte ( split /,/, $fields[1] ) {
		$byte = lc $byte;
		$byte =~ s/^0x//;
		$hex .= $byte;
	}
	$hex =~ s/^0+//;
	$ciphers{"0x$hex"} = $fields[3];
}
#die Dumper \%ciphers;
#exit;

my @ciphers = ();
while (<>) {
	if ( /^\s*Cipher Suite\:/ ) {
		/\((0x[0-9a-f]+)\)\s*$/;
		my $n = $1;
		$n =~ s/0x0*/0x/;
		if ( $n && exists $ciphers{$n} ) {
			push @ciphers, $ciphers{$n};
		} else {
			print STDERR "No matching cipher for: $n on line\n$_"
		}
	} else {
		print STDERR "Ignoring line $_"
	}
}

print "\n\n" . join ":", @ciphers;
print "\n";