Home | History | Annotate | Line # | Download | only in recipes 
      1 #! /usr/bin/env perl
      2 # Copyright 2017 The OpenSSL Project Authors. All Rights Reserved.
      3 # Copyright 2017 BaishanCloud. All rights reserved.
      4 #
      5 # Licensed under the OpenSSL license (the "License").  You may not use
      6 # this file except in compliance with the License.  You can obtain a copy
      7 # in the file LICENSE in the source distribution or at
      8 # https://www.openssl.org/source/license.html
      9 
     10 
     11 use strict;
     12 use warnings;
     13 
     14 use File::Spec;
     15 use OpenSSL::Test qw/:DEFAULT data_file/;
     16 use OpenSSL::Test::Utils;
     17 
     18 setup("test_mp_rsa");
     19 
     20 plan tests => 31;
     21 
     22 ok(run(test(["rsa_mp_test"])), "running rsa multi prime test");
     23 
     24 my $cleartext = data_file("plain_text");
     25 
     26 my @test_param = (
     27     # 3 primes, 2048-bit
     28     {
     29         primes => '3',
     30         bits => '2048',
     31     },
     32     # 4 primes, 4096-bit
     33     {
     34         primes => '4',
     35         bits => '4096',
     36     },
     37     # 5 primes, 8192-bit
     38     {
     39         primes => '5',
     40         bits => '8192',
     41     },
     42 );
     43 
     44 # genrsa
     45 run_mp_tests(0);
     46 # evp
     47 run_mp_tests(1);
     48 
     49 sub run_mp_tests {
     50     my $evp = shift;
     51 
     52     foreach my $param (@test_param) {
     53         my $primes = $param->{primes};
     54         my $bits = $param->{bits};
     55         my $name = ($evp ? "evp" : "") . "${bits}p${primes}";
     56 
     57         if ($evp) {
     58             ok(run(app([ 'openssl', 'genpkey', '-out', 'rsamptest.pem',
     59                          '-algorithm', 'RSA', '-pkeyopt', "rsa_keygen_primes:$primes",
     60                          '-pkeyopt', "rsa_keygen_bits:$bits"])), "genrsa $name");
     61         } else {
     62             ok(run(app([ 'openssl', 'genrsa', '-out', 'rsamptest.pem',
     63                          '-primes', $primes, $bits])), "genrsa $name");
     64         }
     65 
     66         ok(run(app([ 'openssl', 'rsa', '-check', '-in', 'rsamptest.pem',
     67                      '-noout'])), "rsa -check $name");
     68         if ($evp) {
     69             ok(run(app([ 'openssl', 'pkeyutl', '-inkey', 'rsamptest.pem',
     70                          '-encrypt', '-in', $cleartext,
     71                          '-out', 'rsamptest.enc' ])), "rsa $name encrypt");
     72             ok(run(app([ 'openssl', 'pkeyutl', '-inkey', 'rsamptest.pem',
     73                          '-decrypt', '-in', 'rsamptest.enc',
     74                          '-out', 'rsamptest.dec' ])), "rsa $name decrypt");
     75         } else {
     76             ok(run(app([ 'openssl', 'rsautl', '-inkey', 'rsamptest.pem',
     77                          '-encrypt', '-in', $cleartext,
     78                          '-out', 'rsamptest.enc' ])), "rsa $name encrypt");
     79             ok(run(app([ 'openssl', 'rsautl', '-inkey', 'rsamptest.pem',
     80                          '-decrypt', '-in', 'rsamptest.enc',
     81                          '-out', 'rsamptest.dec' ])), "rsa $name decrypt");
     82         }
     83 
     84         ok(check_msg(), "rsa $name check result");
     85 
     86         # clean up temp files
     87         unlink 'rsamptest.pem';
     88         unlink 'rsamptest.enc';
     89         unlink 'rsamptest.dec';
     90     }
     91 }
     92 
     93 sub check_msg {
     94     my $msg;
     95     my $dec;
     96 
     97     open(my $fh, "<", $cleartext) or return 0;
     98     binmode $fh;
     99     read($fh, $msg, 10240);
    100     close $fh;
    101     open($fh, "<", "rsamptest.dec") or return 0;
    102     binmode $fh;
    103     read($fh, $dec, 10240);
    104     close $fh;
    105 
    106     if ($msg ne $dec) {
    107         print STDERR "cleartext and decrypted are not the same";
    108         return 0;
    109     }
    110     return 1;
    111 }
    112