9
9
* "browse_callback", and parts of "main".
11
11
* Everything else is
12
* Copyright © 2008-2018 Teddy Hogeborn
13
* Copyright © 2008-2018 Björn Påhlsson
12
* Copyright © 2008-2019 Teddy Hogeborn
13
* Copyright © 2008-2019 Björn Påhlsson
15
15
* This file is part of Mandos.
124
124
init_gnutls_session(),
126
#if GNUTLS_VERSION_NUMBER < 0x030600
126
127
#include <gnutls/openpgp.h>
127
128
/* gnutls_certificate_set_openpgp_key_file(),
128
129
GNUTLS_OPENPGP_FMT_BASE64 */
130
#elif GNUTLS_VERSION_NUMBER >= 0x030606
131
#include <gnutls/x509.h> /* gnutls_pkcs_encrypt_flags_t,
133
GNUTLS_PKCS_NULL_PASSWORD */
131
137
#include <gpgme.h> /* All GPGME types, constants and
139
145
#define PATHDIR "/conf/conf.d/mandos"
140
146
#define SECKEY "seckey.txt"
141
147
#define PUBKEY "pubkey.txt"
148
#define TLS_PRIVKEY "tls-privkey.pem"
149
#define TLS_PUBKEY "tls-pubkey.pem"
142
150
#define HOOKDIR "/lib/mandos/network-hooks.d"
144
152
bool debug = false;
725
fprintf_plus(stderr, "Attempting to use OpenPGP public key %s and"
726
" secret key %s as GnuTLS credentials\n",
732
fprintf_plus(stderr, "Attempting to use public key %s and"
733
" private key %s as GnuTLS credentials\n",
738
#if GNUTLS_VERSION_NUMBER >= 0x030606
739
ret = gnutls_certificate_set_rawpk_key_file
740
(mc->cred, pubkeyfilename, seckeyfilename,
741
GNUTLS_X509_FMT_PEM, /* format */
744
GNUTLS_KEY_DIGITAL_SIGNATURE | GNUTLS_KEY_KEY_ENCIPHERMENT,
746
0, /* names_length */
748
GNUTLS_PKCS_PLAIN | GNUTLS_PKCS_NULL_PASSWORD,
749
0); /* pkcs11_flags */
750
#elif GNUTLS_VERSION_NUMBER < 0x030600
731
751
ret = gnutls_certificate_set_openpgp_key_file
732
752
(mc->cred, pubkeyfilename, seckeyfilename,
733
753
GNUTLS_OPENPGP_FMT_BASE64);
755
#error "Needs GnuTLS 3.6.6 or later, or before 3.6.0"
734
757
if(ret != GNUTLS_E_SUCCESS){
735
758
fprintf_plus(stderr,
736
"Error[%d] while reading the OpenPGP key pair ('%s',"
759
"Error[%d] while reading the key pair ('%s',"
737
760
" '%s')\n", ret, pubkeyfilename, seckeyfilename);
738
761
fprintf_plus(stderr, "The GnuTLS error is: %s\n",
739
762
safer_gnutls_strerror(ret));
811
834
if(dhparamsfilename == NULL){
812
835
if(mc->dh_bits == 0){
836
#if GNUTLS_VERSION_NUMBER < 0x030600
813
837
/* Find out the optimal number of DH bits */
814
838
/* Try to read the private key file */
815
839
gnutls_datum_t buffer = { .data = NULL, .size = 0 };
913
937
safer_gnutls_strerror(ret));
917
fprintf_plus(stderr, "DH bits explicitly set to %u\n",
920
ret = gnutls_dh_params_generate2(mc->dh_params, mc->dh_bits);
921
if(ret != GNUTLS_E_SUCCESS){
922
fprintf_plus(stderr, "Error in GnuTLS prime generation (%u"
923
" bits): %s\n", mc->dh_bits,
924
safer_gnutls_strerror(ret));
941
} else { /* dh_bits != 0 */
943
fprintf_plus(stderr, "DH bits explicitly set to %u\n",
946
ret = gnutls_dh_params_generate2(mc->dh_params, mc->dh_bits);
947
if(ret != GNUTLS_E_SUCCESS){
948
fprintf_plus(stderr, "Error in GnuTLS prime generation (%u"
949
" bits): %s\n", mc->dh_bits,
950
safer_gnutls_strerror(ret));
953
gnutls_certificate_set_dh_params(mc->cred, mc->dh_params);
928
gnutls_certificate_set_dh_params(mc->cred, mc->dh_params);
943
970
/* GnuTLS session creation */
945
ret = gnutls_init(session, GNUTLS_SERVER);
972
ret = gnutls_init(session, (GNUTLS_SERVER
973
#if GNUTLS_VERSION_NUMBER >= 0x030506
976
#if GNUTLS_VERSION_NUMBER >= 0x030606
977
| GNUTLS_ENABLE_RAWPK
1047
1082
ret = setgroups(0, NULL);
1049
1084
perror_plus("setgroups");
1050
1086
_exit(EX_NOPERM);
1053
1089
ret = dup2(devnull, STDIN_FILENO);
1055
1091
perror_plus("dup2(devnull, STDIN_FILENO)");
1056
1093
_exit(EX_OSERR);
1058
1095
ret = close(devnull);
1060
1097
perror_plus("close");
1063
1099
ret = dup2(STDERR_FILENO, STDOUT_FILENO);
2428
2469
int main(int argc, char *argv[]){
2429
2470
mandos_context mc = { .server = NULL, .dh_bits = 0,
2471
#if GNUTLS_VERSION_NUMBER >= 0x030606
2472
.priority = "SECURE128:!CTYPE-X.509"
2473
":+CTYPE-RAWPK:!RSA:!VERS-ALL:+VERS-TLS1.3"
2475
#elif GNUTLS_VERSION_NUMBER < 0x030600
2430
2476
.priority = "SECURE256:!CTYPE-X.509"
2431
2477
":+CTYPE-OPENPGP:!RSA:+SIGN-DSA-SHA256",
2479
#error "Needs GnuTLS 3.6.6 or later, or before 3.6.0"
2432
2481
.current_server = NULL, .interfaces = NULL,
2433
2482
.interfaces_size = 0 };
2434
2483
AvahiSServiceBrowser *sb = NULL;
2445
2494
AvahiIfIndex if_index = AVAHI_IF_UNSPEC;
2446
2495
const char *seckey = PATHDIR "/" SECKEY;
2447
2496
const char *pubkey = PATHDIR "/" PUBKEY;
2497
#if GNUTLS_VERSION_NUMBER >= 0x030606
2498
const char *tls_privkey = PATHDIR "/" TLS_PRIVKEY;
2499
const char *tls_pubkey = PATHDIR "/" TLS_PUBKEY;
2448
2501
const char *dh_params_file = NULL;
2449
2502
char *interfaces_hooks = NULL;
2498
2551
{ .name = "pubkey", .key = 'p',
2500
2553
.doc = "OpenPGP public key file base name",
2555
{ .name = "tls-privkey", .key = 't',
2557
#if GNUTLS_VERSION_NUMBER >= 0x030606
2558
.doc = "TLS private key file base name",
2560
.doc = "Dummy; ignored (requires GnuTLS 3.6.6)",
2563
{ .name = "tls-pubkey", .key = 'T',
2565
#if GNUTLS_VERSION_NUMBER >= 0x030606
2566
.doc = "TLS public key file base name",
2568
.doc = "Dummy; ignored (requires GnuTLS 3.6.6)",
2502
2571
{ .name = "dh-bits", .key = 129,
2504
2573
.doc = "Bit length of the prime number used in the"
2560
2629
case 'p': /* --pubkey */
2632
case 't': /* --tls-privkey */
2633
#if GNUTLS_VERSION_NUMBER >= 0x030606
2637
case 'T': /* --tls-pubkey */
2638
#if GNUTLS_VERSION_NUMBER >= 0x030606
2563
2642
case 129: /* --dh-bits */
2565
2644
tmpmax = strtoimax(arg, &tmp, 10);
2600
2679
argp_state_help(state, state->out_stream,
2601
2680
(ARGP_HELP_STD_HELP | ARGP_HELP_EXIT_ERR)
2602
2681
& ~(unsigned int)ARGP_HELP_EXIT_OK);
2682
__builtin_unreachable();
2603
2683
case -3: /* --usage */
2604
2684
argp_state_help(state, state->out_stream,
2605
2685
ARGP_HELP_USAGE | ARGP_HELP_EXIT_ERR);
2686
__builtin_unreachable();
2606
2687
case 'V': /* --version */
2607
2688
fprintf_plus(state->out_stream, "%s\n", argp_program_version);
2608
2689
exit(argp_err_exit_status);
3003
#if GNUTLS_VERSION_NUMBER >= 0x030606
3004
ret = init_gnutls_global(tls_pubkey, tls_privkey, dh_params_file, &mc);
3005
#elif GNUTLS_VERSION_NUMBER < 0x030600
2922
3006
ret = init_gnutls_global(pubkey, seckey, dh_params_file, &mc);
3008
#error "Needs GnuTLS 3.6.6 or later, or before 3.6.0"
2924
3011
fprintf_plus(stderr, "init_gnutls_global failed\n");
2925
3012
exitcode = EX_UNAVAILABLE;