From f1dcfd03b4648fd6c0221d14436b391cd368beac Mon Sep 17 00:00:00 2001 From: forsyth Date: Wed, 3 Feb 2010 20:48:47 +0000 Subject: 20100203-2048 --- libinterp/keyring.c | 56 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 56 insertions(+) (limited to 'libinterp/keyring.c') diff --git a/libinterp/keyring.c b/libinterp/keyring.c index 56971cf4..7bc5b5d3 100644 --- a/libinterp/keyring.c +++ b/libinterp/keyring.c @@ -1262,6 +1262,62 @@ Keyring_sha1(void *fp) *f->ret = keyring_digest_x(f->buf, f->n, f->digest, SHA1dlen, f->state, sha1); } +void +Keyring_sha224(void *fp) +{ + F_Keyring_sha224 *f; + void *r; + + f = fp; + r = *f->ret; + *f->ret = H; + destroy(r); + + *f->ret = keyring_digest_x(f->buf, f->n, f->digest, SHA224dlen, f->state, sha224); +} + +void +Keyring_sha256(void *fp) +{ + F_Keyring_sha256 *f; + void *r; + + f = fp; + r = *f->ret; + *f->ret = H; + destroy(r); + + *f->ret = keyring_digest_x(f->buf, f->n, f->digest, SHA256dlen, f->state, sha256); +} + +void +Keyring_sha384(void *fp) +{ + F_Keyring_sha384 *f; + void *r; + + f = fp; + r = *f->ret; + *f->ret = H; + destroy(r); + + *f->ret = keyring_digest_x(f->buf, f->n, f->digest, SHA384dlen, f->state, sha384); +} + +void +Keyring_sha512(void *fp) +{ + F_Keyring_sha512 *f; + void *r; + + f = fp; + r = *f->ret; + *f->ret = H; + destroy(r); + + *f->ret = keyring_digest_x(f->buf, f->n, f->digest, SHA512dlen, f->state, sha512); +} + void Keyring_md5(void *fp) { -- cgit v1.2.3