rpl/src/instructions_c8.c - diff

Return to instructions_c8.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_c8.c between versions 1.7 and 1.22

version 1.7, 2013/03/20 17:11:44	version 1.22, 2015/11/26 11:44:34
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.24
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2015 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 94 instruction_cipher(struct_processus *s_e	Line 94 instruction_cipher(struct_processus *s_e
printf("-> 1: { \"cipher type\" \"generated key\" \"iv\" }\n\n");	printf("-> 1: { \"cipher type\" \"generated key\" \"iv\" }\n\n");

printf(" 2: \"text\"\n", d_CHN);	printf(" 2: \"text\"\n", d_CHN);
printf(" 1: %s { \"direction\" \"cipher type\" \"key\" \"iv\" }\n",	printf(" 1: { \"direction\" \"cipher type\" \"key\" \"iv\" }\n");
d_LST);
printf("-> 2: \"encrypted or decrypted text\"\n", d_CHN);	printf("-> 2: \"encrypted or decrypted text\"\n", d_CHN);
printf(" 1: { \"direction\" \"cipher type\" \"key\" "	printf(" 1: { \"direction\" \"cipher type\" \"key\" "
"\"updated iv\" }\n\n", d_LST);	"\"updated iv\" }\n\n", d_LST);
Line 351 instruction_cipher(struct_processus *s_e	Line 350 instruction_cipher(struct_processus *s_e
return;	return;
}	}

if ((instruction = conversion_majuscule((unsigned char *)	if ((instruction = conversion_majuscule(s_etat_processus,
((l_element_courant).donnee).objet)) == NULL)	(unsigned char ) ((*l_element_courant).donnee).objet))
	== NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
Line 415 instruction_cipher(struct_processus *s_e	Line 415 instruction_cipher(struct_processus *s_e

// Test de la validité de la somme de contrôle.	// 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;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
Line 1104 instruction_cipher(struct_processus *s_e	Line 1105 instruction_cipher(struct_processus *s_e
return;	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;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
Line 1670 instruction_cipher(struct_processus *s_e	Line 1672 instruction_cipher(struct_processus *s_e
return;	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,	longueur_message, clef_binaire, longueur_clef_binaire,
iv_binaire, &longueur_message_chiffre)) == NULL)	iv_binaire, &longueur_message_chiffre)) == NULL)
{	{
Line 1755 instruction_cipher(struct_processus *s_e	Line 1758 instruction_cipher(struct_processus *s_e
}	}

if ((((l_element_courant).donnee).objet =	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;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.7
changed lines
	Added in v.1.22