Accept ISO CR.
[rdpsrv] / util.c
1 /* -*- c-basic-offset: 8 -*-
2    rdesktop: A Remote Desktop Protocol client.
3    Entrypoint and utility functions
4    Copyright (C) Matthew Chapman 1999-2004
5
6    This program is free software; you can redistribute it and/or modify
7    it under the terms of the GNU General Public License as published by
8    the Free Software Foundation; either version 2 of the License, or
9    (at your option) any later version.
10
11    This program is distributed in the hope that it will be useful,
12    but WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14    GNU General Public License for more details.
15
16    You should have received a copy of the GNU General Public License
17    along with this program; if not, write to the Free Software
18    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19 */
20
21 #include <stdarg.h>             /* va_list va_start va_end */
22 #include <unistd.h>             /* read close getuid getgid getpid getppid gethostname */
23 #include <fcntl.h>              /* open */
24 #include <pwd.h>                /* getpwuid */
25 #include <termios.h>            /* tcgetattr tcsetattr */
26 #include <sys/stat.h>           /* stat */
27 #include <sys/time.h>           /* gettimeofday */
28 #include <sys/times.h>          /* times */
29 #include <errno.h>
30 #include <X11/Xlib.h>           /* Window */
31 #include "rdesktop.h"
32
33 #ifdef EGD_SOCKET
34 #include <sys/socket.h>         /* socket connect */
35 #include <sys/un.h>             /* sockaddr_un */
36 #endif
37
38 #include <openssl/md5.h>
39
40 #ifdef EGD_SOCKET
41 /* Read 32 random bytes from PRNGD or EGD socket (based on OpenSSL RAND_egd) */
42 static BOOL
43 generate_random_egd(uint8 * buf)
44 {
45         struct sockaddr_un addr;
46         BOOL ret = False;
47         int fd;
48
49         fd = socket(AF_UNIX, SOCK_STREAM, 0);
50         if (fd == -1)
51                 return False;
52
53         addr.sun_family = AF_UNIX;
54         memcpy(addr.sun_path, EGD_SOCKET, sizeof(EGD_SOCKET));
55         if (connect(fd, (struct sockaddr *) &addr, sizeof(addr)) == -1)
56                 goto err;
57
58         /* PRNGD and EGD use a simple communications protocol */
59         buf[0] = 1;             /* Non-blocking (similar to /dev/urandom) */
60         buf[1] = 32;            /* Number of requested random bytes */
61         if (write(fd, buf, 2) != 2)
62                 goto err;
63
64         if ((read(fd, buf, 1) != 1) || (buf[0] == 0))   /* Available? */
65                 goto err;
66
67         if (read(fd, buf, 32) != 32)
68                 goto err;
69
70         ret = True;
71
72       err:
73         close(fd);
74         return ret;
75 }
76 #endif
77
78 /* Generate a 32-byte random for the secure transport code. */
79 void
80 generate_random(uint8 * random)
81 {
82         struct stat st;
83         struct tms tmsbuf;
84         MD5_CTX md5;
85         uint32 *r;
86         int fd, n;
87
88         /* If we have a kernel random device, try that first */
89         if (((fd = open("/dev/urandom", O_RDONLY)) != -1)
90                         || ((fd = open("/dev/random", O_RDONLY)) != -1))
91         {
92                 n = read(fd, random, 32);
93                 close(fd);
94                 if (n == 32)
95                         return;
96         }
97
98 #ifdef EGD_SOCKET
99         /* As a second preference use an EGD */
100         if (generate_random_egd(random))
101                 return;
102 #endif
103
104         /* Otherwise use whatever entropy we can gather - ideas welcome. */
105         r = (uint32 *) random;
106         r[0] = (getpid()) | (getppid() << 16);
107         r[1] = (getuid()) | (getgid() << 16);
108         r[2] = times(&tmsbuf);  /* system uptime (clocks) */
109         gettimeofday((struct timeval *) &r[3], NULL);   /* sec and usec */
110         stat("/tmp", &st);
111         r[5] = st.st_atime;
112         r[6] = st.st_mtime;
113         r[7] = st.st_ctime;
114
115         /* Hash both halves with MD5 to obscure possible patterns */
116         MD5_Init(&md5);
117         MD5_Update(&md5, random, 16);
118         MD5_Final(random, &md5);
119         MD5_Update(&md5, random + 16, 16);
120         MD5_Final(random + 16, &md5);
121 }
122
123 /* malloc; exit if out of memory */
124 void *
125 xmalloc(int size)
126 {
127         void *mem = malloc(size);
128         if (mem == NULL)
129         {
130                 error("xmalloc %d\n", size);
131                 exit(1);
132         }
133         return mem;
134 }
135
136 /* realloc; exit if out of memory */
137 void *
138 xrealloc(void *oldmem, int size)
139 {
140         void *mem = realloc(oldmem, size);
141         if (mem == NULL)
142         {
143                 error("xrealloc %d\n", size);
144                 exit(1);
145         }
146         return mem;
147 }
148
149 /* free */
150 void
151 xfree(void *mem)
152 {
153         free(mem);
154 }
155
156 /* report an error */
157 void
158 error(char *format, ...)
159 {
160         va_list ap;
161
162         fprintf(stderr, "ERROR: ");
163
164         va_start(ap, format);
165         vfprintf(stderr, format, ap);
166         va_end(ap);
167 }
168
169 /* report a warning */
170 void
171 warning(char *format, ...)
172 {
173         va_list ap;
174
175         fprintf(stderr, "WARNING: ");
176
177         va_start(ap, format);
178         vfprintf(stderr, format, ap);
179         va_end(ap);
180 }
181
182 /* report an unimplemented protocol feature */
183 void
184 unimpl(char *format, ...)
185 {
186         va_list ap;
187
188         fprintf(stderr, "NOT IMPLEMENTED: ");
189
190         va_start(ap, format);
191         vfprintf(stderr, format, ap);
192         va_end(ap);
193 }
194
195 /* produce a hex dump */
196 void
197 hexdump(unsigned char *p, int len)
198 {
199         unsigned char *line = p;
200         int i, thisline, offset = 0;
201
202         while (offset < len)
203         {
204                 printf("%04x ", offset);
205                 thisline = len - offset;
206                 if (thisline > 16)
207                         thisline = 16;
208
209                 for (i = 0; i < thisline; i++)
210                         printf("%02x ", line[i]);
211
212                 for (; i < 16; i++)
213                         printf("   ");
214
215                 for (i = 0; i < thisline; i++)
216                         printf("%c", (line[i] >= 0x20 && line[i] < 0x7f) ? line[i] : '.');
217
218                 printf("\n");
219                 offset += thisline;
220                 line += thisline;
221         }
222 }
223