| line |
true |
false |
branch |
|
50
|
0 |
1 |
unless ($params{'q'} and $params{'p'} and $params{'e'}) |
|
52
|
0 |
0 |
unless $params{'Size'} |
|
55
|
0 |
0 |
if $params{'Size'} < 48 |
|
58
|
0 |
0 |
if $params{'Size'} % 2 |
|
65
|
0 |
0 |
unless ref $randsub eq 'CODE' |
|
76
|
0 |
0 |
unless ref $p eq 'Math::BigInt' |
|
77
|
0 |
0 |
unless ref $q eq 'Math::BigInt' |
|
79
|
0 |
0 |
unless bitsize($p * $q) == $params{'Size'} |
|
87
|
0 |
0 |
unless (&is_strong_pseudoprime($p, @prplist)) |
|
89
|
0 |
0 |
unless (&is_strong_pseudoprime($q, @prplist)) |
|
103
|
0 |
1 |
if ($params{'KF'}) |
|
108
|
0 |
1 |
$params{'PKF'} ? : |
|
109
|
0 |
1 |
$params{'SKF'} ? : |
|
133
|
0 |
1 |
if bitsize($prikey->d) < 0.25 * bitsize($prikey->n) |
|
138
|
0 |
1 |
if ($params{'Filename'}) |