Шифрование методом многоалфавитной замены

String Rus = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя_";
 
 
int index=1;
for (int i = 0; i < StringGrid1->ColCount; i++){
for (int j = 0; j < StringGrid1->RowCount; j++){
 
 
            if(index <=Rus.Length()){
 
StringGrid1->Cells[j+1][i] = Rus[index];
StringGrid1->Cells[i][j+1] = Rus[index];
 
index+=1;
                                 }
                        }
                 }
        }
}

String Rus = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя_";
int index=1;
for (int i = 0; i < StringGrid1->ColCount; i++)
for (int j = 0; j < StringGrid1->RowCount; j++)
{
StringGrid1->Cells[j+1][i] = Rus[index];
StringGrid1->Cells[i][j+1] = Rus[index];
index+=1;
if(index > Rus.Length()) index =1;
}

String Rus = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя_";
int index=1;
int n = Rus.Length();
StringGrid1->ColCount = n+1;
StringGrid1->RowCount = n+1;
 
for (int i = 0; i < n; i++)
{
index = 1;
for (int j = i; j < n; j++)
{
StringGrid1->Cells[j][i] = Rus[index];
StringGrid1->Cells[i][j+1] = Rus[n-index+1];
index+=1;
if(index > n) index =1;
}
}