This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to Math::Complex 1.54
[perl5.git] / ext / Digest / SHA / src / hmac.c
index 60e1ba0..9ecfc38 100644 (file)
@@ -3,10 +3,10 @@
  *
  * Ref: FIPS PUB 198 The Keyed-Hash Message Authentication Code
  *
- * Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
+ * Copyright (C) 2003-2007 Mark Shelor, All Rights Reserved
  *
- * Version: 5.34
- * Thu Feb  2 18:55:40 MST 2006
+ * Version: 5.45
+ * Tue Jun 26 02:36:00 MST 2007
  *
  */
 
 #include "sha.h"
 
 /* hmacopen: creates a new HMAC-SHA digest object */
-HMAC *hmacopen(alg, key, keylen)
-int alg;
-unsigned char *key;
-unsigned int keylen;
+HMAC *hmacopen(int alg, unsigned char *key, unsigned int keylen)
 {
        unsigned int i;
        HMAC *h;
@@ -62,17 +59,13 @@ unsigned int keylen;
 }
 
 /* hmacwrite: triggers a state update using data in bitstr/bitcnt */
-unsigned long hmacwrite(bitstr, bitcnt, h)
-unsigned char *bitstr;
-unsigned long bitcnt;
-HMAC *h;
+unsigned long hmacwrite(unsigned char *bitstr, unsigned long bitcnt, HMAC *h)
 {
        return(shawrite(bitstr, bitcnt, h->isha));
 }
 
 /* hmacfinish: computes final digest state */
-void hmacfinish(h)
-HMAC *h;
+void hmacfinish(HMAC *h)
 {
        shafinish(h->isha);
        shawrite(shadigest(h->isha), h->isha->digestlen * 8, h->osha);
@@ -81,29 +74,25 @@ HMAC *h;
 }
 
 /* hmacdigest: returns pointer to digest (binary) */
-unsigned char *hmacdigest(h)
-HMAC *h;
+unsigned char *hmacdigest(HMAC *h)
 {
        return(shadigest(h->osha));
 }
 
 /* hmachex: returns pointer to digest (hexadecimal) */
-char *hmachex(h)
-HMAC *h;
+char *hmachex(HMAC *h)
 {
        return(shahex(h->osha));
 }
 
 /* hmacbase64: returns pointer to digest (Base 64) */
-char *hmacbase64(h)
-HMAC *h;
+char *hmacbase64(HMAC *h)
 {
        return(shabase64(h->osha));
 }
 
 /* hmacclose: de-allocates digest object */
-int hmacclose(h)
-HMAC *h;
+int hmacclose(HMAC *h)
 {
        shaclose(h->osha);
        if (h != NULL) {