contrib/opie/libopie/atob8.c

   1 /* atob8.c: The opieatob8() library function.
   2
   3 %%% portions-copyright-cmetz-96
   4 Portions of this software are Copyright 1996-1999 by Craig Metz, All Rights
   5 Reserved. The Inner Net License Version 2 applies to these portions of
   6 the software.
   7 You should have received a copy of the license with this software. If
   8 you didn't get a copy, you may request one from <license@inner.net>.
   9
  10 Portions of this software are Copyright 1995 by Randall Atkinson and Dan
  11 McDonald, All Rights Reserved. All Rights under this copyright are assigned
  12 to the U.S. Naval Research Laboratory (NRL). The NRL Copyright Notice and
  13 License Agreement applies to this software.
  14
  15         History:
  16
  17         Modified by cmetz for OPIE 2.4. Use struct opie_otpkey for binary arg.
  18         Modified by cmetz for OPIE 2.3. Return the output variable.
  19             Don't check parameters.
  20         Modified by cmetz for OPIE 2.2. Use FUNCTION declaration et al.
  21             Inlined and obseleted opieskipspace(). Inlined and obseleted
  22             opiehtoi().
  23         Created at NRL for OPIE 2.2 from opiesubr2.c
  24 */
  25 #include "opie_cfg.h"
  26 #include <stdio.h>
  27 #include "opie.h"
  28
  29 /* Convert 8-byte hex-ascii string to binary array
  30  */
  31 char *opieatob8 FUNCTION((out, in), struct opie_otpkey *outkey AND char *in)
  32 {
  33   register int i;
  34   register int val;
  35   unsigned char *out = (unsigned char *)outkey;
  36
  37   for (i = 0; i < 8; i++) {
  38     while (*in == ' ' || *in == '\t')
  39       in++;
  40     if (!*in)
  41       return NULL;
  42
  43     if ((*in >= '0') && (*in <= '9'))
  44       val = *(in++) - '0';
  45     else
  46       if ((*in >= 'a') && (*in <= 'f'))
  47         val = *(in++) - 'a' + 10;
  48       else
  49         if ((*in >= 'A') && (*in <= 'F'))
  50           val = *(in++) - 'A' + 10;
  51         else
  52           return NULL;
  53
  54     *out = val << 4;
  55
  56     while (*in == ' ' || *in == '\t')
  57       in++;
  58     if (!*in)
  59       return NULL;
  60
  61     if ((*in >= '0') && (*in <= '9'))
  62       val = *(in++) - '0';
  63     else
  64       if ((*in >= 'a') && (*in <= 'f'))
  65         val = *(in++) - 'a' + 10;
  66       else
  67         if ((*in >= 'A') && (*in <= 'F'))
  68           val = *(in++) - 'A' + 10;
  69         else
  70           return NULL;
  71
  72     *out++ |= val;
  73   }
  74
  75   return out;
  76 }