perl/gen_rsa.pl

   1 #!/usr/local/bin/perl
   2
   3 use ExtUtils::testlib;
   4
   5 use SSLeay;
   6
   7 $bits=512;
   8 $bits=$ARGV[0] if $#ARGV >= 0;
   9
  10 $p=SSLeay::BN::generate_prime($bits/2,0,sub {print STDERR $_[0]?"+":"."});
  11 print "\n";
  12 $q=SSLeay::BN::generate_prime($bits/2,0,sub {print STDERR $_[0]?"+":"."});
  13 print "\n";
  14
  15 $e=SSLeay::BN::hex2bn("10001");
  16
  17 $t1=$p-1;
  18 $t2=$q-1;
  19
  20 ($t1->gcd($e) == 1) || die "p failed the gcd test\n";
  21 ($t2->gcd($e) == 1) || die "q failed the gcd test\n";
  22
  23 ($q,$p)=($p,$q) if ($p < $q);
  24 $n=$p*$q;
  25 $t=($p-1)*($q-1);
  26 ($t->gcd($e) == 1) || die "t failed the gcd test\n";
  27
  28 $d=$e->mod_inverse($t);
  29
  30 $dmp1=$d%($p-1);
  31 $dmq1=$d%($q-1);
  32 $iqmp=$q->mod_inverse($p);
  33
  34 print "n   =$n\n";
  35 print "e   =$e\n";
  36 print "d   =$d\n";
  37 print "dmp1=$dmp1\n";
  38 print "dmq1=$dmq1\n";
  39 print "iqmp=$iqmp\n";
  40
  41 $a=SSLeay::BN::bin2bn("This is an RSA test");
  42 print "Test with\n'".$a->bn2bin."' or\n$a\n";
  43
  44 $t1=$a->mod_exp($e,$n);
  45 print "$t1\n";
  46 $t2=$t1->mod_exp($d,$n);
  47 print "'".$t2->bn2bin."'\n";
  48
  49