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