| line |
true |
false |
branch |
|
23
|
15 |
15 |
if (my $cert = $param{'Key'} and my $sym_key = $param{'SymKey'})
|
|
25
|
0 |
15 |
unless my $cipher = 'Crypt::OpenPGP::Cipher'->new($alg)
|
|
30
|
0 |
15 |
unless my $enc = $key->_encode($sym_key, $alg, $pk->bytesize)
|
|
33
|
0 |
15 |
unless $key->{'C'} = $pk->encrypt($enc)
|
|
46
|
0 |
15 |
unless $key->{'version'} == 2 or $key->{'version'} == 3
|
|
84
|
0 |
12 |
unless $key->key_id eq $sk->key_id
|
|
86
|
0 |
12 |
unless my($sym_key, $alg) = 'Crypt::OpenPGP::SessionKey'->_decode($sk->key->decrypt($key->{'C'}))
|
|
108
|
0 |
12 |
unless unpack('C', $ser) == 2
|
|
113
|
0 |
12 |
unless unpack('%16C*', $sym_key) == $csum
|