File Coverage

lib/Crypt/Perl/RSA/Template.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	17	18	94.4

package Crypt::Perl::RSA::Template;

use strict;
use warnings;

use Crypt::Perl::PKCS8 ();

#cf. RFC 3447 appendix A.1.1
#
#replacing INTEGER with FG_FAUX_INTEGER to facilitate “lite” mode
#which doesn’t bring in Math::BigInt.
my $ASN1_TEMPLATE = q<

    FG_FAUX_INTEGER ::=

    RSAPublicKey ::= SEQUENCE {
        modulus         FG_FAUX_INTEGER,  -- n
        publicExponent  FG_FAUX_INTEGER   -- e
    }

    -- FG: simplified from RFC for Convert::ASN1
    Version ::= INTEGER

    OtherPrimeInfo ::= SEQUENCE {
        prime             FG_FAUX_INTEGER,  -- ri
        exponent          FG_FAUX_INTEGER,  -- di
        coefficient       FG_FAUX_INTEGER   -- ti
    }

    -- FG: simplified from RFC for Convert::ASN1
    OtherPrimeInfos ::= SEQUENCE OF OtherPrimeInfo

    RSAPrivateKey ::= SEQUENCE {
        version           Version,
        modulus           FG_FAUX_INTEGER,  -- n
        publicExponent    INTEGER,  -- e
        privateExponent   FG_FAUX_INTEGER,  -- d
        prime1            FG_FAUX_INTEGER,  -- p
        prime2            FG_FAUX_INTEGER,  -- q
        exponent1         FG_FAUX_INTEGER,  -- d mod (p-1)
        exponent2         FG_FAUX_INTEGER,  -- d mod (q-1)
        coefficient       FG_FAUX_INTEGER,  -- (inverse of q) mod p
        otherPrimeInfos   OtherPrimeInfos OPTIONAL
    }
> . Crypt::Perl::PKCS8::ASN1();

sub get_template {
    my ($what_is_big_fat_int) = @_;

    my $template = $ASN1_TEMPLATE;
    $template =~ s//$what_is_big_fat_int/;

    return $template;
}

1;