2 * sigcheck.c - routines to check OpenPGP signatures
4 * Copyright 2012 Jonathan McDowell <noodles@earth.li>
6 * This program is free software: you can redistribute it and/or modify it
7 * under the terms of the GNU General Public License as published by the Free
8 * Software Foundation; version 2 of the License.
10 * This program is distributed in the hope that it will be useful, but WITHOUT
11 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
12 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
15 * You should have received a copy of the GNU General Public License along with
16 * this program. If not, see <https://www.gnu.org/licenses/>.
22 #include "build-config.h"
23 #include "decodekey.h"
25 #include "keystructs.h"
32 #include <nettle/md5.h>
33 #include <nettle/ripemd160.h>
34 #include <nettle/sha.h>
44 #include <nettle/dsa.h>
45 #include <nettle/ecc.h>
46 #include <nettle/ecc-curve.h>
47 #include <nettle/ecdsa.h>
48 #include <nettle/eddsa.h>
49 #include <nettle/rsa.h>
52 #ifndef nettle_get_secp_256r1
53 #define nettle_get_secp_256r1() &nettle_secp_256r1
55 #ifndef nettle_get_secp_384r1
56 #define nettle_get_secp_384r1() &nettle_secp_384r1
58 #ifndef nettle_get_secp_521r1
59 #define nettle_get_secp_521r1() &nettle_secp_521r1
64 /* Take an MPI from a buffer and import it into a GMP mpz_t */
65 #define MPI_TO_MPZ(pk, v) \
67 /* MPI length is stored in bits, convert it to bytes */ \
68 if (pk->length < (ofs + 2)) { \
69 ret = ONAK_E_INVALID_PKT; \
71 len = pk->data[ofs] << 8 | pk->data[ofs + 1]; \
74 if (pk->length < (ofs + len + 2)) { \
75 ret = ONAK_E_INVALID_PKT; \
77 mpz_import(v, len, 1, 1, 0, 0, &pk->data[ofs + 2]); \
86 * Hold the crypto material for a public key.
87 * May want to move to a header at some point.
89 struct onak_key_material {
92 struct dsa_params dsa;
94 struct rsa_public_key rsa;
100 static void onak_free_key_material(struct onak_key_material *key)
103 case OPENPGP_PKALGO_ECDSA:
104 ecc_point_clear(&key->ecc);
106 case OPENPGP_PKALGO_DSA:
107 mpz_clear(key->dsa.p);
108 mpz_clear(key->dsa.q);
109 mpz_clear(key->dsa.g);
112 case OPENPGP_PKALGO_RSA:
113 case OPENPGP_PKALGO_RSA_ENC:
114 case OPENPGP_PKALGO_RSA_SIGN:
115 mpz_clear(key->rsa.n);
116 mpz_clear(key->rsa.e);
120 /* Set the key type back to 0 to indicate we cleared it */
126 static onak_status_t onak_parse_key_material(struct openpgp_packet *pk,
127 struct onak_key_material *key)
132 onak_status_t ret = ONAK_E_OK;
134 /* Clear the key type; only set it when fully parsed */
138 * Shortest valid key is v4 Ed25519, which takes 51 bytes, so do a
139 * quick sanity check which will ensure we have enough data to check
140 * the packet header and OID info.
143 return ONAK_E_INVALID_PKT;
145 if (pk->data[0] != 4 && pk->data[0] != 5)
146 return ONAK_E_UNSUPPORTED_FEATURE;
149 * MPIs are after version byte, 4 byte creation time +
150 * type byte plus length for v5.
152 ofs = (pk->data[0] == 4) ? 6 : 10;
153 switch (pk->data[5]) {
154 case OPENPGP_PKALGO_ECDSA:
155 oid = onak_parse_oid(&pk->data[ofs], pk->length - ofs);
156 if (oid == ONAK_OID_INVALID)
157 return ONAK_E_INVALID_PKT;
158 if (oid == ONAK_OID_UNKNOWN)
159 return ONAK_E_UNSUPPORTED_FEATURE;
161 if (oid == ONAK_OID_NISTP256) {
162 if (pk->length - ofs != 76)
163 return ONAK_E_INVALID_PKT;
164 /* Move past the OID to the key data MPI */
165 ofs += pk->data[ofs] + 1;
166 len = pk->data[ofs] << 8 | pk->data[ofs + 1];
168 return ONAK_E_INVALID_PKT;
169 if (pk->data[ofs + 2] != 4)
170 return ONAK_E_INVALID_PKT;
173 ecc_point_init(&key->ecc, nettle_get_secp_256r1());
175 mpz_import(x, 32, 1, 1, 0, 0, &pk->data[ofs]);
177 mpz_import(y, 32, 1, 1, 0, 0, &pk->data[ofs]);
179 ecc_point_set(&key->ecc, x, y);
180 } else if (oid == ONAK_OID_NISTP384) {
181 if (pk->length - ofs != 105)
182 return ONAK_E_INVALID_PKT;
183 /* Move past the OID to the key data MPI */
184 ofs += pk->data[ofs] + 1;
185 len = pk->data[ofs] << 8 | pk->data[ofs + 1];
187 return ONAK_E_INVALID_PKT;
188 if (pk->data[ofs + 2] != 4)
189 return ONAK_E_INVALID_PKT;
192 ecc_point_init(&key->ecc, nettle_get_secp_384r1());
194 mpz_import(x, 48, 1, 1, 0, 0, &pk->data[ofs]);
196 mpz_import(y, 48, 1, 1, 0, 0, &pk->data[ofs]);
198 ecc_point_set(&key->ecc, x, y);
199 } else if (oid == ONAK_OID_NISTP521) {
200 if (pk->length - ofs != 141)
201 return ONAK_E_INVALID_PKT;
202 /* Move past the OID to the key data MPI */
203 ofs += pk->data[ofs] + 1;
204 len = pk->data[ofs] << 8 | pk->data[ofs + 1];
206 return ONAK_E_INVALID_PKT;
207 if (pk->data[ofs + 2] != 4)
208 return ONAK_E_INVALID_PKT;
211 ecc_point_init(&key->ecc, nettle_get_secp_521r1());
213 mpz_import(x, 66, 1, 1, 0, 0, &pk->data[ofs]);
215 mpz_import(y, 66, 1, 1, 0, 0, &pk->data[ofs]);
217 ecc_point_set(&key->ecc, x, y);
219 return ONAK_E_UNSUPPORTED_FEATURE;
224 case OPENPGP_PKALGO_EDDSA:
225 if (pk->length - ofs != 45)
226 return ONAK_E_INVALID_PKT;
227 oid = onak_parse_oid(&pk->data[ofs], pk->length - ofs);
228 if (oid == ONAK_OID_INVALID)
229 return ONAK_E_INVALID_PKT;
230 if (oid == ONAK_OID_UNKNOWN)
231 return ONAK_E_UNSUPPORTED_FEATURE;
233 /* Move past the OID to the key data MPI */
234 ofs += pk->data[ofs] + 1;
236 if (oid == ONAK_OID_ED25519) {
237 len = pk->data[ofs] << 8 | pk->data[ofs + 1];
239 return ONAK_E_INVALID_PKT;
240 if (pk->data[ofs + 2] != 0x40)
241 return ONAK_E_INVALID_PKT;
243 memcpy(key->ed25519, &pk->data[ofs], 32);
246 return ONAK_E_UNSUPPORTED_FEATURE;
249 case OPENPGP_PKALGO_DSA:
250 mpz_init(key->dsa.p);
251 mpz_init(key->dsa.q);
252 mpz_init(key->dsa.g);
254 MPI_TO_MPZ(pk, key->dsa.p);
255 if (ret == ONAK_E_OK)
256 MPI_TO_MPZ(pk, key->dsa.q);
257 if (ret == ONAK_E_OK)
258 MPI_TO_MPZ(pk, key->dsa.g);
259 if (ret == ONAK_E_OK)
260 MPI_TO_MPZ(pk, key->y);
262 case OPENPGP_PKALGO_RSA:
263 case OPENPGP_PKALGO_RSA_ENC:
264 case OPENPGP_PKALGO_RSA_SIGN:
265 mpz_init(key->rsa.n);
266 mpz_init(key->rsa.e);
267 key->rsa.size = ((pk->data[6] << 8) + pk->data[7] + 7) >> 3;
268 MPI_TO_MPZ(pk, key->rsa.n);
269 if (ret == ONAK_E_OK)
270 MPI_TO_MPZ(pk, key->rsa.e);
273 return ONAK_E_UNSUPPORTED_FEATURE;
276 key->type = pk->data[5];
278 if (ret != ONAK_E_OK) {
279 onak_free_key_material(key);
285 onak_status_t onak_check_hash_sig(struct openpgp_publickey *sigkey,
286 struct openpgp_packet *sig,
291 struct onak_key_material pubkey;
292 struct dsa_signature dsasig;
298 ret = onak_parse_key_material(sigkey->publickey, &pubkey);
299 if (ret != ONAK_E_OK) {
303 /* Sanity check the length of the signature packet */
304 if (sig->length < 8) {
305 ret = ONAK_E_INVALID_PKT;
309 /* Is the key the same type as the signature we're checking? */
310 if (pubkey.type != sig->data[2]) {
311 ret = ONAK_E_INVALID_PARAM;
315 /* Skip the hashed data */
316 ofs = (sig->data[4] << 8) + sig->data[5] + 6;
317 if (sig->length < ofs + 2) {
318 ret = ONAK_E_INVALID_PKT;
321 /* Skip the unhashed data */
322 ofs += (sig->data[ofs] << 8) + sig->data[ofs + 1] + 2;
323 if (sig->length < ofs + 2) {
324 ret = ONAK_E_INVALID_PKT;
327 /* Skip the sig hash bytes */
330 /* Parse the actual signature values */
331 switch (sig->data[2]) {
332 case OPENPGP_PKALGO_ECDSA:
333 case OPENPGP_PKALGO_DSA:
336 MPI_TO_MPZ(sig, dsasig.r);
337 if (ret == ONAK_E_OK)
338 MPI_TO_MPZ(sig, dsasig.s);
340 case OPENPGP_PKALGO_EDDSA:
343 MPI_TO_MPZ(sig, dsasig.r);
344 if (ret == ONAK_E_OK)
345 MPI_TO_MPZ(sig, dsasig.s);
346 mpz_export(edsig, NULL, 1, 1, 0, 0, dsasig.r);
347 mpz_export(&edsig[32], NULL, 1, 1, 0, 0, dsasig.s);
349 case OPENPGP_PKALGO_RSA:
350 case OPENPGP_PKALGO_RSA_SIGN:
356 /* If we didn't parse the signature properly then do clean-up */
357 if (ret != ONAK_E_OK)
360 /* Squash a signing only RSA key to a standard RSA key for below */
361 if (pubkey.type == OPENPGP_PKALGO_RSA_SIGN) {
362 pubkey.type = OPENPGP_PKALGO_RSA;
365 #define KEYHASH(key, hash) ((key << 8) | hash)
367 switch KEYHASH(pubkey.type, hashtype) {
368 case KEYHASH(OPENPGP_PKALGO_DSA, OPENPGP_HASH_MD5):
369 ret = dsa_verify(&pubkey.dsa, pubkey.y,
370 MD5_DIGEST_SIZE, hash, &dsasig) ?
371 ONAK_E_WEAK_SIGNATURE : ONAK_E_BAD_SIGNATURE;
373 case KEYHASH(OPENPGP_PKALGO_DSA, OPENPGP_HASH_RIPEMD160):
374 ret = dsa_verify(&pubkey.dsa, pubkey.y,
375 RIPEMD160_DIGEST_SIZE, hash, &dsasig) ?
376 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
378 case KEYHASH(OPENPGP_PKALGO_DSA, OPENPGP_HASH_SHA1):
379 ret = dsa_verify(&pubkey.dsa, pubkey.y,
380 SHA1_DIGEST_SIZE, hash, &dsasig) ?
381 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
383 case KEYHASH(OPENPGP_PKALGO_DSA, OPENPGP_HASH_SHA1X):
384 ret = dsa_verify(&pubkey.dsa, pubkey.y,
385 SHA1X_DIGEST_SIZE, hash, &dsasig) ?
386 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
388 case KEYHASH(OPENPGP_PKALGO_DSA, OPENPGP_HASH_SHA224):
389 ret = dsa_verify(&pubkey.dsa, pubkey.y,
390 SHA224_DIGEST_SIZE, hash, &dsasig) ?
391 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
393 case KEYHASH(OPENPGP_PKALGO_DSA, OPENPGP_HASH_SHA256):
394 ret = dsa_verify(&pubkey.dsa, pubkey.y,
395 SHA256_DIGEST_SIZE, hash, &dsasig) ?
396 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
398 case KEYHASH(OPENPGP_PKALGO_DSA, OPENPGP_HASH_SHA384):
399 ret = dsa_verify(&pubkey.dsa, pubkey.y,
400 SHA384_DIGEST_SIZE, hash, &dsasig) ?
401 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
403 case KEYHASH(OPENPGP_PKALGO_DSA, OPENPGP_HASH_SHA512):
404 ret = dsa_verify(&pubkey.dsa, pubkey.y,
405 SHA512_DIGEST_SIZE, hash, &dsasig) ?
406 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
408 case KEYHASH(OPENPGP_PKALGO_ECDSA, OPENPGP_HASH_SHA1):
409 ret = ecdsa_verify(&pubkey.ecc,
410 SHA1_DIGEST_SIZE, hash, &dsasig) ?
411 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
412 case KEYHASH(OPENPGP_PKALGO_ECDSA, OPENPGP_HASH_SHA256):
413 ret = ecdsa_verify(&pubkey.ecc,
414 SHA256_DIGEST_SIZE, hash, &dsasig) ?
415 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
417 case KEYHASH(OPENPGP_PKALGO_ECDSA, OPENPGP_HASH_SHA384):
418 ret = ecdsa_verify(&pubkey.ecc,
419 SHA384_DIGEST_SIZE, hash, &dsasig) ?
420 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
422 case KEYHASH(OPENPGP_PKALGO_ECDSA, OPENPGP_HASH_SHA512):
423 ret = ecdsa_verify(&pubkey.ecc,
424 SHA512_DIGEST_SIZE, hash, &dsasig) ?
425 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
427 case KEYHASH(OPENPGP_PKALGO_EDDSA, OPENPGP_HASH_RIPEMD160):
428 ret = ed25519_sha512_verify(pubkey.ed25519,
429 RIPEMD160_DIGEST_SIZE, hash, edsig) ?
430 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
432 case KEYHASH(OPENPGP_PKALGO_EDDSA, OPENPGP_HASH_SHA256):
433 ret = ed25519_sha512_verify(pubkey.ed25519,
434 SHA256_DIGEST_SIZE, hash, edsig) ?
435 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
437 case KEYHASH(OPENPGP_PKALGO_EDDSA, OPENPGP_HASH_SHA384):
438 ret = ed25519_sha512_verify(pubkey.ed25519,
439 SHA384_DIGEST_SIZE, hash, edsig) ?
440 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
442 case KEYHASH(OPENPGP_PKALGO_EDDSA, OPENPGP_HASH_SHA512):
443 ret = ed25519_sha512_verify(pubkey.ed25519,
444 SHA512_DIGEST_SIZE, hash, edsig) ?
445 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
447 case KEYHASH(OPENPGP_PKALGO_RSA, OPENPGP_HASH_MD5):
448 ret = rsa_md5_verify_digest(&pubkey.rsa, hash, s) ?
449 ONAK_E_WEAK_SIGNATURE : ONAK_E_BAD_SIGNATURE;
451 case KEYHASH(OPENPGP_PKALGO_RSA, OPENPGP_HASH_RIPEMD160):
452 ret = rsa_ripemd160_verify_digest(&pubkey.rsa, hash, s) ?
453 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
455 case KEYHASH(OPENPGP_PKALGO_RSA, OPENPGP_HASH_SHA1):
456 ret = rsa_sha1_verify_digest(&pubkey.rsa, hash, s) ?
457 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
459 case KEYHASH(OPENPGP_PKALGO_RSA, OPENPGP_HASH_SHA224):
460 ret = rsa_sha224_verify_digest(&pubkey.rsa, hash, s) ?
461 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
463 case KEYHASH(OPENPGP_PKALGO_RSA, OPENPGP_HASH_SHA256):
464 ret = rsa_sha256_verify_digest(&pubkey.rsa, hash, s) ?
465 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
467 case KEYHASH(OPENPGP_PKALGO_RSA, OPENPGP_HASH_SHA384):
468 ret = rsa_sha384_verify_digest(&pubkey.rsa, hash, s) ?
469 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
471 case KEYHASH(OPENPGP_PKALGO_RSA, OPENPGP_HASH_SHA512):
472 ret = rsa_sha512_verify_digest(&pubkey.rsa, hash, s) ?
473 ONAK_E_OK : ONAK_E_BAD_SIGNATURE;
476 ret = ONAK_E_UNSUPPORTED_FEATURE;
480 switch (sig->data[2]) {
481 case OPENPGP_PKALGO_ECDSA:
482 case OPENPGP_PKALGO_EDDSA:
483 case OPENPGP_PKALGO_DSA:
487 case OPENPGP_PKALGO_RSA:
488 case OPENPGP_PKALGO_RSA_SIGN:
494 onak_free_key_material(&pubkey);
499 #endif /* HAVE_CRYPTO */
501 onak_status_t calculate_packet_sighash(struct openpgp_publickey *key,
502 struct openpgp_packet *packet,
503 struct openpgp_packet *sig,
508 size_t siglen, unhashedlen;
509 struct sha1_ctx sha1_context;
510 struct sha1x_ctx sha1x_context;
511 struct md5_ctx md5_context;
513 struct ripemd160_ctx ripemd160_context;
514 struct sha224_ctx sha224_context;
515 struct sha256_ctx sha256_context;
516 struct sha384_ctx sha384_context;
517 struct sha512_ctx sha512_context;
519 uint8_t keyheader[5];
520 uint8_t packetheader[5];
522 uint8_t *hashdata[8];
531 switch (sig->data[0]) {
535 keyheader[1] = key->publickey->length >> 8;
536 keyheader[2] = key->publickey->length & 0xFF;
537 hashdata[0] = keyheader;
539 hashdata[1] = key->publickey->data;
540 hashlen[1] = key->publickey->length;
543 *hashtype = sig->data[16];
545 if (packet != NULL) {
546 if (packet->tag == OPENPGP_PACKET_PUBLICSUBKEY) {
547 packetheader[0] = 0x99;
548 packetheader[1] = packet->length >> 8;
549 packetheader[2] = packet->length & 0xFF;
550 hashdata[chunks] = packetheader;
555 // TODO: Things other than UIDS/subkeys?
556 hashdata[chunks] = packet->data;
557 hashlen[chunks] = packet->length;
561 hashdata[chunks] = &sig->data[2];
564 *sighash = &sig->data[17];
568 keyheader[1] = key->publickey->length >> 8;
569 keyheader[2] = key->publickey->length & 0xFF;
570 hashdata[0] = keyheader;
572 hashdata[1] = key->publickey->data;
573 hashlen[1] = key->publickey->length;
576 /* Check to see if this is an X509 based signature */
577 if (sig->data[2] == 0 || sig->data[2] == 100) {
581 res = parse_subpackets(&sig->data[4],
582 sig->length - 4, &len,
584 if (res != ONAK_E_OK) {
588 /* No unhashed data */
589 sig->data[4 + len] == 0 &&
590 sig->data[5 + len] == 0 &&
591 /* Dummy 0 checksum */
592 sig->data[6 + len] == 0 &&
593 sig->data[7 + len] == 0 &&
595 sig->data[8 + len] == 0 &&
596 sig->data[9 + len] == 1 &&
597 sig->data[10 + len] == 1) {
598 return ONAK_E_UNSUPPORTED_FEATURE;
602 *hashtype = sig->data[3];
604 if (packet != NULL) {
605 if (packet->tag == OPENPGP_PACKET_PUBLICSUBKEY) {
606 packetheader[0] = 0x99;
607 packetheader[1] = packet->length >> 8;
608 packetheader[2] = packet->length & 0xFF;
609 hashdata[chunks] = packetheader;
612 } else if (packet->tag == OPENPGP_PACKET_UID ||
613 packet->tag == OPENPGP_PACKET_UAT) {
614 packetheader[0] = (packet->tag ==
615 OPENPGP_PACKET_UID) ? 0xB4 : 0xD1;
616 packetheader[1] = packet->length >> 24;
617 packetheader[2] = (packet->length >> 16) & 0xFF;
618 packetheader[3] = (packet->length >> 8) & 0xFF;
619 packetheader[4] = packet->length & 0xFF;
620 hashdata[chunks] = packetheader;
624 hashdata[chunks] = packet->data;
625 hashlen[chunks] = packet->length;
629 hashdata[chunks] = sig->data;
630 hashlen[chunks] = siglen = (sig->data[4] << 8) +
632 if (siglen > sig->length) {
633 /* Signature data exceed packet length, bogus */
634 return ONAK_E_INVALID_PKT;
640 trailer[2] = siglen >> 24;
641 trailer[3] = (siglen >> 16) & 0xFF;
642 trailer[4] = (siglen >> 8) & 0xFF;
643 trailer[5] = siglen & 0xFF;
644 hashdata[chunks] = trailer;
648 unhashedlen = (sig->data[siglen] << 8) +
649 sig->data[siglen + 1];
650 *sighash = &sig->data[siglen + unhashedlen + 2];
656 keyheader[3] = key->publickey->length >> 8;
657 keyheader[4] = key->publickey->length & 0xFF;
658 hashdata[0] = keyheader;
660 hashdata[1] = key->publickey->data;
661 hashlen[1] = key->publickey->length;
664 *hashtype = sig->data[3];
666 if (packet != NULL) {
667 if (packet->tag == OPENPGP_PACKET_PUBLICSUBKEY) {
668 packetheader[0] = 0x9A;
671 packetheader[3] = packet->length >> 8;
672 packetheader[4] = packet->length & 0xFF;
673 hashdata[chunks] = packetheader;
676 } else if (packet->tag == OPENPGP_PACKET_UID ||
677 packet->tag == OPENPGP_PACKET_UAT) {
678 packetheader[0] = (packet->tag ==
679 OPENPGP_PACKET_UID) ? 0xB4 : 0xD1;
680 packetheader[1] = packet->length >> 24;
681 packetheader[2] = (packet->length >> 16) & 0xFF;
682 packetheader[3] = (packet->length >> 8) & 0xFF;
683 packetheader[4] = packet->length & 0xFF;
684 hashdata[chunks] = packetheader;
688 hashdata[chunks] = packet->data;
689 hashlen[chunks] = packet->length;
693 hashdata[chunks] = sig->data;
694 hashlen[chunks] = siglen = (sig->data[4] << 8) +
696 if (siglen > sig->length) {
697 /* Signature data exceed packet length, bogus */
698 return ONAK_E_INVALID_PKT;
708 trailer[6] = siglen >> 24;
709 trailer[7] = (siglen >> 16) & 0xFF;
710 trailer[8] = (siglen >> 8) & 0xFF;
711 trailer[9] = siglen & 0xFF;
712 hashdata[chunks] = trailer;
713 hashlen[chunks] = 10;
716 unhashedlen = (sig->data[siglen] << 8) +
717 sig->data[siglen + 1];
718 *sighash = &sig->data[siglen + unhashedlen + 2];
721 return ONAK_E_UNSUPPORTED_FEATURE;
725 case OPENPGP_HASH_MD5:
726 md5_init(&md5_context);
727 for (i = 0; i < chunks; i++) {
728 md5_update(&md5_context, hashlen[i], hashdata[i]);
730 md5_digest(&md5_context, MD5_DIGEST_SIZE, hash);
732 case OPENPGP_HASH_SHA1:
733 sha1_init(&sha1_context);
734 for (i = 0; i < chunks; i++) {
735 sha1_update(&sha1_context, hashlen[i], hashdata[i]);
737 sha1_digest(&sha1_context, SHA1_DIGEST_SIZE, hash);
739 case OPENPGP_HASH_SHA1X:
740 sha1x_init(&sha1x_context);
741 for (i = 0; i < chunks; i++) {
742 sha1x_update(&sha1x_context, hashlen[i], hashdata[i]);
744 sha1x_digest(&sha1x_context, SHA1X_DIGEST_SIZE, hash);
747 case OPENPGP_HASH_RIPEMD160:
748 ripemd160_init(&ripemd160_context);
749 for (i = 0; i < chunks; i++) {
750 ripemd160_update(&ripemd160_context, hashlen[i],
753 ripemd160_digest(&ripemd160_context, RIPEMD160_DIGEST_SIZE,
756 case OPENPGP_HASH_SHA224:
757 sha224_init(&sha224_context);
758 for (i = 0; i < chunks; i++) {
759 sha224_update(&sha224_context, hashlen[i],
762 sha224_digest(&sha224_context, SHA224_DIGEST_SIZE, hash);
764 case OPENPGP_HASH_SHA256:
765 sha256_init(&sha256_context);
766 for (i = 0; i < chunks; i++) {
767 sha256_update(&sha256_context, hashlen[i],
770 sha256_digest(&sha256_context, SHA256_DIGEST_SIZE, hash);
772 case OPENPGP_HASH_SHA384:
773 sha384_init(&sha384_context);
774 for (i = 0; i < chunks; i++) {
775 sha384_update(&sha384_context, hashlen[i],
778 sha384_digest(&sha384_context, SHA384_DIGEST_SIZE, hash);
780 case OPENPGP_HASH_SHA512:
781 sha512_init(&sha512_context);
782 for (i = 0; i < chunks; i++) {
783 sha512_update(&sha512_context, hashlen[i],
786 sha512_digest(&sha512_context, SHA512_DIGEST_SIZE, hash);
790 return ONAK_E_UNSUPPORTED_FEATURE;