Merge branch 'release' into bug-440
[cacert-devel.git] / scripts / findnull.pl
1 #!/usr/bin/perl -w
2
3 foreach (<../crt/*>)
4 {
5 my $res=`openssl x509 -in $_ -text -noout -inform der`;
6 if($res=~m/\\x00/)
7 {
8 print "Alert: $_ is affected!\n";
9 }
10 else
11 {
12 #print "$_ not affected\n";
13 }
14 }