summaryrefslogtreecommitdiff
path: root/scripts/DumpWeakCerts.pl
diff options
context:
space:
mode:
authorBernhard Fröhlich <bernhard@cacert.org>2011-07-10 23:24:30 +0200
committerBernhard Fröhlich <bernhard@cacert.org>2011-07-10 23:24:30 +0200
commitb543e4096deec26ea30832bca574f5c78dc29962 (patch)
treecc6a181a27f767d8bf9c5c3e53f30a5ca09a0d9b /scripts/DumpWeakCerts.pl
parent1b5357c5c57816cc05f9641fa2790a265db7d0ea (diff)
downloadcacert-devel-b543e4096deec26ea30832bca574f5c78dc29962.tar.gz
cacert-devel-b543e4096deec26ea30832bca574f5c78dc29962.tar.xz
cacert-devel-b543e4096deec26ea30832bca574f5c78dc29962.zip
Changes to DumWeakCerts.pl
Diffstat (limited to 'scripts/DumpWeakCerts.pl')
-rwxr-xr-xscripts/DumpWeakCerts.pl10
1 files changed, 10 insertions, 0 deletions
diff --git a/scripts/DumpWeakCerts.pl b/scripts/DumpWeakCerts.pl
index 5bd416a..580390e 100755
--- a/scripts/DumpWeakCerts.pl
+++ b/scripts/DumpWeakCerts.pl
@@ -44,6 +44,16 @@ sub IsWeak($) {
my $ModulusSize = 0;
my $Exponent = 0;
my $result = 0;
+
+
+# Code for Testing only! Hardcoding some filenames to fail the tests.
+#
+# if ($CertFileName eq '../crt/server/301/server-301988.crt' ||
+# $CertFileName eq '../crt/client/258/client-258856.crt' ||
+# $CertFileName eq '../crt/orgserver/2/orgserver-2635.crt' ||
+# $CertFileName eq '../crt/orgclient/0/orgclient-808.crt') {
+# return "Test";
+# }
# Do key size and exponent checking for RSA keys
open(CERTTEXT, '-|', "openssl x509 -in $CertFileName -noout -text") || die "Cannot start openssl";