www.gitorious.org Git - gnutls:gnutls.git/blob

1 /*

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 */

23 #ifdef HAVE_CONFIG_H

24 #include <config.h>

25 #endif

27 #include <stdio.h>

28 #include <stdlib.h>

30 #if defined(_WIN32)

32 /* socketpair isn't supported on Win32. */

33 int main(int argc, char **argv)

34 {

35 exit(77);

36 }

38 #else

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>

50 #include "utils.h"

52 #include "ex-session-info.c"

53 #include "ex-x509-info.c"

55 pid_t child;

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 }

63 /* A very basic TLS client, with anonymous authentication.

64 */

66 #define MAX_BUF 1024

67 #define MSG "Hello TLS"

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";

97 const gnutls_datum_t cert = { cert_txt, sizeof(cert_txt) };

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 (debug)

414 success("server: TLS version is: %s\n",

415 gnutls_protocol_get_name

416 (gnutls_protocol_get_version(session)));

417

418 /* see the Getting peer's information example */

419 if (debug)

420 print_info(session);

421

422 /* do not wait for the peer to close the connection.

423 */

424 gnutls_bye(session, GNUTLS_SHUT_WR);

425

426 close(sd);

427 gnutls_deinit(session);

428

429 gnutls_certificate_free_credentials(pgp_cred);

430 gnutls_pcert_deinit(&g_pcert[0]);

431 gnutls_privkey_deinit(g_pkey);

432

433 gnutls_dh_params_deinit(dh_params);

434 gnutls_global_deinit();

435

436 if (debug)

437 success("server: finished\n");

438 }

439

440

441 void doit(void)

442 {

443 int sockets[2];

444 int err;

445

446 err = socketpair(AF_UNIX, SOCK_STREAM, 0, sockets);

447 if (err == -1) {

448 perror("socketpair");

449 fail("socketpair failed\n");

450 return;

451 }

452

453 child = fork();

454 if (child < 0) {

455 perror("fork");

456 fail("fork");

457 return;

458 }

459

460 if (child) {

461 int status;

462 /* parent */

463 client(sockets[0]);

464 wait(&status);

465

466 #if defined WIFEXITED && defined WEXITSTATUS

467 if (WIFEXITED(status) && WEXITSTATUS(status)) {

468 fail("server: client failed with exit status %d\n",

469 WEXITSTATUS(status));

470 }

471 #endif

472

473 #if defined WIFSIGNALED && defined WTERMSIG

474 if (WIFSIGNALED(status)) {

475 fail("server: client failed with fatal signal %d\n", WTERMSIG(status));

476 }

477 #endif

478

479 } else

480 server(sockets[1]);

481 }

482

483 #endif /* _WIN32 */