view release on metacpan or  search on metacpan

t/02-basic.t  view on Meta::CPAN

    for my $mech (qw/RSA_PKCS RSA_PKCS_OAEP/) {
        my $pkcs11 = $self->_new_pkcs11(
            key      => 'encryption_key',
            function => 'encrypt'
        );
        ok my $encrypted_data =
          $pkcs11->encrypt(file => $data_file, mech => $mech),
          "Encrypted with mech $mech";

        my $private_key_file = path 't/keys/1024_enc.pem';
        ok my $decrypted_data =
          $self->openssl_decrypt($private_key_file, $encrypted_data, $mech),
          'Decrypted using openssl';
        is $decrypted_data, $data_file->slurp_raw, 'Successful round-trip';
    }

};

run_me;
done_testing;

t/lib/CommonTest.pm  view on Meta::CPAN

    my $openssl_cmd = [
        $self->_openssl, 'dgst',       '-sha1',   '-verify',
        $key_file,       '-signature', $sig_file, $data_file
    ];

    return run command => $openssl_cmd, verbose => $ENV{TEST_DEBUG};
}

sub openssl_decrypt {
    my ($self, $private_key_file, $encrypted_data, $mech) = @_;

    my $openssl_cmd =
      [$self->_openssl, 'rsautl', '-decrypt', '-inkey', $private_key_file];

    if ($mech eq 'RSA_PKCS') {
        push @$openssl_cmd, '-pkcs';
    } elsif ($mech eq 'RSA_PKCS_OAEP') {
        push @$openssl_cmd, '-oaep';
    } else {
        die "Unsupported mech: $mech";
    }

    my $output = run_forked $openssl_cmd,