diff options
author | Bernhard Fröhlich <bernhard@cacert.org> | 2011-07-10 23:24:30 +0200 |
---|---|---|
committer | Bernhard Fröhlich <bernhard@cacert.org> | 2011-07-10 23:24:30 +0200 |
commit | b543e4096deec26ea30832bca574f5c78dc29962 (patch) | |
tree | cc6a181a27f767d8bf9c5c3e53f30a5ca09a0d9b | |
parent | 1b5357c5c57816cc05f9641fa2790a265db7d0ea (diff) | |
download | cacert-devel-b543e4096deec26ea30832bca574f5c78dc29962.tar.gz cacert-devel-b543e4096deec26ea30832bca574f5c78dc29962.tar.xz cacert-devel-b543e4096deec26ea30832bca574f5c78dc29962.zip |
Changes to DumWeakCerts.pl
-rwxr-xr-x | scripts/DumpWeakCerts.pl | 10 |
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"; |