From: Nikos Mavrogiannopoulos Date: Thu, 1 Mar 2012 23:17:05 +0000 (+0100) Subject: Added SRP test. X-Git-Tag: gnutls_3_0_15~7 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=419ad44e36f4e087190943ff72e711fc00042dd9;p=thirdparty%2Fgnutls.git Added SRP test. --- diff --git a/.gitignore b/.gitignore index 33632d28d0..f99f9a2499 100644 --- a/.gitignore +++ b/.gitignore @@ -591,3 +591,4 @@ doc/gnutls.xml tests/mini-tdb tests/resume-dtls tests/mini-record +tests/srp/mini-srp diff --git a/configure.ac b/configure.ac index 0a24f53620..619475cd50 100644 --- a/configure.ac +++ b/configure.ac @@ -461,6 +461,7 @@ AC_CONFIG_FILES([ tests/cert-tests/Makefile tests/dsa/Makefile tests/dtls/Makefile + tests/srp/Makefile tests/ecdsa/Makefile tests/key-id/Makefile tests/openpgp-certs/Makefile diff --git a/tests/Makefile.am b/tests/Makefile.am index 634b6b9dea..2d78c8c58e 100644 --- a/tests/Makefile.am +++ b/tests/Makefile.am @@ -21,7 +21,7 @@ SUBDIRS = . rsa-md5-collision pkcs1-padding pkcs8-decode pkcs12-decode \ userid cert-tests key-id sha2 safe-renegotiation dsa scripts ecdsa \ - slow dtls + slow dtls srp if ENABLE_OPENPGP SUBDIRS += openpgp-certs diff --git a/tests/srp/Makefile.am b/tests/srp/Makefile.am new file mode 100644 index 0000000000..849b1d968a --- /dev/null +++ b/tests/srp/Makefile.am @@ -0,0 +1,48 @@ +## Process this file with automake to produce Makefile.in +# Copyright (C) 2012 Free Software Foundation, Inc. +# +# Author: Nikos Mavrogiannopoulos +# +# This file is part of GnuTLS. +# +# This file 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 3 of the License, or +# (at your option) any later version. +# +# This file 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 file; if not, write to the Free Software Foundation, +# Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + +AM_CFLAGS = $(WARN_CFLAGS) $(WERROR_CFLAGS) +AM_CPPFLAGS = \ + -I$(top_srcdir)/tests \ + -I$(top_srcdir)/gl \ + -I$(top_builddir)/gl \ + -I$(top_srcdir)/lib/includes \ + -I$(top_builddir)/lib/includes \ + -I$(top_srcdir)/extra/includes \ + -I$(top_builddir)/extra/includes \ + -I$(top_srcdir)/lib \ + -I$(top_srcdir)/doc/examples + +AM_LDFLAGS = -no-install +LDADD = ../../lib/libgnutls.la \ + ../../gl/libgnu.la \ + ../libutils.la \ + $(LIBSOCKET) $(INET_NTOP_LIB) $(INET_PTON_LIB) \ + $(LIB_TIMER_TIME) + +if !WINDOWS + +check_PROGRAMS = mini-srp +TESTS = mini-srp + +endif + +TESTS_ENVIRONMENT = EXEEXT=$(EXEEXT) diff --git a/tests/srp/mini-srp.c b/tests/srp/mini-srp.c new file mode 100644 index 0000000000..79943ab783 --- /dev/null +++ b/tests/srp/mini-srp.c @@ -0,0 +1,271 @@ +/* + * Copyright (C) 2012 Free Software Foundation, Inc. + * + * Author: Nikos Mavrogiannopoulos + * + * This file is part of GnuTLS. + * + * GnuTLS 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 3 of the License, or + * (at your option) any later version. + * + * GnuTLS 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 GnuTLS; if not, write to the Free Software Foundation, + * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA + */ + +#ifdef HAVE_CONFIG_H +#include +#endif + +#include +#include + +#if defined(_WIN32) + +int main() +{ + exit(77); +} + +#else + +#include +#include +#include +#include +#include +#include +#include +#include + +#include "utils.h" + +static void terminate(void); + +/* This program tests the rehandshake in DTLS + */ + +static void +server_log_func (int level, const char *str) +{ + fprintf (stderr, "server|<%d>| %s", level, str); +} + +static void +client_log_func (int level, const char *str) +{ + fprintf (stderr, "client|<%d>| %s", level, str); +} + +/* A very basic TLS client, with anonymous authentication. + */ + + +static void +client (int fd) +{ + int ret; + gnutls_session_t session; + gnutls_srp_client_credentials_t srp_cred; + /* Need to enable anonymous KX specifically. */ + + gnutls_global_init (); + + if (debug) + { + gnutls_global_set_log_function (client_log_func); + gnutls_global_set_log_level (4711); + } + + gnutls_srp_allocate_client_credentials (&srp_cred); + gnutls_srp_set_client_credentials (srp_cred, "test", "test"); + + /* Initialize TLS session + */ + gnutls_init (&session, GNUTLS_CLIENT); + + /* Use default priorities */ + gnutls_priority_set_direct (session, "NORMAL:+SRP", NULL); + + /* put the anonymous credentials to the current session + */ + gnutls_credentials_set (session, GNUTLS_CRD_SRP, srp_cred); + + gnutls_transport_set_ptr (session, (gnutls_transport_ptr_t) fd); + + /* Perform the TLS handshake + */ + do + { + ret = gnutls_handshake (session); + } + while (ret < 0 && gnutls_error_is_fatal(ret) == 0); + + if (ret < 0) + { + fail ("client: Handshake failed\n"); + gnutls_perror (ret); + exit(1); + } + else + { + if (debug) + success ("client: Handshake was completed\n"); + } + + if (debug) + success ("client: TLS version is: %s\n", + gnutls_protocol_get_name (gnutls_protocol_get_version + (session))); + + gnutls_bye (session, GNUTLS_SHUT_WR); + + close (fd); + + gnutls_deinit (session); + + gnutls_srp_free_client_credentials (srp_cred); + + gnutls_global_deinit (); +} + + +/* These are global */ +gnutls_srp_server_credentials_t s_srp_cred; +pid_t child; + +static gnutls_session_t +initialize_tls_session (void) +{ + gnutls_session_t session; + + gnutls_init (&session, GNUTLS_SERVER); + + /* avoid calling all the priority functions, since the defaults + * are adequate. + */ + gnutls_priority_set_direct (session, "NORMAL:+SRP", NULL); + + gnutls_credentials_set (session, GNUTLS_CRD_SRP, s_srp_cred); + + return session; +} + +static void terminate(void) +{ +int status; + + kill(child, SIGTERM); + wait(&status); + exit(1); +} + +static void +server (int fd) +{ +int ret; +gnutls_session_t session; + + /* this must be called once in the program + */ + gnutls_global_init (); + + if (debug) + { + gnutls_global_set_log_function (server_log_func); + gnutls_global_set_log_level (4711); + } + + gnutls_srp_allocate_server_credentials (&s_srp_cred); + gnutls_srp_set_server_credentials_file (s_srp_cred, "tpasswd", + "tpasswd.conf"); + + session = initialize_tls_session (); + + gnutls_transport_set_ptr (session, (gnutls_transport_ptr_t) fd); + + do + { + ret = gnutls_handshake (session); + } + while (ret < 0 && gnutls_error_is_fatal(ret) == 0); + if (ret < 0) + { + close (fd); + gnutls_deinit (session); + fail ("server: Handshake has failed (%s)\n\n", gnutls_strerror (ret)); + terminate(); + } + if (debug) + success ("server: Handshake was completed\n"); + + if (debug) + success ("server: TLS version is: %s\n", + gnutls_protocol_get_name (gnutls_protocol_get_version + (session))); + + /* do not wait for the peer to close the connection. + */ + gnutls_bye (session, GNUTLS_SHUT_WR); + + close (fd); + gnutls_deinit (session); + + gnutls_srp_free_server_credentials (s_srp_cred); + + gnutls_global_deinit (); + + if (debug) + success ("server: finished\n"); +} + +static void start (void) +{ + int fd[2]; + int ret; + + ret = socketpair(AF_LOCAL, SOCK_STREAM, 0, fd); + if (ret < 0) + { + perror("socketpair"); + exit(1); + } + + child = fork (); + if (child < 0) + { + perror ("fork"); + fail ("fork"); + exit(1); + } + + if (child) + { + int status; + /* parent */ + server (fd[0]); + wait (&status); + if (WEXITSTATUS(status) != 0) + fail("Child died with status %d\n", WEXITSTATUS(status)); + } + else + { + client (fd[1]); + exit(0); + } +} + +void +doit (void) +{ + start(); +} + +#endif /* _WIN32 */ diff --git a/tests/srp/tpasswd b/tests/srp/tpasswd new file mode 100644 index 0000000000..1def9c1917 --- /dev/null +++ b/tests/srp/tpasswd @@ -0,0 +1,3 @@ +test:CsrY0PxYlYCAa8UuWUrcjpqBvG6ImlAdGwEUh3tN2DSDBbMWTvnUl7A8Hw7l0zFHwyLH5rh0llrmu/v.Df2FjDEGy0s0rYR5ARE2XlXPl66xhevHj5vitD0Qvq/J0x1v0zMWJSgq/Ah2MoOrw9aBEsQUgf9MddiHQKjE3Vetoq3:3h3cfS0WrBgPUsldDASSK0:1 +test2:1J14yVX4iBa97cySs2/SduwnSbHxiz7WieE761psJQDxkc5flpumEwXbAgK5PrSZ0aZ6q7zyrAN1apJR1QQPAdyScJ6Jw4zjDP7AnezUVGbUNMJXhsI0NPwSc0c/415XfrnM1139yjWCr1qkcYMoN4bALppMMLB8glJkxy7t.3cmH9MkRRAjXXdUgAvHw2ZFLmB/8TlZDhnDS78xCSgLQs.oubZEEIgOWl7BT2.aW76fW3yKWdVrrHQDYPtR4hKx:11rUG9wSMLHe2Cu2p7dmFY:2 +test3:LVJZDDuElMHuRt5/fcx64AhJ4erhFvbIhv/XCtD0tJI3OC6yEBzthZ1FSqblri9qtsvboPApbFHwP9WEluGtCOuzOON4LS8sSeQDBO.PaqjTnsmXKPYMKa.SuLXFuRTtdiFRwX2ZRy3GIWoCvxJtPDWCEYGBWfnjjGEYmQWvo534JVtVDyMaFItYlMTOtBSgsg488oJ5hIAU6jVyIQZGPVv8OHsPCpEt2UlTixzI9nAgQ0WL5ShKaAq0dksF/AY7UMKm0oHbtZeqAx6YcBzLbBhNvcEqYzH95ONpr.cUh91iRhVzdVscsFweSCtWsQrVT4zmSRwdsljeFQPqFbdeK:iWkELSVg3JxmyEq.XbjAW:3 diff --git a/tests/srp/tpasswd.conf b/tests/srp/tpasswd.conf new file mode 100644 index 0000000000..67825ceabd --- /dev/null +++ b/tests/srp/tpasswd.conf @@ -0,0 +1,3 @@ +1:Ewl2hcjiutMd3Fu2lgFnUXWSc67TVyy2vwYCKoS9MLsrdJVT9RgWTCuEqWJrfB6uE3LsE9GkOlaZabS7M29sj5TnzUqOLJMjiwEzArfiLr9WbMRANlF68N5AVLcPWvNx6Zjl3m5Scp0BzJBz9TkgfhzKJZ.WtP3Mv/67I/0wmRZ:2 +2:dUyyhxav9tgnyIg65wHxkzkb7VIPh4o0lkwfOKiPp4rVJrzLRYVBtb76gKlaO7ef5LYGEw3G.4E0jbMxcYBetDy2YdpiP/3GWJInoBbvYHIRO9uBuxgsFKTKWu7RnR7yTau/IrFTdQ4LY/q.AvoCzMxV0PKvD9Odso/LFIItn8PbTov3VMn/ZEH2SqhtpBUkWtmcIkEflhX/YY/fkBKfBbe27/zUaKUUZEUYZ2H2nlCL60.JIPeZJSzsu/xHDVcx:2 +3:2iQzj1CagQc/5ctbuJYLWlhtAsPHc7xWVyCPAKFRLWKADpASkqe9djWPFWTNTdeJtL8nAhImCn3Sr/IAdQ1FrGw0WvQUstPx3FO9KNcXOwisOQ1VlL.gheAHYfbYyBaxXL.NcJx9TUwgWDT0hRzFzqSrdGGTN3FgSTA1v4QnHtEygNj3eZ.u0MThqWUaDiP87nqha7XnT66bkTCkQ8.7T8L4KZjIImrNrUftedTTBi.WCi.zlrBxDuOM0da0JbUkQlXqvp0yvJAPpC11nxmmZOAbQOywZGmu9nhZNuwTlxjfIro0FOdthaDTuZRL9VL7MRPUDo/DQEyW.d4H.UIlzp:2