Где в коде шифрования находится перевод в обычное число?

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <stdio.h>
#include <windows.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
int err = 0;
 
 
#ifndef GOST
#define GOST
typedef unsigned __int64 int64;
typedef unsigned __int32 int32;
typedef unsigned char byte;
int32 K[8]=
{
 0x00000000,
 0x00000000,
 0x00000000,
 0x00000000,
 0x00000000,
 0x00000000,
 0x00000000,
 0x00000000
};
byte Sb[8][16]=
{
 {4,10,9,2,13,8,0,14,6,11,1,12,7,15,5,3},
 {14,11,4,12,6,13,15,10,2,3,8,1,0,7,5,9},
 {5,8,1,13,10,3,4,2,14,15,12,7,6,0,9,11},
 {7,13,10,1,0,8,9,15,14,4,6,12,11,2,5,3},
 {6,12,7,1,5,15,13,8,4,10,9,14,0,3,11,2},
 {4,11,10,0,7,2,1,13,3,6,8,5,9,12,15,14},
 {13,11,4,1,3,15,5,9,0,10,14,7,6,8,2,12},
 {1,15,13,0,5,7,10,4,9,2,3,14,6,11,8,12},
};
#endif
 
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
Memo1->Text = "";
Memo2->Text = "";
Memo3->Text = "";
}
//---------------------------------------------------------------------------
int64 GostGamm(int64 block, int64 Y, int64 Z)
  {
   // Режим гамирования.
   // Данный режим добавляет еще несколько регистров
   // и констант.
   Y=(Y+C)%0x1000000000;
   Z=(Z+C)%0xFFFFFFFF;
   block^=GostCode((Z<<32)+Y);
   return block;
  }
//---------------------------------------------------------------------------
int32 f(int32 R)
  {
  // Замена по таблице.
   int32 buf=0;
   for(byte j=0;j<8;j++)
    {
     buf<<=4;
     buf|=Sb[j][R>>28];
     R<<=4;
    }
    return (buf<<11)|(buf>>21);// циклический сдвиг на 11
  }
//---------------------------------------------------------------------------
int64 GostCode(int64 block)
{
   byte j;
   // Разделяем блок на две половины
   int64 A,B,Ai, tmp;
   A=int32(block); // младшая
   B=block>>32;    // старшая
   // Далее идет само шифрование т.к. для последнего цикла идет другая
   // последовательность ключей то разделим на два цикла.
   for(j=1;j<=24;j++)
   {
    // Само шифрование.
    tmp = A+K[(j-1)%8];
    if( tmp > 0x1000000000)
        tmp = tmp - 0x1000000000;
    Ai=B^f(tmp);
    // Здесь функция f() - это функция подстановки по таблице.
       B=A;  // Обмениваем младшую и старшую половины.
       A=Ai;
   }
   for(j=25;j<=31;j++)
   {
   // В принципе почти тоже самое только берется другая последовательность
   // ключей.
    tmp = A+K[32-j];
    if( tmp > 0x1000000000)
        tmp = tmp - 0x1000000000;
    Ai=B^f(tmp);
    B=A;
    A=Ai;
   }
   B=B^f(A+K[0]);// Последний шаг.
   return (B<<32)|A; // Возвращаем зашифрованный блок.
}
//---------------------------------------------------------------------------
int64 GostDecode(int64 block)
{
   byte j;
   int64 A,B,Ai, tmp;
   A=int32(block);
   B=block>>32;
   for(j=1;j<=8;j++)
   {
    tmp = A+K[j-1];
    if( tmp > 0x1000000000)
        tmp = tmp - 0x1000000000;
    Ai=B^f(tmp);
    B=A;
    A=Ai;
   }
   for(j=9;j<=31;j++)
   {
    tmp = A+K[(32-j)%8];
    if( tmp > 0x1000000000)
        tmp = tmp - 0x1000000000;
    Ai=B^f(tmp);
    B=A;
    A=Ai;
   }
   B=B^f(A+K[0]);
   block=(B<<32)|A;
   return block;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
       Memo1->Lines->LoadFromFile("D:\\mzi1.txt");
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo2->Text = "";
 
if(Edit1->Text != "")
{
 
        int64 block;
        AnsiString tmp = "";
        FILE *in,*out;
        int fsize, count;
        int p = 0, j = 1;
 
 
        if(Edit1->Text.Length() >= 8)
            p = 8;
        else
            p = Edit1->Text.Length();
 
        for(int i = 0; i < p; i++)
        {
            K[i] = int(Edit1->Text[i+1]);
        }
 
        in=fopen("D:\\mzi1.txt","rb");
        out=fopen("D:\\mzi2.txt","wb");
        WIN32_FIND_DATA fpar;
        HANDLE fp=FindFirstFile("D:\\mzi1.txt",&fpar);
        //FindClose(fp);
        fsize=fpar.nFileSizeLow;
        while(fsize>0)
        {
            block=0;
            count=fread(&block,sizeof(int64),1,in);
            block=GostCode(block);
            fwrite(&block,sizeof(int64),1,out);
            fsize-=8;
        }
        fclose(in);
        fclose(out);
        Memo2->Lines->LoadFromFile("D:\\mzi2.txt");
    }
    else
        MessageDlg("Не введен ключ!\n",mtError, TMsgDlgButtons() << mbOK, 1);
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Memo3->Text = "";
 
    if(Edit2->Text != "")
    {
 
    if(Edit2->Text != Edit1->Text)
        err = err+1;
    if(err && Edit2->Text != Edit1->Text)
    {
        MessageDlg("Ключ неверный! Осталось попыток: " + String(3 - err) + "\n",mtWarning, TMsgDlgButtons() << mbOK, 1);
    }
    if(err == 3)
    {       MessageDlg("В течении 3х попыток ключ был введен неверено, приложение будет закрыто!\n",mtWarning, TMsgDlgButtons() << mbOK, 1);
        Close();
    }
        int64 block;
        AnsiString tmp;
        FILE *in,*out;
        int fsize, count;
            int p = 0, j = 1;
 
 
        if(Edit2->Text.Length() >= 8)
            p = 8;
        else
            p = Edit2->Text.Length();
 
 
        for(int i = 0; i < 7; i++)
        {
            K[i] = 0;
        }
 
        for(int i = 0; i < p; i++)
        {
            K[i] = int(Edit2->Text[i+1]);
        }
 
        in=fopen("D:\\mzi2.txt","rb");
        out=fopen("D:\\mzi3.txt","wb");
        WIN32_FIND_DATA fpar;
        HANDLE fp=FindFirstFile("D:\\mzi2.txt",&fpar);
        //FindClose(fp);
        fsize=fpar.nFileSizeLow;
        while(fsize>0)
        {
            block=0;
            count=fread(&block,sizeof(int64),1,in);
            block=GostDecode(block);
            fwrite(&block,sizeof(int64),1,out);
            fsize-=8;
        }
        fclose(in);
        fclose(out);
        Memo3->Lines->LoadFromFile("D:\\mzi3.txt");
 
    }
    else
        MessageDlg("Не введен ключ!\n",mtError, TMsgDlgButtons() << mbOK, 1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
int64 block,Y,Z,tmpIm;
FILE *in,*out,*pwf,*Imm;
int fsize;
int32 pw;
  if((pwf=fopen("password.txt","rb"))==NULL)
   ShowMessage("password file not found");
   else
   {
    for(int i=0;i<8;i++)
     {
      fread(&pw,sizeof(int32),1,pwf);
      K[i]=pw;
     }
    fclose(pwf);
     // Различие только сдесь:
      Y=0;
      Z=0;
      S=GostCode(S);
      Y=int32(S);
      Z=S>>32;
      c=0;
    if (RadioGroup2->ItemIndex==0) c=1;
    if (RadioGroup2->ItemIndex==1) c=2;
 
    if((in=fopen("in.txt","rb"))==NULL)
     ShowMessage("in file not found");
    else
     {
      out=fopen("out.txt","wb");
        WIN32_FIND_DATA fpar;
        HANDLE fp=FindFirstFile("in.txt",&fpar);
        FindClose(fp);
        fsize=fpar.nFileSizeLow;
      int count;
      while(fsize>0)
        {
         block=0;
         count=fread(&block,sizeof(int64),1,in);
         block=GostGamm(block,Y,Z);
         fwrite(&block,sizeof(int64),1,out);
         fsize-=8;
        }
      if(c==1)
       {
        Imm=fopen("immit.txt","wb");
        fwrite(&Im,sizeof(int64),1,Imm);
        fclose(Imm);
       }
      if(c==2)
       {
        Imm=fopen("immit.txt","rb");
        fread(&tmpIm,sizeof(int64),1,Imm);
        if(Im!=tmpIm) ShowMessage("Coded file corupt");
        fclose(Imm);
       }
      fclose(in);
      fclose(out);
      ShowMessage(" ");
     }
   }
}
//---------------------------------------------------------------------------