Шифрование по алгоритму AES в С++ Builder

/*#include "Rijndael.h"
Реализация примерно такая: Rijndael(Code,Data,Key,Itog), где Code(0 или 1)-
шифрование или дешифрование; Data - символьный массив данных;
Key - символьный массив ключей;
Itog - символьный массив результата шифрования(или дешифрования).
Реализованная версия сводит работу алгоритма к работе со строками
*/
#include <vcl.h>
#include <windows.h>
#include <math.h>
#include <ComObj.hpp>
#include <utilcls.h>
#include <string.h>
#define AddRij vWordParagraphsRij.OleProcedure("Add")
#define ItemRij vWordParagraphsRij.OleFunction("Item",All++)
#define RangRij vWordParagraphRij.OlePropertyGet("Range").OlePropertySet("Text",STRRij.c_str())
Variant           vWordAppRij,
                  vWordDocsRij,
                  vWordDocRij,
                  vWordParagraphsRij,
                  vWordParagraphRij; // работа с WORD
bool             fStartWordRij=false;
const LenKeyRij=4;
const LenKey16Rij=8;
const LenKey2Rij=32;
const LenDataRij=4;
const LenData16Rij=8;
const LenData2Rij=32;
const KolKey = 16;
/*extern*/ AnsiString Array2to16[16][2];   ////!!!!
/*extern*/ AnsiString ArrayTabl37[135][2]; ///!!!!
/*extern*/ AnsiString DirSourse;            ///!!!!!!!!
int SRij[256]={0x63,0x7c,0x77,0x7b,0xf2,0x6b,0x6f,0xc5,0x30,0x01,0x67,0x2b,0xfe,0xd7,0xab,0x76,
    0xca,0x82,0xc9,0x7d,0xfa,0x59,0x47,0xf0,0xad,0xd4,0xa2,0xaf,0x9c,0xa4,0x72,0xc0,
    0xb7,0xfd,0x93,0x26,0x36,0x3f,0xf7,0xcc,0x34,0xa5,0xe5,0xf1,0x71,0xd8,0x31,0x15,
    0x04,0xc7,0x23,0xc3,0x18,0x96,0x05,0x9a,0x07,0x12,0x80,0xe2,0xeb,0x27,0xb2,0x75,
    0x09,0x83,0x2c,0x1a,0x1b,0x6e,0x5a,0xa0,0x52,0x3b,0xd6,0xb3,0x29,0xe3,0x2f,0x84,
    0x53,0xd1,0x00,0xed,0x20,0xfc,0xb1,0x5b,0x6a,0xcb,0xbe,0x39,0x4a,0x4c,0x58,0xcf,
    0xd0,0xef,0xaa,0xfb,0x43,0x4d,0x33,0x85,0x45,0xf9,0x02,0x7f,0x50,0x3c,0x9f,0xa8,
    0x51,0xa3,0x40,0x8f,0x92,0x9d,0x38,0xf5,0xbc,0xb6,0xda,0x21,0x10,0xff,0xf3,0xd2,
    0xcd,0x0c,0x13,0xec,0x5f,0x97,0x44,0x17,0xc4,0xa7,0x7e,0x3d,0x64,0x5d,0x19,0x73,
        0x60,0x81,0x4f,0xdc,0x22,0x2a,0x90,0x88,0x46,0xee,0xb8,0x14,0xde,0x5e,0x0b,0xdb,
    0xe0,0x32,0x3a,0x0a,0x49,0x06,0x24,0x5c,0xc2,0xd3,0xac,0x62,0x91,0x95,0xe4,0x79,
    0xe7,0xc8,0x37,0x6d,0x8d,0xd5,0x4e,0xa9,0x6c,0x56,0xf4,0xea,0x65,0x7a,0xae,0x08,
    0xba,0x78,0x25,0x2e,0x1c,0xa6,0xb4,0xc6,0xe8,0xdd,0x74,0x1f,0x4b,0xbd,0x8b,0x8a,
    0x70,0x3e,0xb5,0x66,0x48,0x03,0xf6,0x0e,0x61,0x35,0x57,0xb9,0x86,0xc1,0x1d,0x9e,
    0xe1,0xf8,0x98,0x11,0x69,0xd9,0x8e,0x94,0x9b,0x1e,0x87,0xe9,0xce,0x55,0x28,0xdf,
    0x8c,0xa1,0x89,0x0d,0xbf,0xe6,0x42,0x68,0x41,0x99,0x2d,0x0f,0xb0,0x54,0xbb,0x16};
        int  SRij1[256]={0x52,0x09,0x6a,0xd5,0x30,0x36,0xa5,0x38,0xbf,0x40,0xa3,0x9e,0x81,0xf3,0xd7,0xfb,
        0x7c,0xe3,0x39,0x82,0x9b,0x2f,0xff,0x87,0x34,0x8e,0x43,0x44,0xc4,0xde,0xe9,0xcb,
        0x54,0x7b,0x94,0x32,0xa6,0xc2,0x23,0x3d,0xee,0x4c,0x95,0x0b,0x42,0xfa,0xc3,0x4e,
        0x08,0x2e,0xa1,0x66,0x28,0xd9,0x24,0xb2,0x76,0x5b,0xa2,0x49,0x6d,0x8b,0xd1,0x25,
        0x72,0xf8,0xf6,0x64,0x86,0x68,0x98,0x16,0xd4,0xa4,0x5c,0xcc,0x5d,0x65,0xb6,0x92,
        0x6c,0x70,0x48,0x50,0xfd,0xed,0xb9,0xda,0x5e,0x15,0x46,0x57,0xa7,0x8d,0x9d,0x84,
        0x90,0xd8,0xab,0x00,0x8c,0xbc,0xd3,0x0a,0xf7,0xe4,0x58,0x05,0xb8,0xb3,0x45,0x06,
        0xd0,0x2c,0x1e,0x8f,0xca,0x3f,0x0f,0x02,0xc1,0xaf,0xbd,0x03,0x01,0x13,0x8a,0x6b,
        0x3a,0x91,0x11,0x41,0x4f,0x67,0xdc,0xea,0x97,0xf2,0xcf,0xce,0xf0,0xb4,0xe6,0x73,
        0x96,0xac,0x74,0x22,0xe7,0xad,0x35,0x85,0xe2,0xf9,0x37,0xe8,0x1c,0x75,0xdf,0x6e,
        0x47,0xf1,0x1a,0x71,0x1d,0x29,0xc5,0x89,0x6f,0xb7,0x62,0x0e,0xaa,0x18,0xbe,0x1b,
        0xfc,0x56,0x3e,0x4b,0xc6,0xd2,0x79,0x20,0x9a,0xdb,0xc0,0xfe,0x78,0xcd,0x5a,0xf4,
        0x1f,0xdd,0xa8,0x33,0x88,0x07,0xc7,0x31,0xb1,0x12,0x10,0x59,0x27,0x80,0xec,0x5f,
        0x60,0x51,0x7f,0xa9,0x19,0xb5,0x4a,0x0d,0x2d,0xe5,0x7a,0x9f,0x93,0xc9,0x9c,0xef,
        0xa0,0xe0,0x3b,0x4d,0xae,0x2a,0xf5,0xb0,0xc8,0xeb,0xbb,0x3c,0x83,0x53,0x99,0x61,
        0x17,0x2b,0x04,0x7e,0xba,0x77,0xd6,0x26,0xe1,0x69,0x14,0x63,0x55,0x21,0x0c,0x7d};
//-----------------------------------------------------------------------------
void SysAsciiRij(int Par,char Data[], int Count){
// перевод из букв в 16-ричную и наоборот
  char Data16[LenKey16Rij+1];
  if(Par ==0){// перевод из букв в 16-ричную систему
     strcpy(Data16,Data);
     strcpy(Data,"");Data[2*Count+1]='\0';
     Data16[Count]='\0';
     for(int y=0;y<Count;y++)
       for(int i=1;i<135;i++){
       AnsiString AnsiSym = AnsiString(Data16[y]);
          if(AnsiSym == ArrayTabl37[i][0] ){
             strcat(Data,(ArrayTabl37[i][1]).c_str());
             break;
            }// if
         } // for i
   }// if(Par)
  else{// если переводим из 16-ричной в буквы
     strcpy(Data16,Data);
     strcpy(Data,"");
     Data[Count/2]='\0';
     char Sym[3];
     int a=0;
     Data16[Count]='\0';
     strcpy(Sym,"");
     for(int i=0;i<Count;i++){
        Sym[a]=Data16[i];
        Sym[2]='\0';
        a++;
        if((i+1)%2==0)
          for(int y=1;y<135;y++){
           AnsiString AnsiSym=AnsiString(Sym);
           if(AnsiSym==ArrayTabl37[y][1]){
             strcat(Data,(ArrayTabl37[y][0]).c_str());
             strcpy(Sym,"");
             a=0;
             break;
            }// if AnsiSym
         }// for y
     } // for i=0
  } // else
}
//-----------------------------------------------------------------------------
void Sys16to2Rij(char Data16[], int kol, char Datato2[]){
   strcpy(Datato2,"");
   char Data16Arr[LenKey16Rij+1];
   strcpy(Data16Arr,Data16);
   Data16Arr[kol]='\0';
   char ArrChar[5];
   for(int i=0;i<kol;i++){
      switch(Data16Arr[i]){
        case '0':{strcpy(ArrChar,"0000");break;};
        case '1':{strcpy(ArrChar,"0001");break;};
        case '2':{strcpy(ArrChar,"0010");break;};
        case '3':{strcpy(ArrChar,"0011");break;};
        case '4':{strcpy(ArrChar,"0100");break;};
        case '5':{strcpy(ArrChar,"0101");break;};
        case '6':{strcpy(ArrChar,"0110");break;};
        case '7':{strcpy(ArrChar,"0111");break;};
        case '8':{strcpy(ArrChar,"1000");break;};
        case '9':{strcpy(ArrChar,"1001");break;};
        case 'a':{strcpy(ArrChar,"1010");break;};
        case 'b':{strcpy(ArrChar,"1011");break;};
        case 'c':{strcpy(ArrChar,"1100");break;};
        case 'd':{strcpy(ArrChar,"1101");break;};
        case 'e':{strcpy(ArrChar,"1110");break;};
        case 'f':{strcpy(ArrChar,"1111");break;};
      }// switch
      ArrChar[4]='\0';
      strcat(Datato2,ArrChar);
   } // for i
   Datato2[kol*4]='\0';
}
//-----------------------------------------------------------------------------
void Sys10to16Rij(int Number,char Array[],int Kol){
 //алгоритм перехода из 10 в 16-ричную
   int a=0;
   strcpy(Array,"");
   int Num;bool flag=false;
     while(1){
       if(Number>=16)Num=Number-(Number/16)*16;
       else {
         flag=true;
         Num=Number;
         }
         switch(Num){
           case 0:{strcat(Array,"0");break;}
           case 1:{strcat(Array,"1");break;}
           case 2:{strcat(Array,"2");break;}
           case 3:{strcat(Array,"3");break;}
           case 4:{strcat(Array,"4");break;}
           case 5:{strcat(Array,"5");break;}
           case 6:{strcat(Array,"6");break;}
           case 7:{strcat(Array,"7");break;}
           case 8:{strcat(Array,"8");break;}
           case 9:{strcat(Array,"9");break;}
           case 10:{strcat(Array,"a");break;}
           case 11:{strcat(Array,"b");break;}
           case 12:{strcat(Array,"c");break;}
           case 13:{strcat(Array,"d");break;}
           case 14:{strcat(Array,"e");break;}
           default :{strcat(Array,"f");break;}
         }
         if(flag)break;
         Number/=16;
         a++;
    };
    a++;
    for(int i=0;i<Kol-a;i++)strcat(Array,"0");
 // переворачиваем
    char Ctakan;// переменная типа стакан
   for(int i=0;i<Kol/2;i++){
     Ctakan=Array[i];
     Array[i]=Array[Kol-i-1];
     Array[Kol-i-1]=Ctakan;
    }
  Array[Kol]='\0';
}
//-----------------------------------------------------------------------------
int Sys16to10Rij(char Massiv[],int kol ){
//функция перевода из 16-ричной в 10-ичную
   int *Dop= new int [kol];
   unsigned long int Sum=0;
   for(int i=0;i<kol;i++)
     switch(Massiv[i]){
           case '0':{Dop[i]=0;break;}
           case '1':{Dop[i]=1;break;}
           case '2':{Dop[i]=2;break;}
           case '3':{Dop[i]=3;break;}
           case '4':{Dop[i]=4;break;}
           case '5':{Dop[i]=5;break;}
           case '6':{Dop[i]=6;break;}
           case '7':{Dop[i]=7;break;}
           case '8':{Dop[i]=8;break;}
           case '9':{Dop[i]=9;break;}
           case 'a':{Dop[i]=10;break;}
           case 'b':{Dop[i]=11;break;}
           case 'c':{Dop[i]=12;break;}
           case 'd':{Dop[i]=13;break;}
           case 'e':{Dop[i]=14;break;}
           default :{Dop[i]=15;break;}
         };
    for(int i=0;i<kol;i++)
       Sum+=Dop[kol-i-1]*pow(16,i);
    delete [] Dop;
  return Sum;
}
//-----------------------------------------------------------------------------
void Sys2to16Rij(char Data[], int kol , char DataExit[]){
 strcpy(DataExit,"");
 int a=0;
 char Symbol[5];
 strcpy(Symbol,"");
 for (int i=0; i<strlen(Data);i++){
   Symbol[a]=Data[i];
   a++;
   Symbol[4]='\0';
   if ((i+1)%4==0)
     for(int y=0;y<16;y++)
       if(AnsiString(Symbol)==Array2to16[y][0]){
         strcat(DataExit,Array2to16[y][1].c_str());
         a=0;
         strcpy(Symbol,"");
         break;
       }//if
 }
 DataExit[kol/4]='\0';
}
//-----------------------------------------------------------------------------
int FuncSdvigRij(int Chislo,int Count){
      char D2[9],X2Aft[9],D0[3];
      Sys10to16Rij(Chislo,D0,2);
      Sys16to2Rij(D0,2,D2);
      strcpy(X2Aft,"");
      for(int i=0;i<8-Count;i++)
        X2Aft[i]=D2[i+Count];
      for(int i=0;i<Count;i++)
       X2Aft[8-Count+i]=D2[i];
      X2Aft[8]='\0';
      Sys2to16Rij(X2Aft,8,D0);
      D0[2]='\0';
      Chislo=Sys16to10Rij(D0,2);
  return Chislo;
}
//----------------------------------------------------------------------------
void Rijndael(const bool Code, char Data[], char Key[],char Itog[]){
  // 0- шифрование 1-дешифрование
 char Key16[LenKey16Rij+1];
 char Data16[LenData16Rij+1];
 strcpy(Key16,Key); Key16[LenKey16Rij]='\0';
 strcpy(Data16,Data); Data16[LenData16Rij]='\0';
 SysAsciiRij(0,Key16,LenKeyRij);// переводим ключи в 16-ричную
 if(Code==0){
   Data16[LenDataRij]='\0';
   SysAsciiRij(0,Data16,LenDataRij);// переводим данные в 16-ричную
 }
 // Key16  - ключи в 16-ричной Data16- данные в 16-ричной
 int w[KolKey];
 char w16[KolKey][3];
 for(int i=0;i<2;i++){
   w16[0][i]=Key16[i];
   w16[1][i]=Key16[2+i];
   w16[2][i]=Key16[4+i];
   w16[3][i]=Key16[6+i];
 }
 for(int i=0;i<4;i++){
   w16[i][2]='\0';
   w[i]=Sys16to10Rij(w16[i],2);
  }
 // включ Word
     fStartWordRij=false;
 if(!fStartWordRij) {
  try{
   CoInitialize(NULL);// инициализируем и открываем
   vWordAppRij=CreateOleObject("Word.Application");
   fStartWordRij=true;
  }
  catch(...){ // ошибка если не открываеться
   MessageBox(0, "Ошибка при открытии сервера Word","Ошибка", MB_OK);
   exit(0);// если не удалось закрываем
  }
 }
 //Делаем сервер видимым
  vWordAppRij.OlePropertySet("Visible",false);
  //отключаем граматику
  vWordAppRij.OlePropertyGet("Options").
        OlePropertySet("CheckGrammarAsYouType",false);
  vWordAppRij.OlePropertyGet("Options").
        OlePropertySet("CheckGrammarWithSpelling",false);
        //отключили
 //Получаем свойство Documents объекта
 vWordDocsRij=vWordAppRij.OlePropertyGet("Documents");
 //Создаем документ
 vWordDocsRij.OleProcedure("Add");
 vWordDocRij=vWordDocsRij.OleFunction("Item",1);
 //Смотреть будем тоже на первый документ
 vWordDocRij.OleProcedure("Activate");
 vWordParagraphsRij=vWordDocRij.OlePropertyGet("Paragraphs");
//Добавляем параграф
 int All=2;// строки определяет
 vWordParagraphRij=vWordParagraphsRij.OleFunction("Item",1);
  AnsiString STRRij="Шифрование";
 if(Code==1)STRRij="Дешифрование";
  RangRij;            //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  vWordParagraphRij.OlePropertySet("Alignment",1);
  // устанавливаем шрифт жирным и курсив, размер 16
  vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Size",16);
  vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",true);
  vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Italic",true);
  // на второй строке пишем : Используем шифр: S-Rijndael
  AddRij;ItemRij;
  // размер 14 жирный убираем
  vWordParagraphRij.OlePropertyGet("Range").OlePropertySet("Text","Используемый шифр: S-Rijndael");
  vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Size",14);
  vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",false);
  AddRij;ItemRij;
   if(Code==0)STRRij="Блок данных для шифрования Х("+AnsiString(Data)+") - код 16: "+AnsiString(Data16);
   else STRRij="Блок данных для дешифрования код 16: "+AnsiString(Data);
    vWordParagraphRij.OlePropertySet("Alignment",0);
   RangRij;AddRij;ItemRij;
   STRRij="Ключ ("+AnsiString(Key)+") - код 16: "+AnsiString(Key16);
   RangRij;AddRij;ItemRij;
     STRRij="Выработка подключей";
      vWordParagraphRij.OlePropertySet("Alignment",1);
      vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",true);
     RangRij;AddRij;ItemRij;
   int seria=2,Count=1;
     STRRij="1. Подключ К0(байты 0-3 массива подключей): "+AnsiString(w16[0])+"   "+AnsiString(w16[1])+"   "+AnsiString(w16[2])+"   "+AnsiString(w16[3]);
      vWordParagraphRij.OlePropertySet("Alignment",0);
      vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",false);
     RangRij;AddRij;ItemRij;
     // !!!!!!!!!начинаем работу с ключами!!!!
   for(int Round=1;Round<4;Round++){
     STRRij="Выработка подключа K"+IntToStr(Round);
      vWordParagraphRij.OlePropertySet("Alignment",1);
      vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",true);
     RangRij;AddRij;ItemRij;
     // RotWord
     for(int i=0;i<3;i++)w[4*Round+i]=w[4*(Round-1)+i+1];
     w[4*Round+3]=w[4*(Round-1)];
     for(int i=0;i<4;i++)Sys10to16Rij(w[4*Round+i],w16[4*Round+i],2);
    STRRij=IntToStr(seria)+"."+IntToStr(Count)+" Преобразование RotWord над байтами К"+IntToStr(Round-1)+": "+AnsiString(w16[4*Round])+"   "+AnsiString(w16[4*Round+1])+"   "+AnsiString(w16[4*Round+2])+"   "+AnsiString(w16[4*Round+3]);
      vWordParagraphRij.OlePropertySet("Alignment",0);
      vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",false);
     RangRij;AddRij;ItemRij;
     Count++;
     int Number;
    for(int i=0;i<4;i++){
      Number=w[4*Round+i];w[4*Round+i]=SRij[Number];
      Sys10to16Rij(w[4*Round+i],w16[4*Round+i],2);
      }
     STRRij=IntToStr(seria)+"."+IntToStr(Count)+" Преобразование SubWord: "+AnsiString(w16[4*Round])+"   "+AnsiString(w16[4*Round+1])+"   "+AnsiString(w16[4*Round+2])+"   "+AnsiString(w16[4*Round+3]);
     RangRij;AddRij;ItemRij;
     Count++;
    // закончили SubWord
    int Rconst=pow(2,Round-1);
    char Rconst16[3];
     Sys10to16Rij(Rconst,Rconst16,2);
     STRRij=IntToStr(seria)+"."+IntToStr(Count)+" Раундовая константа R"+IntToStr(Round-1)+"(код 16): "+AnsiString(Rconst16);
     RangRij;AddRij;ItemRij;
     Count++;
     // опер XOR
     w[4*Round+3]^=Rconst;
     Sys10to16Rij(w[4*Round+3],w16[4*Round+3],2);
     STRRij=IntToStr(seria)+"."+IntToStr(Count)+" Сложение XOR п."+IntToStr(seria)+".2. и R"+IntToStr(Round-1)+": "+AnsiString(w16[4*Round])+"   "+AnsiString(w16[4*Round+1])+"   "+AnsiString(w16[4*Round+2])+"   "+AnsiString(w16[4*Round+3]);
     RangRij;AddRij;ItemRij;
     Count++;
    for(int i=0;i<4;i++){
      w[4*Round+i]^=w[4*(Round-1)+i];
      Sys10to16Rij(w[4*Round+i],w16[4*Round+i],2);
      }
     STRRij=IntToStr(seria)+"."+IntToStr(Count)+" Сложение XOR п."+IntToStr(seria)+".4. и K"+IntToStr(Round-1)+": "+AnsiString(w16[4*Round])+"   "+AnsiString(w16[4*Round+1])+"   "+AnsiString(w16[4*Round+2])+"   "+AnsiString(w16[4*Round+3])+" - подключ K"+IntToStr(Round);
     RangRij;AddRij;ItemRij;
     Count=1;seria++;
   }  // конец работы с ключами
   AddRij;ItemRij;
   STRRij="Шифрование";
   if(Code==1)STRRij="Дешифрование";
      vWordParagraphRij.OlePropertySet("Alignment",1);
      vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",true);
     RangRij;AddRij;ItemRij;
     STRRij="Начальное преобразование(Раунд 0):";
     RangRij;AddRij;ItemRij;
     // получаем данные
     int Data10[4];
     char Data1016[4][3];
      for(int i=0;i<2;i++){
        Data1016[0][i]=Data16[i];
        Data1016[1][i]=Data16[2+i];
        Data1016[2][i]=Data16[4+i];
        Data1016[3][i]=Data16[6+i];
       }
      for(int i=0;i<4;i++){
        Data1016[i][2]='\0';
        Data10[i]=Sys16to10Rij(Data1016[i],2);
       }
      // получили
     if(Code==0)
       for(int i=0;i<4;i++){
          Data10[i]^=w[i];
          Sys10to16Rij(Data10[i],Data1016[i],2);
          }
     // !!! к шифрованию и дешифрованию подходим отдельно!!!
     if(Code==0){ // шифрование
      STRRij="Данные складываются по модулю 2 с подключом K0: "+AnsiString(Data1016[0])+"   "+AnsiString(Data1016[1])+"   "+AnsiString(Data1016[2])+"   "+AnsiString(Data1016[3]);
      vWordParagraphRij.OlePropertySet("Alignment",0);
      vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",false);
      RangRij;AddRij;ItemRij;
        seria=1;
        int Massiv[4][4]={{0,1,2,3},{1,2,0,3},{2,3,0,1},{3,0,1,2}};
        for(int Round=1;Round<=3;Round++){
         Count=1;
         STRRij="Раунд "+IntToStr(Round);
          vWordParagraphRij.OlePropertySet("Alignment",1);
          vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",true);
         RangRij;AddRij;ItemRij;
           int Number;
           for(int i=0;i<4;i++){
             Number=Data10[i];Data10[i]=SRij[Number];
             Sys10to16Rij(Data10[i],Data1016[i],2);
             STRRij=IntToStr(seria)+"."+IntToStr(Count)+" Замена SubBytes "+IntToStr(i)+" байта полученных данных: "+AnsiString(Data1016[0])+"   "+AnsiString(Data1016[1])+"   "+AnsiString(Data1016[2])+"   "+AnsiString(Data1016[3]);
               vWordParagraphRij.OlePropertySet("Alignment",0);
               vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",false);
             RangRij;AddRij;ItemRij;
             Count++;
           }// for i
         STRRij=IntToStr(seria)+"."+IntToStr(Count)+" Нулевой байт полученных данных не меняется(код 16): "+AnsiString(Data1016[0]);
         RangRij;AddRij;ItemRij;
         Count++;
         for(int i=1;i<4;i++){
           Data10[i]=FuncSdvigRij(Data10[i],2*i);
           Sys10to16Rij(Data10[i],Data1016[i],2);
           STRRij=IntToStr(seria)+"."+IntToStr(Count)+" Вращение влево на "+IntToStr(2*i)+" бита "+IntToStr(i)+" байта полученных данных: "+AnsiString(Data1016[i]);
           RangRij;AddRij;ItemRij;
           Count++;
         }// for i
         if(Round!=3){
           int S_02,S_03;
           int TimeArray[4];
           for(int i=0;i<4;i++){
              if((Data10[Massiv[i][0]]*2)>=256)S_02=(Data10[Massiv[i][0]]*2)^0x11b;
              else S_02=(Data10[Massiv[i][0]]*2)%0x11b;
              if(((Data10[Massiv[i][1]]*2)^Data10[Massiv[i][1]])>=256)S_03=((Data10[Massiv[i][1]]*2)^Data10[Massiv[i][1]])^0x11b;
              else S_03=((Data10[Massiv[i][1]]*2)^Data10[Massiv[i][1]])%0x11b;
              TimeArray[i]=S_02^S_03^Data10[Massiv[i][2]]^Data10[Massiv[i][3]];
           }
           for(int i=0;i<4;i++){
             Data10[i]=TimeArray[i];
             Sys10to16Rij(Data10[i],Data1016[i],2);
             }
           STRRij=IntToStr(seria)+"."+IntToStr(Count)+" Преобразование MixColumns : "+AnsiString(Data1016[0])+"   "+AnsiString(Data1016[1])+"   "+AnsiString(Data1016[2])+"   "+AnsiString(Data1016[3]);
               vWordParagraphRij.OlePropertySet("Alignment",0);
               vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",false);
           RangRij;AddRij;ItemRij;
           Count++;
         } // if round!=3
        // закончилт  MixColumns
         for(int i=0;i<4;i++){
            Data10[i]^=w[4*Round+i];
            Sys10to16Rij(Data10[i],Data1016[i],2);
         }
         // сделали XOR
          STRRij=IntToStr(seria)+"."+IntToStr(Count)+" Сложение XOR полученных данных и подключа K"+IntToStr(Round)+": "+AnsiString(Data1016[0])+"   "+AnsiString(Data1016[1])+"   "+AnsiString(Data1016[2])+"   "+AnsiString(Data1016[3]);
               vWordParagraphRij.OlePropertySet("Alignment",0);
               vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",false);
           RangRij;AddRij;ItemRij;
           seria++;
        }// for(Round)
         AddRij;ItemRij;
         strcpy(Itog,Data1016[0]);
         strcat(Itog,Data1016[1]);
         strcat(Itog,Data1016[2]);
         strcat(Itog,Data1016[3]);
         Itog[8]='\0';
        STRRij="Результат шифрования : "+AnsiString(Itog);
          vWordParagraphRij.OlePropertySet("Alignment",1);
          vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",true);
        RangRij;AddRij;ItemRij;
     } // окончили шифровать
     else { // дешифрование
       seria=1;
       for(int Round=3;Round>=1;Round--){
        Count=1;
        if(Round!=3){
          STRRij="Раунд "+IntToStr(3-Round);
           vWordParagraphRij.OlePropertySet("Alignment",1);
           vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",true);
          RangRij;AddRij;ItemRij;
         }
         for(int i=0;i<4;i++){
          Data10[i]^=w[4*Round+i];
          Sys10to16Rij(Data10[i],Data1016[i],2);
          }
        STRRij=IntToStr(seria)+"."+IntToStr(Count)+"Данные складываются по модулю 2 с подключом K"+IntToStr(Round)+": "+AnsiString(Data1016[0])+"   "+AnsiString(Data1016[1])+"   "+AnsiString(Data1016[2])+"   "+AnsiString(Data1016[3]);
         vWordParagraphRij.OlePropertySet("Alignment",0);
         vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",false);
        RangRij;AddRij;ItemRij;
        Count++;
       // invmixcolumns
       int Massiv[4][4]={{0,1,2,3},{3,0,1,2},{2,3,0,1},{1,2,3,0}};
       // 0- 0e 1-0b 2- 0d 3- 09
       if(Round!=3){
           int S_02,S_04,S_08;
           int TimeArray[4],MixColums[4];
           for(int i=0;i<4;i++){// горизонтальный перебор
              for(int y=0;y<4;y++){ // вертикальный перебор
                    S_02=Data10[y]<<1;
                     if(S_02>=256)S_02^=0x11b;
                     else S_02%0x11b;
                    S_04=S_02<<1;
                     if(S_04>=256)S_04^=0x11b;
                     else S_04%0x11b;
                    S_08=S_04<<1;
                     if(S_08>=256)S_08^=0x11b;
                     else S_08%0x11b;
                switch(Massiv[i][y]){
                  case 0:{// выполнять при 0e
                   TimeArray[y]=S_02^S_04^S_08;
                   break;
                  };
                  case 1:{// при 0b
                   TimeArray[y]=S_02^S_08^Data10[y];
                   break;
                  };
                  case 2:{
                   TimeArray[y]=S_04^S_08^Data10[y];
                   break;
                  };
                  case 3:{
                   TimeArray[y]=S_08^Data10[y];
                   break;
                  };
                }//конец switch
            MixColums[i]=TimeArray[0]^TimeArray[1]^TimeArray[2]^TimeArray[3];
            }// конец вертикального перебора
           }// конец горизонт перебора
           for(int i=0;i<4;i++){
             Data10[i]=MixColums[i];
             Sys10to16Rij(Data10[i],Data1016[i],2);
             }
           STRRij=IntToStr(seria)+"."+IntToStr(Count)+" Преобразование MixColumns : "+AnsiString(Data1016[0])+"   "+AnsiString(Data1016[1])+"   "+AnsiString(Data1016[2])+"   "+AnsiString(Data1016[3]);
               vWordParagraphRij.OlePropertySet("Alignment",0);
               vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",false);
           RangRij;AddRij;ItemRij;
           Count++;
         } // if round!=3
       // меняем байты
        STRRij=IntToStr(seria)+"."+IntToStr(Count)+" Нулевой байт полученных данных не меняется(код 16): "+AnsiString(Data1016[0]);
         RangRij;AddRij;ItemRij;
         Count++;
         for(int i=1;i<4;i++){
           Data10[i]=FuncSdvigRij(Data10[i],8-2*i);
           Sys10to16Rij(Data10[i],Data1016[i],2);
           STRRij=IntToStr(seria)+"."+IntToStr(Count)+" Вращение вправо на "+IntToStr(2*i)+" бита "+IntToStr(i)+" байта полученных данных: "+AnsiString(Data1016[i]);
           RangRij;AddRij;ItemRij;
           Count++;
         }// for i
          int Number;
           for(int i=0;i<4;i++){
             Number=Data10[i];Data10[i]=SRij1[Number];
             Sys10to16Rij(Data10[i],Data1016[i],2);
             STRRij=IntToStr(seria)+"."+IntToStr(Count)+" Замена InvSubBytes "+IntToStr(i)+" байта полученных данных: "+AnsiString(Data1016[0])+"   "+AnsiString(Data1016[1])+"   "+AnsiString(Data1016[2])+"   "+AnsiString(Data1016[3]);
               vWordParagraphRij.OlePropertySet("Alignment",0);
               vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",false);
             RangRij;AddRij;ItemRij;
             Count++;
           }// for i
           seria++;
       }// for Round
         for(int i=0;i<4;i++){
            Data10[i]^=w[i];
            Sys10to16Rij(Data10[i],Data1016[i],2);
         }
         // сделали XOR
          STRRij=" Сложение XOR полученных данных и подключа K0: "+AnsiString(Data1016[0])+"   "+AnsiString(Data1016[1])+"   "+AnsiString(Data1016[2])+"   "+AnsiString(Data1016[3]);
               vWordParagraphRij.OlePropertySet("Alignment",0);
               vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",false);
           RangRij;AddRij;ItemRij;         AddRij;ItemRij;
         strcpy(Itog,Data1016[0]);
         strcat(Itog,Data1016[1]);
         strcat(Itog,Data1016[2]);
         strcat(Itog,Data1016[3]);
         Itog[8]='\0';
        STRRij="Результат шифрования : "+AnsiString(Itog);
        SysAsciiRij(1,Itog,8);Itog[4]='\0';
        STRRij+="  - слово: "+AnsiString(Itog);
          vWordParagraphRij.OlePropertySet("Alignment",1);
          vWordParagraphRij.OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",true);
        RangRij;AddRij;ItemRij;
     }// окончили дешифрование
     AnsiString vAsCurDirRij = DirSourse+"\\RIJNDAEL.doc ";
     vWordDocRij.OleProcedure("SaveAs",vAsCurDirRij.c_str());
      // закрываем word
     if(fStartWordRij) {
       try{
       // отключение всех сообщений
         vWordAppRij.OlePropertySet("DisplayAlerts",false);
       // завершение работы приложения
         vWordAppRij.OleProcedure("Quit");
         }
        catch(...){ // ошибка при закрытии
          MessageBox(0, "Ошибка при закрытии сервера Word","Ошибка", MB_OK);
          exit(0);// если не удалось закрываем
          }
      }
    CoUninitialize();
 }

RangRij;

extern AnsiString Array2to16[16][2];   ////!!!!
extern AnsiString ArrayTabl37[135][2]; ///!!!!
extern AnsiString DirSourse;            ///!!!!!!!!