1
1
/* -*- coding: utf-8 -*- */
3
* Mandos-client - get and decrypt data from a Mandos server
3
* Mandos client - get and decrypt data from a Mandos server
5
5
* This program is partly derived from an example program for an Avahi
6
6
* service browser, downloaded from
9
9
* "browse_callback", and parts of "main".
11
11
* Everything else is
12
* Copyright © 2008,2009 Teddy Hogeborn
13
* Copyright © 2008,2009 Björn Påhlsson
12
* Copyright © 2008 Teddy Hogeborn & Björn Påhlsson
15
14
* This program is free software: you can redistribute it and/or
16
15
* modify it under the terms of the GNU General Public License as
36
35
#define _GNU_SOURCE /* TEMP_FAILURE_RETRY(), asprintf() */
38
37
#include <stdio.h> /* fprintf(), stderr, fwrite(),
39
stdout, ferror(), sscanf */
40
39
#include <stdint.h> /* uint16_t, uint32_t */
41
40
#include <stddef.h> /* NULL, size_t, ssize_t */
42
41
#include <stdlib.h> /* free(), EXIT_SUCCESS, EXIT_FAILURE,
48
47
#include <sys/types.h> /* socket(), inet_pton(), sockaddr,
49
48
sockaddr_in6, PF_INET6,
50
49
SOCK_STREAM, INET6_ADDRSTRLEN,
51
uid_t, gid_t, open(), opendir(),
50
uid_t, gid_t, open(), opendir(), DIR */
53
51
#include <sys/stat.h> /* open() */
54
52
#include <sys/socket.h> /* socket(), struct sockaddr_in6,
55
53
struct in6_addr, inet_pton(),
57
55
#include <fcntl.h> /* open() */
58
#include <dirent.h> /* opendir(), struct dirent, readdir()
60
#include <inttypes.h> /* PRIu16, intmax_t, SCNdMAX */
56
#include <dirent.h> /* opendir(), struct dirent, readdir() */
57
#include <inttypes.h> /* PRIu16 */
61
58
#include <assert.h> /* assert() */
62
59
#include <errno.h> /* perror(), errno */
63
#include <time.h> /* time(), nanosleep() */
60
#include <time.h> /* time() */
64
61
#include <net/if.h> /* ioctl, ifreq, SIOCGIFFLAGS, IFF_UP,
65
62
SIOCSIFFLAGS, if_indextoname(),
66
63
if_nametoindex(), IF_NAMESIZE */
69
66
getuid(), getgid(), setuid(),
71
68
#include <arpa/inet.h> /* inet_pton(), htons */
72
#include <iso646.h> /* not, and, or */
69
#include <iso646.h> /* not, and */
73
70
#include <argp.h> /* struct argp_option, error_t, struct
74
71
argp_state, struct argp,
75
72
argp_parse(), ARGP_KEY_ARG,
76
73
ARGP_KEY_END, ARGP_ERR_UNKNOWN */
77
#include <sys/klog.h> /* klogctl() */
80
76
/* All Avahi types, constants and functions
94
90
init_gnutls_session(),
96
#include <gnutls/openpgp.h>
97
/* gnutls_certificate_set_openpgp_key_file(),
92
#include <gnutls/openpgp.h> /* gnutls_certificate_set_openpgp_key_file(),
98
93
GNUTLS_OPENPGP_FMT_BASE64 */
134
129
size_t adjustbuffer(char **buffer, size_t buffer_length,
135
130
size_t buffer_capacity){
136
if(buffer_length + BUFFER_SIZE > buffer_capacity){
131
if (buffer_length + BUFFER_SIZE > buffer_capacity){
137
132
*buffer = realloc(*buffer, buffer_capacity + BUFFER_SIZE);
141
136
buffer_capacity += BUFFER_SIZE;
161
156
gpgme_data_t pgp_data;
163
fd = (int)TEMP_FAILURE_RETRY(open(filename, O_RDONLY));
158
fd = TEMP_FAILURE_RETRY(open(filename, O_RDONLY));
169
164
rc = gpgme_data_new_from_fd(&pgp_data, fd);
170
if(rc != GPG_ERR_NO_ERROR){
165
if (rc != GPG_ERR_NO_ERROR){
171
166
fprintf(stderr, "bad gpgme_data_new_from_fd: %s: %s\n",
172
167
gpgme_strsource(rc), gpgme_strerror(rc));
176
171
rc = gpgme_op_import(mc->ctx, pgp_data);
177
if(rc != GPG_ERR_NO_ERROR){
172
if (rc != GPG_ERR_NO_ERROR){
178
173
fprintf(stderr, "bad gpgme_op_import: %s: %s\n",
179
174
gpgme_strsource(rc), gpgme_strerror(rc));
183
ret = (int)TEMP_FAILURE_RETRY(close(fd));
178
ret = TEMP_FAILURE_RETRY(close(fd));
192
187
fprintf(stderr, "Initialize gpgme\n");
196
191
gpgme_check_version(NULL);
197
192
rc = gpgme_engine_check_version(GPGME_PROTOCOL_OpenPGP);
198
if(rc != GPG_ERR_NO_ERROR){
193
if (rc != GPG_ERR_NO_ERROR){
199
194
fprintf(stderr, "bad gpgme_engine_check_version: %s: %s\n",
200
195
gpgme_strsource(rc), gpgme_strerror(rc));
204
199
/* Set GPGME home directory for the OpenPGP engine only */
205
rc = gpgme_get_engine_info(&engine_info);
206
if(rc != GPG_ERR_NO_ERROR){
200
rc = gpgme_get_engine_info (&engine_info);
201
if (rc != GPG_ERR_NO_ERROR){
207
202
fprintf(stderr, "bad gpgme_get_engine_info: %s: %s\n",
208
203
gpgme_strsource(rc), gpgme_strerror(rc));
224
219
/* Create new GPGME "context" */
225
220
rc = gpgme_new(&(mc->ctx));
226
if(rc != GPG_ERR_NO_ERROR){
221
if (rc != GPG_ERR_NO_ERROR){
227
222
fprintf(stderr, "bad gpgme_new: %s: %s\n",
228
223
gpgme_strsource(rc), gpgme_strerror(rc));
232
if(not import_key(pubkey) or not import_key(seckey)){
227
if (not import_key(pubkey) or not import_key(seckey)){
240
235
* Decrypt OpenPGP data.
241
236
* Returns -1 on error
243
static ssize_t pgp_packet_decrypt(const mandos_context *mc,
244
const char *cryptotext,
238
static ssize_t pgp_packet_decrypt (const mandos_context *mc,
239
const char *cryptotext,
247
242
gpgme_data_t dh_crypto, dh_plain;
248
243
gpgme_error_t rc;
250
245
size_t plaintext_capacity = 0;
251
246
ssize_t plaintext_length = 0;
254
249
fprintf(stderr, "Trying to decrypt OpenPGP data\n");
257
252
/* Create new GPGME data buffer from memory cryptotext */
258
253
rc = gpgme_data_new_from_mem(&dh_crypto, cryptotext, crypto_size,
260
if(rc != GPG_ERR_NO_ERROR){
255
if (rc != GPG_ERR_NO_ERROR){
261
256
fprintf(stderr, "bad gpgme_data_new_from_mem: %s: %s\n",
262
257
gpgme_strsource(rc), gpgme_strerror(rc));
266
261
/* Create new empty GPGME data buffer for the plaintext */
267
262
rc = gpgme_data_new(&dh_plain);
268
if(rc != GPG_ERR_NO_ERROR){
263
if (rc != GPG_ERR_NO_ERROR){
269
264
fprintf(stderr, "bad gpgme_data_new: %s: %s\n",
270
265
gpgme_strsource(rc), gpgme_strerror(rc));
271
266
gpgme_data_release(dh_crypto);
275
270
/* Decrypt data from the cryptotext data buffer to the plaintext
277
272
rc = gpgme_op_decrypt(mc->ctx, dh_crypto, dh_plain);
278
if(rc != GPG_ERR_NO_ERROR){
273
if (rc != GPG_ERR_NO_ERROR){
279
274
fprintf(stderr, "bad gpgme_op_decrypt: %s: %s\n",
280
275
gpgme_strsource(rc), gpgme_strerror(rc));
281
276
plaintext_length = -1;
283
278
gpgme_decrypt_result_t result;
284
279
result = gpgme_op_decrypt_result(mc->ctx);
286
281
fprintf(stderr, "gpgme_op_decrypt_result failed\n");
288
283
fprintf(stderr, "Unsupported algorithm: %s\n",
317
312
/* Seek back to the beginning of the GPGME plaintext data buffer */
318
if(gpgme_data_seek(dh_plain, (off_t)0, SEEK_SET) == -1){
313
if (gpgme_data_seek(dh_plain, (off_t) 0, SEEK_SET) == -1){
319
314
perror("gpgme_data_seek");
320
315
plaintext_length = -1;
321
316
goto decrypt_end;
326
321
plaintext_capacity = adjustbuffer(plaintext,
327
322
(size_t)plaintext_length,
328
323
plaintext_capacity);
329
if(plaintext_capacity == 0){
324
if (plaintext_capacity == 0){
330
325
perror("adjustbuffer");
331
326
plaintext_length = -1;
332
327
goto decrypt_end;
365
360
return plaintext_length;
368
static const char * safer_gnutls_strerror(int value) {
369
const char *ret = gnutls_strerror(value); /* Spurious warning from
370
-Wunreachable-code */
363
static const char * safer_gnutls_strerror (int value) {
364
const char *ret = gnutls_strerror (value); /* Spurious warning */
372
366
ret = "(unknown)";
391
385
ret = gnutls_global_init();
392
if(ret != GNUTLS_E_SUCCESS) {
393
fprintf(stderr, "GnuTLS global_init: %s\n",
394
safer_gnutls_strerror(ret));
386
if (ret != GNUTLS_E_SUCCESS) {
387
fprintf (stderr, "GnuTLS global_init: %s\n",
388
safer_gnutls_strerror(ret));
399
393
/* "Use a log level over 10 to enable all debugging options."
400
394
* - GnuTLS manual
406
400
/* OpenPGP credentials */
407
401
gnutls_certificate_allocate_credentials(&mc->cred);
408
if(ret != GNUTLS_E_SUCCESS){
409
fprintf(stderr, "GnuTLS memory error: %s\n", /* Spurious warning
413
safer_gnutls_strerror(ret));
414
gnutls_global_deinit();
402
if (ret != GNUTLS_E_SUCCESS){
403
fprintf (stderr, "GnuTLS memory error: %s\n", /* Spurious
405
safer_gnutls_strerror(ret));
406
gnutls_global_deinit ();
424
416
ret = gnutls_certificate_set_openpgp_key_file
425
417
(mc->cred, pubkeyfilename, seckeyfilename,
426
418
GNUTLS_OPENPGP_FMT_BASE64);
427
if(ret != GNUTLS_E_SUCCESS) {
419
if (ret != GNUTLS_E_SUCCESS) {
429
421
"Error[%d] while reading the OpenPGP key pair ('%s',"
430
422
" '%s')\n", ret, pubkeyfilename, seckeyfilename);
436
428
/* GnuTLS server initialization */
437
429
ret = gnutls_dh_params_init(&mc->dh_params);
438
if(ret != GNUTLS_E_SUCCESS) {
439
fprintf(stderr, "Error in GnuTLS DH parameter initialization:"
440
" %s\n", safer_gnutls_strerror(ret));
430
if (ret != GNUTLS_E_SUCCESS) {
431
fprintf (stderr, "Error in GnuTLS DH parameter initialization:"
432
" %s\n", safer_gnutls_strerror(ret));
443
435
ret = gnutls_dh_params_generate2(mc->dh_params, mc->dh_bits);
444
if(ret != GNUTLS_E_SUCCESS) {
445
fprintf(stderr, "Error in GnuTLS prime generation: %s\n",
446
safer_gnutls_strerror(ret));
436
if (ret != GNUTLS_E_SUCCESS) {
437
fprintf (stderr, "Error in GnuTLS prime generation: %s\n",
438
safer_gnutls_strerror(ret));
465
457
/* GnuTLS session creation */
466
458
ret = gnutls_init(session, GNUTLS_SERVER);
467
if(ret != GNUTLS_E_SUCCESS){
459
if (ret != GNUTLS_E_SUCCESS){
468
460
fprintf(stderr, "Error in GnuTLS session initialization: %s\n",
469
461
safer_gnutls_strerror(ret));
474
466
ret = gnutls_priority_set_direct(*session, mc->priority, &err);
475
if(ret != GNUTLS_E_SUCCESS) {
467
if (ret != GNUTLS_E_SUCCESS) {
476
468
fprintf(stderr, "Syntax error at: %s\n", err);
477
469
fprintf(stderr, "GnuTLS error: %s\n",
478
470
safer_gnutls_strerror(ret));
479
gnutls_deinit(*session);
471
gnutls_deinit (*session);
484
476
ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,
486
if(ret != GNUTLS_E_SUCCESS) {
478
if (ret != GNUTLS_E_SUCCESS) {
487
479
fprintf(stderr, "Error setting GnuTLS credentials: %s\n",
488
480
safer_gnutls_strerror(ret));
489
gnutls_deinit(*session);
481
gnutls_deinit (*session);
493
485
/* ignore client certificate if any. */
494
gnutls_certificate_server_set_request(*session,
486
gnutls_certificate_server_set_request (*session,
497
gnutls_dh_set_prime_bits(*session, mc->dh_bits);
489
gnutls_dh_set_prime_bits (*session, mc->dh_bits);
520
511
char interface[IF_NAMESIZE];
521
512
gnutls_session_t session;
523
ret = init_gnutls_session(mc, &session);
514
ret = init_gnutls_session (mc, &session);
557
548
fprintf(stderr, "Bad address: %s\n", ip);
560
to.in6.sin6_port = htons(port); /* Spurious warnings from
562
-Wunreachable-code */
551
to.in6.sin6_port = htons(port); /* Spurious warning */
564
553
to.in6.sin6_scope_id = (uint32_t)if_index;
580
569
ret = connect(tcp_sd, &to.in, sizeof(to));
582
571
perror("connect");
586
575
const char *out = mandos_protocol_version;
589
578
size_t out_size = strlen(out);
590
ret = (int)TEMP_FAILURE_RETRY(write(tcp_sd, out + written,
579
ret = TEMP_FAILURE_RETRY(write(tcp_sd, out + written,
591
580
out_size - written));
611
600
fprintf(stderr, "Establishing TLS session with %s\n", ip);
614
gnutls_transport_set_ptr(session, (gnutls_transport_ptr_t) tcp_sd);
603
gnutls_transport_set_ptr (session, (gnutls_transport_ptr_t) tcp_sd);
617
ret = gnutls_handshake(session);
606
ret = gnutls_handshake (session);
618
607
} while(ret == GNUTLS_E_AGAIN or ret == GNUTLS_E_INTERRUPTED);
620
if(ret != GNUTLS_E_SUCCESS){
609
if (ret != GNUTLS_E_SUCCESS){
622
611
fprintf(stderr, "*** GnuTLS Handshake failed ***\n");
637
626
buffer_capacity = adjustbuffer(&buffer, buffer_length,
638
627
buffer_capacity);
639
if(buffer_capacity == 0){
628
if (buffer_capacity == 0){
640
629
perror("adjustbuffer");
645
sret = gnutls_record_recv(session, buffer+buffer_length,
634
ret = gnutls_record_recv(session, buffer+buffer_length,
652
641
case GNUTLS_E_INTERRUPTED:
653
642
case GNUTLS_E_AGAIN:
655
644
case GNUTLS_E_REHANDSHAKE:
657
ret = gnutls_handshake(session);
646
ret = gnutls_handshake (session);
658
647
} while(ret == GNUTLS_E_AGAIN or ret == GNUTLS_E_INTERRUPTED);
660
649
fprintf(stderr, "*** GnuTLS Re-handshake failed ***\n");
667
656
fprintf(stderr, "Unknown error while reading data from"
668
657
" encrypted session with Mandos server\n");
670
gnutls_bye(session, GNUTLS_SHUT_RDWR);
659
gnutls_bye (session, GNUTLS_SHUT_RDWR);
674
buffer_length += (size_t) sret;
663
buffer_length += (size_t) ret;
679
668
fprintf(stderr, "Closing TLS session\n");
682
gnutls_bye(session, GNUTLS_SHUT_RDWR);
671
gnutls_bye (session, GNUTLS_SHUT_RDWR);
684
if(buffer_length > 0){
673
if (buffer_length > 0){
685
674
decrypted_buffer_size = pgp_packet_decrypt(mc, buffer,
687
676
&decrypted_buffer);
688
if(decrypted_buffer_size >= 0){
677
if (decrypted_buffer_size >= 0){
690
679
while(written < (size_t) decrypted_buffer_size){
691
ret = (int)fwrite(decrypted_buffer + written, 1,
692
(size_t)decrypted_buffer_size - written,
680
ret = (int)fwrite (decrypted_buffer + written, 1,
681
(size_t)decrypted_buffer_size - written,
694
683
if(ret == 0 and ferror(stdout)){
696
685
fprintf(stderr, "Error writing encrypted data: %s\n",
755
744
avahi_address_snprint(ip, sizeof(ip), address);
757
746
fprintf(stderr, "Mandos server \"%s\" found on %s (%s, %"
758
PRIdMAX ") on port %" PRIu16 "\n", name, host_name,
759
ip, (intmax_t)interface, port);
747
PRIu16 ") on port %d\n", name, host_name, ip,
761
750
int ret = start_mandos_communication(ip, port, interface, mc);
763
752
avahi_simple_poll_quit(mc->simple_poll);
798
787
the callback function is called the Avahi server will free the
799
788
resolver for us. */
801
if(!(avahi_s_service_resolver_new(mc->server, interface,
790
if (!(avahi_s_service_resolver_new(mc->server, interface,
802
791
protocol, name, type, domain,
803
792
AVAHI_PROTO_INET6, 0,
804
793
resolve_callback, mc)))
874
860
.doc = "GnuTLS priority string for the TLS handshake",
876
{ .name = "delay", .key = 131,
878
.doc = "Maximum delay to wait for interface startup",
883
error_t parse_opt(int key, char *arg,
884
struct argp_state *state) {
865
error_t parse_opt (int key, char *arg,
866
struct argp_state *state) {
867
/* Get the INPUT argument from `argp_parse', which we know is
868
a pointer to our plugin list pointer. */
886
870
case 128: /* --debug */
901
885
case 129: /* --dh-bits */
902
ret = sscanf(arg, "%" SCNdMAX "%n", &tmpmax, &numchars);
903
if(ret < 1 or tmpmax != (typeof(mc.dh_bits))tmpmax
904
or arg[numchars] != '\0'){
905
fprintf(stderr, "Bad number of DH bits\n");
887
mc.dh_bits = (unsigned int) strtol(arg, NULL, 10);
906
890
exit(EXIT_FAILURE);
908
mc.dh_bits = (typeof(mc.dh_bits))tmpmax;
910
893
case 130: /* --priority */
911
894
mc.priority = arg;
913
case 131: /* --delay */
914
ret = sscanf(arg, "%lf%n", &delay, &numchars);
915
if(ret < 1 or arg[numchars] != '\0'){
916
fprintf(stderr, "Bad delay\n");
920
896
case ARGP_KEY_ARG:
922
898
case ARGP_KEY_END:
932
908
.doc = "Mandos client -- Get and decrypt"
933
909
" passwords from a Mandos server" };
934
ret = argp_parse(&argp, argc, argv, 0, 0, NULL);
935
if(ret == ARGP_ERR_UNKNOWN){
910
ret = argp_parse (&argp, argc, argv, 0, 0, NULL);
911
if (ret == ARGP_ERR_UNKNOWN){
936
912
fprintf(stderr, "Unknown error while parsing arguments\n");
937
913
exitcode = EXIT_FAILURE;
942
918
/* If the interface is down, bring it up */
944
// Lower kernel loglevel to KERN_NOTICE to avoid
945
// KERN_INFO messages to mess up the prompt
946
ret = klogctl(8, NULL, 5);
951
920
sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
953
922
perror("socket");
954
923
exitcode = EXIT_FAILURE;
955
ret = klogctl(7, NULL, 0);
961
926
strcpy(network.ifr_name, interface);
962
927
ret = ioctl(sd, SIOCGIFFLAGS, &network);
964
929
perror("ioctl SIOCGIFFLAGS");
965
ret = klogctl(7, NULL, 0);
969
930
exitcode = EXIT_FAILURE;
976
937
perror("ioctl SIOCSIFFLAGS");
977
938
exitcode = EXIT_FAILURE;
978
ret = klogctl(7, NULL, 0);
985
// sleep checking until interface is running
986
for(int i=0; i < delay * 4; i++){
987
ret = ioctl(sd, SIOCGIFFLAGS, &network);
989
perror("ioctl SIOCGIFFLAGS");
990
} else if(network.ifr_flags & IFF_RUNNING){
993
struct timespec sleeptime = { .tv_nsec = 250000000 };
994
nanosleep(&sleeptime, NULL);
996
ret = (int)TEMP_FAILURE_RETRY(close(sd));
942
ret = TEMP_FAILURE_RETRY(close(sd));
1000
// Restores kernel loglevel to default
1001
ret = klogctl(7, NULL, 0);
1010
951
ret = setuid(uid);
1012
953
perror("setuid");
1017
958
perror("setgid");
1020
961
ret = init_gnutls_global(&mc, pubkey, seckey);
1022
963
fprintf(stderr, "init_gnutls_global failed\n");
1023
964
exitcode = EXIT_FAILURE;
1055
996
exitcode = EXIT_FAILURE;
1059
ret = sscanf(address+1, "%" SCNdMAX "%n", &tmpmax, &numchars);
1060
if(ret < 1 or tmpmax != (uint16_t)tmpmax
1061
or address[numchars+1] != '\0'){
1062
fprintf(stderr, "Bad port number\n");
1000
uint16_t port = (uint16_t) strtol(address+1, NULL, 10);
1002
perror("Bad port number");
1063
1003
exitcode = EXIT_FAILURE;
1066
port = (uint16_t)tmpmax;
1067
1006
*address = '\0';
1068
1007
address = connect_to;
1069
1008
ret = start_mandos_communication(address, port, if_index, &mc);
1085
1024
/* Allocate main Avahi loop object */
1086
1025
mc.simple_poll = avahi_simple_poll_new();
1087
if(mc.simple_poll == NULL) {
1026
if (mc.simple_poll == NULL) {
1088
1027
fprintf(stderr, "Avahi: Failed to create simple poll"
1090
1029
exitcode = EXIT_FAILURE;
1132
1071
/* Run the main loop */
1135
1074
fprintf(stderr, "Starting Avahi loop search\n");
1138
1077
avahi_simple_poll_loop(mc.simple_poll);
1143
1082
fprintf(stderr, "%s exiting\n", argv[0]);
1146
1085
/* Cleanup things */
1148
1087
avahi_s_service_browser_free(sb);
1150
if(mc.server != NULL)
1089
if (mc.server != NULL)
1151
1090
avahi_server_free(mc.server);
1153
if(mc.simple_poll != NULL)
1092
if (mc.simple_poll != NULL)
1154
1093
avahi_simple_poll_free(mc.simple_poll);
1156
if(gnutls_initalized){
1095
if (gnutls_initalized){
1157
1096
gnutls_certificate_free_credentials(mc.cred);
1158
gnutls_global_deinit();
1097
gnutls_global_deinit ();
1159
1098
gnutls_dh_params_deinit(mc.dh_params);
1169
1108
struct dirent *direntry;
1170
1109
d = opendir(tempdir);
1172
if(errno != ENOENT){
1177
1114
direntry = readdir(d);
1178
1115
if(direntry == NULL){
1181
if(direntry->d_type == DT_REG){
1118
if (direntry->d_type == DT_REG){
1182
1119
char *fullname = NULL;
1183
1120
ret = asprintf(&fullname, "%s/%s", tempdir,
1184
1121
direntry->d_name);