1: /*
    2:  * Copyright (c) 1996-1999 by Internet Software Consortium.
    3:  *
    4:  * Permission to use, copy, modify, and distribute this software for any
    5:  * purpose with or without fee is hereby granted, provided that the above
    6:  * copyright notice and this permission notice appear in all copies.
    7:  *
    8:  * THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS
    9:  * ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
   10:  * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE
   11:  * CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
   12:  * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
   13:  * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
   14:  * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
   15:  * SOFTWARE.
   16:  */
   17: 
   18: #if defined(LIBC_SCCS) && !defined(lint)
   19: static const char rcsid[] = "$BINDId: nsap_addr.c,v 8.10 1999/10/13 16:39:28 vixie Exp $";
   20: #endif /* LIBC_SCCS and not lint */
   21: 
   22: #include <sys/types.h>
   23: #include <sys/param.h>
   24: #include <sys/socket.h>
   25: 
   26: #include <netinet/in.h>
   27: #include <arpa/inet.h>
   28: #include <arpa/nameser.h>
   29: 
   30: #include <ctype.h>
   31: #include <resolv.h>
   32: 
   33: static char
   34: xtob(int c) {
   35:         return (c - (((c >= '0') && (c <= '9')) ? '0' : '7'));
   36: }
   37: 
   38: u_int
   39: inet_nsap_addr(const char *ascii, u_char *binary, int maxlen) {
   40:         u_char c, nib;
   41:         u_int len = 0;
   42: 
   43:         while ((c = *ascii++) != '\0' && len < (u_int)maxlen) {
   44:                 if (c == '.' || c == '+' || c == '/')
   45:                         continue;
   46:                 if (!isascii(c))
   47:                         return (0);
   48:                 c = toupper(c);
   49:                 if (isxdigit(c)) {
   50:                         nib = xtob(c);
   51:                         c = *ascii++;
   52:                         if (c != '\0') {
   53:                                 c = toupper(c);
   54:                                 if (isxdigit(c)) {
   55:                                         *binary++ = (nib << 4) | xtob(c);
   56:                                         len++;
   57:                                 } else
   58:                                         return (0);
   59:                         }
   60:                         else
   61:                                 return (0);
   62:                 }
   63:                 else
   64:                         return (0);
   65:         }
   66:         return (len);
   67: }
   68: 
   69: char *
   70: inet_nsap_ntoa(int binlen, const u_char *binary, char *ascii) {
   71:         int nib;
   72:         int i;
   73:         static char tmpbuf[255*2 + 128];
   74:         char *start;
   75: 
   76:         if (ascii)
   77:                 start = ascii;
   78:         else {
   79:                 ascii = tmpbuf;
   80:                 start = tmpbuf;
   81:         }
   82: 
   83:         if (binlen > 255)
   84:                 binlen = 255;
   85: 
   86:         for (i = 0; i < binlen; i++) {
   87:                 nib = *binary >> 4;
   88:                 *ascii++ = nib + (nib < 10 ? '0' : '7');
   89:                 nib = *binary++ & 0x0f;
   90:                 *ascii++ = nib + (nib < 10 ? '0' : '7');
   91:                 if (((i % 2) == 0 && (i + 1) < binlen))
   92:                         *ascii++ = '.';
   93:         }
   94:         *ascii = '\0';
   95:         return (start);
   96: }