Help for this page

Select Code to Download


  1. or download this
    $ perl -l
use strict;
...

not deterministic
$
  2. or download this
    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}
+;