File Coverage

blib/lib/VOMS/Lite/KEY.pm

Criterion	Covered	Total	%
statement	49	70	70.0
branch	28	42	66.6
condition	17	27	62.9
subroutine	5	5	100.0
pod	0	1	0.0
total	99	145	68.2

package VOMS::Lite::KEY;

use 5.004;
use strict;

use VOMS::Lite::ASN1Helper qw(ASN1Index ASN1Unwrap);

require Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);

$VERSION = '0.20';

sub Examine {

  my ($decoded,$dataref)=@_;
  my %Values=%$dataref;
  my @ASN1Index=ASN1Index($decoded);

  my $index=0;
  my $ignoreuntil=0;
  my ($Keyversion,$Keymodulus,$KeypublicExponent,$KeyprivateExponent,$Keyprime1,$Keyprime2,$Keyexponent1,$Keyexponent2,$Keycoefficient);


# Test for PKCS8
  if ($ASN1Index[2]->[2] == 16) { # This is probably a PKCS8 key
    my ($CLASS,$CONSTRUCTED,$TAG,$HEADSTART,$HEADLEN,$CHUNKLEN) = @{$ASN1Index[5]};
    my $newdecoded=substr($decoded,$HEADSTART,($HEADLEN+$CHUNKLEN));
    if ( $TAG == 4 ) {
      $decoded=ASN1Unwrap($newdecoded);
      @ASN1Index=ASN1Index($decoded);
    }
  }

  shift @ASN1Index; #Key Sequence
  foreach (@ASN1Index) {
    my ($CLASS,$CONSTRUCTED,$TAG,$HEADSTART,$HEADLEN,$CHUNKLEN) = @$_;
    if ( $HEADSTART < $ignoreuntil ) { next; }
    else {
      if    ($index==0 && $TAG==2)  {$Keyversion         = substr($decoded,$HEADSTART,($HEADLEN+$CHUNKLEN));}
      elsif ($index==1 && $TAG==2)  {$Keymodulus         = substr($decoded,$HEADSTART,($HEADLEN+$CHUNKLEN));}
      elsif ($index==2 && $TAG==2)  {$KeypublicExponent  = substr($decoded,$HEADSTART,($HEADLEN+$CHUNKLEN));}
      elsif ($index==3 && $TAG==2)  {$KeyprivateExponent = substr($decoded,$HEADSTART,($HEADLEN+$CHUNKLEN));}
      elsif ($index==4 && $TAG==2)  {$Keyprime1          = substr($decoded,$HEADSTART,($HEADLEN+$CHUNKLEN));}
      elsif ($index==5 && $TAG==2)  {$Keyprime2          = substr($decoded,$HEADSTART,($HEADLEN+$CHUNKLEN));}
      elsif ($index==6 && $TAG==2)  {$Keyexponent1       = substr($decoded,$HEADSTART,($HEADLEN+$CHUNKLEN));}
      elsif ($index==7 && $TAG==2)  {$Keyexponent2       = substr($decoded,$HEADSTART,($HEADLEN+$CHUNKLEN));}
      elsif ($index==8 && $TAG==2)  {$Keycoefficient     = substr($decoded,$HEADSTART,($HEADLEN+$CHUNKLEN));}
      $index++;
      $ignoreuntil=$HEADSTART+$HEADLEN+$CHUNKLEN;
    }
  }

  if (defined $Values{Keyversion})         {my @n=ASN1Unwrap($Keyversion);         $Values{Keyversion}         = $n[5];}
  if (defined $Values{Keymodulus})         {my @n=ASN1Unwrap($Keymodulus);         $Values{Keymodulus}         = $n[5];}
  if (defined $Values{KeypublicExponent})  {my @n=ASN1Unwrap($KeypublicExponent);  $Values{KeypublicExponent}  = $n[5];}
  if (defined $Values{KeyprivateExponent}) {my @n=ASN1Unwrap($KeyprivateExponent); $Values{KeyprivateExponent} = $n[5];}
  if (defined $Values{Keyprime1})          {my @n=ASN1Unwrap($Keyprime1);          $Values{Keyprime1}          = $n[5];}
  if (defined $Values{Keyprime2})          {my @n=ASN1Unwrap($Keyprime2);          $Values{Keyprime2}          = $n[5];}
  if (defined $Values{Keyexponent1})       {my @n=ASN1Unwrap($Keyexponent1);       $Values{Keyexponent1}       = $n[5];}
  if (defined $Values{Keyexponent2})       {my @n=ASN1Unwrap($Keyexponent2);       $Values{Keyexponent2}       = $n[5];}
  if (defined $Values{Keycoefficient})     {my @n=ASN1Unwrap($Keycoefficient);     $Values{Keycoefficient}     = $n[5];}

  return (\%Values);
}

################################################################

1;
__END__