/examples/server/server.c
C | 436 lines | 335 code | 78 blank | 23 comment | 78 complexity | 78304e28dfc3bbe2c6101cd2c912a806 MD5 | raw file
Possible License(s): GPL-2.0
- /* server.c
- *
- * Copyright (C) 2006-2012 Sawtooth Consulting Ltd.
- *
- * This file is part of CyaSSL.
- *
- * CyaSSL is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * CyaSSL is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
- */
- #ifdef HAVE_CONFIG_H
- #include <config.h>
- #endif
- #include <cyassl/openssl/ssl.h>
- #include <cyassl/test.h>
- #include "examples/server/server.h"
- #ifdef CYASSL_CALLBACKS
- int srvHandShakeCB(HandShakeInfo*);
- int srvTimeoutCB(TimeoutInfo*);
- Timeval srvTo;
- #endif
- static void NonBlockingSSL_Accept(SSL* ssl)
- {
- #ifndef CYASSL_CALLBACKS
- int ret = SSL_accept(ssl);
- #else
- int ret = CyaSSL_accept_ex(ssl, srvHandShakeCB, srvTimeoutCB, srvTo);
- #endif
- int error = SSL_get_error(ssl, 0);
- SOCKET_T sockfd = (SOCKET_T)CyaSSL_get_fd(ssl);
- int select_ret;
- while (ret != SSL_SUCCESS && (error == SSL_ERROR_WANT_READ ||
- error == SSL_ERROR_WANT_WRITE)) {
- if (error == SSL_ERROR_WANT_READ)
- printf("... server would read block\n");
- else
- printf("... server would write block\n");
- if (CyaSSL_dtls(ssl))
- select_ret = tcp_select(sockfd,
- CyaSSL_dtls_get_current_timeout(ssl));
- else
- select_ret = tcp_select(sockfd, 1);
- if ((select_ret == TEST_RECV_READY) ||
- (select_ret == TEST_ERROR_READY)) {
- #ifndef CYASSL_CALLBACKS
- ret = SSL_accept(ssl);
- #else
- ret = CyaSSL_accept_ex(ssl,
- srvHandShakeCB, srvTimeoutCB, srvTo);
- #endif
- error = SSL_get_error(ssl, 0);
- }
- else if (select_ret == TEST_TIMEOUT &&
- (!CyaSSL_dtls(ssl) ||
- (CyaSSL_dtls_got_timeout(ssl) >= 0))) {
- error = SSL_ERROR_WANT_READ;
- }
- else {
- error = SSL_FATAL_ERROR;
- }
- }
- if (ret != SSL_SUCCESS)
- err_sys("SSL_accept failed");
- }
- static void Usage(void)
- {
- printf("server " LIBCYASSL_VERSION_STRING
- " NOTE: All files relative to CyaSSL home dir\n");
- printf("-? Help, print this usage\n");
- printf("-p <num> Port to listen on, default %d\n", yasslPort);
- printf("-v <num> SSL version [0-3], SSLv3(0) - TLS1.2(3)), default %d\n",
- SERVER_DEFAULT_VERSION);
- printf("-l <str> Cipher list\n");
- printf("-c <file> Certificate file, default %s\n", svrCert);
- printf("-k <file> Key file, default %s\n", svrKey);
- printf("-A <file> Certificate Authority file, default %s\n", cliCert);
- printf("-d Disable client cert check\n");
- printf("-b Bind to any interface instead of localhost only\n");
- printf("-s Use pre Shared keys\n");
- printf("-u Use UDP DTLS\n");
- printf("-N Use Non-blocking sockets\n");
- }
- THREAD_RETURN CYASSL_THREAD server_test(void* args)
- {
- SOCKET_T sockfd = 0;
- int clientfd = 0;
- SSL_METHOD* method = 0;
- SSL_CTX* ctx = 0;
- SSL* ssl = 0;
- char msg[] = "I hear you fa shizzle!";
- char input[1024];
- int idx;
- int ch;
- int version = SERVER_DEFAULT_VERSION;
- int doCliCertCheck = 1;
- int useAnyAddr = 0;
- int port = yasslPort;
- int usePsk = 0;
- int doDTLS = 0;
- int useNtruKey = 0;
- int nonBlocking = 0;
- char* cipherList = NULL;
- char* verifyCert = (char*)cliCert;
- char* ourCert = (char*)svrCert;
- char* ourKey = (char*)svrKey;
- int argc = ((func_args*)args)->argc;
- char** argv = ((func_args*)args)->argv;
- ((func_args*)args)->return_code = -1; /* error state */
- while ((ch = mygetopt(argc, argv, "?dbsnNup:v:l:A:c:k:")) != -1) {
- switch (ch) {
- case '?' :
- Usage();
- exit(EXIT_SUCCESS);
- case 'd' :
- doCliCertCheck = 0;
- break;
- case 'b' :
- useAnyAddr = 1;
- break;
- case 's' :
- usePsk = 1;
- break;
- case 'n' :
- useNtruKey = 1;
- break;
- case 'u' :
- doDTLS = 1;
- version = -1; /* DTLS flag */
- break;
- case 'p' :
- port = atoi(myoptarg);
- break;
- case 'v' :
- version = atoi(myoptarg);
- if (version < 0 || version > 3) {
- Usage();
- exit(MY_EX_USAGE);
- }
- if (doDTLS)
- version = -1; /* stay with DTLS */
- break;
- case 'l' :
- cipherList = myoptarg;
- break;
- case 'A' :
- verifyCert = myoptarg;
- break;
- case 'c' :
- ourCert = myoptarg;
- break;
- case 'k' :
- ourKey = myoptarg;
- break;
- case 'N':
- nonBlocking = 1;
- break;
- default:
- Usage();
- exit(MY_EX_USAGE);
- }
- }
- myoptind = 0; /* reset for test cases */
- switch (version) {
- #ifndef NO_OLD_TLS
- case 0:
- method = SSLv3_server_method();
- break;
- case 1:
- method = TLSv1_server_method();
- break;
- case 2:
- method = TLSv1_1_server_method();
- break;
- #endif
- case 3:
- method = TLSv1_2_server_method();
- break;
- #ifdef CYASSL_DTLS
- case -1:
- method = DTLSv1_server_method();
- break;
- #endif
- default:
- err_sys("Bad SSL version");
- }
- if (method == NULL)
- err_sys("unable to get method");
- ctx = SSL_CTX_new(method);
- if (ctx == NULL)
- err_sys("unable to get ctx");
- if (cipherList)
- if (SSL_CTX_set_cipher_list(ctx, cipherList) != SSL_SUCCESS)
- err_sys("server can't set cipher list 1");
- #ifdef CYASSL_LEANPSK
- usePsk = 1;
- #endif
- #ifndef NO_FILESYSTEM
- if (!usePsk) {
- if (SSL_CTX_use_certificate_file(ctx, ourCert, SSL_FILETYPE_PEM)
- != SSL_SUCCESS)
- err_sys("can't load server cert file, check file and run from"
- " CyaSSL home dir");
- }
- #endif
- #ifdef HAVE_NTRU
- if (useNtruKey) {
- if (CyaSSL_CTX_use_NTRUPrivateKey_file(ctx, ourKey)
- != SSL_SUCCESS)
- err_sys("can't load ntru key file, "
- "Please run from CyaSSL home dir");
- }
- #endif
- #ifndef NO_FILESYSTEM
- if (!useNtruKey && !usePsk) {
- if (SSL_CTX_use_PrivateKey_file(ctx, ourKey, SSL_FILETYPE_PEM)
- != SSL_SUCCESS)
- err_sys("can't load server cert file, check file and run from"
- " CyaSSL home dir");
- }
- #endif
- if (usePsk) {
- #ifndef NO_PSK
- SSL_CTX_set_psk_server_callback(ctx, my_psk_server_cb);
- SSL_CTX_use_psk_identity_hint(ctx, "cyassl server");
- if (cipherList == NULL) {
- const char *defaultCipherList;
- #ifdef HAVE_NULL_CIPHER
- defaultCipherList = "PSK-NULL-SHA";
- #else
- defaultCipherList = "PSK-AES256-CBC-SHA";
- #endif
- if (SSL_CTX_set_cipher_list(ctx, defaultCipherList) != SSL_SUCCESS)
- err_sys("server can't set cipher list 2");
- }
- #endif
- }
- #ifndef NO_FILESYSTEM
- /* if not using PSK, verify peer with certs */
- if (doCliCertCheck && usePsk == 0) {
- SSL_CTX_set_verify(ctx, SSL_VERIFY_PEER |
- SSL_VERIFY_FAIL_IF_NO_PEER_CERT,0);
- if (SSL_CTX_load_verify_locations(ctx, verifyCert, 0) != SSL_SUCCESS)
- err_sys("can't load ca file, Please run from CyaSSL home dir");
- }
- #endif
- #ifdef OPENSSL_EXTRA
- SSL_CTX_set_default_passwd_cb(ctx, PasswordCallBack);
- #endif
- #if defined(CYASSL_SNIFFER) && !defined(HAVE_NTRU) && !defined(HAVE_ECC)
- /* don't use EDH, can't sniff tmp keys */
- if (cipherList == NULL) {
- if (SSL_CTX_set_cipher_list(ctx, "AES256-SHA") != SSL_SUCCESS)
- err_sys("server can't set cipher list 3");
- }
- #endif
- ssl = SSL_new(ctx);
- if (ssl == NULL)
- err_sys("unable to get SSL");
- #ifdef HAVE_CRL
- CyaSSL_EnableCRL(ssl, 0);
- CyaSSL_LoadCRL(ssl, crlPemDir, SSL_FILETYPE_PEM, CYASSL_CRL_MONITOR |
- CYASSL_CRL_START_MON);
- CyaSSL_SetCRL_Cb(ssl, CRL_CallBack);
- #endif
- tcp_accept(&sockfd, &clientfd, (func_args*)args, port, useAnyAddr, doDTLS);
- if (!doDTLS)
- CloseSocket(sockfd);
- SSL_set_fd(ssl, clientfd);
- if (usePsk == 0) {
- #if !defined(NO_FILESYSTEM) && defined(OPENSSL_EXTRA)
- CyaSSL_SetTmpDH_file(ssl, dhParam, SSL_FILETYPE_PEM);
- #elif !defined(NO_CERTS)
- SetDH(ssl); /* repick suites with DHE, higher priority than PSK */
- #endif
- }
- #ifndef CYASSL_CALLBACKS
- if (nonBlocking) {
- CyaSSL_set_using_nonblock(ssl, 1);
- tcp_set_nonblocking(&clientfd);
- NonBlockingSSL_Accept(ssl);
- } else if (SSL_accept(ssl) != SSL_SUCCESS) {
- int err = SSL_get_error(ssl, 0);
- char buffer[80];
- printf("error = %d, %s\n", err, ERR_error_string(err, buffer));
- err_sys("SSL_accept failed");
- }
- #else
- NonBlockingSSL_Accept(ssl);
- #endif
- showPeer(ssl);
- idx = SSL_read(ssl, input, sizeof(input));
- if (idx > 0) {
- input[idx] = 0;
- printf("Client message: %s\n", input);
- }
- else if (idx < 0) {
- int readErr = SSL_get_error(ssl, 0);
- if (readErr != SSL_ERROR_WANT_READ)
- err_sys("SSL_read failed");
- }
- if (SSL_write(ssl, msg, sizeof(msg)) != sizeof(msg))
- err_sys("SSL_write failed");
- SSL_shutdown(ssl);
- SSL_free(ssl);
- SSL_CTX_free(ctx);
-
- CloseSocket(clientfd);
- ((func_args*)args)->return_code = 0;
- return 0;
- }
- /* so overall tests can pull in test function */
- #ifndef NO_MAIN_DRIVER
- int main(int argc, char** argv)
- {
- func_args args;
- #ifdef HAVE_CAVIUM
- int ret = OpenNitroxDevice(CAVIUM_DIRECT, CAVIUM_DEV_ID);
- if (ret != 0)
- err_sys("Cavium OpenNitroxDevice failed");
- #endif /* HAVE_CAVIUM */
- StartTCP();
- args.argc = argc;
- args.argv = argv;
- CyaSSL_Init();
- #ifdef DEBUG_CYASSL
- CyaSSL_Debugging_ON();
- #endif
- if (CurrentDir("server") || CurrentDir("build"))
- ChangeDirBack(2);
-
- server_test(&args);
- CyaSSL_Cleanup();
- #ifdef HAVE_CAVIUM
- CspShutdown(CAVIUM_DEV_ID);
- #endif
- return args.return_code;
- }
- int myoptind = 0;
- char* myoptarg = NULL;
- #endif /* NO_MAIN_DRIVER */
- #ifdef CYASSL_CALLBACKS
- int srvHandShakeCB(HandShakeInfo* info)
- {
- return 0;
- }
- int srvTimeoutCB(TimeoutInfo* info)
- {
- return 0;
- }
- #endif