/msg;
$subject{'modulus'}=~s/\s+//msg;
$rv .= "\n";
$rv .= "$text{'certmgrlib_subject'} $text{'certmgrlib_issuer'} $subject{'CN'} $issuer{'CN'} $subject{'O'} $issuer{'O'} $subject{'OU'} $issuer{'OU'} $subject{'L'} $subject{'ST'} $subject{'C'} $issuer{'L'} $issuer{'ST'} $issuer{'C'} $subject{'emailAddress'} $issuer{'emailAddress'} $text{'issued_on'} $subject{'issued'} $text{'expires_on'} $subject{'expires'} $text{'keysize'} $subject{'keysize'} $text{'keytype'} $subject{'keytype'} $text{'publicExponent'} $subject{'exponent'} $text{'modulus'}:
$subject{'modulus'} $text{'md5fingerprint'}:
$subject{'md5fingerprint'}
\n";
return $rv;
}
sub show_key_info {
my $full=$_[0];
my $keydata=$_[1];
my %key;
my @fields=('modulus','privateExponent','prime1','prime2','exponent1','exponent2','coefficient');
my $field;
my $rv = "";
$keydata=~/^publicExponent:\s*(.*?)\s*?$/ms;
$key{'publicExponent'}=$1;
$keydata=~/^Private-Key:\s*\((\d*)\s*bit\)\s*?$/ms;
$key{'keysize'}=$1;
foreach $field (@fields){
if ($keydata=~/^$field:\s*((([0-9a-fA-F]{2}:)*\s*)*[0-9a-fA-F]{2})/ms) { $key{$field}=$1; }
}
$rv .= "\n";
$rv .= "
/msg;
$key{$field}=~s/^//msg;
$key{$field}=~s/\s+//msg;
$rv .= "$text{$field}: $key{$field}
\n";
return $rv;
}
sub pem_or_der{
my $filename=$_[0];
my $filetype=$_[1];
my $format;
my $cipher;
my $flag;
if ($filetype=~/^cert(ificate)?$/i){
open(PEM_OR_DER,$filename)||return("$text{'certmgrlib_e_file_open'} $filename");
while(){ if (/^\s*-+BEGIN\s*CERTIFICATE-*\s*$/i) { $format="PEM" } }
close(PEM_OR_DER);
if (!$format) {$format="DER";}
open(PEM_OR_DER,"$config{'openssl_cmd'} x509 -in $filename -inform $format -text|")||return($text{'certmgrlib_e_exec'});
while (){
if (/^\s*Certificate:\s$/) {
close(PEM_OR_DER);
return($format);
}
}
close(PEM_OR_DER);
return($text{'certmgrlib_e_cert'});
}
if ($filetype=~/^key$/i){
open(PEM_OR_DER,$filename)||return("$text{'certmgrlib_e_file_open'} $filename");
while(){
if (/^\s*-+BEGIN\s*RSA\s*PRIVATE\s*KEY-*\s*$/i) { $format="PEM" }
if (/^\s*Proc-Type:\s*\d*,ENCRYPTED\s*$/) { $flag=1; }
if (($flag)&&(/^DEK-Info:\s*(.*?),.*$/i)) { $cipher=$1 }
}
close(PEM_OR_DER);
if ($cipher) { if (wantarray) {return(($format,$cipher));} return($format); }
else {$cipher="none";}
if (!$format) {$format="DER";}
open(PEM_OR_DER,"$config{'openssl_cmd'} rsa -in $filename -inform $format -text|")||return($text{'certmgrlib_e_exec'});
while (){
if (/^\s*Private-Key:\s(\d*\sbit)\s*$/) {
close(PEM_OR_DER);
if (wantarray) {return(($format,$cipher));}
return($format);
}
}
close(PEM_OR_DER);
return($text{'certmgrlib_e_key'});
}
}
sub getfiles {
my(@dirs,@files,$thisdir,$dir);
$thisdir=$_[0];
opendir(DIR, $thisdir);
@dirs= sort grep { !/^[.]{1,2}$/ && -d "$thisdir/$_" } readdir(DIR);
closedir(DIR);
opendir(DIR,$thisdir);
@files= sort grep { -f "$thisdir/$_" } readdir(DIR);
closedir(DIR);
foreach $dir (@dirs) {
push(@files, grep { $_=$dir.'/'.$_ } &getfiles($thisdir."/".$dir));
}
return(@files);
}
1;