Аффинная(ый) перестановка (шифр)

#include <vcl.h>
#pragma hdrstop
#include <iostream.h>
#include <fstream.h>
#include <string.h>
#include <stdio.h>
#include <fcntl.h>
#include <dos.h>
#include <io.h>
#include <cmath>
#pragma hdrstop
 
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
 
int a,b;  // ключи задаваемые пользователем
char mas[] ={'А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я','а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я'};
char shifr[66]; // в этом массиве будет зашифрованный алфавит
char str[66]; // запосной массив для строки из memo1 (возможно не нужный)
char str2[66];
char deshifr[66];
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::ШифрацияClick(TObject *Sender)
{
  Memo2->Clear();
  AnsiString S1;
  char S2[256];
  int j,i,n,k;
  for (int j = 0; j < strlen(mas); j++) {
    shifr[j] = mas[(b+a*j) % strlen(mas)]; // формула по которой происходит шифрование
  }
  n=Form3->Memo1->Lines->Count;
  for(j=0;j<n;j++) {
    S1=Form3->Memo1->Lines->Strings[j];
    // перевод из ансистринг в стринг
    strcpy(S2, S1.c_str());
  }
  for (i=0; i < strlen(S2) ; i++)
    str[i]=S2[i];
  for (i=0; i < strlen(S2) ; i++) {
    for (k=0; k < strlen(mas); k++) {
      if (str[i] == mas[k]) {
        str[i] = shifr[k];
        k++;
      }
    }
  }
  for (i=0; i < strlen(S2) ; i++)
    S2[i]=str[i];
 
  S1=AnsiString(S2);
 
  Form3->Memo2->Lines->Add(S1);
  Зашифрованно->Visible=true;
  Расшифрованно->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormCreate(TObject *Sender)
{
  Memo1->Clear();
  Memo2->Clear();
  Edit1->Clear();
  Edit2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
  AnsiString   str1 = Form3->Edit1->Text;
  AnsiString    str2 = Form3->Edit2->Text;
  a = StrToInt(str1);
  b = StrToInt(str2);
  // проверка введеных данных
  //    Form3->Memo1->Lines->Add(a);
  //    Form3->Memo2->Lines->Add(b);
  Edit1->Enabled=false;
  Edit2->Enabled=false;
  Button1->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::ДешифрацияClick(TObject *Sender)
{
  Memo2->Clear();
  AnsiString S3;
  char S4[256];
  int j,i,n,k;
  for (j = 0; j < strlen(mas); j++) {
    deshifr[j] = shifr[ (j-b)/a % strlen(mas)]; // формула по которой происходит дешифрование
  }
  n=Form3->Memo1->Lines->Count;
  for(j=0;j<n;j++) {
    S3=Form3->Memo1->Lines->Strings[j];
    strcpy(S4, S3.c_str());
  }
  for (i=0; i < strlen(S4) ; i++)
    str2[i]=S4[i];
  for (i=0; i < strlen(S4) ; i++) {
    for (k=0; k < strlen(mas); k++) {
      if (str2[i] == shifr[k]) {
        str2[i] = deshifr[k];
        k++;
      }
    }
  }
  for (i=0; i < strlen(S4) ; i++)
    S4[i]=str2[i];
 
    S3=AnsiString(S4);
 
  Form3->Memo2->Lines->Add(S3);
  Зашифрованно->Visible=false;
  Расшифрованно->Visible=true;
}