| line |
true |
false |
branch |
|
44
|
0 |
1 |
unless ($params{'q'} and $params{'p'} and $params{'e'}) |
|
46
|
0 |
14 |
unless $params{'Size'} |
|
49
|
0 |
14 |
if $params{'Size'} < 48 |
|
52
|
0 |
14 |
if $params{'Size'} % 2 |
|
67
|
8 |
21 |
unless ref $p eq 'Math::BigInt' |
|
68
|
8 |
21 |
unless ref $q eq 'Math::BigInt' |
|
71
|
15 |
14 |
unless bitsize($p * $q) == $params{'Size'} |
|
74
|
11 |
3 |
if ($params{'Size'} >= 256) |
|
77
|
0 |
11 |
if $diff <= $threshold |
|
87
|
0 |
14 |
unless (&is_frobenius_khashin_pseudoprime($p)) |
|
89
|
0 |
14 |
unless (&is_frobenius_khashin_pseudoprime($q)) |
|
92
|
0 |
14 |
unless (&miller_rabin_random($p, 3)) |
|
94
|
0 |
14 |
unless (&miller_rabin_random($q, 3)) |
|
102
|
4 |
11 |
if ($params{'KF'}) |
|
107
|
4 |
11 |
$params{'PKF'} ? : |
|
108
|
4 |
11 |
$params{'SKF'} ? : |
|
132
|
0 |
15 |
if bitsize($prikey->d) < 0.25 * bitsize($prikey->n) |
|
137
|
0 |
15 |
if ($params{'Filename'}) |