From db7d458392faa343d37f7dec6dd5a9fc3d03c383 Mon Sep 17 00:00:00 2001
From: Philipp Dunkel <philipp@cacert.org>
Date: Fri, 31 Jul 2009 21:24:37 +0000
Subject: [PATCH] Script to search for NullByte exploits

---
 scripts/findnull.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 scripts/findnull.pl

diff --git a/scripts/findnull.pl b/scripts/findnull.pl
new file mode 100644
index 0000000..02df02f
--- /dev/null
+++ b/scripts/findnull.pl
@@ -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";
+  }
+}