Git/testssl.sh
1
0
Fork 0
mirror of https://github.com/drwetter/testssl.sh.git synced 2025-05-02 14:26:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

Check for OpenSSL + use unames

Browse Source
This commit is contained in:
Dirk 2018-11-12 20:52:36 +01:00
parent de7f7b6cab
commit 0431b7166a
1 changed files with 9 additions and 3 deletions

12
utils/wireshark2ciphers.pl

@ -6,10 +6,16 @@ use JSON;
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 @@ while (<>) {
}
print "\n\n" . join ":", @ciphers;
print "\n";
print "\n";