| line |
true |
false |
branch |
|
11
|
0 |
116 |
if (!RETVAL) croak("FATAL: Newz failed"); |
|
15
|
0 |
116 |
if (RETVAL->pindex == -1) { |
|
21
|
0 |
116 |
if (rv != CRYPT_OK) { |
|
37
|
1 |
3 |
if (self->key.type != -1) { rsa_free(&self->key); self->key.type = -1; } |
|
40
|
0 |
4 |
if (rv != CRYPT_OK) croak("FATAL: rsa_make_key failed: %s", error_to_string(rv)); |
|
41
|
0 |
4 |
XPUSHs(ST(0)); /* return self */ |
|
53
|
2 |
91 |
if (self->key.type != -1) { rsa_free(&self->key); self->key.type = -1; } |
|
55
|
2 |
91 |
if (rv != CRYPT_OK) croak("FATAL: rsa_import failed: %s", error_to_string(rv)); |
|
56
|
0 |
91 |
XPUSHs(ST(0)); /* return self */ |
|
69
|
0 |
2 |
if (self->key.type != -1) { rsa_free(&self->key); self->key.type = -1; } |
|
70
|
1 |
1 |
if (SvOK(passwd)) { |
|
76
|
0 |
2 |
if (rv != CRYPT_OK) croak("FATAL: rsa_import_pkcs8 failed: %s", error_to_string(rv)); |
|
77
|
0 |
2 |
XPUSHs(ST(0)); /* return self */ |
|
91
|
36 |
20 |
if (self->key.type != -1) { rsa_free(&self->key); self->key.type = -1; } |
|
92
|
22 |
34 |
if (SvOK(passwd)) { |
|
98
|
0 |
56 |
if (rv != CRYPT_OK) croak("FATAL: pem_decode_pkcs failed: %s", error_to_string(rv)); |
|
99
|
0 |
56 |
if (key_from_pem.id != LTC_PKA_RSA && key_from_pem.id != LTC_PKA_RSA_PSS) { |
|
|
0 |
0 |
if (key_from_pem.id != LTC_PKA_RSA && key_from_pem.id != LTC_PKA_RSA_PSS) { |
|
104
|
0 |
56 |
XPUSHs(ST(0)); /* return self */ |
|
119
|
18 |
0 |
if (self->key.type != -1) { rsa_free(&self->key); self->key.type = -1; } |
|
120
|
6 |
12 |
if (SvOK(passwd)) { |
|
126
|
0 |
18 |
if (rv != CRYPT_OK) croak("FATAL: pem_decode_openssh failed: %s", error_to_string(rv)); |
|
127
|
0 |
18 |
if (key_from_pem.id != LTC_PKA_RSA && key_from_pem.id != LTC_PKA_RSA_PSS) { |
|
|
0 |
0 |
if (key_from_pem.id != LTC_PKA_RSA && key_from_pem.id != LTC_PKA_RSA_PSS) { |
|
132
|
0 |
18 |
XPUSHs(ST(0)); /* return self */ |
|
144
|
0 |
0 |
if (self->key.type != -1) { rsa_free(&self->key); self->key.type = -1; } |
|
146
|
0 |
0 |
if (rv != CRYPT_OK) croak("FATAL: rsa_import_x509 failed: %s", error_to_string(rv)); |
|
147
|
0 |
0 |
XPUSHs(ST(0)); /* return self */ |
|
160
|
0 |
9 |
if (rv != CRYPT_OK) croak("FATAL: radix_to_bin(N) failed: %s", error_to_string(rv)); |
|
162
|
0 |
9 |
if (rv != CRYPT_OK) croak("FATAL: radix_to_bin(e) failed: %s", error_to_string(rv)); |
|
163
|
7 |
2 |
if (self->key.type != -1) { rsa_free(&self->key); self->key.type = -1; } |
|
165
|
2 |
7 |
if (d && strlen(d) > 0) { |
|
|
2 |
0 |
if (d && strlen(d) > 0) { |
|
168
|
0 |
2 |
if (rv != CRYPT_OK) croak("FATAL: radix_to_bin(d) failed: %s", error_to_string(rv)); |
|
170
|
0 |
2 |
if (rv != CRYPT_OK) croak("FATAL: rsa_set_key failed: %s", error_to_string(rv)); |
|
175
|
0 |
7 |
if (rv != CRYPT_OK) croak("FATAL: rsa_set_key failed: %s", error_to_string(rv)); |
|
178
|
2 |
7 |
if (p && strlen(p) > 0 && q && strlen(q) > 0) { |
|
|
2 |
0 |
if (p && strlen(p) > 0 && q && strlen(q) > 0) { |
|
|
2 |
0 |
if (p && strlen(p) > 0 && q && strlen(q) > 0) { |
|
|
2 |
0 |
if (p && strlen(p) > 0 && q && strlen(q) > 0) { |
|
181
|
0 |
2 |
if (rv != CRYPT_OK) croak("FATAL: radix_to_bin(p) failed: %s", error_to_string(rv)); |
|
183
|
0 |
2 |
if (rv != CRYPT_OK) croak("FATAL: radix_to_bin(q) failed: %s", error_to_string(rv)); |
|
185
|
0 |
2 |
if (rv != CRYPT_OK) croak("FATAL: rsa_set_factors failed: %s", error_to_string(rv)); |
|
188
|
2 |
7 |
if (dP && strlen(dP) > 0 && dQ && strlen(dQ) > 0 && qP && strlen(qP) > 0) { |
|
|
2 |
0 |
if (dP && strlen(dP) > 0 && dQ && strlen(dQ) > 0 && qP && strlen(qP) > 0) { |
|
|
2 |
0 |
if (dP && strlen(dP) > 0 && dQ && strlen(dQ) > 0 && qP && strlen(qP) > 0) { |
|
|
2 |
0 |
if (dP && strlen(dP) > 0 && dQ && strlen(dQ) > 0 && qP && strlen(qP) > 0) { |
|
|
2 |
0 |
if (dP && strlen(dP) > 0 && dQ && strlen(dQ) > 0 && qP && strlen(qP) > 0) { |
|
|
2 |
0 |
if (dP && strlen(dP) > 0 && dQ && strlen(dQ) > 0 && qP && strlen(qP) > 0) { |
|
191
|
0 |
2 |
if (rv != CRYPT_OK) croak("FATAL: radix_to_bin(dP) failed: %s", error_to_string(rv)); |
|
193
|
0 |
2 |
if (rv != CRYPT_OK) croak("FATAL: radix_to_bin(dQ) failed: %s", error_to_string(rv)); |
|
195
|
0 |
2 |
if (rv != CRYPT_OK) croak("FATAL: radix_to_bin(qP) failed: %s", error_to_string(rv)); |
|
197
|
0 |
2 |
if (rv != CRYPT_OK) croak("FATAL: rsa_set_crt_params failed: %s", error_to_string(rv)); |
|
200
|
0 |
9 |
XPUSHs(ST(0)); /* return self */ |
|
206
|
89 |
0 |
if (self->key.type == -1 || self->key.N == NULL) XSRETURN_UNDEF; |
|
|
0 |
89 |
if (self->key.type == -1 || self->key.N == NULL) XSRETURN_UNDEF; |
|
207
|
68 |
21 |
RETVAL = (self->key.type == PK_PRIVATE) ? 1 : 0; |
|
214
|
2 |
0 |
if (self->key.type == -1 || self->key.N == NULL) XSRETURN_UNDEF; |
|
|
0 |
2 |
if (self->key.type == -1 || self->key.N == NULL) XSRETURN_UNDEF; |
|
227
|
141 |
0 |
if (self->key.type == -1 || self->key.N == NULL) XSRETURN_UNDEF; |
|
|
0 |
141 |
if (self->key.type == -1 || self->key.N == NULL) XSRETURN_UNDEF; |
|
231
|
141 |
0 |
siz = (self->key.e) ? mp_ubin_size(self->key.e) : 0; |
|
232
|
0 |
141 |
if (siz>10000) { |
|
236
|
141 |
0 |
if (siz>0) { |
|
244
|
141 |
0 |
siz = (self->key.d) ? mp_ubin_size(self->key.d) : 0; |
|
245
|
0 |
141 |
if (siz>10000) { |
|
249
|
81 |
60 |
if (siz>0) { |
|
257
|
141 |
0 |
siz = (self->key.N) ? nsize : 0; |
|
258
|
0 |
141 |
if (siz>10000) { |
|
262
|
141 |
0 |
if (siz>0) { |
|
270
|
141 |
0 |
siz = (self->key.q) ? mp_ubin_size(self->key.q) : 0; |
|
271
|
0 |
141 |
if (siz>10000) { |
|
275
|
81 |
60 |
if (siz>0) { |
|
283
|
141 |
0 |
siz = (self->key.p) ? mp_ubin_size(self->key.p) : 0; |
|
284
|
0 |
141 |
if (siz>10000) { |
|
288
|
81 |
60 |
if (siz>0) { |
|
296
|
141 |
0 |
siz = (self->key.qP) ? mp_ubin_size(self->key.qP) : 0; |
|
297
|
0 |
141 |
if (siz>10000) { |
|
301
|
81 |
60 |
if (siz>0) { |
|
309
|
141 |
0 |
siz = (self->key.dP) ? mp_ubin_size(self->key.dP) : 0; |
|
310
|
0 |
141 |
if (siz>10000) { |
|
314
|
81 |
60 |
if (siz>0) { |
|
322
|
141 |
0 |
siz = (self->key.dQ) ? mp_ubin_size(self->key.dQ) : 0; |
|
323
|
0 |
141 |
if (siz>10000) { |
|
327
|
81 |
60 |
if (siz>0) { |
|
353
|
2 |
3 |
if (strEQ(type, "private")) { |
|
355
|
0 |
2 |
if (rv != CRYPT_OK) { zeromem(out, sizeof(out)); croak("FATAL: rsa_export(PK_PRIVATE) failed: %s", error_to_string(rv)); } |
|
358
|
3 |
0 |
else if (strEQ(type, "public")) { |
|
360
|
0 |
3 |
if (rv != CRYPT_OK) { zeromem(out, sizeof(out)); croak("FATAL: rsa_export(PK_PUBLIC|PK_STD) failed: %s", error_to_string(rv)); } |
|
388
|
2 |
1 |
if (strnEQ(padding, "oaep", 4)) { |
|
390
|
0 |
2 |
if (mgf_hash_id == -1) croak("FATAL: find_hash failed for '%s'", mgf_hash); |
|
391
|
0 |
2 |
if (lparam_hash) { |
|
393
|
0 |
0 |
if (lparam_hash_id == -1) croak("FATAL: find_hash failed for '%s'", lparam_hash); |
|
398
|
0 |
2 |
if (oaep_lparam) lparam_ptr = (unsigned char *)SvPVbyte(oaep_lparam, lparam_len); |
|
408
|
0 |
2 |
if (rv != CRYPT_OK) { zeromem(buffer, sizeof(buffer)); croak("FATAL: rsa_encrypt_key_v2/oaep failed: %s", error_to_string(rv)); } |
|
411
|
0 |
1 |
else if (strnEQ(padding, "v1.5", 4)) { |
|
421
|
0 |
0 |
if (rv != CRYPT_OK) { zeromem(buffer, sizeof(buffer)); croak("FATAL: rsa_encrypt_key_v2/v1.5 failed: %s", error_to_string(rv)); } |
|
424
|
1 |
0 |
else if (strnEQ(padding, "none", 4)) { |
|
427
|
0 |
1 |
if (rv != CRYPT_OK) { zeromem(buffer, sizeof(buffer)); croak("FATAL: rsa_me failed: %s", error_to_string(rv)); } |
|
455
|
3 |
37 |
if (strnEQ(padding, "oaep", 4)) { |
|
457
|
0 |
3 |
if (mgf_hash_id == -1) croak("FATAL: find_hash failed for '%s'", mgf_hash); |
|
458
|
2 |
1 |
if (lparam_hash) { |
|
460
|
0 |
2 |
if (lparam_hash_id == -1) croak("FATAL: find_hash failed for '%s'", lparam_hash); |
|
465
|
2 |
1 |
if (oaep_lparam) lparam_ptr = (unsigned char *)SvPVbyte(oaep_lparam, lparam_len); |
|
475
|
2 |
1 |
if (rv != CRYPT_OK) { zeromem(buffer, sizeof(buffer)); croak("FATAL: rsa_decrypt_key_v2 failed: %s", error_to_string(rv)); } |
|
476
|
0 |
1 |
if (stat != 1) { zeromem(buffer, sizeof(buffer)); croak("FATAL: rsa_decrypt - not valid OAEP packet"); } |
|
479
|
36 |
1 |
else if (strnEQ(padding, "v1.5", 4)) { |
|
489
|
0 |
36 |
if (rv != CRYPT_OK) { zeromem(buffer, sizeof(buffer)); croak("FATAL: rsa_decrypt_key_v2 failed: %s", error_to_string(rv)); } |
|
490
|
0 |
36 |
if (stat != 1) { zeromem(buffer, sizeof(buffer)); croak("FATAL: rsa_decrypt - invalid"); } |
|
493
|
1 |
0 |
else if (strnEQ(padding, "none", 4)) { |
|
496
|
0 |
1 |
if (rv != CRYPT_OK) { zeromem(buffer, sizeof(buffer)); croak("FATAL: rsa_me failed: %s", error_to_string(rv)); } |
|
521
|
5 |
4 |
if (ix == 1) { |
|
523
|
0 |
5 |
if (hash_id == -1) croak("FATAL: find_hash failed for '%s'", hash_name); |
|
525
|
0 |
5 |
if (rv != CRYPT_OK) { zeromem(tmp, sizeof(tmp)); croak("FATAL: hash_memory failed: %s", error_to_string(rv)); } |
|
529
|
9 |
0 |
if (strnEQ(padding, "pss", 3)) { |
|
531
|
0 |
9 |
if (hash_id == -1) croak("FATAL: find_hash failed for '%s'", hash_name); |
|
532
|
0 |
9 |
mgf_hash_id = mgf_hash_name ? cryptx_internal_find_hash(mgf_hash_name) : hash_id; |
|
533
|
0 |
9 |
if (mgf_hash_id == -1) croak("FATAL: find_hash failed for '%s'", mgf_hash_name); |
|
543
|
0 |
9 |
if (rv != CRYPT_OK) { |
|
550
|
0 |
0 |
else if (strnEQ(padding, "v1.5", 4)) { |
|
552
|
0 |
0 |
if (hash_id == -1) croak("FATAL: find_hash failed for '%s'", hash_name); |
|
562
|
0 |
0 |
if (rv != CRYPT_OK) { |
|
569
|
0 |
0 |
else if (strnEQ(padding, "v1.5.na1", 8)) { |
|
572
|
0 |
0 |
else if (strnEQ(padding, "none", 4)) { |
|
575
|
0 |
0 |
if (rv != CRYPT_OK) { |
|
606
|
111 |
4 |
if (ix == 1) { |
|
608
|
0 |
111 |
if (hash_id == -1) croak("FATAL: find_hash failed for '%s'", hash_name); |
|
610
|
0 |
111 |
if (rv != CRYPT_OK) croak("FATAL: hash_memory failed: %s", error_to_string(rv)); |
|
616
|
10 |
105 |
if (strnEQ(padding, "pss", 3)) { |
|
618
|
0 |
10 |
if (hash_id == -1) croak("FATAL: find_hash failed for '%s'", hash_name); |
|
619
|
0 |
10 |
mgf_hash_id = mgf_hash_name ? cryptx_internal_find_hash(mgf_hash_name) : hash_id; |
|
620
|
0 |
10 |
if (mgf_hash_id == -1) croak("FATAL: find_hash failed for '%s'", mgf_hash_name); |
|
630
|
10 |
0 |
if (rv != CRYPT_OK || stat != 1) RETVAL = 0; |
|
|
2 |
8 |
if (rv != CRYPT_OK || stat != 1) RETVAL = 0; |
|
632
|
105 |
0 |
else if (strnEQ(padding, "v1.5", 4)) { |
|
634
|
0 |
105 |
if (hash_id == -1) croak("FATAL: find_hash failed for '%s'", hash_name); |
|
644
|
105 |
0 |
if (rv != CRYPT_OK || stat != 1) RETVAL = 0; |
|
|
2 |
103 |
if (rv != CRYPT_OK || stat != 1) RETVAL = 0; |
|
646
|
0 |
0 |
else if (strnEQ(padding, "v1.5.na1", 8)) { |
|
649
|
0 |
0 |
else if (strnEQ(padding, "none", 4)) { |
|
653
|
0 |
0 |
if (rv != CRYPT_OK) croak("FATAL: rsa_me failed: %s", error_to_string(rv)); |
|
654
|
0 |
0 |
if (data_len <= buffer_len && buffer_len > 0 && data_len > 0) { |
|
|
0 |
0 |
if (data_len <= buffer_len && buffer_len > 0 && data_len > 0) { |
|
|
0 |
0 |
if (data_len <= buffer_len && buffer_len > 0 && data_len > 0) { |
|
656
|
0 |
0 |
for (i = 0; i < buffer_len - data_len; i++) acc |= buffer[i]; |
|
657
|
0 |
0 |
if (acc != 0) RETVAL = 0; |
|
658
|
0 |
0 |
if (mem_neq(data_ptr, buffer + buffer_len - data_len, data_len)) RETVAL = 0; |
|
674
|
116 |
0 |
if (self->key.type != -1) { rsa_free(&self->key); self->key.type = -1; } |
|
675
|
116 |
0 |
if (self->pindex >= 0 && prng_is_valid(self->pindex) == CRYPT_OK && prng_descriptor[self->pindex].done) { |
|
|
116 |
0 |
if (self->pindex >= 0 && prng_is_valid(self->pindex) == CRYPT_OK && prng_descriptor[self->pindex].done) { |
|
|
116 |
0 |
if (self->pindex >= 0 && prng_is_valid(self->pindex) == CRYPT_OK && prng_descriptor[self->pindex].done) { |