Codebase list libcryptx-perl / v0.032 t / openssl / gen-rsa.pl
v0.032

Tree @v0.032 (Download .tar.gz)

gen-rsa.pl @v0.032 — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
use strict;
use warnings;

use File::Slurp qw(append_file read_file write_file);
use MIME::Base64 qw(encode_base64 decode_base64);
use Crypt::PK::RSA;
use Test::More;

sub test_rsa { # copy from pk_rsa_test_vectors_openssl.t
  my $h = shift;
  my $rsa_pri = Crypt::PK::RSA->new->import_key(\decode_base64($h->{PRIDER}));
  my $rsa_pub = Crypt::PK::RSA->new->import_key(\decode_base64($h->{PUBDER}));
  my $rsa_pri_h = $rsa_pri->key2hash;
  my $rsa_pub_h = $rsa_pub->key2hash;
  is($rsa_pri_h->{d}, $h->{PRI}, "$h->{ID}/PRI");
  is($rsa_pri_h->{N}, $h->{PUB}, "$h->{ID}/PUB");
  is($rsa_pub_h->{N}, $h->{PUB}, "$h->{ID}/PUB");
  is( $rsa_pri->decrypt(decode_base64($h->{ENC}), 'v1.5'), 'test-data', "$h->{ID}/ENC") || return 0;
  ok( $rsa_pub->verify_message(decode_base64($h->{SIGSHA1}),   'test-data', 'SHA1',   'v1.5'), "$h->{ID}/SIGSHA1")   || return 0;
  ok( $rsa_pub->verify_message(decode_base64($h->{SIGSHA256}), 'test-data', 'SHA256', 'v1.5'), "$h->{ID}/SIGSHA256") || return 0;
  return 1 if !$h->{SIGSHA512}; #SHA512 might be too big for short RSA keys
  ok( $rsa_pub->verify_message(decode_base64($h->{SIGSHA512}), 'test-data', 'SHA512', 'v1.5'), "$h->{ID}/SIGSHA512") || return 0;
  return 1;
}

write_file("input.data", {binmode=>':raw'}, "test-data");
my $outfile = "rsa_tmp.$$.txt";
my $ver = `openssl version` =~ s/[\r\n]*$//r;
append_file($outfile, "my \$data = [ #test vectors generated by: $ver\n");
for my $I (1..10000) {
  for my $C (qw(512 1024 1536 2048 3072 4096)) {
    my $ID="key-$C-$I";
    my $PREF="$ID-$$";
    warn "######## processing $PREF\n";
    system("openssl genrsa -out $PREF.key.pem $C");
    system("openssl rsa -in $PREF.key.pem -out $PREF.priv.pem");
    system("openssl rsa -in $PREF.key.pem -pubout -out $PREF.pub.pem");
    system("openssl rsa -in $PREF.key.pem -out $PREF.priv.der -outform der");
    system("openssl rsa -in $PREF.key.pem -pubout -out $PREF.pub.der -outform der");
    system("openssl dgst -sha1   -sign $PREF.priv.pem -out $PREF.sha1.sig input.data");
    system("openssl dgst -sha256 -sign $PREF.priv.pem -out $PREF.sha256.sig input.data");
    system("openssl dgst -sha512 -sign $PREF.priv.pem -out $PREF.sha512.sig input.data");
    system("openssl rsautl -encrypt -inkey $PREF.pub.pem -pubin -out $PREF.enc -in input.data");
    my $PRI_DER    = encode_base64(read_file("$PREF.priv.der", binmode=>':raw'), "");
    my $PUB_DER    = encode_base64(read_file("$PREF.pub.der", binmode=>':raw'), "");
    my $SIG_SHA1   = encode_base64(read_file("$PREF.sha1.sig", binmode=>':raw'), "");
    my $SIG_SHA256 = encode_base64(read_file("$PREF.sha256.sig", binmode=>':raw'), "");
    my $SIG_SHA512 = encode_base64(read_file("$PREF.sha512.sig", binmode=>':raw'), "");
    my $ENCRYPTED  = encode_base64(read_file("$PREF.enc", binmode=>':raw'), "");
    my @key_dump = split /[\r\n]+/, `openssl rsa -in "$PREF.priv.pem" -inform PEM -text` =~ s/:[\r\n]+ +/:/sgr;
    my %h = map { my ($k, $v) = /^([a-zA-Z0-9]+):(.*)/; ($k||0)=>($v||0) =~ s/[: ]//sgr } @key_dump; # ugly, I know
    my $PRI = uc $h{privateExponent} =~ s/^0+//r;
    my $PUB = uc $h{modulus} =~ s/^0+//r;
    append_file($outfile, "  {ID=>'$ID',SIZE=>$C,PRI=>'$PRI',PUB=>'$PUB',SIGSHA1=>'$SIG_SHA1',SIGSHA256=>'$SIG_SHA256',SIGSHA512=>'$SIG_SHA512',ENC=>'$ENCRYPTED',PRIDER=>'$PRI_DER',PUBDER=>'$PUB_DER'},\n");
    test_rsa({ID=>$ID,SIZE=>$C,PRI=>$PRI,PUB=>$PUB,SIGSHA1=>$SIG_SHA1,SIGSHA256=>$SIG_SHA256,SIGSHA512=>$SIG_SHA512,ENC=>$ENCRYPTED,PRIDER=>$PRI_DER,PUBDER=>$PUB_DER}) || die;
    unlink "$PREF.key.pem";
    unlink "$PREF.priv.pem";
    unlink "$PREF.pub.pem";
    unlink "$PREF.priv.der";
    unlink "$PREF.pub.der";
    unlink "$PREF.sha1.sig";
    unlink "$PREF.sha256.sig";
    unlink "$PREF.sha512.sig";
  }
}
append_file($outfile, "];\n");