view release on metacpan or  search on metacpan

lib/Crypt/RSA/Blind.pm  view on Meta::CPAN

    $rsab->set_oldapi(0);     # Disable old API wrappers (deprecated)

    # Old interface

    my $init = $rsab->init;

    my $req = $rsab->request( Key => $pubkey,
                              Init => $init,
                              Message => $msg );

    my $blindsig = $rsab->sign( Key => $seckey,
                                PublicKey => $pubkey,
                                Message => $req );

    my $sig = $rsab->unblind( Key => $pubkey,
                              Init => $init,
                              Signature => $blindsig );

    print "OK\n" if $rsab->verify( Key => $pubkey,
                                   Message => $msg,
                                   Signature => $sig );

=head1 METHODS

=head2 new

Creates and returns a new C<Crypt::RSA::Blind> object.