Кто может объяснить алгоритм программы? Как она работает?

// LB3.cpp : Defines the entry point for the console application.
 
#include "stdafx.h"
#include <iostream>
#include <cstdlib>
#include <cstring>
#include <ctime>
 
using namespace std;
extern "C" {
#include "miracl.h"
}
 
#define p "1FBED2199C5"   //2181526821317
#define q "61CCC7CA65"    //420047473253
 
 
int Нash_file(big b_hash, FILE*f);
int Нash_pass(big b_hash);
int gen_ED(csprng& rng, big D,big E, big Phi);
int gen_ECP(big hash_p, big N);
int prov_ECP(big N);
char menu1();
char menu2();
 
int main(int argc, char** argv)
{
 
    setlocale(LC_ALL,"rus");
    miracl *mir;
    mir = mirsys(100, 0);
    mir->IOBASE=16;
    //Выбираем P,Q
    //инициализация
    big P = mirvar(0);
    big Q = mirvar(0);
    big N = mirvar(0);
    big Phi = mirvar(0);
    if(cinstr(P,p)!=11)
    {
        printf("Error P\n");
        mirkill(P), mirkill(Q),mirkill(N);
        mirexit();
        return 1;
    }
    if(cinstr(Q,q)!=10)
    {
        printf("Error Q\n");
        mirkill(P), mirkill(Q),mirkill(N);
        mirexit();
        return 1;
    }
    multiply(P,Q,N);
    big tmp1 = mirvar(1);
    big tmp2 = mirvar(1);
    subtract(P,tmp1,tmp1); //tmp1=P-1
    subtract(Q,tmp2,tmp2); //tmp2=Q-1
    multiply(tmp1,tmp2,Phi);  //Phi = (P-1)*(Q-1)
    mirkill(tmp1);
    mirkill(tmp2);
 
    printf ("Создание связки ключей в открытом виде\nВведите фразу-пароль:\n");
    FILE* parol;
    parol=fopen("syst.bin","wt");
    char Pass[256];
    cin.getline(Pass,256);
    fprintf(parol,"%s",Pass);
    fclose(parol);
 
    big hash_pass=mirvar(0);
    Нash_pass(hash_pass);//личный
    divide(hash_pass,N,N);
    big pub_key = mirvar(0);
    copy(hash_pass,pub_key);
    int result;
    irand(hash_pass->w[0]);
    do{
        bigrand(N,hash_pass);
        copy(hash_pass,pub_key);
        result = xgcd(pub_key,Phi,pub_key,pub_key,pub_key);
    }while(result!=1);
 
    srand(time(NULL));
    csprng rng;
    int len=256, i;
    char mas[256];
    for (int i=0;i<len; i++)
        mas[i]=rand();
    strong_init(&rng,len,mas,time(NULL));
    big D=mirvar(0);
    big E=mirvar(0);
    big enc_D=mirvar(0);
    char key[256];
    FILE* private_key_A;
    FILE* public_key_A;
    private_key_A=fopen("private_key_A.txt","wt");
    public_key_A=fopen("public_key_A.txt","wt");
    for(int i=0; i<10; i++)
    {
        gen_ED(rng,D,E,Phi);
        powmod(D,pub_key,N,enc_D);
        cotnum(E,public_key_A);
        cotnum(enc_D,private_key_A);
    }
    fclose(private_key_A);
    fclose(public_key_A);
    char option; 
    do
    {
        system("cls");
        option=menu1();
        switch(option)
        {
        case '1':  gen_ECP(hash_pass, N);
            break;
        case '2':  prov_ECP(N);
            break;
 
        }
        system("pause");
    } while (option!='3');
 
 
 
    mirkill(P);
    mirkill(Q);
    mirkill(N);
    mirkill(Phi);
 
    mirexit();
    return(EXIT_SUCCESS);
}
 
 
 
int Нash_file(big b_hash, FILE*f)
{
    sha s_sha;
    shs_init(&s_sha);
    if (f == NULL)
        return errno;
    char c_hash[256];
    char c_hash_s;
    while (!feof(f))
        if ((c_hash_s = getc(f)) != EOF)
            shs_process(&s_sha, c_hash_s);
    shs_hash(&s_sha, c_hash);
    bytes_to_big(256, c_hash, b_hash);
    return 0;
}
int Нash_pass(big b_hash)
{
    sha s_sha;
    shs_init(&s_sha);
    char filename[256];
    FILE *f_hash = fopen("syst.bin", "rt");
    if (f_hash == NULL)
        return errno;
    char c_hash[256];
    char c_hash_s;
    while (!feof(f_hash))
        if ((c_hash_s = getc(f_hash)) != EOF)
            shs_process(&s_sha, c_hash_s);
    shs_hash(&s_sha, c_hash);
    bytes_to_big(256, c_hash, b_hash);
    fclose(f_hash);
    return 0;
}
int gen_ED(csprng& rng, big D,big E, big Phi)
{
 
    int len=256, i;
    char tmp[256];
    big tmp1=mirvar(0);
    big tmp2=mirvar(0x1);
    do{
        strong_bigrand(&rng,Phi,E);
        egcd(E, Phi, tmp1);
        i = compare(tmp1,tmp2);
    }while(i!=0);
 
    copy(E,D);
    xgcd(D,Phi,D,D,D);
    return 0;
}
int gen_ECP(big hash_p, big N)
{
    int id;
    id=rand()%10;
    big enc_D = mirvar(0);
    big D = mirvar(0);
    big ECP = mirvar(0);
    char key[256], tmp[255], par[255];
    char filename[100], filename1[100];
    char option = menu2();
    cout<<"Введите фразу-пароль\n";
    cin.getline(tmp,255);
    FILE* parol= fopen("syst.bin", "rt");
    fscanf (parol,"%s",par);
    if (!strcmp(tmp, par))
    {
        cout<<"Правильный пароль\n";
    }
    else
    {
        cout<<"Неправильный пароль\n";
        return 1;
    }
    big hash = mirvar(0);
    if (option=='1')
    {
        cout<<"Введите сообщение\n";
        cin.getline(tmp,255);
        FILE*f11;
        f11=fopen("xxx.txt","wt");
        fprintf (f11,"%s",tmp);
        fclose(f11);
        // algoritm
 
 
 
        FILE*f=fopen("xxx.txt", "rb");
 
        Нash_file(hash, f);
        divide(hash,N,N);
        fclose(f);
        FILE*f2=fopen("private_key_A.txt", "rt");
        for(int i=0; i<=id; i++)
        {
            fscanf(f2,"%s\n",key);
            cinstr(enc_D,key);      
        }
        fclose(f2);
        powmod(enc_D,hash_p,N,D);
        powmod(hash,D,N, ECP);
        cotstr(ECP,key);
        //printf ("%s\n",key);
        cout<<"\nВведите имя сообщения (файла) для отправителя:\n";
        cin.getline(filename,100);
        FILE*f3=fopen(filename, "wb");
        FILE*f4=fopen("xxx.txt", "rb");
        fwrite(&id,sizeof(int),1,f3);
        int len = strlen(key);
        fwrite(&len,sizeof(int),1,f3);
        fwrite(key,sizeof(char),len,f3);
        char data[512];
        while (!feof(f4))
        {
            int r = fread(&data,sizeof(char),512,f4);
            fwrite(data,sizeof(char),r,f3);
        }
        fclose(f4);
        fclose(f3);
 
    }
    else if (option == '2')
    {
        cout<<"Введите имя файла\n";
        cin.getline(tmp,255);
        FILE*f;
        f=fopen(tmp,"rb");
        if (f == NULL)
        {
            cout<<"Файла с таким именем нет\n";
            return 1;
        }
        // algoritm
 
 
 
 
 
        Нash_file(hash, f);
        divide(hash,N,N);
        fclose(f);
        FILE*f2=fopen("private_key_A.txt", "rt");
        for(int i=0; i<=id; i++)
        {
            fscanf(f2,"%s\n",key);
            cinstr(enc_D,key);      
        }
        fclose(f2);
        powmod(enc_D,hash_p,N,D);
        powmod(hash,D,N, ECP);
        cotstr(ECP,key);
        //printf ("%s\n",key);
        cout<<"\nВведите имя сообщения (файла) для отправителя:\n";
        cin.getline(filename,100);
        FILE*f3=fopen(filename, "wb");
        FILE*f4=fopen(tmp, "rb");
        fwrite(&id,sizeof(int),1,f3);
        int len = strlen(key);
        fwrite(&len,sizeof(int),1,f3);
        fwrite(key,sizeof(char),len,f3);
        char data[512];
        while (!feof(f4))
        {
            int r = fread(&data,sizeof(char),512,f4);
            fwrite(data,sizeof(char),r,f3);
        }
        fclose(f4);
        fclose(f3);
 
 
        fclose(f);
    }
 
 
    mirkill(hash);
    return 0;
}
int prov_ECP(big N)
{
    cout<<"\nВведите название принятого сообщения (файла)\n";
    char filename[100], filename1[100];
    int id, len;
    char key[256], data[512];
    big ECP = mirvar(0);
    big prov_hash = mirvar(0);
    big msg_hash = mirvar(0);
    big pub = mirvar(0);
    cin.getline(filename,100);
    FILE*f=fopen(filename, "rb");
    if (f == NULL)
    {
        cout<<"Файла с таким именем нет\n";
        return 1;
    }
    fread(&id,sizeof(int),1,f);
    fread(&len,sizeof(int),1,f);
    char* text;
    text = new char[len+1];
    fread(text,sizeof(char),len,f);
    text[len] = 0;
    //cout<<id<<endl<<len<<endl<<text<<endl;
    cinstr(ECP,text);
    FILE*f3=fopen("msg.txt", "wb");
    while (!feof(f))
    {
        int r = fread(&data,sizeof(char),512,f);
        fwrite(data,sizeof(char),r,f3);
    }
    fclose(f);
    fclose(f3);
    FILE*f2=fopen("public_key_A.txt", "rt");
    for(int i=0; i<=id; i++)
    {
        fscanf(f2,"%s\n",key);
        cinstr(pub,key);        
    }
    fclose(f2);
    powmod(ECP,pub,N,prov_hash);
    FILE*f4=fopen("msg.txt", "rb");
    Нash_file(msg_hash,f4);
    divide(msg_hash,N,N);
    fclose(f4);
    if(compare(prov_hash, msg_hash)==0)
        cout<<"Проверка пройдена. Аутентификация и целостность подтверждена\n"<<endl;
    else 
        cout<<"Сообщение не прошло проверку. Его целостность нарушена\n"<<endl;
 
    return 0;
}
 
char menu1()
{
    char option;
    puts("1. Отправить сообщение");
    puts("2. Принять сообщение");
    puts("3. Закончить работу");
    puts("Выберите действие");
    scanf("%1c", &option);
    fflush(stdin);
    while(option!='1' && option!='2' && option!='3')
    {
        puts("\nВ меню нет указанной команды \nВыберите действие с меню");
        scanf("%1c", &option);
        fflush(stdin);
    }
    return option;  
}
 
char menu2()
{
    char option;
    puts("1. Ввести сообщение");
    puts("2. Прикрепить файл");
    puts("3. Выйти в главное меню");
    puts("Выберите действие");
    scanf("%1c", &option);
    fflush(stdin);
    while(option!='1' && option!='2' && option!='3')
    {
        puts("\nВ меню нет указанной команды \nВыберите действие с меню");
        scanf("%1c", &option);
        fflush(stdin);
    }
    return option;  
}