- Added the ssl_mail_client example application
diff --git a/programs/ssl/CMakeLists.txt b/programs/ssl/CMakeLists.txt
index 96952d8..95daa11 100644
--- a/programs/ssl/CMakeLists.txt
+++ b/programs/ssl/CMakeLists.txt
@@ -18,6 +18,9 @@
add_executable(ssl_fork_server ssl_fork_server.c)
target_link_libraries(ssl_fork_server ${libs})
-INSTALL(TARGETS ssl_client1 ssl_client2 ssl_server ssl_fork_server
+add_executable(ssl_mail_client ssl_mail_client.c)
+target_link_libraries(ssl_mail_client ${libs})
+
+INSTALL(TARGETS ssl_client1 ssl_client2 ssl_server ssl_fork_server ssl_mail_client
DESTINATION "bin"
PERMISSIONS OWNER_READ OWNER_WRITE OWNER_EXECUTE GROUP_READ GROUP_EXECUTE WORLD_READ WORLD_EXECUTE)
diff --git a/programs/ssl/ssl_mail_client.c b/programs/ssl/ssl_mail_client.c
new file mode 100644
index 0000000..8858b1d
--- /dev/null
+++ b/programs/ssl/ssl_mail_client.c
@@ -0,0 +1,719 @@
+/*
+ * SSL client for SMTP servers
+ *
+ * Copyright (C) 2006-2010, Brainspark B.V.
+ *
+ * This file is part of PolarSSL (http://www.polarssl.org)
+ * Lead Maintainer: Paul Bakker <polarssl_maintainer at polarssl.org>
+ *
+ * All rights reserved.
+ *
+ * This program 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.
+ *
+ * This program 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.,
+ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ */
+
+#ifndef _CRT_SECURE_NO_DEPRECATE
+#define _CRT_SECURE_NO_DEPRECATE 1
+#endif
+
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <unistd.h>
+
+#include "polarssl/base64.h"
+#include "polarssl/error.h"
+#include "polarssl/net.h"
+#include "polarssl/ssl.h"
+#include "polarssl/havege.h"
+#include "polarssl/certs.h"
+#include "polarssl/x509.h"
+
+#define DFL_SERVER_NAME "localhost"
+#define DFL_SERVER_PORT 465
+#define DFL_USER_NAME "user"
+#define DFL_USER_PWD "password"
+#define DFL_MAIL_FROM ""
+#define DFL_MAIL_TO ""
+#define DFL_DEBUG_LEVEL 0
+#define DFL_CRT_FILE ""
+#define DFL_KEY_FILE ""
+#define DFL_FORCE_CIPHER 0
+#define DFL_MODE 0
+#define DFL_AUTHENTICATION 0
+
+#define MODE_SSL_TLS 0
+#define MODE_STARTTLS 0
+
+/*
+ * global options
+ */
+struct options
+{
+ char *server_name; /* hostname of the server (client only) */
+ int server_port; /* port on which the ssl service runs */
+ int debug_level; /* level of debugging */
+ int authentication; /* if authentication is required */
+ int mode; /* SSL/TLS (0) or STARTTLS (1) */
+ char *user_name; /* username to use for authentication */
+ char *user_pwd; /* password to use for authentication */
+ char *mail_from; /* E-Mail address to use as sender */
+ char *mail_to; /* E-Mail address to use as recipient */
+ char *crt_file; /* the file with the client certificate */
+ char *key_file; /* the file with the client key */
+ int force_ciphersuite[2]; /* protocol/ciphersuite to use, or all */
+} opt;
+
+void my_debug( void *ctx, int level, const char *str )
+{
+ if( level < opt.debug_level )
+ {
+ fprintf( (FILE *) ctx, "%s", str );
+ fflush( (FILE *) ctx );
+ }
+}
+
+int do_handshake( ssl_context *ssl, struct options *opt )
+{
+ int ret;
+ unsigned char buf[1024];
+
+ /*
+ * 4. Handshake
+ */
+ printf( " . Performing the SSL/TLS handshake..." );
+ fflush( stdout );
+
+ while( ( ret = ssl_handshake( ssl ) ) != 0 )
+ {
+ if( ret != POLARSSL_ERR_NET_WANT_READ && ret != POLARSSL_ERR_NET_WANT_WRITE )
+ {
+ error_strerror( ret, (char *) buf, 1024 );
+ printf( " failed\n ! ssl_handshake returned %d: %s\n\n", ret, buf );
+ return( -1 );
+ }
+ }
+
+ printf( " ok\n [ Ciphersuite is %s ]\n",
+ ssl_get_ciphersuite( ssl ) );
+
+ /*
+ * 5. Verify the server certificate
+ */
+ printf( " . Verifying peer X.509 certificate..." );
+
+ if( ( ret = ssl_get_verify_result( ssl ) ) != 0 )
+ {
+ printf( " failed\n" );
+
+ if( ( ret & BADCERT_EXPIRED ) != 0 )
+ printf( " ! server certificate has expired\n" );
+
+ if( ( ret & BADCERT_REVOKED ) != 0 )
+ printf( " ! server certificate has been revoked\n" );
+
+ if( ( ret & BADCERT_CN_MISMATCH ) != 0 )
+ printf( " ! CN mismatch (expected CN=%s)\n", opt->server_name );
+
+ if( ( ret & BADCERT_NOT_TRUSTED ) != 0 )
+ printf( " ! self-signed or not signed by a trusted CA\n" );
+
+ printf( "\n" );
+ }
+ else
+ printf( " ok\n" );
+
+ printf( " . Peer certificate information ...\n" );
+ x509parse_cert_info( (char *) buf, sizeof( buf ) - 1, " ", ssl->peer_cert );
+ printf( "%s\n", buf );
+
+ return( 0 );
+}
+
+int write_ssl_data( ssl_context *ssl, unsigned char *buf, size_t len )
+{
+ int ret;
+
+ printf("\n%s", buf);
+ while( len && ( ret = ssl_write( ssl, buf, len ) ) <= 0 )
+ {
+ if( ret != POLARSSL_ERR_NET_WANT_READ && ret != POLARSSL_ERR_NET_WANT_WRITE )
+ {
+ printf( " failed\n ! ssl_write returned %d\n\n", ret );
+ return -1;
+ }
+ }
+
+ return( 0 );
+}
+
+int write_ssl_and_get_response( ssl_context *ssl, unsigned char *buf, size_t len )
+{
+ int ret;
+ unsigned char data[128];
+ char code[4];
+ size_t i, idx = 0;
+
+ printf("\n%s", buf);
+ while( len && ( ret = ssl_write( ssl, buf, len ) ) <= 0 )
+ {
+ if( ret != POLARSSL_ERR_NET_WANT_READ && ret != POLARSSL_ERR_NET_WANT_WRITE )
+ {
+ printf( " failed\n ! ssl_write returned %d\n\n", ret );
+ return -1;
+ }
+ }
+
+ do
+ {
+ len = sizeof( data ) - 1;
+ memset( data, 0, sizeof( data ) );
+ ret = ssl_read( ssl, data, len );
+
+ if( ret == POLARSSL_ERR_NET_WANT_READ || ret == POLARSSL_ERR_NET_WANT_WRITE )
+ continue;
+
+ if( ret == POLARSSL_ERR_SSL_PEER_CLOSE_NOTIFY )
+ return -1;
+
+ if( ret <= 0 )
+ {
+ printf( "failed\n ! ssl_read returned %d\n\n", ret );
+ return -1;
+ }
+
+ printf("\n%s", data);
+ len = ret;
+ for( i = 0; i < len; i++ )
+ {
+ if( data[i] != '\n' )
+ {
+ if( idx < 4 )
+ code[ idx++ ] = data[i];
+ continue;
+ }
+
+ if( idx == 4 && code[0] >= '0' && code[0] <= '9' && code[3] == ' ' )
+ {
+ code[3] = '\0';
+ return atoi( code );
+ }
+
+ idx = 0;
+ }
+ }
+ while( 1 );
+}
+
+int write_and_get_response( int sock_fd, unsigned char *buf, size_t len )
+{
+ int ret;
+ unsigned char data[128];
+ char code[4];
+ size_t i, idx = 0;
+
+ printf("\n%s", buf);
+ if( len && ( ret = write( sock_fd, buf, len ) ) <= 0 )
+ {
+ printf( " failed\n ! ssl_write returned %d\n\n", ret );
+ return -1;
+ }
+
+ do
+ {
+ len = sizeof( data ) - 1;
+ memset( data, 0, sizeof( data ) );
+ ret = read( sock_fd, data, len );
+
+ if( ret <= 0 )
+ {
+ printf( "failed\n ! read returned %d\n\n", ret );
+ return -1;
+ }
+
+ printf("\n%s", data);
+ len = ret;
+ for( i = 0; i < len; i++ )
+ {
+ if( data[i] != '\n' )
+ {
+ if( idx < 4 )
+ code[ idx++ ] = data[i];
+ continue;
+ }
+
+ if( idx == 4 && code[0] >= '0' && code[0] <= '9' && code[3] == ' ' )
+ {
+ code[3] = '\0';
+ return atoi( code );
+ }
+
+ idx = 0;
+ }
+ }
+ while( 1 );
+}
+
+#define USAGE \
+ "\n usage: ssl_mail_client param=<>...\n" \
+ "\n acceptable parameters:\n" \
+ " server_name=%%s default: localhost\n" \
+ " server_port=%%d default: 4433\n" \
+ " debug_level=%%d default: 0 (disabled)\n" \
+ " authentication=%%d default: 0 (disabled)\n" \
+ " mode=%%d default: 0 (SSL/TLS) (1 for STARTTLS)\n" \
+ " user_name=%%s default: \"user\"\n" \
+ " user_pwd=%%s default: \"password\"\n" \
+ " mail_from=%%s default: \"\"\n" \
+ " mail_to=%%s default: \"\"\n" \
+ " crt_file=%%s default: \"\" (pre-loaded)\n" \
+ " key_file=%%s default: \"\" (pre-loaded)\n" \
+ " force_ciphersuite=<name> default: all enabled\n"\
+ " acceptable ciphersuite names:\n"
+
+int main( int argc, char *argv[] )
+{
+ int ret = 0, len, server_fd;
+ unsigned char buf[1024];
+ unsigned char base[1024];
+ char hostname[32];
+ havege_state hs;
+ ssl_context ssl;
+ ssl_session ssn;
+ x509_cert cacert;
+ x509_cert clicert;
+ rsa_context rsa;
+ int i;
+ size_t j, n;
+ char *p, *q;
+ const int *list;
+
+ /*
+ * Make sure memory references are valid.
+ */
+ server_fd = 0;
+ memset( &ssn, 0, sizeof( ssl_session ) );
+ memset( &ssl, 0, sizeof( ssl_context ) );
+ memset( &cacert, 0, sizeof( x509_cert ) );
+ memset( &clicert, 0, sizeof( x509_cert ) );
+ memset( &rsa, 0, sizeof( rsa_context ) );
+
+ if( argc == 0 )
+ {
+ usage:
+ printf( USAGE );
+
+ list = ssl_list_ciphersuites();
+ while( *list )
+ {
+ printf(" %s\n", ssl_get_ciphersuite_name( *list ) );
+ list++;
+ }
+ printf("\n");
+ goto exit;
+ }
+
+ opt.server_name = DFL_SERVER_NAME;
+ opt.server_port = DFL_SERVER_PORT;
+ opt.debug_level = DFL_DEBUG_LEVEL;
+ opt.authentication = DFL_AUTHENTICATION;
+ opt.mode = DFL_MODE;
+ opt.user_name = DFL_USER_NAME;
+ opt.user_pwd = DFL_USER_PWD;
+ opt.mail_from = DFL_MAIL_FROM;
+ opt.mail_to = DFL_MAIL_TO;
+ opt.crt_file = DFL_CRT_FILE;
+ opt.key_file = DFL_KEY_FILE;
+ opt.force_ciphersuite[0]= DFL_FORCE_CIPHER;
+
+ for( i = 1; i < argc; i++ )
+ {
+ n = strlen( argv[i] );
+
+ for( j = 0; j < n; j++ )
+ {
+ if( argv[i][j] == '=')
+ break;
+
+ if( argv[i][j] >= 'A' && argv[i][j] <= 'Z' )
+ argv[i][j] |= 0x20;
+ }
+
+ p = argv[i];
+ if( ( q = strchr( p, '=' ) ) == NULL )
+ goto usage;
+ *q++ = '\0';
+
+ if( strcmp( p, "server_name" ) == 0 )
+ opt.server_name = q;
+ else if( strcmp( p, "server_port" ) == 0 )
+ {
+ opt.server_port = atoi( q );
+ if( opt.server_port < 1 || opt.server_port > 65535 )
+ goto usage;
+ }
+ else if( strcmp( p, "debug_level" ) == 0 )
+ {
+ opt.debug_level = atoi( q );
+ if( opt.debug_level < 0 || opt.debug_level > 65535 )
+ goto usage;
+ }
+ else if( strcmp( p, "authentication" ) == 0 )
+ {
+ opt.authentication = atoi( q );
+ if( opt.authentication < 0 || opt.authentication > 1 )
+ goto usage;
+ }
+ else if( strcmp( p, "mode" ) == 0 )
+ {
+ opt.mode = atoi( q );
+ if( opt.mode < 0 || opt.mode > 1 )
+ goto usage;
+ }
+ else if( strcmp( p, "user_name" ) == 0 )
+ opt.user_name = q;
+ else if( strcmp( p, "user_pwd" ) == 0 )
+ opt.user_pwd = q;
+ else if( strcmp( p, "mail_from" ) == 0 )
+ opt.mail_from = q;
+ else if( strcmp( p, "mail_to" ) == 0 )
+ opt.mail_to = q;
+ else if( strcmp( p, "crt_file" ) == 0 )
+ opt.crt_file = q;
+ else if( strcmp( p, "key_file" ) == 0 )
+ opt.key_file = q;
+ else if( strcmp( p, "force_ciphersuite" ) == 0 )
+ {
+ opt.force_ciphersuite[0] = -1;
+
+ opt.force_ciphersuite[0] = ssl_get_ciphersuite_id( q );
+
+ if( opt.force_ciphersuite[0] <= 0 )
+ goto usage;
+
+ opt.force_ciphersuite[1] = 0;
+ }
+ else
+ goto usage;
+ }
+
+ /*
+ * 0. Initialize the RNG and the session data
+ */
+ havege_init( &hs );
+
+ /*
+ * 1.1. Load the trusted CA
+ */
+ printf( "\n . Loading the CA root certificate ..." );
+ fflush( stdout );
+
+ /*
+ * Alternatively, you may load the CA certificates from a .pem or
+ * .crt file by calling x509parse_crtfile( &cacert, "myca.crt" ).
+ */
+ ret = x509parse_crt( &cacert, (unsigned char *) test_ca_crt,
+ strlen( test_ca_crt ) );
+ if( ret != 0 )
+ {
+ printf( " failed\n ! x509parse_crt returned %d\n\n", ret );
+ goto exit;
+ }
+
+ printf( " ok\n" );
+
+ /*
+ * 1.2. Load own certificate and private key
+ *
+ * (can be skipped if client authentication is not required)
+ */
+ printf( " . Loading the client cert. and key..." );
+ fflush( stdout );
+
+ if( strlen( opt.crt_file ) )
+ ret = x509parse_crtfile( &clicert, opt.crt_file );
+ else
+ ret = x509parse_crt( &clicert, (unsigned char *) test_cli_crt,
+ strlen( test_cli_crt ) );
+ if( ret != 0 )
+ {
+ printf( " failed\n ! x509parse_crt returned %d\n\n", ret );
+ goto exit;
+ }
+
+ if( strlen( opt.key_file ) )
+ ret = x509parse_keyfile( &rsa, opt.key_file, "" );
+ else
+ ret = x509parse_key( &rsa, (unsigned char *) test_cli_key,
+ strlen( test_cli_key ), NULL, 0 );
+
+ if( ret != 0 )
+ {
+ printf( " failed\n ! x509parse_key returned %d\n\n", ret );
+ goto exit;
+ }
+
+ printf( " ok\n" );
+
+ /*
+ * 2. Start the connection
+ */
+ printf( " . Connecting to tcp/%s/%-4d...", opt.server_name,
+ opt.server_port );
+ fflush( stdout );
+
+ if( ( ret = net_connect( &server_fd, opt.server_name,
+ opt.server_port ) ) != 0 )
+ {
+ printf( " failed\n ! net_connect returned %d\n\n", ret );
+ goto exit;
+ }
+
+ printf( " ok\n" );
+
+ /*
+ * 3. Setup stuff
+ */
+ printf( " . Setting up the SSL/TLS structure..." );
+ fflush( stdout );
+
+ havege_init( &hs );
+
+ if( ( ret = ssl_init( &ssl ) ) != 0 )
+ {
+ printf( " failed\n ! ssl_init returned %d\n\n", ret );
+ goto exit;
+ }
+
+ printf( " ok\n" );
+
+ ssl_set_endpoint( &ssl, SSL_IS_CLIENT );
+ ssl_set_authmode( &ssl, SSL_VERIFY_OPTIONAL );
+
+ ssl_set_rng( &ssl, havege_rand, &hs );
+ ssl_set_dbg( &ssl, my_debug, stdout );
+ ssl_set_bio( &ssl, net_recv, &server_fd,
+ net_send, &server_fd );
+
+ if( opt.force_ciphersuite[0] == DFL_FORCE_CIPHER )
+ ssl_set_ciphersuites( &ssl, ssl_default_ciphersuites );
+ else
+ ssl_set_ciphersuites( &ssl, opt.force_ciphersuite );
+
+ ssl_set_session( &ssl, 1, 600, &ssn );
+
+ ssl_set_ca_chain( &ssl, &cacert, NULL, opt.server_name );
+ ssl_set_own_cert( &ssl, &clicert, &rsa );
+
+ ssl_set_hostname( &ssl, opt.server_name );
+
+ if( opt.mode == MODE_SSL_TLS )
+ {
+ if( do_handshake( &ssl, &opt ) != 0 )
+ goto exit;
+
+ printf( " > Get header from server:" );
+ fflush( stdout );
+
+ ret = write_ssl_and_get_response( &ssl, buf, 0 );
+ if( ret < 200 || ret > 299 )
+ {
+ printf( " failed\n ! server responded with %d\n\n", ret );
+ goto exit;
+ }
+
+ printf(" ok\n" );
+
+ printf( " > Write EHLO to server:" );
+ fflush( stdout );
+
+ gethostname( hostname, 32 );
+ len = sprintf( (char *) buf, "EHLO %s\n", hostname );
+ ret = write_ssl_and_get_response( &ssl, buf, len );
+ if( ret < 200 || ret > 299 )
+ {
+ printf( " failed\n ! server responded with %d\n\n", ret );
+ goto exit;
+ }
+ }
+ else
+ {
+ printf( " > Get header from server:" );
+ fflush( stdout );
+
+ ret = write_and_get_response( server_fd, buf, 0 );
+ if( ret < 200 || ret > 299 )
+ {
+ printf( " failed\n ! server responded with %d\n\n", ret );
+ goto exit;
+ }
+
+ printf(" ok\n" );
+
+ printf( " > Write EHLO to server:" );
+ fflush( stdout );
+
+ gethostname( hostname, 32 );
+ len = sprintf( (char *) buf, "EHLO %s\n", hostname );
+ ret = write_and_get_response( server_fd, buf, len );
+ if( ret < 200 || ret > 299 )
+ {
+ printf( " failed\n ! server responded with %d\n\n", ret );
+ goto exit;
+ }
+
+ printf(" ok\n" );
+
+ printf( " > Write STARTTLS to server:" );
+ fflush( stdout );
+
+ gethostname( hostname, 32 );
+ len = sprintf( (char *) buf, "STARTTLS\n" );
+ ret = write_and_get_response( server_fd, buf, len );
+ if( ret < 200 || ret > 299 )
+ {
+ printf( " failed\n ! server responded with %d\n\n", ret );
+ goto exit;
+ }
+
+ printf(" ok\n" );
+
+ if( do_handshake( &ssl, &opt ) != 0 )
+ goto exit;
+ }
+
+ if( opt.authentication )
+ {
+ printf( " > Write AUTH LOGIN to server:" );
+ fflush( stdout );
+
+ len = sprintf( (char *) buf, "AUTH LOGIN\n" );
+ ret = write_ssl_and_get_response( &ssl, buf, len );
+ if( ret < 200 || ret > 399 )
+ {
+ printf( " failed\n ! server responded with %d\n\n", ret );
+ goto exit;
+ }
+
+ printf(" ok\n" );
+
+ printf( " > Write username to server: %s", opt.user_name );
+ fflush( stdout );
+
+ n = sizeof( buf );
+ len = base64_encode( base, &n, opt.user_name, strlen( opt.user_name ) );
+ len = sprintf( (char *) buf, "%s\n", base );
+ ret = write_ssl_and_get_response( &ssl, buf, len );
+ if( ret < 300 || ret > 399 )
+ {
+ printf( " failed\n ! server responded with %d\n\n", ret );
+ goto exit;
+ }
+
+ printf(" ok\n" );
+
+ printf( " > Write password to server: %s", opt.user_pwd );
+ fflush( stdout );
+
+ len = base64_encode( base, &n, opt.user_pwd, strlen( opt.user_pwd ) );
+ len = sprintf( (char *) buf, "%s\n", base );
+ ret = write_ssl_and_get_response( &ssl, buf, len );
+ if( ret < 200 || ret > 399 )
+ {
+ printf( " failed\n ! server responded with %d\n\n", ret );
+ goto exit;
+ }
+
+ printf(" ok\n" );
+ }
+
+ printf( " > Write MAIL FROM to server:" );
+ fflush( stdout );
+
+ len = sprintf( (char *) buf, "MAIL FROM:<%s>\n", opt.mail_from );
+ ret = write_ssl_and_get_response( &ssl, buf, len );
+ if( ret < 200 || ret > 299 )
+ {
+ printf( " failed\n ! server responded with %d\n\n", ret );
+ goto exit;
+ }
+
+ printf(" ok\n" );
+
+ printf( " > Write RCPT TO to server:" );
+ fflush( stdout );
+
+ len = sprintf( (char *) buf, "RCPT TO:<%s>\n", opt.mail_to );
+ ret = write_ssl_and_get_response( &ssl, buf, len );
+ if( ret < 200 || ret > 299 )
+ {
+ printf( " failed\n ! server responded with %d\n\n", ret );
+ goto exit;
+ }
+
+ printf(" ok\n" );
+
+ printf( " > Write DATA to server:" );
+ fflush( stdout );
+
+ len = sprintf( (char *) buf, "DATA\n" );
+ ret = write_ssl_and_get_response( &ssl, buf, len );
+ if( ret < 300 || ret > 399 )
+ {
+ printf( " failed\n ! server responded with %d\n\n", ret );
+ goto exit;
+ }
+
+ printf(" ok\n" );
+
+ printf( " > Write content to server:" );
+ fflush( stdout );
+
+ len = sprintf( (char *) buf, "From: %s\nSubject: PolarSSL Test mail\n\n"
+ "This is a simple test mail from the "
+ "PolarSSL mail client example.\n"
+ "\n"
+ "Enjoy!", opt.mail_from );
+ ret = write_ssl_data( &ssl, buf, len );
+
+ len = sprintf( (char *) buf, "\r\n.\r\n");
+ ret = write_ssl_and_get_response( &ssl, buf, len );
+ if( ret < 200 || ret > 299 )
+ {
+ printf( " failed\n ! server responded with %d\n\n", ret );
+ goto exit;
+ }
+
+ printf(" ok\n" );
+
+ ssl_close_notify( &ssl );
+
+exit:
+
+ if( server_fd )
+ net_close( server_fd );
+ x509_free( &clicert );
+ x509_free( &cacert );
+ rsa_free( &rsa );
+ ssl_free( &ssl );
+
+ memset( &ssl, 0, sizeof( ssl ) );
+
+#ifdef WIN32
+ printf( " + Press Enter to exit this program.\n" );
+ fflush( stdout ); getchar();
+#endif
+
+ return( ret );
+}