| line |
true |
false |
branch |
|
33
|
0 |
1 |
if (eval q[require 'Digest/MD4.pm';]) |
|
36
|
1 |
0 |
if (eval 'require Encode;') |
|
51
|
0 |
6 |
unless defined $pass |
|
53
|
0 |
6 |
if (not $HaveUnicode) { } |
|
54
|
0 |
0 |
if (defined $pwenc) |
|
59
|
5 |
1 |
unless defined $pwenc |
|
76
|
6 |
0 |
defined $pass ? : |
|
77
|
0 |
6 |
if (not $HaveUnicode) { } |
|
86
|
0 |
6 |
if ($HaveDigestMD4) |
|
94
|
0 |
0 |
unless $hex |
|
96
|
6 |
0 |
unless $hex |
|
107
|
5 |
0 |
if ($#_ == 2) |
|
169
|
80 |
80 |
$_ ? : |
|
220
|
101 |
19 |
$_ ? : |
|
235
|
5 |
1 |
if (scalar @in <= 55) { } |
|
364
|
27 |
57 |
$_ ? : |
|
390
|
9302 |
17482 |
$in[$p[$i] - 1] ? : |
|
422
|
1360 |
9392 |
$_ ? : |
|
434
|
192 |
0 |
$forw ? : |
|
447
|
3038 |
3106 |
$sbox[$j][$m][$n] & 1 << 3 - $k ? : |
|
475
|
276 |
492 |
$in[$i / 8] & 1 << 7 - $i % 8 ? : |
|
476
|
85 |
683 |
$key2[$i / 8] & 1 << 7 - $i % 8 ? : |
|
484
|
370 |
410 |
if ($outb[$i]) |