contrib/opie/libopie/hash.c

   1 /* hash.c: The opiehash() library function.
   2
   3 %%% copyright-cmetz-96
   4 This software is Copyright 1996-2001 by Craig Metz, All Rights Reserved.
   5 The Inner Net License Version 3 applies to this software.
   6 You should have received a copy of the license with this software. If
   7 you didn't get a copy, you may request one from <license@inner.net>.
   8
   9         History:
  10
  11         Modified by cmetz for OPIE 2.4. Use struct opie_otpkey for binary arg.
  12         Modified by cmetz for OPIE 2.31. Added SHA support (which may
  13               not be correct). Backed out previous optimizations as
  14               they killed thread-safety.
  15         Created by cmetz for OPIE 2.3 using the old hash.c as a guide.
  16
  17 $FreeBSD$
  18 */
  19
  20 #include <sys/endian.h>
  21
  22 #include "opie_cfg.h"
  23 #include "opie.h"
  24
  25 #include <sha.h>
  26 #include <md4.h>
  27 #include <md5.h>
  28
  29 VOIDRET opiehash FUNCTION((x, algorithm), struct opie_otpkey *x AND
  30 unsigned algorithm)
  31 {
  32   UINT4 *results = (UINT4 *)x;
  33
  34   switch(algorithm) {
  35     case 3:
  36       {
  37       SHA_CTX sha;
  38       UINT4 digest[5];
  39       SHA1_Init(&sha);
  40       SHA1_Update(&sha, (unsigned char *)x, 8);
  41       SHA1_Final((unsigned char *)digest, &sha);
  42       results[0] = digest[0] ^ digest[2] ^ digest[4];
  43       results[1] = digest[1] ^ digest[3];
  44
  45       /*
  46        * RFC2289 mandates that we convert SHA1 digest from big-endian to little
  47        * see Appendix A.
  48        */
  49       results[0] = bswap32(results[0]);
  50       results[1] = bswap32(results[1]);
  51       };
  52       break;
  53     case 4:
  54       {
  55       MD4_CTX mdx;
  56       UINT4 mdx_tmp[4];
  57
  58       MD4Init(&mdx);
  59       MD4Update(&mdx, (unsigned char *)x, 8);
  60       MD4Final((unsigned char *)mdx_tmp, &mdx);
  61       results[0] = mdx_tmp[0] ^ mdx_tmp[2];
  62       results[1] = mdx_tmp[1] ^ mdx_tmp[3];
  63       };
  64       break;
  65     case 5:
  66       {
  67       MD5_CTX mdx;
  68       UINT4 mdx_tmp[4];
  69
  70       MD5Init(&mdx);
  71       MD5Update(&mdx, (unsigned char *)x, 8);
  72       MD5Final((unsigned char *)mdx_tmp, &mdx);
  73       results[0] = mdx_tmp[0] ^ mdx_tmp[2];
  74       results[1] = mdx_tmp[1] ^ mdx_tmp[3];
  75       };
  76       break;
  77   }
  78 }