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-2020 Teddy Hogeborn
13
* Copyright © 2008-2020 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;
388
396
fprintf_plus(stderr,
389
397
"Setting system clock to key file mtime");
391
time_t keytime = keystat.st_mtim.tv_sec;
392
if(stime(&keytime) != 0){
393
perror_plus("stime");
399
if(clock_settime(CLOCK_REALTIME, &keystat.st_mtim) != 0){
400
perror_plus("clock_settime");
395
402
ret = lower_privileges();
725
fprintf_plus(stderr, "Attempting to use OpenPGP public key %s and"
726
" secret key %s as GnuTLS credentials\n",
731
fprintf_plus(stderr, "Attempting to use public key %s and"
732
" private key %s as GnuTLS credentials\n",
737
#if GNUTLS_VERSION_NUMBER >= 0x030606
738
ret = gnutls_certificate_set_rawpk_key_file
739
(mc->cred, pubkeyfilename, seckeyfilename,
740
GNUTLS_X509_FMT_PEM, /* format */
743
GNUTLS_KEY_DIGITAL_SIGNATURE | GNUTLS_KEY_KEY_ENCIPHERMENT,
745
0, /* names_length */
747
GNUTLS_PKCS_PLAIN | GNUTLS_PKCS_NULL_PASSWORD,
748
0); /* pkcs11_flags */
749
#elif GNUTLS_VERSION_NUMBER < 0x030600
731
750
ret = gnutls_certificate_set_openpgp_key_file
732
751
(mc->cred, pubkeyfilename, seckeyfilename,
733
752
GNUTLS_OPENPGP_FMT_BASE64);
754
#error "Needs GnuTLS 3.6.6 or later, or before 3.6.0"
734
756
if(ret != GNUTLS_E_SUCCESS){
735
757
fprintf_plus(stderr,
736
"Error[%d] while reading the OpenPGP key pair ('%s',"
758
"Error[%d] while reading the key pair ('%s',"
737
759
" '%s')\n", ret, pubkeyfilename, seckeyfilename);
738
760
fprintf_plus(stderr, "The GnuTLS error is: %s\n",
739
761
safer_gnutls_strerror(ret));
811
833
if(dhparamsfilename == NULL){
812
834
if(mc->dh_bits == 0){
835
#if GNUTLS_VERSION_NUMBER < 0x030600
813
836
/* Find out the optimal number of DH bits */
814
837
/* Try to read the private key file */
815
838
gnutls_datum_t buffer = { .data = NULL, .size = 0 };
913
936
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));
940
} else { /* dh_bits != 0 */
942
fprintf_plus(stderr, "DH bits explicitly set to %u\n",
945
ret = gnutls_dh_params_generate2(mc->dh_params, mc->dh_bits);
946
if(ret != GNUTLS_E_SUCCESS){
947
fprintf_plus(stderr, "Error in GnuTLS prime generation (%u"
948
" bits): %s\n", mc->dh_bits,
949
safer_gnutls_strerror(ret));
952
gnutls_certificate_set_dh_params(mc->cred, mc->dh_params);
928
gnutls_certificate_set_dh_params(mc->cred, mc->dh_params);
943
969
/* GnuTLS session creation */
945
ret = gnutls_init(session, GNUTLS_SERVER);
971
ret = gnutls_init(session, (GNUTLS_SERVER
972
#if GNUTLS_VERSION_NUMBER >= 0x030506
975
#if GNUTLS_VERSION_NUMBER >= 0x030606
976
| GNUTLS_ENABLE_RAWPK
1047
1081
ret = setgroups(0, NULL);
1049
1083
perror_plus("setgroups");
1050
1085
_exit(EX_NOPERM);
1053
1088
ret = dup2(devnull, STDIN_FILENO);
1055
1090
perror_plus("dup2(devnull, STDIN_FILENO)");
1056
1092
_exit(EX_OSERR);
1058
1094
ret = close(devnull);
1060
1096
perror_plus("close");
1063
1098
ret = dup2(STDERR_FILENO, STDOUT_FILENO);
2428
2468
int main(int argc, char *argv[]){
2429
2469
mandos_context mc = { .server = NULL, .dh_bits = 0,
2470
#if GNUTLS_VERSION_NUMBER >= 0x030606
2471
.priority = "SECURE128:!CTYPE-X.509"
2472
":+CTYPE-RAWPK:!RSA:!VERS-ALL:+VERS-TLS1.3"
2474
#elif GNUTLS_VERSION_NUMBER < 0x030600
2430
2475
.priority = "SECURE256:!CTYPE-X.509"
2431
2476
":+CTYPE-OPENPGP:!RSA:+SIGN-DSA-SHA256",
2478
#error "Needs GnuTLS 3.6.6 or later, or before 3.6.0"
2432
2480
.current_server = NULL, .interfaces = NULL,
2433
2481
.interfaces_size = 0 };
2434
2482
AvahiSServiceBrowser *sb = NULL;
2445
2493
AvahiIfIndex if_index = AVAHI_IF_UNSPEC;
2446
2494
const char *seckey = PATHDIR "/" SECKEY;
2447
2495
const char *pubkey = PATHDIR "/" PUBKEY;
2496
#if GNUTLS_VERSION_NUMBER >= 0x030606
2497
const char *tls_privkey = PATHDIR "/" TLS_PRIVKEY;
2498
const char *tls_pubkey = PATHDIR "/" TLS_PUBKEY;
2448
2500
const char *dh_params_file = NULL;
2449
2501
char *interfaces_hooks = NULL;
2498
2550
{ .name = "pubkey", .key = 'p',
2500
2552
.doc = "OpenPGP public key file base name",
2554
{ .name = "tls-privkey", .key = 't',
2556
#if GNUTLS_VERSION_NUMBER >= 0x030606
2557
.doc = "TLS private key file base name",
2559
.doc = "Dummy; ignored (requires GnuTLS 3.6.6)",
2562
{ .name = "tls-pubkey", .key = 'T',
2564
#if GNUTLS_VERSION_NUMBER >= 0x030606
2565
.doc = "TLS public key file base name",
2567
.doc = "Dummy; ignored (requires GnuTLS 3.6.6)",
2502
2570
{ .name = "dh-bits", .key = 129,
2504
2572
.doc = "Bit length of the prime number used in the"
2560
2628
case 'p': /* --pubkey */
2631
case 't': /* --tls-privkey */
2632
#if GNUTLS_VERSION_NUMBER >= 0x030606
2636
case 'T': /* --tls-pubkey */
2637
#if GNUTLS_VERSION_NUMBER >= 0x030606
2563
2641
case 129: /* --dh-bits */
2565
2643
tmpmax = strtoimax(arg, &tmp, 10);
2600
2678
argp_state_help(state, state->out_stream,
2601
2679
(ARGP_HELP_STD_HELP | ARGP_HELP_EXIT_ERR)
2602
2680
& ~(unsigned int)ARGP_HELP_EXIT_OK);
2681
__builtin_unreachable();
2603
2682
case -3: /* --usage */
2604
2683
argp_state_help(state, state->out_stream,
2605
2684
ARGP_HELP_USAGE | ARGP_HELP_EXIT_ERR);
2685
__builtin_unreachable();
2606
2686
case 'V': /* --version */
2607
2687
fprintf_plus(state->out_stream, "%s\n", argp_program_version);
2608
2688
exit(argp_err_exit_status);
3002
#if GNUTLS_VERSION_NUMBER >= 0x030606
3003
ret = init_gnutls_global(tls_pubkey, tls_privkey, dh_params_file, &mc);
3004
#elif GNUTLS_VERSION_NUMBER < 0x030600
2922
3005
ret = init_gnutls_global(pubkey, seckey, dh_params_file, &mc);
3007
#error "Needs GnuTLS 3.6.6 or later, or before 3.6.0"
2924
3010
fprintf_plus(stderr, "init_gnutls_global failed\n");
2925
3011
exitcode = EX_UNAVAILABLE;