Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Code hanging with Crypt OpenPGP

by ProtoFly (Initiate)
on Jun 30, 2016 at 16:17 UTC ( [id://1166942]=note: print w/replies, xml ) Need Help??


in reply to Code hanging with Crypt OpenPGP

Stumbled on this thread while investigating a problem similar. Running almost the exact same code, I have discovered that encrypting with certain keys work, and certain keys hang. I've traced the hang to ElGamal.pm, in a loop starting on line 59, the condition for exit is never satisfied -with some keys-. 
While (1) {
  last if Math::BigInt::bgcd($k, $p_minus1) == 1;
  k++;
}

[download]
Not even remotely sure how to resolve. -Darryl

Replies are listed 'Best First'.
Re^2: Code hanging with Crypt OpenPGP
by mark_elrod (Novice) on Dec 03, 2016 at 00:52 UTC
    I ran into this when we updated to CentOS 7.2 and went from perl 5.10 to 5.16. $p is too big for perl to subtract 1 from and results in inf. Still trying to figure out why it worked before but for now using Math::BigInt to calculate p_minus1 will fix it: 
    sub gen_k {
    my ($p) = @_;

    ## XXX choose bitsize based on bitsize of $p
    my $bits     = 198;
    my $p_minus1 = Math::BigInt->new($p)->bsub(1);

    my $k = Crypt::OpenPGP::Util::get_random_bigint($bits);

    while (1) {
        last if Math::BigInt::bgcd($k, $p_minus1) == 1;
        $k++;
    }
    $k;
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://1166942]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2024-04-25 15:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found