RSA

bool prost(int z)
{
    for(int i=2; i<=sqrt((float)z); i++)
        if(z%i == 0)
            return false;
    return true;
}
 
int NOD(int a,int b)
{
    if(a==b)
        return a;
    else
        if(a>b)
            return NOD(a-b,b);
        else
            return NOD(b-a,a);
}
void __fastcall TForm2::FormCreate(TObject *Sender)
{
    int eler,proverka;
    bool flag=false;
    srand((unsigned)time(NULL));
    do
        p = rand()%99+2;
    while(!prost(p));
    do
        q = rand()%99+2;
    while(!prost(q));
    Label2->Caption = "p = "+IntToStr(p)+"; q = "+IntToStr(q)+"; ";
    n = p*q;
    eler = (p-1)*(q-1);
    do
    {
        do
            e = rand()%99+2;
        while(e>eler);
        if(NOD(e,eler)==1)
            flag=true;
    }
    while(flag==false);
    Label2->Caption = Label2->Caption + "e = "+IntToStr(e)+"; ";
    flag=false;
    do
    {
        do
        {
            d = rand()%99+2;
            proverka = (e*d)%((p-1)*(q-1));
        }
        while(proverka!=1);
        if(NOD(e,d)==1)
            flag=true;
    }
    while(flag==false);
    Label2->Caption = Label2->Caption + "d = "+IntToStr(d)+";";
}