Стеганография в BMP. Полное руководство

Graphics::TBitmap *Bmp; // переменная для хранения BMP изображения
 
bool ERR_OPEN_BMP = true;  // переменные для отслеживания ошибок
bool ERR_OPEN_KEY = true;
bool ERR_NO_TEXT = true;
bool ERR_TEXT_LENGTH = false;
 
unsigned int IMAGE_SIZE = 0; // дополнительные переменные
unsigned int TEXT_SIZE = 0;
unsigned int MAX_TEXT_SIZE = 0;

TPoint GetPosition(TPoint Point, int Shag, int Width)
/* Функция оперделяет следующую координату пиксела, который будет кодироваться
   TPoint Point - предыдущая координата
   Shag - шаг кодирования
   Width - ширина Битмапа
*/
{  TPoint REZ;
   REZ.y += Point.y;
 
int BUF = Width - Point.x - Shag;
 
if (BUF <= 0) {
                REZ.y++;  BUF = abs(BUF);
                while (BUF >= Width)
                {BUF -= Width; REZ.y++;}
              }
              else BUF = REZ.x + Width - BUF;
REZ.x = BUF;
 
return REZ;
}

BYTE BinaryToByte (int *mass)
/* Собирает из массива битов один целый байт и возвращает его.
   Входной параметр: массив из восьми элементов, соответсвтующих
   битам Байта
*/
{
            BYTE Mask   = 00000001;
            BYTE Result = 00000000;
            BYTE Mask2;
 
            int j = 0;
            for (int i = 7; i > -1; i--, j++)
            {
              if (mass[i] == 1)  {Mask2 = (Mask << (j));
                                  Result = Result|Mask2;
                                  }
            }
            return Result;
}

int GetBitValue(BYTE B, int N)
/* Получает значение N-ого бита в байте B
   Возвращает 1 или 0 (в зависимости от значения Бита)
*/
{ int k = 256;
 
      for (int i = 0; i < N; i++) k /= 2;
 
      if ((B & k) != 0) return 1;
      else return 0;
}

BYTE ReadBitToByte (int Bit, BYTE B)
/* Записывает в байт B на последнюю позицию бит Bit
*/
{
     BYTE A = 00000001;
     BYTE Result = B;
 
     if (Bit == GetBitValue(B,8)) return B;
        else if (Bit == 1) return Result = Result|A;
             else if (Bit == 0) return B - A;
 
             return NULL;
}

int BinaryToDec (BYTE val)
/* Переводит Байт из двоичной системы в десятичную
*/
{   int Result = 0;
 
    for (int t = 1, i = 0; t < 129; t *= 2, i++)
            {
                if ((val & t) != 0) Result += pow(2,i);
            }
 return Result;
}

int *ByteToBinary (BYTE val)
/* Разбивает исходный Байт на биты. Возвращает массив из восьми элементов
   Каждый Nй элемент соответствует Nму биту.
   Принимает значения 1 или 0
*/
{           int *mass = new int[8];
            int t, i;
            for (t = 128, i = 0; t > 0; t /= 2, i++)
            {
                if ((val & t) != 0) mass[i] = 1;
                else if ((val & t) == 0) mass[i] = 0;
            }
  return mass;
}

Bmp = new Graphics::TBitmap;
    Bmp->LoadFromFile(FileName); // копируем изображение в Bmp
    Bmp->PixelFormat = pf24bit; // устанавливаем глубину цвета в 24 bit (стандарт без Альфа канала)
 
IMAGE_SIZE = WIDTH*HEIGHT;
MAX_TEXT_SIZE = IMAGE_SIZE/8;

TEXT_SIZE = RichEdit1->Text.Length();
 
if (TEXT_SIZE != 0) ERR_NO_TEXT = false;
  else ERR_NO_TEXT = true;
 
if (TEXT_SIZE > MAX_TEXT_SIZE)
    {
       ERR_TEXT_LENGTH = true;
       Label9->Font->Color = clRed;
       Label12->Font->Color = clRed;
    }
    else
       {
         ERR_TEXT_LENGTH = false;
         Label9->Font->Color = clWhite;
         Label12->Font->Color = clWhite;
       }

int Shag = MAX_TEXT_SIZE/TEXT_SIZE;
char *String = new char[RichEdit1->Text.Length()+1];// создаем переменную для хранения кодируемого текста
strcpy(String,RichEdit1->Text.c_str()); // копируем в нее кодируемый текст
 
 TPoint Next;    // позиция следующего кодируемого пиксела
 TPoint First;   // позиция кодированного пиксела
 BYTE TextByte;  // переменная для хранения символа
 
//---------------- ШИФРУЕМ СООБЩЕНИЕ -----------------//
 for (int i = 0; i < TEXT_SIZE; i++)  // перебор символов
    {
         TextByte = String[i]; // загоняем очередной символ
 
         for (int j = 0; j < 8; j++) // перебор битов символа
            {
             Next = GetPosition(First, Shag, WIDTH);
 
             TColor COLORR = Bmp->Canvas->Pixels[First.x][First.y];
 
             BYTE R=GetRValue(COLORR);    //
             BYTE G=GetGValue(COLORR);    // получили каналы
             BYTE B=GetBValue(COLORR);    //
 
             int bit = GetBitValue(TextByte, j+1); // получили записываемый бит
             R = ReadBitToByte (bit, R);         // записали jй бит в канал
 
             Bmp->Canvas->Pixels[First.x][First.y] = RGB(R,G,B);  // переопределили цвет
 
             First = Next;
            }
    }
//------------------ ЗАШИФРОВАЛИ ---------------------//

Bmp->SaveToFile(SavePictureDialog1->FileName); // изображение
 
  ofstream READ;
  READ.open(FileName);
// ключ
  READ<<StrToInt(Shag)<<endl;
  READ<<StrToInt(TEXT_SIZE);

  ifstream OPEN;
  OPEN.open(Stego->OpenDialog1->FileName.c_str());
 
  OPEN>>SHAG>>KOL;

TPoint Next;    // позиция следующего кодируемого пиксела
 TPoint First;   // позиция кодированного пиксела
 BYTE TextByte;  // переменная для хранения символа
 
 char *result = new char[KOL+1];
 strset(result, '\0');
 int *BitMass = new int[8]; // массив для хранения битов
 
    for (int i = 0; i < KOL; i++)  // перебор символов дешифруемого сообщения
        {
         for (int j = 0; j < 8; j++) // перебор битов символа
            {
             Next = GetPosition(First, SHAG, WIDTH);
 
             long COLORR = GetPixel(Bmp->Canvas->Handle,First.x,First.y);  // получили цвет
             BYTE R=GetRValue(COLORR);    //
             //BYTE G=GetGValue(COLORR);    // получили каналы
             //BYTE B=GetBValue(COLORR);    //
 
             BitMass[j] = GetBitValue(R, 8);
 
             First = Next;
            }
          result[i] =  BinaryToByte (BitMass);
          for (int k = 0; k < 8; k++) BitMass[k] = 0;
        }
 
 RichEdit1->Clear();
 result[KOL] = '\0';
 RichEdit1->Text = result;

strcpy(String, RichEdit1->Text.c_str());

strcpy[String, RichEdit1->Text.c_str()];

strcpy(String,RichEdit1->Text.t_str());

OPEN.open(Stego->OpenDialog1->FileName.c_str());

OPEN.open(Stego->OpenDialog1->FileName.t_str());