32
32
#define _LARGEFILE_SOURCE
33
33
#define _FILE_OFFSET_BITS 64
39
#include <net/if.h> /* if_nametoindex */
40
#include <sys/ioctl.h> /* ioctl, ifreq, SIOCGIFFLAGS, IFF_UP,
35
#define _GNU_SOURCE /* TEMP_FAILURE_RETRY() */
37
#include <stdio.h> /* fprintf(), stderr, fwrite(), stdout,
39
#include <stdint.h> /* uint16_t, uint32_t */
40
#include <stddef.h> /* NULL, size_t, ssize_t */
41
#include <stdlib.h> /* free(), EXIT_SUCCESS, EXIT_FAILURE,
43
#include <stdbool.h> /* bool, true */
44
#include <string.h> /* memset(), strcmp(), strlen(),
45
strerror(), memcpy(), strcpy() */
46
#include <sys/ioctl.h> /* ioctl */
47
#include <net/if.h> /* ifreq, SIOCGIFFLAGS, SIOCSIFFLAGS,
49
#include <sys/types.h> /* socket(), inet_pton(), sockaddr,
50
sockaddr_in6, PF_INET6,
51
SOCK_STREAM, INET6_ADDRSTRLEN,
53
#include <sys/socket.h> /* socket(), struct sockaddr_in6,
54
struct in6_addr, inet_pton(),
56
#include <assert.h> /* assert() */
57
#include <errno.h> /* perror(), errno */
58
#include <time.h> /* time() */
42
59
#include <net/if.h> /* ioctl, ifreq, SIOCGIFFLAGS, IFF_UP,
60
SIOCSIFFLAGS, if_indextoname(),
61
if_nametoindex(), IF_NAMESIZE */
62
#include <unistd.h> /* close(), SEEK_SET, off_t, write(),
63
getuid(), getgid(), setuid(),
65
#include <netinet/in.h>
66
#include <arpa/inet.h> /* inet_pton(), htons */
67
#include <iso646.h> /* not, and */
68
#include <argp.h> /* struct argp_option, error_t, struct
69
argp_state, struct argp,
70
argp_parse(), ARGP_KEY_ARG,
71
ARGP_KEY_END, ARGP_ERR_UNKNOWN */
74
/* All Avahi types, constants and functions
45
77
#include <avahi-core/core.h>
46
78
#include <avahi-core/lookup.h>
47
79
#include <avahi-core/log.h>
49
81
#include <avahi-common/malloc.h>
50
82
#include <avahi-common/error.h>
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 */
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 */
67
#include <errno.h> /* perror() */
85
#include <gnutls/gnutls.h> /* All GnuTLS types, constants and functions
87
init_gnutls_session(),
89
#include <gnutls/openpgp.h> /* gnutls_certificate_set_openpgp_key_file(),
90
GNUTLS_OPENPGP_FMT_BASE64 */
93
#include <gpgme.h> /* All GPGME types, constants and functions
95
GPGME_PROTOCOL_OpenPGP,
73
98
#define BUFFER_SIZE 256
75
101
static const char *keydir = "/conf/conf.d/mandos";
76
static const char *pubkeyfile = "pubkey.txt";
77
static const char *seckeyfile = "seckey.txt";
81
/* Used for passing in values through all the callback functions */
102
static const char mandos_protocol_version[] = "1";
103
const char *argp_program_version = "password-request 1.0";
104
const char *argp_program_bug_address = "<mandos@fukt.bsnet.se>";
106
/* Used for passing in values through the Avahi callback functions */
83
108
AvahiSimplePoll *simple_poll;
84
109
AvahiServer *server;
85
110
gnutls_certificate_credentials_t cred;
86
111
unsigned int dh_bits;
112
gnutls_dh_params_t dh_params;
87
113
const char *priority;
117
* Make room in "buffer" for at least BUFFER_SIZE additional bytes.
118
* "buffer_capacity" is how much is currently allocated,
119
* "buffer_length" is how much is already used.
121
size_t adjustbuffer(char **buffer, size_t buffer_length,
122
size_t buffer_capacity){
123
if (buffer_length + BUFFER_SIZE > buffer_capacity){
124
*buffer = realloc(*buffer, buffer_capacity + BUFFER_SIZE);
128
buffer_capacity += BUFFER_SIZE;
130
return buffer_capacity;
91
134
* Decrypt OpenPGP data using keyrings in HOMEDIR.
92
135
* Returns -1 on error
310
/* GnuTLS log function callback */
270
311
static void debuggnutls(__attribute__((unused)) int level,
271
312
const char* string){
272
fprintf(stderr, "%s", string);
313
fprintf(stderr, "GnuTLS: %s", string);
275
static int initgnutls(mandos_context *mc, gnutls_session_t *session,
276
gnutls_dh_params_t *dh_params){
316
static int init_gnutls_global(mandos_context *mc,
317
const char *pubkeyfile,
318
const char *seckeyfile){
281
322
fprintf(stderr, "Initializing GnuTLS\n");
284
if ((ret = gnutls_global_init ())
285
!= GNUTLS_E_SUCCESS) {
286
fprintf (stderr, "global_init: %s\n", safer_gnutls_strerror(ret));
325
ret = gnutls_global_init();
326
if (ret != GNUTLS_E_SUCCESS) {
327
fprintf (stderr, "GnuTLS global_init: %s\n",
328
safer_gnutls_strerror(ret));
333
/* "Use a log level over 10 to enable all debugging options."
291
336
gnutls_global_set_log_level(11);
292
337
gnutls_global_set_log_function(debuggnutls);
295
/* openpgp credentials */
296
if ((ret = gnutls_certificate_allocate_credentials (&mc->cred))
297
!= GNUTLS_E_SUCCESS) {
298
fprintf (stderr, "memory error: %s\n",
340
/* OpenPGP credentials */
341
gnutls_certificate_allocate_credentials(&mc->cred);
342
if (ret != GNUTLS_E_SUCCESS){
343
fprintf (stderr, "GnuTLS memory error: %s\n",
299
344
safer_gnutls_strerror(ret));
345
gnutls_global_deinit ();
309
355
ret = gnutls_certificate_set_openpgp_key_file
310
356
(mc->cred, pubkeyfile, seckeyfile, GNUTLS_OPENPGP_FMT_BASE64);
311
357
if (ret != GNUTLS_E_SUCCESS) {
313
(stderr, "Error[%d] while reading the OpenPGP key pair ('%s',"
315
ret, pubkeyfile, seckeyfile);
316
fprintf(stdout, "The Error is: %s\n",
359
"Error[%d] while reading the OpenPGP key pair ('%s',"
360
" '%s')\n", ret, pubkeyfile, seckeyfile);
361
fprintf(stdout, "The GnuTLS error is: %s\n",
317
362
safer_gnutls_strerror(ret));
321
//GnuTLS server initialization
322
if ((ret = gnutls_dh_params_init(dh_params))
323
!= GNUTLS_E_SUCCESS) {
324
fprintf (stderr, "Error in dh parameter initialization: %s\n",
325
safer_gnutls_strerror(ret));
329
if ((ret = gnutls_dh_params_generate2(*dh_params, mc->dh_bits))
330
!= GNUTLS_E_SUCCESS) {
331
fprintf (stderr, "Error in prime generation: %s\n",
332
safer_gnutls_strerror(ret));
336
gnutls_certificate_set_dh_params(mc->cred, *dh_params);
338
// GnuTLS session creation
339
if ((ret = gnutls_init(session, GNUTLS_SERVER))
340
!= GNUTLS_E_SUCCESS){
366
/* GnuTLS server initialization */
367
ret = gnutls_dh_params_init(&mc->dh_params);
368
if (ret != GNUTLS_E_SUCCESS) {
369
fprintf (stderr, "Error in GnuTLS DH parameter initialization:"
370
" %s\n", safer_gnutls_strerror(ret));
373
ret = gnutls_dh_params_generate2(mc->dh_params, mc->dh_bits);
374
if (ret != GNUTLS_E_SUCCESS) {
375
fprintf (stderr, "Error in GnuTLS prime generation: %s\n",
376
safer_gnutls_strerror(ret));
380
gnutls_certificate_set_dh_params(mc->cred, mc->dh_params);
386
gnutls_certificate_free_credentials(mc->cred);
387
gnutls_global_deinit();
392
static int init_gnutls_session(mandos_context *mc,
393
gnutls_session_t *session){
395
/* GnuTLS session creation */
396
ret = gnutls_init(session, GNUTLS_SERVER);
397
if (ret != GNUTLS_E_SUCCESS){
341
398
fprintf(stderr, "Error in GnuTLS session initialization: %s\n",
342
399
safer_gnutls_strerror(ret));
345
if ((ret = gnutls_priority_set_direct(*session, mc->priority, &err))
346
!= GNUTLS_E_SUCCESS) {
347
fprintf(stderr, "Syntax error at: %s\n", err);
348
fprintf(stderr, "GnuTLS error: %s\n",
349
safer_gnutls_strerror(ret));
404
ret = gnutls_priority_set_direct(*session, mc->priority, &err);
405
if (ret != GNUTLS_E_SUCCESS) {
406
fprintf(stderr, "Syntax error at: %s\n", err);
407
fprintf(stderr, "GnuTLS error: %s\n",
408
safer_gnutls_strerror(ret));
409
gnutls_deinit (*session);
353
if ((ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,
355
!= GNUTLS_E_SUCCESS) {
356
fprintf(stderr, "Error setting a credentials set: %s\n",
414
ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,
416
if (ret != GNUTLS_E_SUCCESS) {
417
fprintf(stderr, "Error setting GnuTLS credentials: %s\n",
357
418
safer_gnutls_strerror(ret));
419
gnutls_deinit (*session);
432
/* Avahi log function callback */
370
433
static void empty_log(__attribute__((unused)) AvahiLogLevel level,
371
434
__attribute__((unused)) const char *txt){}
436
/* Called when a Mandos server is found */
373
437
static int start_mandos_communication(const char *ip, uint16_t port,
374
438
AvahiIfIndex if_index,
375
439
mandos_context *mc){
377
struct sockaddr_in6 to;
441
union { struct sockaddr in; struct sockaddr_in6 in6; } to;
378
442
char *buffer = NULL;
379
443
char *decrypted_buffer;
380
444
size_t buffer_length = 0;
381
445
size_t buffer_capacity = 0;
382
446
ssize_t decrypted_buffer_size;
385
449
char interface[IF_NAMESIZE];
386
450
gnutls_session_t session;
387
gnutls_dh_params_t dh_params;
452
ret = init_gnutls_session (mc, &session);
390
458
fprintf(stderr, "Setting up a tcp connection to %s, port %d\n",
436
ret = connect(tcp_sd, (struct sockaddr *) &to, sizeof(to));
506
ret = connect(tcp_sd, &to.in, sizeof(to));
438
508
perror("connect");
442
ret = initgnutls (mc, &session, &dh_params);
512
const char *out = mandos_protocol_version;
515
size_t out_size = strlen(out);
516
ret = TEMP_FAILURE_RETRY(write(tcp_sd, out + written,
517
out_size - written));
523
written += (size_t)ret;
524
if(written < out_size){
527
if (out == mandos_protocol_version){
537
fprintf(stderr, "Establishing TLS session with %s\n", ip);
448
540
gnutls_transport_set_ptr (session, (gnutls_transport_ptr_t) tcp_sd);
451
fprintf(stderr, "Establishing TLS session with %s\n", ip);
454
ret = gnutls_handshake (session);
543
ret = gnutls_handshake (session);
544
} while(ret == GNUTLS_E_AGAIN or ret == GNUTLS_E_INTERRUPTED);
456
546
if (ret != GNUTLS_E_SUCCESS){
458
fprintf(stderr, "\n*** Handshake failed ***\n");
548
fprintf(stderr, "*** GnuTLS Handshake failed ***\n");
459
549
gnutls_perror (ret);
465
//Retrieve OpenPGP packet that contains the wanted password
555
/* Read OpenPGP packet that contains the wanted password */
468
558
fprintf(stderr, "Retrieving pgp encrypted password from %s\n",
490
579
case GNUTLS_E_AGAIN:
492
581
case GNUTLS_E_REHANDSHAKE:
493
ret = gnutls_handshake (session);
583
ret = gnutls_handshake (session);
584
} while(ret == GNUTLS_E_AGAIN or ret == GNUTLS_E_INTERRUPTED);
495
fprintf(stderr, "\n*** Handshake failed ***\n");
586
fprintf(stderr, "*** GnuTLS Re-handshake failed ***\n");
496
587
gnutls_perror (ret);
502
593
fprintf(stderr, "Unknown error while reading data from"
503
" encrypted session with mandos server\n");
594
" encrypted session with Mandos server\n");
505
596
gnutls_bye (session, GNUTLS_SHUT_RDWR);
509
600
buffer_length += (size_t) ret;
605
fprintf(stderr, "Closing TLS session\n");
608
gnutls_bye (session, GNUTLS_SHUT_RDWR);
513
610
if (buffer_length > 0){
514
611
decrypted_buffer_size = pgp_packet_decrypt(buffer,
516
613
&decrypted_buffer,
518
615
if (decrypted_buffer_size >= 0){
519
617
while(written < (size_t) decrypted_buffer_size){
520
618
ret = (int)fwrite (decrypted_buffer + written, 1,
521
619
(size_t)decrypted_buffer_size - written,
618
709
case AVAHI_BROWSER_FAILURE:
620
fprintf(stderr, "(Browser) %s\n",
711
fprintf(stderr, "(Avahi browser) %s\n",
621
712
avahi_strerror(avahi_server_errno(mc->server)));
622
713
avahi_simple_poll_quit(mc->simple_poll);
625
716
case AVAHI_BROWSER_NEW:
626
/* We ignore the returned resolver object. In the callback
627
function we free it. If the server is terminated before
628
the callback function is called the server will free
629
the resolver for us. */
717
/* We ignore the returned Avahi resolver object. In the callback
718
function we free it. If the Avahi server is terminated before
719
the callback function is called the Avahi server will free the
631
722
if (!(avahi_s_service_resolver_new(mc->server, interface,
632
723
protocol, name, type, domain,
633
724
AVAHI_PROTO_INET6, 0,
634
725
resolve_callback, mc)))
635
fprintf(stderr, "Failed to resolve service '%s': %s\n", name,
636
avahi_strerror(avahi_server_errno(mc->server)));
726
fprintf(stderr, "Avahi: Failed to resolve service '%s': %s\n",
727
name, avahi_strerror(avahi_server_errno(mc->server)));
639
730
case AVAHI_BROWSER_REMOVE:
669
int main(AVAHI_GCC_UNUSED int argc, AVAHI_GCC_UNUSED char*argv[]) {
670
AvahiServerConfig config;
763
int main(int argc, char *argv[]){
671
764
AvahiSServiceBrowser *sb = NULL;
675
int returncode = EXIT_SUCCESS;
767
int exitcode = EXIT_SUCCESS;
676
768
const char *interface = "eth0";
677
769
struct ifreq network;
679
773
char *connect_to = NULL;
680
774
AvahiIfIndex if_index = AVAHI_IF_UNSPEC;
775
const char *pubkeyfile = "pubkey.txt";
776
const char *seckeyfile = "seckey.txt";
681
777
mandos_context mc = { .simple_poll = NULL, .server = NULL,
682
778
.dh_bits = 1024, .priority = "SECURE256"};
779
bool gnutls_initalized = false;
684
debug_int = debug ? 1 : 0;
686
struct option long_options[] = {
687
{"debug", no_argument, &debug_int, 1},
688
{"connect", required_argument, NULL, 'c'},
689
{"interface", required_argument, NULL, 'i'},
690
{"keydir", required_argument, NULL, 'd'},
691
{"seckey", required_argument, NULL, 's'},
692
{"pubkey", required_argument, NULL, 'p'},
693
{"dh-bits", required_argument, NULL, 'D'},
694
{"priority", required_argument, NULL, 'P'},
697
int option_index = 0;
698
ret = getopt_long (argc, argv, "i:", long_options,
725
mc.dh_bits = (unsigned int) strtol(optarg, NULL, 10);
782
struct argp_option options[] = {
783
{ .name = "debug", .key = 128,
784
.doc = "Debug mode", .group = 3 },
785
{ .name = "connect", .key = 'c',
787
.doc = "Connect directly to a sepcified mandos server",
789
{ .name = "interface", .key = 'i',
791
.doc = "Interface that Avahi will conntect through",
793
{ .name = "keydir", .key = 'd',
795
.doc = "Directory where the openpgp keyring is",
797
{ .name = "seckey", .key = 's',
799
.doc = "Secret openpgp key for gnutls authentication",
801
{ .name = "pubkey", .key = 'p',
803
.doc = "Public openpgp key for gnutls authentication",
805
{ .name = "dh-bits", .key = 129,
807
.doc = "dh-bits to use in gnutls communication",
809
{ .name = "priority", .key = 130,
811
.doc = "GNUTLS priority", .group = 1 },
816
error_t parse_opt (int key, char *arg,
817
struct argp_state *state) {
818
/* Get the INPUT argument from `argp_parse', which we know is
819
a pointer to our plugin list pointer. */
841
mc.dh_bits = (unsigned int) strtol(arg, NULL, 10);
856
return ARGP_ERR_UNKNOWN;
732
mc.priority = optarg;
861
struct argp argp = { .options = options, .parser = parse_opt,
863
.doc = "Mandos client -- Get and decrypt"
864
" passwords from mandos server" };
865
ret = argp_parse (&argp, argc, argv, 0, 0, NULL);
866
if (ret == ARGP_ERR_UNKNOWN){
867
fprintf(stderr, "Unkown error while parsing arguments\n");
868
exitcode = EXIT_FAILURE;
739
debug = debug_int ? true : false;
741
873
pubkeyfile = combinepath(keydir, pubkeyfile);
742
874
if (pubkeyfile == NULL){
743
875
perror("combinepath");
744
returncode = EXIT_FAILURE;
876
exitcode = EXIT_FAILURE;
748
880
seckeyfile = combinepath(keydir, seckeyfile);
749
881
if (seckeyfile == NULL){
750
882
perror("combinepath");
886
ret = init_gnutls_global(&mc, pubkeyfile, seckeyfile);
888
fprintf(stderr, "init_gnutls_global\n");
891
gnutls_initalized = true;
754
907
if_index = (AvahiIfIndex) if_nametoindex(interface);
763
916
char *address = strrchr(connect_to, ':');
764
917
if(address == NULL){
765
918
fprintf(stderr, "No colon in address\n");
919
exitcode = EXIT_FAILURE;
769
923
uint16_t port = (uint16_t) strtol(address+1, NULL, 10);
771
925
perror("Bad port number");
926
exitcode = EXIT_FAILURE;
775
930
address = connect_to;
776
931
ret = start_mandos_communication(address, port, if_index, &mc);
933
exitcode = EXIT_FAILURE;
935
exitcode = EXIT_SUCCESS;
784
sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
787
returncode = EXIT_FAILURE;
790
strcpy(network.ifr_name, interface); /* Spurious warning */
791
ret = ioctl(sd, SIOCGIFFLAGS, &network);
794
perror("ioctl SIOCGIFFLAGS");
795
returncode = EXIT_FAILURE;
798
if((network.ifr_flags & IFF_UP) == 0){
799
network.ifr_flags |= IFF_UP;
800
ret = ioctl(sd, SIOCSIFFLAGS, &network);
940
/* If the interface is down, bring it up */
942
sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
945
exitcode = EXIT_FAILURE;
948
strcpy(network.ifr_name, interface); /* Spurious warning */
949
ret = ioctl(sd, SIOCGIFFLAGS, &network);
802
perror("ioctl SIOCSIFFLAGS");
803
returncode = EXIT_FAILURE;
951
perror("ioctl SIOCGIFFLAGS");
952
exitcode = EXIT_FAILURE;
955
if((network.ifr_flags & IFF_UP) == 0){
956
network.ifr_flags |= IFF_UP;
957
ret = ioctl(sd, SIOCSIFFLAGS, &network);
959
perror("ioctl SIOCSIFFLAGS");
960
exitcode = EXIT_FAILURE;
810
968
avahi_set_log_function(empty_log);
813
/* Initialize the psuedo-RNG */
971
/* Initialize the pseudo-RNG for Avahi */
814
972
srand((unsigned int) time(NULL));
816
/* Allocate main loop object */
817
if (!(mc.simple_poll = avahi_simple_poll_new())) {
818
fprintf(stderr, "Failed to create simple poll object.\n");
819
returncode = EXIT_FAILURE;
823
/* Do not publish any local records */
824
avahi_server_config_init(&config);
825
config.publish_hinfo = 0;
826
config.publish_addresses = 0;
827
config.publish_workstation = 0;
828
config.publish_domain = 0;
830
/* Allocate a new server */
831
mc.server=avahi_server_new(avahi_simple_poll_get(mc.simple_poll),
832
&config, NULL, NULL, &error);
834
/* Free the configuration data */
835
avahi_server_config_free(&config);
837
/* Check if creating the server object succeeded */
839
fprintf(stderr, "Failed to create server: %s\n",
974
/* Allocate main Avahi loop object */
975
mc.simple_poll = avahi_simple_poll_new();
976
if (mc.simple_poll == NULL) {
977
fprintf(stderr, "Avahi: Failed to create simple poll"
979
exitcode = EXIT_FAILURE;
984
AvahiServerConfig config;
985
/* Do not publish any local Zeroconf records */
986
avahi_server_config_init(&config);
987
config.publish_hinfo = 0;
988
config.publish_addresses = 0;
989
config.publish_workstation = 0;
990
config.publish_domain = 0;
992
/* Allocate a new server */
993
mc.server = avahi_server_new(avahi_simple_poll_get
994
(mc.simple_poll), &config, NULL,
997
/* Free the Avahi configuration data */
998
avahi_server_config_free(&config);
1001
/* Check if creating the Avahi server object succeeded */
1002
if (mc.server == NULL) {
1003
fprintf(stderr, "Failed to create Avahi server: %s\n",
840
1004
avahi_strerror(error));
841
returncode = EXIT_FAILURE;
1005
exitcode = EXIT_FAILURE;
845
/* Create the service browser */
1009
/* Create the Avahi service browser */
846
1010
sb = avahi_s_service_browser_new(mc.server, if_index,
847
1011
AVAHI_PROTO_INET6,
848
1012
"_mandos._tcp", NULL, 0,
849
1013
browse_callback, &mc);
851
1015
fprintf(stderr, "Failed to create service browser: %s\n",
852
1016
avahi_strerror(avahi_server_errno(mc.server)));
853
returncode = EXIT_FAILURE;
1017
exitcode = EXIT_FAILURE;
857
1021
/* Run the main loop */
860
fprintf(stderr, "Starting avahi loop search\n");
1024
fprintf(stderr, "Starting Avahi loop search\n");
863
1027
avahi_simple_poll_loop(mc.simple_poll);
868
1032
fprintf(stderr, "%s exiting\n", argv[0]);
871
1035
/* Cleanup things */
873
1037
avahi_s_service_browser_free(sb);
1039
if (mc.server != NULL)
876
1040
avahi_server_free(mc.server);
1042
if (mc.simple_poll != NULL)
879
1043
avahi_simple_poll_free(mc.simple_poll);
880
1044
free(pubkeyfile);
881
1045
free(seckeyfile);
1047
if (gnutls_initalized){
1048
gnutls_certificate_free_credentials(mc.cred);
1049
gnutls_global_deinit ();