lib/libc/md/mdXhl.c

   1 /*      $NetBSD: mdXhl.c,v 1.8 2009/03/06 18:15:24 apb Exp $    */
   2
   3 /*
   4  * ----------------------------------------------------------------------------
   5  * "THE BEER-WARE LICENSE" (Revision 42):
   6  * <phk@login.dkuug.dk> wrote this file.  As long as you retain this notice you
   7  * can do whatever you want with this stuff. If we meet some day, and you think
   8  * this stuff is worth it, you can buy me a beer in return.   Poul-Henning Kamp
   9  * ----------------------------------------------------------------------------
  10  *
  11  * from FreeBSD Id: mdXhl.c,v 1.8 1996/10/25 06:48:12 bde Exp
  12  */
  13
  14 /*
  15  * Modified April 29, 1997 by Jason R. Thorpe <thorpej@NetBSD.org>
  16  */
  17
  18 #if HAVE_NBTOOL_CONFIG_H
  19 #include "nbtool_config.h"
  20 #endif
  21
  22 #define CONCAT(x,y)     __CONCAT(x,y)
  23 #define MDNAME(x)       CONCAT(MDALGORITHM,x)
  24
  25 #if !defined(_KERNEL) && defined(__weak_alias) && !defined(HAVE_NBTOOL_CONFIG_H)
  26 #define WA(a,b) __weak_alias(a,b)
  27 WA(MDNAME(End),CONCAT(_,MDNAME(End)))
  28 WA(MDNAME(File),CONCAT(_,MDNAME(File)))
  29 WA(MDNAME(Data),CONCAT(_,MDNAME(Data)))
  30 #undef WA
  31 #endif
  32
  33 #include "namespace.h"
  34
  35 #include <sys/types.h>
  36
  37 #include MDINCLUDE
  38 #include <assert.h>
  39 #include <fcntl.h>
  40 #include <errno.h>
  41 #include <stdio.h>
  42 #include <stdlib.h>
  43 #include <unistd.h>
  44
  45
  46
  47 char *
  48 MDNAME(End)(ctx, buf)
  49         MDNAME(_CTX) *ctx;
  50         char *buf;
  51 {
  52         int i;
  53         unsigned char digest[16];
  54         static const char hex[]="0123456789abcdef";
  55
  56         _DIAGASSERT(ctx != 0);
  57
  58         if (buf == NULL)
  59                 buf = malloc(33);
  60         if (buf == NULL)
  61                 return (NULL);
  62
  63         MDNAME(Final)(digest, ctx);
  64
  65         for (i = 0; i < 16; i++) {
  66                 buf[i+i] = hex[(u_int32_t)digest[i] >> 4];
  67                 buf[i+i+1] = hex[digest[i] & 0x0f];
  68         }
  69
  70         buf[i+i] = '\0';
  71         return (buf);
  72 }
  73
  74 char *
  75 MDNAME(File)(filename, buf)
  76         const char *filename;
  77         char *buf;
  78 {
  79         unsigned char buffer[BUFSIZ];
  80         MDNAME(_CTX) ctx;
  81         int f, i, j;
  82
  83         _DIAGASSERT(filename != 0);
  84         /* buf may be NULL */
  85
  86         MDNAME(Init)(&ctx);
  87         f = open(filename, O_RDONLY, 0666);
  88         if (f < 0)
  89                 return NULL;
  90
  91         while ((i = read(f, buffer, sizeof(buffer))) > 0)
  92                 MDNAME(Update)(&ctx, buffer, (unsigned int)i);
  93
  94         j = errno;
  95         close(f);
  96         errno = j;
  97
  98         if (i < 0)
  99                 return NULL;
 100
 101         return (MDNAME(End)(&ctx, buf));
 102 }
 103
 104 char *
 105 MDNAME(Data)(data, len, buf)
 106         const unsigned char *data;
 107         unsigned int len;
 108         char *buf;
 109 {
 110         MDNAME(_CTX) ctx;
 111
 112         _DIAGASSERT(data != 0);
 113
 114         MDNAME(Init)(&ctx);
 115         MDNAME(Update)(&ctx, data, len);
 116         return (MDNAME(End)(&ctx, buf));
 117 }