mirror of
https://github.com/drwetter/testssl.sh.git
synced 2025-01-28 03:11:17 +01:00
changed to Linux
This commit is contained in:
parent
5bb1a67dde
commit
59a175cba3
@ -6,11 +6,10 @@ use Data::Dumper;
|
||||
my @spec;
|
||||
my %ciphers;
|
||||
|
||||
# Turn cipher section of page like this https://www.ssllabs.com/ssltest/viewClient.html?name=Android&version=4.0.4
|
||||
# Turn cipher section of page like this https://www.ssllabs.com/ssltest/viewClient.html?name=Android&version=4.0.4
|
||||
# into an openssl cipher spec
|
||||
|
||||
# Get all ciphers first (sorry only works on 64 bit mac atm)
|
||||
foreach my $line ( split /\n/, `bin/openssl.Darwin.x86_64 ciphers -V 'ALL:COMPLEMENTOFALL:\@STRENGTH'`) {
|
||||
foreach my $line ( split /\n/, `../bin/openssl.Linux.x86_64 ciphers -V 'ALL:COMPLEMENTOFALL:\@STRENGTH'`) {
|
||||
my @fields = split /\s+/, $line;
|
||||
my $hex = "";
|
||||
foreach my $byte ( split /,/, $fields[1] ) {
|
||||
@ -36,7 +35,7 @@ while (<>) {
|
||||
print "** $_\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
print join ":", @spec;
|
||||
print "\n";
|
||||
|
Loading…
Reference in New Issue
Block a user