Kannel: Open Source WAP and SMS gateway  $Revision: 5037 $
gw_uuid.c
Go to the documentation of this file.
1 /*
2  * clear.c -- Clear a UUID
3  *
4  * Copyright (C) 1996, 1997 Theodore Ts'o.
5  *
6  * %Begin-Header%
7  * This file may be redistributed under the terms of the GNU
8  * Library General Public License.
9  * %End-Header%
10  */
11 
12 /*
13  * Force inclusion of SVID stuff since we need it if we're compiling in
14  * gcc-wall wall mode
15  */
16 #ifndef _SVID_SOURCE
17 #define _SVID_SOURCE
18 #endif
19 
20 #include "gw-config.h"
21 
22 #ifdef HAVE_UNISTD_H
23 #include <unistd.h>
24 #endif
25 #ifdef HAVE_STDLIB_H
26 #include <stdlib.h>
27 #endif
28 #include <string.h>
29 #include <ctype.h>
30 #include <fcntl.h>
31 #include <errno.h>
32 #include <sys/types.h>
33 #include <sys/time.h>
34 #include <sys/stat.h>
35 #include <sys/file.h>
36 #ifdef HAVE_SYS_IOCTL_H
37 #include <sys/ioctl.h>
38 #endif
39 #ifdef HAVE_SYS_SOCKET_H
40 #include <sys/socket.h>
41 #endif
42 #ifdef HAVE_SYS_SOCKIO_H
43 #include <sys/sockio.h>
44 #endif
45 #ifdef HAVE_NET_IF_H
46 #include <net/if.h>
47 #endif
48 #ifdef HAVE_NETINET_IN_H
49 #include <netinet/in.h>
50 #endif
51 #include <stdio.h>
52 
53 #include "gwlib/gw_uuid_types.h"
54 #include "gwlib/gw_uuid.h"
55 
56 /*
57  * Offset between 15-Oct-1582 and 1-Jan-70
58  */
59 #define TIME_OFFSET_HIGH 0x01B21DD2
60 #define TIME_OFFSET_LOW 0x13814000
61 
62 struct uuid {
63  __u32 time_low;
64  __u16 time_mid;
66  __u16 clock_seq;
67  __u8 node[6];
68 };
69 
70 
71 /*
72  * prototypes
73  */
74 static void uuid_pack(const struct uuid *uu, uuid_t ptr);
75 static void uuid_unpack(const uuid_t in, struct uuid *uu);
76 static int get_random_fd(void);
77 
78 
79 #ifdef HAVE_SRANDOM
80 #define srand(x) srandom(x)
81 #define rand() random()
82 #endif
83 
84 
85 
86 void uuid_init(void)
87 {
88  /*
89  * open random device if any.
90  * We should do it here because otherwise it's
91  * possible that we open device twice.
92  */
93  get_random_fd();
94 }
95 
96 
97 void uuid_shutdown(void)
98 {
99  int fd = get_random_fd();
100 
101  if (fd > 0)
102  close(fd);
103 }
104 
106 {
107  memset(uu, 0, 16);
108 }
109 
110 /*
111  * compare.c --- compare whether or not two UUID's are the same
112  *
113  * Returns an integer less than, equal to, or greater than zero if
114  * uu1 respectively, to be less than, to match, or be greater than
115  * uu2.
116  *
117  * Copyright (C) 1996, 1997 Theodore Ts'o.
118  *
119  * %Begin-Header%
120  * This file may be redistributed under the terms of the GNU
121  * Library General Public License.
122  * %End-Header%
123  */
124 #define UUCMP(u1,u2) if (u1 != u2) return((u1 < u2) ? -1 : 1);
125 
126 int uuid_compare(const uuid_t uu1, const uuid_t uu2)
127 {
128  struct uuid uuid1, uuid2;
129 
130  uuid_unpack(uu1, &uuid1);
131  uuid_unpack(uu2, &uuid2);
132 
133  UUCMP(uuid1.time_low, uuid2.time_low);
134  UUCMP(uuid1.time_mid, uuid2.time_mid);
136  UUCMP(uuid1.clock_seq, uuid2.clock_seq);
137  return memcmp(uuid1.node, uuid2.node, 6);
138 }
139 
140 /*
141  * copy.c --- copy UUIDs
142  *
143  * Copyright (C) 1996, 1997 Theodore Ts'o.
144  *
145  * %Begin-Header%
146  * This file may be redistributed under the terms of the GNU
147  * Library General Public License.
148  * %End-Header%
149  */
150 void uuid_copy(uuid_t dst, const uuid_t src)
151 {
152  unsigned char *cp1;
153  const unsigned char *cp2;
154  int i;
155 
156  for (i=0, cp1 = dst, cp2 = src; i < 16; i++)
157  *cp1++ = *cp2++;
158 }
159 
160 
161 /*
162  * gen_uuid.c --- generate a DCE-compatible uuid
163  *
164  * Copyright (C) 1996, 1997, 1998, 1999 Theodore Ts'o.
165  *
166  * %Begin-Header%
167  * This file may be redistributed under the terms of the GNU
168  * Library General Public License.
169  * %End-Header%
170  */
171 static int get_random_fd(void)
172 {
173  struct timeval tv;
174  static int fd = -2;
175  int i;
176 
177  if (fd == -2) {
178  gettimeofday(&tv, 0);
179  fd = open("/dev/urandom", O_RDONLY);
180  if (fd == -1)
181  fd = open("/dev/random", O_RDONLY | O_NONBLOCK);
182  srand((getpid() << 16) ^ getuid() ^ tv.tv_sec ^ tv.tv_usec);
183  }
184  /* Crank the random number generator a few times */
185  gettimeofday(&tv, 0);
186  for (i = (tv.tv_sec ^ tv.tv_usec) & 0x1F; i > 0; i--)
187  rand();
188 
189  return fd;
190 }
191 
192 
193 /*
194  * Generate a series of random bytes. Use /dev/urandom if possible,
195  * and if not, use srandom/random.
196  */
197 static void get_random_bytes(void *buf, int nbytes)
198 {
199  int i, n = nbytes, fd = get_random_fd();
200  int lose_counter = 0;
201  unsigned char *cp = (unsigned char *) buf;
202 
203  if (fd >= 0) {
204  while (n > 0) {
205  i = read(fd, cp, n);
206  if (i <= 0) {
207  if (lose_counter++ > 16)
208  break;
209  continue;
210  }
211  n -= i;
212  cp += i;
213  lose_counter = 0;
214  }
215  }
216 
217  /*
218  * We do this all the time, but this is the only source of
219  * randomness if /dev/random/urandom is out to lunch.
220  */
221  for (cp = buf, i = 0; i < nbytes; i++)
222  *cp++ ^= (rand() >> 7) & 0xFF;
223  return;
224 }
225 
226 /*
227  * Get the ethernet hardware address, if we can find it...
228  */
229 static int get_node_id(unsigned char *node_id)
230 {
231 #ifdef HAVE_NET_IF_H
232  int sd;
233  struct ifreq ifr, *ifrp;
234  struct ifconf ifc;
235  char buf[1024];
236  int n, i;
237  unsigned char *a;
238 
239 /*
240  * BSD 4.4 defines the size of an ifreq to be
241  * max(sizeof(ifreq), sizeof(ifreq.ifr_name)+ifreq.ifr_addr.sa_len
242  * However, under earlier systems, sa_len isn't present, so the size is
243  * just sizeof(struct ifreq)
244  */
245 #ifdef HAVE_SA_LEN
246 #ifndef max
247 #define max(a,b) ((a) > (b) ? (a) : (b))
248 #endif
249 #define ifreq_size(i) max(sizeof(struct ifreq),\
250  sizeof((i).ifr_name)+(i).ifr_addr.sa_len)
251 #else
252 #define ifreq_size(i) sizeof(struct ifreq)
253 #endif /* HAVE_SA_LEN*/
254 
255  sd = socket(AF_INET, SOCK_DGRAM, IPPROTO_IP);
256  if (sd < 0) {
257  return -1;
258  }
259  memset(buf, 0, sizeof(buf));
260  ifc.ifc_len = sizeof(buf);
261  ifc.ifc_buf = buf;
262  if (ioctl (sd, SIOCGIFCONF, (char *)&ifc) < 0) {
263  close(sd);
264  return -1;
265  }
266  n = ifc.ifc_len;
267  for (i = 0; i < n; i+= ifreq_size(*ifr) ) {
268  ifrp = (struct ifreq *)((char *) ifc.ifc_buf+i);
269  strncpy(ifr.ifr_name, ifrp->ifr_name, IFNAMSIZ);
270 #ifdef SIOCGIFHWADDR
271  if (ioctl(sd, SIOCGIFHWADDR, &ifr) < 0)
272  continue;
273  a = (unsigned char *) &ifr.ifr_hwaddr.sa_data;
274 #else
275 #ifdef SIOCGENADDR
276  if (ioctl(sd, SIOCGENADDR, &ifr) < 0)
277  continue;
278  a = (unsigned char *) ifr.ifr_enaddr;
279 #else
280  /*
281  * XXX we don't have a way of getting the hardware
282  * address
283  */
284  close(sd);
285  return 0;
286 #endif /* SIOCGENADDR */
287 #endif /* SIOCGIFHWADDR */
288  if (!a[0] && !a[1] && !a[2] && !a[3] && !a[4] && !a[5])
289  continue;
290  if (node_id) {
291  memcpy(node_id, a, 6);
292  close(sd);
293  return 1;
294  }
295  }
296  close(sd);
297 #endif
298  return 0;
299 }
300 
301 /* Assume that the gettimeofday() has microsecond granularity */
302 #define MAX_ADJUSTMENT 10
303 
304 static int get_clock(__u32 *clock_high, __u32 *clock_low, __u16 *ret_clock_seq)
305 {
306  static int adjustment = 0;
307  static struct timeval last = {0, 0};
308  static __u16 clock_seq;
309  struct timeval tv;
310  unsigned long long clock_reg;
311 
312 try_again:
313  gettimeofday(&tv, 0);
314  if ((last.tv_sec == 0) && (last.tv_usec == 0)) {
315  get_random_bytes(&clock_seq, sizeof(clock_seq));
316  clock_seq &= 0x1FFF;
317  last = tv;
318  last.tv_sec--;
319  }
320  if ((tv.tv_sec < last.tv_sec) ||
321  ((tv.tv_sec == last.tv_sec) &&
322  (tv.tv_usec < last.tv_usec))) {
323  clock_seq = (clock_seq+1) & 0x1FFF;
324  adjustment = 0;
325  last = tv;
326  } else if ((tv.tv_sec == last.tv_sec) &&
327  (tv.tv_usec == last.tv_usec)) {
328  if (adjustment >= MAX_ADJUSTMENT)
329  goto try_again;
330  adjustment++;
331  } else {
332  adjustment = 0;
333  last = tv;
334  }
335 
336  clock_reg = tv.tv_usec*10 + adjustment;
337  clock_reg += ((unsigned long long) tv.tv_sec)*10000000;
338  clock_reg += (((unsigned long long) 0x01B21DD2) << 32) + 0x13814000;
339 
340  *clock_high = clock_reg >> 32;
341  *clock_low = clock_reg;
342  *ret_clock_seq = clock_seq;
343  return 0;
344 }
345 
347 {
348  static unsigned char node_id[6];
349  static int has_init = 0;
350  struct uuid uu;
351  __u32 clock_mid;
352 
353  if (!has_init) {
354  if (get_node_id(node_id) <= 0) {
355  get_random_bytes(node_id, 6);
356  /*
357  * Set multicast bit, to prevent conflicts
358  * with IEEE 802 addresses obtained from
359  * network cards
360  */
361  node_id[0] |= 0x80;
362  }
363  has_init = 1;
364  }
365  get_clock(&clock_mid, &uu.time_low, &uu.clock_seq);
366  uu.clock_seq |= 0x8000;
367  uu.time_mid = (__u16) clock_mid;
368  uu.time_hi_and_version = (clock_mid >> 16) | 0x1000;
369  memcpy(uu.node, node_id, 6);
370  uuid_pack(&uu, out);
371 }
372 
374 {
375  uuid_t buf;
376  struct uuid uu;
377 
378  get_random_bytes(buf, sizeof(buf));
379  uuid_unpack(buf, &uu);
380 
381  uu.clock_seq = (uu.clock_seq & 0x3FFF) | 0x8000;
382  uu.time_hi_and_version = (uu.time_hi_and_version & 0x0FFF) | 0x4000;
383  uuid_pack(&uu, out);
384 }
385 
386 /*
387  * This is the generic front-end to uuid_generate_random and
388  * uuid_generate_time. It uses uuid_generate_random only if
389  * /dev/urandom is available, since otherwise we won't have
390  * high-quality randomness.
391  */
393 {
394  if (get_random_fd() >= 0) {
396  }
397  else
398  uuid_generate_time(out);
399 }
400 
401 /*
402  * isnull.c --- Check whether or not the UUID is null
403  *
404  * Copyright (C) 1996, 1997 Theodore Ts'o.
405  *
406  * %Begin-Header%
407  * This file may be redistributed under the terms of the GNU
408  * Library General Public License.
409  * %End-Header%
410  */
411 /* Returns 1 if the uuid is the NULL uuid */
412 int uuid_is_null(const uuid_t uu)
413 {
414  const unsigned char *cp;
415  int i;
416 
417  for (i=0, cp = uu; i < 16; i++)
418  if (*cp++)
419  return 0;
420  return 1;
421 }
422 
423 /*
424  * Internal routine for packing UUID's
425  *
426  * Copyright (C) 1996, 1997 Theodore Ts'o.
427  *
428  * %Begin-Header%
429  * This file may be redistributed under the terms of the GNU
430  * Library General Public License.
431  * %End-Header%
432  */
433 void uuid_pack(const struct uuid *uu, uuid_t ptr)
434 {
435  __u32 tmp;
436  unsigned char *out = ptr;
437 
438  tmp = uu->time_low;
439  out[3] = (unsigned char) tmp;
440  tmp >>= 8;
441  out[2] = (unsigned char) tmp;
442  tmp >>= 8;
443  out[1] = (unsigned char) tmp;
444  tmp >>= 8;
445  out[0] = (unsigned char) tmp;
446 
447  tmp = uu->time_mid;
448  out[5] = (unsigned char) tmp;
449  tmp >>= 8;
450  out[4] = (unsigned char) tmp;
451 
452  tmp = uu->time_hi_and_version;
453  out[7] = (unsigned char) tmp;
454  tmp >>= 8;
455  out[6] = (unsigned char) tmp;
456 
457  tmp = uu->clock_seq;
458  out[9] = (unsigned char) tmp;
459  tmp >>= 8;
460  out[8] = (unsigned char) tmp;
461 
462  memcpy(out+10, uu->node, 6);
463 }
464 
465 /*
466  * parse.c --- UUID parsing
467  *
468  * Copyright (C) 1996, 1997 Theodore Ts'o.
469  *
470  * %Begin-Header%
471  * This file may be redistributed under the terms of the GNU
472  * Library General Public License.
473  * %End-Header%
474  */
475 int uuid_parse(const char *in, uuid_t uu)
476 {
477  struct uuid uuid;
478  int i;
479  const char *cp;
480  char buf[3];
481 
482  if (strlen(in) != 36)
483  return -1;
484  for (i=0, cp = in; i <= 36; i++,cp++) {
485  if ((i == 8) || (i == 13) || (i == 18) ||
486  (i == 23)) {
487  if (*cp == '-')
488  continue;
489  else
490  return -1;
491  }
492  if (i== 36)
493  if (*cp == 0)
494  continue;
495  if (!isxdigit(*cp))
496  return -1;
497  }
498  uuid.time_low = strtoul(in, NULL, 16);
499  uuid.time_mid = strtoul(in+9, NULL, 16);
500  uuid.time_hi_and_version = strtoul(in+14, NULL, 16);
501  uuid.clock_seq = strtoul(in+19, NULL, 16);
502  cp = in+24;
503  buf[2] = 0;
504  for (i=0; i < 6; i++) {
505  buf[0] = *cp++;
506  buf[1] = *cp++;
507  uuid.node[i] = strtoul(buf, NULL, 16);
508  }
509 
510  uuid_pack(&uuid, uu);
511  return 0;
512 }
513 
514 
515 /*
516  * Internal routine for unpacking UUID
517  *
518  * Copyright (C) 1996, 1997 Theodore Ts'o.
519  *
520  * %Begin-Header%
521  * This file may be redistributed under the terms of the GNU
522  * Library General Public License.
523  * %End-Header%
524  */
525 void uuid_unpack(const uuid_t in, struct uuid *uu)
526 {
527  const __u8 *ptr = in;
528  __u32 tmp;
529 
530  tmp = *ptr++;
531  tmp = (tmp << 8) | *ptr++;
532  tmp = (tmp << 8) | *ptr++;
533  tmp = (tmp << 8) | *ptr++;
534  uu->time_low = tmp;
535 
536  tmp = *ptr++;
537  tmp = (tmp << 8) | *ptr++;
538  uu->time_mid = tmp;
539 
540  tmp = *ptr++;
541  tmp = (tmp << 8) | *ptr++;
542  uu->time_hi_and_version = tmp;
543 
544  tmp = *ptr++;
545  tmp = (tmp << 8) | *ptr++;
546  uu->clock_seq = tmp;
547 
548  memcpy(uu->node, ptr, 6);
549 }
550 
551 /*
552  * unparse.c -- convert a UUID to string
553  *
554  * Copyright (C) 1996, 1997 Theodore Ts'o.
555  *
556  * %Begin-Header%
557  * This file may be redistributed under the terms of the GNU
558  * Library General Public License.
559  * %End-Header%
560  */
561 void uuid_unparse(const uuid_t uu, char *out)
562 {
563  struct uuid uuid;
564 
565  uuid_unpack(uu, &uuid);
566  sprintf(out,
567  "%08x-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x",
568  uuid.time_low, uuid.time_mid, uuid.time_hi_and_version,
569  uuid.clock_seq >> 8, uuid.clock_seq & 0xFF,
570  uuid.node[0], uuid.node[1], uuid.node[2],
571  uuid.node[3], uuid.node[4], uuid.node[5]);
572 }
573 
574 /*
575  * uuid_time.c --- Interpret the time field from a uuid. This program
576  * violates the UUID abstraction barrier by reaching into the guts
577  * of a UUID and interpreting it.
578  *
579  * Copyright (C) 1998, 1999 Theodore Ts'o.
580  *
581  * %Begin-Header%
582  * This file may be redistributed under the terms of the GNU
583  * Library General Public License.
584  * %End-Header%
585  */
586 time_t uuid_time(const uuid_t uu, struct timeval *ret_tv)
587 {
588  struct uuid uuid;
589  __u32 high;
590  struct timeval tv;
591  unsigned long long clock_reg;
592 
593  uuid_unpack(uu, &uuid);
594 
595  high = uuid.time_mid | ((uuid.time_hi_and_version & 0xFFF) << 16);
596  clock_reg = uuid.time_low | ((unsigned long long) high << 32);
597 
598  clock_reg -= (((unsigned long long) 0x01B21DD2) << 32) + 0x13814000;
599  tv.tv_sec = clock_reg / 10000000;
600  tv.tv_usec = (clock_reg % 10000000) / 10;
601 
602  if (ret_tv)
603  *ret_tv = tv;
604 
605  return tv.tv_sec;
606 }
607 
608 int uuid_type(const uuid_t uu)
609 {
610  struct uuid uuid;
611 
612  uuid_unpack(uu, &uuid);
613  return ((uuid.time_hi_and_version >> 12) & 0xF);
614 }
615 
616 int uuid_variant(const uuid_t uu)
617 {
618  struct uuid uuid;
619  int var;
620 
621  uuid_unpack(uu, &uuid);
622  var = uuid.clock_seq;
623 
624  if ((var & 0x8000) == 0)
625  return UUID_VARIANT_NCS;
626  if ((var & 0x4000) == 0)
627  return UUID_VARIANT_DCE;
628  if ((var & 0x2000) == 0)
629  return UUID_VARIANT_MICROSOFT;
630  return UUID_VARIANT_OTHER;
631 }
632 
#define MAX_ADJUSTMENT
Definition: gw_uuid.c:302
void uuid_generate_time(uuid_t out)
Definition: gw_uuid.c:346
__u16 clock_seq
Definition: gw_uuid.c:66
int uuid_type(const uuid_t uu)
Definition: gw_uuid.c:608
static int get_clock(__u32 *clock_high, __u32 *clock_low, __u16 *ret_clock_seq)
Definition: gw_uuid.c:304
int uuid_variant(const uuid_t uu)
Definition: gw_uuid.c:616
void uuid_unparse(const uuid_t uu, char *out)
Definition: gw_uuid.c:561
void uuid_generate(uuid_t out)
Definition: gw_uuid.c:392
__u16 time_mid
Definition: gw_uuid.c:64
void uuid_init(void)
Definition: gw_uuid.c:86
__u8 node[6]
Definition: gw_uuid.c:67
static int get_node_id(unsigned char *node_id)
Definition: gw_uuid.c:229
__u16 time_hi_and_version
Definition: gw_uuid.c:65
static void uuid_unpack(const uuid_t in, struct uuid *uu)
Definition: gw_uuid.c:525
int uuid_parse(const char *in, uuid_t uu)
Definition: gw_uuid.c:475
__u32 time_low
Definition: gw_uuid.c:63
Definition: gw_uuid.c:62
#define UUID_VARIANT_DCE
Definition: gw_uuid.h:38
#define UUID_VARIANT_MICROSOFT
Definition: gw_uuid.h:39
static void get_random_bytes(void *buf, int nbytes)
Definition: gw_uuid.c:197
int uuid_is_null(const uuid_t uu)
Definition: gw_uuid.c:412
#define UUID_VARIANT_NCS
Definition: gw_uuid.h:37
void uuid_copy(uuid_t dst, const uuid_t src)
Definition: gw_uuid.c:150
int uuid_compare(const uuid_t uu1, const uuid_t uu2)
Definition: gw_uuid.c:126
void uuid_shutdown(void)
Definition: gw_uuid.c:97
static int get_random_fd(void)
Definition: gw_uuid.c:171
time_t uuid_time(const uuid_t uu, struct timeval *ret_tv)
Definition: gw_uuid.c:586
void uuid_generate_random(uuid_t out)
Definition: gw_uuid.c:373
#define rand()
Definition: protected.h:100
static void uuid_pack(const struct uuid *uu, uuid_t ptr)
Definition: gw_uuid.c:433
#define UUID_VARIANT_OTHER
Definition: gw_uuid.h:40
unsigned char uuid_t[16]
Definition: gw_uuid.h:32
#define UUCMP(u1, u2)
Definition: gw_uuid.c:124
void uuid_clear(uuid_t uu)
Definition: gw_uuid.c:105
See file LICENSE for details about the license agreement for using, modifying, copying or deriving work from this software.