Removing unused code.

Perry Werneck
1 parent 3be44a48
Showing 28 changed files with 24 additions and 3654 deletions Show diff stats
lib3270.cbp
src/core/host.c
src/core/linux/connect.c
src/core/properties/signed.c
src/core/session.c
src/include/networking.h
src/network_modules/default/main.c
src/network_modules/openssl/main.c
src/network_modules/state.c
src/ssl/crl.c
src/ssl/crl.h
src/ssl/linux/getcrl.c
src/ssl/linux/ldap.c
src/ssl/linux/private.h
src/ssl/linux/url.c
src/ssl/macos/getcrl.c
src/ssl/macos/init.c
src/ssl/macos/ldap.c
src/ssl/macos/private.h
src/ssl/macos/url.c
@@ -366,44 +366,8 @@
 		<Unit filename="src/selection/selection.c">
 			<Option compilerVar="CC" />
 		</Unit>
-		<Unit filename="src/ssl/crl.c">
-			<Option compilerVar="CC" />
-		</Unit>
 		<Unit filename="src/ssl/crl.h" />
-		<Unit filename="src/ssl/linux/getcrl.c">
-			<Option compilerVar="CC" />
-		</Unit>
-		<Unit filename="src/ssl/linux/init.c">
-			<Option compilerVar="CC" />
-		</Unit>
-		<Unit filename="src/ssl/linux/ldap.c">
-			<Option compilerVar="CC" />
-		</Unit>
 		<Unit filename="src/ssl/linux/private.h" />
-		<Unit filename="src/ssl/linux/url.c">
-			<Option compilerVar="CC" />
-		</Unit>
-		<Unit filename="src/ssl/negotiate.c">
-			<Option compilerVar="CC" />
-		</Unit>
-		<Unit filename="src/ssl/notify.c">
-			<Option compilerVar="CC" />
-		</Unit>
-		<Unit filename="src/ssl/properties.c">
-			<Option compilerVar="CC" />
-		</Unit>
-		<Unit filename="src/ssl/windows/getcrl.c">
-			<Option compilerVar="CC" />
-		</Unit>
-		<Unit filename="src/ssl/windows/http.c">
-			<Option compilerVar="CC" />
-		</Unit>
-		<Unit filename="src/ssl/windows/init.c">
-			<Option compilerVar="CC" />
-		</Unit>
-		<Unit filename="src/ssl/windows/ldap.c">
-			<Option compilerVar="CC" />
-		</Unit>
 		<Unit filename="src/ssl/windows/private.h" />
 		<Unit filename="src/testprogram/testprogram.c">
 			<Option compilerVar="CC" />
@@ -52,7 +52,6 @@
 #include "trace_dsc.h"
 #include "utilc.h"
 #include "xioc.h"
-#include "../ssl/crl.h"
 #include "screenc.h"
  
 #include <errno.h>
@@ -293,13 +292,10 @@ static void update_url(H3270 *hSession)
 	lib3270_write_event_trace(hSession,"Host URL was changed\nFrom: %s\nTo: %s\n",hSession->host.url,url);
 	lib3270_free(hSession->host.url);
 	hSession->host.url = url;
-
-#if defined(HAVE_LIBSSLx) && defined(SSL_ENABLE_CRL_CHECK)
-	lib3270_crl_free(hSession);
-#endif // SSL_ENABLE_CRL_CHECK
-
 	hSession->cbk.update_url(hSession, hSession->host.url);
  
+	hSession->network.module->reset(hSession);
+
 }
  
 LIB3270_EXPORT const char * lib3270_get_associated_luname(const H3270 *hSession)
@@ -307,16 +307,6 @@
 	//
 	hSession->ever_3270 = False;
  
-#if defined(HAVE_LIBSSLx)
-	if(hSession->ssl.enabled)
-	{
-		hSession->ssl.host = 1;
-		if(ssl_init(hSession))
-			return errno = ENOTCONN;
-
-	}
-#endif // HAVE_LIBSSL
-
 	// set options for inline out-of-band data and keepalives
 	int optval = 1;
 	if(hSession->network.module->setsockopt(hSession, SOL_SOCKET, SO_OOBINLINE, &optval, sizeof(optval)) < 0)
@@ -49,48 +49,6 @@
  	return (int) lib3270_get_ssl_state(hSession);
  }
  
- static int lib3270_set_ssl_minimum_protocol_version(H3270 *hSession, int value)
- {
-#ifdef HAVE_LIBSSLx
-	FAIL_IF_ONLINE(hSession);
-	hSession->ssl.protocol.min_version = value;
-	return 0;
-#else
-	return ENOTSUP;
-#endif // HAVE_LIBSSL
- }
-
- static int lib3270_set_ssl_maximum_protocol_version(H3270 *hSession, int value)
- {
-#ifdef HAVE_LIBSSLx
-	FAIL_IF_ONLINE(hSession);
-	hSession->ssl.protocol.max_version = value;
-	return 0;
-#else
-	return ENOTSUP;
-#endif // HAVE_LIBSSL
- }
-
- static int lib3270_get_ssl_minimum_protocol_version(const H3270 *hSession)
- {
-#ifdef HAVE_LIBSSLx
-	return hSession->ssl.protocol.min_version;
-#else
-	errno = ENOTSUP;
-	return 0;
-#endif // HAVE_LIBSSL
- }
-
- static int lib3270_get_ssl_maximum_protocol_version(const H3270 *hSession)
- {
-#ifdef HAVE_LIBSSLx
-	return hSession->ssl.protocol.max_version;
-#else
-	errno = ENOTSUP;
-	return 0;
-#endif // HAVE_LIBSSL
- }
-
  const LIB3270_INT_PROPERTY * lib3270_get_int_properties_list(void)
  {
  
@@ -117,22 +75,6 @@
 			.set = NULL													//  Set value.
 		},
  
- 		{
-			.name = "ssl_min_protocol_version",									//  Property name.
-			.description = N_( "ID of the minimum supported SSL protocol version" ),	//  Property description.
-			.default_value = 0,
-			.get = lib3270_get_ssl_minimum_protocol_version,				//  Get value.
-			.set = lib3270_set_ssl_minimum_protocol_version				//  Set value.
-		},
-
- 		{
-			.name = "ssl_max_protocol_version",									//  Property name.
-			.description = N_( "ID of the maximum supported SSL protocol version" ),	//  Property description.
-			.default_value = 0,
-			.get = lib3270_get_ssl_maximum_protocol_version,				//  Get value.
-			.set = lib3270_set_ssl_maximum_protocol_version				//  Set value.
-		},
-
 		{
 			.name = NULL,
 			.description = NULL,
@@ -42,7 +42,6 @@
 #include "kybdc.h"
 #include "3270ds.h"
 #include "popupsc.h"
-#include "../ssl/crl.h"
 #include <lib3270/trace.h>
 #include <lib3270/log.h>
 #include <lib3270/properties.h>
@@ -74,16 +73,6 @@ void lib3270_session_free(H3270 *h)
  
 	shutdown_toggles(h);
  
-#if defined(SSL_ENABLE_CRL_CHECK) && defined(HAVE_LIBSSLx)
-	if(h->ssl.crl.prefer)
-	{
-		free(h->ssl.crl.prefer);
-		h->ssl.crl.prefer = NULL;
-	}
-
-	lib3270_crl_free(h);
-#endif // SSL_ENABLE_CRL_CHECK
-
 	// Release network module
 	if(h->network.module)
 	{
@@ -166,6 +166,11 @@
 		/// @return String with the CRL certificate (release it with lib3270_free); NULL if not available.
 		char * (*getcrl)(const H3270 *hSession);
  
+		/// @brief Reset.
+		///
+		/// Clear network module state (used when URL changes).
+		void (*reset)(H3270 *hSession);
+
 	} LIB3270_NET_MODULE;
  
 	/**
@@ -62,6 +62,9 @@
 	return 0;
  }
  
+ static void unsecure_network_reset(H3270 GNUC_UNUSED(*hSession)) {
+ }
+
  ssize_t unsecure_network_send(H3270 *hSession, const void *buffer, size_t length) {
  
 	ssize_t bytes = send(hSession->network.context->sock,buffer,length,0);
@@ -164,7 +167,8 @@ void lib3270_set_default_network_module(H3270 *hSession) {
 		.is_connected = unsecure_network_is_connected,
 		.getsockname = unsecure_network_getsockname,
 		.setsockopt = unsecure_network_setsockopt,
-		.getsockopt = unsecure_network_getsockopt
+		.getsockopt = unsecure_network_getsockopt,
+		.reset = unsecure_network_reset
 	};
  
  	debug("%s",__FUNCTION__);
@@ -35,18 +35,21 @@
  #include "private.h"
  
  
-static void openssl_network_finalize(H3270 *hSession) {
-
-	debug("%s",__FUNCTION__);
+static void openssl_network_reset(H3270 *hSession) {
  
 	if(hSession->network.context) {
+		lib3270_openssl_crl_free(hSession->network.context);
+	}
+
+}
  
-		// Cleanupp
-		LIB3270_NET_CONTEXT *context = hSession->network.context;
+static void openssl_network_finalize(H3270 *hSession) {
  
-		lib3270_openssl_crl_free(context);
+	debug("%s",__FUNCTION__);
  
-		// Release network context.
+	openssl_network_reset(hSession);
+
+	if(hSession->network.context) {
 		lib3270_free(hSession->network.context);
 		hSession->network.context = NULL;
 	}
@@ -346,7 +349,8 @@ void lib3270_set_libssl_network_module(H3270 *hSession) {
 		.setsockopt = openssl_network_setsockopt,
 		.getsockopt = openssl_network_getsockopt,
 		.getcert = openssl_network_getcert,
-		.getcrl	= openssl_network_getcrl
+		.getcrl	= openssl_network_getcrl,
+		.reset = openssl_network_reset
 	};
  
  	debug("%s",__FUNCTION__);
@@ -50,15 +50,6 @@ LIB3270_EXPORT int lib3270_is_secure(const H3270 *hSession)
 	return lib3270_get_ssl_state(hSession) == LIB3270_SSL_SECURE;
 }
  
-#if defined(HAVE_LIBSSLx)
-LIB3270_EXPORT long lib3270_get_SSL_verify_result(const H3270 *hSession)
-{
-	if(hSession->ssl.con)
-		return SSL_get_verify_result(hSession->ssl.con);
-	return -1;
-}
-#endif // HAVE_LIBSSL
-
 LIB3270_EXPORT LIB3270_SSL_STATE lib3270_get_ssl_state(const H3270 *hSession)
 {
 	return hSession->ssl.state;
@@ -1,292 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- */
-
-#include <config.h>
-
-#include <internals.h>
-#include <lib3270/log.h>
-#include <lib3270/trace.h>
-#include <lib3270/toggle.h>
-#include <trace_dsc.h>
-#include <array.h>
-
-#include "crl.h"
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-#if defined(SSL_ENABLE_CRL_CHECK) && defined(HAVE_LIBSSL)
-
-void lib3270_crl_free(H3270 *hSession)
-{
-	if(hSession->ssl.crl.cert)
-	{
-		X509_CRL_free(hSession->ssl.crl.cert);
-		hSession->ssl.crl.cert = NULL;
-	}
-
-	if(hSession->ssl.crl.url)
-	{
-		free(hSession->ssl.crl.url);
-		hSession->ssl.crl.url = NULL;
-	}
-
-}
-
-void lib3270_crl_free_if_expired(H3270 *hSession)
-{
-	if(!hSession->ssl.crl.cert)
-		return;
-
-	// https://stackoverflow.com/questions/23407376/testing-x509-certificate-expiry-date-with-c
-	// X509_CRL_get_nextUpdate is deprecated in openssl 1.1.0
-	#if OPENSSL_VERSION_NUMBER < 0x10100000L
-		const ASN1_TIME * next_update = X509_CRL_get_nextUpdate(hSession->ssl.crl.cert);
-	#else
-		const ASN1_TIME * next_update = X509_CRL_get0_nextUpdate(hSession->ssl.crl.cert);
-	#endif
-
-	if(X509_cmp_current_time(next_update) == 1)
-	{
-		int day, sec;
-		if(ASN1_TIME_diff(&day, &sec, NULL, next_update))
-		{
-			trace_ssl(hSession,"CRL is valid for %d day(s) and %d second(s)\n",day,sec);
-			return;
-		}
-
-		trace_ssl(hSession,"Can't get CRL next update, discarding it\n");
-
-	}
-	else
-	{
-		trace_ssl(hSession,"CRL is no longer valid\n");
-	}
-
-	// Certificate is no longer valid, release it.
-	X509_CRL_free(hSession->ssl.crl.cert);
-	hSession->ssl.crl.cert = NULL;
-
-}
-
-int lib3270_crl_new_from_url(H3270 *hSession, void *ssl_error, const char *url)
-{
-	if(!(url && *url))
-		return -1;
-
-	lib3270_crl_free(hSession);	// Just in case!
-
-	//
-	// Get the new CRL
-	//
-	// https://stackoverflow.com/questions/10510850/how-to-verify-the-certificate-for-the-ongoing-ssl-session
-	//
-	trace_ssl(hSession,"Getting CRL from %s\n",url);
-
-	hSession->ssl.crl.cert = lib3270_download_crl(hSession,(SSL_ERROR_MESSAGE *) ssl_error, url);
-
-	if(hSession->ssl.crl.cert)
-	{
-		// Got CRL!
-
-		// Update URL
-		if(hSession->ssl.crl.url)
-			lib3270_free(hSession->ssl.crl.url);
-
-		hSession->ssl.crl.url = lib3270_strdup(url);
-
-		// Add it to ssl store
-		if(lib3270_get_toggle(hSession,LIB3270_TOGGLE_SSL_TRACE))
-		{
-			lib3270_autoptr(char) text = lib3270_get_ssl_crl_text(hSession);
-
-			if(text)
-				trace_ssl(hSession,"\n%s\n",text);
-
-		}
-
-		// Add CRL in the store.
-		X509_STORE *store = SSL_CTX_get_cert_store(ssl_ctx);
-		if(X509_STORE_add_crl(store, hSession->ssl.crl.cert))
-		{
-			trace_ssl(hSession,"CRL was added to context cert store\n");
-		}
-		else
-		{
-			trace_ssl(hSession,"CRL was not added to context cert store\n");
-		}
-
-		return 0;
-	}
-
-	trace_ssl(hSession,"Can't get CRL using %s\n",url);
-
-	return -1;
-
-}
-
-/// @brief Load CRL from X509 certificate.
-int lib3270_crl_new_from_x509(H3270 *hSession, void *ssl_error, X509 *cert)
-{
-	// References:
-	//
-	// http://www.zedwood.com/article/cpp-check-crl-for-revocation
-	//
-	lib3270_autoptr(CRL_DIST_POINTS) dist_points = (CRL_DIST_POINTS *) X509_get_ext_d2i(cert, NID_crl_distribution_points, NULL, NULL);
-
-	if(!dist_points)
-	{
-		static const LIB3270_POPUP popup = {
-			.name = "SSL-NoDistPoints",
-			.type = LIB3270_NOTIFY_SECURE,
-			.summary = N_("Can't verify"),
-			.body = N_( "The host certificate doesn't have CRL distribution points" )
-		};
-
-		((SSL_ERROR_MESSAGE *) ssl_error)->popup = &popup;
-		return EACCES;
-	}
-
-	if(lib3270_crl_new_from_dist_points(hSession, ssl_error, dist_points))
-		return EACCES;
-
-	return 0;
-}
-
-int lib3270_crl_new_from_dist_points(H3270 *hSession, void *ssl_error, CRL_DIST_POINTS * dist_points)
-{
-	//
-	// Reference:
-	//
-	// https://nougat.cablelabs.com/DLNA-RUI/openssl/commit/57912ed329f870b237f2fd9f2de8dec3477d1729
-	//
-	size_t ix;
-	int i;
-
-	lib3270_autoptr(LIB3270_STRING_ARRAY) uris = lib3270_string_array_new();
-
-	for(ix = 0; ix < (size_t) sk_DIST_POINT_num(dist_points); ix++) {
-
-		DIST_POINT *dp = sk_DIST_POINT_value(dist_points, ix);
-
-		if(!dp->distpoint || dp->distpoint->type != 0)
-			continue;
-
-		GENERAL_NAMES *gens = dp->distpoint->name.fullname;
-
-		for (i = 0; i < sk_GENERAL_NAME_num(gens); i++)
-		{
-			int gtype;
-			GENERAL_NAME *gen = sk_GENERAL_NAME_value(gens, i);
-			ASN1_STRING *uri = GENERAL_NAME_get0_value(gen, &gtype);
-
-			if(uri && gtype == GEN_URI)
-			{
-				int length = ASN1_STRING_length(uri);
-
-#if (OPENSSL_VERSION_NUMBER >= 0x10100000L) // OpenSSL 1.1.0+
-				const unsigned char * data = ASN1_STRING_get0_data(uri);
-#else
-				const unsigned char * data = ASN1_STRING_data(uri);
-#endif // OpenSSL 1.1.0+
-
-				if(data && length > 0)
-					lib3270_string_array_append_with_length(uris,(char *) data, (size_t) length);
-
-			}
-
-		}
-
-	}
-
-#ifdef DEBUG
-	{
-		for(ix = 0; ix < uris->length; ix++)
-		{
-			debug("%u: %s", (unsigned int) ix, uris->str[ix]);
-		}
-	}
-#endif // DEBUG
-
-	if(hSession->ssl.crl.url)
-	{
-		// Check if the current URL is still valid.
-		for(ix = 0; ix < uris->length; ix++)
-		{
-			if(!strcmp(hSession->ssl.crl.url,uris->str[ix]))
-			{
-				trace_ssl(hSession,"Keeping CRL from %s\n",hSession->ssl.crl.url);
-				return 0;
-			}
-		}
-
-		trace_ssl(hSession,"Discarding invalid CRL from %s\n",hSession->ssl.crl.url);
-
-		// The URL is invalid or not to this cert, remove it!
-		lib3270_free(hSession->ssl.crl.url);
-		hSession->ssl.crl.url = NULL;
-	}
-
-	//
-	// Downloading CRLs
-	//
-	if(hSession->ssl.crl.download)
-	{
-		if(hSession->ssl.crl.prefer && *hSession->ssl.crl.prefer)
-		{
-			size_t length = strlen(hSession->ssl.crl.prefer);
-
-			for(ix = 0; ix < uris->length; ix++)
-			{
-				if(!strncmp(uris->str[ix],hSession->ssl.crl.prefer,length))
-				{
-					trace_ssl(hSession,"Trying preferred URL %s\n",uris->str[ix]);
-					if(lib3270_crl_new_from_url(hSession, ssl_error, uris->str[ix]) == 0)
-						return 0;
-				}
-
-			}
-
-		}
-
-		// Can't load, try all of them.
-		for(ix = 0; ix < uris->length; ix++)
-		{
-			trace_ssl(hSession,"Trying CRL from %s\n",uris->str[ix]);
-			if(lib3270_crl_new_from_url(hSession, ssl_error, uris->str[ix]) == 0)
-				return 0;
-		}
-
-		return -1;
-	}
-
-	return 0;
-
-}
-
-#endif // SSL_ENABLE_CRL_CHECK && HAVE_LIBSSL
@@ -1,84 +0,0 @@
-/*
- * "Software G3270, desenvolvido com base nos códigos fontes do WC3270  e  X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  ',  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como private.h e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas de Mendonça)
- *
- */
-
-#ifdef WIN32
-	#include <winsock2.h>
-	#include <windows.h>
-#endif // WIN32
-
-#include <config.h>				/* autoconf settings */
-#include <lib3270.h>			/* lib3270 API calls and defs */
-
-#if defined(HAVE_LIBSSLx)
-
-	#include <openssl/ssl.h>
-	#include <openssl/err.h>
-
-	/**
-	 * @brief X509 auto-cleanup.
-	 */
-	static inline void lib3270_autoptr_cleanup_X509(X509 **ptr)
-	{
-		if(*ptr)
-			X509_free(*ptr);
-	}
-
-	/**
-	 * @brief Dist points auto-cleanup.
-	 */
-	static inline void lib3270_autoptr_cleanup_CRL_DIST_POINTS(CRL_DIST_POINTS **ptr)
-	{
-		if(*ptr)
-			CRL_DIST_POINTS_free(*ptr);
-	}
-
-
-#endif // HAVE_LIBSSL
-
-#if defined(SSL_ENABLE_CRL_CHECK) && defined(HAVE_LIBSSLx)
-
-	/// @brief Unconditional release of the session CRL.
-	LIB3270_INTERNAL void lib3270_crl_free(H3270 *hSession);
-
-	/// @brief Load CRL from URL.
-	LIB3270_INTERNAL int lib3270_crl_new_from_url(H3270 *hSession, void *ssl_error, const char *url);
-
-	/// @brief Load CRL from X509 certificate.
-	LIB3270_INTERNAL int lib3270_crl_new_from_x509(H3270 *hSession, void *ssl_error, X509 *cert);
-
-	/// @brief Load CRL from distribution points.
-	LIB3270_INTERNAL int lib3270_crl_new_from_dist_points(H3270 *hSession, void *ssl_error, CRL_DIST_POINTS * dist_points);
-
-	LIB3270_INTERNAL X509_CRL * lib3270_download_crl(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *url);
-
-
-#endif // SSL_ENABLE_CRL_CHECK && HAVE_LIBSSL
-
-
-
@@ -1,144 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- *
- * References:
- *
- * http://www.openssl.org/docs/ssl/
- * https://stackoverflow.com/questions/4389954/does-openssl-automatically-handle-crls-certificate-revocation-lists-now
- *
- */
-
-#include "private.h"
-
-#if defined(HAVE_LIBSSL) && defined(SSL_ENABLE_CRL_CHECK)
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-static inline void lib3270_autoptr_cleanup_FILE(FILE **file)
-{
-	if(*file)
-		fclose(*file);
-}
-
-X509_CRL * lib3270_download_crl(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl)
-{
-	X509_CRL * x509_crl = NULL;
-
-	if(!(consturl && *consturl))
-	{
-		static const LIB3270_POPUP popup = {
-			.type = LIB3270_NOTIFY_SECURE,
-			.name = "SSL-INVCRLURL",
-			.summary = N_( "Can't open CRL File" ),
-			.body = N_("The URL for the CRL is undefined or empty")
-		};
-
-		message->code = hSession->ssl.error = 0;
-		message->popup = &popup;
-		errno = ENOENT;
-		return NULL;
-	}
-
-	if(strncasecmp(consturl,"file://",7) == 0)
-	{
-		lib3270_autoptr(FILE) hCRL = fopen(consturl+7,"r");
-
-		if(!hCRL)
-		{
-			// Can't open CRL File.
-			int err = errno;
-
-			static const LIB3270_POPUP popup = {
-				.type = LIB3270_NOTIFY_SECURE,
-				.name = "SSL-CRLOPEN",
-				.summary = N_( "Can't open CRL File" )
-			};
-
-			message->code = hSession->ssl.error = 0;
-			message->popup = &popup;
-
-			trace_ssl(hSession,"Can't open %s: %s\n",consturl,strerror(err));
-
-			return NULL;
-
-		}
-
-		trace_ssl(hSession,"Loading CRL from %s\n",consturl+7);
-		if(d2i_X509_CRL_fp(hCRL, &x509_crl))
-		{
-			static const LIB3270_POPUP popup = {
-				.type = LIB3270_NOTIFY_SECURE,
-				.name = "SSL-CRLDECODE",
-				.summary = N_( "Can't decode CRL" )
-			};
-			message->code = hSession->ssl.error = ERR_get_error();
-			message->popup = &popup;
-			lib3270_write_log(hSession,"ssl","%s: %s",consturl, popup.summary);
-			return NULL;
-		}
-
-	}
-#ifdef HAVE_LDAP
-	else if(strncasecmp(consturl,"ldap://",7) == 0 && strlen(consturl) > 8)
-	{
-		return get_crl_using_ldap(hSession, message, consturl);
-
-	}
-#endif // HAVE_LDAP
-	else
-	{
-#ifdef HAVE_LIBCURL
-
-		return get_crl_using_url(hSession, message, consturl);
-
-#else
-		// Can't get CRL.
-
-		message->error = hSession->ssl.error = 0;
-
-		if(!(message->text && message->description))
-			message->title = _( "Security error" );
-
-		if(!message->text)
-			message->text = _( "Unexpected or invalid CRL URL" );
-
-		if(!message->description)
-			message->description = _("The URL scheme is unknown");
-
-		trace_ssl(hSession,"%s: The URL scheme is unknown",consturl);
-
-		errno = EINVAL;
-		return NULL;
-#endif // HAVE_LIBCURL
-	}
-
-	return x509_crl;
-
-}
-
-#endif // HAVE_LIBSSL && SSL_ENABLE_CRL_CHECK
@@ -1,241 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- *
- * References:
- *
- * http://www.openssl.org/docs/ssl/
- * https://stackoverflow.com/questions/4389954/does-openssl-automatically-handle-crls-certificate-revocation-lists-now
- *
- */
-
-#include <config.h>
-#include <internals.h>
-#include <lib3270/log.h>
-#include <lib3270/trace.h>
-#include <lib3270/toggle.h>
-
-#include "utilc.h"
-
-#if defined(HAVE_LIBSSL) && defined(SSL_ENABLE_CRL_CHECK) && defined(HAVE_LDAP)
-
-#include <openssl/ssl.h>
-#include <openssl/err.h>
-#include <openssl/x509_vfy.h>
-#include <openssl/x509.h>
-
-#define LDAP_DEPRECATED 1
-#include <ldap.h>
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-static inline void lib3270_autoptr_cleanup_LDAPMessage(LDAPMessage **message)
-{
-	debug("%s(%p)",__FUNCTION__,*message);
-	if(message)
-		ldap_msgfree(*message);
-	*message = NULL;
-}
-
-static inline void lib3270_autoptr_cleanup_LDAP(LDAP **ld)
-{
-	debug("%s(%p)",__FUNCTION__,*ld);
-	if(*ld)
-		ldap_unbind_ext(*ld, NULL, NULL);
-	*ld = NULL;
-}
-
-static inline void lib3270_autoptr_cleanup_BerElement(BerElement **ber)
-{
-	debug("%s(%p)",__FUNCTION__,*ber);
-	if(*ber)
-		ber_free(*ber, 0);
-	*ber = NULL;
-}
-
-static inline void lib3270_autoptr_cleanup_LDAPPTR(char **ptr)
-{
-	debug("%s(%p)",__FUNCTION__,*ptr);
-	if(*ptr)
-		ldap_memfree(*ptr);
-	*ptr = NULL;
-}
-
-LIB3270_INTERNAL X509_CRL * get_crl_using_ldap(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl)
-{
-	X509_CRL * x509_crl = NULL;
-
-	int	rc;
-	lib3270_autoptr(char) url = lib3270_unescape(consturl);
-	char * base = strchr(url+7,'/');
-	char * attrs[] = { NULL, NULL };
-
-	if(!base)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "No DN of the entry at which to start the search on the URL" );
-		message->description = _( "The URL argument should be in the format ldap://[HOST]/[DN]?attribute" );
-		errno = EINVAL;
-		return NULL;
-	}
-
-	*(base++) = 0;
-	attrs[0] = strchr(base,'?');
-
-	if(!base)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "No LDAP attribute on the URL" );
-		message->description = _( "The URL argument should be in the format ldap://[HOST]/[DN]?attribute" );
-		errno = EINVAL;
-		return NULL;
-	}
-
-	*(attrs[0]++) = 0;
-
-	debug("host: \"%s\"",url);
-	debug("Base: \"%s\"",base);
-	debug("Attr: \"%s\"",attrs[0]);
-
-	// Do LDAP Query
-	LDAP __attribute__ ((__cleanup__(lib3270_autoptr_cleanup_LDAP))) *ld = NULL;
-	BerElement __attribute__ ((__cleanup__(lib3270_autoptr_cleanup_BerElement))) * ber = NULL;
-
-	rc = ldap_initialize(&ld, url);
-	if(rc != LDAP_SUCCESS)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "Can't initialize LDAP" );
-		message->description = ldap_err2string(rc);
-		lib3270_write_log(hSession,"ssl","%s: %s",url, message->description);
-		return NULL;
-	}
-
-	unsigned long version = LDAP_VERSION3;
-	rc = ldap_set_option(ld, LDAP_OPT_PROTOCOL_VERSION,(void *) &version);
-	if(rc != LDAP_SUCCESS) {
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "Can't set LDAP protocol version" );
-		message->description = ldap_err2string(rc);
-		lib3270_write_log(hSession,"ssl","%s: %s",url, message->description);
-		return NULL;
-	}
-
-	rc = ldap_simple_bind_s(ld, "", "");
-	if(rc != LDAP_SUCCESS)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "Can't bind to LDAP server" );
-		message->description = ldap_err2string(rc);
-		lib3270_write_log(hSession,"ssl","%s: %s",url, message->description);
-		return NULL;
-	}
-
-	lib3270_autoptr(LDAPMessage) results = NULL;
-	rc = ldap_search_ext_s(
-				ld,						// Specifies the LDAP pointer returned by a previous call to ldap_init(), ldap_ssl_init(), or ldap_open().
-				base,					// Specifies the DN of the entry at which to start the search.
-				LDAP_SCOPE_BASE,		// Specifies the scope of the search.
-				NULL,					// Specifies a string representation of the filter to apply in the search.
-				(char **)  &attrs,		// Specifies a null-terminated array of character string attribute types to return from entries that match filter.
-				0,						// Should be set to 1 to request attribute types only. Set to 0 to request both attributes types and attribute values.
-				NULL,
-				NULL,
-				NULL,
-				0,
-				&results
-			);
-
-	if(rc != LDAP_SUCCESS)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "Can't search LDAP server" );
-		message->description = ldap_err2string(rc);
-		lib3270_write_log(hSession,"ssl","%s: %s",url, message->description);
-		return NULL;
-	}
-
-	char __attribute__ ((__cleanup__(lib3270_autoptr_cleanup_LDAPPTR))) *attr = ldap_first_attribute(ld, results, &ber);
-	if(!attr)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "Can't get LDAP attribute" );
-		message->description = _("Search did not produce any attributes.");
-		lib3270_write_log(hSession,"ssl","%s: %s",url, message->description);
-		errno = ENOENT;
-		return NULL;
-	}
-
-	struct berval ** value = ldap_get_values_len(ld, results, attr);
-	if(!value)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "Can't get LDAP attribute" );
-		message->description = _("Search did not produce any values.");
-		lib3270_write_log(hSession,"ssl","%s: %s",url, message->description);
-		errno = ENOENT;
-		return NULL;
-	}
-
-	if(lib3270_get_toggle(hSession,LIB3270_TOGGLE_SSL_TRACE))
-	{
-		lib3270_trace_data(
-			hSession,
-			"CRL Data received from LDAP server",
-			(const unsigned char *) value[0]->bv_val,
-			value[0]->bv_len
-		);
-	}
-
-	// Precisa salvar uma cópia porque d2i_X509_CRL modifica o ponteiro.
-	const unsigned char *crl_data = (const unsigned char *) value[0]->bv_val;
-
-	if(!d2i_X509_CRL(&x509_crl, &crl_data, value[0]->bv_len))
-	{
-		message->error = hSession->ssl.error = ERR_get_error();
-		message->title = _( "Security error" );
-		message->text = _( "Can't decode certificate revocation list" );
-		lib3270_write_log(hSession,"ssl","%s: %s",url, message->text);
-		ldap_value_free_len(value);
-		return NULL;
-	}
-
-	ldap_value_free_len(value);
-
-	return x509_crl;
-
-}
-
-#endif // HAVE_LIBSSL && SSL_ENABLE_CRL_CHECK && HAVE_LDAP
@@ -1,63 +0,0 @@
-/*
- * "Software G3270, desenvolvido com base nos códigos fontes do WC3270  e  X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  ',  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como private.h e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas de Mendonça)
- *
- */
-
-#ifndef LIB3270_LINUX_SSL_PRIVATE_H_INCLUDED
-
-	#define LIB3270_LINUX_SSL_PRIVATE_H_INCLUDED
-
-	#include <config.h>
-
-	#include <openssl/ssl.h>
-	#include <openssl/err.h>
-	#include <openssl/x509_vfy.h>
-	#include <openssl/x509.h>
-
-	#include <internals.h>
-	#include <trace_dsc.h>
-	#include <errno.h>
-	#include <lib3270.h>
-	#include <lib3270/trace.h>
-	#include <lib3270/log.h>
-
-	#if defined(HAVE_LIBSSL) && defined(HAVE_LDAP)
-
-		/// @brief Use libldap to get CRL.
-		LIB3270_INTERNAL X509_CRL * get_crl_using_ldap(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl);
-
-	#endif // HAVE_LDAP
-
-	#if defined (HAVE_LIBSSLx) && defined(HAVE_LIBCURL)
-
-		/// @brief Use libcurl to get CRL.
-		LIB3270_INTERNAL X509_CRL * get_crl_using_url(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl);
-
-	#endif // HAVE_LIBCURL
-
-
-#endif // !LIB3270_LINUX_SSL_PRIVATE_H_INCLUDED
@@ -1,146 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- *
- * References:
- *
- * http://www.openssl.org/docs/ssl/
- * https://stackoverflow.com/questions/4389954/does-openssl-automatically-handle-crls-certificate-revocation-lists-now
- *
- */
-
-#include <config.h>
-
-#if defined(HAVE_LIBSSL) && defined(SSL_ENABLE_CRL_CHECK) && defined(HAVE_LIBCURL)
-
-#include "private.h"
-#include <curl/curl.h>
-#include <lib3270/toggle.h>
-
-#define CRL_DATA_LENGTH 2048
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-static inline void lib3270_autoptr_cleanup_BIO(BIO **ptr)
-{
-	debug("%s(%p)",__FUNCTION__,*ptr);
-	if(*ptr)
-		BIO_free_all(*ptr);
-	*ptr = NULL;
-}
-
-LIB3270_INTERNAL X509_CRL * get_crl_using_url(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl)
-{
-	X509_CRL * x509_crl = NULL;
-
-	size_t szText = 0;
-	const char * error_message = NULL;
-	lib3270_autoptr(char) httpText = lib3270_get_from_url(hSession, consturl, &szText, &error_message);
-
-	if(!httpText)
-	{
-		LIB3270_POPUP popup = {
-			.type = LIB3270_NOTIFY_SECURE,
-			.name = "SSL-CantGetCRL",
-			.summary = N_( "Error getting certificate revocation list" ),
-			.body = error_message
-		};
-		message->popup = &popup;
-		return NULL;
-	}
-
-	if(lib3270_get_toggle(hSession,LIB3270_TOGGLE_SSL_TRACE))
-		lib3270_trace_data(hSession,"CRL Data",(const unsigned char *) httpText, (unsigned int) szText);
-
-	if(strncasecmp(consturl,"ldap://",7) == 0)
-	{
-		// It's an LDAP query, assumes a base64 data.
-		char * data = strstr((char *) httpText,":: ");
-		if(!data)
-		{
-			static const LIB3270_POPUP popup = {
-				.type = LIB3270_NOTIFY_SECURE,
-				.summary = N_( "Got a bad formatted certificate revocation list from LDAP server" )
-			};
-
-			message->code = hSession->ssl.error = ERR_get_error();
-			message->popup = &popup;
-			lib3270_write_log(hSession,"ssl","%s: invalid format:\n%s\n", consturl, httpText);
-			errno = EINVAL;
-			return NULL;
-		}
-		data += 3;
-
-		lib3270_autoptr(BIO) bio = BIO_new_mem_buf(httpText,-1);
-
-		BIO * b64 = BIO_new(BIO_f_base64());
-		bio = BIO_push(b64, bio);
-
-		BIO_set_flags(bio, BIO_FLAGS_BASE64_NO_NL);
-
-		if(!d2i_X509_CRL_bio(bio, &x509_crl))
-		{
-			static const LIB3270_POPUP popup = {
-				.type = LIB3270_NOTIFY_SECURE,
-				.summary = N_( "Can't decode certificate revocation list got from LDAP server" )
-			};
-
-			message->code = hSession->ssl.error = ERR_get_error();
-			message->popup = &popup;
-
-			lib3270_write_log(hSession,"ssl","%s: %s",consturl, popup.summary);
-			errno = EINVAL;
-			return NULL;
-		}
-
-	}
-	else
-	{
-		// CRL File, convert it
-		// Copy the pointer because d2i_X509_CRL changes the value!!!
-		const unsigned char *crl_data = (const unsigned char *) httpText;
-
-		if(!d2i_X509_CRL(&x509_crl, &crl_data, szText))
-		{
-			static const LIB3270_POPUP popup = {
-				.type = LIB3270_NOTIFY_SECURE,
-				.summary = N_( "Can't decode certificate revocation list" )
-			};
-
-			message->code = hSession->ssl.error = ERR_get_error();
-			message->popup = &popup;
-			lib3270_write_log(hSession,"ssl","%s: %s",consturl, popup.summary);
-			return NULL;
-		}
-
-	}
-
-	return x509_crl;
-
-}
-
-#endif // HAVE_LIBSSL && SSL_ENABLE_CRL_CHECK && HAVE_LIBCURL
@@ -1,131 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- *
- * References:
- *
- * http://www.openssl.org/docs/ssl/
- * https://stackoverflow.com/questions/4389954/does-openssl-automatically-handle-crls-certificate-revocation-lists-now
- *
- */
-
-#include "private.h"
-
-#if defined(HAVE_LIBSSL) && defined(SSL_ENABLE_CRL_CHECK)
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-static inline void lib3270_autoptr_cleanup_FILE(FILE **file)
-{
-	if(*file)
-		fclose(*file);
-}
-
-X509_CRL * lib3270_download_crl(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl)
-{
-	X509_CRL * x509_crl = NULL;
-
-	if(!(consturl && *consturl))
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "Can't open CRL File" );
-		message->description = _("The URL for the CRL is undefined or empty");
-		errno = ENOENT;
-		return NULL;
-	}
-
-	if(strncasecmp(consturl,"file://",7) == 0)
-	{
-		lib3270_autoptr(FILE) hCRL = fopen(consturl+7,"r");
-
-		if(!hCRL)
-		{
-			// Can't open CRL File.
-			int err = errno;
-
-			message->error = hSession->ssl.error = 0;
-			message->title = _( "Security error" );
-			message->text = _( "Can't open CRL File" );
-			message->description = strerror(err);
-			trace_ssl(hSession,"Can't open %s: %s\n",consturl,message->description);
-			return NULL;
-
-		}
-
-		trace_ssl(hSession,"Loading CRL from %s\n",consturl+7);
-		if(d2i_X509_CRL_fp(hCRL, &x509_crl))
-		{
-			message->error = hSession->ssl.error = ERR_get_error();
-			message->title = _( "Security error" );
-			message->text = _( "Can't decode CRL" );
-			lib3270_write_log(hSession,"ssl","%s: %s",consturl, message->text);
-			return NULL;
-		}
-
-
-
-	}
-#ifdef HAVE_LDAP
-	else if(strncasecmp(consturl,"ldap://",7) == 0 && strlen(consturl) > 8)
-	{
-		return get_crl_using_ldap(hSession, message, consturl);
-
-	}
-#endif // HAVE_LDAP
-	else
-	{
-#ifdef HAVE_LIBCURL
-
-		return get_crl_using_url(hSession, message, consturl);
-
-#else
-		// Can't get CRL.
-
-		message->error = hSession->ssl.error = 0;
-
-		if(!(message->text && message->description))
-			message->title = _( "Security error" );
-
-		if(!message->text)
-			message->text = _( "Unexpected or invalid CRL URL" );
-
-		if(!message->description)
-			message->description = _("The URL scheme is unknown");
-
-		trace_ssl(hSession,"%s: The URL scheme is unknown",consturl);
-
-		errno = EINVAL;
-		return NULL;
-#endif // HAVE_LIBCURL
-	}
-
-	return x509_crl;
-
-}
-
-#endif // HAVE_LIBSSL && SSL_ENABLE_CRL_CHECK
@@ -1,118 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- *
- * References:
- *
- * http://www.openssl.org/docs/ssl/
- * https://stackoverflow.com/questions/4389954/does-openssl-automatically-handle-crls-certificate-revocation-lists-now
- *
- */
-
-/**
- * @brief OpenSSL initialization for linux.
- *
- */
-
-#include <config.h>
-
-#if defined(HAVE_LIBSSL)
-
-#include <openssl/ssl.h>
-#include <openssl/err.h>
-#include <openssl/x509_vfy.h>
-
-#ifndef SSL_ST_OK
-	#define SSL_ST_OK 3
-#endif // !SSL_ST_OK
-
-#include <internals.h>
-#include <errno.h>
-#include <lib3270.h>
-#include <lib3270/internals.h>
-#include <lib3270/trace.h>
-#include <lib3270/log.h>
-#include "trace_dsc.h"
-
-#ifdef SSL_ENABLE_CRL_CHECK
-	#include <openssl/x509.h>
-#endif // SSL_ENABLE_CRL_CHECK
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-/**
- * @brief Initialize openssl library.
- *
- * @return 0 if ok, non zero if fails.
- *
- */
-int ssl_ctx_init(H3270 *hSession, SSL_ERROR_MESSAGE * message)
-{
-	debug("%s ssl_ctx=%p",__FUNCTION__,ssl_ctx);
-
-	if(ssl_ctx)
-		return 0;
-
-	trace_ssl(hSession,"Initializing SSL context.\n");
-
-	SSL_load_error_strings();
-	SSL_library_init();
-
-	ssl_ctx = SSL_CTX_new(SSLv23_method());
-	if(ssl_ctx == NULL)
-	{
-		message->error = hSession->ssl.error = ERR_get_error();
-		message->title = _( "Security error" );
-		message->text = _( "Cant initialize the SSL context." );
-		return -1;
-	}
-
-	SSL_CTX_set_options(ssl_ctx, SSL_OP_ALL);
-	SSL_CTX_set_info_callback(ssl_ctx, ssl_info_callback);
-
-	SSL_CTX_set_default_verify_paths(ssl_ctx);
-
-	ssl_3270_ex_index = SSL_get_ex_new_index(0,NULL,NULL,NULL,NULL);
-
-#ifdef SSL_ENABLE_CRL_CHECK
-
-	// Enable CRL check
-	X509_STORE *store = SSL_CTX_get_cert_store(ssl_ctx);
-	X509_VERIFY_PARAM *param = X509_VERIFY_PARAM_new();
-	X509_VERIFY_PARAM_set_flags(param, X509_V_FLAG_CRL_CHECK);
-	X509_STORE_set1_param(store, param);
-	X509_VERIFY_PARAM_free(param);
-
-	trace_ssl(hSession,"CRL CHECK was enabled\n");
-
-#endif // SSL_ENABLE_CRL_CHECK
-
-	return 0;
-
-}
-
-#endif // HAVE_LIBSSL
@@ -1,241 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- *
- * References:
- *
- * http://www.openssl.org/docs/ssl/
- * https://stackoverflow.com/questions/4389954/does-openssl-automatically-handle-crls-certificate-revocation-lists-now
- *
- */
-
-#include <config.h>
-#include <internals.h>
-#include <lib3270/log.h>
-#include <lib3270/trace.h>
-#include <lib3270/toggle.h>
-
-#include "utilc.h"
-
-#if defined(HAVE_LIBSSL) && defined(SSL_ENABLE_CRL_CHECK) && defined(HAVE_LDAP)
-
-#include <openssl/ssl.h>
-#include <openssl/err.h>
-#include <openssl/x509_vfy.h>
-#include <openssl/x509.h>
-
-#define LDAP_DEPRECATED 1
-#include <ldap.h>
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-static inline void lib3270_autoptr_cleanup_LDAPMessage(LDAPMessage **message)
-{
-	debug("%s(%p)",__FUNCTION__,*message);
-	if(message)
-		ldap_msgfree(*message);
-	*message = NULL;
-}
-
-static inline void lib3270_autoptr_cleanup_LDAP(LDAP **ld)
-{
-	debug("%s(%p)",__FUNCTION__,*ld);
-	if(*ld)
-		ldap_unbind_ext(*ld, NULL, NULL);
-	*ld = NULL;
-}
-
-static inline void lib3270_autoptr_cleanup_BerElement(BerElement **ber)
-{
-	debug("%s(%p)",__FUNCTION__,*ber);
-	if(*ber)
-		ber_free(*ber, 0);
-	*ber = NULL;
-}
-
-static inline void lib3270_autoptr_cleanup_LDAPPTR(char **ptr)
-{
-	debug("%s(%p)",__FUNCTION__,*ptr);
-	if(*ptr)
-		ldap_memfree(*ptr);
-	*ptr = NULL;
-}
-
-LIB3270_INTERNAL X509_CRL * get_crl_using_ldap(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl)
-{
-	X509_CRL * x509_crl = NULL;
-
-	int	rc;
-	lib3270_autoptr(char) url = lib3270_unescape(consturl);
-	char * base = strchr(url+7,'/');
-	char * attrs[] = { NULL, NULL };
-
-	if(!base)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "No DN of the entry at which to start the search on the URL" );
-		message->description = _( "The URL argument should be in the format ldap://[HOST]/[DN]?attribute" );
-		errno = EINVAL;
-		return NULL;
-	}
-
-	*(base++) = 0;
-	attrs[0] = strchr(base,'?');
-
-	if(!base)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "No LDAP attribute on the URL" );
-		message->description = _( "The URL argument should be in the format ldap://[HOST]/[DN]?attribute" );
-		errno = EINVAL;
-		return NULL;
-	}
-
-	*(attrs[0]++) = 0;
-
-	debug("host: \"%s\"",url);
-	debug("Base: \"%s\"",base);
-	debug("Attr: \"%s\"",attrs[0]);
-
-	// Do LDAP Query
-	LDAP __attribute__ ((__cleanup__(lib3270_autoptr_cleanup_LDAP))) *ld = NULL;
-	BerElement __attribute__ ((__cleanup__(lib3270_autoptr_cleanup_BerElement))) * ber = NULL;
-
-	rc = ldap_initialize(&ld, url);
-	if(rc != LDAP_SUCCESS)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "Can't initialize LDAP" );
-		message->description = ldap_err2string(rc);
-		lib3270_write_log(hSession,"ssl","%s: %s",url, message->description);
-		return NULL;
-	}
-
-	unsigned long version = LDAP_VERSION3;
-	rc = ldap_set_option(ld, LDAP_OPT_PROTOCOL_VERSION,(void *) &version);
-	if(rc != LDAP_SUCCESS) {
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "Can't set LDAP protocol version" );
-		message->description = ldap_err2string(rc);
-		lib3270_write_log(hSession,"ssl","%s: %s",url, message->description);
-		return NULL;
-	}
-
-	rc = ldap_simple_bind_s(ld, "", "");
-	if(rc != LDAP_SUCCESS)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "Can't bind to LDAP server" );
-		message->description = ldap_err2string(rc);
-		lib3270_write_log(hSession,"ssl","%s: %s",url, message->description);
-		return NULL;
-	}
-
-	lib3270_autoptr(LDAPMessage) results = NULL;
-	rc = ldap_search_ext_s(
-				ld,						// Specifies the LDAP pointer returned by a previous call to ldap_init(), ldap_ssl_init(), or ldap_open().
-				base,					// Specifies the DN of the entry at which to start the search.
-				LDAP_SCOPE_BASE,		// Specifies the scope of the search.
-				NULL,					// Specifies a string representation of the filter to apply in the search.
-				(char **)  &attrs,		// Specifies a null-terminated array of character string attribute types to return from entries that match filter.
-				0,						// Should be set to 1 to request attribute types only. Set to 0 to request both attributes types and attribute values.
-				NULL,
-				NULL,
-				NULL,
-				0,
-				&results
-			);
-
-	if(rc != LDAP_SUCCESS)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "Can't search LDAP server" );
-		message->description = ldap_err2string(rc);
-		lib3270_write_log(hSession,"ssl","%s: %s",url, message->description);
-		return NULL;
-	}
-
-	char __attribute__ ((__cleanup__(lib3270_autoptr_cleanup_LDAPPTR))) *attr = ldap_first_attribute(ld, results, &ber);
-	if(!attr)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "Can't get LDAP attribute" );
-		message->description = _("Search did not produce any attributes.");
-		lib3270_write_log(hSession,"ssl","%s: %s",url, message->description);
-		errno = ENOENT;
-		return NULL;
-	}
-
-	struct berval ** value = ldap_get_values_len(ld, results, attr);
-	if(!value)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "Can't get LDAP attribute" );
-		message->description = _("Search did not produce any values.");
-		lib3270_write_log(hSession,"ssl","%s: %s",url, message->description);
-		errno = ENOENT;
-		return NULL;
-	}
-
-	if(lib3270_get_toggle(hSession,LIB3270_TOGGLE_SSL_TRACE))
-	{
-		lib3270_trace_data(
-			hSession,
-			"CRL Data received from LDAP server",
-			(const unsigned char *) value[0]->bv_val,
-			value[0]->bv_len
-		);
-	}
-
-	// Precisa salvar uma cópia porque d2i_X509_CRL modifica o ponteiro.
-	const unsigned char *crl_data = (const unsigned char *) value[0]->bv_val;
-
-	if(!d2i_X509_CRL(&x509_crl, &crl_data, value[0]->bv_len))
-	{
-		message->error = hSession->ssl.error = ERR_get_error();
-		message->title = _( "Security error" );
-		message->text = _( "Can't decode certificate revocation list" );
-		lib3270_write_log(hSession,"ssl","%s: %s",url, message->text);
-		ldap_value_free_len(value);
-		return NULL;
-	}
-
-	ldap_value_free_len(value);
-
-	return x509_crl;
-
-}
-
-#endif // HAVE_LIBSSL && SSL_ENABLE_CRL_CHECK && HAVE_LDAP
@@ -1,63 +0,0 @@
-/*
- * "Software G3270, desenvolvido com base nos códigos fontes do WC3270  e  X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  ',  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como private.h e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas de Mendonça)
- *
- */
-
-#ifndef LIB3270_LINUX_SSL_PRIVATE_H_INCLUDED
-
-	#define LIB3270_LINUX_SSL_PRIVATE_H_INCLUDED
-
-	#include <config.h>
-
-	#include <openssl/ssl.h>
-	#include <openssl/err.h>
-	#include <openssl/x509_vfy.h>
-	#include <openssl/x509.h>
-
-	#include <internals.h>
-	#include <trace_dsc.h>
-	#include <errno.h>
-	#include <lib3270.h>
-	#include <lib3270/trace.h>
-	#include <lib3270/log.h>
-
-	#ifdef HAVE_LDAP
-
-		/// @brief Use libldap to get CRL.
-		LIB3270_INTERNAL X509_CRL * get_crl_using_ldap(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl);
-
-	#endif // HAVE_LDAP
-
-	#ifdef HAVE_LIBCURL
-
-		/// @brief Use libcurl to get CRL.
-		LIB3270_INTERNAL X509_CRL * get_crl_using_url(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl);
-
-	#endif // HAVE_LIBCURL
-
-
-#endif // !LIB3270_LINUX_SSL_PRIVATE_H_INCLUDED
@@ -1,127 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- *
- * References:
- *
- * http://www.openssl.org/docs/ssl/
- * https://stackoverflow.com/questions/4389954/does-openssl-automatically-handle-crls-certificate-revocation-lists-now
- *
- */
-
-#include <config.h>
-
-#if defined(HAVE_LIBSSL) && defined(SSL_ENABLE_CRL_CHECK) && defined(HAVE_LIBCURL)
-
-#include "private.h"
-#include <curl/curl.h>
-#include <lib3270/toggle.h>
-
-#define CRL_DATA_LENGTH 2048
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-static inline void lib3270_autoptr_cleanup_BIO(BIO **ptr)
-{
-	debug("%s(%p)",__FUNCTION__,*ptr);
-	if(*ptr)
-		BIO_free_all(*ptr);
-	*ptr = NULL;
-}
-
-LIB3270_INTERNAL X509_CRL * get_crl_using_url(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl)
-{
-	X509_CRL * x509_crl = NULL;
-
-	size_t szText = 0;
-	lib3270_autoptr(char) httpText = lib3270_get_from_url(hSession, consturl, &szText, &message->description);
-
-	if(!httpText)
-	{
-		message->title			= _( "Security error" );
-		message->text			= _( "Error getting certificate revocation list" );
-		return NULL;
-	}
-
-	if(lib3270_get_toggle(hSession,LIB3270_TOGGLE_SSL_TRACE))
-		lib3270_trace_data(hSession,"CRL Data",(const unsigned char *) httpText, (unsigned int) szText);
-
-	if(strncasecmp(consturl,"ldap://",7) == 0)
-	{
-		// It's an LDAP query, assumes a base64 data.
-		char * data = strstr((char *) httpText,":: ");
-		if(!data)
-		{
-			message->error = hSession->ssl.error = ERR_get_error();
-			message->title = _( "Security error" );
-			message->text = _( "Got a bad formatted certificate revocation list from LDAP server" );
-			lib3270_write_log(hSession,"ssl","%s: invalid format:\n%s\n", consturl, httpText);
-			errno = EINVAL;
-			return NULL;
-		}
-		data += 3;
-
-		lib3270_autoptr(BIO) bio = BIO_new_mem_buf(httpText,-1);
-
-		BIO * b64 = BIO_new(BIO_f_base64());
-		bio = BIO_push(b64, bio);
-
-		BIO_set_flags(bio, BIO_FLAGS_BASE64_NO_NL);
-
-		if(!d2i_X509_CRL_bio(bio, &x509_crl))
-		{
-			message->error = hSession->ssl.error = ERR_get_error();
-			message->title = _( "Security error" );
-			message->text = _( "Can't decode certificate revocation list got from LDAP server" );
-			lib3270_write_log(hSession,"ssl","%s: %s",consturl, message->text);
-			errno = EINVAL;
-			return NULL;
-		}
-
-	}
-	else
-	{
-		// CRL File, convert it
-		// Copy the pointer because d2i_X509_CRL changes the value!!!
-		const unsigned char *crl_data = (const unsigned char *) httpText;
-
-		if(!d2i_X509_CRL(&x509_crl, &crl_data, szText))
-		{
-			message->error = hSession->ssl.error = ERR_get_error();
-			message->title = _( "Security error" );
-			message->text = _( "Can't decode certificate revocation list" );
-			lib3270_write_log(hSession,"ssl","%s: %s",consturl, message->text);
-			return NULL;
-		}
-
-	}
-
-	return x509_crl;
-
-}
-
-#endif // HAVE_LIBSSL && SSL_ENABLE_CRL_CHECK && HAVE_LIBCURL
@@ -1,556 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- *
- * References:
- *
- * http://www.openssl.org/docs/ssl/
- *
- */
-
-
-#include <config.h>
-#include <internals.h>
-
-#if defined(HAVE_LIBSSL)
-
-	#include <openssl/ssl.h>
-	#include <openssl/err.h>
-	#include <openssl/x509_vfy.h>
-	#include <openssl/x509v3.h>
-
-	#ifndef SSL_ST_OK
-		#define SSL_ST_OK 3
-	#endif // !SSL_ST_OK
-
-	#include "crl.h"
-
-#endif
-
-#include <errno.h>
-#include <lib3270.h>
-#include <lib3270/internals.h>
-#include <lib3270/trace.h>
-#include <lib3270/log.h>
-#include <lib3270/toggle.h>
-#include <lib3270/properties.h>
-#include "hostc.h" // host_disconnect
-#include "trace_dsc.h"
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-#if defined(HAVE_LIBSSLx)
-
- /**
-  * @brief Index of h3270 handle in SSL session.
-  *
-  */
- int ssl_3270_ex_index = -1;
-
-/**
- * @brief Global SSL_CTX object as framework to establish TLS/SSL or DTLS enabled connections.
- *
- */
- SSL_CTX * ssl_ctx = NULL;
-
-/**
- * @brief Initialize openssl session.
- *
- * @param hSession lib3270 session handle.
- *
- * @return 0 if ok, non zero if fails.
- *
- */
-static int background_ssl_init(H3270 *hSession, void *message)
-{
-	set_ssl_state(hSession,LIB3270_SSL_UNDEFINED);
-	hSession->ssl.error = 0;
-	hSession->ssl.host = False;
-
-	if(ssl_ctx_init(hSession, (SSL_ERROR_MESSAGE *) message)) {
-		debug("%s has failed","ssl_ctx_init");
-		set_ssl_state(hSession,LIB3270_SSL_UNDEFINED);
-		hSession->ssl.host = False;
-		return -1;
-	}
-
-	if(hSession->ssl.con)
-		SSL_free(hSession->ssl.con);
-
-	hSession->ssl.con = SSL_new(ssl_ctx);
-	if(hSession->ssl.con == NULL)
-	{
-		static const LIB3270_POPUP popup = {
-			.type = LIB3270_NOTIFY_SECURE,
-			.summary = N_( "Cant create a new SSL structure for current connection." )
-		};
-
-		((SSL_ERROR_MESSAGE *) message)->code = hSession->ssl.error = ERR_get_error();
-		((SSL_ERROR_MESSAGE *) message)->popup = &popup;
-		return -1;
-	}
-
-	SSL_set_ex_data(hSession->ssl.con,ssl_3270_ex_index,(char *) hSession);
-//	SSL_set_verify(session->ssl_con, SSL_VERIFY_FAIL_IF_NO_PEER_CERT, NULL);
-	SSL_set_verify(hSession->ssl.con, 0, NULL);
-
-	return 0;
-}
-
-#if defined(SSL_ENABLE_CRL_CHECK)
-int x509_store_ctx_error_callback(int ok, X509_STORE_CTX GNUC_UNUSED(*ctx))
-{
-	debug("%s(%d)",__FUNCTION__,ok);
-
-/*
-  55     {
-  56         if (!ok) {
-  57             Category::getInstance("OpenSSL").error(
-  58                 "path validation failure at depth(%d): %s",
-  59                 X509_STORE_CTX_get_error_depth(ctx),
-  60                 X509_verify_cert_error_string(X509_STORE_CTX_get_error(ctx))
-  61                 );
-  62         }
-  63         return ok;
-  64     }
-*/
-	return ok;
-}
-#endif // SSL_ENABLE_CRL_CHECK
-
-static const struct ssl_protocol {
-	int id;
-	const char * description;
-} ssl_protocols[] = {
-
-	{
-		.id = SSL3_VERSION,
-		.description = SSL_TXT_SSLV3
-	},
-	{
-		.id = TLS1_VERSION,
-		.description = SSL_TXT_TLSV1
-	},
-	{
-		.id = TLS1_1_VERSION,
-		.description = SSL_TXT_TLSV1_1
-	},
-	{
-		.id = TLS1_2_VERSION,
-		.description = SSL_TXT_TLSV1_2
-	},
-#ifdef DTLS1_VERSION
-	{
-		.id = DTLS1_VERSION,
-		.description = "DTLSv1"
-	},
-#endif // DTLS1_VERSION
-#ifdef DTLS1_2_VERSION
-	{
-		.id = DTLS1_2_VERSION,
-		.description = "DTLSv2"
-	},
-#endif // DTLS1_2_VERSION
-
-};
-
-static const struct ssl_protocol * get_protocol_from_id(int id) {
-
-	if(id < 1)
-		return NULL;
-
-	id--;
-
-	if( ((size_t) id) > (sizeof(ssl_protocols)/sizeof(ssl_protocols[0])))
-		return NULL;
-
-	return ssl_protocols + id;
-
-}
-
-static int background_ssl_negotiation(H3270 *hSession, void *message)
-{
-	int rv;
-
-	trace("%s",__FUNCTION__);
-
-	/* Initialize the SSL library. */
-	if(background_ssl_init(hSession,message))
-	{
-		return -1;
-	}
-
-	/* Set up the TLS/SSL connection. */
-	const struct ssl_protocol * protocol;
-
-	if( (protocol = get_protocol_from_id(hSession->ssl.protocol.min_version)) != NULL )
-	{
-#if (OPENSSL_VERSION_NUMBER >= 0x1010009fL)
-		if(SSL_set_min_proto_version(hSession->ssl.con,protocol->id) == 1)
-		{
-			trace_ssl(hSession,"Minimum protocol version set to %s\n",protocol->description);
-		}
-		else
-		{
-			lib3270_write_log(hSession,"ssl","Can't set minimum protocol version to %s",protocol->description);
-		}
-#else
-		trace_ssl(hSession,"Can't set minimum protocol version to %s\n",protocol->description);
-#endif // OPENSSL_VERSION_NUMBER
-	}
-
-	if( (protocol = get_protocol_from_id(hSession->ssl.protocol.max_version)) != NULL )
-	{
-#if (OPENSSL_VERSION_NUMBER >= 0x1010009fL)
-		if(SSL_set_max_proto_version(hSession->ssl.con,protocol->id) == 1)
-		{
-			trace_ssl(hSession,"Maximum protocol version set to %s\n",protocol->description);
-		}
-		else
-		{
-			lib3270_write_log(hSession,"ssl","Can't set maximum protocol version to %s",protocol->description);
-		}
-#else
-		trace_ssl(hSession,"Can't set maximum protocol version to %s\n",protocol->description);
-#endif // OPENSSL_VERSION_NUMBER
-	}
-
-	if(SSL_set_fd(hSession->ssl.con, hSession->connection.sock) != 1)
-	{
-		trace_ssl(hSession,"%s","SSL_set_fd failed!\n");
-
-		static const LIB3270_POPUP popup = {
-			.summary = N_( "SSL negotiation failed" ),
-			.body = N_( "Cant set the file descriptor for the input/output facility for the TLS/SSL (encrypted) side of ssl." )
-		};
-
-		((SSL_ERROR_MESSAGE *) message)->popup = &popup;
-
-		return -1;
-	}
-
-#ifdef SSL_CRL_URL
-
-	// Load CRL from pre-defined URL
-	if(!hSession->ssl.crl.cert)
-	{
-		if(lib3270_crl_new_from_url(hSession, message, SSL_CRL_URL))
-			return EACCES;
-	}
-
-#endif // SSL_CRL_URL
-
-	trace_ssl(hSession, "%s","Running SSL_connect\n");
-	rv = SSL_connect(hSession->ssl.con);
-	trace_ssl(hSession, "SSL_connect exits with rc=%d\n",rv);
-
-	if (rv != 1)
-	{
-		((SSL_ERROR_MESSAGE *) message)->code = SSL_get_error(hSession->ssl.con,rv);
-		if(((SSL_ERROR_MESSAGE *) message)->code == SSL_ERROR_SYSCALL && hSession->ssl.error)
-			((SSL_ERROR_MESSAGE *) message)->code = hSession->ssl.error;
-
-		const char * msg = ERR_lib_error_string(((SSL_ERROR_MESSAGE *) message)->code);
-
-		trace_ssl(hSession,"SSL_connect failed: %s %s\n",msg,ERR_reason_error_string(hSession->ssl.error));
-
-		static const LIB3270_POPUP popup = {
-			.type = LIB3270_NOTIFY_ERROR,
-			.summary = N_( "SSL Connect failed" ),
-		};
-
-		((SSL_ERROR_MESSAGE *) message)->popup = &popup;
-
-		return -1;
-
-	}
-
-	//
-	// Success.
-	//
-
-	// Get peer certificate, notify application before validation.
-	lib3270_autoptr(X509) peer = SSL_get_peer_certificate(hSession->ssl.con);
-
-	if(peer)
-	{
-		if(lib3270_get_toggle(hSession,LIB3270_TOGGLE_SSL_TRACE))
-		{
-			BIO				* out	= BIO_new(BIO_s_mem());
-			unsigned char	* data;
-			unsigned char	* text;
-			int				  n;
-
-			X509_print(out,peer);
-
-			n		= BIO_get_mem_data(out, &data);
-			text	= (unsigned char *) malloc (n+1);
-			text[n]	='\0';
-			memcpy(text,data,n);
-
-			trace_ssl(hSession,"TLS/SSL peer certificate:\n%s\n",text);
-
-			free(text);
-			BIO_free(out);
-
-		}
-
-		hSession->cbk.set_peer_certificate(peer);
-
-#ifdef SSL_ENABLE_CRL_CHECK
-
-		if(!hSession->ssl.crl.cert)
-		{
-			if(lib3270_crl_new_from_x509(hSession, message, peer))
-				return EACCES;
-		}
-
-#endif // SSL_ENABLE_CRL_CHECK
-
-	}
-
-#ifdef SSL_ENABLE_CRL_CHECK
-	if(SSL_get_verify_result(hSession->ssl.con) == X509_V_ERR_UNABLE_TO_GET_CRL && hSession->ssl.crl.cert && peer)
-	{
-		//
-		// Verify CRL
-		//
-		// References:
-		//
-		// http://www.zedwood.com/article/cpp-check-crl-for-revocation
-		//
-
-		trace_ssl(hSession,"Doing CRL check using %s\n",hSession->ssl.crl.url);
-
-		// Got CRL, verify it!
-		// Reference: https://stackoverflow.com/questions/10510850/how-to-verify-the-certificate-for-the-ongoing-ssl-session
-		X509_STORE_CTX *csc = X509_STORE_CTX_new();
-		X509_STORE_CTX_set_verify_cb(csc, x509_store_ctx_error_callback);
-		X509_STORE_CTX_init(csc, SSL_CTX_get_cert_store(ssl_ctx), peer, NULL);
-
-		if(X509_verify_cert(csc) != 1)
-			rv = X509_STORE_CTX_get_error(csc);
-		else
-			rv = X509_V_OK;
-
-		trace_ssl(hSession, "X509_verify_cert error code was %d", rv);
-
-		SSL_set_verify_result(hSession->ssl.con, rv);
-
-		X509_STORE_CTX_free(csc);
-
-	}
-#endif // SSL_ENABLE_CRL_CHECK
-
-	// Check validation state.
-	rv = SSL_get_verify_result(hSession->ssl.con);
-	debug("SSL Verify result was %d", rv);
-	const struct ssl_status_msg * msg = ssl_get_status_from_error_code((long) rv);
-
-	if(!msg)
-	{
-		trace_ssl(hSession,"Unexpected or invalid TLS/SSL verify result %d\n",rv);
-		set_ssl_state(hSession,LIB3270_SSL_UNSECURE);
-
-		static LIB3270_POPUP popup = {
-			.summary = N_( "Can't verify." ),
-			.body = N_( "Unexpected or invalid TLS/SSL verify result" )
-		};
-
-		((SSL_ERROR_MESSAGE *) message)->popup = &popup;
-		return EACCES;
-
-	}
-	else
-	{
-		switch(rv)
-		{
-		case X509_V_OK:
-			trace_ssl(hSession,"TLS/SSL negotiated connection complete. Peer certificate %s presented.\n", peer ? "was" : "was not");
-			set_ssl_state(hSession,LIB3270_SSL_SECURE);
-			break;
-
-		case X509_V_ERR_SELF_SIGNED_CERT_IN_CHAIN:
-
-			trace_ssl(hSession,"TLS/SSL negotiated connection complete with self signed certificate in certificate chain (rc=%d)\n",rv);
-
-			set_ssl_state(hSession,LIB3270_SSL_NEGOTIATED);
-
-#ifdef SSL_ENABLE_SELF_SIGNED_CERT_CHECK
-			static const LIB3270_POPUP popup = {
-				.type = LIB3270_NOTIFY_SECURE,
-				.summary = N_( "The SSL certificate for this host is not trusted." ),
-				.body = N_( "The security certificate presented by this host was not issued by a trusted certificate authority." )
-			};
-
-			((SSL_ERROR_MESSAGE *) message)->popup = &popup;
-			return EACCES;
-#else
-			break;
-#endif // SSL_ENABLE_SELF_SIGNED_CERT_CHECK
-
-		case X509_V_ERR_UNABLE_TO_GET_CRL:
-
-			trace_ssl(hSession,"TLS/SSL verify result was %d (%s)\n", rv, msg->body);
-
-			((SSL_ERROR_MESSAGE *) message)->popup = (LIB3270_POPUP *) msg;
-
-			debug("message: %s",((SSL_ERROR_MESSAGE *) message)->popup->summary);
-			debug("description: %s",((SSL_ERROR_MESSAGE *) message)->popup->body);
-
-			set_ssl_state(hSession,LIB3270_SSL_NEGOTIATED);
-
-			if(msg->type == LIB3270_NOTIFY_ERROR && lib3270_ssl_get_crl_download(hSession))
-				return EACCES;
-
-			break;
-
-		default:
-			trace_ssl(hSession,"TLS/SSL verify result was %d (%s)\n", rv, msg->body);
-
-			((SSL_ERROR_MESSAGE *) message)->popup = (LIB3270_POPUP *) msg;
-
-			debug("message: %s",((SSL_ERROR_MESSAGE *) message)->popup->summary);
-			debug("description: %s",((SSL_ERROR_MESSAGE *) message)->popup->body);
-
-			set_ssl_state(hSession,LIB3270_SSL_NEGOTIATED);
-
-			if(msg->type == LIB3270_NOTIFY_ERROR)
-				return EACCES;
-
-		}
-
-	}
-
-	if(lib3270_get_toggle(hSession,LIB3270_TOGGLE_SSL_TRACE))
-	{
-		char				  buffer[4096];
-		int 				  alg_bits		= 0;
-		const SSL_CIPHER	* cipher		= SSL_get_current_cipher(hSession->ssl.con);
-
-		trace_ssl(hSession,"TLS/SSL cipher description: %s",SSL_CIPHER_description((SSL_CIPHER *) cipher, buffer, 4095));
-		SSL_CIPHER_get_bits(cipher, &alg_bits);
-		trace_ssl(hSession,"%s version %s with %d bits\n",
-						SSL_CIPHER_get_name(cipher),
-						SSL_CIPHER_get_version(cipher),
-						alg_bits);
-	}
-
-	return 0;
-}
-
-int ssl_negotiate(H3270 *hSession)
-{
-	int rc;
-	SSL_ERROR_MESSAGE msg;
-
-	memset(&msg,0,sizeof(msg));
-
-	set_ssl_state(hSession,LIB3270_SSL_NEGOTIATING);
-	non_blocking(hSession,False);
-
-	rc = lib3270_run_task(hSession, background_ssl_negotiation, &msg);
-
-	debug("background_ssl_negotiation exits with rc=%d",rc);
-	if(rc && msg.popup)
-	{
-		// SSL Negotiation has failed.
-		if(popup_ssl_error(hSession,rc,&msg))
-		{
-			host_disconnect(hSession,1); // Disconnect with "failed" status.
-			return rc;
-		}
-
-	} else if(rc) {
-
-		// SSL Negotiation has failed, no popup to present.
-		const LIB3270_POPUP popup = {
-			.summary = N_("SSL negotiation has failed")
-		};
-
-		msg.popup = &popup;
-		if(popup_ssl_error(hSession,rc,&msg))
-		{
-			host_disconnect(hSession,1); // Disconnect with "failed" status.
-			return rc;
-		}
-
-	}
-
-	// Tell the world that we are (still) connected, now in secure mode.
-	lib3270_set_connected_initial(hSession);
-	non_blocking(hSession,True);
-
-	return 0;
-}
-
-
-int	ssl_init(H3270 *hSession) {
-
-	int rc;
-	SSL_ERROR_MESSAGE msg;
-
-	memset(&msg,0,sizeof(msg));
-
-	non_blocking(hSession,False);
-
-	rc = lib3270_run_task(hSession, background_ssl_init, &msg);
-	if(rc)
-	{
-		// SSL init has failed.
-		host_disconnect(hSession,1); // Disconnect with "failed" status.
-
-		if(msg.popup)
-		{
-			ssl_popup_message(hSession,&msg);
-		}
-		else
-		{
-			LIB3270_POPUP popup = {
-				.summary = N_("Unexpected error on SSL initialization")
-			};
-
-			lib3270_autoptr(char) body = lib3270_strdup_printf("%s (rc=%d)",strerror(rc),rc);
-			popup.body = body;
-
-			msg.popup = &popup;
-			ssl_popup_message(hSession,&msg);
-			msg.popup = NULL;
-
-		}
-
-
-	}
-
-	non_blocking(hSession,True);
-
-	return rc;
-
-}
-
-#endif /*]*/
-
@@ -1,216 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- *
- * References:
- *
- * http://www.openssl.org/docs/ssl/
- *
- */
-
-
-#include <config.h>
-#include <internals.h>
-#include <lib3270/log.h>
-#include <lib3270/popup.h>
-#include <lib3270/win32.h>
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-#if defined(HAVE_LIBSSLx)
-
-#include <openssl/err.h>
-
-/**
- * @brief Translate strings from ssl error message.
- *
- * @param msg	SSL error message descriptor.
- * @param rc	Value of errno.
- *
- * @return Dynamically allocated popup description.
- *
- */
-static LIB3270_POPUP * translate_ssl_error_message(const SSL_ERROR_MESSAGE *msg, int rc)
-{
-	LIB3270_POPUP * popup;
-
-	printf("\n\nMSG-CODE=%d\n\n",msg->code);
-
-	const char *body = (msg->body ? msg->body : msg->popup->body);
-
-	if(msg->code)
-	{
-		if(body)
-		{
-			popup = lib3270_popup_clone_printf(
-						msg->popup,
-						_( "%s\nThe SSL error message was \"%s\"(%d)" ),
-						dgettext(GETTEXT_PACKAGE,body),
-						ERR_reason_error_string(msg->code),
-						msg->code
-					);
-		}
-		else
-		{
-			popup = lib3270_popup_clone_printf(
-						msg->popup,
-						_( "The SSL error message was \"%s\" (%d)" ),
-						ERR_reason_error_string(msg->code),
-						msg->code
-					);
-		}
-
-	}
-#ifdef _WIN32
-	else if(msg->lasterror)
-	{
-		lib3270_autoptr(char) windows_error = lib3270_win32_translate_error_code(msg->lasterror);
-
-		if(body)
-		{
-			popup = lib3270_popup_clone_printf(
-						msg->popup,
-						_( "%s\nThe windows error was \"%s\" (%u)" ),
-						dgettext(GETTEXT_PACKAGE,body),
-						windows_error,
-						(unsigned int) msg->lasterror
-					);
-		}
-		else
-		{
-			popup = lib3270_popup_clone_printf(
-						msg->popup,
-						_( "Windows error was \"%s\" (%u)" ),
-						windows_error,
-						(unsigned int) msg->lasterror
-					);
-		}
-
-	}
-#endif // _WIN32
-	else if(rc)
-	{
-		if(body)
-		{
-			popup = lib3270_popup_clone_printf(
-						msg->popup,
-						_( "%s\nThe operating system error was \"%s\" (%u)" ),
-						dgettext(GETTEXT_PACKAGE,body),
-						strerror(rc),
-						rc
-					);
-		}
-		else
-		{
-			popup = lib3270_popup_clone_printf(
-						msg->popup,
-						_( "The operating system error was \"%s\" (%u)" ),
-						strerror(rc),
-						rc
-					);
-		}
-
-	}
-	else
-	{
-		popup = lib3270_malloc(sizeof(LIB3270_POPUP));
-		*popup = *msg->popup;
-
-		if(body)
-			popup->body = dgettext(GETTEXT_PACKAGE,body);
-
-	}
-
-	popup->summary = dgettext(GETTEXT_PACKAGE,msg->popup->summary);
-
-	debug("%s: names[\"%s\",\"%s\"]",__FUNCTION__,popup->name, msg->popup->name);
-
-	if(popup->title)
-		popup->title = dgettext(GETTEXT_PACKAGE,popup->title);
-	else
-		popup->title = _("Your connection is not safe");
-
-	popup->label = _("Continue");
-	return popup;
-}
-
-
-int popup_ssl_error(H3270 GNUC_UNUSED(*hSession), int rc, const SSL_ERROR_MESSAGE *msg)
-{
-	int response = 0;
-
-	LIB3270_POPUP * popup = translate_ssl_error_message(msg,0);
-
-#ifdef _WIN32
-
-	lib3270_autoptr(char) rcMessage = lib3270_strdup_printf("The error code was %d",rc);
-
-	const char *outMsg[] = {
-		popup->title,
-		popup->summary,
-		(popup->body ? popup->body : ""),
-		rcMessage
-	};
-
-	ReportEvent(
-		hEventLog,
-		EVENTLOG_ERROR_TYPE,
-		1,
-		0,
-		NULL,
-		(sizeof(outMsg)/sizeof(outMsg[0])),
-		0,
-		outMsg,
-		NULL
-	);
-
-#else
-
-	lib3270_write_log(hSession, "SSL", "%s %s (rc=%d)", popup->summary, (popup->body ? popup->body : ""), rc);
-
-#endif // _WIN32
-
-#ifdef SSL_ENABLE_NOTIFICATION_WHEN_FAILED
-
-	response = hSession->cbk.popup(hSession,popup,1);
-
-#endif // SSL_ENABLE_NOTIFICATION_WHEN_FAILED
-
-	lib3270_free(popup);
-	return response;
-
-}
-
-void ssl_popup_message(H3270 *hSession, const SSL_ERROR_MESSAGE *msg) {
-
-	LIB3270_POPUP * popup = translate_ssl_error_message(msg,0);
-	hSession->cbk.popup(hSession,popup,0);
-	lib3270_free(popup);
-
-}
-
-#endif // defined(HAVE_LIBSSL)
@@ -1,199 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- */
-
-#include <internals.h>
-#include <lib3270/properties.h>
-
-#if defined(HAVE_LIBSSL)
-	#include <openssl/ssl.h>
-#endif
-
-
-/**
- * @brief Get SSL host option.
- *
- * @return Non zero if the host URL has SSL scheme.
- *
- */
-#ifdef HAVE_LIBSSLx
-LIB3270_EXPORT int lib3270_get_secure_host(const H3270 *hSession)
-{
-	return hSession->ssl.enabled ? 1 : 0;
-}
-#else
-LIB3270_EXPORT int lib3270_get_secure_host(const H3270 GNUC_UNUSED(*hSession))
-{
-	errno = ENOTSUP;
-	return 0;
-}
-#endif // HAVE_LIBSSL
-
-
-#if defined(HAVE_LIBSSL) && defined(SSL_ENABLE_CRL_CHECK)
-LIB3270_EXPORT char * lib3270_get_ssl_crl_text(const H3270 *hSession)
-{
-
-	if(hSession->ssl.crl.cert)
-	{
-
-		BIO				* out = BIO_new(BIO_s_mem());
-		unsigned char	* data;
-		unsigned char	* text;
-		int				  n;
-
-		X509_CRL_print(out,hSession->ssl.crl.cert);
-
-		n		= BIO_get_mem_data(out, &data);
-		text	= (unsigned char *) lib3270_malloc(n+1);
-		text[n]	='\0';
-
-		memcpy(text,data,n);
-		BIO_free(out);
-
-		return (char *) text;
-
-	}
-
-	return NULL;
-
-}
-#else
-LIB3270_EXPORT char * lib3270_get_ssl_crl_text(const H3270 GNUC_UNUSED(*hSession))
-{
-	return NULL;
-}
-#endif // SSL_ENABLE_CRL_CHECK
-
-
-LIB3270_EXPORT char * lib3270_get_ssl_peer_certificate_text(const H3270 *hSession)
-{
-#ifdef HAVE_LIBSSLx
-	if(hSession->ssl.con)
-	{
-		X509 * peer = SSL_get_peer_certificate(hSession->ssl.con);
-		if(peer)
-		{
-			BIO				* out	= BIO_new(BIO_s_mem());
-			unsigned char	* data;
-			unsigned char	* text;
-			int				  n;
-
-			X509_print(out,peer);
-
-			n		= BIO_get_mem_data(out, &data);
-			text	= (unsigned char *) lib3270_malloc(n+1);
-			text[n]	='\0';
-			memcpy(text,data,n);
-			BIO_free(out);
-
-			return (char *) text;
-		}
-	}
-#endif // HAVE_LIBSSL
-
-	return NULL;
-}
-
- #pragma GCC diagnostic push
- #pragma GCC diagnostic ignored "-Wunused-parameter"
- const char * lib3270_crl_get_url(const H3270 *hSession)
- {
-#if defined(HAVE_LIBSSL) && defined(SSL_ENABLE_CRL_CHECK)
-	if(hSession->ssl.crl.url)
-		return hSession->ssl.crl.url;
-
-#ifdef SSL_CRL_URL
-	return SSL_CRL_URL;
-#else
-	return getenv("LIB3270_DEFAULT_CRL");
-#endif // SSL_CRL_URL
-
-#else
-	errno = ENOTSUP;
-	return "";
-#endif
- }
- #pragma GCC diagnostic pop
-
- #pragma GCC diagnostic push
- #pragma GCC diagnostic ignored "-Wunused-parameter"
- int lib3270_crl_set_url(H3270 *hSession, const char *crl)
- {
-
-    FAIL_IF_ONLINE(hSession);
-
-#if defined(HAVE_LIBSSLx) && defined(SSL_ENABLE_CRL_CHECK)
-
-	if(hSession->ssl.crl.url)
-	{
-		free(hSession->ssl.crl.url);
-		hSession->ssl.crl.url = NULL;
-	}
-
-	if(hSession->ssl.crl.cert)
-	{
-		X509_CRL_free(hSession->ssl.crl.cert);
-		hSession->ssl.crl.cert = NULL;
-	}
-
-	if(crl)
-	{
-		hSession->ssl.crl.url = strdup(crl);
-	}
-
-	return 0;
-
-#else
-
-	return errno = ENOTSUP;
-
-#endif // SSL_ENABLE_CRL_CHECK
-
- }
- #pragma GCC diagnostic pop
-
- const char ** lib3270_crl_get_available_protocols(void)
- {
-	static const char * protocols[] =
-	{
-#ifdef HAVE_LDAP
-		"ldap",
-#endif // HAVE_LDAP
-
-#if defined(_WIN32) || defined(HAVE_LIBCURL)
-		"http",
-#endif // _WIN32 || LIBCURL
-
-		NULL
-	};
-
-	return protocols;
- }
-
-
@@ -1,382 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- * References:
- *
- * http://www.openssl.org/docs/ssl/
- * https://stackoverflow.com/questions/4389954/does-openssl-automatically-handle-crls-certificate-revocation-lists-now
- *
- */
-
-#include <config.h>
-
-#if defined(HAVE_LIBSSL) && defined(SSL_ENABLE_CRL_CHECK) && defined(HAVE_LIBCURL)
-
-#include "private.h"
-#include <curl/curl.h>
-#include <lib3270/toggle.h>
-
-#define CRL_DATA_LENGTH 2048
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-static inline void lib3270_autoptr_cleanup_CURL(CURL **ptr)
-{
-	debug("%s(%p)",__FUNCTION__,*ptr);
-	if(*ptr)
-		curl_easy_cleanup(*ptr);
-	*ptr = NULL;
-}
-
-typedef struct _curldata
-{
-	size_t		  		  length;
-	H3270				* hSession;
-	SSL_ERROR_MESSAGE	* message;
-	char 				  errbuf[CURL_ERROR_SIZE];
-	struct {
-		size_t			  length;
-		unsigned char	* contents;
-	} data;
-} CURLDATA;
-
-static inline void lib3270_autoptr_cleanup_CURLDATA(CURLDATA **ptr)
-{
-	debug("%s(%p)",__FUNCTION__,*ptr);
-	if(*ptr)
-	{
-		CURLDATA *cdata = *ptr;
-
-		if(cdata->data.contents) {
-			lib3270_free(cdata->data.contents);
-			cdata->data.contents = NULL;
-		}
-		lib3270_free(cdata);
-	}
-	*ptr = NULL;
-}
-
-static inline void lib3270_autoptr_cleanup_BIO(BIO **ptr)
-{
-	debug("%s(%p)",__FUNCTION__,*ptr);
-	if(*ptr)
-		BIO_free_all(*ptr);
-	*ptr = NULL;
-}
-
-static size_t internal_curl_write_callback(void *contents, size_t size, size_t nmemb, void *userp)
-{
-	CURLDATA * data = (CURLDATA *) userp;
-
-	size_t realsize = size * nmemb;
-	size_t ix;
-
-	debug("Received %u bytes (datablock is %p)", (unsigned int) realsize, data);
-
-	unsigned char *ptr = (unsigned char *) contents;
-
-	if(lib3270_get_toggle(data->hSession,LIB3270_TOGGLE_SSL_TRACE))
-		lib3270_trace_data(data->hSession,"curl_write:",(const char *) contents, realsize);
-
-	if((realsize + data->length) > data->data.length)
-	{
-		data->data.length += (CRL_DATA_LENGTH + realsize);
-		data->data.contents = lib3270_realloc(data->data.contents,data->data.length);
-
-		for(ix = data->length; ix < data->data.length; ix++)
-		{
-			data->data.contents[ix] = 0;
-		}
-
-	}
-
-	for(ix = 0; ix < realsize; ix++)
-	{
-		data->data.contents[data->length++] = *(ptr++);
-	}
-
-	return realsize;
-}
-
-static int internal_curl_trace_callback(CURL GNUC_UNUSED(*handle), curl_infotype type, char *data, size_t size, void *userp)
-{
-	const char * text = NULL;
-
-	switch (type) {
-	case CURLINFO_TEXT:
-		lib3270_write_log(((CURLDATA *) userp)->hSession,"curl","%s",data);
-		return 0;
-
-	case CURLINFO_HEADER_OUT:
-		text = "=> Send header";
-		break;
-
-	case CURLINFO_DATA_OUT:
-		text = "=> Send data";
-		break;
-
-	case CURLINFO_SSL_DATA_OUT:
-		text = "=> Send SSL data";
-		break;
-
-	case CURLINFO_HEADER_IN:
-		text = "<= Recv header";
-		break;
-
-	case CURLINFO_DATA_IN:
-		text = "<= Recv data";
-		break;
-
-	case CURLINFO_SSL_DATA_IN:
-		text = "<= Recv SSL data";
-		break;
-
-	default:
-		return 0;
-
-	}
-
-	lib3270_trace_data(
-		((CURLDATA *) userp)->hSession,
-		text,
-		data,
-		size
-	);
-
-	return 0;
-}
-
-X509_CRL * get_crl_using_curl(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl)
-{
-	X509_CRL * x509_crl = NULL;
-
-	lib3270_autoptr(CURLDATA)	crl_data	= lib3270_malloc(sizeof(CURLDATA));
-	lib3270_autoptr(CURL)		hCurl		= curl_easy_init();
-
-	memset(crl_data,0,sizeof(CURLDATA));
-	crl_data->message		= message;
-	crl_data->hSession		= hSession;
-	crl_data->data.length	= CRL_DATA_LENGTH;
-	crl_data->data.contents = lib3270_malloc(crl_data->data.length);
-
-	if(!hCurl)
-	{
-		message->title			= _( "Security error" );
-		message->text			= _( "Error loading certificate revocation list" );
-		message->description	= _( "Can't initialize curl operation" );
-		return NULL;
-	}
-
-	CURLcode res;
-
-	curl_easy_setopt(hCurl, CURLOPT_URL, consturl);
-	curl_easy_setopt(hCurl, CURLOPT_FOLLOWLOCATION, 1L);
-
-	curl_easy_setopt(hCurl, CURLOPT_ERRORBUFFER, crl_data->errbuf);
-
-	curl_easy_setopt(hCurl, CURLOPT_WRITEFUNCTION, internal_curl_write_callback);
-	curl_easy_setopt(hCurl, CURLOPT_WRITEDATA, (void *) crl_data);
-
-	curl_easy_setopt(hCurl, CURLOPT_USERNAME, "");
-
-	if(lib3270_get_toggle(hSession,LIB3270_TOGGLE_SSL_TRACE))
-	{
-		curl_easy_setopt(hCurl, CURLOPT_VERBOSE, 1L);
-		curl_easy_setopt(hCurl, CURLOPT_DEBUGFUNCTION, internal_curl_trace_callback);
-		curl_easy_setopt(hCurl, CURLOPT_DEBUGDATA, (void *) crl_data);
-	}
-
-	res = curl_easy_perform(hCurl);
-
-	if(res != CURLE_OK)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-
-		if(crl_data->errbuf[0])
-		{
-			message->text = curl_easy_strerror(res);
-			message->description =  crl_data->errbuf;
-		}
-		else
-		{
-			message->text = _( "Error loading certificate revocation list" );
-			message->description =  curl_easy_strerror(res);
-		}
-
-		lib3270_write_log(hSession,"ssl","%s: %s",consturl, message->description);
-		errno = EINVAL;
-		return NULL;
-
-	}
-
-	char *ct = NULL;
-	res = curl_easy_getinfo(hCurl, CURLINFO_CONTENT_TYPE, &ct);
-	if(res != CURLE_OK)
-	{
-		message->error = hSession->ssl.error = 0;
-		message->title = _( "Security error" );
-		message->text = _( "Error loading certificate revocation list" );
-		message->description =  curl_easy_strerror(res);
-		lib3270_write_log(hSession,"ssl","%s: %s",consturl, message->description);
-		errno = EINVAL;
-		return NULL;
-	}
-
-	if(lib3270_get_toggle(crl_data->hSession,LIB3270_TOGGLE_SSL_TRACE))
-		lib3270_trace_data(crl_data->hSession,"CRL Data",(const char *) crl_data->data.contents, (unsigned int) crl_data->length);
-
-	if(ct)
-	{
-		const unsigned char * data = crl_data->data.contents;
-
-		if(strcasecmp(ct,"application/pkix-crl") == 0)
-		{
-			// CRL File, convert it
-			if(!d2i_X509_CRL(&x509_crl, &data, crl_data->length))
-			{
-				message->error = hSession->ssl.error = ERR_get_error();
-				message->title = _( "Security error" );
-				message->text = _( "Can't decode certificate revocation list" );
-				lib3270_write_log(hSession,"ssl","%s: %s",consturl, message->text);
-				return NULL;
-			}
-		}
-		else
-		{
-			message->error = hSession->ssl.error = ERR_get_error();
-			message->title = _( "Security error" );
-			message->text = _( "Got an invalid certificate revocation list from server" );
-			lib3270_write_log(hSession,"ssl","%s: content-type unexpected: \"%s\"",consturl, ct);
-			errno = EINVAL;
-			return NULL;
-		}
-	}
-	else if(strncasecmp(consturl,"ldap://",7) == 0)
-	{
-		//
-		// curl's LDAP query on windows returns diferently. Working with it.
-		//
-#ifdef DEBUG
-		{
-			FILE *out = fopen("downloaded.crl","w");
-			if(out)
-			{
-				fwrite(crl_data->data.contents,crl_data->length,1,out);
-				fclose(out);
-			}
-
-		}
-#endif
-
-		char * attr = strchr(consturl,'?');
-		if(!attr)
-		{
-			message->error = hSession->ssl.error = 0;
-			message->title = _( "Security error" );
-			message->text = _( "No attribute in LDAP search URL" );
-			errno = ENOENT;
-			return NULL;
-		}
-
-		attr++;
-
-		lib3270_autoptr(char) text = lib3270_strdup_printf("No mime-type, extracting \"%s\" directly from LDAP response\n",attr);
-		trace_ssl(crl_data->hSession, text);
-
-		lib3270_autoptr(char) key = lib3270_strdup_printf("%s: ",attr);
-
-
-//				char *ptr = strcasestr((char *) crl_data->data.contents, key);
-
-		size_t ix;
-		unsigned char *from = NULL;
-		size_t keylength = strlen(key);
-		for(ix = 0; ix < (crl_data->length - keylength); ix++)
-		{
-			if(!strncasecmp( (char *) (crl_data->data.contents+ix),key,keylength))
-			{
-				from = crl_data->data.contents+ix;
-				break;
-			}
-		}
-
-		debug("strstr(%s): %p", key, from);
-
-		if(!from)
-		{
-			message->error = hSession->ssl.error = 0;
-			message->title = _( "Security error" );
-			message->text = _( "Can't find certificate revocation list in LDAP response" );
-			errno = ENOENT;
-			return NULL;
-		}
-
-		from += strlen(key);
-		size_t length = crl_data->length - (from - crl_data->data.contents);
-
-		static const char terminator[] = { 0x0a, 0x0a, 0x09 };
-		unsigned char *to = from+length;
-
-		for(ix = 0; ix < (length - sizeof(terminator)); ix++)
-		{
-			if(!memcmp(from+ix,terminator,sizeof(terminator)))
-			{
-				to = from+ix;
-				break;
-			}
-		}
-
-		length = to - from;
-
-		if(lib3270_get_toggle(hSession,LIB3270_TOGGLE_SSL_TRACE))
-		{
-			lib3270_trace_data(
-				hSession,
-				"CRL Data received from LDAP server",
-				(const char *) from,
-				length
-			);
-		}
-
-		if(!d2i_X509_CRL(&x509_crl, (const unsigned char **) &from, length))
-		{
-			message->error = hSession->ssl.error = ERR_get_error();
-			message->title = _( "Security error" );
-			message->text = _( "Can't decode certificate revocation list got from LDAP Search" );
-			lib3270_write_log(hSession,"ssl","%s: %s",consturl, message->text);
-			errno = EINVAL;
-			return NULL;
-		}
-
-	}
-
-	return x509_crl;
-
-}
-
-#endif // defined(HAVE_LIBSSL) && defined(SSL_ENABLE_CRL_CHECK) && defined(HAVE_LIBCURL)
@@ -1,145 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- *
- * References:
- *
- * http://www.openssl.org/docs/ssl/
- * https://stackoverflow.com/questions/4389954/does-openssl-automatically-handle-crls-certificate-revocation-lists-now
- *
- */
-
-#include <config.h>
-
-#if defined(HAVE_LIBSSL) && defined(SSL_ENABLE_CRL_CHECK)
-
-#include "private.h"
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-static inline void lib3270_autoptr_cleanup_FILE(FILE **file)
-{
-	if(*file)
-		fclose(*file);
-}
-
-X509_CRL * lib3270_download_crl(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl)
-{
-	X509_CRL * x509_crl = NULL;
-
-	if(!(consturl && *consturl))
-	{
-		static const LIB3270_POPUP popup = {
-			.name = "CantOpenCRL",
-			.summary = N_("Can´t open CRL file"),
-			.body = N_("The URL for the CRL is undefined or empty")
-		};
-
-		message->code = hSession->ssl.error = 0;
-		message->popup = &popup;
-		errno = ENOENT;
-		return NULL;
-	}
-
-	if(strncasecmp(consturl,"file://",7) == 0)
-	{
-		lib3270_autoptr(FILE) hCRL = fopen(consturl+7,"r");
-
-		if(!hCRL)
-		{
-			// Can't open CRL File.
-			static const LIB3270_POPUP popup = {
-				.summary = N_("Can´t open CRL file"),
-				.body = N_("Unable to open the defined CRL file")
-			};
-
-			message->code = errno;
-			message->popup = &popup;
-			hSession->ssl.error = 0;
-			trace_ssl(hSession,"Can't open %s: %s\n",consturl,strerror(errno));
-			return NULL;
-
-		}
-
-		trace_ssl(hSession,"Loading CRL from %s\n",consturl+7);
-		if(d2i_X509_CRL_fp(hCRL, &x509_crl))
-		{
-			static const LIB3270_POPUP popup = {
-				.summary = N_("Unable to decode CRL")
-			};
-
-			message->code = hSession->ssl.error = ERR_get_error();
-			message->popup = &popup;
-			lib3270_write_log(hSession,"ssl","%s: %s",consturl, popup.summary);
-			return NULL;
-		}
-
-
-
-	}
-#ifdef HAVE_LDAP
-	else if(strncasecmp(consturl,"ldap://",7) == 0 && strlen(consturl) > 8)
-	{
-		return get_crl_using_ldap(hSession, message, consturl);
-
-	}
-#endif // HAVE_LDAP
-	else if(strncasecmp(consturl,"http://",7) == 0 && strlen(consturl) > 8)
-	{
-		return get_crl_using_http(hSession, message, consturl);
-	}
-	else
-	{
-#ifdef HAVE_LIBCURL
-
-		return get_crl_using_url(hSession, message, consturl);
-
-#else
-		// Can't get CRL.
-
-		message->code = hSession->ssl.error = 0;
-		if(!message->popup) {
-			static const LIB3270_POPUP popup = {
-				.summary = N_( "Unexpected or invalid CRL URL" ),
-				.body = N_("The URL scheme is unknown")
-			};
-			message->popup = &popup;
-		}
-
-		trace_ssl(hSession,"%s: The URL scheme is unknown",consturl);
-
-		errno = EINVAL;
-		return NULL;
-
-#endif // HAVE_LIBCURL
-	}
-
-	return x509_crl;
-
-}
-
-#endif // HAVE_LIBSSL && SSL_ENABLE_CRL_CHECK
@@ -1,101 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- * References:
- *
- * https://docs.microsoft.com/en-us/windows/win32/winhttp/winhttp-autoproxy-api
- *
- */
-
-/**
- * @brief Implements CRL download using winhttp.
- *
- */
-
-#include <config.h>
-#include "private.h"
-
-#if defined(HAVE_LIBSSL) && defined(SSL_ENABLE_CRL_CHECK)
-
-#include <winhttp.h>
-#include <utilc.h>
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-X509_CRL * get_crl_using_http(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl)
-{
-	size_t szResponse = 0;
-	const char * error_message = NULL;
-	lib3270_autoptr(char) httpText = lib3270_get_from_url(hSession, consturl, &szResponse, &error_message);
-
-	if(!httpText)
-	{
-		static LIB3270_POPUP popup = {
-			.summary = N_("Can´t get CRL"),
-		};
-
-		popup.body = error_message;
-		message->popup = &popup;
-		message->code = hSession->ssl.error = 0;
-		trace_ssl(
-			hSession,"Can't get %s: %s\n",
-				consturl,
-				popup.body ? popup.body : "Undefined message"
-		);
-		return NULL;
-	}
-
-	// Copy the pointer because d2i_X509_CRL changes the value!!!
-	const unsigned char *crl_data = (const unsigned char *) httpText;
-
-	X509_CRL * x509_crl = NULL;
-
-	if(!d2i_X509_CRL(&x509_crl,&crl_data, (DWORD) szResponse))
-	{
-		static const LIB3270_POPUP popup = {
-			.summary = N_( "Can't decode certificate revocation list" )
-		};
-		message->code = hSession->ssl.error = ERR_get_error();
-		message->popup = &popup;
-		lib3270_write_log(hSession,"ssl","%s: %s",consturl, popup.summary);
-
-		trace_ssl(
-			hSession,"%s: %s\n",
-				consturl,
-				popup.summary
-		);
-
-		return NULL;
-	}
-
-	trace_ssl(hSession,"Got CRL from %s\n",consturl);
-
-	return x509_crl;
-
-}
-
-#endif //  defined(HAVE_LIBSSL) && defined(SSL_ENABLE_CRL_CHECK)
@@ -1,195 +0,0 @@
-/*
- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como - e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
- *
- *
- * References:
- *
- * http://www.openssl.org/docs/ssl/
- * https://stackoverflow.com/questions/4389954/does-openssl-automatically-handle-crls-certificate-revocation-lists-now
- *
- */
-
-/**
- * @brief OpenSSL initialization for linux.
- *
- */
-
-#include <winsock2.h>
-#include <windows.h>
-#include <config.h>
-
-#if defined(HAVE_LIBSSL)
-
-#include <openssl/ssl.h>
-#include <openssl/err.h>
-#include <openssl/x509_vfy.h>
-
-#ifndef SSL_ST_OK
-	#define SSL_ST_OK 3
-#endif // !SSL_ST_OK
-
-#include <internals.h>
-#include <errno.h>
-#include <lib3270.h>
-#include <lib3270/internals.h>
-#include <lib3270/trace.h>
-#include <lib3270/log.h>
-#include <dirent.h>
-
-#include "trace_dsc.h"
-
-#include <openssl/x509.h>
-
-/*--[ Implement ]------------------------------------------------------------------------------------*/
-
-/**
- * @brief Initialize openssl library.
- *
- * @return 0 if ok, non zero if fails.
- *
- */
-int ssl_ctx_init(H3270 *hSession, SSL_ERROR_MESSAGE * message)
-{
-	debug("%s ssl_ctx=%p",__FUNCTION__,ssl_ctx);
-
-	if(ssl_ctx)
-		return 0;
-
-	trace_ssl(hSession,"Initializing SSL context.\n");
-
-	SSL_load_error_strings();
-	SSL_library_init();
-
-	ssl_ctx = SSL_CTX_new(SSLv23_method());
-	if(ssl_ctx == NULL)
-	{
-		static const LIB3270_POPUP popup = {
-			.summary = N_( "Cant initialize the SSL context." )
-		};
-
-		message->code = hSession->ssl.error = ERR_get_error();
-		message->popup = &popup;
-		return -1;
-	}
-
-	SSL_CTX_set_options(ssl_ctx, SSL_OP_ALL);
-	SSL_CTX_set_info_callback(ssl_ctx, ssl_info_callback);
-
-	// SSL_CTX_set_default_verify_paths(ssl_ctx);
-
-	// Load certs
-	// https://stackoverflow.com/questions/9507184/can-openssl-on-windows-use-the-system-certificate-store
-	X509_STORE * store = SSL_CTX_get_cert_store(ssl_ctx);
-
-	lib3270_autoptr(char) certpath = lib3270_build_data_filename("certs","*.der",NULL);
-
-	WIN32_FIND_DATA ffd;
-	HANDLE hFind = FindFirstFile(certpath, &ffd);
-
-	if(hFind == INVALID_HANDLE_VALUE)
-	{
-		static const LIB3270_POPUP popup = {
-			.summary = N_( "Cant open custom certificate directory." )
-		};
-
-		message->popup = &popup;
-
-		trace_ssl(hSession, _( "Can't open \"%s\" (The Windows error code was %ld)\n" ), certpath, (long) GetLastError());
-	}
-	else
-	{
-        do
-		{
-			char * filename = lib3270_build_data_filename("certs", ffd.cFileName, NULL);
-
-			debug("Loading \"%s\"",filename);
-
-			FILE *fp = fopen(filename,"r");
-			if(!fp) {
-
-				trace_ssl(hSession, _( "Can't open \"%s\": %s" ), filename, strerror(errno));
-
-			}
-			else
-			{
-				X509 * cert = d2i_X509_fp(fp, NULL);
-
-				if(!cert)
-				{
-					static const LIB3270_POPUP popup = {
-						.summary = N_( "Cant read custom certificate file." )
-					};
-					message->code = hSession->ssl.error = ERR_get_error();
-					message->popup = &popup;
-
-					trace_ssl(hSession, _( "Can't read \"%s\": %s" ), filename, ERR_lib_error_string(hSession->ssl.error));
-				}
-				else
-				{
-
-					if(X509_STORE_add_cert(store, cert) != 1)
-					{
-						static const LIB3270_POPUP popup = {
-							.summary = N_( "Cant load custom certificate file." )
-						};
-						message->code = hSession->ssl.error = ERR_get_error();
-						message->popup = &popup;
-
-						trace_ssl(hSession, _( "Can't load \"%s\": %s" ), filename, ERR_lib_error_string(hSession->ssl.error));
-					}
-
-					X509_free(cert);
-				}
-
-				fclose(fp);
-			}
-
-			lib3270_free(filename);
-
-		}
-		while (FindNextFile(hFind, &ffd) != 0);
-
-	}
-
-	ssl_3270_ex_index = SSL_get_ex_new_index(0,NULL,NULL,NULL,NULL);
-
-#ifdef SSL_ENABLE_CRL_CHECK
-
-	// Enable CRL check
-	X509_VERIFY_PARAM *param = X509_VERIFY_PARAM_new();
-	X509_VERIFY_PARAM_set_flags(param, X509_V_FLAG_CRL_CHECK);
-	X509_STORE_set1_param(store, param);
-	X509_VERIFY_PARAM_free(param);
-	trace_ssl(hSession,"CRL CHECK was enabled\n");
-
-#endif // SSL_ENABLE_CRL_CHECK
-
-	return 0;
-
-}
-
-#endif // HAVE_LIBSSL
@@ -1,71 +0,0 @@
-/*
- * "Software G3270, desenvolvido com base nos códigos fontes do WC3270  e  X3270
- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
- * aplicativos mainframe. Registro no INPI sob o nome G3270.
- *
- * Copyright (C) <2008> <Banco do Brasil S.A.>
- *
- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
- * os termos da GPL v.2 - Licença Pública Geral  ',  conforme  publicado  pela
- * Free Software Foundation.
- *
- * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
- * obter mais detalhes.
- *
- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
- * St, Fifth Floor, Boston, MA  02110-1301  USA
- *
- * Este programa está nomeado como private.h e possui - linhas de código.
- *
- * Contatos:
- *
- * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
- * erico.mendonca@gmail.com	(Erico Mascarenhas de Mendonça)
- *
- */
-
-#ifndef LIB3270_WIN32_SSL_PRIVATE_H_INCLUDED
-
-	#define LIB3270_WIN32_SSL_PRIVATE_H_INCLUDED
-
-	#include <config.h>
-
-	#include <winsock2.h>
-	#include <windows.h>
-
-	#include <openssl/ssl.h>
-	#include <openssl/err.h>
-	#include <openssl/x509_vfy.h>
-	#include <openssl/x509.h>
-
-	#include <internals.h>
-	#include <trace_dsc.h>
-	#include <errno.h>
-	#include <lib3270.h>
-	#include <lib3270/trace.h>
-	#include <lib3270/log.h>
-
-	#ifdef HAVE_LIBCURL
-
-		#include <curl/curl.h>
-
-		/// @brief Use libcurl to get CRL.
-		LIB3270_INTERNAL X509_CRL * get_crl_using_url(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl);
-
-	#endif // HAVE_LIBCURL
-
-	#ifdef HAVE_LDAP
-
-		/// @brief Use winldap to get CRL.
-		LIB3270_INTERNAL X509_CRL * get_crl_using_ldap(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl);
-
-	#endif // HAVE_LDAP
-
-	/// @brief Use winhttp to get CRL.
-	LIB3270_INTERNAL X509_CRL * get_crl_using_http(H3270 *hSession, SSL_ERROR_MESSAGE * message, const char *consturl);
-
-
-#endif // !LIB3270_WIN32_SSL_PRIVATE_H_INCLUDED
...	...	@@ -366,44 +366,8 @@
366	366	<Unit filename="src/selection/selection.c">
367	367	<Option compilerVar="CC" />
368	368	</Unit>
369		- <Unit filename="src/ssl/crl.c">
370		- <Option compilerVar="CC" />
371		- </Unit>
372	369	<Unit filename="src/ssl/crl.h" />
373		- <Unit filename="src/ssl/linux/getcrl.c">
374		- <Option compilerVar="CC" />
375		- </Unit>
376		- <Unit filename="src/ssl/linux/init.c">
377		- <Option compilerVar="CC" />
378		- </Unit>
379		- <Unit filename="src/ssl/linux/ldap.c">
380		- <Option compilerVar="CC" />
381		- </Unit>
382	370	<Unit filename="src/ssl/linux/private.h" />
383		- <Unit filename="src/ssl/linux/url.c">
384		- <Option compilerVar="CC" />
385		- </Unit>
386		- <Unit filename="src/ssl/negotiate.c">
387		- <Option compilerVar="CC" />
388		- </Unit>
389		- <Unit filename="src/ssl/notify.c">
390		- <Option compilerVar="CC" />
391		- </Unit>
392		- <Unit filename="src/ssl/properties.c">
393		- <Option compilerVar="CC" />
394		- </Unit>
395		- <Unit filename="src/ssl/windows/getcrl.c">
396		- <Option compilerVar="CC" />
397		- </Unit>
398		- <Unit filename="src/ssl/windows/http.c">
399		- <Option compilerVar="CC" />
400		- </Unit>
401		- <Unit filename="src/ssl/windows/init.c">
402		- <Option compilerVar="CC" />
403		- </Unit>
404		- <Unit filename="src/ssl/windows/ldap.c">
405		- <Option compilerVar="CC" />
406		- </Unit>
407	371	<Unit filename="src/ssl/windows/private.h" />
408	372	<Unit filename="src/testprogram/testprogram.c">
409	373	<Option compilerVar="CC" />
...	...
...	...	@@ -52,7 +52,6 @@
52	52	#include "trace_dsc.h"
53	53	#include "utilc.h"
54	54	#include "xioc.h"
55		-#include "../ssl/crl.h"
56	55	#include "screenc.h"
57	56
58	57	#include <errno.h>
...	...	@@ -293,13 +292,10 @@ static void update_url(H3270 *hSession)
293	292	lib3270_write_event_trace(hSession,"Host URL was changed\nFrom: %s\nTo: %s\n",hSession->host.url,url);
294	293	lib3270_free(hSession->host.url);
295	294	hSession->host.url = url;
296		-
297		-#if defined(HAVE_LIBSSLx) && defined(SSL_ENABLE_CRL_CHECK)
298		- lib3270_crl_free(hSession);
299		-#endif // SSL_ENABLE_CRL_CHECK
300		-
301	295	hSession->cbk.update_url(hSession, hSession->host.url);
302	296
	297	+ hSession->network.module->reset(hSession);
	298	+
303	299	}
304	300
305	301	LIB3270_EXPORT const char * lib3270_get_associated_luname(const H3270 *hSession)
...	...
...	...	@@ -307,16 +307,6 @@
307	307	//
308	308	hSession->ever_3270 = False;
309	309
310		-#if defined(HAVE_LIBSSLx)
311		- if(hSession->ssl.enabled)
312		- {
313		- hSession->ssl.host = 1;
314		- if(ssl_init(hSession))
315		- return errno = ENOTCONN;
316		-
317		- }
318		-#endif // HAVE_LIBSSL
319		-
320	310	// set options for inline out-of-band data and keepalives
321	311	int optval = 1;
322	312	if(hSession->network.module->setsockopt(hSession, SOL_SOCKET, SO_OOBINLINE, &optval, sizeof(optval)) < 0)
...	...
...	...	@@ -49,48 +49,6 @@
49	49	return (int) lib3270_get_ssl_state(hSession);
50	50	}
51	51
52		- static int lib3270_set_ssl_minimum_protocol_version(H3270 *hSession, int value)
53		- {
54		-#ifdef HAVE_LIBSSLx
55		- FAIL_IF_ONLINE(hSession);
56		- hSession->ssl.protocol.min_version = value;
57		- return 0;
58		-#else
59		- return ENOTSUP;
60		-#endif // HAVE_LIBSSL
61		- }
62		-
63		- static int lib3270_set_ssl_maximum_protocol_version(H3270 *hSession, int value)
64		- {
65		-#ifdef HAVE_LIBSSLx
66		- FAIL_IF_ONLINE(hSession);
67		- hSession->ssl.protocol.max_version = value;
68		- return 0;
69		-#else
70		- return ENOTSUP;
71		-#endif // HAVE_LIBSSL
72		- }
73		-
74		- static int lib3270_get_ssl_minimum_protocol_version(const H3270 *hSession)
75		- {
76		-#ifdef HAVE_LIBSSLx
77		- return hSession->ssl.protocol.min_version;
78		-#else
79		- errno = ENOTSUP;
80		- return 0;
81		-#endif // HAVE_LIBSSL
82		- }
83		-
84		- static int lib3270_get_ssl_maximum_protocol_version(const H3270 *hSession)
85		- {
86		-#ifdef HAVE_LIBSSLx
87		- return hSession->ssl.protocol.max_version;
88		-#else
89		- errno = ENOTSUP;
90		- return 0;
91		-#endif // HAVE_LIBSSL
92		- }
93		-
94	52	const LIB3270_INT_PROPERTY * lib3270_get_int_properties_list(void)
95	53	{
96	54
...	...	@@ -117,22 +75,6 @@
117	75	.set = NULL // Set value.
118	76	},
119	77
120		- {
121		- .name = "ssl_min_protocol_version", // Property name.
122		- .description = N_( "ID of the minimum supported SSL protocol version" ), // Property description.
123		- .default_value = 0,
124		- .get = lib3270_get_ssl_minimum_protocol_version, // Get value.
125		- .set = lib3270_set_ssl_minimum_protocol_version // Set value.
126		- },
127		-
128		- {
129		- .name = "ssl_max_protocol_version", // Property name.
130		- .description = N_( "ID of the maximum supported SSL protocol version" ), // Property description.
131		- .default_value = 0,
132		- .get = lib3270_get_ssl_maximum_protocol_version, // Get value.
133		- .set = lib3270_set_ssl_maximum_protocol_version // Set value.
134		- },
135		-
136	78	{
137	79	.name = NULL,
138	80	.description = NULL,
...	...
...	...	@@ -42,7 +42,6 @@
42	42	#include "kybdc.h"
43	43	#include "3270ds.h"
44	44	#include "popupsc.h"
45		-#include "../ssl/crl.h"
46	45	#include <lib3270/trace.h>
47	46	#include <lib3270/log.h>
48	47	#include <lib3270/properties.h>
...	...	@@ -74,16 +73,6 @@ void lib3270_session_free(H3270 *h)
74	73
75	74	shutdown_toggles(h);
76	75
77		-#if defined(SSL_ENABLE_CRL_CHECK) && defined(HAVE_LIBSSLx)
78		- if(h->ssl.crl.prefer)
79		- {
80		- free(h->ssl.crl.prefer);
81		- h->ssl.crl.prefer = NULL;
82		- }
83		-
84		- lib3270_crl_free(h);
85		-#endif // SSL_ENABLE_CRL_CHECK
86		-
87	76	// Release network module
88	77	if(h->network.module)
89	78	{
...	...
...	...	@@ -166,6 +166,11 @@
166	166	/// @return String with the CRL certificate (release it with lib3270_free); NULL if not available.
167	167	char * (getcrl)(const H3270 hSession);
168	168
	169	+ /// @brief Reset.
	170	+ ///
	171	+ /// Clear network module state (used when URL changes).
	172	+ void (reset)(H3270 hSession);
	173	+
169	174	} LIB3270_NET_MODULE;
170	175
171	176	/**
...	...
...	...	@@ -62,6 +62,9 @@
62	62	return 0;
63	63	}
64	64
	65	+ static void unsecure_network_reset(H3270 GNUC_UNUSED(*hSession)) {
	66	+ }
	67	+
65	68	ssize_t unsecure_network_send(H3270 hSession, const void buffer, size_t length) {
66	69
67	70	ssize_t bytes = send(hSession->network.context->sock,buffer,length,0);
...	...	@@ -164,7 +167,8 @@ void lib3270_set_default_network_module(H3270 *hSession) {
164	167	.is_connected = unsecure_network_is_connected,
165	168	.getsockname = unsecure_network_getsockname,
166	169	.setsockopt = unsecure_network_setsockopt,
167		- .getsockopt = unsecure_network_getsockopt
	170	+ .getsockopt = unsecure_network_getsockopt,
	171	+ .reset = unsecure_network_reset
168	172	};
169	173
170	174	debug("%s",__FUNCTION__);
...	...
...	...	@@ -35,18 +35,21 @@
35	35	#include "private.h"
36	36
37	37
38		-static void openssl_network_finalize(H3270 *hSession) {
39		-
40		- debug("%s",__FUNCTION__);
	38	+static void openssl_network_reset(H3270 *hSession) {
41	39
42	40	if(hSession->network.context) {
	41	+ lib3270_openssl_crl_free(hSession->network.context);
	42	+ }
	43	+
	44	+}
43	45
44		- // Cleanupp
45		- LIB3270_NET_CONTEXT *context = hSession->network.context;
	46	+static void openssl_network_finalize(H3270 *hSession) {
46	47
47		- lib3270_openssl_crl_free(context);
	48	+ debug("%s",__FUNCTION__);
48	49
49		- // Release network context.
	50	+ openssl_network_reset(hSession);
	51	+
	52	+ if(hSession->network.context) {
50	53	lib3270_free(hSession->network.context);
51	54	hSession->network.context = NULL;
52	55	}
...	...	@@ -346,7 +349,8 @@ void lib3270_set_libssl_network_module(H3270 *hSession) {
346	349	.setsockopt = openssl_network_setsockopt,
347	350	.getsockopt = openssl_network_getsockopt,
348	351	.getcert = openssl_network_getcert,
349		- .getcrl = openssl_network_getcrl
	352	+ .getcrl = openssl_network_getcrl,
	353	+ .reset = openssl_network_reset
350	354	};
351	355
352	356	debug("%s",__FUNCTION__);
...	...
...	...	@@ -50,15 +50,6 @@ LIB3270_EXPORT int lib3270_is_secure(const H3270 *hSession)
50	50	return lib3270_get_ssl_state(hSession) == LIB3270_SSL_SECURE;
51	51	}
52	52
53		-#if defined(HAVE_LIBSSLx)
54		-LIB3270_EXPORT long lib3270_get_SSL_verify_result(const H3270 *hSession)
55		-{
56		- if(hSession->ssl.con)
57		- return SSL_get_verify_result(hSession->ssl.con);
58		- return -1;
59		-}
60		-#endif // HAVE_LIBSSL
61		-
62	53	LIB3270_EXPORT LIB3270_SSL_STATE lib3270_get_ssl_state(const H3270 *hSession)
63	54	{
64	55	return hSession->ssl.state;
...	...
...	...	@@ -1,292 +0,0 @@
1		-/*
2		- * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270 e X3270
3		- * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
4		- * aplicativos mainframe. Registro no INPI sob o nome G3270.
5		- *
6		- * Copyright (C) <2008> <Banco do Brasil S.A.>
7		- *
8		- * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
9		- * os termos da GPL v.2 - Licença Pública Geral GNU, conforme publicado pela
10		- * Free Software Foundation.
11		- *
12		- * Este programa é distribuído na expectativa de ser útil, mas SEM QUALQUER
13		- * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou de ADEQUAÇÃO
14		- * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
15		- * obter mais detalhes.
16		- *
17		- * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
18		- * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
19		- * St, Fifth Floor, Boston, MA 02110-1301 USA
20		- *
21		- * Este programa está nomeado como - e possui - linhas de código.
22		- *
23		- * Contatos:
24		- *
25		- * perry.werneck@gmail.com (Alexandre Perry de Souza Werneck)
26		- * erico.mendonca@gmail.com (Erico Mascarenhas Mendonça)
27		- *
28		- */
29		-
30		-#include <config.h>
31		-
32		-#include <internals.h>
33		-#include <lib3270/log.h>
34		-#include <lib3270/trace.h>
35		-#include <lib3270/toggle.h>
36		-#include <trace_dsc.h>
37		-#include <array.h>
38		-
39		-#include "crl.h"
40		-
41		-/--[ Implement ]------------------------------------------------------------------------------------/
42		-
43		-#if defined(SSL_ENABLE_CRL_CHECK) && defined(HAVE_LIBSSL)
44		-
45		-void lib3270_crl_free(H3270 *hSession)
46		-{
47		- if(hSession->ssl.crl.cert)
48		- {
49		- X509_CRL_free(hSession->ssl.crl.cert);
50		- hSession->ssl.crl.cert = NULL;
51		- }
52		-
53		- if(hSession->ssl.crl.url)
54		- {
55		- free(hSession->ssl.crl.url);
56		- hSession->ssl.crl.url = NULL;
57		- }
58		-
59		-}
60		-
61		-void lib3270_crl_free_if_expired(H3270 *hSession)
62		-{
63		- if(!hSession->ssl.crl.cert)
64		- return;
65		-
66		- // https://stackoverflow.com/questions/23407376/testing-x509-certificate-expiry-date-with-c
67		- // X509_CRL_get_nextUpdate is deprecated in openssl 1.1.0
68		- #if OPENSSL_VERSION_NUMBER < 0x10100000L
69		- const ASN1_TIME * next_update = X509_CRL_get_nextUpdate(hSession->ssl.crl.cert);
70		- #else
71		- const ASN1_TIME * next_update = X509_CRL_get0_nextUpdate(hSession->ssl.crl.cert);
72		- #endif
73		-
74		- if(X509_cmp_current_time(next_update) == 1)
75		- {
76		- int day, sec;
77		- if(ASN1_TIME_diff(&day, &sec, NULL, next_update))
78		- {
79		- trace_ssl(hSession,"CRL is valid for %d day(s) and %d second(s)\n",day,sec);
80		- return;
81		- }
82		-
83		- trace_ssl(hSession,"Can't get CRL next update, discarding it\n");
84		-
85		- }
86		- else
87		- {
88		- trace_ssl(hSession,"CRL is no longer valid\n");
89		- }
90		-
91		- // Certificate is no longer valid, release it.
92		- X509_CRL_free(hSession->ssl.crl.cert);
93		- hSession->ssl.crl.cert = NULL;
94		-
95		-}
96		-
97		-int lib3270_crl_new_from_url(H3270 hSession, void ssl_error, const char *url)
98		-{
99		- if(!(url && *url))
100		- return -1;
101		-
102		- lib3270_crl_free(hSession); // Just in case!
103		-
104		- //
105		- // Get the new CRL
106		- //
107		- // https://stackoverflow.com/questions/10510850/how-to-verify-the-certificate-for-the-ongoing-ssl-session
108		- //
109		- trace_ssl(hSession,"Getting CRL from %s\n",url);
110		-
111		- hSession->ssl.crl.cert = lib3270_download_crl(hSession,(SSL_ERROR_MESSAGE *) ssl_error, url);
112		-
113		- if(hSession->ssl.crl.cert)
114		- {
115		- // Got CRL!
116		-
117		- // Update URL
118		- if(hSession->ssl.crl.url)
119		- lib3270_free(hSession->ssl.crl.url);
120		-
121		- hSession->ssl.crl.url = lib3270_strdup(url);
122		-
123		- // Add it to ssl store
124		- if(lib3270_get_toggle(hSession,LIB3270_TOGGLE_SSL_TRACE))
125		- {
126		- lib3270_autoptr(char) text = lib3270_get_ssl_crl_text(hSession);
127		-
128		- if(text)
129		- trace_ssl(hSession,"\n%s\n",text);
130		-
131		- }
132		-
133		- // Add CRL in the store.
134		- X509_STORE *store = SSL_CTX_get_cert_store(ssl_ctx);
135		- if(X509_STORE_add_crl(store, hSession->ssl.crl.cert))
136		- {
137		- trace_ssl(hSession,"CRL was added to context cert store\n");
138		- }
139		- else
140		- {
141		- trace_ssl(hSession,"CRL was not added to context cert store\n");
142		- }
143		-
144		- return 0;
145		- }
146		-
147		- trace_ssl(hSession,"Can't get CRL using %s\n",url);
148		-
149		- return -1;
150		-
151		-}
152		-
153		-/// @brief Load CRL from X509 certificate.
154		-int lib3270_crl_new_from_x509(H3270 hSession, void ssl_error, X509 *cert)
155		-{
156		- // References:
157		- //
158		- // http://www.zedwood.com/article/cpp-check-crl-for-revocation
159		- //
160		- lib3270_autoptr(CRL_DIST_POINTS) dist_points = (CRL_DIST_POINTS *) X509_get_ext_d2i(cert, NID_crl_distribution_points, NULL, NULL);
161		-
162		- if(!dist_points)
163		- {
164		- static const LIB3270_POPUP popup = {
165		- .name = "SSL-NoDistPoints",
166		- .type = LIB3270_NOTIFY_SECURE,
167		- .summary = N_("Can't verify"),
168		- .body = N_( "The host certificate doesn't have CRL distribution points" )
169		- };
170		-
171		- ((SSL_ERROR_MESSAGE *) ssl_error)->popup = &popup;
172		- return EACCES;
173		- }
174		-
175		- if(lib3270_crl_new_from_dist_points(hSession, ssl_error, dist_points))
176		- return EACCES;
177		-
178		- return 0;
179		-}
180		-
181		-int lib3270_crl_new_from_dist_points(H3270 hSession, void ssl_error, CRL_DIST_POINTS * dist_points)
182		-{
183		- //
184		- // Reference:
185		- //
186		- // https://nougat.cablelabs.com/DLNA-RUI/openssl/commit/57912ed329f870b237f2fd9f2de8dec3477d1729
187		- //
188		- size_t ix;
189		- int i;
190		-
191		- lib3270_autoptr(LIB3270_STRING_ARRAY) uris = lib3270_string_array_new();
192		-
193		- for(ix = 0; ix < (size_t) sk_DIST_POINT_num(dist_points); ix++) {
194		-
195		- DIST_POINT *dp = sk_DIST_POINT_value(dist_points, ix);
196		-
197		- if(!dp->distpoint \|\| dp->distpoint->type != 0)
198		- continue;
199		-
200		- GENERAL_NAMES *gens = dp->distpoint->name.fullname;
201		-
202		- for (i = 0; i < sk_GENERAL_NAME_num(gens); i++)
203		- {
204		- int gtype;
205		- GENERAL_NAME *gen = sk_GENERAL_NAME_value(gens, i);
206		- ASN1_STRING *uri = GENERAL_NAME_get0_value(gen, &gtype);
207		-
208		- if(uri && gtype == GEN_URI)
209		- {
210		- int length = ASN1_STRING_length(uri);
211		-
212		-#if (OPENSSL_VERSION_NUMBER >= 0x10100000L) // OpenSSL 1.1.0+
213		- const unsigned char * data = ASN1_STRING_get0_data(uri);
214		-#else
215		- const unsigned char * data = ASN1_STRING_data(uri);
216		-#endif // OpenSSL 1.1.0+
217		-
218		- if(data && length > 0)
219		- lib3270_string_array_append_with_length(uris,(char *) data, (size_t) length);
220		-
221		- }
222		-
223		- }
224		-
225		- }
226		-
227		-#ifdef DEBUG
228		- {
229		- for(ix = 0; ix < uris->length; ix++)
230		- {
231		- debug("%u: %s", (unsigned int) ix, uris->str[ix]);
232		- }
233		- }
234		-#endif // DEBUG
235		-
236		- if(hSession->ssl.crl.url)
237		- {
238		- // Check if the current URL is still valid.
239		- for(ix = 0; ix < uris->length; ix++)
240		- {
241		- if(!strcmp(hSession->ssl.crl.url,uris->str[ix]))
242		- {
243		- trace_ssl(hSession,"Keeping CRL from %s\n",hSession->ssl.crl.url);
244		- return 0;
245		- }
246		- }
247		-
248		- trace_ssl(hSession,"Discarding invalid CRL from %s\n",hSession->ssl.crl.url);
249		-
250		- // The URL is invalid or not to this cert, remove it!
251		- lib3270_free(hSession->ssl.crl.url);
252		- hSession->ssl.crl.url = NULL;
253		- }
254		-
255		- //
256		- // Downloading CRLs
257		- //
258		- if(hSession->ssl.crl.download)
259		- {
260		- if(hSession->ssl.crl.prefer && *hSession->ssl.crl.prefer)
261		- {
262		- size_t length = strlen(hSession->ssl.crl.prefer);
263		-
264		- for(ix = 0; ix < uris->length; ix++)
265		- {
266		- if(!strncmp(uris->str[ix],hSession->ssl.crl.prefer,length))
267		- {
268		- trace_ssl(hSession,"Trying preferred URL %s\n",uris->str[ix]);
269		- if(lib3270_crl_new_from_url(hSession, ssl_error, uris->str[ix]) == 0)
270		- return 0;
271		- }
272		-
273		- }
274		-
275		- }
276		-
277		- // Can't load, try all of them.
278		- for(ix = 0; ix < uris->length; ix++)
279		- {
280		- trace_ssl(hSession,"Trying CRL from %s\n",uris->str[ix]);
281		- if(lib3270_crl_new_from_url(hSession, ssl_error, uris->str[ix]) == 0)
282		- return 0;
283		- }
284		-
285		- return -1;
286		- }
287		-
288		- return 0;
289		-
290		-}
291		-
292		-#endif // SSL_ENABLE_CRL_CHECK && HAVE_LIBSSL