--- rpl/src/instructions_c8.c	2013/06/21 14:15:53	1.9
+++ rpl/src/instructions_c8.c	2015/11/26 11:44:34	1.22
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.15
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.24
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -94,8 +94,7 @@ instruction_cipher(struct_processus *s_e
 		printf("->  1: { \"cipher type\" \"generated key\" \"iv\" }\n\n");
 
 		printf("    2: \"text\"\n", d_CHN);
-		printf("    1: %s { \"direction\" \"cipher type\" \"key\" \"iv\" }\n",
-				d_LST);
+		printf("    1: { \"direction\" \"cipher type\" \"key\" \"iv\" }\n");
 		printf("->  2: \"encrypted or decrypted text\"\n", d_CHN);
 		printf("    1: { \"direction\" \"cipher type\" \"key\" "
 				"\"updated iv\" }\n\n", d_LST);
@@ -351,8 +350,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;
@@ -415,7 +415,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;
@@ -1104,7 +1105,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;
@@ -1670,7 +1672,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)
 		{
@@ -1755,7 +1758,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;