[BACK]Return to instructions_c8.c CVS log [TXT] [DIR] Up to [local] / rpl / src

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

version 1.7, 2013/03/20 17:11:44 version 1.24, 2016/09/27 10:43:23
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.13    RPL/2 (R) version 4.1.25
   Copyright (C) 1989-2013 Dr. BERTRAND Joël    Copyright (C) 1989-2016 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 243  instruction_cipher(struct_processus *s_e Line 242  instruction_cipher(struct_processus *s_e
             printf("  Digest algorithms:\n\n");              printf("  Digest algorithms:\n\n");
         }          }
   
 #       ifndef OPENSSL_NO_SHA  
         printf("    - DSS\n");  
         printf("    - DSS1\n");  
         printf("    - ECDSA\n");  
 #       endif  
 #       ifndef OPENSSL_NO_MD2  #       ifndef OPENSSL_NO_MD2
         printf("    - MD2\n");          printf("    - MD2\n");
 #       endif  #       endif
Line 263  instruction_cipher(struct_processus *s_e Line 257  instruction_cipher(struct_processus *s_e
 #       ifndef OPENSSL_NO_RIPEMD  #       ifndef OPENSSL_NO_RIPEMD
         printf("    - RIPEMD160\n");          printf("    - RIPEMD160\n");
 #       endif  #       endif
 #       ifndef OPENSSL_NO_SHA  
         printf("    - SHA\n");  
         printf("    - SHA1\n");          printf("    - SHA1\n");
 #       endif  
 #       ifndef OPENSSL_NO_SHA256  
         printf("    - SHA224\n");          printf("    - SHA224\n");
         printf("    - SHA256\n");          printf("    - SHA256\n");
 #       endif  
 #       ifndef OPENSSL_NO_SHA512  
         printf("    - SHA384\n");          printf("    - SHA384\n");
         printf("    - SHA512\n");          printf("    - SHA512\n");
 #       endif  
 #       ifndef OPENSSL_NO_WHIRLPOOL  #       ifndef OPENSSL_NO_WHIRLPOOL
         printf("    - WHIRLPOOL\n");          printf("    - WHIRLPOOL\n");
 #       endif  #       endif
Line 351  instruction_cipher(struct_processus *s_e Line 338  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 403  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 425  instruction_cipher(struct_processus *s_e Line 414  instruction_cipher(struct_processus *s_e
   
             switch(fonction[0])              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':                  case 'M':
                 {                  {
                     switch(fonction[1])                      switch(fonction[1])
Line 694  instruction_cipher(struct_processus *s_e Line 545  instruction_cipher(struct_processus *s_e
                         {                          {
                             switch(fonction[2])                              switch(fonction[2])
                             {                              {
 #                               ifndef OPENSSL_NO_SHA  
                                 case 'A':                                  case 'A':
                                 {                                  {
                                     switch(fonction[3])                                      switch(fonction[3])
                                     {                                      {
                                         case d_code_fin_chaine:  
                                         {  
                                             EVP_sum = EVP_sha();  
                                             break;  
                                         }  
   
                                         case '1': // sha1                                          case '1': // sha1
                                         {                                          {
                                             if (fonction[4] ==                                              if (fonction[4] ==
Line 720  instruction_cipher(struct_processus *s_e Line 564  instruction_cipher(struct_processus *s_e
                                             break;                                              break;
                                         }                                          }
   
 #                                       ifndef OPENSSL_NO_SHA256  
                                         case '2': // sha2                                          case '2': // sha2
                                         {                                          {
                                             switch(fonction[4])                                              switch(fonction[4])
Line 798  instruction_cipher(struct_processus *s_e Line 641  instruction_cipher(struct_processus *s_e
   
                                             break;                                              break;
                                         }                                          }
 #                                       endif  
   
 #                                       ifndef OPENSSL_NO_SHA512  
                                         case '3': // sha3                                          case '3': // sha3
                                         {                                          {
                                             switch(fonction[4])                                              switch(fonction[4])
Line 892  instruction_cipher(struct_processus *s_e Line 733  instruction_cipher(struct_processus *s_e
   
                                             break;                                              break;
                                         }                                          }
 #                                       endif  
   
                                         default:                                          default:
                                         {                                          {
Line 903  instruction_cipher(struct_processus *s_e Line 743  instruction_cipher(struct_processus *s_e
   
                                     break;                                      break;
                                 }                                  }
 #                               endif  
   
                                 default:                                  default:
                                 {                                  {
Line 1104  instruction_cipher(struct_processus *s_e Line 943  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 1510  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 1596  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;
Removed from v.1.7  
changed lines
  Added in v.1.24

CVSweb interface <joel.bertrand@systella.fr>