//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "UnitMain.h"
#include "math.h"
#define k 4
#define r 3
#define n 7
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMain *FormMain;
char H[r][n],Ht[r][k],P[k][r],Gx[k][n];
int masP[r+1]={0};
int mas[n-r]={0};
struct emcryption
  {
    char *m;
    char *u;
  };
emcryption Em={0};
//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void createH()
{
  int i,j,l;
  char temp[r]={0};
  for (i=1;i<n+1;i++)
  {
   itoa(i,temp,2);
   j=0;
   while (temp[j]!=0x0)
     j++;
     for (l=r;l>=0;l--)
     {
      H[l][i-1]=temp[j];
      j--;
     }
  }
  for (i=0;i<n;i++)
    for (j=0;j<r;j++)
      if (H[j][i]==0x0)
        H[j][i]=0x30;
}
//---------------------------------------------------------------------------
void items()
{
  int i,j,p=0,st=0,count=0,index,step=1;
  for (i=1;i<n+1;i++)
  {
    st=pow(2,p);
    masP[i-1]=st;
    p++;
  }
  index=0;
  for (i=0;i<r+1;i++)
  {
    if (masP[i+1]==masP[i]+1)
      count=0;
    else
    {
      count=masP[i+1]-masP[i];
      step=1;
      j=index;
      if (j==0)
      {
        mas[j]=3;
        index+=count-1;
      }
      else
      {
        while (mas[j-1]+1<masP[i+1])
        {
          mas[j]=masP[i]+step;
          step++;
          j++;
        }
        index+=count-1;
      }
    }
  }
}
//---------------------------------------------------------------------------
void createHt()
{
  int i,j,l,h=0;
  items();
  for (i=0;i<n;i++)
    for (l=0;l<k;l++)
    {
      if (mas[l]==i+1)
      {
        for (j=0;j<r;j++)
          Ht[j][h]=H[j][i];
        h++;
        break;
      }
    }
}
//---------------------------------------------------------------------------
void createP()
{
  int i,j;
  char temp[r]={0};
  for (i=0;i<k;i++)
    {
      for (j=0;j<r;j++)
        temp[j]=Ht[j][i];
      for (j=0;j<r;j++)
        P[i][j]=temp[r-1-j];
    }
}
//---------------------------------------------------------------------------
void createGx()
{
  int i,j,l,h=0,g=0,p=0,st=0;
  items();
  for (i=0;i<n;i++)
  {
    for (l=0;l<n;l++)
    {
      if ((i+1)==masP[l])
      {
        for (j=0;j<k;j++)
        {
          Gx[j][i]=P[j][h];
        }
        h++;
        break;
      }
      if ((i+1)==mas[l])
      {
        for (j=0;j<k;j++)
        {
          if (g==j)
            Gx[j][i]= 0x31;
          else
            Gx[j][i]= 0x30;
        }
        g++;
        break;
      }
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::ButEmcryptionClick(TObject *Sender)
{
  createH();
  createHt();
  createP();
  createGx();
  Em.m=Edit1->Text.c_str();
//  int t=4;
}
//---------------------------------------------------------------------------