Permalink
Browse files

Check for OpenSSL + use unames

  • Loading branch information...
drwetter committed Nov 12, 2018
1 parent de7f7b6 commit 0431b7166a469a852abe1f2d270d13d3287672a6
Showing with 9 additions and 3 deletions.
  1. +9 −3 utils/wireshark2ciphers.pl
@@ -6,10 +6,16 @@
my $namelength = 30;
# Get all ciphers first (sorry only works on 64 bit mac atm)
# Get all ciphers first
my @spec;
my %ciphers;
foreach my $line ( split /\n/, `bin/openssl.Darwin.x86_64 ciphers -V 'ALL:COMPLEMENTOFALL:\@STRENGTH'`) {
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] ) {
@@ -40,4 +46,4 @@
}
print "\n\n" . join ":", @ciphers;
print "\n";
print "\n";

0 comments on commit 0431b71

Please sign in to comment.