RSA – алгоритм шифрования

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//Возьмем два больших простых числа p and q.
//Определим n, как результат умножения p on q (n= p*q).
//Вычислить m = (p - 1) * (q - 1) т.е. функция эйлера
//Выберем случайное число, которое назовем d.
    //Это число должно быть взаимно простым (не иметь ни одного общего делителя, кроме 1)
    //с результатом умножения (p-1)*(q-1).
//Определим такое число е, для которого является истинным
    //следующее соотношение (e*d) mod ((p-1)*(q-1))=1.
    //Hазовем открытым ключем числа e и n, а секретным - d и n.
unsigned __int64 p, q, n, m, d, e;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    srand(time(0));
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::isPrime(int number)
{
    if (number < 2) {
        return false;
    }
    for (int i = 2; i <= (number / 2); i++) {
        if (number % i == 0) {
            return false;
        }
    }
    return true;
}
//---------------------------------------------------------------------------
int __fastcall TForm1::Nod(unsigned long int a, unsigned long int b) {
    int number = 0;
    number = (a % b) ? Nod(b, a % b) : b;
    return number;
}
//---------------------------------------------------------------------------
int __fastcall TForm1::genPrime()
{
    int number = 0;
    while (!isPrime(number)) {
        number = rand();
    }
    return number;
}
//---------------------------------------------------------------------------
int __fastcall TForm1::genPubKey()
{
    e = ((rand() % m) + 2);
    while (Nod(e, m) != 1) {
        Application->ProcessMessages();
        e = ((rand() % m) + 2);
    }
    return e;
}
//---------------------------------------------------------------------------
int __fastcall TForm1::genPrKey()
{
    d = 0;
    while ((d * e) % m != 1) {
        Application->ProcessMessages();
        d++;
    }
    return d;
}
// ---------------------------------------------------------------------------
AnsiString __fastcall TForm1::Encrypt(AnsiString text, int e, int n)
{
    AnsiString new_text="";
    char *A = new char[text.Length()];
    A = text.c_str();
    char *B = new char[text.Length()];
    for (int i = 0; i < text.Length(); i++) {
        B[i] = bin_pow(A[i], e);
        B[i]%=n;
    }
    return AnsiString(B);
}
// ---------------------------------------------------------------------------
int  __fastcall TForm1::bin_pow(int a, int b)
{
    int res = 1;
    while(b)
    {
        if(b % 2 == 1)
        {
           res *=a;
        }
        b/=2;
        a*=a;
    }
    return res;
   //   return (!b)?1:((b&1)?a:1)*bin_pow(a*a,b/2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Memo2->Text=Encrypt(Memo1->Text, e, n);
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    Memo3->Text=Encrypt(Memo2->Text, d, n);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    p = genPrime();
    q = genPrime();
    n = p * q;
    m = (p - 1) * (q - 1);
    e = genPubKey();
    d = genPrKey();
    ShowMessage("p="+(AnsiString)p+"\nq="+(AnsiString)q+"\nn="
            +(AnsiString)n+"\nm="+(AnsiString)m+"\nd="
                +(AnsiString)d+"\ne="+(AnsiString)e);
    Button3->Enabled=false;
    Button1->Enabled=true;
    Button2->Enabled=true;
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TMemo *Memo1;
    TMemo *Memo2;
    TButton *Button1;
    TButton *Button2;
    TMemo *Memo3;
    TButton *Button3;
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall Button2Click(TObject *Sender);
    void __fastcall Button3Click(TObject *Sender);
private:    // User declarations
    int __fastcall Nod(unsigned long int a, unsigned long int b);
    bool __fastcall isPrime(int number);
    int __fastcall genPrime();
    int __fastcall TForm1::genPubKey();
    int __fastcall TForm1::genPrKey();
    AnsiString __fastcall TForm1::Encrypt(AnsiString text, int e, int n);
    int  __fastcall TForm1::bin_pow(int a, int b);
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif