/mandos/trunk

To get this branch, use:
bzr branch http://bzr.recompile.se/loggerhead/mandos/trunk

« back to all changes in this revision

Viewing changes to plugins.d/password-request.c

merge

Show diffs side-by-side

added added

removed removed

Lines of Context:
8
8
 * includes the following functions: "resolve_callback",
9
9
 * "browse_callback", and parts of "main".
10
10
 * 
11
 
 * Everything else is Copyright © 2007-2008 Teddy Hogeborn and Björn
12
 
 * Påhlsson.
 
11
 * Everything else is
 
12
 * Copyright © 2007-2008 Teddy Hogeborn & Björn Påhlsson
13
13
 * 
14
14
 * This program is free software: you can redistribute it and/or
15
15
 * modify it under the terms of the GNU General Public License as
25
25
 * along with this program.  If not, see
26
26
 * <http://www.gnu.org/licenses/>.
27
27
 * 
28
 
 * Contact the authors at <https://www.fukt.bsnet.se/~belorn/> and
29
 
 * <https://www.fukt.bsnet.se/~teddy/>.
 
28
 * Contact the authors at <mandos@fukt.bsnet.se>.
30
29
 */
31
30
 
32
 
#define _FORTIFY_SOURCE 2
33
 
 
 
31
/* Needed by GPGME, specifically gpgme_data_seek() */
34
32
#define _LARGEFILE_SOURCE
35
33
#define _FILE_OFFSET_BITS 64
36
34
 
37
 
#include <stdio.h>
 
35
#define _GNU_SOURCE             /* TEMP_FAILURE_RETRY() */
 
36
 
 
37
#include <stdio.h>              /* fprintf(), stderr, fwrite(), stdout, ferror() */
 
38
#include <stdint.h>             /* uint16_t, uint32_t */
 
39
#include <stddef.h>             /* NULL, size_t, ssize_t */
 
40
#include <stdlib.h>             /* free() */
 
41
#include <stdbool.h>            /* bool, true */
 
42
#include <string.h>             /* memset(), strcmp(), strlen, strerror() */
 
43
#include <sys/ioctl.h>          /* ioctl, ifreq, SIOCGIFFLAGS, IFF_UP,
 
44
                                   SIOCSIFFLAGS */
 
45
#include <sys/types.h>          /* socket(), inet_pton(), sockaddr,
 
46
                                   sockaddr_in6, PF_INET6, SOCK_STREAM, INET6_ADDRSTRLEN */
 
47
#include <sys/socket.h>         /* socket(), struct sockaddr_in6,
 
48
                                   struct in6_addr, inet_pton(),
 
49
                                   connect() */
38
50
#include <assert.h>
39
 
#include <stdlib.h>
 
51
#include <errno.h>              /* perror() */
40
52
#include <time.h>
41
 
#include <net/if.h>             /* if_nametoindex */
42
 
#include <sys/ioctl.h>          // ioctl, ifreq, SIOCGIFFLAGS, IFF_UP, SIOCSIFFLAGS
43
 
#include <net/if.h>             // ioctl, ifreq, SIOCGIFFLAGS, IFF_UP, SIOCSIFFLAGS
 
53
#include <net/if.h>             /* ioctl, ifreq, SIOCGIFFLAGS, IFF_UP,
 
54
                                   SIOCSIFFLAGS, if_indextoname(),
 
55
                                   if_nametoindex(), IF_NAMESIZE */
 
56
#include <unistd.h>             /* close(), SEEK_SET, off_t, write()*/
 
57
#include <netinet/in.h>
 
58
#include <arpa/inet.h>          /* inet_pton(), htons */
 
59
#include <iso646.h>             /* not */
 
60
#include <argp.h>               /* struct argp_option,
 
61
                                   struct argp_state, struct argp,
 
62
                                   argp_parse() */
44
63
 
45
 
#include <avahi-core/core.h>
 
64
/* Avahi */
 
65
#include <avahi-core/core.h>    /* AvahiSimplePoll, AvahiServer,
 
66
                                   AvahiIfIndex */
46
67
#include <avahi-core/lookup.h>
47
 
#include <avahi-core/log.h>
 
68
#include <avahi-core/log.h>     /* AvahiLogLevel */
48
69
#include <avahi-common/simple-watch.h>
49
70
#include <avahi-common/malloc.h>
50
71
#include <avahi-common/error.h>
51
72
 
52
 
//mandos client part
53
 
#include <sys/types.h>          /* socket(), inet_pton() */
54
 
#include <sys/socket.h>         /* socket(), struct sockaddr_in6,
55
 
                                   struct in6_addr, inet_pton() */
56
 
#include <gnutls/gnutls.h>      /* All GnuTLS stuff */
57
 
#include <gnutls/openpgp.h>     /* GnuTLS with openpgp stuff */
58
 
 
59
 
#include <unistd.h>             /* close() */
60
 
#include <netinet/in.h>
61
 
#include <stdbool.h>            /* true */
62
 
#include <string.h>             /* memset */
63
 
#include <arpa/inet.h>          /* inet_pton() */
64
 
#include <iso646.h>             /* not */
65
 
 
66
 
// gpgme
67
 
#include <errno.h>              /* perror() */
68
 
#include <gpgme.h>
69
 
 
70
 
// getopt long
71
 
#include <getopt.h>
 
73
/* GnuTLS */
 
74
#include <gnutls/gnutls.h>      /* gnutls_certificate_credentials_t,
 
75
                                   gnutls_dh_params_t,
 
76
                                   gnutls_strerror(),
 
77
                                   gnutls_global_init(),
 
78
                                   gnutls_global_set_log_level(),
 
79
                                   gnutls_global_set_log_function(),
 
80
                                   gnutls_certificate_allocate_credentials(),
 
81
                                   gnutls_global_deinit(),
 
82
                                   gnutls_dh_params_init(),
 
83
                                   gnutls_dh_params_generate(),
 
84
                                   gnutls_certificate_set_dh_params(),
 
85
                                   gnutls_certificate_free_credentials(),
 
86
                                   gnutls_session_t, gnutls_init(),
 
87
                                   gnutls_priority_set_direct(),
 
88
                                   gnutls_deinit(),
 
89
                                   gnutls_credentials_set(),
 
90
                                   gnutls_certificate_server_set_request(),
 
91
                                   gnutls_dh_set_prime_bits(),
 
92
                                   gnutls_transport_set_ptr(),
 
93
                                   gnutls_transport_ptr_t,
 
94
                                   gnutls_handshake(),
 
95
                                   gnutls_record_recv()
 
96
                                   gnutls_perror(), gnutls_bye(),
 
97
                                   init_gnutls_session(),
 
98
                                   GNUTLS_E_SUCCESS,
 
99
                                   GNUTLS_CRD_CERTIFICATE,
 
100
                                   GNUTLS_CERT_IGNORE,
 
101
                                   GNUTLS_E_INTERRUPTED,
 
102
                                   GNUTLS_E_AGAIN,
 
103
                                   GNUTLS_E_REHANDSHAKE,
 
104
                                   GNUTLS_SHUT_RDWR, */
 
105
#include <gnutls/openpgp.h> /* gnutls_certificate_set_openpgp_key_file(),
 
106
                               GNUTLS_OPENPGP_FMT_BASE64 */
 
107
 
 
108
/* GPGME */
 
109
#include <gpgme.h>              /* gpgme_data_t, gpgme_ctx_t,
 
110
                                   gpgme_error_t, gpgme_engine_info_t,
 
111
                                   gpgme_check_version(),
 
112
                                   gpgme_engine_check_version(),
 
113
                                   gpgme_strsource(),
 
114
                                   gpgme_strerror(),
 
115
                                   gpgme_get_engine_info(),
 
116
                                   gpgme_set_engine_info(),
 
117
                                   gpgme_data_new_from_mem(),
 
118
                                   gpgme_data_new(), gpgme_new(),
 
119
                                   gpgme_op_decrypt(),
 
120
                                   gpgme_decrypt_result_t,
 
121
                                   gpgme_op_decrypt_result(),
 
122
                                   gpgme_recipient_t,
 
123
                                   gpgme_pubkey_algo_name(),
 
124
                                   gpgme_data_seek(),
 
125
                                   gpgme_data_read(),
 
126
                                   gpgme_data_release()
 
127
                                   GPGME_PROTOCOL_OpenPGP,
 
128
                                   GPG_ERR_NO_ERROR,
 
129
                                   GPG_ERR_NO_SECKEY, */
72
130
 
73
131
#define BUFFER_SIZE 256
74
 
#define DH_BITS 1024
75
 
 
76
 
const char *certdir = "/conf/conf.d/cryptkeyreq/";
77
 
const char *certfile = "openpgp-client.txt";
78
 
const char *certkey = "openpgp-client-key.txt";
79
132
 
80
133
bool debug = false;
 
134
static const char *keydir = "/conf/conf.d/mandos";
 
135
static const char mandos_protocol_version[] = "1";
 
136
const char *argp_program_version = "mandosclient 0.9";
 
137
const char *argp_program_bug_address = "<mandos@fukt.bsnet.se>";
81
138
 
 
139
/* Used for passing in values through the Avahi callback functions */
82
140
typedef struct {
83
 
  gnutls_session_t session;
 
141
  AvahiSimplePoll *simple_poll;
 
142
  AvahiServer *server;
84
143
  gnutls_certificate_credentials_t cred;
 
144
  unsigned int dh_bits;
85
145
  gnutls_dh_params_t dh_params;
86
 
} encrypted_session;
87
 
 
88
 
 
89
 
ssize_t pgp_packet_decrypt (char *packet, size_t packet_size,
90
 
                            char **new_packet, const char *homedir){
 
146
  const char *priority;
 
147
} mandos_context;
 
148
 
 
149
/*
 
150
 * Make room in "buffer" for at least BUFFER_SIZE additional bytes.
 
151
 * "buffer_capacity" is how much is currently allocated,
 
152
 * "buffer_length" is how much is already used.
 
153
 */
 
154
size_t adjustbuffer(char **buffer, size_t buffer_length,
 
155
                  size_t buffer_capacity){
 
156
  if (buffer_length + BUFFER_SIZE > buffer_capacity){
 
157
    *buffer = realloc(*buffer, buffer_capacity + BUFFER_SIZE);
 
158
    if (buffer == NULL){
 
159
      return 0;
 
160
    }
 
161
    buffer_capacity += BUFFER_SIZE;
 
162
  }
 
163
  return buffer_capacity;
 
164
}
 
165
 
 
166
/* 
 
167
 * Decrypt OpenPGP data using keyrings in HOMEDIR.
 
168
 * Returns -1 on error
 
169
 */
 
170
static ssize_t pgp_packet_decrypt (const char *cryptotext,
 
171
                                   size_t crypto_size,
 
172
                                   char **plaintext,
 
173
                                   const char *homedir){
91
174
  gpgme_data_t dh_crypto, dh_plain;
92
175
  gpgme_ctx_t ctx;
93
176
  gpgme_error_t rc;
94
177
  ssize_t ret;
95
 
  ssize_t new_packet_capacity = 0;
96
 
  ssize_t new_packet_length = 0;
 
178
  size_t plaintext_capacity = 0;
 
179
  ssize_t plaintext_length = 0;
97
180
  gpgme_engine_info_t engine_info;
98
 
 
 
181
  
99
182
  if (debug){
100
 
    fprintf(stderr, "Trying to decrypt OpenPGP packet\n");
 
183
    fprintf(stderr, "Trying to decrypt OpenPGP data\n");
101
184
  }
102
185
  
103
186
  /* Init GPGME */
109
192
    return -1;
110
193
  }
111
194
  
112
 
  /* Set GPGME home directory */
 
195
  /* Set GPGME home directory for the OpenPGP engine only */
113
196
  rc = gpgme_get_engine_info (&engine_info);
114
197
  if (rc != GPG_ERR_NO_ERROR){
115
198
    fprintf(stderr, "bad gpgme_get_engine_info: %s: %s\n",
125
208
    engine_info = engine_info->next;
126
209
  }
127
210
  if(engine_info == NULL){
128
 
    fprintf(stderr, "Could not set home dir to %s\n", homedir);
 
211
    fprintf(stderr, "Could not set GPGME home dir to %s\n", homedir);
129
212
    return -1;
130
213
  }
131
214
  
132
 
  /* Create new GPGME data buffer from packet buffer */
133
 
  rc = gpgme_data_new_from_mem(&dh_crypto, packet, packet_size, 0);
 
215
  /* Create new GPGME data buffer from memory cryptotext */
 
216
  rc = gpgme_data_new_from_mem(&dh_crypto, cryptotext, crypto_size,
 
217
                               0);
134
218
  if (rc != GPG_ERR_NO_ERROR){
135
219
    fprintf(stderr, "bad gpgme_data_new_from_mem: %s: %s\n",
136
220
            gpgme_strsource(rc), gpgme_strerror(rc));
142
226
  if (rc != GPG_ERR_NO_ERROR){
143
227
    fprintf(stderr, "bad gpgme_data_new: %s: %s\n",
144
228
            gpgme_strsource(rc), gpgme_strerror(rc));
 
229
    gpgme_data_release(dh_crypto);
145
230
    return -1;
146
231
  }
147
232
  
150
235
  if (rc != GPG_ERR_NO_ERROR){
151
236
    fprintf(stderr, "bad gpgme_new: %s: %s\n",
152
237
            gpgme_strsource(rc), gpgme_strerror(rc));
153
 
    return -1;
 
238
    plaintext_length = -1;
 
239
    goto decrypt_end;
154
240
  }
155
241
  
156
 
  /* Decrypt data from the FILE pointer to the plaintext data
157
 
     buffer */
 
242
  /* Decrypt data from the cryptotext data buffer to the plaintext
 
243
     data buffer */
158
244
  rc = gpgme_op_decrypt(ctx, dh_crypto, dh_plain);
159
245
  if (rc != GPG_ERR_NO_ERROR){
160
246
    fprintf(stderr, "bad gpgme_op_decrypt: %s: %s\n",
161
247
            gpgme_strsource(rc), gpgme_strerror(rc));
162
 
    return -1;
 
248
    plaintext_length = -1;
 
249
    goto decrypt_end;
163
250
  }
164
 
 
 
251
  
165
252
  if(debug){
166
 
    fprintf(stderr, "Decryption of OpenPGP packet succeeded\n");
 
253
    fprintf(stderr, "Decryption of OpenPGP data succeeded\n");
167
254
  }
168
 
 
 
255
  
169
256
  if (debug){
170
257
    gpgme_decrypt_result_t result;
171
258
    result = gpgme_op_decrypt_result(ctx);
195
282
    }
196
283
  }
197
284
  
198
 
  /* Delete the GPGME FILE pointer cryptotext data buffer */
199
 
  gpgme_data_release(dh_crypto);
200
 
  
201
285
  /* Seek back to the beginning of the GPGME plaintext data buffer */
202
286
  if (gpgme_data_seek(dh_plain, (off_t) 0, SEEK_SET) == -1){
203
287
    perror("pgpme_data_seek");
 
288
    plaintext_length = -1;
 
289
    goto decrypt_end;
204
290
  }
205
291
  
206
 
  *new_packet = 0;
 
292
  *plaintext = NULL;
207
293
  while(true){
208
 
    if (new_packet_length + BUFFER_SIZE > new_packet_capacity){
209
 
      *new_packet = realloc(*new_packet,
210
 
                            (unsigned int)new_packet_capacity
211
 
                            + BUFFER_SIZE);
212
 
      if (*new_packet == NULL){
213
 
        perror("realloc");
214
 
        return -1;
215
 
      }
216
 
      new_packet_capacity += BUFFER_SIZE;
 
294
    plaintext_capacity = adjustbuffer(plaintext,
 
295
                                      (size_t)plaintext_length,
 
296
                                      plaintext_capacity);
 
297
    if (plaintext_capacity == 0){
 
298
        perror("adjustbuffer");
 
299
        plaintext_length = -1;
 
300
        goto decrypt_end;
217
301
    }
218
302
    
219
 
    ret = gpgme_data_read(dh_plain, *new_packet + new_packet_length,
 
303
    ret = gpgme_data_read(dh_plain, *plaintext + plaintext_length,
220
304
                          BUFFER_SIZE);
221
305
    /* Print the data, if any */
222
306
    if (ret == 0){
 
307
      /* EOF */
223
308
      break;
224
309
    }
225
310
    if(ret < 0){
226
311
      perror("gpgme_data_read");
227
 
      return -1;
 
312
      plaintext_length = -1;
 
313
      goto decrypt_end;
228
314
    }
229
 
    new_packet_length += ret;
 
315
    plaintext_length += ret;
230
316
  }
231
317
 
232
 
  /* FIXME: check characters before printing to screen so to not print
233
 
     terminal control characters */
234
 
  /*   if(debug){ */
235
 
  /*     fprintf(stderr, "decrypted password is: "); */
236
 
  /*     fwrite(*new_packet, 1, new_packet_length, stderr); */
237
 
  /*     fprintf(stderr, "\n"); */
238
 
  /*   } */
 
318
  if(debug){
 
319
    fprintf(stderr, "Decrypted password is: ");
 
320
    for(ssize_t i = 0; i < plaintext_length; i++){
 
321
      fprintf(stderr, "%02hhX ", (*plaintext)[i]);
 
322
    }
 
323
    fprintf(stderr, "\n");
 
324
  }
 
325
  
 
326
 decrypt_end:
 
327
  
 
328
  /* Delete the GPGME cryptotext data buffer */
 
329
  gpgme_data_release(dh_crypto);
239
330
  
240
331
  /* Delete the GPGME plaintext data buffer */
241
332
  gpgme_data_release(dh_plain);
242
 
  return new_packet_length;
 
333
  return plaintext_length;
243
334
}
244
335
 
245
336
static const char * safer_gnutls_strerror (int value) {
249
340
  return ret;
250
341
}
251
342
 
252
 
void debuggnutls(__attribute__((unused)) int level,
253
 
                 const char* string){
254
 
  fprintf(stderr, "%s", string);
 
343
/* GnuTLS log function callback */
 
344
static void debuggnutls(__attribute__((unused)) int level,
 
345
                        const char* string){
 
346
  fprintf(stderr, "GnuTLS: %s", string);
255
347
}
256
348
 
257
 
int initgnutls(encrypted_session *es){
258
 
  const char *err;
 
349
static int init_gnutls_global(mandos_context *mc,
 
350
                              const char *pubkeyfile,
 
351
                              const char *seckeyfile){
259
352
  int ret;
260
353
  
261
354
  if(debug){
264
357
 
265
358
  if ((ret = gnutls_global_init ())
266
359
      != GNUTLS_E_SUCCESS) {
267
 
    fprintf (stderr, "global_init: %s\n", safer_gnutls_strerror(ret));
 
360
    fprintf (stderr, "GnuTLS global_init: %s\n",
 
361
             safer_gnutls_strerror(ret));
268
362
    return -1;
269
363
  }
270
 
 
 
364
  
271
365
  if (debug){
 
366
    /* "Use a log level over 10 to enable all debugging options."
 
367
     * - GnuTLS manual
 
368
     */
272
369
    gnutls_global_set_log_level(11);
273
370
    gnutls_global_set_log_function(debuggnutls);
274
371
  }
275
372
  
276
 
  /* openpgp credentials */
277
 
  if ((ret = gnutls_certificate_allocate_credentials (&es->cred))
 
373
  /* OpenPGP credentials */
 
374
  if ((ret = gnutls_certificate_allocate_credentials (&mc->cred))
278
375
      != GNUTLS_E_SUCCESS) {
279
 
    fprintf (stderr, "memory error: %s\n",
 
376
    fprintf (stderr, "GnuTLS memory error: %s\n",
280
377
             safer_gnutls_strerror(ret));
 
378
    gnutls_global_deinit ();
281
379
    return -1;
282
380
  }
283
381
  
284
382
  if(debug){
285
383
    fprintf(stderr, "Attempting to use OpenPGP certificate %s"
286
 
            " and keyfile %s as GnuTLS credentials\n", certfile,
287
 
            certkey);
 
384
            " and keyfile %s as GnuTLS credentials\n", pubkeyfile,
 
385
            seckeyfile);
288
386
  }
289
387
  
290
388
  ret = gnutls_certificate_set_openpgp_key_file
291
 
    (es->cred, certfile, certkey, GNUTLS_OPENPGP_FMT_BASE64);
 
389
    (mc->cred, pubkeyfile, seckeyfile, GNUTLS_OPENPGP_FMT_BASE64);
292
390
  if (ret != GNUTLS_E_SUCCESS) {
293
 
    fprintf
294
 
      (stderr, "Error[%d] while reading the OpenPGP key pair ('%s',"
295
 
       " '%s')\n",
296
 
       ret, certfile, certkey);
297
 
    fprintf(stdout, "The Error is: %s\n",
 
391
    fprintf(stderr,
 
392
            "Error[%d] while reading the OpenPGP key pair ('%s',"
 
393
            " '%s')\n", ret, pubkeyfile, seckeyfile);
 
394
    fprintf(stdout, "The GnuTLS error is: %s\n",
298
395
            safer_gnutls_strerror(ret));
299
 
    return -1;
300
 
  }
301
 
  
302
 
  //GnuTLS server initialization
303
 
  if ((ret = gnutls_dh_params_init (&es->dh_params))
304
 
      != GNUTLS_E_SUCCESS) {
305
 
    fprintf (stderr, "Error in dh parameter initialization: %s\n",
306
 
             safer_gnutls_strerror(ret));
307
 
    return -1;
308
 
  }
309
 
  
310
 
  if ((ret = gnutls_dh_params_generate2 (es->dh_params, DH_BITS))
311
 
      != GNUTLS_E_SUCCESS) {
312
 
    fprintf (stderr, "Error in prime generation: %s\n",
313
 
             safer_gnutls_strerror(ret));
314
 
    return -1;
315
 
  }
316
 
  
317
 
  gnutls_certificate_set_dh_params (es->cred, es->dh_params);
318
 
  
319
 
  // GnuTLS session creation
320
 
  if ((ret = gnutls_init (&es->session, GNUTLS_SERVER))
321
 
      != GNUTLS_E_SUCCESS){
 
396
    goto globalfail;
 
397
  }
 
398
  
 
399
  /* GnuTLS server initialization */
 
400
  ret = gnutls_dh_params_init(&mc->dh_params);
 
401
  if (ret != GNUTLS_E_SUCCESS) {
 
402
    fprintf (stderr, "Error in GnuTLS DH parameter initialization:"
 
403
             " %s\n", safer_gnutls_strerror(ret));
 
404
    goto globalfail;
 
405
  }
 
406
  ret = gnutls_dh_params_generate2(mc->dh_params, mc->dh_bits);
 
407
  if (ret != GNUTLS_E_SUCCESS) {
 
408
    fprintf (stderr, "Error in GnuTLS prime generation: %s\n",
 
409
             safer_gnutls_strerror(ret));
 
410
    goto globalfail;
 
411
  }
 
412
  
 
413
  gnutls_certificate_set_dh_params(mc->cred, mc->dh_params);
 
414
 
 
415
  return 0;
 
416
 
 
417
 globalfail:
 
418
 
 
419
  gnutls_certificate_free_credentials(mc->cred);
 
420
  gnutls_global_deinit();
 
421
  return -1;
 
422
 
 
423
}
 
424
 
 
425
static int init_gnutls_session(mandos_context *mc,
 
426
                               gnutls_session_t *session){
 
427
  int ret;
 
428
  /* GnuTLS session creation */
 
429
  ret = gnutls_init(session, GNUTLS_SERVER);
 
430
  if (ret != GNUTLS_E_SUCCESS){
322
431
    fprintf(stderr, "Error in GnuTLS session initialization: %s\n",
323
432
            safer_gnutls_strerror(ret));
324
433
  }
325
434
  
326
 
  if ((ret = gnutls_priority_set_direct (es->session, "NORMAL", &err))
327
 
      != GNUTLS_E_SUCCESS) {
328
 
    fprintf(stderr, "Syntax error at: %s\n", err);
329
 
    fprintf(stderr, "GnuTLS error: %s\n",
330
 
            safer_gnutls_strerror(ret));
331
 
    return -1;
 
435
  {
 
436
    const char *err;
 
437
    ret = gnutls_priority_set_direct(*session, mc->priority, &err);
 
438
    if (ret != GNUTLS_E_SUCCESS) {
 
439
      fprintf(stderr, "Syntax error at: %s\n", err);
 
440
      fprintf(stderr, "GnuTLS error: %s\n",
 
441
              safer_gnutls_strerror(ret));
 
442
      gnutls_deinit (*session);
 
443
      return -1;
 
444
    }
332
445
  }
333
446
  
334
 
  if ((ret = gnutls_credentials_set
335
 
       (es->session, GNUTLS_CRD_CERTIFICATE, es->cred))
336
 
      != GNUTLS_E_SUCCESS) {
337
 
    fprintf(stderr, "Error setting a credentials set: %s\n",
 
447
  ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,
 
448
                               mc->cred);
 
449
  if (ret != GNUTLS_E_SUCCESS) {
 
450
    fprintf(stderr, "Error setting GnuTLS credentials: %s\n",
338
451
            safer_gnutls_strerror(ret));
 
452
    gnutls_deinit (*session);
339
453
    return -1;
340
454
  }
341
455
  
342
456
  /* ignore client certificate if any. */
343
 
  gnutls_certificate_server_set_request (es->session,
 
457
  gnutls_certificate_server_set_request (*session,
344
458
                                         GNUTLS_CERT_IGNORE);
345
459
  
346
 
  gnutls_dh_set_prime_bits (es->session, DH_BITS);
 
460
  gnutls_dh_set_prime_bits (*session, mc->dh_bits);
347
461
  
348
462
  return 0;
349
463
}
350
464
 
351
 
void empty_log(__attribute__((unused)) AvahiLogLevel level,
352
 
               __attribute__((unused)) const char *txt){}
 
465
/* Avahi log function callback */
 
466
static void empty_log(__attribute__((unused)) AvahiLogLevel level,
 
467
                      __attribute__((unused)) const char *txt){}
353
468
 
354
 
int start_mandos_communication(const char *ip, uint16_t port,
355
 
                               unsigned int if_index){
 
469
/* Called when a Mandos server is found */
 
470
static int start_mandos_communication(const char *ip, uint16_t port,
 
471
                                      AvahiIfIndex if_index,
 
472
                                      mandos_context *mc){
356
473
  int ret, tcp_sd;
357
 
  struct sockaddr_in6 to;
358
 
  encrypted_session es;
 
474
  union { struct sockaddr in; struct sockaddr_in6 in6; } to;
359
475
  char *buffer = NULL;
360
476
  char *decrypted_buffer;
361
477
  size_t buffer_length = 0;
362
478
  size_t buffer_capacity = 0;
363
479
  ssize_t decrypted_buffer_size;
364
 
  size_t written = 0;
 
480
  size_t written;
365
481
  int retval = 0;
366
482
  char interface[IF_NAMESIZE];
 
483
  gnutls_session_t session;
 
484
  
 
485
  ret = init_gnutls_session (mc, &session);
 
486
  if (ret != 0){
 
487
    return -1;
 
488
  }
367
489
  
368
490
  if(debug){
369
 
    fprintf(stderr, "Setting up a tcp connection to %s\n", ip);
 
491
    fprintf(stderr, "Setting up a tcp connection to %s, port %d\n",
 
492
            ip, port);
370
493
  }
371
494
  
372
495
  tcp_sd = socket(PF_INET6, SOCK_STREAM, 0);
376
499
  }
377
500
 
378
501
  if(debug){
379
 
    if(if_indextoname(if_index, interface) == NULL){
380
 
      if(debug){
381
 
        perror("if_indextoname");
382
 
      }
 
502
    if(if_indextoname((unsigned int)if_index, interface) == NULL){
 
503
      perror("if_indextoname");
383
504
      return -1;
384
505
    }
385
 
    
386
506
    fprintf(stderr, "Binding to interface %s\n", interface);
387
507
  }
388
508
  
389
509
  memset(&to,0,sizeof(to));     /* Spurious warning */
390
 
  to.sin6_family = AF_INET6;
391
 
  ret = inet_pton(AF_INET6, ip, &to.sin6_addr);
 
510
  to.in6.sin6_family = AF_INET6;
 
511
  /* It would be nice to have a way to detect if we were passed an
 
512
     IPv4 address here.   Now we assume an IPv6 address. */
 
513
  ret = inet_pton(AF_INET6, ip, &to.in6.sin6_addr);
392
514
  if (ret < 0 ){
393
515
    perror("inet_pton");
394
516
    return -1;
395
 
  }  
 
517
  }
396
518
  if(ret == 0){
397
519
    fprintf(stderr, "Bad address: %s\n", ip);
398
520
    return -1;
399
521
  }
400
 
  to.sin6_port = htons(port);   /* Spurious warning */
 
522
  to.in6.sin6_port = htons(port);       /* Spurious warning */
401
523
  
402
 
  to.sin6_scope_id = (uint32_t)if_index;
 
524
  to.in6.sin6_scope_id = (uint32_t)if_index;
403
525
  
404
526
  if(debug){
405
 
    fprintf(stderr, "Connection to: %s\n", ip);
 
527
    fprintf(stderr, "Connection to: %s, port %d\n", ip, port);
 
528
    char addrstr[INET6_ADDRSTRLEN] = "";
 
529
    if(inet_ntop(to.in6.sin6_family, &(to.in6.sin6_addr), addrstr,
 
530
                 sizeof(addrstr)) == NULL){
 
531
      perror("inet_ntop");
 
532
    } else {
 
533
      if(strcmp(addrstr, ip) != 0){
 
534
        fprintf(stderr, "Canonical address form: %s\n", addrstr);
 
535
      }
 
536
    }
406
537
  }
407
538
  
408
 
  ret = connect(tcp_sd, (struct sockaddr *) &to, sizeof(to));
 
539
  ret = connect(tcp_sd, &to.in, sizeof(to));
409
540
  if (ret < 0){
410
541
    perror("connect");
411
542
    return -1;
412
543
  }
413
 
  
414
 
  ret = initgnutls (&es);
415
 
  if (ret != 0){
416
 
    retval = -1;
417
 
    return -1;
 
544
 
 
545
  const char *out = mandos_protocol_version;
 
546
  written = 0;
 
547
  while (true){
 
548
    size_t out_size = strlen(out);
 
549
    ret = TEMP_FAILURE_RETRY(write(tcp_sd, out + written,
 
550
                                   out_size - written));
 
551
    if (ret == -1){
 
552
      perror("write");
 
553
      retval = -1;
 
554
      goto mandos_end;
 
555
    }
 
556
    written += (size_t)ret;
 
557
    if(written < out_size){
 
558
      continue;
 
559
    } else {
 
560
      if (out == mandos_protocol_version){
 
561
        written = 0;
 
562
        out = "\r\n";
 
563
      } else {
 
564
        break;
 
565
      }
 
566
    }
418
567
  }
419
 
  
420
 
  gnutls_transport_set_ptr (es.session,
421
 
                            (gnutls_transport_ptr_t) tcp_sd);
422
 
  
 
568
 
423
569
  if(debug){
424
570
    fprintf(stderr, "Establishing TLS session with %s\n", ip);
425
571
  }
426
572
  
427
 
  ret = gnutls_handshake (es.session);
 
573
  gnutls_transport_set_ptr (session, (gnutls_transport_ptr_t) tcp_sd);
 
574
  
 
575
  ret = gnutls_handshake (session);
428
576
  
429
577
  if (ret != GNUTLS_E_SUCCESS){
430
578
    if(debug){
431
 
      fprintf(stderr, "\n*** Handshake failed ***\n");
 
579
      fprintf(stderr, "*** GnuTLS Handshake failed ***\n");
432
580
      gnutls_perror (ret);
433
581
    }
434
582
    retval = -1;
435
 
    goto exit;
 
583
    goto mandos_end;
436
584
  }
437
585
  
438
 
  //Retrieve OpenPGP packet that contains the wanted password
 
586
  /* Read OpenPGP packet that contains the wanted password */
439
587
  
440
588
  if(debug){
441
589
    fprintf(stderr, "Retrieving pgp encrypted password from %s\n",
443
591
  }
444
592
 
445
593
  while(true){
446
 
    if (buffer_length + BUFFER_SIZE > buffer_capacity){
447
 
      buffer = realloc(buffer, buffer_capacity + BUFFER_SIZE);
448
 
      if (buffer == NULL){
449
 
        perror("realloc");
450
 
        goto exit;
451
 
      }
452
 
      buffer_capacity += BUFFER_SIZE;
 
594
    buffer_capacity = adjustbuffer(&buffer, buffer_length,
 
595
                                   buffer_capacity);
 
596
    if (buffer_capacity == 0){
 
597
      perror("adjustbuffer");
 
598
      retval = -1;
 
599
      goto mandos_end;
453
600
    }
454
601
    
455
 
    ret = gnutls_record_recv
456
 
      (es.session, buffer+buffer_length, BUFFER_SIZE);
 
602
    ret = gnutls_record_recv(session, buffer+buffer_length,
 
603
                             BUFFER_SIZE);
457
604
    if (ret == 0){
458
605
      break;
459
606
    }
463
610
      case GNUTLS_E_AGAIN:
464
611
        break;
465
612
      case GNUTLS_E_REHANDSHAKE:
466
 
        ret = gnutls_handshake (es.session);
 
613
        ret = gnutls_handshake (session);
467
614
        if (ret < 0){
468
 
          fprintf(stderr, "\n*** Handshake failed ***\n");
 
615
          fprintf(stderr, "*** GnuTLS Re-handshake failed ***\n");
469
616
          gnutls_perror (ret);
470
617
          retval = -1;
471
 
          goto exit;
 
618
          goto mandos_end;
472
619
        }
473
620
        break;
474
621
      default:
475
622
        fprintf(stderr, "Unknown error while reading data from"
476
 
                " encrypted session with mandos server\n");
 
623
                " encrypted session with Mandos server\n");
477
624
        retval = -1;
478
 
        gnutls_bye (es.session, GNUTLS_SHUT_RDWR);
479
 
        goto exit;
 
625
        gnutls_bye (session, GNUTLS_SHUT_RDWR);
 
626
        goto mandos_end;
480
627
      }
481
628
    } else {
482
629
      buffer_length += (size_t) ret;
483
630
    }
484
631
  }
485
632
  
 
633
  if(debug){
 
634
    fprintf(stderr, "Closing TLS session\n");
 
635
  }
 
636
  
 
637
  gnutls_bye (session, GNUTLS_SHUT_RDWR);
 
638
  
486
639
  if (buffer_length > 0){
487
640
    decrypted_buffer_size = pgp_packet_decrypt(buffer,
488
641
                                               buffer_length,
489
642
                                               &decrypted_buffer,
490
 
                                               certdir);
 
643
                                               keydir);
491
644
    if (decrypted_buffer_size >= 0){
492
 
      while(written < (size_t)decrypted_buffer_size){
 
645
      written = 0;
 
646
      while(written < (size_t) decrypted_buffer_size){
493
647
        ret = (int)fwrite (decrypted_buffer + written, 1,
494
648
                           (size_t)decrypted_buffer_size - written,
495
649
                           stdout);
508
662
      retval = -1;
509
663
    }
510
664
  }
511
 
 
512
 
  //shutdown procedure
513
 
 
514
 
  if(debug){
515
 
    fprintf(stderr, "Closing TLS session\n");
516
 
  }
517
 
 
 
665
  
 
666
  /* Shutdown procedure */
 
667
  
 
668
 mandos_end:
518
669
  free(buffer);
519
 
  gnutls_bye (es.session, GNUTLS_SHUT_RDWR);
520
 
 exit:
521
670
  close(tcp_sd);
522
 
  gnutls_deinit (es.session);
523
 
  gnutls_certificate_free_credentials (es.cred);
524
 
  gnutls_global_deinit ();
 
671
  gnutls_deinit (session);
525
672
  return retval;
526
673
}
527
674
 
528
 
static AvahiSimplePoll *simple_poll = NULL;
529
 
static AvahiServer *server = NULL;
530
 
 
531
 
static void resolve_callback(
532
 
    AvahiSServiceResolver *r,
533
 
    AvahiIfIndex interface,
534
 
    AVAHI_GCC_UNUSED AvahiProtocol protocol,
535
 
    AvahiResolverEvent event,
536
 
    const char *name,
537
 
    const char *type,
538
 
    const char *domain,
539
 
    const char *host_name,
540
 
    const AvahiAddress *address,
541
 
    uint16_t port,
542
 
    AVAHI_GCC_UNUSED AvahiStringList *txt,
543
 
    AVAHI_GCC_UNUSED AvahiLookupResultFlags flags,
544
 
    AVAHI_GCC_UNUSED void* userdata) {
545
 
    
 
675
static void resolve_callback(AvahiSServiceResolver *r,
 
676
                             AvahiIfIndex interface,
 
677
                             AVAHI_GCC_UNUSED AvahiProtocol protocol,
 
678
                             AvahiResolverEvent event,
 
679
                             const char *name,
 
680
                             const char *type,
 
681
                             const char *domain,
 
682
                             const char *host_name,
 
683
                             const AvahiAddress *address,
 
684
                             uint16_t port,
 
685
                             AVAHI_GCC_UNUSED AvahiStringList *txt,
 
686
                             AVAHI_GCC_UNUSED AvahiLookupResultFlags
 
687
                             flags,
 
688
                             void* userdata) {
 
689
  mandos_context *mc = userdata;
546
690
  assert(r);                    /* Spurious warning */
547
691
  
548
692
  /* Called whenever a service has been resolved successfully or
551
695
  switch (event) {
552
696
  default:
553
697
  case AVAHI_RESOLVER_FAILURE:
554
 
    fprintf(stderr, "(Resolver) Failed to resolve service '%s' of"
555
 
            " type '%s' in domain '%s': %s\n", name, type, domain,
556
 
            avahi_strerror(avahi_server_errno(server)));
 
698
    fprintf(stderr, "(Avahi Resolver) Failed to resolve service '%s'"
 
699
            " of type '%s' in domain '%s': %s\n", name, type, domain,
 
700
            avahi_strerror(avahi_server_errno(mc->server)));
557
701
    break;
558
702
    
559
703
  case AVAHI_RESOLVER_FOUND:
561
705
      char ip[AVAHI_ADDRESS_STR_MAX];
562
706
      avahi_address_snprint(ip, sizeof(ip), address);
563
707
      if(debug){
564
 
        fprintf(stderr, "Mandos server \"%s\" found on %s (%s) on"
565
 
                " port %d\n", name, host_name, ip, port);
 
708
        fprintf(stderr, "Mandos server \"%s\" found on %s (%s, %d) on"
 
709
                " port %d\n", name, host_name, ip, interface, port);
566
710
      }
567
 
      int ret = start_mandos_communication(ip, port,
568
 
                                           (unsigned int) interface);
 
711
      int ret = start_mandos_communication(ip, port, interface, mc);
569
712
      if (ret == 0){
570
713
        exit(EXIT_SUCCESS);
571
714
      }
574
717
  avahi_s_service_resolver_free(r);
575
718
}
576
719
 
577
 
static void browse_callback(
578
 
    AvahiSServiceBrowser *b,
579
 
    AvahiIfIndex interface,
580
 
    AvahiProtocol protocol,
581
 
    AvahiBrowserEvent event,
582
 
    const char *name,
583
 
    const char *type,
584
 
    const char *domain,
585
 
    AVAHI_GCC_UNUSED AvahiLookupResultFlags flags,
586
 
    void* userdata) {
587
 
    
588
 
    AvahiServer *s = userdata;
589
 
    assert(b);                  /* Spurious warning */
590
 
    
591
 
    /* Called whenever a new services becomes available on the LAN or
592
 
       is removed from the LAN */
593
 
    
594
 
    switch (event) {
595
 
    default:
596
 
    case AVAHI_BROWSER_FAILURE:
597
 
      
598
 
      fprintf(stderr, "(Browser) %s\n",
599
 
              avahi_strerror(avahi_server_errno(server)));
600
 
      avahi_simple_poll_quit(simple_poll);
601
 
      return;
602
 
      
603
 
    case AVAHI_BROWSER_NEW:
604
 
      /* We ignore the returned resolver object. In the callback
605
 
         function we free it. If the server is terminated before
606
 
         the callback function is called the server will free
607
 
         the resolver for us. */
608
 
      
609
 
      if (!(avahi_s_service_resolver_new(s, interface, protocol, name,
610
 
                                         type, domain,
611
 
                                         AVAHI_PROTO_INET6, 0,
612
 
                                         resolve_callback, s)))
613
 
        fprintf(stderr, "Failed to resolve service '%s': %s\n", name,
614
 
                avahi_strerror(avahi_server_errno(s)));
615
 
      break;
616
 
      
617
 
    case AVAHI_BROWSER_REMOVE:
618
 
      break;
619
 
      
620
 
    case AVAHI_BROWSER_ALL_FOR_NOW:
621
 
    case AVAHI_BROWSER_CACHE_EXHAUSTED:
622
 
      break;
 
720
static void browse_callback( AvahiSServiceBrowser *b,
 
721
                             AvahiIfIndex interface,
 
722
                             AvahiProtocol protocol,
 
723
                             AvahiBrowserEvent event,
 
724
                             const char *name,
 
725
                             const char *type,
 
726
                             const char *domain,
 
727
                             AVAHI_GCC_UNUSED AvahiLookupResultFlags
 
728
                             flags,
 
729
                             void* userdata) {
 
730
  mandos_context *mc = userdata;
 
731
  assert(b);                    /* Spurious warning */
 
732
  
 
733
  /* Called whenever a new services becomes available on the LAN or
 
734
     is removed from the LAN */
 
735
  
 
736
  switch (event) {
 
737
  default:
 
738
  case AVAHI_BROWSER_FAILURE:
 
739
    
 
740
    fprintf(stderr, "(Avahi browser) %s\n",
 
741
            avahi_strerror(avahi_server_errno(mc->server)));
 
742
    avahi_simple_poll_quit(mc->simple_poll);
 
743
    return;
 
744
    
 
745
  case AVAHI_BROWSER_NEW:
 
746
    /* We ignore the returned Avahi resolver object. In the callback
 
747
       function we free it. If the Avahi server is terminated before
 
748
       the callback function is called the Avahi server will free the
 
749
       resolver for us. */
 
750
    
 
751
    if (!(avahi_s_service_resolver_new(mc->server, interface,
 
752
                                       protocol, name, type, domain,
 
753
                                       AVAHI_PROTO_INET6, 0,
 
754
                                       resolve_callback, mc)))
 
755
      fprintf(stderr, "Avahi: Failed to resolve service '%s': %s\n",
 
756
              name, avahi_strerror(avahi_server_errno(mc->server)));
 
757
    break;
 
758
    
 
759
  case AVAHI_BROWSER_REMOVE:
 
760
    break;
 
761
    
 
762
  case AVAHI_BROWSER_ALL_FOR_NOW:
 
763
  case AVAHI_BROWSER_CACHE_EXHAUSTED:
 
764
    if(debug){
 
765
      fprintf(stderr, "No Mandos server found, still searching...\n");
623
766
    }
 
767
    break;
 
768
  }
624
769
}
625
770
 
626
 
/* combinds file name and path and returns the malloced new string. som sane checks could/should be added */
627
 
const char *combinepath(const char *first, const char *second){
628
 
  char *tmp;
629
 
  tmp = malloc(strlen(first) + strlen(second) + 2);
 
771
/* Combines file name and path and returns the malloced new
 
772
   string. some sane checks could/should be added */
 
773
static const char *combinepath(const char *first, const char *second){
 
774
  size_t f_len = strlen(first);
 
775
  size_t s_len = strlen(second);
 
776
  char *tmp = malloc(f_len + s_len + 2);
630
777
  if (tmp == NULL){
631
 
    perror("malloc");
632
778
    return NULL;
633
779
  }
634
 
  strcpy(tmp, first);
635
 
  if (first[0] != '\0' and first[strlen(first) - 1] != '/'){
636
 
    strcat(tmp, "/");
637
 
  }
638
 
  strcat(tmp, second);
 
780
  if(f_len > 0){
 
781
    memcpy(tmp, first, f_len);  /* Spurious warning */
 
782
  }
 
783
  tmp[f_len] = '/';
 
784
  if(s_len > 0){
 
785
    memcpy(tmp + f_len + 1, second, s_len); /* Spurious warning */
 
786
  }
 
787
  tmp[f_len + 1 + s_len] = '\0';
639
788
  return tmp;
640
789
}
641
790
 
642
791
 
643
 
int main(AVAHI_GCC_UNUSED int argc, AVAHI_GCC_UNUSED char*argv[]) {
644
 
    AvahiServerConfig config;
 
792
int main(int argc, char *argv[]){
645
793
    AvahiSServiceBrowser *sb = NULL;
646
794
    int error;
647
795
    int ret;
648
 
    int returncode = EXIT_SUCCESS;
 
796
    int exitcode = EXIT_SUCCESS;
649
797
    const char *interface = "eth0";
650
798
    struct ifreq network;
651
799
    int sd;
652
 
    
653
 
    while (true){
654
 
      static struct option long_options[] = {
655
 
        {"debug", no_argument, (int *)&debug, 1},
656
 
        {"interface", required_argument, 0, 'i'},
657
 
        {"certdir", required_argument, 0, 'd'},
658
 
        {"certkey", required_argument, 0, 'c'},
659
 
        {"certfile", required_argument, 0, 'k'},
660
 
        {0, 0, 0, 0} };
661
 
      
662
 
      int option_index = 0;
663
 
      ret = getopt_long (argc, argv, "i:", long_options,
664
 
                         &option_index);
665
 
      
666
 
      if (ret == -1){
667
 
        break;
668
 
      }
669
 
      
670
 
      switch(ret){
671
 
      case 0:
672
 
        break;
673
 
      case 'i':
674
 
        interface = optarg;
675
 
        break;
676
 
      case 'd':
677
 
        certdir = optarg;
678
 
        break;
679
 
      case 'c':
680
 
        certfile = optarg;
681
 
        break;
682
 
      case 'k':
683
 
        certkey = optarg;
684
 
        break;
685
 
      default:
686
 
        exit(EXIT_FAILURE);
687
 
      }
688
 
    }
689
 
 
690
 
    certfile = combinepath(certdir, certfile);
691
 
    if (certfile == NULL){
692
 
      returncode = EXIT_FAILURE;
693
 
      goto exit;
694
 
    }
695
 
    
696
 
    certkey = combinepath(certdir, certkey);
697
 
    if (certkey == NULL){
698
 
      returncode = EXIT_FAILURE;
699
 
      goto exit;
700
 
    }
701
 
 
702
 
    sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
703
 
    if(sd < 0) {
704
 
      perror("socket");
705
 
      returncode = EXIT_FAILURE;
706
 
      goto exit;
707
 
    }
708
 
    strcpy(network.ifr_name, interface);    
709
 
    ret = ioctl(sd, SIOCGIFFLAGS, &network);
710
 
    if(ret == -1){
711
 
      
712
 
      perror("ioctl SIOCGIFFLAGS");
713
 
      returncode = EXIT_FAILURE;
714
 
      goto exit;
715
 
    }
716
 
    if((network.ifr_flags & IFF_UP) == 0){
717
 
      network.ifr_flags |= IFF_UP;
718
 
      ret = ioctl(sd, SIOCSIFFLAGS, &network);
 
800
    uid_t uid;
 
801
    gid_t gid;
 
802
    char *connect_to = NULL;
 
803
    AvahiIfIndex if_index = AVAHI_IF_UNSPEC;
 
804
    const char *pubkeyfile = "pubkey.txt";
 
805
    const char *seckeyfile = "seckey.txt";
 
806
    mandos_context mc = { .simple_poll = NULL, .server = NULL,
 
807
                          .dh_bits = 1024, .priority = "SECURE256"};
 
808
    bool gnutls_initalized = false;
 
809
    
 
810
    {
 
811
      struct argp_option options[] = {
 
812
        { .name = "debug", .key = 128,
 
813
          .doc = "Debug mode", .group = 3 },
 
814
        { .name = "connect", .key = 'c',
 
815
          .arg = "IP",
 
816
          .doc = "Connect directly to a sepcified mandos server",
 
817
          .group = 1 },
 
818
        { .name = "interface", .key = 'i',
 
819
          .arg = "INTERFACE",
 
820
          .doc = "Interface that Avahi will conntect through",
 
821
          .group = 1 },
 
822
        { .name = "keydir", .key = 'd',
 
823
          .arg = "KEYDIR",
 
824
          .doc = "Directory where the openpgp keyring is",
 
825
          .group = 1 },
 
826
        { .name = "seckey", .key = 's',
 
827
          .arg = "SECKEY",
 
828
          .doc = "Secret openpgp key for gnutls authentication",
 
829
          .group = 1 },
 
830
        { .name = "pubkey", .key = 'p',
 
831
          .arg = "PUBKEY",
 
832
          .doc = "Public openpgp key for gnutls authentication",
 
833
          .group = 2 },
 
834
        { .name = "dh-bits", .key = 129,
 
835
          .arg = "BITS",
 
836
          .doc = "dh-bits to use in gnutls communication",
 
837
          .group = 2 },
 
838
        { .name = "priority", .key = 130,
 
839
          .arg = "PRIORITY",
 
840
          .doc = "GNUTLS priority", .group = 1 },
 
841
        { .name = NULL }
 
842
      };
 
843
 
 
844
      
 
845
      error_t parse_opt (int key, char *arg,
 
846
                         struct argp_state *state) {
 
847
        /* Get the INPUT argument from `argp_parse', which we know is
 
848
           a pointer to our plugin list pointer. */
 
849
        switch (key) {
 
850
        case 128:
 
851
          debug = true;
 
852
          break;
 
853
        case 'c':
 
854
          connect_to = arg;
 
855
          break;
 
856
        case 'i':
 
857
          interface = arg;
 
858
          break;
 
859
        case 'd':
 
860
          keydir = arg;
 
861
          break;
 
862
        case 's':
 
863
          seckeyfile = arg;
 
864
          break;
 
865
        case 'p':
 
866
          pubkeyfile = arg;
 
867
          break;
 
868
        case 129:
 
869
          errno = 0;
 
870
          mc.dh_bits = (unsigned int) strtol(arg, NULL, 10);
 
871
          if (errno){
 
872
            perror("strtol");
 
873
            exit(EXIT_FAILURE);
 
874
          }
 
875
          break;
 
876
        case 130:
 
877
          mc.priority = arg;
 
878
          break;
 
879
        case ARGP_KEY_ARG:
 
880
          argp_usage (state);
 
881
          break;
 
882
          case ARGP_KEY_END:
 
883
            break;
 
884
        default:
 
885
          return ARGP_ERR_UNKNOWN;
 
886
        }
 
887
        return 0;
 
888
      }
 
889
 
 
890
      struct argp argp = { .options = options, .parser = parse_opt,
 
891
                           .args_doc = "",
 
892
                           .doc = "Mandos client -- Get and decrypt"
 
893
                           " passwords from mandos server" };
 
894
      argp_parse (&argp, argc, argv, 0, 0, NULL);
 
895
    }
 
896
      
 
897
    pubkeyfile = combinepath(keydir, pubkeyfile);
 
898
    if (pubkeyfile == NULL){
 
899
      perror("combinepath");
 
900
      exitcode = EXIT_FAILURE;
 
901
      goto end;
 
902
    }
 
903
    
 
904
    seckeyfile = combinepath(keydir, seckeyfile);
 
905
    if (seckeyfile == NULL){
 
906
      perror("combinepath");
 
907
      goto end;
 
908
    }
 
909
 
 
910
    ret = init_gnutls_global(&mc, pubkeyfile, seckeyfile);
 
911
    if (ret == -1){
 
912
      fprintf(stderr, "init_gnutls_global\n");
 
913
      goto end;
 
914
    } else {
 
915
      gnutls_initalized = true;
 
916
    }
 
917
 
 
918
    uid = getuid();
 
919
    gid = getgid();
 
920
 
 
921
    ret = setuid(uid);
 
922
    if (ret == -1){
 
923
      perror("setuid");
 
924
    }
 
925
    
 
926
    setgid(gid);
 
927
    if (ret == -1){
 
928
      perror("setgid");
 
929
    }
 
930
    
 
931
    if_index = (AvahiIfIndex) if_nametoindex(interface);
 
932
    if(if_index == 0){
 
933
      fprintf(stderr, "No such interface: \"%s\"\n", interface);
 
934
      exit(EXIT_FAILURE);
 
935
    }
 
936
    
 
937
    if(connect_to != NULL){
 
938
      /* Connect directly, do not use Zeroconf */
 
939
      /* (Mainly meant for debugging) */
 
940
      char *address = strrchr(connect_to, ':');
 
941
      if(address == NULL){
 
942
        fprintf(stderr, "No colon in address\n");
 
943
        exitcode = EXIT_FAILURE;
 
944
        goto end;
 
945
      }
 
946
      errno = 0;
 
947
      uint16_t port = (uint16_t) strtol(address+1, NULL, 10);
 
948
      if(errno){
 
949
        perror("Bad port number");
 
950
        exitcode = EXIT_FAILURE;
 
951
        goto end;
 
952
      }
 
953
      *address = '\0';
 
954
      address = connect_to;
 
955
      ret = start_mandos_communication(address, port, if_index, &mc);
 
956
      if(ret < 0){
 
957
        exitcode = EXIT_FAILURE;
 
958
      } else {
 
959
        exitcode = EXIT_SUCCESS;
 
960
      }
 
961
      goto end;
 
962
    }
 
963
    
 
964
    /* If the interface is down, bring it up */
 
965
    {
 
966
      sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
 
967
      if(sd < 0) {
 
968
        perror("socket");
 
969
        exitcode = EXIT_FAILURE;
 
970
        goto end;
 
971
      }
 
972
      strcpy(network.ifr_name, interface); /* Spurious warning */
 
973
      ret = ioctl(sd, SIOCGIFFLAGS, &network);
719
974
      if(ret == -1){
720
 
        perror("ioctl SIOCSIFFLAGS");
721
 
        returncode = EXIT_FAILURE;
722
 
        goto exit;
723
 
      }
 
975
        perror("ioctl SIOCGIFFLAGS");
 
976
        exitcode = EXIT_FAILURE;
 
977
        goto end;
 
978
      }
 
979
      if((network.ifr_flags & IFF_UP) == 0){
 
980
        network.ifr_flags |= IFF_UP;
 
981
        ret = ioctl(sd, SIOCSIFFLAGS, &network);
 
982
        if(ret == -1){
 
983
          perror("ioctl SIOCSIFFLAGS");
 
984
          exitcode = EXIT_FAILURE;
 
985
          goto end;
 
986
        }
 
987
      }
 
988
      close(sd);
724
989
    }
725
 
    close(sd);
726
990
    
727
991
    if (not debug){
728
992
      avahi_set_log_function(empty_log);
729
993
    }
730
994
    
731
 
    /* Initialize the psuedo-RNG */
 
995
    /* Initialize the pseudo-RNG for Avahi */
732
996
    srand((unsigned int) time(NULL));
733
 
 
734
 
    /* Allocate main loop object */
735
 
    if (!(simple_poll = avahi_simple_poll_new())) {
736
 
        fprintf(stderr, "Failed to create simple poll object.\n");
737
 
        returncode = EXIT_FAILURE;      
738
 
        goto exit;
739
 
    }
740
 
 
741
 
    /* Do not publish any local records */
742
 
    avahi_server_config_init(&config);
743
 
    config.publish_hinfo = 0;
744
 
    config.publish_addresses = 0;
745
 
    config.publish_workstation = 0;
746
 
    config.publish_domain = 0;
747
 
 
748
 
    /* Allocate a new server */
749
 
    server = avahi_server_new(avahi_simple_poll_get(simple_poll),
750
 
                              &config, NULL, NULL, &error);
751
 
 
752
 
    /* Free the configuration data */
753
 
    avahi_server_config_free(&config);
754
 
 
755
 
    /* Check if creating the server object succeeded */
756
 
    if (!server) {
757
 
        fprintf(stderr, "Failed to create server: %s\n",
 
997
    
 
998
    /* Allocate main Avahi loop object */
 
999
    mc.simple_poll = avahi_simple_poll_new();
 
1000
    if (mc.simple_poll == NULL) {
 
1001
        fprintf(stderr, "Avahi: Failed to create simple poll"
 
1002
                " object.\n");
 
1003
        exitcode = EXIT_FAILURE;
 
1004
        goto end;
 
1005
    }
 
1006
 
 
1007
    {
 
1008
      AvahiServerConfig config;
 
1009
      /* Do not publish any local Zeroconf records */
 
1010
      avahi_server_config_init(&config);
 
1011
      config.publish_hinfo = 0;
 
1012
      config.publish_addresses = 0;
 
1013
      config.publish_workstation = 0;
 
1014
      config.publish_domain = 0;
 
1015
 
 
1016
      /* Allocate a new server */
 
1017
      mc.server = avahi_server_new(avahi_simple_poll_get
 
1018
                                   (mc.simple_poll), &config, NULL,
 
1019
                                   NULL, &error);
 
1020
    
 
1021
      /* Free the Avahi configuration data */
 
1022
      avahi_server_config_free(&config);
 
1023
    }
 
1024
    
 
1025
    /* Check if creating the Avahi server object succeeded */
 
1026
    if (mc.server == NULL) {
 
1027
        fprintf(stderr, "Failed to create Avahi server: %s\n",
758
1028
                avahi_strerror(error));
759
 
        returncode = EXIT_FAILURE;
760
 
        goto exit;
 
1029
        exitcode = EXIT_FAILURE;
 
1030
        goto end;
761
1031
    }
762
1032
    
763
 
    /* Create the service browser */
764
 
    sb = avahi_s_service_browser_new(server,
765
 
                                     (AvahiIfIndex)
766
 
                                     if_nametoindex(interface),
 
1033
    /* Create the Avahi service browser */
 
1034
    sb = avahi_s_service_browser_new(mc.server, if_index,
767
1035
                                     AVAHI_PROTO_INET6,
768
1036
                                     "_mandos._tcp", NULL, 0,
769
 
                                     browse_callback, server);
770
 
    if (!sb) {
 
1037
                                     browse_callback, &mc);
 
1038
    if (sb == NULL) {
771
1039
        fprintf(stderr, "Failed to create service browser: %s\n",
772
 
                avahi_strerror(avahi_server_errno(server)));
773
 
        returncode = EXIT_FAILURE;
774
 
        goto exit;
 
1040
                avahi_strerror(avahi_server_errno(mc.server)));
 
1041
        exitcode = EXIT_FAILURE;
 
1042
        goto end;
775
1043
    }
776
1044
    
777
1045
    /* Run the main loop */
778
1046
 
779
1047
    if (debug){
780
 
      fprintf(stderr, "Starting avahi loop search\n");
 
1048
      fprintf(stderr, "Starting Avahi loop search\n");
781
1049
    }
782
1050
    
783
 
    avahi_simple_poll_loop(simple_poll);
 
1051
    avahi_simple_poll_loop(mc.simple_poll);
784
1052
    
785
 
 exit:
 
1053
 end:
786
1054
 
787
1055
    if (debug){
788
1056
      fprintf(stderr, "%s exiting\n", argv[0]);
789
1057
    }
790
1058
    
791
1059
    /* Cleanup things */
792
 
    if (sb)
 
1060
    if (sb != NULL)
793
1061
        avahi_s_service_browser_free(sb);
794
1062
    
795
 
    if (server)
796
 
        avahi_server_free(server);
797
 
 
798
 
    if (simple_poll)
799
 
        avahi_simple_poll_free(simple_poll);
800
 
    free(certfile);
801
 
    free(certkey);
 
1063
    if (mc.server != NULL)
 
1064
        avahi_server_free(mc.server);
 
1065
 
 
1066
    if (mc.simple_poll != NULL)
 
1067
        avahi_simple_poll_free(mc.simple_poll);
 
1068
    free(pubkeyfile);
 
1069
    free(seckeyfile);
 
1070
 
 
1071
    if (gnutls_initalized){
 
1072
      gnutls_certificate_free_credentials (mc.cred);
 
1073
      gnutls_global_deinit ();
 
1074
    }
802
1075
    
803
 
    return returncode;
 
1076
    return exitcode;
804
1077
}