scripts/findexp3.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/perl -w

foreach (<../crt/*>)
{
  my $res=`openssl x509 -in $_ -text -noout`;
  if($res=~m/Exponent: 65537 /)
  {
    print "Alert: $_ is affected!\n";
  }
  else
  {
    #print "$_ not affected\n";
  }
}