ДеШифратор, программа, которая шифрует данные файла .txt

 String TForm1::Crypt(String Data){       //Описание функции шифровки
   String rString;                               //Возвращаемое значение
        for(int i=1;i<Data.Length()+1;i++)       //Перебираем каждый символ заданного текста
 {
  rString=rString+String(IntToHex(int(Data[i]+p),2));    //Просто метод шифрования (символ заменяется на свою позицию в таблице символов и прибавляется при этом загадочное число p, а затем все это записывается в 16 сс)
   }
  return rString;                                         //Возвращаем закодированную строку
 }
 
 
//----------Дешифровка---------------------------
 
   String TForm1::UnCrypt(String Crypt){
 
   String rString;                                  //Возвращаемое значение
 
        for(int i=1;i<Crypt.Length()+1;i+=2)               // Проходим циклом по каждому второму символу, так как во время шифрования каждому символу выделяется 2 байта
 {
  rString=rString+String( char( StrToInt("0x"+Crypt.SubString(i,2))-p )   );     //Несложная расшифровка
   }
  return rString;                                         //Возвращаем раскодированную строку
 }

TStringList* list = new TStringList;
list->LoadFromFile("путь к файлу содержимое которого требуется дешифровать");
Memo1->Text = UnCrypt(list->Text);

rString=rString+String( char( StrToInt("0x"+Crypt.SubString(i))-p ,2));