--- rpl/src/instructions_c8.c	2014/05/14 08:56:40	1.14
+++ rpl/src/instructions_c8.c	2016/09/27 10:43:23	1.24
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.18
-  Copyright (C) 1989-2014 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.25
+  Copyright (C) 1989-2016 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -242,11 +242,6 @@ instruction_cipher(struct_processus *s_e
 			printf("  Digest algorithms:\n\n");
 		}
 
-#		ifndef OPENSSL_NO_SHA
-		printf("    - DSS\n");
-		printf("    - DSS1\n");
-		printf("    - ECDSA\n");
-#		endif
 #		ifndef OPENSSL_NO_MD2
 		printf("    - MD2\n");
 #		endif
@@ -262,18 +257,11 @@ instruction_cipher(struct_processus *s_e
 #		ifndef OPENSSL_NO_RIPEMD
 		printf("    - RIPEMD160\n");
 #		endif
-#		ifndef OPENSSL_NO_SHA
-		printf("    - SHA\n");
 		printf("    - SHA1\n");
-#		endif
-#		ifndef OPENSSL_NO_SHA256
 		printf("    - SHA224\n");
 		printf("    - SHA256\n");
-#		endif
-#		ifndef OPENSSL_NO_SHA512
 		printf("    - SHA384\n");
 		printf("    - SHA512\n");
-#		endif
 #		ifndef OPENSSL_NO_WHIRLPOOL
 		printf("    - WHIRLPOOL\n");
 #		endif
@@ -350,8 +338,9 @@ instruction_cipher(struct_processus *s_e
 			return;
 		}
 
-		if ((instruction = conversion_majuscule((unsigned char *)
-				(*(*l_element_courant).donnee).objet)) == NULL)
+		if ((instruction = conversion_majuscule(s_etat_processus,
+				(unsigned char *) (*(*l_element_courant).donnee).objet))
+				== NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -414,7 +403,8 @@ instruction_cipher(struct_processus *s_e
 
 			// Test de la validité de la somme de contrôle.
 
-			if ((fonction = conversion_majuscule(controle)) == NULL)
+			if ((fonction = conversion_majuscule(s_etat_processus, controle))
+					== NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -424,144 +414,6 @@ instruction_cipher(struct_processus *s_e
 
 			switch(fonction[0])
 			{
-				case 'D':
-				{
-					switch(fonction[1])
-					{
-						case 'S': // ds
-						{
-							switch(fonction[2])
-							{
-#								ifndef OPENSSL_NO_SHA
-								case 'S': // dss
-								{
-									switch(fonction[3])
-									{
-										case d_code_fin_chaine:
-										{
-											EVP_sum = EVP_dss();
-											break;
-										}
-
-										case '1': // dss1
-										{
-											if (fonction[4] ==
-													d_code_fin_chaine)
-											{
-												EVP_sum = EVP_dss1();
-											}
-											else
-											{
-												somme_invalide = d_vrai;
-											}
-
-											break;
-										}
-
-										default:
-										{
-											somme_invalide = d_vrai;
-											break;
-										}
-									}
-
-									break;
-								}
-#								endif
-
-								default:
-								{
-									somme_invalide = d_vrai;
-									break;
-								}
-							}
-
-							break;
-						}
-
-						default:
-						{
-							somme_invalide = d_vrai;
-							break;
-						}
-					}
-
-					break;
-				}
-
-				case 'E':
-				{
-					switch(fonction[1])
-					{
-						case 'C': // ec
-						{
-							switch(fonction[2])
-							{
-								case 'D': // ecd
-								{
-									switch(fonction[3])
-									{
-										case 'S': // ecds
-										{
-											switch(fonction[4])
-											{
-#												ifndef OPENSSL_NO_SHA
-												case 'A': // ecdsa
-												{
-													if (fonction[5] ==
-															d_code_fin_chaine)
-													{
-														EVP_sum = EVP_ecdsa();
-													}
-													else
-													{
-														somme_invalide = d_vrai;
-													}
-
-													break;
-												}
-#												endif
-
-												default:
-												{
-													somme_invalide = d_vrai;
-													break;
-												}
-											}
-
-											break;
-										}
-
-										default:
-										{
-											somme_invalide = d_vrai;
-											break;
-										}
-									}
-
-									break;
-								}
-
-								default:
-								{
-									somme_invalide = d_vrai;
-									break;
-								}
-							}
-
-							break;
-						}
-
-						default:
-						{
-							somme_invalide = d_vrai;
-							break;
-						}
-					}
-
-					break;
-				}
-
 				case 'M':
 				{
 					switch(fonction[1])
@@ -693,17 +545,10 @@ instruction_cipher(struct_processus *s_e
 						{
 							switch(fonction[2])
 							{
-#								ifndef OPENSSL_NO_SHA
 								case 'A':
 								{
 									switch(fonction[3])
 									{
-										case d_code_fin_chaine:
-										{
-											EVP_sum = EVP_sha();
-											break;
-										}
-
 										case '1': // sha1
 										{
 											if (fonction[4] ==
@@ -719,7 +564,6 @@ instruction_cipher(struct_processus *s_e
 											break;
 										}
 
-#										ifndef OPENSSL_NO_SHA256
 										case '2': // sha2
 										{
 											switch(fonction[4])
@@ -797,9 +641,7 @@ instruction_cipher(struct_processus *s_e
 
 											break;
 										}
-#										endif
 
-#										ifndef OPENSSL_NO_SHA512
 										case '3': // sha3
 										{
 											switch(fonction[4])
@@ -891,7 +733,6 @@ instruction_cipher(struct_processus *s_e
 
 											break;
 										}
-#										endif
 
 										default:
 										{
@@ -902,7 +743,6 @@ instruction_cipher(struct_processus *s_e
 
 									break;
 								}
-#								endif
 
 								default:
 								{
@@ -1103,7 +943,8 @@ instruction_cipher(struct_processus *s_e
 		return;
 	}
 
-	if ((tampon = conversion_majuscule(algorithme_chiffrement)) == NULL)
+	if ((tampon = conversion_majuscule(s_etat_processus,
+			algorithme_chiffrement)) == NULL)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return;
@@ -1669,7 +1510,8 @@ instruction_cipher(struct_processus *s_e
 			return;
 		}
 
-		if ((message_chiffre = chiffrement(EVP_chiffrement, encodage, message,
+		if ((message_chiffre = chiffrement(s_etat_processus,
+				EVP_chiffrement, encodage, message,
 				longueur_message, clef_binaire, longueur_clef_binaire,
 				iv_binaire, &longueur_message_chiffre)) == NULL)
 		{
@@ -1754,7 +1596,8 @@ instruction_cipher(struct_processus *s_e
 		}
 
 		if (((*(*l_element_courant).donnee).objet =
-				conversion_majuscule(algorithme_chiffrement)) == NULL)
+				conversion_majuscule(s_etat_processus, algorithme_chiffrement))
+				== NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;