cacert-webdb/scripts/findnull.pl

15 lines
217 B
Perl
Raw Permalink Normal View History

2009-07-31 21:24:37 +00:00
#!/usr/bin/perl -w
foreach (<../crt/*>)
{
my $res=`openssl x509 -in $_ -text -noout -inform der`;
if($res=~m/\\x00/)
{
print "Alert: $_ is affected!\n";
}
else
{
#print "$_ not affected\n";
}
}