unit1.cpp

simple RSA crypt/decrypt

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//#include <stdlib.h>
#include <math.h>
//#include <Math>
#include <stdio.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//-----------------------------------------------------------
void save_()
{

Form1->Memo2->Lines->Clear();

 for(int i=0;i<alf_length;i++)
    Form1->Memo2->Lines->Add(alfavit[i]);

Form1->Memo2->Lines->SaveToFile("alfavit_pages");
}
//-----------------------------------------------------------

//-----------------------------------------------------------
AnsiString prov(int i, int j)
{
if(i==j)return "(+)";
else return "(-)";
}
//----------------------------------------------------------
__int64 ostatok(long double delim,__int64 delit)
{
div_t z;
 z=div(delim,delit);
 return (delim-z.quot*delit);

}
//------------------------------------------------------------
__int64 ost(__int64 X,int Y)
{ __int64 p=0;
//for(int i=0;i<alf_length;i++)
 for(int j=X;j>=0;j--)
  if(ostatok(j,Y)==0)
   {p=X-j;goto oo;}
   oo:
 return p;
}
//-------------------------------------------------------------------
__int64 stepen(__int64 chis,int step)
 {
  __int64 t=1;
  for(int i=0;i<step;i++)
     t=chis*t;
   return t;
 }

 AnsiString ascii_to_symb(int ascii_code)
 {
 char r=ascii_code;
 AnsiString j=r;
 return j;
 }
////////----------------------------------------------------------
void alfavit_()
 {

    for(int i=0;i<nn;i++)
	{k=0;
      for(int j=i;j<nn;j++)
	  {
		  if(pszBuffer[i]==pszBuffer[j])
			  k++;
	  }
	  if(k==1)
		  alf_length++;
	}

        //****************
 alfavit=new char [alf_length];
 ascii_alfavit=new int[alf_length];
 shift_alfavit=new __int64[alf_length];
	int e=0;
	for(int i=0;i<nn;i++)
	{k=0;

      for(int j=i;j<nn;j++)
	  {
	   if(pszBuffer[i]==pszBuffer[j])
	    k++;
	  }
	  if(k==1)
	  {alfavit[e]=pszBuffer[i];e++;}
	}
        Form1->StringGrid1->RowCount= alf_length+1;

       Form1->StringGrid1->Cells[0][0]="耔焘铍";
       Form1->StringGrid1->Cells[1][0]="觐