myrsamain.cpp

rsa 算法demo

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

#include <vcl.h>
#pragma hdrstop

#include "MyRsaMain.h"
#include "rsa_func.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int  E, N, D;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::bttnGenKeysClick(TObject *Sender)
{
  if (edtP->Text.IsEmpty())
      randomize();

  int p(GetPrimeNum());
  int q(GetPrimeNum());
  int n,d,e,phi;

  while (p==q)
      q = GetPrimeNum();
  n = p*q;
  phi = (p-1)*(q-1);
  e = Gcd(phi);
  d = Euler(e, phi);
  E = e;
  N = n;
  D = d;

  edtP->Text = p;
  edtQ->Text = q;
  edtN->Text = n;
  edtPhi->Text = phi;
  edtE->Text = e;
  edtD->Text = d;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::bttnEncTextClick(TObject *Sender)
{
//
    mmoEncText->Text = enc(mmoOriText->Text, E, N);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::bttnDecTextClick(TObject *Sender)
{
//
    mmoDecText->Text = dec(mmoEncText->Text, D, N);
}
//---------------------------------------------------------------------------