r3105 - trunk/libmcrypto/source/gnutls

[mikma at minisip.org]

Author: mikma
Date: 2007-01-10 20:49:08 +0100 (Wed, 10 Jan 2007)
New Revision: 3105

Modified:
   trunk/libmcrypto/source/gnutls/sha1.cxx
Log:
Fix compilation of gnutls sha1

Modified: trunk/libmcrypto/source/gnutls/sha1.cxx
===================================================================
--- trunk/libmcrypto/source/gnutls/sha1.cxx	2007-01-10 19:00:26 UTC (rev 3104)
+++ trunk/libmcrypto/source/gnutls/sha1.cxx	2007-01-10 19:49:08 UTC (rev 3105)
@@ -63,13 +63,13 @@
     gcry_md_hd_t hd;
     gcry_error_t err = 0;
 
-    err = gcry_md_open(&hd, GCRY_MD_SHA256, 0);
+    err = gcry_md_open(&hd, GCRY_MD_SHA1, 0);
     while (*dataChunks) {
         gcry_md_write (hd, *dataChunks, (uint32_t)(*dataChunkLength));
         dataChunks++;
         dataChunkLength++;
     }
-    uint8_t* p = gcry_md_read (hd, GCRY_MD_SHA256);
-    memcpy(mac, p, SHA256_DIGEST_LENGTH);
+    uint8_t* p = gcry_md_read (hd, GCRY_MD_SHA1);
+    memcpy(mac, p, SHA1_DIGEST_LENGTH);
     gcry_md_close (hd);
 }