$ perl -l use strict; use warnings; use Log::Log4perl; use Crypt::RSA; my $rsa = new Crypt::RSA; my ($public, $private) = $rsa->keygen( Identity => 'Lord Macbeth ', Size => 1024, Password => 'A day so foul & fair', Verbosity => 0, ) or die $rsa->errstr(); my $secret = q{Thanks for all the fish}; my $ciphertext1 = $rsa->encrypt(Message => $secret, Key => $public, Armour => 1,) || die $rsa->errstr(); my $ciphertext2 = $rsa->encrypt(Message => $secret, Key => $public, Armour => 1,) || die $rsa->errstr(); $ciphertext1 eq $ciphertext2 ? print q{deterministic} : print q{not deterministic}; __END__ not deterministic $ #### my $prim = new Crypt::RSA::Primitives; my $ctxt1 = $prim->core_encrypt (Key => $public, Plaintext => $pan); my $ctxt2 = $prim->core_encrypt (Key => $public, Plaintext => $pan); $ctxt1 eq $ctxt2 ? print q{deterministic} : print q{not deterministic};