Метод шифрования Уитстона "Двойной квадрат"

  String alph = "абвгдежзиклмнопрстуфхцчшщъыьэюя, :.", test = "", test2 = "";
  if (RadioGroup1->ItemIndex == 1)
    alph = "abcdefghijklmnopqrstuvwxyz.,: ?-\"()";
  const n = 35;  // количество cимволов в alph
  const k = 5;  // количество столбцов в таблице
  randomize();
  int arr[n], arr2[n], i;
  for (i = 0; i < n; i++)
  {
    arr[i] = i + 1;
    arr2[i] = i + 1;
  }
  std::random_shuffle(arr, arr + n);
  std::random_shuffle(arr2, arr2 + n);
  for (i = 0; i < n; i++)
  {
    test += alph[arr[i]];
    test2 += alph[arr2[i]];
  }
 
  for (i = 0; i < n; i++)
  {
    StringGrid1->Cells[i%k][i/k] = test[i+1];
    StringGrid2->Cells[i%k][i/k] = test2[i+1];
  }

// Выполняет преобразование
AnsiString __fastcall TfmMain::work( AnsiString aString ){
    // Базовая таблица
   const char BaseTable[7][5] = {
      { 'а', 'б', 'в', 'г','д'  },
      { 'е', 'ж', 'з', 'и', 'к' },
      { 'л', 'м', 'н', 'о', 'п' },
      { 'р', 'с', 'т', 'у', 'ф' },
      { 'х', 'ц', 'ч', 'ш', 'щ' },
      { 'ъ', 'ы', 'ь', 'э', 'ю' },
      { 'я', '.', ',', ':', ' ' }
   };
 
    // Степень перемешивания, с которой сформируются исходные таблицы
   const int MixDepth = 1000;
 
   char table[2][7][5];
    // Заполним таблицы
   memcpy( table[0], BaseTable, sizeof( BaseTable ) );
   memcpy( table[1], BaseTable, sizeof( BaseTable ) );
 
    // Перемешаем таблицы
   randomize();
   for( int t = 0; t < 2; t++ ){
      for( int i = 0; i < MixDepth; i++ ){
          // Мешаем первую таблицу
         int y1 = rand() % 7;
         int x1 = rand() % 5;
         int y2 = rand() % 7;
         int x2 = rand() % 5;
         char tmp = table[t][y1][x1];
         table[t][y1][x1] = table[t][y2][x2];
         table[t][y2][x2] = tmp;
      }
   }
 
   int len = aString.Length();
   if( len & 1 ){
       // Добавим пробел
      aString += " ";
      len++;
   }
 
    // Сформируем зашифрованую строку
   AnsiString retVal;
   for( int i = 0; i < len; i++ ){
      int x, y;
      findXY( (char * )BaseTable, aString[i + 1], x, y );
      if( x < 0 || x < 0 ){
         return AnsiString( "Неизвестный символ в позиции " ) + IntToStr( i + 1 );
      }
      retVal += table[i & 1][y][x];
   }
 
   return retVal;
}

// Сформируем зашифрованую строку
   AnsiString retVal;
   for( int i = 0; i < len; i++ ){
      int x, y;
      findXY( (char * )BaseTable, aString[i + 1], x, y );
      if( x < 0 || x < 0 ){
         return AnsiString( "Неизвестный символ в позиции " ) + IntToStr( i + 1 );
      }
      retVal += table[i & 1][y][x];
   }
 
   return retVal;
}