используя Perl Crypt :: RSA, но получая `Incomplete key` при попытке расшифровки - PullRequest
Новая
       32

используя Perl Crypt :: RSA, но получая `Incomplete key` при попытке расшифровки

1 голос
/ 16 января 2012

Я пытаюсь использовать Crypt::RSA для расшифровки сообщения (мне дали n, который я затем учел в p и q, и мне также дали e. Я вычислил d. программно генерирует `d` из` p` и `q` (RSA) ), но у меня возникли некоторые трудности.Каждый раз, когда я запускаю следующий код, я получаю Incomplete key.

Это такое бесполезное сообщение об ошибке. 

use Crypt::RSA;

my $rsa = new Crypt::RSA;

my $privkey = bless( {
    'p' => 'NUMBER',                                                                                        
    'q' => 'NUMBER',        
    'n' => 'NUMBER',
    'Version' => '1.99',
    'Identity' => '<email>' #put your email here?                                                                                                         
                     }, 'Crypt::RSA::Key::Private' );

my $plaintext = $rsa->decrypt (
    Cyphertext => "- -----BEGIN COMPRESSED RSA ENCRYPTED MESSAGE-----                                                                                                      
Version: 1.99                                                                                                                                                              
Scheme: Crypt::RSA::ES::OAEP                                                                                                                                               

block_message_here

- -----END COMPRESSED RSA ENCRYPTED MESSAGE-----",
    Key        => $privkey,
    Armour     => 1,
    ) or die $rsa->errstr();

print $plaintext;
...