Searching for Exponents

pull/1/head
root 16 years ago
parent a5894917d7
commit 550cea3d47

@ -0,0 +1,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";
}
}
Loading…
Cancel
Save