Rewrite CA.pl.in
Reformat CA.pl.in to follow coding style. Also add "use strict" and "use warnings" Also modify it to exit properly and report only when succeeded. And some perl tweaks via Richard. Reviewed-by: Richard Levitte <levitte@openssl.org>
This commit is contained in:
Rich Salz
parent
23a1d5e97c
commit
5a3aa85252
1 changed files with 173 additions and 182 deletions
355
apps/CA.pl.in
355
apps/CA.pl.in
|
|
@ -1,197 +1,188 @@
|
||||||
#!/usr/local/bin/perl
|
#!/usr/bin/perl
|
||||||
#
|
#
|
||||||
# CA - wrapper around ca to make it easier to use
|
# Wrapper around the ca to make it easier to use
|
||||||
#
|
# Edit CA.pl.in not CA.pl!
|
||||||
# CA -newca ... will setup the right stuff
|
|
||||||
# CA -newreq[-nodes] ... will generate a certificate request
|
|
||||||
# CA -sign ... will sign the generated request and output
|
|
||||||
|
|
||||||
# default openssl.cnf file has setup as per the following
|
|
||||||
# demoCA ... where everything is stored
|
|
||||||
|
|
||||||
my $openssl;
|
use strict;
|
||||||
if(defined $ENV{OPENSSL}) {
|
use warnings;
|
||||||
$openssl = $ENV{OPENSSL};
|
|
||||||
|
my $openssl = "openssl";
|
||||||
|
if(defined $ENV{'OPENSSL'}) {
|
||||||
|
$openssl = $ENV{'OPENSSL'};
|
||||||
} else {
|
} else {
|
||||||
$openssl = "openssl";
|
$ENV{'OPENSSL'} = $openssl;
|
||||||
$ENV{OPENSSL} = $openssl;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
$SSLEAY_CONFIG=$ENV{"SSLEAY_CONFIG"};
|
my $verbose = 1;
|
||||||
$DAYS="-days 365"; # 1 year
|
|
||||||
$CADAYS="-days 1095"; # 3 years
|
|
||||||
$REQ="$openssl req $SSLEAY_CONFIG";
|
|
||||||
$CA="$openssl ca $SSLEAY_CONFIG";
|
|
||||||
$VERIFY="$openssl verify";
|
|
||||||
$X509="$openssl x509";
|
|
||||||
$PKCS12="$openssl pkcs12";
|
|
||||||
|
|
||||||
$CATOP="./demoCA";
|
my $SSLEAY_CONFIG = $ENV{"SSLEAY_CONFIG"};
|
||||||
$CAKEY="cakey.pem";
|
my $DAYS = "-days 365";
|
||||||
$CAREQ="careq.pem";
|
my $CADAYS = "-days 1095"; # 3 years
|
||||||
$CACERT="cacert.pem";
|
my $REQ = "$openssl req $SSLEAY_CONFIG";
|
||||||
$CACRL="crl.pem";
|
my $CA = "$openssl ca $SSLEAY_CONFIG";
|
||||||
|
my $VERIFY = "$openssl verify";
|
||||||
|
my $X509 = "$openssl x509";
|
||||||
|
my $PKCS12 = "$openssl pkcs12";
|
||||||
|
|
||||||
$DIRMODE = 0777;
|
# default openssl.cnf file has setup as per the following
|
||||||
|
my $CATOP = "./demoCA";
|
||||||
|
my $CAKEY = "cakey.pem";
|
||||||
|
my $CAREQ = "careq.pem";
|
||||||
|
my $CACERT = "cacert.pem";
|
||||||
|
my $CACRL = "crl.pem";
|
||||||
|
my $DIRMODE = 0777;
|
||||||
|
|
||||||
$RET = 0;
|
my $NEWKEY = "newkey.pem";
|
||||||
|
my $NEWREQ = "newreq.pem";
|
||||||
|
my $NEWCERT = "newcert.pem";
|
||||||
|
my $NEWP12 = "newcert.p12";
|
||||||
|
my $RET = 0;
|
||||||
|
my $WHAT = shift @ARGV;
|
||||||
|
my $FILE;
|
||||||
|
|
||||||
foreach (@ARGV) {
|
# See if reason for a CRL entry is valid; exit if not.
|
||||||
if ( /^(-\?|-h|-help)$/ ) {
|
sub crl_reason_ok
|
||||||
print STDERR "usage: CA -newcert|-newreq|-newreq-nodes|-newca|-sign|-verify\n";
|
{
|
||||||
print STDERR " CA -crl|-revoke cert-filename [reason]\n";
|
my $r = shift;
|
||||||
exit 0;
|
|
||||||
} elsif (/^-newcert$/) {
|
|
||||||
# create a certificate
|
|
||||||
system ("$REQ -new -x509 -keyout newkey.pem -out newcert.pem $DAYS");
|
|
||||||
$RET=$?;
|
|
||||||
print "Certificate is in newcert.pem, private key is in newkey.pem\n"
|
|
||||||
} elsif (/^-newreq$/) {
|
|
||||||
# create a certificate request
|
|
||||||
system ("$REQ -new -keyout newkey.pem -out newreq.pem $DAYS");
|
|
||||||
$RET=$?;
|
|
||||||
print "Request is in newreq.pem, private key is in newkey.pem\n";
|
|
||||||
} elsif (/^-newreq-nodes$/) {
|
|
||||||
# create a certificate request
|
|
||||||
system ("$REQ -new -nodes -keyout newkey.pem -out newreq.pem $DAYS");
|
|
||||||
$RET=$?;
|
|
||||||
print "Request is in newreq.pem, private key is in newkey.pem\n";
|
|
||||||
} elsif (/^-newca$/) {
|
|
||||||
# if explicitly asked for or it doesn't exist then setup the
|
|
||||||
# directory structure that Eric likes to manage things
|
|
||||||
$NEW="1";
|
|
||||||
if ( "$NEW" || ! -f "${CATOP}/serial" ) {
|
|
||||||
# create the directory hierarchy
|
|
||||||
mkdir $CATOP, $DIRMODE;
|
|
||||||
mkdir "${CATOP}/certs", $DIRMODE;
|
|
||||||
mkdir "${CATOP}/crl", $DIRMODE ;
|
|
||||||
mkdir "${CATOP}/newcerts", $DIRMODE;
|
|
||||||
mkdir "${CATOP}/private", $DIRMODE;
|
|
||||||
open OUT, ">${CATOP}/index.txt";
|
|
||||||
close OUT;
|
|
||||||
open OUT, ">${CATOP}/crlnumber";
|
|
||||||
print OUT "01\n";
|
|
||||||
close OUT;
|
|
||||||
}
|
|
||||||
if ( ! -f "${CATOP}/private/$CAKEY" ) {
|
|
||||||
print "CA certificate filename (or enter to create)\n";
|
|
||||||
$FILE = <STDIN>;
|
|
||||||
|
|
||||||
chop $FILE;
|
if ($r eq 'unspecified' || $r eq 'keyCompromise'
|
||||||
|
|| $r eq 'CACompromise' || $r eq 'affiliationChanged'
|
||||||
|
|| $r eq 'superseded' || $r eq 'cessationOfOperation'
|
||||||
|
|| $r eq 'certificateHold' || $r eq 'removeFromCRL') {
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
print STDERR "Invalid CRL reason; must be one of:\n";
|
||||||
|
print STDERR " unspecified, keyCompromise, CACompromise,\n";
|
||||||
|
print STDERR " affiliationChanged, superseded, cessationOfOperation\n";
|
||||||
|
print STDERR " certificateHold, removeFromCRL";
|
||||||
|
exit 1;
|
||||||
|
}
|
||||||
|
|
||||||
# ask user for existing CA certificate
|
# Copy a PEM-format file; return like exit status (zero means ok)
|
||||||
if ($FILE) {
|
sub copy_pemfile
|
||||||
cp_pem($FILE,"${CATOP}/private/$CAKEY", "PRIVATE");
|
{
|
||||||
cp_pem($FILE,"${CATOP}/$CACERT", "CERTIFICATE");
|
my ($infile, $outfile, $bound) = @_;
|
||||||
$RET=$?;
|
my $found = 0;
|
||||||
} else {
|
|
||||||
print "Making CA certificate ...\n";
|
open IN, $infile || die "Cannot open $infile, $!";
|
||||||
system ("$REQ -new -keyout " .
|
open OUT, ">$outfile" || die "Cannot write to $outfile, $!";
|
||||||
"${CATOP}/private/$CAKEY -out ${CATOP}/$CAREQ");
|
while (<IN>) {
|
||||||
system ("$CA -create_serial " .
|
$found = 1 if /^-----BEGIN.*$bound/;
|
||||||
"-out ${CATOP}/$CACERT $CADAYS -batch " .
|
print OUT $_ if $found;
|
||||||
"-keyfile ${CATOP}/private/$CAKEY -selfsign " .
|
$found = 2, last if /^-----END.*$bound/;
|
||||||
"-extensions v3_ca " .
|
}
|
||||||
"-infiles ${CATOP}/$CAREQ ");
|
close IN;
|
||||||
$RET=$?;
|
close OUT;
|
||||||
}
|
return $found == 2 ? 0 : 1;
|
||||||
}
|
}
|
||||||
} elsif (/^-pkcs12$/) {
|
|
||||||
my $cname = $ARGV[1];
|
# Wrapper around system; useful for debugging. Returns just the exit status
|
||||||
$cname = "My Certificate" unless defined $cname;
|
sub run
|
||||||
system ("$PKCS12 -in newcert.pem -inkey newkey.pem " .
|
{
|
||||||
"-certfile ${CATOP}/$CACERT -out newcert.p12 " .
|
my $cmd = shift;
|
||||||
"-export -name \"$cname\"");
|
print "====\n$cmd\n" if $verbose;
|
||||||
$RET=$?;
|
my $status = system($cmd);
|
||||||
print "PKCS #12 file is in newcert.p12\n";
|
print "==> $status\n====\n" if $verbose;
|
||||||
exit $RET;
|
return $status >> 8;
|
||||||
} elsif (/^-xsign$/) {
|
}
|
||||||
system ("$CA -policy policy_anything -infiles newreq.pem");
|
|
||||||
$RET=$?;
|
|
||||||
} elsif (/^(-sign|-signreq)$/) {
|
if ( $WHAT =~ /^(-\?|-h|-help)$/ ) {
|
||||||
system ("$CA -policy policy_anything -out newcert.pem " .
|
print STDERR "usage: CA -newcert|-newreq|-newreq-nodes|-newca|-sign|-verify\n";
|
||||||
"-infiles newreq.pem");
|
print STDERR " CA -pkcs12 [certname]\n";
|
||||||
$RET=$?;
|
print STDERR " CA -crl|-revoke cert-filename [reason]\n";
|
||||||
print "Signed certificate is in newcert.pem\n";
|
exit 0;
|
||||||
} elsif (/^(-signCA)$/) {
|
}
|
||||||
system ("$CA -policy policy_anything -out newcert.pem " .
|
if ($WHAT eq '-newcert' ) {
|
||||||
"-extensions v3_ca -infiles newreq.pem");
|
# create a certificate
|
||||||
$RET=$?;
|
$RET = run("$REQ -new -x509 -keyout $NEWKEY -out $NEWCERT $DAYS");
|
||||||
print "Signed CA certificate is in newcert.pem\n";
|
print "Cert is in $NEWCERT, private key is in $NEWKEY\n" if $RET == 0;
|
||||||
} elsif (/^-signcert$/) {
|
} elsif ($WHAT eq '-newreq' ) {
|
||||||
system ("$X509 -x509toreq -in newreq.pem -signkey newreq.pem " .
|
# create a certificate request
|
||||||
"-out tmp.pem");
|
$RET = run("$REQ -new -keyout $NEWKEY -out $NEWREQ $DAYS");
|
||||||
system ("$CA -policy policy_anything -out newcert.pem " .
|
print "Request is in $NEWREQ, private key is in $NEWKEY\n" if $RET == 0;
|
||||||
"-infiles tmp.pem");
|
} elsif ($WHAT eq '-newreq-nodes' ) {
|
||||||
$RET = $?;
|
# create a certificate request
|
||||||
print "Signed certificate is in newcert.pem\n";
|
$RET = run("$REQ -new -nodes -keyout $NEWKEY -out $NEWREQ $DAYS");
|
||||||
} elsif (/^-verify$/) {
|
print "Request is in $NEWREQ, private key is in $NEWKEY\n" if $RET == 0;
|
||||||
if (shift) {
|
} elsif ($WHAT eq '-newca' ) {
|
||||||
foreach $j (@ARGV) {
|
# create the directory hierarchy
|
||||||
system ("$VERIFY -CAfile $CATOP/$CACERT $j");
|
mkdir ${CATOP}, $DIRMODE;
|
||||||
$RET=$? if ($? != 0);
|
mkdir "${CATOP}/certs", $DIRMODE;
|
||||||
}
|
mkdir "${CATOP}/crl", $DIRMODE ;
|
||||||
exit $RET;
|
mkdir "${CATOP}/newcerts", $DIRMODE;
|
||||||
} else {
|
mkdir "${CATOP}/private", $DIRMODE;
|
||||||
system ("$VERIFY -CAfile $CATOP/$CACERT newcert.pem");
|
open OUT, ">${CATOP}/index.txt";
|
||||||
$RET=$?;
|
close OUT;
|
||||||
exit $RET;
|
open OUT, ">${CATOP}/crlnumber";
|
||||||
}
|
print OUT "01\n";
|
||||||
} elsif (/^-crl$/) {
|
close OUT;
|
||||||
system ("$CA -gencrl -out $CATOP/crl/$CACRL");
|
# ask user for existing CA certificate
|
||||||
$RET=$?;
|
print "CA certificate filename (or enter to create)\n";
|
||||||
print "Generated CRL is in $CATOP/crl/$CACRL\n" if (!$RET);
|
$FILE = <STDIN>;
|
||||||
} elsif (/^-revoke$/) {
|
chop $FILE;
|
||||||
my $cname = $ARGV[1];
|
if ($FILE) {
|
||||||
if (!defined $cname) {
|
copy_pemfile($FILE,"${CATOP}/private/$CAKEY", "PRIVATE");
|
||||||
print "Certificate filename is required; reason optional.\n";
|
copy_pemfile($FILE,"${CATOP}/$CACERT", "CERTIFICATE");
|
||||||
exit 1;
|
} else {
|
||||||
}
|
print "Making CA certificate ...\n";
|
||||||
my $reason = $ARGV[2];
|
$RET = run("$REQ -new -keyout"
|
||||||
$reason = " -crl_reason $reason"
|
. " ${CATOP}/private/$CAKEY"
|
||||||
if defined $reason && crl_reason_ok($reason);
|
. " -out ${CATOP}/$CAREQ");
|
||||||
my $cmd = "$CA -revoke \"$cname\"".$reason;
|
$RET = run("$CA -create_serial"
|
||||||
system ($cmd);
|
. " -out ${CATOP}/$CACERT $CADAYS -batch"
|
||||||
$RET=$?;
|
. " -keyfile ${CATOP}/private/$CAKEY -selfsign"
|
||||||
exit $RET;
|
. " -extensions v3_ca"
|
||||||
} else {
|
. " -infiles ${CATOP}/$CAREQ") if $RET == 0;
|
||||||
print STDERR "Unknown arg $_\n";
|
print "CA certificate is in ${CATOP}/$CACERT\n" if $RET == 0;
|
||||||
print STDERR "usage: CA -newcert|-newreq|-newreq-nodes|-newca|-sign|-verify\n";
|
}
|
||||||
print STDERR " CA -crl|-revoke cert-filename [reason]\n";
|
} elsif ($WHAT eq '-pkcs12' ) {
|
||||||
exit 1;
|
my $cname = $ARGV[1];
|
||||||
}
|
$cname = "My Certificate" unless defined $cname;
|
||||||
|
$RET = run("$PKCS12 -in $NEWCERT -inkey $NEWKEY"
|
||||||
|
. " -certfile ${CATOP}/$CACERT"
|
||||||
|
. " -out $NEWP12"
|
||||||
|
. " -export -name \"$cname\"");
|
||||||
|
print "PKCS #12 file is in $NEWP12\n" if $RET == 0;
|
||||||
|
} elsif ($WHAT eq '-xsign' ) {
|
||||||
|
$RET = run("$CA -policy policy_anything -infiles $NEWREQ");
|
||||||
|
} elsif ($WHAT eq '-sign' ) {
|
||||||
|
$RET = run("$CA -policy policy_anything -out $NEWCERT -infiles $NEWREQ");
|
||||||
|
print "Signed certificate is in $NEWCERT\n" if $RET == 0;
|
||||||
|
} elsif ($WHAT eq '-signCA' ) {
|
||||||
|
$RET = run("$CA -policy policy_anything -out $NEWCERT"
|
||||||
|
. " -extensions v3_ca -infiles $NEWREQ");
|
||||||
|
print "Signed CA certificate is in $NEWCERT\n" if $RET == 0;
|
||||||
|
} elsif ($WHAT eq '-signcert' ) {
|
||||||
|
$RET = run("$X509 -x509toreq -in $NEWREQ -signkey $NEWREQ"
|
||||||
|
. " -out tmp.pem");
|
||||||
|
$RET = run("$CA -policy policy_anything -out $NEWCERT"
|
||||||
|
. " -infiles tmp.pem") if $RET == 0;
|
||||||
|
print "Signed certificate is in $NEWCERT\n" if $RET == 0;
|
||||||
|
} elsif ($WHAT eq '-verify' ) {
|
||||||
|
my @files = @ARGV ? @ARGV : ( $NEWCVERT );
|
||||||
|
foreach $file (@files) {
|
||||||
|
my $status = run("$VERIFY -CAfile ${CATOP}/$CACERT $file");
|
||||||
|
$RET = $status if $status != 0;
|
||||||
|
}
|
||||||
|
} elsif ($WHAT eq '-crl' ) {
|
||||||
|
$RET = run("$CA -gencrl -out ${CATOP}/crl/$CACRL");
|
||||||
|
print "Generated CRL is in ${CATOP}/crl/$CACRL\n" if $RET == 0;
|
||||||
|
} elsif ($WHAT eq '-revoke' ) {
|
||||||
|
my $cname = $ARGV[1];
|
||||||
|
if (!defined $cname) {
|
||||||
|
print "Certificate filename is required; reason optional.\n";
|
||||||
|
exit 1;
|
||||||
|
}
|
||||||
|
my $reason = $ARGV[2];
|
||||||
|
$reason = " -crl_reason $reason"
|
||||||
|
if defined $reason && crl_reason_ok($reason);
|
||||||
|
$RET = run("$CA -revoke \"$cname\"" . $reason);
|
||||||
|
} else {
|
||||||
|
print STDERR "Unknown arg \"$WHAT\"\n";
|
||||||
|
print STDERR "Use -help for help.\n";
|
||||||
|
exit 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
exit $RET;
|
exit $RET;
|
||||||
|
|
||||||
sub crl_reason_ok {
|
|
||||||
my ($r) = shift;
|
|
||||||
if ($r eq 'unspecified' || $r eq 'keyCompromise' ||
|
|
||||||
$r eq 'CACompromise' || $r eq 'affiliationChanged' ||
|
|
||||||
$r eq 'superseded' || $r eq 'cessationOfOperation' ||
|
|
||||||
$r eq 'certificateHold' || $r eq 'removeFromCRL') {
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
print STDERR "Invalid CRL reason; must be one of:\n";
|
|
||||||
print STDERR " unspecified, keyCompromise, CACompromise,\n";
|
|
||||||
print STDERR " affiliationChanged, superseded, cessationOfOperation\n";
|
|
||||||
print STDERR " certificateHold, removeFromCRL";
|
|
||||||
exit 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub cp_pem {
|
|
||||||
my ($infile, $outfile, $bound) = @_;
|
|
||||||
open IN, $infile;
|
|
||||||
open OUT, ">$outfile";
|
|
||||||
my $flag = 0;
|
|
||||||
while (<IN>) {
|
|
||||||
$flag = 1 if (/^-----BEGIN.*$bound/) ;
|
|
||||||
print OUT $_ if ($flag);
|
|
||||||
if (/^-----END.*$bound/) {
|
|
||||||
close IN;
|
|
||||||
close OUT;
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue