tests/openpgpself.c

   1 /*
   2  * Copyright (C) 2004-2012 Free Software Foundation, Inc.
   3  * Copyright (C) 2013 Adam Sampson <ats@offog.org>
   4  *
   5  * Author: Simon Josefsson
   6  *
   7  * This file is part of GnuTLS.
   8  *
   9  * GnuTLS is free software; you can redistribute it and/or modify it
  10  * under the terms of the GNU General Public License as published by
  11  * the Free Software Foundation; either version 3 of the License, or
  12  * (at your option) any later version.
  13  *
  14  * GnuTLS is distributed in the hope that it will be useful, but
  15  * WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17  * General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU General Public License
  20  * along with GnuTLS; if not, write to the Free Software Foundation,
  21  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
  22  */
  23
  24 /* Parts copied from GnuTLS example programs. */
  25
  26 #ifdef HAVE_CONFIG_H
  27 #include <config.h>
  28 #endif
  29
  30 #include <stdio.h>
  31 #include <stdlib.h>
  32
  33 #if defined(_WIN32)
  34
  35 /* socketpair isn't supported on Win32. */
  36 int main(int argc, char **argv)
  37 {
  38         exit(77);
  39 }
  40
  41 #else
  42
  43 #include <string.h>
  44 #include <sys/types.h>
  45 #include <sys/socket.h>
  46 #if !defined(_WIN32)
  47 #include <sys/wait.h>
  48 #endif
  49 #include <unistd.h>
  50 #include <gnutls/gnutls.h>
  51 #include <gnutls/openpgp.h>
  52
  53 #include "utils.h"
  54
  55 #include "ex-session-info.c"
  56 #include "ex-x509-info.c"
  57
  58 pid_t child;
  59
  60 static void tls_log_func(int level, const char *str)
  61 {
  62         fprintf(stderr, "%s |<%d>| %s", child ? "server" : "client", level,
  63                 str);
  64 }
  65
  66 /* A very basic TLS client, with anonymous authentication.
  67  */
  68
  69 #define SESSIONS 2
  70 #define MAX_BUF 1024
  71 #define MSG "Hello TLS"
  72
  73 static unsigned char cert_txt[] =
  74     "-----BEGIN PGP PUBLIC KEY BLOCK-----\n"
  75     "Version: GnuPG v1.4.10 (GNU/Linux)\n"
  76     "Comment: Test key for GnuTLS\n"
  77     "\n"
  78     "mI0ETYD2OQEEAMHmDBtJii82NbWuYcvEWCYnwa7GTcz2PYikYCcq/t5nkyb5Bfmx\n"
  79     "mh2hpto7Lr5d1L/shvab1gXCcrWEAREgNNk9LiowtLuTHBdeOFlJ1u1P1rvdFVKq\n"
  80     "2a6ft77Q5VltUDKPgTqz4NWH2KUlLfTvwJDnq2DxYsbwVpBDURuUocXhABEBAAG0\n"
  81     "CVRlc3QgdXNlcoi4BBMBAgAiBQJNgPY5AhsvBgsJCAcDAgYVCAIJCgsEFgIDAQIe\n"
  82     "AQIXgAAKCRAMTrFUBnAKMOVDA/9GEw7AokwJSGvHREriXcvMMKp6c6SYqa0TVsTg\n"
  83     "Gh3ENu/KTfGJIM5p+zR6xy+5u5DfP5qLrRdCnoczncR5w9fn3RsP8ju/Ga5z23Q+\n"
  84     "6XxRKRkXjE/E0ZFulbuaBom/nhrOmmfqKe7Mor9Y4QwzL2wL3sf6jWLglwdFYS/X\n"
  85     "W3wqjLkBogRNgPY5EQQApafdUhCAHj8LLXYCqOXRSPZbKzvB55NwWrdvnod0seUW\n"
  86     "aiTSWBlKnSvIomdcII/E3bjdngK4fTJ+Xr5pEJuzBnW3w787r6jBJSq2Lp0T9SP4\n"
  87     "CBzd0gXcOQkILvX1VzxAsYVULJA0mhAR3IHFcywjX6ENKuvs7ApniBNoXqi6d3cA\n"
  88     "oIAzYKrjyZ+guM4IUlRRrB8abx5vBACJPV+d15GYgzt1d8zLvOl/mzs85Twj2SB1\n"
  89     "ZqzK6H/6QxQkEZpP/UVFpXaUGUly3nGEqg1yw4cgqW4SSxgLFz6B23Si+cTsssE6\n"
  90     "CYziN1UI6NjxkoG/npMm0wRp7Z+KylEolAdbFBAAprORkt58CrGgpYe8O/35+PWc\n"
  91     "J9rjhwxxkQP/VCpbZLugkL4XHWGWFGG35S6k9F3xPPTPoX9Zoud+0bOeoOK5RQHo\n"
  92     "e99sVNN4hxxPTM/rJXfTTZUoB6o84yulTSxb6C9ueHotDV0eB9QX1ov/ltmwy3XS\n"
  93     "fXEyWtI0CDBuZgEww26Up0pzg4XTBYMkmXrxx3J9ihcCIYyAHoE13EWI5wQYAQIA\n"
  94     "CQUCTYD2OQIbIgBSCRAMTrFUBnAKMEcgBBkRAgAGBQJNgPY5AAoJEPMP1CPBQ+e6\n"
  95     "3fQAnR7HWLnQTbxCIhlBTZiuJv2HC6cbAJwJ6VsSU6ADCkMuGT3LLNo+UnckK+4i\n"
  96     "BACcivWsW40ddtEQ0wno1uP65TmKq3aJrdODXTAnqkmNQKL7X7Fz+nmEWiS+LBH8\n"
  97     "lRvAaeRPX2LV+DCJDbAPrYd7LkOHyuM0I+ZApto5cjem/EnO7op2QwkCCa6oUp0l\n"
  98     "YA6i6aGF2KGx7WQwi2URIMPhihpOvAbkjfszYpFL4VP5wQ==\n"
  99     "=ydIq\n" "-----END PGP PUBLIC KEY BLOCK-----\n";
 100
 101 const gnutls_datum_t cert = { cert_txt, sizeof(cert_txt) };
 102
 103 static unsigned char key_txt[] =
 104     "-----BEGIN PGP PRIVATE KEY BLOCK-----\n"
 105     "Version: GnuPG v1.4.10 (GNU/Linux)\n"
 106     "Comment: Test key for GnuTLS\n"
 107     "\n"
 108     "lQHYBE2A9jkBBADB5gwbSYovNjW1rmHLxFgmJ8Guxk3M9j2IpGAnKv7eZ5Mm+QX5\n"
 109     "sZodoabaOy6+XdS/7Ib2m9YFwnK1hAERIDTZPS4qMLS7kxwXXjhZSdbtT9a73RVS\n"
 110     "qtmun7e+0OVZbVAyj4E6s+DVh9ilJS3078CQ56tg8WLG8FaQQ1EblKHF4QARAQAB\n"
 111     "AAP9HJePsXZmqg+UW/Ya9bE+TmIObXdQgajN6hhTFXOBocokKNsPxoIp97Sepg+U\n"
 112     "FP5BIQv/2t2f8bl6sMmGXsAhCqVzRxGuA+9USx8OfTHSdgIKT5T2VFSGJaU4df3Q\n"
 113     "rstUY3dcvl6VKpDDZic1T7u2ANzaWM2u+pwooKC4cc/k9AECAMNDvrKF3FC7R9sd\n"
 114     "TagVrrfde0RZuwhbGW9ghslkY893EelXQL/lbBI20crPdrsdDpMe370KO2bQLqwO\n"
 115     "HGAxIYUCAP41iC7KReYvysLZ34tM55ZFE7BPsMcXUeu6hkYOMDZYvE+x4KV6Umo+\n"
 116     "Civd4qD9dESR3WOcI9MwALUdNTxQU60B/21MrWjajY1m1vv7l2slJon5eSrH6BkH\n"
 117     "Aj173uZca8HbgqSF1xOQW8ZGa6KInN3wHe+vPOXAgzlku/4XHgEYVVGeq7QJVGVz\n"
 118     "dCB1c2VyiLgEEwECACIFAk2A9jkCGy8GCwkIBwMCBhUIAgkKCwQWAgMBAh4BAheA\n"
 119     "AAoJEAxOsVQGcAow5UMD/0YTDsCiTAlIa8dESuJdy8wwqnpzpJiprRNWxOAaHcQ2\n"
 120     "78pN8Ykgzmn7NHrHL7m7kN8/moutF0KehzOdxHnD1+fdGw/yO78ZrnPbdD7pfFEp\n"
 121     "GReMT8TRkW6Vu5oGib+eGs6aZ+op7syiv1jhDDMvbAvex/qNYuCXB0VhL9dbfCqM\n"
 122     "nQG7BE2A9jkRBAClp91SEIAePwstdgKo5dFI9lsrO8Hnk3Bat2+eh3Sx5RZqJNJY\n"
 123     "GUqdK8iiZ1wgj8TduN2eArh9Mn5evmkQm7MGdbfDvzuvqMElKrYunRP1I/gIHN3S\n"
 124     "Bdw5CQgu9fVXPECxhVQskDSaEBHcgcVzLCNfoQ0q6+zsCmeIE2heqLp3dwCggDNg\n"
 125     "quPJn6C4zghSVFGsHxpvHm8EAIk9X53XkZiDO3V3zMu86X+bOzzlPCPZIHVmrMro\n"
 126     "f/pDFCQRmk/9RUWldpQZSXLecYSqDXLDhyCpbhJLGAsXPoHbdKL5xOyywToJjOI3\n"
 127     "VQjo2PGSgb+ekybTBGntn4rKUSiUB1sUEACms5GS3nwKsaClh7w7/fn49Zwn2uOH\n"
 128     "DHGRA/9UKltku6CQvhcdYZYUYbflLqT0XfE89M+hf1mi537Rs56g4rlFAeh732xU\n"
 129     "03iHHE9Mz+sld9NNlSgHqjzjK6VNLFvoL254ei0NXR4H1BfWi/+W2bDLddJ9cTJa\n"
 130     "0jQIMG5mATDDbpSnSnODhdMFgySZevHHcn2KFwIhjIAegTXcRQAAn2PK9kOqhjOJ\n"
 131     "KU5iaagnF176FwhdCO2I5wQYAQIACQUCTYD2OQIbIgBSCRAMTrFUBnAKMEcgBBkR\n"
 132     "AgAGBQJNgPY5AAoJEPMP1CPBQ+e63fQAniK5kU+dwIbkD+OHJHkC73V6v4D8AJ0Z\n"
 133     "+GBYj4nhKEX21QXfj55F3Zpg1e4iBACcivWsW40ddtEQ0wno1uP65TmKq3aJrdOD\n"
 134     "XTAnqkmNQKL7X7Fz+nmEWiS+LBH8lRvAaeRPX2LV+DCJDbAPrYd7LkOHyuM0I+ZA\n"
 135     "pto5cjem/EnO7op2QwkCCa6oUp0lYA6i6aGF2KGx7WQwi2URIMPhihpOvAbkjfsz\n"
 136     "YpFL4VP5wQ==\n" "=zzoN\n" "-----END PGP PRIVATE KEY BLOCK-----\n";
 137
 138 const gnutls_datum_t key = { key_txt, sizeof(key_txt) };
 139
 140
 141 static void client(int sds[])
 142 {
 143         int ret, ii, j;
 144         gnutls_session_t session;
 145         char buffer[MAX_BUF + 1];
 146         gnutls_certificate_credentials_t xcred;
 147
 148         global_init();
 149
 150         gnutls_global_set_log_function(tls_log_func);
 151         if (debug)
 152                 gnutls_global_set_log_level(9);
 153
 154         gnutls_certificate_allocate_credentials(&xcred);
 155
 156         /* sets the trusted cas file
 157          */
 158         if (debug)
 159                 success("Setting key files...\n");
 160
 161         ret = gnutls_certificate_set_openpgp_key_mem(xcred, &cert, &key,
 162                                                      GNUTLS_OPENPGP_FMT_BASE64);
 163         if (ret < 0) {
 164                 fail("Could not set key files...\n");
 165                 return;
 166         }
 167
 168         for (j = 0; j < SESSIONS; j++) {
 169                 int sd = sds[j];
 170
 171                 /* Initialize TLS session
 172                  */
 173                 gnutls_init(&session, GNUTLS_CLIENT);
 174
 175                 /* Use default priorities */
 176                 gnutls_priority_set_direct(session,
 177                                            "NORMAL:+CTYPE-OPENPGP:+DHE-DSS:+DHE-DSS:+SIGN-DSA-SHA1:+SIGN-DSA-SHA256", NULL);
 178
 179                 /* put the x509 credentials to the current session
 180                  */
 181                 gnutls_credentials_set(session, GNUTLS_CRD_CERTIFICATE,
 182                                        xcred);
 183
 184                 gnutls_transport_set_int(session, sd);
 185
 186                 /* Perform the TLS handshake
 187                  */
 188                 ret = gnutls_handshake(session);
 189
 190                 if (ret < 0) {
 191                         fail("client: Handshake %d failed\n", j);
 192                         gnutls_perror(ret);
 193                         goto end;
 194                 } else if (debug) {
 195                         success("client: Handshake %d was completed\n", j);
 196                 }
 197
 198                 if (debug)
 199                         success("client: TLS version is: %s\n",
 200                                 gnutls_protocol_get_name
 201                                 (gnutls_protocol_get_version(session)));
 202
 203                 /* see the Getting peer's information example */
 204                 if (debug)
 205                         print_info(session);
 206
 207                 gnutls_record_send(session, MSG, strlen(MSG));
 208
 209                 ret = gnutls_record_recv(session, buffer, MAX_BUF);
 210                 if (ret == 0) {
 211                         if (debug)
 212                                 success
 213                                     ("client: Peer has closed the TLS connection\n");
 214                         goto end;
 215                 } else if (ret < 0) {
 216                         fail("client: Error: %s\n", gnutls_strerror(ret));
 217                         goto end;
 218                 }
 219
 220                 if (debug) {
 221                         printf("- Received %d bytes: ", ret);
 222                         for (ii = 0; ii < ret; ii++) {
 223                                 fputc(buffer[ii], stdout);
 224                         }
 225                         fputs("\n", stdout);
 226                 }
 227
 228                 gnutls_bye(session, GNUTLS_SHUT_RDWR);
 229
 230                 close(sd);
 231
 232                 gnutls_deinit(session);
 233
 234         }
 235
 236       end:
 237
 238         gnutls_certificate_free_credentials(xcred);
 239
 240         gnutls_global_deinit();
 241 }
 242
 243 /* This is a sample TLS 1.0 echo server, using X.509 authentication.
 244  */
 245
 246 #define MAX_BUF 1024
 247 #define DH_BITS 1024
 248
 249 /* These are global */
 250 gnutls_certificate_credentials_t pgp_cred;
 251
 252 static gnutls_session_t initialize_tls_session(void)
 253 {
 254         gnutls_session_t session;
 255
 256         gnutls_init(&session, GNUTLS_SERVER);
 257
 258         /* avoid calling all the priority functions, since the defaults
 259          * are adequate.
 260          */
 261         gnutls_priority_set_direct(session, "NORMAL:+CTYPE-OPENPGP:+DHE-DSS:+SIGN-DSA-SHA1:+SIGN-DSA-SHA256", NULL);
 262
 263         gnutls_credentials_set(session, GNUTLS_CRD_CERTIFICATE, pgp_cred);
 264
 265         /* request client certificate if any.
 266          */
 267         gnutls_certificate_server_set_request(session,
 268                                               GNUTLS_CERT_REQUEST);
 269
 270         gnutls_dh_set_prime_bits(session, DH_BITS);
 271
 272         return session;
 273 }
 274
 275 static gnutls_dh_params_t dh_params;
 276
 277 static int generate_dh_params(void)
 278 {
 279         const gnutls_datum_t p3 = { (void *) pkcs3, strlen(pkcs3) };
 280         /* Generate Diffie-Hellman parameters - for use with DHE
 281          * kx algorithms. These should be discarded and regenerated
 282          * once a day, once a week or once a month. Depending on the
 283          * security requirements.
 284          */
 285         gnutls_dh_params_init(&dh_params);
 286         return gnutls_dh_params_import_pkcs3(dh_params, &p3,
 287                                              GNUTLS_X509_FMT_PEM);
 288 }
 289
 290 int err, ret;
 291 char topbuf[512];
 292 gnutls_session_t session;
 293 char buffer[MAX_BUF + 1];
 294 int optval = 1;
 295
 296 static unsigned char server_crt_txt[] =
 297     "-----BEGIN PGP PUBLIC KEY BLOCK-----\n"
 298     "Version: GnuPG v1.4.6 (GNU/Linux)\n"
 299     "\n"
 300     "mNEER2PogwEGINdIR4u5PR4SwADWwj/ztgtoi7XVbmlfbQTHpBYFxTSC88pISSNy\n"
 301     "V/rgnlqunYP77F7aHL4KUReN3v9sKw01xSGEfox/JmlqUUg6CVvTjdeLfkuVIBnH\n"
 302     "j+2KMlaxezp7IxtPaTXpXcSf8iOuVq7UX7p6tKbppKXO5GgmfA88VUVvGBs1/PQp\n"
 303     "WKQdGrj+6I3RRmDN/hna1jGU/N23230Hbx+bu7g9cviiSh10ri7rdDhVJ67tRkRG\n"
 304     "Usy3XO6dWC7EmzZlEO8AEQEAAbQQdGVzdDMuZ251dGxzLm9yZ4kBAAQTAQIAJgUC\n"
 305     "R2PogwIbAwUJCWYBgAYLCQgHAwIEFQIIAwQWAgMBAh4BAheAAAoJEKAh4/gImZBR\n"
 306     "96QGH3E3zynETuQS3++hGMvMXq2mDJeT2e8964y/ifIOBpr2K2isuLYnrtGKyxi+\n"
 307     "ZptyHv6ymR3bDvio50cjnoT/WK1onosOJvtijGBS+U/ooq3im7ExpeQYXc/zpYsX\n"
 308     "OmB5m6BvdomUp2PMqdxsmOPoaRkSYx5R2Rlo/z3csodl6sp3k465Y/jg7L4gkxDz\n"
 309     "XJM+CS1xMhcOF0gBhppqLnG67x0ow847Pydstzkw0sOqedkLPuScaHNnlAWQ7QH6\n"
 310     "mbbpqHJwekS4jQRHiKV8AQQA0iZ81WXypLI4ZE2+hYfBCnfMVfQF/vPgvASxhwri\n"
 311     "GDa9Zc2f/VfakfNiwZgHH6iCeppHBiP2jljnbuOsL6f1R+0FsnyTVwHbuEU7IU2y\n"
 312     "+J0/s0z3wcx9sx8T7brP5z5F2hdagBsD9YFGCifHDAEew4mmAisY0i2QHVIuXJFj\n"
 313     "4RMAEQEAAYkBhwQYAQIADwUCR4ilfAIbAgUJEOrPgACoCRCgIeP4CJmQUZ0gBBkB\n"
 314     "AgAGBQJHiKV8AAoJEIN7b7QuD+F2AEcEAKAjhO9kSOE8UuwEOKlwsWL9LUUSkHJj\n"
 315     "c/ca0asLAerzrHsldRAcwCbWkVxBBHySw2CLFjzpgdXhwRtsytMgHaapfAPbinAW\n"
 316     "jCPIEJx2gDZeZnTgi4DVbZn5E3UzHGyL69MEoXr5t+vpiemQFd/nGD+h/Q2A76od\n"
 317     "gvAryRvS1Soj8bcGHjUflayXGOSvaD8P2V5Vz0hS82QZcqWxD8qUBqbcB8atokmO\n"
 318     "IYxhKyRmO58T5Ma+iaxBTUIwee+pBYDgdH6E2dh9xLlwwzZKaCcIRCQcObkLsMVo\n"
 319     "fZJo+m0Xf8zI57NeQF+hXJhW7lIrWgQVr8IVp/lgo76acLHfL/t1n0Nhg4r2srz2\n"
 320     "fpP2w5laQ0qImYLnZhGFHU+rJUyFaHfhD8/svN2LuZkO570pjV/K68EaHnEfk5b8\n"
 321     "jWu/euohwcCwf20M1kTo3Bg=\n"
 322     "=Xjon\n" "-----END PGP PUBLIC KEY BLOCK-----\n";
 323 const gnutls_datum_t server_crt =
 324     { server_crt_txt, sizeof(server_crt_txt) };
 325
 326 static unsigned char server_key_txt[] =
 327     "-----BEGIN PGP PRIVATE KEY BLOCK-----\n"
 328     "Version: GnuPG v1.4.6 (GNU/Linux)\n"
 329     "\n"
 330     "lQLGBEdj6IMBBiDXSEeLuT0eEsAA1sI/87YLaIu11W5pX20Ex6QWBcU0gvPKSEkj\n"
 331     "clf64J5arp2D++xe2hy+ClEXjd7/bCsNNcUhhH6MfyZpalFIOglb043Xi35LlSAZ\n"
 332     "x4/tijJWsXs6eyMbT2k16V3En/Ijrlau1F+6erSm6aSlzuRoJnwPPFVFbxgbNfz0\n"
 333     "KVikHRq4/uiN0UZgzf4Z2tYxlPzdt9t9B28fm7u4PXL4okoddK4u63Q4VSeu7UZE\n"
 334     "RlLMt1zunVguxJs2ZRDvABEBAAEABhwMx6crpb75ko5gXl9gsYSMj9O/YyCvU7Fi\n"
 335     "l8FnZ0dKMz3qs7jXyFlttLjh1DzYkXN6PAN5yp3+wnbK/e5eVeNSdo2WpJOwrVWO\n"
 336     "7pcQovHoKklAjmU98olaRhpv6BBTK+0tGUFaRrmrrYuz2xnwf3+kIpt4ahYW2dr9\n"
 337     "B+/pvBSVC/sv2+3PEQSsXlWCYVgkQ7WBN4GQdyjjxhQpcWdf8Z6unx4zuS3s7GGM\n"
 338     "4WaDxmDNCFlTGdrKPQeogtS3LVF9OiRCOvIlAxDmDvnC3zAwO/IvDUHFED9x9hmK\n"
 339     "MeVwCg8rwDMptVYN2hm+bjNzjV4pimUVd+w7edjEky0Jd/6tTH01CBUWxs9Pfup2\n"
 340     "cQ9zkYcVz1bwcoqeyRzFCJgi6PiVT38QFEvyusoVkwMQ747D6p7y+R52MEcIvcLb\n"
 341     "lBXhRviz3rW+Sch4+ohUPvBU41saM5B6UcOmhdPfdvPriI4qXwFxusGWt98NN3aW\n"
 342     "Ns2/L9kMX/SWnN6Elfj5hrrExDZ2CE60uuvfj+O/uXfO8LUDENE4vQrC399KLbJw\n"
 343     "uCaqjqLysYA9EY/Nv8RFGkk1UM4ViW8v1/95D95F9WqochSYH8Phr3br0chDxofb\n"
 344     "rnm6dUPE8uiriNaKWdoiUNSuvumh9lVixmRI923+4imu3scq+rlJAZ20EHRlc3Qz\n"
 345     "LmdudXRscy5vcmeJAQAEEwECACYFAkdj6IMCGwMFCQlmAYAGCwkIBwMCBBUCCAME\n"
 346     "FgIDAQIeAQIXgAAKCRCgIeP4CJmQUfekBh9xN88pxE7kEt/voRjLzF6tpgyXk9nv\n"
 347     "PeuMv4nyDgaa9itorLi2J67RissYvmabch7+spkd2w74qOdHI56E/1itaJ6LDib7\n"
 348     "YoxgUvlP6KKt4puxMaXkGF3P86WLFzpgeZugb3aJlKdjzKncbJjj6GkZEmMeUdkZ\n"
 349     "aP893LKHZerKd5OOuWP44Oy+IJMQ81yTPgktcTIXDhdIAYaaai5xuu8dKMPOOz8n\n"
 350     "bLc5MNLDqnnZCz7knGhzZ5QFkO0B+pm26ahycHpEnQHXBEeIpXwBBADSJnzVZfKk\n"
 351     "sjhkTb6Fh8EKd8xV9AX+8+C8BLGHCuIYNr1lzZ/9V9qR82LBmAcfqIJ6mkcGI/aO\n"
 352     "WOdu46wvp/VH7QWyfJNXAdu4RTshTbL4nT+zTPfBzH2zHxPtus/nPkXaF1qAGwP1\n"
 353     "gUYKJ8cMAR7DiaYCKxjSLZAdUi5ckWPhEwARAQABAAP3QKGVoNi52HXEN3ttUCyB\n"
 354     "Q1CDurh0MLDQoHomY3MGfI4VByk2YKMb2el4IJqyHrUbBYjTpHY31W2CSIdWfoTU\n"
 355     "DIik49CQaUpR13dJXEiG4d+nyETFutEalTQI4hMjABD9l1XvZP7Ll3YWmqN8Cam5\n"
 356     "JY23YAy2Noqbc3AcEut4+QIA1zcv8EU1QVqOwjSybRdm6HKK/A2bMqnITeUR/ikm\n"
 357     "IuU4lhijm/d1qS6ZBehRvvYa9MY4V7BGEQLWSlyc5aYJ/wIA+fmRv0lHSs78QSUg\n"
 358     "uRbNv6Aa6CXEOXmG+TpIaf/RWrPmBpdG8AROBVo1wmwG8oQaIjeX3RjKXfL3HTDD\n"
 359     "CxNg7QIA06tApdo2j1gr3IrroUwQ7yvi56ELB1Lv+W3WLN8lzCfQ6Fs+7IJRrC2R\n"
 360     "0uzLMGOsSORGAFIbAuLIMpc6rHCeS50hiQGHBBgBAgAPBQJHiKV8AhsCBQkQ6s+A\n"
 361     "AKgJEKAh4/gImZBRnSAEGQECAAYFAkeIpXwACgkQg3tvtC4P4XYARwQAoCOE72RI\n"
 362     "4TxS7AQ4qXCxYv0tRRKQcmNz9xrRqwsB6vOseyV1EBzAJtaRXEEEfJLDYIsWPOmB\n"
 363     "1eHBG2zK0yAdpql8A9uKcBaMI8gQnHaANl5mdOCLgNVtmfkTdTMcbIvr0wShevm3\n"
 364     "6+mJ6ZAV3+cYP6H9DYDvqh2C8CvJG9LVKiPxtwYeNR+VrJcY5K9oPw/ZXlXPSFLz\n"
 365     "ZBlypbEPypQGptwHxq2iSY4hjGErJGY7nxPkxr6JrEFNQjB576kFgOB0foTZ2H3E\n"
 366     "uXDDNkpoJwhEJBw5uQuwxWh9kmj6bRd/zMjns15AX6FcmFbuUitaBBWvwhWn+WCj\n"
 367     "vppwsd8v+3WfQ2GDivayvPZ+k/bDmVpDSoiZgudmEYUdT6slTIVod+EPz+y83Yu5\n"
 368     "mQ7nvSmNX8rrwRoecR+TlvyNa7966iHBwLB/bQzWROjcGA==\n"
 369     "=mZnW\n" "-----END PGP PRIVATE KEY BLOCK-----\n";
 370 const gnutls_datum_t server_key =
 371     { server_key_txt, sizeof(server_key_txt) };
 372
 373 static unsigned char cert2048_txt[] =
 374     "-----BEGIN PGP PUBLIC KEY BLOCK-----\n"
 375     "Version: GnuPG v1.4.10 (GNU/Linux)\n"
 376     "Comment: Test key for GnuTLS\n"
 377     "\n"
 378     "mQMuBE1/6bQRCAD8TQlwbkkX3bLJvemSA/BqT/z0OrJsuXKFQqK5Pp0BRTwC4iCg\n"
 379     "wnUFrr012up66YTzaA0aQpkf48gqxZ1XTGZtZ13+aAArChqKiffR7OS+BnROd+D3\n"
 380     "NkPF0tWDAqRFsybIej1GcdSyPw+neExSfoeYzNpUW9oX2iLh5QZC/xt++kE8tOr8\n"
 381     "BXiDW/+rudjf8Rc0ZI10vi12rb64eYd7szE49crS2YsjqarnncN+J7RX3jSifKrZ\n"
 382     "XqP/F5s/0a1Nfd4xQU2fsnbQwiIuKTQjU6BHD/2ILnhZImEUn4KqZvbEt6yIJiLy\n"
 383     "u+KerhTiuAhl+sx2DQf3EVxD8EpCwzFqXtF3AQD9Nf9OFJ2Cchwuz8Q5VDBoRFhP\n"
 384     "4p/hGWqAsmRSZlxdQQf/Q5R15CMDtCrZnuSeptfgdZUfB0gi0aYeKE2TWto5JEVP\n"
 385     "i24IXSF2l1qF9IM2i9Fv7FBwZuLQj6s+vOsq0TSATvaTGdCpvqKOCHKBZtfqD/rv\n"
 386     "XJ5o3oEOtDzXdxrW1f8yVbSeWRGT2iNDPNYCnz4d+njAK1q21Qs1TRC/MKPP2EqB\n"
 387     "fjy7VE0k4mFCOCLqfEnEh5hmBzegNo6+pq/i7VHuDG/w6oMUILsf+IM+JlRqeTtJ\n"
 388     "iDDj6yVxBdW/0jSn8Wb2CeJ+S9Jf8zLeOaxtNuD9MbRG4KjnGzmh256FpA3S8E6x\n"
 389     "ffx7LdqHGkIPEf9wFY5+7C70fbfLvIbYcFf6UdGofAf+I/NtpVMVm1ZbINIcky24\n"
 390     "T0Y8NtYY4UsGaq5Lv+YQZc8DzGvjTCUMVcfPTn0g2C2l/nv3H+Po5QOjXgCGmq2U\n"
 391     "NtoJ/GYr/lrN0j7GCLXWyJCWpAv0VqkzFX5HtiuC1/3R8ONpb0wtGcKaVPYm3jZM\n"
 392     "fZLKlqG+yZABldKgVOoTmvWEsGQhP+OKho8grmiaAqOVHSfd9qofMH/V53wH03JB\n"
 393     "E5BqdQR6mP2Jq/q8OLlg8VrlSWLi+0dFP1QrNN0u87UBQ9FtpYnRnF0k/3tFdTQL\n"
 394     "GfjE9BdBO3vwSPg8EEQKUDxgeL5RoQT1ANi/iXBxfYoULVNQysTPwXIg9YauTU0f\n"
 395     "V7QJbG9jYWxob3N0iHoEExEIACIFAk1/6bQCGyMGCwkIBwMCBhUIAgkKCwQWAgMB\n"
 396     "Ah4BAheAAAoJEHv/KcoLO9+4imwA/3z+QK0W9yffh/yFKRYYyfyLyF+q/ECKhXn8\n"
 397     "fb4TUc9CAP9fGN3pHujv2Upk9d3igY2w7jIuO78PA8dRfIKs5QEXFrkDLgRNf+m0\n"
 398     "EQgAqJc+Kyx+F5Ol4nTQlddVhw0sLUeM+bOWvxIiZUSjkwFQ4Qu32a1JelJ8ne12\n"
 399     "pBIwvXA9/oa/JyDh14iFoxO4u1aBJUheVo0yeRupjo92gU6bwbLTZHJlTqRo0vne\n"
 400     "dYpPCnVez5CNSJB9TMugZLygG4/WO3zcBjLgkR/wrebb3tKAmS/RMUuBpFxGjNnL\n"
 401     "MZOzCqB4LPFQECErOWpg6ddwLXwtP4VjaBE9RYP1uVP1Bhyc28LMQjQW1l5vzVcN\n"
 402     "0DQmyBA6WX2QBeiVrALrxGq1CdcACIyYw6zzch6J2pB5IumH+IOHQMc4r67dZjIS\n"
 403     "ISS8T9Xit251J0ssilw4m3rZzwEApK4jhYn2R1KS2ihLlb+7h01YVcUA1sG6Kj4s\n"
 404     "Oxk3zlEH/RWZurelE5gMT6M3GGe6WTkE1PEBtlnvZvMQu+rllxe/rIQkp5JkHOjP\n"
 405     "tEX/Wi68ET7yMKDjIQq9joFnRI70scPf3a2MHwc0OL7PGdf13PUmUwOwlqcP4Rme\n"
 406     "kA2MpDDl9Qn9pT40fUZLoR0lVusJNbrC8fW9MIcg/JAFp7U/zxnbZUESTF0+k486\n"
 407     "bF6q5QK4kaHjoUOvzX0encs+0xY7tAY+cSgQkn37z2G/K5OUMQXUQ7hQ+LRvQNM/\n"
 408     "qXRjwsBuW+4D+4bglGLJxT9PINiZ8cgbfCF6E9B+QmsY7KSVYYB955LsCi+8G/tq\n"
 409     "wdmHDYAKV9OXZfb54UKqLh3R0JkdMpEH/0rPbsxhwFXLE+ixAs5HTu0ILXwj6uCR\n"
 410     "9PGBR6skB8ONfaXAtq+92O/4aegCxbC9SNWuTvYBKkBdMGSGcO7LwvwjUA2kujEV\n"
 411     "66In56DCQJS+K19AR+fRYPro8+MavAQlirEK1uOjidoKykVziqO7B6Z4DAaZZBDP\n"
 412     "h8HwYANauwlfapGuZ5/rLPNCFi5VEJjX/9t0ECCgPOOEK8qWA5ljw35K6W/3CVX7\n"
 413     "hKNflAx1BGBr0GfrJo/EsneeBEsKPk/hge5uPr+wkDqdXq/7qxCSHhT3OQpiOW65\n"
 414     "dyBX/44XAVQaWtf6DJc84nWDYsCgscEZzGAUyBY8Fw9S7We5OFLNcYWIwQQYEQgA\n"
 415     "CQUCTX/ptAIbIgBqCRB7/ynKCzvfuF8gBBkRCAAGBQJNf+m0AAoJEEPv0WrPxcc9\n"
 416     "aJwA/0zWQ0RfRhlC1nbf7ISEOF36WQjslGKXjf6z6rSNgphoAP4119FDX9jaW0B8\n"
 417     "HL9p+XRZTOTSo5GMLUTH5zo+zpTbB2cxAP9moc/i1z2D8AXTnUk7YfSm+o7rFThu\n"
 418     "2Cx0oO7h1g0MjQD6A/6e68DhK9altb/xqtHeG0jbLmvFRtkC0zu7WZjvSbc=\n"
 419     "=v3gg\n" "-----END PGP PUBLIC KEY BLOCK-----\n";
 420
 421 const gnutls_datum_t cert2048 = { cert2048_txt, sizeof(cert2048_txt) };
 422
 423 static unsigned char key2048_txt[] =
 424     "-----BEGIN PGP PRIVATE KEY BLOCK-----\n"
 425     "Version: GnuPG v1.4.10 (GNU/Linux)\n"
 426     "Comment: Test key for GnuTLS\n"
 427     "\n"
 428     "lQNTBE1/6bQRCAD8TQlwbkkX3bLJvemSA/BqT/z0OrJsuXKFQqK5Pp0BRTwC4iCg\n"
 429     "wnUFrr012up66YTzaA0aQpkf48gqxZ1XTGZtZ13+aAArChqKiffR7OS+BnROd+D3\n"
 430     "NkPF0tWDAqRFsybIej1GcdSyPw+neExSfoeYzNpUW9oX2iLh5QZC/xt++kE8tOr8\n"
 431     "BXiDW/+rudjf8Rc0ZI10vi12rb64eYd7szE49crS2YsjqarnncN+J7RX3jSifKrZ\n"
 432     "XqP/F5s/0a1Nfd4xQU2fsnbQwiIuKTQjU6BHD/2ILnhZImEUn4KqZvbEt6yIJiLy\n"
 433     "u+KerhTiuAhl+sx2DQf3EVxD8EpCwzFqXtF3AQD9Nf9OFJ2Cchwuz8Q5VDBoRFhP\n"
 434     "4p/hGWqAsmRSZlxdQQf/Q5R15CMDtCrZnuSeptfgdZUfB0gi0aYeKE2TWto5JEVP\n"
 435     "i24IXSF2l1qF9IM2i9Fv7FBwZuLQj6s+vOsq0TSATvaTGdCpvqKOCHKBZtfqD/rv\n"
 436     "XJ5o3oEOtDzXdxrW1f8yVbSeWRGT2iNDPNYCnz4d+njAK1q21Qs1TRC/MKPP2EqB\n"
 437     "fjy7VE0k4mFCOCLqfEnEh5hmBzegNo6+pq/i7VHuDG/w6oMUILsf+IM+JlRqeTtJ\n"
 438     "iDDj6yVxBdW/0jSn8Wb2CeJ+S9Jf8zLeOaxtNuD9MbRG4KjnGzmh256FpA3S8E6x\n"
 439     "ffx7LdqHGkIPEf9wFY5+7C70fbfLvIbYcFf6UdGofAf+I/NtpVMVm1ZbINIcky24\n"
 440     "T0Y8NtYY4UsGaq5Lv+YQZc8DzGvjTCUMVcfPTn0g2C2l/nv3H+Po5QOjXgCGmq2U\n"
 441     "NtoJ/GYr/lrN0j7GCLXWyJCWpAv0VqkzFX5HtiuC1/3R8ONpb0wtGcKaVPYm3jZM\n"
 442     "fZLKlqG+yZABldKgVOoTmvWEsGQhP+OKho8grmiaAqOVHSfd9qofMH/V53wH03JB\n"
 443     "E5BqdQR6mP2Jq/q8OLlg8VrlSWLi+0dFP1QrNN0u87UBQ9FtpYnRnF0k/3tFdTQL\n"
 444     "GfjE9BdBO3vwSPg8EEQKUDxgeL5RoQT1ANi/iXBxfYoULVNQysTPwXIg9YauTU0f\n"
 445     "VwAA/RnOgKKKmJo6d4E+mAa0Pl1QKayWKgSsDoww0kUoUTgHDU20CWxvY2FsaG9z\n"
 446     "dIh6BBMRCAAiBQJNf+m0AhsjBgsJCAcDAgYVCAIJCgsEFgIDAQIeAQIXgAAKCRB7\n"
 447     "/ynKCzvfuIpsAP98/kCtFvcn34f8hSkWGMn8i8hfqvxAioV5/H2+E1HPQgD/Xxjd\n"
 448     "6R7o79lKZPXd4oGNsO4yLju/DwPHUXyCrOUBFxadA1METX/ptBEIAKiXPissfheT\n"
 449     "peJ00JXXVYcNLC1HjPmzlr8SImVEo5MBUOELt9mtSXpSfJ3tdqQSML1wPf6Gvycg\n"
 450     "4deIhaMTuLtWgSVIXlaNMnkbqY6PdoFOm8Gy02RyZU6kaNL53nWKTwp1Xs+QjUiQ\n"
 451     "fUzLoGS8oBuP1jt83AYy4JEf8K3m297SgJkv0TFLgaRcRozZyzGTswqgeCzxUBAh\n"
 452     "KzlqYOnXcC18LT+FY2gRPUWD9blT9QYcnNvCzEI0FtZeb81XDdA0JsgQOll9kAXo\n"
 453     "lawC68RqtQnXAAiMmMOs83IeidqQeSLph/iDh0DHOK+u3WYyEiEkvE/V4rdudSdL\n"
 454     "LIpcOJt62c8BAKSuI4WJ9kdSktooS5W/u4dNWFXFANbBuio+LDsZN85RB/0Vmbq3\n"
 455     "pROYDE+jNxhnulk5BNTxAbZZ72bzELvq5ZcXv6yEJKeSZBzoz7RF/1ouvBE+8jCg\n"
 456     "4yEKvY6BZ0SO9LHD392tjB8HNDi+zxnX9dz1JlMDsJanD+EZnpANjKQw5fUJ/aU+\n"
 457     "NH1GS6EdJVbrCTW6wvH1vTCHIPyQBae1P88Z22VBEkxdPpOPOmxequUCuJGh46FD\n"
 458     "r819Hp3LPtMWO7QGPnEoEJJ9+89hvyuTlDEF1EO4UPi0b0DTP6l0Y8LAblvuA/uG\n"
 459     "4JRiycU/TyDYmfHIG3whehPQfkJrGOyklWGAfeeS7AovvBv7asHZhw2AClfTl2X2\n"
 460     "+eFCqi4d0dCZHTKRB/9Kz27MYcBVyxPosQLOR07tCC18I+rgkfTxgUerJAfDjX2l\n"
 461     "wLavvdjv+GnoAsWwvUjVrk72ASpAXTBkhnDuy8L8I1ANpLoxFeuiJ+egwkCUvitf\n"
 462     "QEfn0WD66PPjGrwEJYqxCtbjo4naCspFc4qjuwemeAwGmWQQz4fB8GADWrsJX2qR\n"
 463     "rmef6yzzQhYuVRCY1//bdBAgoDzjhCvKlgOZY8N+Sulv9wlV+4SjX5QMdQRga9Bn\n"
 464     "6yaPxLJ3ngRLCj5P4YHubj6/sJA6nV6v+6sQkh4U9zkKYjluuXcgV/+OFwFUGlrX\n"
 465     "+gyXPOJ1g2LAoLHBGcxgFMgWPBcPUu1nuThSzXGFAAEAgj6e0tgxENBORrJkBCl6\n"
 466     "xfV6iTNXa3HDArTNTyURRzEN0YjBBBgRCAAJBQJNf+m0AhsiAGoJEHv/KcoLO9+4\n"
 467     "XyAEGREIAAYFAk1/6bQACgkQQ+/Ras/Fxz1onAD/W3lWDopZrH9R66tiyjYOX4sV\n"
 468     "b1SoPlKRJngsHouxc4oA/RYoFGrhoY+nL22eza/Ku/SUnVrufZ/jIvQakhpmrLD/\n"
 469     "ZzEBAJ1w0ez3wUJbsfGlWBkb16pYpIh68/qvTTj84v5N0picAQC1p8JjouN88BJw\n"
 470     "9UquUquXdK1TY965biHIQ70uaOU4Hw==\n"
 471     "=Rrkw\n" "-----END PGP PRIVATE KEY BLOCK-----\n";
 472
 473 const gnutls_datum_t key2048 = { key2048_txt, sizeof(key2048_txt) };
 474
 475
 476 static void server(int sds[])
 477 {
 478         int j;
 479         /* this must be called once in the program
 480          */
 481         global_init();
 482
 483         gnutls_global_set_log_function(tls_log_func);
 484         if (debug)
 485                 gnutls_global_set_log_level(5);
 486
 487         if (debug)
 488                 success("Launched, setting DH parameters...\n");
 489
 490         generate_dh_params();
 491
 492         for (j = 0; j < SESSIONS; j++) {
 493                 int sd = sds[j];
 494
 495                 if (j == 0) {
 496                         gnutls_certificate_allocate_credentials(&pgp_cred);
 497                         ret =
 498                             gnutls_certificate_set_openpgp_key_mem2
 499                             (pgp_cred, &server_crt, &server_key, "auto",
 500                              GNUTLS_OPENPGP_FMT_BASE64);
 501                 } else {
 502                         gnutls_certificate_free_credentials(pgp_cred);
 503                         gnutls_certificate_allocate_credentials(&pgp_cred);
 504                         ret =
 505                             gnutls_certificate_set_openpgp_key_mem2
 506                             (pgp_cred, &cert2048, &key2048, "auto",
 507                              GNUTLS_OPENPGP_FMT_BASE64);
 508                 }
 509
 510                 if (ret < 0) {
 511                         fail("Could not set server key files...\n");
 512                         goto end;
 513                 }
 514
 515                 gnutls_certificate_set_dh_params(pgp_cred, dh_params);
 516
 517                 session = initialize_tls_session();
 518
 519                 gnutls_transport_set_int(session, sd);
 520                 ret = gnutls_handshake(session);
 521                 if (ret < 0) {
 522                         close(sd);
 523                         gnutls_deinit(session);
 524                         fail("server: Handshake %d has failed (%s)\n\n",
 525                              j, gnutls_strerror(ret));
 526                         goto end;
 527                 }
 528                 if (debug)
 529                         success("server: Handshake %d was completed\n", j);
 530
 531                 if (debug)
 532                         success("server: TLS version is: %s\n",
 533                                 gnutls_protocol_get_name
 534                                 (gnutls_protocol_get_version(session)));
 535
 536                 /* see the Getting peer's information example */
 537                 if (debug)
 538                         print_info(session);
 539
 540                 for (;;) {
 541                         memset(buffer, 0, MAX_BUF + 1);
 542                         ret = gnutls_record_recv(session, buffer, MAX_BUF);
 543
 544                         if (ret == 0) {
 545                                 if (debug)
 546                                         success
 547                                             ("server: Peer has closed the GnuTLS connection\n");
 548                                 break;
 549                         } else if (ret < 0) {
 550                                 fail("server: Received corrupted data(%d). Closing...\n", ret);
 551                                 goto end;
 552                         } else if (ret > 0) {
 553                                 /* echo data back to the client
 554                                  */
 555                                 gnutls_record_send(session, buffer,
 556                                                    strlen(buffer));
 557                         }
 558                 }
 559                 /* do not wait for the peer to close the connection.
 560                  */
 561                 gnutls_bye(session, GNUTLS_SHUT_WR);
 562
 563                 close(sd);
 564                 gnutls_deinit(session);
 565         }
 566
 567       end:
 568         gnutls_certificate_free_credentials(pgp_cred);
 569
 570         gnutls_dh_params_deinit(dh_params);
 571
 572         gnutls_global_deinit();
 573
 574         if (debug)
 575                 success("server: finished\n");
 576 }
 577
 578 void doit(void)
 579 {
 580         int client_sds[SESSIONS], server_sds[SESSIONS];
 581         int i;
 582
 583         for (i = 0; i < SESSIONS; i++) {
 584                 int sockets[2];
 585
 586                 err = socketpair(AF_UNIX, SOCK_STREAM, 0, sockets);
 587                 if (err == -1) {
 588                         perror("socketpair");
 589                         fail("socketpair failed\n");
 590                         return;
 591                 }
 592
 593                 server_sds[i] = sockets[0];
 594                 client_sds[i] = sockets[1];
 595         }
 596
 597         child = fork();
 598         if (child < 0) {
 599                 perror("fork");
 600                 fail("fork");
 601                 return;
 602         }
 603
 604         if (child) {
 605                 int status;
 606                 /* parent */
 607                 server(server_sds);
 608                 wait(&status);
 609         } else
 610                 client(client_sds);
 611 }
 612
 613 #endif                          /* _WIN32 */