| 1 |
|
| 2 |
use Test; |
| 3 |
BEGIN { plan tests => 2 }; |
| 4 |
use OpenSSL::RSA qw(new_keygen); |
| 5 |
use OpenSSL::Rand "randbytes"; |
| 6 |
ok(1); |
| 7 |
|
| 8 |
$alice = new_keygen(255); |
| 9 |
|
| 10 |
$msg = randbytes(7); |
| 11 |
|
| 12 |
$enc = $alice->public_encrypt($msg); |
| 13 |
#print STDERR "after encrypt, elen = ".length($enc)."\n"; |
| 14 |
$dec = $alice->private_decrypt($enc); |
| 15 |
|
| 16 |
if($dec ne $msg) { |
| 17 |
print STDERR |
| 18 |
"\ndec != msg\ndec = ".unpack ("H*", $dec). |
| 19 |
"\nmsg = ".unpack("H*", $msg). |
| 20 |
"\nlenmsg=".length($msg). |
| 21 |
"\nlendec=".length($dec)."\n"; |
| 22 |
ok(0); |
| 23 |
} else { |
| 24 |
ok(1); |
| 25 |
} |
| 26 |
|
