tests/openpgpself.c

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