Script to search for NullByte exploits

This commit is contained in:
Philipp Dunkel 2009-07-31 21:24:37 +00:00
parent 5ee56423df
commit db7d458392

14
scripts/findnull.pl Normal file
View file

@ -0,0 +1,14 @@
#!/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";
}
}