Где найти исходники алгоритма шифрования Serpent?

#include "cryptlib.h"
#include "misc.h"
#include "pch.h"

                        array<Byte>^ b = gcnew array <Byte>(128);
                   unsigned int w0,w1,w2,w3;
                  w0=0;
                  w1=0;
                  w2=0;
                  w3=0;
                  Byte sb;
                  FileStream^File1 = gcnew FileStream (textBox1->Text, FileMode::Open);
                 BinaryWriter^File1w = gcnew BinaryWriter(File1);
                 BinaryReader^File1r = gcnew BinaryReader(File1);
 
                 FileStream^File2 = gcnew FileStream (textBox1->Text+".enc", FileMode::Create);
                 BinaryWriter^File2w = gcnew BinaryWriter(File2);
                 BinaryReader^File2r = gcnew BinaryReader(File2)
                                //считывание 128 бит в массив
                                for (int i = 0; i < 16; i++)
                 {
                     sb = File1r->ReadByte();
                     b[i*8] = (Byte)(sb >> 7) & 1;
                     b[i*8+1] = (Byte)(sb >> 6) & 1;
                     b[i*8+2] = (Byte)(sb >> 5) & 1;
                     b[i*8+3] = (Byte)(sb >> 4) & 1;
                     b[i*8+4] = (Byte)(sb >> 3) & 1;
                     b[i*8+5] = (Byte)(sb >> 2) & 1;
                     b[i*8+6] = (Byte)(sb >> 1) & 1;
                     b[i*8+7] = (Byte)(sb) & 1;
 
                 }
                                  //делим на 4 блока по 32 бита
                                   for (int i = 0; i < 32; i++)
                 {
                    w0 = ((w0>>(31-i)) | b[i])<<(31-i);
                    w1 = ((w1>>(31-i)) | b[32+i])<<(31-i);
                    w2 = ((w2>>(31-i)) | b[64+i])<<(31-i);
                    w3 = ((w3>>(31-i)) | b[96+i])<<(31-i);
                 }
                               //записываем по блокам в файл
                                 File2w->Write(w0);
                 File2w->Write(w1);
                 File2w->Write(w2);
                 File2w->Write(w3);

#pragma once
#using <System.Security.dll>
 
namespace Project_1 {
 
    using namespace System;
    using namespace System::ComponentModel;
    using namespace System::Collections;
    using namespace System::Windows::Forms;
    using namespace System::Data;
    using namespace System::Drawing;
    using namespace System::IO;
    using namespace System::Security::Cryptography;
 
    /// <summary>
    /// Summary for Form1
    ///
    /// WARNING: If you change the name of this class, you will need to change the
    ///          'Resource File Name' property for the managed resource compiler tool
    ///          associated with all .resx files this class depends on.  Otherwise,
    ///          the designers will not be able to interact properly with localized
    ///          resources associated with this form.
    /// </summary>
    public ref class Form1 : public System::Windows::Forms::Form
    {
    public:
        Form1(void)
        {
            InitializeComponent();
            //
            //TODO: Add the constructor code here
            //
        }
array<Byte>^ key ;
    private: System::Windows::Forms::Button^  button3;
    public: 
    private: System::Windows::Forms::OpenFileDialog^  openFileDialog1;
    private: System::Windows::Forms::TextBox^  textBox3;
             array<Byte,2>^ keys;
    protected:
        /// <summary>
        /// Clean up any resources being used.
        /// </summary>
        ~Form1()
        {
            if (components)
            {
                delete components;
            }
        }
    private: System::Windows::Forms::Button^  button1;
    protected: 
    private: System::Windows::Forms::Button^  button2;
    private: System::Windows::Forms::TextBox^  textBox1;
    private: System::Windows::Forms::TextBox^  textBox2;
 
 
    private:
        /// <summary>
        /// Required designer variable.
        /// </summary>
        System::ComponentModel::Container ^components;
 
#pragma region Windows Form Designer generated code
        /// <summary>
        /// Required method for Designer support - do not modify
        /// the contents of this method with the code editor.
        /// </summary>
        void InitializeComponent(void)
        {
            this->button1 = (gcnew System::Windows::Forms::Button());
            this->button2 = (gcnew System::Windows::Forms::Button());
            this->textBox1 = (gcnew System::Windows::Forms::TextBox());
            this->textBox2 = (gcnew System::Windows::Forms::TextBox());
            this->button3 = (gcnew System::Windows::Forms::Button());
            this->openFileDialog1 = (gcnew System::Windows::Forms::OpenFileDialog());
            this->textBox3 = (gcnew System::Windows::Forms::TextBox());
            this->SuspendLayout();
            // 
            // button1
            // 
            this->button1->Location = System::Drawing::Point(26, 28);
            this->button1->Name = L"button1";
            this->button1->Size = System::Drawing::Size(99, 37);
            this->button1->TabIndex = 0;
            this->button1->Text = L"Зашифровать";
            this->button1->UseVisualStyleBackColor = true;
            this->button1->Click += gcnew System::EventHandler(this, &Form1::button1_Click);
            // 
            // button2
            // 
            this->button2->Location = System::Drawing::Point(328, 28);
            this->button2->Name = L"button2";
            this->button2->Size = System::Drawing::Size(99, 37);
            this->button2->TabIndex = 1;
            this->button2->Text = L"Расшифровать";
            this->button2->UseVisualStyleBackColor = true;
            this->button2->Click += gcnew System::EventHandler(this, &Form1::button2_Click);
            // 
            // textBox1
            // 
            this->textBox1->Location = System::Drawing::Point(12, 91);
            this->textBox1->Name = L"textBox1";
            this->textBox1->Size = System::Drawing::Size(512, 20);
            this->textBox1->TabIndex = 2;
            this->textBox1->Text = L"C:\\Users\\Администратор\\Desktop\\Серпентушка\\Serpent.txt";
            // 
            // textBox2
            // 
            this->textBox2->Location = System::Drawing::Point(12, 147);
            this->textBox2->Name = L"textBox2";
            this->textBox2->Size = System::Drawing::Size(512, 20);
            this->textBox2->TabIndex = 3;
            this->textBox2->Text = L"введите пароль";
            this->textBox2->Click += gcnew System::EventHandler(this, &Form1::textBox2_Click);
            // 
            // button3
            // 
            this->button3->Location = System::Drawing::Point(178, 206);
            this->button3->Name = L"button3";
            this->button3->Size = System::Drawing::Size(121, 45);
            this->button3->TabIndex = 4;
            this->button3->Text = L"Обзор файла";
            this->button3->UseVisualStyleBackColor = true;
            this->button3->Click += gcnew System::EventHandler(this, &Form1::button3_Click);
            // 
            // openFileDialog1
            // 
            this->openFileDialog1->FileName = L"openFileDialog1";
            // 
            // textBox3
            // 
            this->textBox3->Location = System::Drawing::Point(13, 122);
            this->textBox3->Name = L"textBox3";
            this->textBox3->Size = System::Drawing::Size(510, 20);
            this->textBox3->TabIndex = 5;
            // 
            // Form1
            // 
            this->AutoScaleDimensions = System::Drawing::SizeF(6, 13);
            this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;
            this->ClientSize = System::Drawing::Size(536, 280);
            this->Controls->Add(this->textBox3);
            this->Controls->Add(this->button3);
            this->Controls->Add(this->textBox2);
            this->Controls->Add(this->textBox1);
            this->Controls->Add(this->button2);
            this->Controls->Add(this->button1);
            this->Name = L"Form1";
            this->Text = L"Алгоритм шифрования Serpent";
            this->ResumeLayout(false);
            this->PerformLayout();
 
        }
#pragma endregion
    private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) 
             {   
     array<Byte>^ b = gcnew array <Byte>(128);
                     array<Byte>^ c = gcnew array <Byte>(128);
                 array<Byte>^ ip = gcnew array <Byte>(128);
                 array<Byte>^ fp = gcnew array <Byte>(128);
                   
                   unsigned int w0,w1,w2,w3;
                  w0=0;
                  w1=0;
                  w2=0;
                  w3=0;
                  Byte sb;
                     array<Byte>^ s0 = gcnew array<Byte>(16);
                       array<Byte>^ s1 = gcnew array<Byte>(16);
                   array<Byte>^ s2 = gcnew array<Byte>(16);
                   array<Byte>^ s3 = gcnew array<Byte>(16);
                   array<Byte>^ s4 = gcnew array<Byte>(16);
                   array<Byte>^ s5 = gcnew array<Byte>(16);
                   array<Byte>^ s6 = gcnew array<Byte>(16);
                   array<Byte>^ s7 = gcnew array<Byte>(16);
                   array<Byte>^ s = gcnew array<Byte>(16);
 
                    s0[0] = 3; s0[1] = 8; s0[2] = 15; s0[3] = 1; 
                 s0[4] = 10; s0[5] = 6; s0[6] = 5; s0[7] = 11;
                 s0[8] = 14; s0[9] = 13; s0[10] = 4; s0[11] = 2;
                 s0[12] = 7; s0[13] = 0; s0[14] = 9; s0[15] = 12;
 
                 s1[0] = 15; s1[1] = 12; s1[2] = 2; s1[3] = 7; 
                 s1[4] = 9; s1[5] = 0; s1[6] = 5; s1[7] = 10;
                 s1[8] = 1; s1[9] = 11; s1[10] = 14; s1[11] = 8;
                 s1[12] = 6; s1[13] = 13; s1[14] = 3; s1[15] = 4;
 
                 s2[0] = 8; s2[1] = 6; s2[2] = 7; s2[3] = 9; 
                 s2[4] = 3; s2[5] = 12; s2[6] = 10; s2[7] = 15;
                 s2[8] = 13; s2[9] = 1; s2[10] = 14; s2[11] = 4;
                 s2[12] = 0; s2[13] = 11; s2[14] = 5; s2[15] = 2;
 
                 s3[0] = 0; s3[1] = 15; s3[2] = 11; s3[3] = 8; 
                 s3[4] = 12; s3[5] = 9; s3[6] = 6; s3[7] = 3;
                 s3[8] = 13; s3[9] = 1; s3[10] = 2; s3[11] = 4;
                 s3[12] = 10; s3[13] = 7; s3[14] = 5; s3[15] = 14;
 
                 s4[0] = 1; s4[1] = 15; s4[2] = 8; s4[3] = 3; 
                 s4[4] = 12; s4[5] = 0; s4[6] = 11; s4[7] = 6;
                 s4[8] = 2; s4[9] = 5; s4[10] = 4; s4[11] = 10;
                 s4[12] = 9; s4[13] = 14; s4[14] = 7; s4[15] = 13;
 
 
                 s5[0] = 15; s5[1] = 5; s5[2] = 2; s5[3] = 11; 
                 s5[4] = 4; s5[5] = 10; s5[6] = 9; s5[7] = 12;
                 s5[8] = 0; s5[9] = 3; s5[10] = 14; s5[11] = 8;
                 s5[12] = 13; s5[13] = 6; s5[14] = 7; s5[15] = 1;
 
                  s6[0] = 7; s6[1] = 2; s6[2] = 12; s6[3] = 5; 
                 s6[4] = 8; s6[5] = 4; s6[6] = 6; s6[7] = 11;
                 s6[8] = 14; s6[9] = 9; s6[10] = 1; s6[11] = 15;
                 s6[12] = 13; s6[13] = 3; s6[14] = 10; s6[15] = 0;
 
                  s7[0] = 1; s7[1] = 13; s7[2] = 15; s7[3] = 0; 
                 s7[4] = 14; s7[5] = 8; s7[6] = 2; s7[7] = 11;
                 s7[8] = 7; s7[9] = 4; s7[10] = 12; s7[11] = 10;
                 s7[12] = 9; s7[13] = 3; s7[14] = 5; s7[15] = 6;
 
                  FileStream^File1 = gcnew FileStream (textBox1->Text, FileMode::Open);
                 BinaryWriter^File1w = gcnew BinaryWriter(File1);
                 BinaryReader^File1r = gcnew BinaryReader(File1);
 
                 FileStream^File2 = gcnew FileStream (textBox1->Text+".enc", FileMode::Create);
                 BinaryWriter^File2w = gcnew BinaryWriter(File2);
                 BinaryReader^File2r = gcnew BinaryReader(File2);
 
for (int count = 0; count < File1->Length / 16; count++)
                    
{
                 for (int i = 15; i >= 0; i--)
                 {
                     sb = File1r->ReadByte();
                     b[i*8] = (Byte)(sb >> 7) & 1;
                     b[i*8+1] = (Byte)(sb >> 6) & 1;
                     b[i*8+2] = (Byte)(sb >> 5) & 1;
                     b[i*8+3] = (Byte)(sb >> 4) & 1;
                     b[i*8+4] = (Byte)(sb >> 3) & 1;
                     b[i*8+5] = (Byte)(sb >> 2) & 1;
                     b[i*8+6] = (Byte)(sb >> 1) & 1;
                     b[i*8+7] = (Byte)(sb) & 1;
 
                 }
                 for (int i = 0; i < 32; i++)
                     for (int j = 0; j < 4; j++)
                     {
                         ip[i*4+j] = j * 32 + i;
                     }
 
                for (int i = 0; i < 4; i++)
                     for (int j = 0; j < 32; j++)
                     {
                         fp[i*32+j] = i + j * 4;
 
 
                     }
 
            array<Byte>^  keyh = gcnew array<Byte>(textBox2->Text->Length);
                 for (int i = 0; i < keyh->Length; i++)
                 {
                     keyh[i] = textBox2->Text[i];
                 }
 
                 SHA256^ hash1 = gcnew SHA256Managed;
                 array<Byte>^ result1;
                 result1  = hash1->ComputeHash(keyh);
                Byte hash_byte;
               key = gcnew array <Byte>(128);
                  for (int i = 15; i >= 0; i--)
                 {
                      hash_byte = result1[i];
                     key[i*8] = (Byte)( hash_byte >> 7) & 1;
                     key[i*8+1] = (Byte)( hash_byte >> 6) & 1;
                     key[i*8+2] = (Byte)( hash_byte >> 5) & 1;
                     key[i*8+3] = (Byte)( hash_byte >> 4) & 1;
                     key[i*8+4] = (Byte)( hash_byte >> 3) & 1;
                     key[i*8+5] = (Byte)( hash_byte >> 2) & 1;
                     key[i*8+6] = (Byte)( hash_byte >> 1) & 1;
                     key[i*8+7] = (Byte)( hash_byte) & 1;
 
                 }
                  keys= gcnew array<Byte,2>(33,128);
                    w0 = 0;
                 w1 = 0;
                 w2 = 0;
                 w3 = 0;
                   for (int i = 0; i < 32; i++)
                 {
                    w3 = ((w3>>(31-i)) | key[i])<<(31-i);
                    w2 = ((w2>>(31-i)) | key[32+i])<<(31-i);
                    w1 = ((w1>>(31-i)) | key[64+i])<<(31-i);
                    w0 = ((w0>>(31-i)) | key[96+i])<<(31-i);
                 }
 
                    for(int g=0;g<33;g++)
              {
                 
                  w0 = ((w0 ^ w1 ^ w2 ^ w3)<<11) |((w0 ^ w1 ^ w2 ^ w3)>>32-11);
                   w1 = ((w0 ^ w1 ^ w2 ^ w3)<<11) |((w0 ^ w1 ^ w2 ^ w3)>>32-11);
                    w2 = ((w0 ^ w1 ^ w2 ^ w3)<<11) |((w0 ^ w1 ^ w2 ^ w3)>>32-11);
                     w3 = ((w0 ^ w1 ^ w2 ^ w3)<<11) |((w0 ^ w1 ^ w2 ^ w3)>>32-11);
 
                 for (int i = 0; i < 32; i++)
                {
                     keys[g,i] = (w3 >> (31-i)) & 1;
                     keys[g,32+i] = (w2 >> (31-i)) & 1;
                     keys[g,64+i] = (w1 >> (31-i)) & 1;
                     keys[g,96+i] = (w0 >> (31-i)) & 1;
 
                 }
                              
                
              }
 
 
               
                
 
 
 
                     for (int i = 0; i < 128; i++)
                 {
                     c[i] = b[ip[i]];
                 }
 
 
for (int rd = 0; rd < 31; rd++)
                {
 
                    if ((rd % 8)==0) {for (int i=0;i<16;i++) {s[i]=s0[i];}}
                    else
                        if ((rd % 8)==1) {for (int i=0;i<16;i++) {s[i]=s1[i];}}
                        else
                            if ((rd % 8)==2) {for (int i=0;i<16;i++) {s[i]=s2[i];}}
                            else
                                if ((rd % 8)==3) {for (int i=0;i<16;i++) {s[i]=s3[i];}}
                                else
                                    if ((rd % 8)==4) {for (int i=0;i<16;i++) {s[i]=s4[i];}}
                                    else
                                        if ((rd % 8)==5) {for (int i=0;i<16;i++) {s[i]=s5[i];}}
                                        else
                                            if ((rd % 8)==6) {for (int i=0;i<16;i++) {s[i]=s6[i];}}
                                            else
                                                if ((rd % 8)==7) {for (int i=0;i<16;i++) {s[i]=s7[i];}}
 
 
 
 
 
 
 
 
 
                for (int i = 0; i < 128; i++)
                 {
                     c[i] = c[i] ^ keys[rd,i];
                 }
 
                   sb = 0;
 
                 for (int i = 0; i < 16; i++)
                {
                     sb = (Byte)(((sb>>7 | c[i*8])<<7) | ((sb>>6 | c[i*8+1])<<6) | ((sb>>5 | c[i*8+2])<<5)
                          | ((sb>>4 | c[i*8+3])<<4) | ((sb>>3 | c[i*8+4])<<3) | ((sb>>2 | c[i*8+5])<<2)
                          | ((sb>>1 | c[i*8+6])<<1) | ((sb | c[i*8+7])));
                    // MessageBox::Show(Convert::ToString(sb));
                     
                     sb = (Byte)s[sb>>4 & 15]<<4 | s[sb & 15];
 
                    c[i*8] = (Byte)(sb >> 7) & 1;
                     c[i*8+1] = (Byte)(sb >> 6) & 1;
                     c[i*8+2] = (Byte)(sb >> 5) & 1;
                     c[i*8+3] = (Byte)(sb >> 4) & 1;
                     c[i*8+4] = (Byte)(sb >> 3) & 1;
                     c[i*8+5] = (Byte)(sb >> 2) & 1;
                     c[i*8+6] = (Byte)(sb >> 1) & 1;
                     c[i*8+7] = (Byte)(sb) & 1;
 
                     sb = 0; 
 
                 }
 
 
                 w0 = 0;
                 w1 = 0;
                 w2 = 0;
                 w3 = 0;
                 for (int i = 0; i < 32; i++)
                 {
                    w3 = ((w3>>(31-i)) | c[i])<<(31-i);
                    w2 = ((w2>>(31-i)) | c[32+i])<<(31-i);
                    w1 = ((w1>>(31-i)) | c[64+i])<<(31-i);
                    w0 = ((w0>>(31-i)) | c[96+i])<<(31-i);
                 }
                 w0 = (w0 << 13) | (w0 >> (32-13));
                 w2 = (w2 << 3) | (w2 >> (32-3));
                 w1 = w1 ^ w0 ^ w2;
                 w3 = w3 ^ w2 ^ (w0 << 3);
                 w1 = (w1 << 1) | (w1 >> (32-1));
                 w3 = (w3 << 7) | (w3 >> (32-7));
                 w0 = w0 ^ w1 ^ w3;
                 w2 = w2 ^ w3 ^ (w1 << 7);
                 w0 = (w0 << 5) | (w0 >> (32-5));
                 w2 = (w2 << 22) | (w2 >> (32-22));
 
 
 
                  for (int i = 0; i < 32; i++)
                {
                     c[i] = (w3 >> (31-i)) & 1;
                     c[32+i] = (w2 >> (31-i)) & 1;
                     c[64+i] = (w1 >> (31-i)) & 1;
                     c[96+i] = (w0 >> (31-i)) & 1;
 
                 }
                    }//end of rounds
                //round 31
  for (int i = 0; i < 128; i++)
                 {
                     c[i] = c[i] ^ keys[31,i];
                 }
 
                   sb = 0;
 
                 for (int i = 0; i < 16; i++)
                {
                     sb = (Byte)(((sb>>7 | c[i*8])<<7) | ((sb>>6 | c[i*8+1])<<6) | ((sb>>5 | c[i*8+2])<<5)
                          | ((sb>>4 | c[i*8+3])<<4) | ((sb>>3 | c[i*8+4])<<3) | ((sb>>2 | c[i*8+5])<<2)
                          | ((sb>>1 | c[i*8+6])<<1) | ((sb | c[i*8+7])));
                    // MessageBox::Show(Convert::ToString(sb));
                     
                     sb = (Byte)s7[sb>>4 & 15]<<4 | s7[sb & 15];
 
                    c[i*8] = (Byte)(sb >> 7) & 1;
                     c[i*8+1] = (Byte)(sb >> 6) & 1;
                     c[i*8+2] = (Byte)(sb >> 5) & 1;
                     c[i*8+3] = (Byte)(sb >> 4) & 1;
                     c[i*8+4] = (Byte)(sb >> 3) & 1;
                     c[i*8+5] = (Byte)(sb >> 2) & 1;
                     c[i*8+6] = (Byte)(sb >> 1) & 1;
                     c[i*8+7] = (Byte)(sb) & 1;
 
                     sb = 0; 
 
                 }
 
 for (int i = 0; i < 128; i++)
                 {
                     c[i] = c[i] ^ keys[32,i];
                 }
 
                      for (int i = 0; i < 128; i++)
                 {
                     b[i] = c[fp[i]];
                     
                 }
 
                 w0 = 0;
                 w1 = 0;
                 w2 = 0;
                 w3 = 0;
                 for (int i = 0; i < 32; i++)
                 {
                    w3 = ((w3>>(31-i)) | b[i])<<(31-i);
                    w2 = ((w2>>(31-i)) | b[32+i])<<(31-i);
                    w1 = ((w1>>(31-i)) | b[64+i])<<(31-i);
                    w0 = ((w0>>(31-i)) | b[96+i])<<(31-i);
                 }
        
            
                 File2w->Write(w0);
                 File2w->Write(w1);
                 File2w->Write(w2);
                 File2w->Write(w3);
}
          if (File1->Length % 16 != 0)
                     for (int i = 0; i < File1->Length % 16; i++)
                     {
                         File2w->Write(File1r->ReadByte());
                     }
                 File1->Close();
                 File2->Close();
            
 
 
             }
 
    private: System::Void button2_Click(System::Object^  sender, System::EventArgs^  e) 
             {
                 array<Byte>^ b = gcnew array <Byte>(128);
                     array<Byte>^ c = gcnew array <Byte>(128);
                 array<Byte>^ ip = gcnew array <Byte>(128);
                 array<Byte>^ fp = gcnew array <Byte>(128);
                
                   unsigned int w0,w1,w2,w3;
                  w0=0;
                  w1=0;
                  w2=0;
                  w3=0;
                  Byte sb;
                   array<Byte>^ s0 = gcnew array<Byte>(16);
                   array<Byte>^ s1 = gcnew array<Byte>(16);
                   array<Byte>^ s2 = gcnew array<Byte>(16);
                   array<Byte>^ s3 = gcnew array<Byte>(16);
                   array<Byte>^ s4 = gcnew array<Byte>(16);
                   array<Byte>^ s5 = gcnew array<Byte>(16);
                   array<Byte>^ s6 = gcnew array<Byte>(16);
                   array<Byte>^ s7 = gcnew array<Byte>(16);
                    array<Byte>^ s = gcnew array<Byte>(16);
 
                   s0[3] = 0; s0[8] = 1; s0[15] = 2; s0[1] = 3; 
                 s0[10] = 4; s0[6] = 5; s0[5] = 6; s0[11] = 7;
                 s0[14] = 8; s0[13] = 9; s0[4] = 10; s0[2] = 11;
                 s0[7] = 12; s0[0] = 13; s0[9] = 14; s0[12] = 15;
 
                 s1[15] = 0; s1[12] = 1; s1[2] = 2; s1[7] = 3; 
                 s1[9] = 4; s1[0] = 5; s1[5] = 6; s1[10] = 7;
                 s1[1] = 8; s1[11] = 9; s1[14] = 10; s1[8] = 11;
                 s1[6] = 12; s1[13] = 13; s1[3] = 14; s1[4] = 15;
 
                 s2[8] = 0; s2[6] = 1; s2[7] = 2; s2[9] = 3; 
                 s2[3] = 4; s2[12] = 5; s2[10] = 6; s2[15] = 7;
                 s2[13] = 8; s2[1] = 9; s2[14] = 10; s2[4] = 11;
                 s2[0] = 12; s2[11] = 13; s2[5] = 14; s2[2] = 15;
 
                 s3[0] = 0; s3[15] = 1; s3[11] = 2; s3[8] = 3; 
                 s3[12] = 4; s3[9] = 5; s3[6] = 6; s3[3] = 7;
                 s3[13] = 8; s3[1] = 9; s3[2] = 10; s3[4] = 11;
                 s3[10] = 12; s3[7] = 13; s3[5] = 14; s3[14] = 15;
 
                 s4[1] = 0; s4[15] = 1; s4[8] = 2; s4[3] = 3; 
                 s4[12] = 4; s4[0] = 5; s4[11] = 6; s4[6] = 7;
                 s4[2] = 8; s4[5] = 9; s4[4] = 10; s4[10] = 11;
                 s4[9] = 12; s4[14] = 13; s4[7] = 14; s4[13] = 15;
 
 
                 s5[15] = 0; s5[5] = 1; s5[2] = 2; s5[11] = 3; 
                 s5[4] = 4; s5[10] = 5; s5[9] = 6; s5[12] = 7;
                 s5[0] = 8; s5[3] = 9; s5[14] = 10; s5[8] = 11;
                 s5[13] = 12; s5[6] = 13; s5[7] = 14; s5[1] = 15;
 
                  s6[7] = 0; s6[2] = 1; s6[12] = 2; s6[5] = 3; 
                 s6[8] = 4; s6[4] = 5; s6[6] = 6; s6[11] = 7;
                 s6[14] = 8; s6[9] = 9; s6[1] = 10; s6[15] = 11;
                 s6[13] = 12; s6[3] = 13; s6[10] = 14; s6[0] = 15;
 
                  s7[1] = 0; s7[13] = 1; s7[15] = 2; s7[0] = 3; 
                 s7[14] = 4; s7[8] = 5; s7[2] = 6; s7[11] = 7;
                 s7[7] = 8; s7[4] = 9; s7[12] = 10; s7[10] = 11;
                 s7[9] = 12; s7[3] = 13; s7[5] = 14; s7[6] = 15;
 
                  FileStream^File1 = gcnew FileStream (textBox1->Text+".enc", FileMode::Open);
                 BinaryWriter^File1w = gcnew BinaryWriter(File1);
                 BinaryReader^File1r = gcnew BinaryReader(File1);
 
                 FileStream^File2 = gcnew FileStream (textBox1->Text+".txt", FileMode::Create);
                 BinaryWriter^File2w = gcnew BinaryWriter(File2);
                 BinaryReader^File2r = gcnew BinaryReader(File2);
 
 
  array<Byte>^  keyh = gcnew array<Byte>(textBox2->Text->Length);
                 for (int i = 0; i < keyh->Length; i++)
                 {
                     keyh[i] = textBox2->Text[i];
                 }
 
                 SHA256^ hash1 = gcnew SHA256Managed;
                 array<Byte>^ result1;
                 result1  = hash1->ComputeHash(keyh);
                Byte hash_byte;
               key = gcnew array <Byte>(128);
                  for (int i = 15; i >= 0; i--)
                 {
                      hash_byte = result1[i];
                     key[i*8] = (Byte)( hash_byte >> 7) & 1;
                     key[i*8+1] = (Byte)( hash_byte >> 6) & 1;
                     key[i*8+2] = (Byte)( hash_byte >> 5) & 1;
                     key[i*8+3] = (Byte)( hash_byte >> 4) & 1;
                     key[i*8+4] = (Byte)( hash_byte >> 3) & 1;
                     key[i*8+5] = (Byte)( hash_byte >> 2) & 1;
                     key[i*8+6] = (Byte)( hash_byte >> 1) & 1;
                     key[i*8+7] = (Byte)( hash_byte) & 1;
 
                 }
 
                  keys= gcnew array<Byte,2>(33,128);
                    w0 = 0;
                 w1 = 0;
                 w2 = 0;
                 w3 = 0;
                   for (int i = 0; i < 32; i++)
                 {
                    w3 = ((w3>>(31-i)) | key[i])<<(31-i);
                    w2 = ((w2>>(31-i)) | key[32+i])<<(31-i);
                    w1 = ((w1>>(31-i)) | key[64+i])<<(31-i);
                    w0 = ((w0>>(31-i)) | key[96+i])<<(31-i);
                 }
 
                    for(int g=0;g<33;g++)
              {
                 
                  w0 = ((w0 ^ w1 ^ w2 ^ w3)<<11) |((w0 ^ w1 ^ w2 ^ w3)>>32-11);
                   w1 = ((w0 ^ w1 ^ w2 ^ w3)<<11) |((w0 ^ w1 ^ w2 ^ w3)>>32-11);
                    w2 = ((w0 ^ w1 ^ w2 ^ w3)<<11) |((w0 ^ w1 ^ w2 ^ w3)>>32-11);
                     w3 = ((w0 ^ w1 ^ w2 ^ w3)<<11) |((w0 ^ w1 ^ w2 ^ w3)>>32-11);
 
                 for (int i = 0; i < 32; i++)
                {
                     keys[g,i] = (w3 >> (31-i)) & 1;
                     keys[g,32+i] = (w2 >> (31-i)) & 1;
                     keys[g,64+i] = (w1 >> (31-i)) & 1;
                     keys[g,96+i] = (w0 >> (31-i)) & 1;
 
                 }
                              
                
              }
 
 
for (int count = 0; count < File1->Length / 16; count++)
                    
{
//записываем блок в массив b
                 for (int i = 15; i >= 0; i--)
                 {
                     sb = File1r->ReadByte();
                     b[i*8] = (Byte)(sb >> 7) & 1;
                     b[i*8+1] = (Byte)(sb >> 6) & 1;
                     b[i*8+2] = (Byte)(sb >> 5) & 1;
                     b[i*8+3] = (Byte)(sb >> 4) & 1;
                     b[i*8+4] = (Byte)(sb >> 3) & 1;
                     b[i*8+5] = (Byte)(sb >> 2) & 1;
                     b[i*8+6] = (Byte)(sb >> 1) & 1;
                     b[i*8+7] = (Byte)(sb) & 1;
 
                 }
                 for (int i = 0; i < 32; i++)
                     for (int j = 0; j < 4; j++)
                     {
                         ip[i*4+j] = j * 32 + i;
                     }
 
                
 
                for (int i = 0; i < 4; i++)
                     for (int j = 0; j < 32; j++)
                     {
                         fp[i*32+j] = i + j * 4;
                     }
                //данные хранятся в  c
                     for (int i = 0; i < 128; i++)
                 {
                     c[i] = b[ip[i]];
                 }
 
                //round 31
  for (int i = 0; i < 128; i++)
                 {
                     c[i] = c[i] ^ keys[32,i];
                 }
 
                   sb = 0;
 
                 for (int i = 0; i < 16; i++)
                {
                     sb = (Byte)(((sb>>7 | c[i*8])<<7) | ((sb>>6 | c[i*8+1])<<6) | ((sb>>5 | c[i*8+2])<<5)
                          | ((sb>>4 | c[i*8+3])<<4) | ((sb>>3 | c[i*8+4])<<3) | ((sb>>2 | c[i*8+5])<<2)
                          | ((sb>>1 | c[i*8+6])<<1) | ((sb | c[i*8+7])));
                    // MessageBox::Show(Convert::ToString(sb));
                     
                     sb = (Byte)s7[sb>>4 & 15]<<4 | s7[sb & 15];
 
                    c[i*8] = (Byte)(sb >> 7) & 1;
                     c[i*8+1] = (Byte)(sb >> 6) & 1;
                     c[i*8+2] = (Byte)(sb >> 5) & 1;
                     c[i*8+3] = (Byte)(sb >> 4) & 1;
                     c[i*8+4] = (Byte)(sb >> 3) & 1;
                     c[i*8+5] = (Byte)(sb >> 2) & 1;
                     c[i*8+6] = (Byte)(sb >> 1) & 1;
                     c[i*8+7] = (Byte)(sb) & 1;
 
                     sb = 0; 
 
                 }
 
 for (int i = 0; i < 128; i++)
                 {
                     c[i] = c[i] ^ keys[31,i];
                 }
 
 
 
for (int rd = 30; rd >=0; rd--)
                {
 
                    if ((rd % 8)==0) {for (int i=0;i<16;i++) {s[i]=s0[i];}}
                    else
                        if ((rd % 8)==1) {for (int i=0;i<16;i++) {s[i]=s1[i];}}
                        else
                            if ((rd % 8)==2) {for (int i=0;i<16;i++) {s[i]=s2[i];}}
                            else
                                if ((rd % 8)==3) {for (int i=0;i<16;i++) {s[i]=s3[i];}}
                                else
                                    if ((rd % 8)==4) {for (int i=0;i<16;i++) {s[i]=s4[i];}}
                                    else
                                        if ((rd % 8)==5) {for (int i=0;i<16;i++) {s[i]=s5[i];}}
                                        else
                                            if ((rd % 8)==6) {for (int i=0;i<16;i++) {s[i]=s6[i];}}
                                            else
                                                if ((rd % 8)==7) {for (int i=0;i<16;i++) {s[i]=s7[i];}}
 
 
 w0 = 0;
                 w1 = 0;
                 w2 = 0;
                 w3 = 0;
                 for (int i = 0; i < 32; i++)
                 {
                    w3 = ((w3>>(31-i)) | c[i])<<(31-i);
                    w2 = ((w2>>(31-i)) | c[32+i])<<(31-i);
                    w1 = ((w1>>(31-i)) | c[64+i])<<(31-i);
                    w0 = ((w0>>(31-i)) | c[96+i])<<(31-i);
                 }
                  w2 = (w2 >> 22) | (w2 << (32-22));
                  w0 = (w0 >> 5) | (w0 << (32-5));
                  w2 = w2 ^ w3 ^ (w1 << 7);
                  w0 = w0 ^ w1 ^ w3;
                  w3 = (w3 >> 7) | (w3 << (32-7));
                  w1 = (w1 >> 1) | (w1 << (32-1));
                  w3 = w3 ^ w2 ^ (w0 << 3);
                  w1 = w1 ^ w0 ^ w2;
                  w2 = (w2 >> 3) | (w2 << (32-3));
                  w0 = (w0 >> 13) | (w0 << (32-13));
 
 for (int i = 0; i < 32; i++)
                {
                     c[i] = (w3 >> (31-i)) & 1;
                     c[32+i] = (w2 >> (31-i)) & 1;
                     c[64+i] = (w1 >> (31-i)) & 1;
                     c[96+i] = (w0 >> (31-i)) & 1;
 
                 }
 
                      sb = 0;
 
                 for (int i = 0; i < 16; i++)
                {
                     sb = (Byte)(((sb>>7 | c[i*8])<<7) | ((sb>>6 | c[i*8+1])<<6) | ((sb>>5 | c[i*8+2])<<5)
                          | ((sb>>4 | c[i*8+3])<<4) | ((sb>>3 | c[i*8+4])<<3) | ((sb>>2 | c[i*8+5])<<2)
                          | ((sb>>1 | c[i*8+6])<<1) | ((sb | c[i*8+7])));
                    // MessageBox::Show(Convert::ToString(sb));
                     
                     sb = (Byte)s[sb>>4 & 15]<<4 | s[sb & 15];
 
                    c[i*8] = (Byte)(sb >> 7) & 1;
                     c[i*8+1] = (Byte)(sb >> 6) & 1;
                     c[i*8+2] = (Byte)(sb >> 5) & 1;
                     c[i*8+3] = (Byte)(sb >> 4) & 1;
                     c[i*8+4] = (Byte)(sb >> 3) & 1;
                     c[i*8+5] = (Byte)(sb >> 2) & 1;
                     c[i*8+6] = (Byte)(sb >> 1) & 1;
                     c[i*8+7] = (Byte)(sb) & 1;
 
                     sb = 0; 
 
                 }
                 for (int i = 0; i < 128; i++)
                 {
                     c[i] = c[i] ^ keys[rd,i];
                 }
}//end of rounds
 
 
 
                      for (int i = 0; i < 128; i++)
                 {
                     b[i] = c[fp[i]];
                     
                 }
 
                 w0 = 0;
                 w1 = 0;
                 w2 = 0;
                 w3 = 0;
                 for (int i = 0; i < 32; i++)
                 {
                    w3 = ((w3>>(31-i)) | b[i])<<(31-i);
                    w2 = ((w2>>(31-i)) | b[32+i])<<(31-i);
                    w1 = ((w1>>(31-i)) | b[64+i])<<(31-i);
                    w0 = ((w0>>(31-i)) | b[96+i])<<(31-i);
                 }
        
            
                 File2w->Write(w0);
                 File2w->Write(w1);
                 File2w->Write(w2);
                 File2w->Write(w3);
}
if (File1->Length % 16 != 0)
                     for (int i = 0; i < File1->Length % 16; i++)
                     {
                         File2w->Write(File1r->ReadByte());
                     }
                 File1->Close();
                 File2->Close();
             }
private: System::Void textBox2_Click(System::Object^  sender, System::EventArgs^  e) 
         {
             this->textBox2->Text="";
         }
private: System::Void button3_Click(System::Object^  sender, System::EventArgs^  e) 
         {
             
             if (openFileDialog1->ShowDialog()==System::Windows::Forms::DialogResult::OK)
             {
                 textBox1->Text = Convert::ToString(openFileDialog1->FileName);
                 textBox3->Text = textBox1->Text + ".enc";
             }
         }
};
}