genskey

Perl写的CA认证程序

## OpenCA - CA Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: genSKey
##       Brief: Generate CA's Secret Key
## Description: Generate The Secrete Key to be used by the CA
##  Parameters: bits, alg, passwd

my $cmdName = "genSKey";

if ( $cmd !~ /$cmdName/i ) {
        configError( "Wrong Command Usage ($cmd over $cmdName)!" );
        exit 1;
}

## This command will generate the new CA secret
## key (private/cakey.pem)

my $opencaDir = getRequired( 'opencadir' );
my $baseDoc   = getRequired( 'genskeysheet');

## Get the parameters
my $bits	= $query->param('bits');
my $alg		= $query->param('alg');
my $pwd		= $query->param('passwd');
my $cakeyFile	= "$opencaDir/private/cakey.pem";

## Other reserved variables
my ( $page, $key, $msg );

if( -e "$cakeyFile" ) {
	$tools->moveFiles( SRC=>"$cakeyFile", DEST=>"${cakeyFile}_${$}.old" );
	$msg = "Old key file is (${cakeyFile}_${$}.old)";
}

if( not $cryptoShell->genKey( BITS=>$bits,
			      OUTFILE=>$cakeyFile,
			      ALGORITHM=>$alg,
			      PASSWD=>$pwd ) ) {
	$msg .= "<BR><BR>ERROR: Please check the web error log file (ERROR: $?)<BR>";
	$msg .= "<FONT SIZE=-1 COLOR=\"#336699\">($cmd)</FONT>\n";
}


## Try loading the Key File
$key = $tools->getFile( "$cakeyFile" );
if( $key eq "" ) {
	configError( "Error loading generated Key!" );
}

## If we cannot load the base Document, then error
configError("Cannot load $baseDoc.")
			 unless ( $page = $query->getFile("$baseDoc"));

## Substitute the variables
$page = $query->subVar( $page, '$key', $key );
$page = $query->subVar( $page, '$msg', $msg );

## Send out the page
print "$page";

1;