Int32 sum = 0;
        Int32 lenghtBack = 5;
        array<String^> ^tmp;
        array<Int32^> ^freekey;
        array<Boolean^> ^boolea;
        array<Int32^> ^resheto;
        array<String^> ^words;

        Int32 mnoget = 0;
        Int32 fullWeight = 0;

        void fill_word() {
            //Заполнить двоичную штуку автофилом
            textBox1->Text = "";

            array<String^> ^words = gcnew array <String^>(lenghtBack);
            for (int i = 0; i < words->Length; i++)
            {
                words[i] = Convert::ToString(rand() % 2);
                textBox1->Text += words[i];


            }

        }
        void calc_word()
        {
            String ^text = textBox1->Text;

            words = text->Split(gcnew array<Char> {  ' ', ',', ':', '.' }); //Массив с string

            boolea = gcnew array<Boolean^>((words->Length - 1)*lenghtBack); //Массив с двоичным открытым кодом

            for (int i = 0; i < words->Length - 1; i++) {
                for (int j = 0; j < lenghtBack; j++)
                {
                    if ((words[i][j]) == '0')
                        boolea[i*lenghtBack + j] = false;
                    else if ((words[i][j]) == ' ')
                        continue;
                    //даже зайти не должен, так прост
                    else boolea[i*lenghtBack + j] = true;
                }

            }
        }

        void fill_backpack()
        {


            //textBox2


            Int32 count = 0;
            srand(time(0));
            Int32 tmptime = 0;
            String^ stringBackPackEasy = "";

            for (int i = 0; i < lenghtBack; i++)
            {
                if (count > 15) {
                    sum = 0;
                    count = 0;
                    tmptime = 0;
                    i = -1;
                    stringBackPackEasy = "";

                }

                else
                {
                    //Cпросить ПРО ЭТО!!!!
                    tmptime = (rand() % (100)) / (lenghtBack - i);
                    if (sum < tmptime) {
                        sum += tmptime;
                        if (i == lenghtBack - 1)
                            stringBackPackEasy += tmptime;
                        else
                            stringBackPackEasy += tmptime + " ";

                    }
                    else {
                        tmptime += (rand() % 100) / (lenghtBack - i);
                        i--;
                    }
                }
                count++;

            }

            textBox2->Text = stringBackPackEasy;
            tmp = stringBackPackEasy->Split(gcnew array<Char> {  ' ', ',', ':', '.' });

        }
        void calc_close_key()
        {

            tmp = textBox2->Text->Split(gcnew array<Char> {  ' ', ',', ':', '.' });
            lenghtBack = tmp->Length; //Длина рюкзака
            sum = 0;


            for (int i = 0; i < lenghtBack; i++)
            {
                try
                {
                    sum += Convert::ToInt32(tmp[i]);
                }
                catch (...)
                {
                    MessageBox::Show(" Ошибка в введенных данных, введите данные рюкзака");
                }
            }
        }
        void make_resheto()
        {
            //Решето Эрато??сфера?
            resheto = gcnew array<Int32^>(sum + 1);
            for (int i = 0; i < sum; i++) {
                resheto[i] = i;
            }

            for (int i = 2; i * i <= sum; i++)
            {
                if (resheto[i])
                    //Если текущее число не равно 0 - начинаем от него искать сложные
                    for (int j = i*i; j <= sum; j += i)
                        //И обнуляем их ячейки, чтобы больше не проверять их в цикле
                        resheto[j] = nullptr;
            }
            resheto->Sort(resheto);
            resheto->Reverse(resheto);
        }



        void make_open_key()
        {
            make_resheto();
            mnoget = 0; //Множитель должен быть взаимно простым числом с модулем, например

            if ((textBox5->TextLength == 0) && (textBox5->TextLength == 0))


            {
                for (int i = 0; i < resheto->Length / 6; i++)
                {
                    if (resheto[i] != Convert::ToInt32(0))
                        mnoget = Convert::ToInt32(resheto[i]);
                }
                fullWeight = rand() % 100 + sum; //Значение модуля должно быть больше суммы всех чисел последовательности, например
                textBox5->Text = Convert::ToString(mnoget);
                textBox6->Text = Convert::ToString(fullWeight);


            }


            else
            {
                mnoget = Convert::ToInt32(textBox5->Text);
                fullWeight = Convert::ToInt32(textBox6->Text);
            }
            freekey = gcnew array<Int32^>(lenghtBack);

            textBox3->Text = "";

            for (int i = 0; i < freekey->Length; i++)
            {
                freekey[i] = (Convert::ToInt32(tmp[i]) * mnoget) % fullWeight;
                textBox3->Text += freekey[i] + " ";
            }
        }
        void make_code_phrase()
        {
            textBox4->Text = "";

            for (int i = 0; i < words->Length - 1; i++)
            {
                Int32 SumOfCode = 0;
                for (int j = 0; j < lenghtBack; j++)
                {
                    {
                        if (boolea[i*lenghtBack + j]->Equals(true))
                        {
                            SumOfCode = SumOfCode + Convert::ToInt32(freekey[(i*lenghtBack + j) % lenghtBack]);

                        }
                        else
                            continue;
                    }
                }
                textBox4->Text += Convert::ToString(SumOfCode) + " ";
            }



        }

        void makebin() {
            array<String^> ^temp = textBox1->Text->Split(gcnew array<Char> {  ' ', ',', ':', '.' });
            String^ tmpforbinfill = "";
            for (int i = 0; i < temp->Length; i++)
            {
                tmpforbinfill += Convert::ToInt32(temp[i]);
            }

            imp->Text = Convert::ToString(Convert::ToInt32(tmpforbinfill, 2));

        }


        void calc_bin()
        {
            textBox1->Text = "";


            array <String^> ^arrfortmpreadstr = gcnew array <String^>(0);
            arrfortmpreadstr = imp->Text->Split(gcnew array<Char> {  ' ', ',', ':', '.' });
            array <Int32^> ^arrfortmpreadint = gcnew array <Int32^>(arrfortmpreadstr->Length);
            for (int i = 0; i < arrfortmpreadstr->Length; i++)
            {
                try {
                    arrfortmpreadint[i] = Convert::ToInt32(arrfortmpreadstr[i]);
                    Int32 temp = Convert::ToInt32(arrfortmpreadstr[i]);
                    arrfortmpreadstr[i] = Convert::ToString(temp, 2);
                    Int32 tmp_lenght = arrfortmpreadstr[i]->Length;


                    while (tmp_lenght < lenghtBack)
                    {
                        //пока текст в двоичной штуке меньше чем длина рюкзака вставляем нули слева

                        arrfortmpreadstr[i] = arrfortmpreadstr[i]->Insert(0, "0");
                        tmp_lenght++;

                    }
                }
                catch (Exception^ ex)
                {
                    MessageBox::Show(ex->Message);

                }
            }


            Int32 idx = 0;

            while (idx != arrfortmpreadstr->Length)
            {

                textBox1->Text += Convert::ToString(arrfortmpreadstr[idx]) + " ";
                idx++;

            }








        }



        void fill_box()
        {
            fill_word();
            makebin();
            fill_backpack();
            make_open_key();

        }
        void clean_box()
        {

            sum = 0;
            lenghtBack = 5;

            tmp->Resize(tmp, 0);


            freekey->Resize(tmp, 0);

            boolea->Resize(tmp, 0);


            resheto->Resize(tmp, 0);

            textBox1->Text = "";
            textBox2->Text = "";
            textBox3->Text = "";
            textBox4->Text = "";
            textBox5->Text = "";
            textBox6->Text = "";
            imp->Text = "";
            fullWeight = 0;
            mnoget = 0;

        }


    private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {
        textBox5->Text = "";
        textBox6->Text = "";
        fill_box();

    };
    private: System::Void button2_Click(System::Object^  sender, System::EventArgs^  e) {
        clean_box();
        GC::Collect();
    }

    private: System::Void button3_Click(System::Object^  sender, System::EventArgs^  e) {


        calc_bin();
        calc_word();
        calc_close_key();
        make_open_key();
        make_code_phrase();

    }


    };
}