tests/openpgp-callback.c

   1 /*
   2  * Copyright (C) 2004-2014 Free Software Foundation, Inc.
   3  *
   4  * Author: Nikos Mavrogiannopoulos
   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 #ifdef HAVE_CONFIG_H
  24 #include <config.h>
  25 #endif
  26
  27 #include <stdio.h>
  28 #include <stdlib.h>
  29
  30 #if defined(_WIN32)
  31
  32 /* socketpair isn't supported on Win32. */
  33 int main(int argc, char **argv)
  34 {
  35         exit(77);
  36 }
  37
  38 #else
  39
  40 #include <string.h>
  41 #include <sys/types.h>
  42 #include <sys/socket.h>
  43 #if !defined(_WIN32)
  44 #include <sys/wait.h>
  45 #endif
  46 #include <unistd.h>
  47 #include <gnutls/gnutls.h>
  48 #include <gnutls/abstract.h>
  49
  50 #include "utils.h"
  51
  52 #include "ex-session-info.c"
  53 #include "ex-x509-info.c"
  54
  55 pid_t child;
  56
  57 static void tls_log_func(int level, const char *str)
  58 {
  59         fprintf(stderr, "%s |<%d>| %s", child ? "server" : "client", level,
  60                 str);
  61 }
  62
  63 /* A very basic TLS client, with anonymous authentication.
  64  */
  65
  66 #define MAX_BUF 1024
  67 #define MSG "Hello TLS"
  68
  69 static unsigned char cert_txt[] =
  70     "-----BEGIN PGP PUBLIC KEY BLOCK-----\n"
  71     "Version: GnuPG v1.4.10 (GNU/Linux)\n"
  72     "Comment: Test key for GnuTLS\n"
  73     "\n"
  74     "mI0ETYD2OQEEAMHmDBtJii82NbWuYcvEWCYnwa7GTcz2PYikYCcq/t5nkyb5Bfmx\n"
  75     "mh2hpto7Lr5d1L/shvab1gXCcrWEAREgNNk9LiowtLuTHBdeOFlJ1u1P1rvdFVKq\n"
  76     "2a6ft77Q5VltUDKPgTqz4NWH2KUlLfTvwJDnq2DxYsbwVpBDURuUocXhABEBAAG0\n"
  77     "CVRlc3QgdXNlcoi4BBMBAgAiBQJNgPY5AhsvBgsJCAcDAgYVCAIJCgsEFgIDAQIe\n"
  78     "AQIXgAAKCRAMTrFUBnAKMOVDA/9GEw7AokwJSGvHREriXcvMMKp6c6SYqa0TVsTg\n"
  79     "Gh3ENu/KTfGJIM5p+zR6xy+5u5DfP5qLrRdCnoczncR5w9fn3RsP8ju/Ga5z23Q+\n"
  80     "6XxRKRkXjE/E0ZFulbuaBom/nhrOmmfqKe7Mor9Y4QwzL2wL3sf6jWLglwdFYS/X\n"
  81     "W3wqjLkBogRNgPY5EQQApafdUhCAHj8LLXYCqOXRSPZbKzvB55NwWrdvnod0seUW\n"
  82     "aiTSWBlKnSvIomdcII/E3bjdngK4fTJ+Xr5pEJuzBnW3w787r6jBJSq2Lp0T9SP4\n"
  83     "CBzd0gXcOQkILvX1VzxAsYVULJA0mhAR3IHFcywjX6ENKuvs7ApniBNoXqi6d3cA\n"
  84     "oIAzYKrjyZ+guM4IUlRRrB8abx5vBACJPV+d15GYgzt1d8zLvOl/mzs85Twj2SB1\n"
  85     "ZqzK6H/6QxQkEZpP/UVFpXaUGUly3nGEqg1yw4cgqW4SSxgLFz6B23Si+cTsssE6\n"
  86     "CYziN1UI6NjxkoG/npMm0wRp7Z+KylEolAdbFBAAprORkt58CrGgpYe8O/35+PWc\n"
  87     "J9rjhwxxkQP/VCpbZLugkL4XHWGWFGG35S6k9F3xPPTPoX9Zoud+0bOeoOK5RQHo\n"
  88     "e99sVNN4hxxPTM/rJXfTTZUoB6o84yulTSxb6C9ueHotDV0eB9QX1ov/ltmwy3XS\n"
  89     "fXEyWtI0CDBuZgEww26Up0pzg4XTBYMkmXrxx3J9ihcCIYyAHoE13EWI5wQYAQIA\n"
  90     "CQUCTYD2OQIbIgBSCRAMTrFUBnAKMEcgBBkRAgAGBQJNgPY5AAoJEPMP1CPBQ+e6\n"
  91     "3fQAnR7HWLnQTbxCIhlBTZiuJv2HC6cbAJwJ6VsSU6ADCkMuGT3LLNo+UnckK+4i\n"
  92     "BACcivWsW40ddtEQ0wno1uP65TmKq3aJrdODXTAnqkmNQKL7X7Fz+nmEWiS+LBH8\n"
  93     "lRvAaeRPX2LV+DCJDbAPrYd7LkOHyuM0I+ZApto5cjem/EnO7op2QwkCCa6oUp0l\n"
  94     "YA6i6aGF2KGx7WQwi2URIMPhihpOvAbkjfszYpFL4VP5wQ==\n"
  95     "=ydIq\n" "-----END PGP PUBLIC KEY BLOCK-----\n";
  96
  97 const gnutls_datum_t cert = { cert_txt, sizeof(cert_txt) };
  98
  99 static unsigned char key_txt[] =
 100     "-----BEGIN PGP PRIVATE KEY BLOCK-----\n"
 101     "Version: GnuPG v1.4.10 (GNU/Linux)\n"
 102     "Comment: Test key for GnuTLS\n"
 103     "\n"
 104     "lQHYBE2A9jkBBADB5gwbSYovNjW1rmHLxFgmJ8Guxk3M9j2IpGAnKv7eZ5Mm+QX5\n"
 105     "sZodoabaOy6+XdS/7Ib2m9YFwnK1hAERIDTZPS4qMLS7kxwXXjhZSdbtT9a73RVS\n"
 106     "qtmun7e+0OVZbVAyj4E6s+DVh9ilJS3078CQ56tg8WLG8FaQQ1EblKHF4QARAQAB\n"
 107     "AAP9HJePsXZmqg+UW/Ya9bE+TmIObXdQgajN6hhTFXOBocokKNsPxoIp97Sepg+U\n"
 108     "FP5BIQv/2t2f8bl6sMmGXsAhCqVzRxGuA+9USx8OfTHSdgIKT5T2VFSGJaU4df3Q\n"
 109     "rstUY3dcvl6VKpDDZic1T7u2ANzaWM2u+pwooKC4cc/k9AECAMNDvrKF3FC7R9sd\n"
 110     "TagVrrfde0RZuwhbGW9ghslkY893EelXQL/lbBI20crPdrsdDpMe370KO2bQLqwO\n"
 111     "HGAxIYUCAP41iC7KReYvysLZ34tM55ZFE7BPsMcXUeu6hkYOMDZYvE+x4KV6Umo+\n"
 112     "Civd4qD9dESR3WOcI9MwALUdNTxQU60B/21MrWjajY1m1vv7l2slJon5eSrH6BkH\n"
 113     "Aj173uZca8HbgqSF1xOQW8ZGa6KInN3wHe+vPOXAgzlku/4XHgEYVVGeq7QJVGVz\n"
 114     "dCB1c2VyiLgEEwECACIFAk2A9jkCGy8GCwkIBwMCBhUIAgkKCwQWAgMBAh4BAheA\n"
 115     "AAoJEAxOsVQGcAow5UMD/0YTDsCiTAlIa8dESuJdy8wwqnpzpJiprRNWxOAaHcQ2\n"
 116     "78pN8Ykgzmn7NHrHL7m7kN8/moutF0KehzOdxHnD1+fdGw/yO78ZrnPbdD7pfFEp\n"
 117     "GReMT8TRkW6Vu5oGib+eGs6aZ+op7syiv1jhDDMvbAvex/qNYuCXB0VhL9dbfCqM\n"
 118     "nQG7BE2A9jkRBAClp91SEIAePwstdgKo5dFI9lsrO8Hnk3Bat2+eh3Sx5RZqJNJY\n"
 119     "GUqdK8iiZ1wgj8TduN2eArh9Mn5evmkQm7MGdbfDvzuvqMElKrYunRP1I/gIHN3S\n"
 120     "Bdw5CQgu9fVXPECxhVQskDSaEBHcgcVzLCNfoQ0q6+zsCmeIE2heqLp3dwCggDNg\n"
 121     "quPJn6C4zghSVFGsHxpvHm8EAIk9X53XkZiDO3V3zMu86X+bOzzlPCPZIHVmrMro\n"
 122     "f/pDFCQRmk/9RUWldpQZSXLecYSqDXLDhyCpbhJLGAsXPoHbdKL5xOyywToJjOI3\n"
 123     "VQjo2PGSgb+ekybTBGntn4rKUSiUB1sUEACms5GS3nwKsaClh7w7/fn49Zwn2uOH\n"
 124     "DHGRA/9UKltku6CQvhcdYZYUYbflLqT0XfE89M+hf1mi537Rs56g4rlFAeh732xU\n"
 125     "03iHHE9Mz+sld9NNlSgHqjzjK6VNLFvoL254ei0NXR4H1BfWi/+W2bDLddJ9cTJa\n"
 126     "0jQIMG5mATDDbpSnSnODhdMFgySZevHHcn2KFwIhjIAegTXcRQAAn2PK9kOqhjOJ\n"
 127     "KU5iaagnF176FwhdCO2I5wQYAQIACQUCTYD2OQIbIgBSCRAMTrFUBnAKMEcgBBkR\n"
 128     "AgAGBQJNgPY5AAoJEPMP1CPBQ+e63fQAniK5kU+dwIbkD+OHJHkC73V6v4D8AJ0Z\n"
 129     "+GBYj4nhKEX21QXfj55F3Zpg1e4iBACcivWsW40ddtEQ0wno1uP65TmKq3aJrdOD\n"
 130     "XTAnqkmNQKL7X7Fz+nmEWiS+LBH8lRvAaeRPX2LV+DCJDbAPrYd7LkOHyuM0I+ZA\n"
 131     "pto5cjem/EnO7op2QwkCCa6oUp0lYA6i6aGF2KGx7WQwi2URIMPhihpOvAbkjfsz\n"
 132     "YpFL4VP5wQ==\n" "=zzoN\n" "-----END PGP PRIVATE KEY BLOCK-----\n";
 133
 134 const gnutls_datum_t key = { key_txt, sizeof(key_txt) };
 135
 136
 137 static void client(int sd)
 138 {
 139         int ret, ii;
 140         gnutls_session_t session;
 141         char buffer[MAX_BUF + 1];
 142         gnutls_certificate_credentials_t xcred;
 143
 144         global_init();
 145
 146         gnutls_global_set_log_function(tls_log_func);
 147         if (debug)
 148                 gnutls_global_set_log_level(4711);
 149
 150         gnutls_certificate_allocate_credentials(&xcred);
 151
 152         ret =
 153             gnutls_certificate_set_openpgp_key_mem2
 154                     (xcred, &cert, &key, "auto",
 155                      GNUTLS_OPENPGP_FMT_BASE64);
 156         if (ret < 0) {
 157                 fail("error[%d]: %s\n", __LINE__, gnutls_strerror(ret));
 158         }
 159
 160         /* Initialize TLS session
 161          */
 162         gnutls_init(&session, GNUTLS_CLIENT);
 163
 164         /* Use default priorities */
 165         gnutls_priority_set_direct(session, "NORMAL:+CTYPE-OPENPGP:+DHE-DSS:+SIGN-DSA-SHA256:+SIGN-DSA-SHA1", NULL);
 166
 167         /* put the x509 credentials to the current session
 168          */
 169         gnutls_credentials_set(session, GNUTLS_CRD_CERTIFICATE, xcred);
 170
 171         gnutls_transport_set_int(session, sd);
 172
 173         /* Perform the TLS handshake
 174          */
 175         do {
 176                 ret = gnutls_handshake(session);
 177         } while(ret == GNUTLS_E_AGAIN || ret == GNUTLS_E_INTERRUPTED);
 178
 179         if (ret < 0) {
 180                 fail("client: Handshake failed\n");
 181                 gnutls_perror(ret);
 182                 goto end;
 183         } else {
 184                 if (debug)
 185                         success("client: Handshake was completed\n");
 186         }
 187
 188         if (debug)
 189                 success("client: TLS version is: %s\n",
 190                         gnutls_protocol_get_name
 191                         (gnutls_protocol_get_version(session)));
 192
 193         /* see the Getting peer's information example */
 194         if (debug)
 195                 print_info(session);
 196
 197         gnutls_record_send(session, MSG, strlen(MSG));
 198
 199         ret = gnutls_record_recv(session, buffer, MAX_BUF);
 200         if (ret == 0) {
 201                 if (debug)
 202                         success
 203                             ("client: Peer has closed the TLS connection\n");
 204                 goto end;
 205         } else if (ret < 0) {
 206                 fail("client: Error: %s\n", gnutls_strerror(ret));
 207                 goto end;
 208         }
 209
 210         if (debug) {
 211                 printf("- Received %d bytes: ", ret);
 212                 for (ii = 0; ii < ret; ii++) {
 213                         fputc(buffer[ii], stdout);
 214                 }
 215                 fputs("\n", stdout);
 216         }
 217
 218         gnutls_bye(session, GNUTLS_SHUT_RDWR);
 219
 220       end:
 221
 222         close(sd);
 223
 224         gnutls_deinit(session);
 225
 226         gnutls_certificate_free_credentials(xcred);
 227
 228         gnutls_global_deinit();
 229 }
 230
 231 /* This is a sample TLS 1.0 echo server, using X.509 authentication.
 232  */
 233
 234 static unsigned char server_crt_txt[] =
 235     "-----BEGIN PGP PUBLIC KEY BLOCK-----\n"
 236     "Version: GnuPG v1.4.6 (GNU/Linux)\n"
 237     "\n"
 238     "mNEER2PogwEGINdIR4u5PR4SwADWwj/ztgtoi7XVbmlfbQTHpBYFxTSC88pISSNy\n"
 239     "V/rgnlqunYP77F7aHL4KUReN3v9sKw01xSGEfox/JmlqUUg6CVvTjdeLfkuVIBnH\n"
 240     "j+2KMlaxezp7IxtPaTXpXcSf8iOuVq7UX7p6tKbppKXO5GgmfA88VUVvGBs1/PQp\n"
 241     "WKQdGrj+6I3RRmDN/hna1jGU/N23230Hbx+bu7g9cviiSh10ri7rdDhVJ67tRkRG\n"
 242     "Usy3XO6dWC7EmzZlEO8AEQEAAbQQdGVzdDMuZ251dGxzLm9yZ4kBAAQTAQIAJgUC\n"
 243     "R2PogwIbAwUJCWYBgAYLCQgHAwIEFQIIAwQWAgMBAh4BAheAAAoJEKAh4/gImZBR\n"
 244     "96QGH3E3zynETuQS3++hGMvMXq2mDJeT2e8964y/ifIOBpr2K2isuLYnrtGKyxi+\n"
 245     "ZptyHv6ymR3bDvio50cjnoT/WK1onosOJvtijGBS+U/ooq3im7ExpeQYXc/zpYsX\n"
 246     "OmB5m6BvdomUp2PMqdxsmOPoaRkSYx5R2Rlo/z3csodl6sp3k465Y/jg7L4gkxDz\n"
 247     "XJM+CS1xMhcOF0gBhppqLnG67x0ow847Pydstzkw0sOqedkLPuScaHNnlAWQ7QH6\n"
 248     "mbbpqHJwekS4jQRHiKV8AQQA0iZ81WXypLI4ZE2+hYfBCnfMVfQF/vPgvASxhwri\n"
 249     "GDa9Zc2f/VfakfNiwZgHH6iCeppHBiP2jljnbuOsL6f1R+0FsnyTVwHbuEU7IU2y\n"
 250     "+J0/s0z3wcx9sx8T7brP5z5F2hdagBsD9YFGCifHDAEew4mmAisY0i2QHVIuXJFj\n"
 251     "4RMAEQEAAYkBhwQYAQIADwUCR4ilfAIbAgUJEOrPgACoCRCgIeP4CJmQUZ0gBBkB\n"
 252     "AgAGBQJHiKV8AAoJEIN7b7QuD+F2AEcEAKAjhO9kSOE8UuwEOKlwsWL9LUUSkHJj\n"
 253     "c/ca0asLAerzrHsldRAcwCbWkVxBBHySw2CLFjzpgdXhwRtsytMgHaapfAPbinAW\n"
 254     "jCPIEJx2gDZeZnTgi4DVbZn5E3UzHGyL69MEoXr5t+vpiemQFd/nGD+h/Q2A76od\n"
 255     "gvAryRvS1Soj8bcGHjUflayXGOSvaD8P2V5Vz0hS82QZcqWxD8qUBqbcB8atokmO\n"
 256     "IYxhKyRmO58T5Ma+iaxBTUIwee+pBYDgdH6E2dh9xLlwwzZKaCcIRCQcObkLsMVo\n"
 257     "fZJo+m0Xf8zI57NeQF+hXJhW7lIrWgQVr8IVp/lgo76acLHfL/t1n0Nhg4r2srz2\n"
 258     "fpP2w5laQ0qImYLnZhGFHU+rJUyFaHfhD8/svN2LuZkO570pjV/K68EaHnEfk5b8\n"
 259     "jWu/euohwcCwf20M1kTo3Bg=\n"
 260     "=Xjon\n" "-----END PGP PUBLIC KEY BLOCK-----\n";
 261 const gnutls_datum_t server_crt =
 262     { server_crt_txt, sizeof(server_crt_txt) };
 263
 264 static unsigned char server_key_txt[] =
 265     "-----BEGIN PGP PRIVATE KEY BLOCK-----\n"
 266     "Version: GnuPG v1.4.6 (GNU/Linux)\n"
 267     "\n"
 268     "lQLGBEdj6IMBBiDXSEeLuT0eEsAA1sI/87YLaIu11W5pX20Ex6QWBcU0gvPKSEkj\n"
 269     "clf64J5arp2D++xe2hy+ClEXjd7/bCsNNcUhhH6MfyZpalFIOglb043Xi35LlSAZ\n"
 270     "x4/tijJWsXs6eyMbT2k16V3En/Ijrlau1F+6erSm6aSlzuRoJnwPPFVFbxgbNfz0\n"
 271     "KVikHRq4/uiN0UZgzf4Z2tYxlPzdt9t9B28fm7u4PXL4okoddK4u63Q4VSeu7UZE\n"
 272     "RlLMt1zunVguxJs2ZRDvABEBAAEABhwMx6crpb75ko5gXl9gsYSMj9O/YyCvU7Fi\n"
 273     "l8FnZ0dKMz3qs7jXyFlttLjh1DzYkXN6PAN5yp3+wnbK/e5eVeNSdo2WpJOwrVWO\n"
 274     "7pcQovHoKklAjmU98olaRhpv6BBTK+0tGUFaRrmrrYuz2xnwf3+kIpt4ahYW2dr9\n"
 275     "B+/pvBSVC/sv2+3PEQSsXlWCYVgkQ7WBN4GQdyjjxhQpcWdf8Z6unx4zuS3s7GGM\n"
 276     "4WaDxmDNCFlTGdrKPQeogtS3LVF9OiRCOvIlAxDmDvnC3zAwO/IvDUHFED9x9hmK\n"
 277     "MeVwCg8rwDMptVYN2hm+bjNzjV4pimUVd+w7edjEky0Jd/6tTH01CBUWxs9Pfup2\n"
 278     "cQ9zkYcVz1bwcoqeyRzFCJgi6PiVT38QFEvyusoVkwMQ747D6p7y+R52MEcIvcLb\n"
 279     "lBXhRviz3rW+Sch4+ohUPvBU41saM5B6UcOmhdPfdvPriI4qXwFxusGWt98NN3aW\n"
 280     "Ns2/L9kMX/SWnN6Elfj5hrrExDZ2CE60uuvfj+O/uXfO8LUDENE4vQrC399KLbJw\n"
 281     "uCaqjqLysYA9EY/Nv8RFGkk1UM4ViW8v1/95D95F9WqochSYH8Phr3br0chDxofb\n"
 282     "rnm6dUPE8uiriNaKWdoiUNSuvumh9lVixmRI923+4imu3scq+rlJAZ20EHRlc3Qz\n"
 283     "LmdudXRscy5vcmeJAQAEEwECACYFAkdj6IMCGwMFCQlmAYAGCwkIBwMCBBUCCAME\n"
 284     "FgIDAQIeAQIXgAAKCRCgIeP4CJmQUfekBh9xN88pxE7kEt/voRjLzF6tpgyXk9nv\n"
 285     "PeuMv4nyDgaa9itorLi2J67RissYvmabch7+spkd2w74qOdHI56E/1itaJ6LDib7\n"
 286     "YoxgUvlP6KKt4puxMaXkGF3P86WLFzpgeZugb3aJlKdjzKncbJjj6GkZEmMeUdkZ\n"
 287     "aP893LKHZerKd5OOuWP44Oy+IJMQ81yTPgktcTIXDhdIAYaaai5xuu8dKMPOOz8n\n"
 288     "bLc5MNLDqnnZCz7knGhzZ5QFkO0B+pm26ahycHpEnQHXBEeIpXwBBADSJnzVZfKk\n"
 289     "sjhkTb6Fh8EKd8xV9AX+8+C8BLGHCuIYNr1lzZ/9V9qR82LBmAcfqIJ6mkcGI/aO\n"
 290     "WOdu46wvp/VH7QWyfJNXAdu4RTshTbL4nT+zTPfBzH2zHxPtus/nPkXaF1qAGwP1\n"
 291     "gUYKJ8cMAR7DiaYCKxjSLZAdUi5ckWPhEwARAQABAAP3QKGVoNi52HXEN3ttUCyB\n"
 292     "Q1CDurh0MLDQoHomY3MGfI4VByk2YKMb2el4IJqyHrUbBYjTpHY31W2CSIdWfoTU\n"
 293     "DIik49CQaUpR13dJXEiG4d+nyETFutEalTQI4hMjABD9l1XvZP7Ll3YWmqN8Cam5\n"
 294     "JY23YAy2Noqbc3AcEut4+QIA1zcv8EU1QVqOwjSybRdm6HKK/A2bMqnITeUR/ikm\n"
 295     "IuU4lhijm/d1qS6ZBehRvvYa9MY4V7BGEQLWSlyc5aYJ/wIA+fmRv0lHSs78QSUg\n"
 296     "uRbNv6Aa6CXEOXmG+TpIaf/RWrPmBpdG8AROBVo1wmwG8oQaIjeX3RjKXfL3HTDD\n"
 297     "CxNg7QIA06tApdo2j1gr3IrroUwQ7yvi56ELB1Lv+W3WLN8lzCfQ6Fs+7IJRrC2R\n"
 298     "0uzLMGOsSORGAFIbAuLIMpc6rHCeS50hiQGHBBgBAgAPBQJHiKV8AhsCBQkQ6s+A\n"
 299     "AKgJEKAh4/gImZBRnSAEGQECAAYFAkeIpXwACgkQg3tvtC4P4XYARwQAoCOE72RI\n"
 300     "4TxS7AQ4qXCxYv0tRRKQcmNz9xrRqwsB6vOseyV1EBzAJtaRXEEEfJLDYIsWPOmB\n"
 301     "1eHBG2zK0yAdpql8A9uKcBaMI8gQnHaANl5mdOCLgNVtmfkTdTMcbIvr0wShevm3\n"
 302     "6+mJ6ZAV3+cYP6H9DYDvqh2C8CvJG9LVKiPxtwYeNR+VrJcY5K9oPw/ZXlXPSFLz\n"
 303     "ZBlypbEPypQGptwHxq2iSY4hjGErJGY7nxPkxr6JrEFNQjB576kFgOB0foTZ2H3E\n"
 304     "uXDDNkpoJwhEJBw5uQuwxWh9kmj6bRd/zMjns15AX6FcmFbuUitaBBWvwhWn+WCj\n"
 305     "vppwsd8v+3WfQ2GDivayvPZ+k/bDmVpDSoiZgudmEYUdT6slTIVod+EPz+y83Yu5\n"
 306     "mQ7nvSmNX8rrwRoecR+TlvyNa7966iHBwLB/bQzWROjcGA==\n"
 307     "=mZnW\n" "-----END PGP PRIVATE KEY BLOCK-----\n";
 308 const gnutls_datum_t server_key =
 309     { server_key_txt, sizeof(server_key_txt) };
 310
 311 static gnutls_privkey_t g_pkey = NULL;
 312 static gnutls_pcert_st *g_pcert = NULL;
 313
 314 static int
 315 cert_callback(gnutls_session_t session,
 316               const gnutls_datum_t * req_ca_rdn, int nreqs,
 317               const gnutls_pk_algorithm_t * sign_algos,
 318               int sign_algos_length, gnutls_pcert_st ** pcert,
 319               unsigned int *pcert_length, gnutls_privkey_t * pkey)
 320 {
 321         int ret;
 322         gnutls_pcert_st *p;
 323         gnutls_privkey_t lkey;
 324
 325         p = gnutls_malloc(sizeof(*p));
 326         if (p==NULL)
 327                 return -1;
 328
 329         if (g_pkey == NULL) {
 330                 ret = gnutls_pcert_import_openpgp_raw(p, &server_crt, GNUTLS_OPENPGP_FMT_BASE64, NULL, 0);
 331                 if (ret < 0)
 332                         return -1;
 333
 334                 ret = gnutls_privkey_init(&lkey);
 335                 if (ret < 0)
 336                         return -1;
 337
 338                 ret = gnutls_privkey_import_openpgp_raw(lkey, &server_key, GNUTLS_OPENPGP_FMT_BASE64, NULL, NULL);
 339                 if (ret < 0)
 340                         return -1;
 341
 342                 g_pcert = p;
 343                 g_pkey = lkey;
 344
 345                 *pcert = p;
 346                 *pcert_length = 1;
 347                 *pkey = lkey;
 348         } else {
 349                 *pcert = g_pcert;
 350                 *pcert_length = 1;
 351                 *pkey = g_pkey;
 352         }
 353
 354         return 0;
 355 }
 356
 357 static void server(int sd)
 358 {
 359 gnutls_certificate_credentials_t pgp_cred;
 360 int ret;
 361 gnutls_session_t session;
 362 gnutls_dh_params_t dh_params;
 363 const gnutls_datum_t p3 = { (void *) pkcs3, strlen(pkcs3) };
 364
 365         /* this must be called once in the program
 366          */
 367         global_init();
 368
 369         gnutls_global_set_log_function(tls_log_func);
 370         if (debug)
 371                 gnutls_global_set_log_level(4711);
 372
 373         gnutls_certificate_allocate_credentials(&pgp_cred);
 374
 375         gnutls_certificate_set_retrieve_function2(pgp_cred, cert_callback);
 376
 377         gnutls_dh_params_init(&dh_params);
 378         gnutls_dh_params_import_pkcs3(dh_params, &p3,
 379                                              GNUTLS_X509_FMT_PEM);
 380
 381         gnutls_certificate_set_dh_params(pgp_cred, dh_params);
 382
 383         gnutls_init(&session, GNUTLS_SERVER);
 384
 385         /* avoid calling all the priority functions, since the defaults
 386          * are adequate.
 387          */
 388         gnutls_priority_set_direct(session, "NORMAL:+CTYPE-OPENPGP:-CTYPE-X509:-RSA:+DHE-DSS:+SIGN-DSA-SHA256:+SIGN-DSA-SHA1", NULL);
 389
 390         gnutls_credentials_set(session, GNUTLS_CRD_CERTIFICATE, pgp_cred);
 391
 392         /* request client certificate if any.
 393          */
 394         gnutls_certificate_server_set_request(session,
 395                                               GNUTLS_CERT_REQUEST);
 396
 397         gnutls_transport_set_int(session, sd);
 398         gnutls_handshake_set_timeout(session, 20 * 1000);
 399
 400         do {
 401                 ret = gnutls_handshake(session);
 402         } while(ret == GNUTLS_E_AGAIN || ret == GNUTLS_E_INTERRUPTED);
 403         if (ret < 0) {
 404                 close(sd);
 405                 gnutls_deinit(session);
 406                 fail("server: Handshake has failed (%s)\n\n",
 407                      gnutls_strerror(ret));
 408                 return;
 409         }
 410         if (debug)
 411                 success("server: Handshake was completed\n");
 412
 413         if (gnutls_certificate_get_ours(session) == NULL) {
 414                 fail("our certificate was not sent!\n");
 415                 exit(1);
 416         }
 417
 418         if (debug)
 419                 success("server: TLS version is: %s\n",
 420                         gnutls_protocol_get_name
 421                         (gnutls_protocol_get_version(session)));
 422
 423         /* see the Getting peer's information example */
 424         if (debug)
 425                 print_info(session);
 426
 427         /* do not wait for the peer to close the connection.
 428          */
 429         gnutls_bye(session, GNUTLS_SHUT_WR);
 430
 431         close(sd);
 432         gnutls_deinit(session);
 433
 434         gnutls_certificate_free_credentials(pgp_cred);
 435         gnutls_pcert_deinit(&g_pcert[0]);
 436         gnutls_privkey_deinit(g_pkey);
 437
 438         gnutls_dh_params_deinit(dh_params);
 439         gnutls_global_deinit();
 440
 441         if (debug)
 442                 success("server: finished\n");
 443 }
 444
 445
 446 void doit(void)
 447 {
 448         int sockets[2];
 449         int err;
 450
 451         err = socketpair(AF_UNIX, SOCK_STREAM, 0, sockets);
 452         if (err == -1) {
 453                 perror("socketpair");
 454                 fail("socketpair failed\n");
 455                 return;
 456         }
 457
 458         child = fork();
 459         if (child < 0) {
 460                 perror("fork");
 461                 fail("fork");
 462                 return;
 463         }
 464
 465         if (child) {
 466                 int status;
 467                 /* parent */
 468                 client(sockets[0]);
 469                 wait(&status);
 470
 471 #if defined WIFEXITED && defined WEXITSTATUS
 472                 if (WIFEXITED(status) && WEXITSTATUS(status)) {
 473                         fail("server: client failed with exit status %d\n",
 474                              WEXITSTATUS(status));
 475                 }
 476 #endif
 477
 478 #if defined WIFSIGNALED && defined WTERMSIG
 479                 if (WIFSIGNALED(status)) {
 480                         fail("server: client failed with fatal signal %d\n", WTERMSIG(status));
 481                 }
 482 #endif
 483
 484         } else
 485                 server(sockets[1]);
 486 }
 487
 488 #endif                          /* _WIN32 */