<h2>Editing File: /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/Crypt/RSA/Primitives.pm</h2><form method='post'><textarea name='content' class='file-edit'>#!/usr/bin/perl -sw
##
## Crypt::RSA::Primitives -- Cryptography and encoding primitives  
##                           used by Crypt::RSA.
##
## Copyright (c) 2001, Vipul Ved Prakash.  All rights reserved.
## This code is free software; you can redistribute it and/or modify
## it under the same terms as Perl itself.
##
## $Id: Primitives.pm,v 1.14 2001/06/22 23:27:35 vipul Exp $

package Crypt::RSA::Primitives; 
use strict;
use base 'Crypt::RSA::Errorhandler';
use Crypt::RSA::Debug qw(debug);
use Math::Pari qw(PARI Mod lift);
use Carp;

sub new { 
    return bless {}, shift; 
} 


sub core_encrypt {

    # procedure: 
    # c = (m ** e) mod n 

    my ($self, %params) = @_;
    my $key = $params{Key}; 
    $self-&gt;error (&quot;Bad key.&quot;, \%params, $key) unless $key-&gt;check();
    my $plaintext = $params{Message} || $params{Plaintext};
    debug (&quot;pt == $plaintext&quot;);

    my $e = $key-&gt;e; my $n = $key-&gt;n;
    return $self-&gt;error (&quot;Numeric representation of plaintext is out of bound.&quot;, 
                          \$plaintext, $key, \%params) if $plaintext &gt; $n;
    my $c = mod_exp($plaintext, $e, $n);
    debug (&quot;ct == $c&quot;);
    $n = undef; $e = undef;
    return $c;

}


sub core_decrypt {

    # procedure: 
    # p = (c ** d) mod n


    my ($self, %params) = @_;
    my $key = $params{Key}; 
    $self-&gt;error (&quot;Bad key.&quot;) unless $key-&gt;check();

    my $cyphertext = $params{Cyphertext} || $params{Ciphertext};
    my $n = $key-&gt;n;
    return $self-&gt;error (&quot;Decryption error.&quot;) if $cyphertext &gt; $n;

    my $pt;
    if ($key-&gt;p &amp;&amp; $key-&gt;q) {
        my($p, $q, $d) = ($key-&gt;p, $key-&gt;q, $key-&gt;d);
        $key-&gt;u (mod_inverse($p, $q)) unless $key-&gt;u;
        $key-&gt;dp ($d % ($p-1)) unless $key-&gt;dp;
        $key-&gt;dq ($d % ($q-1)) unless $key-&gt;dq;
        my $p2 = mod_exp($cyphertext % $p, $key-&gt;dp, $p);
        my $q2 = mod_exp($cyphertext % $q, $key-&gt;dq, $q);
        $pt = $p2 + ($p * ((($q2 - $p2) * $key-&gt;u) % $q));
    }
    else {
        $pt = mod_exp ($cyphertext, $key-&gt;d, $n);
    }

    debug (&quot;ct == $cyphertext&quot;);
    debug (&quot;pt == $pt&quot;);
    return $pt;

}


sub core_sign { 

    my ($self, %params) = @_; 
    $params{Cyphertext} = $params{Message} || $params{Plaintext};
    return $self-&gt;core_decrypt (%params); 

} 


sub core_verify { 

    my ($self, %params) = @_; 
    $params{Plaintext} = $params{Signature};
    return $self-&gt;core_encrypt (%params); 

}


sub mod_inverse {
    my($a, $n) = @_;
    my $m = Mod(1, $n);
    lift($m / $a);
}


sub mod_exp {
    my($a, $exp, $n) = @_;
    my $m = Mod($a, $n);
    lift($m ** $exp);
}


1;

=head1 NAME

Crypt::RSA::Primitives - RSA encryption, decryption, signature and verification primitives. 

=head1 SYNOPSIS

    my $prim = new Crypt::RSA::Primitives;
    my $ctxt = $prim-&gt;core_encrypt (Key =&gt; $key, Plaintext =&gt; $string); 
    my $ptxt = $prim-&gt;core_decrypt (Key =&gt; $key, Cyphertext =&gt; $ctxt);
    my $sign = $prim-&gt;core_sign    (Key =&gt; $key, Message =&gt; $string); 
    my $vrfy = $prim-&gt;core_verify  (Key =&gt; $key, Signature =&gt; $sig);

=head1 DESCRIPTION

This module implements RSA encryption, decryption, signature and
verfication primitives. These primitives should only be used in the
context of an encryption or signing scheme. See Crypt::RSA::ES::OAEP(3),
and Crypt::RSA::SS::PSS(3) for the implementation of two such schemes.

=head1 ERROR HANDLING

See B&lt;ERROR HANDLING&gt; in Crypt::RSA(3) manpage.

=head1 AUTHOR

Vipul Ved Prakash, E&lt;lt&gt;mail@vipul.netE&lt;gt&gt;

=head1 SEE ALSO 

Crypt::RSA(3), Crypt::RSA::Key(3), Crypt::RSA::ES::OAEP(3), 
Crypt::RSA::SS::PSS(3)

=cut


</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2F3rdparty%2Fperl%2F542%2Fcpanel-lib%2FCrypt%2FRSA'>Back to Directory</a>