1 /*
2 * Copyright (c) 2004 by Internet Systems Consortium, Inc. ("ISC")
3 * Copyright (c) 1996-1999 by Internet Software Consortium.
4 *
5 * Permission to use, copy, modify, and distribute this software for any
6 * purpose with or without fee is hereby granted, provided that the above
7 * copyright notice and this permission notice appear in all copies.
8 *
9 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES
10 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
11 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR
12 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
13 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
14 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
15 * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
16 *
17 * $Id: nsap_addr.c,v 1.5 2005/07/28 06:51:48 marka Exp $
18 */
19
20 #include "port_before.h"
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 #include "resolv_mt.h"
33
34 #include "port_after.h"
35
36 static char
xtob(int c)37 xtob(int c) {
38 return (c - (((c >= '0') && (c <= '9')) ? '0' : '7'));
39 }
40
41 u_int
inet_nsap_addr(const char * ascii,u_char * binary,int maxlen)42 inet_nsap_addr(const char *ascii, u_char *binary, int maxlen) {
43 u_char c, nib;
44 u_int len = 0;
45
46 if (ascii[0] != '0' || (ascii[1] != 'x' && ascii[1] != 'X'))
47 return (0);
48 ascii += 2;
49
50 while ((c = *ascii++) != '\0' && len < (u_int)maxlen) {
51 if (c == '.' || c == '+' || c == '/')
52 continue;
53 if (!isascii(c))
54 return (0);
55 if (islower(c))
56 c = toupper(c);
57 if (isxdigit(c)) {
58 nib = xtob(c);
59 c = *ascii++;
60 if (c != '\0') {
61 c = toupper(c);
62 if (isxdigit(c)) {
63 *binary++ = (nib << 4) | xtob(c);
64 len++;
65 } else
66 return (0);
67 }
68 else
69 return (0);
70 }
71 else
72 return (0);
73 }
74 return (len);
75 }
76
77 char *
inet_nsap_ntoa(int binlen,const u_char * binary,char * ascii)78 inet_nsap_ntoa(int binlen, const u_char *binary, char *ascii) {
79 int nib;
80 int i;
81 char *tmpbuf = inet_nsap_ntoa_tmpbuf;
82 char *start;
83
84 if (ascii)
85 start = ascii;
86 else {
87 ascii = tmpbuf;
88 start = tmpbuf;
89 }
90
91 *ascii++ = '0';
92 *ascii++ = 'x';
93
94 if (binlen > 255)
95 binlen = 255;
96
97 for (i = 0; i < binlen; i++) {
98 nib = *binary >> 4;
99 *ascii++ = nib + (nib < 10 ? '0' : '7');
100 nib = *binary++ & 0x0f;
101 *ascii++ = nib + (nib < 10 ? '0' : '7');
102 if (((i % 2) == 0 && (i + 1) < binlen))
103 *ascii++ = '.';
104 }
105 *ascii = '\0';
106 return (start);
107 }
108
109 /*
110 * Weak aliases for applications that use certain private entry points,
111 * and fail to include <arpa/inet.h>.
112 */
113 #undef inet_nsap_addr
114 __weak_reference(__inet_nsap_addr, inet_nsap_addr);
115 #undef inet_nsap_ntoa
116 __weak_reference(__inet_nsap_ntoa, inet_nsap_ntoa);
117