libtomcrypt fixes
Karel Miko
5 years ago
28 | 28 |
#endif
|
29 | 29 |
unsigned char mask = 0xff; /* initialize mask at all ones */
|
30 | 30 |
|
31 | |
if (src == NULL || dest == NULL) return;
|
|
31 |
LTC_ARGCHKVD(src != NULL);
|
|
32 |
LTC_ARGCHKVD(dest != NULL);
|
32 | 33 |
|
33 | 34 |
if (coz != 0) coz = 1;
|
34 | 35 |
y = 0;
|
35 | 35 |
if (type < LTC_PAD_ONE_AND_ZERO) {
|
36 | 36 |
pad = data[padded_length - 1];
|
37 | 37 |
|
38 | |
if (pad > padded_length) return CRYPT_INVALID_ARG;
|
|
38 |
if (pad > padded_length || pad == 0) return CRYPT_INVALID_ARG;
|
39 | 39 |
|
40 | 40 |
unpadded_length = padded_length - pad;
|
41 | 41 |
} else {
|
116 | 116 |
is(unpack("H*", $pt2), $t->{msg}, "$testname PT-v");
|
117 | 117 |
}
|
118 | 118 |
elsif ($result eq 'invalid') {
|
119 | |
SKIP: {
|
120 | |
skip "ltc bug CBC/PAD", 1 if $comment eq "bit padding"; #XXX-FIXME
|
121 | |
skip "ltc bug CBC/PAD", 1 if $comment eq "zero padding"; #XXX-FIXME
|
122 | |
is($pt2, undef, "$testname PT-i");
|
123 | |
}
|
|
119 |
is($pt2, undef, "$testname PT-i");
|
124 | 120 |
}
|
125 | 121 |
else {
|
126 | 122 |
ok(0, "UNEXPECTED result=$result");
|