Стеганография

var
TEST_FILE:File Of Byte;//Это файл контрольную сумму которого будем
//считать
 
Procedure TForm1.SpeedButton1Click(Sender: TObject);
Begin
Memo1.Lines.Clear;//Очищаем поле
OpenDialog1.Filter:='Все файлы ( *.* )';
If OpenDialog1.Execute Then
AssignFile(TEST_FILE,OpenDialog1.FileName);//Связываем дескриптор
// TEST_FILE с именем файла
End;
Procedure TForm1.SpeedButton2Click(Sender: TObject);
Var
CS:Byte;
Res:Integer;//Здесь будет конечный результат
Sum:Integer;//Здесь будет контрольная сумма
Begin
Sum:=0;//Обнуляем контрольную сумму
Reset(TEST_FILE);//Открываем файл для чтения
While Not Eof(TEST_FILE) Do Begin//Пока не конец файла
Read(TEST_FILE,CS);//Читаем один байт из файла
Sum:=Sum+CS;//Прибавляем этот байт к контрольной сумме
End;
Res:=Sum Mod 10000;//Делим полученный результат на достаточно большое
//число
//т.к. контрольная сумма файла может быть очень большой
Memo1.Lines.Text:=IntToStr(Res);//Выводим результат
CloseFile(TEST_FILE);
End;

Function DecToBin(Int:Longint):String;
Var
StringConst:String[2];
Begin
StringConst:='01';
Result:='';//Обнуляем результат функции
Repeat
//Если Int Mod 2 = 0(т.е. остаток 0) пишем первый элемент,
//Если Int Mod 2 = 1, то второй пишем элемент
Result:=StringConst[(Int Mod 2)+1] + Result;
Int:=Int Div 2;//Делим десятичное число на 2
Until Int=0;
End;
{ конец функции DecToBin }

Function BinToDec(Value:String):String;
Var
i:SmallInt;//тип SmallInt это целое число от -32768 до 32767
DecValue:Integer;
Digit:String[2];
Begin
Digit:='01';
DecValue:=0;
For i:=1 To Length(Value) Do
DecValue:=DecValue*2+Pos(Value[i],Digit)-1;
Result:=IntToStr(DecValue);
End;
{ конец функции BinToDec }

Function StrToBin(TextValue:String):String;
Var
TempString:String;
OctString:String;
BinString:String;
i,k:SmallInt;
Begin
For i:=1 To Length(TextValue) Do Begin
TempString:=DecToBin(Ord(TextValue[i]));//переводим i-й элемент в
//двоичную систему и присваиваем его TempString
OctString:=’’;
If Length(TempString)<8 Then Begin//если длина TempString<8
For k:=1 To 8-Length(TempString) Do Begin//то создаем строку
OctString:=OctString+'0';//длиной 8-Length(TempString) состоящую из
//нулей
End;
End;
TempString:=OctString+TempString;//дополняем нулями TempSting
BinString:=BinString+TempString;//Записываем все в одну строку
Result:=BinString;//Присваиваем всё функции
End;
End;
{Конец функции StrToBin }

Function FirstEight(Str:String):String;
Var
i:SmallInt;
Begin
For i:=1 To 8 Do
Result:=Result+Str[i];
End;
{Конец функции FirstEight }

//переменную FileName объявляем глобальной, т.е. перед Implementation
//суть этой процедуры в том чтобы в переменную FileName ввести имя
//файла-контейнера
Begin
FileName:=’’;
OpenDialog1.Filter:='Все файлы (* . *)';
If OpenDialog1.Execute Then
FileName:=OpenDialog1.FileName;
End;

Var
i:SmallInt;
MY_IN_FILE:TextFile;//Это файл-контейнер
MY_OUT_FILE:TextFile;//Это файл-контейнер с зашифрованным сообщением
RecString:String;
BinString:String;
Begin
Try //от Try до Except перехватываем ошибки
RecString:=’’;
BinString:=StrToBin(Edit1.Text);//переводим содержимое Edit1
//в двоичное представление и записываем результат в строку BinString
AssignFile(MY_IN_FILE,FileName);//Связываем дескриптор MY_IN_FILE с
//файлом контейнером
AssignFile(MY_OUT_FILE,’Задание2.txt’);//Создаем файл Задание2.txt с
//дескриптором MY_OUT_FILE
Reset(MY_IN_FILE);//Открываем MY_IN_FILE для чтения
ReWrite(MY_OUT_FILE);//Открываем файл MY_OUT_FILE для записи
i:=1;
While Not Eof(MY_IN_FILE) Do //Пока не закончится файл-контейнер
Begin
ReadLn(MY_IN_FILE,RecString);//Читаем одну строку из файла
If BinString[i]='1' Then//если очередной бит сообщения равен 1 то
Insert(' ',RecString,Length(RecString)+1);//в конец строки вставляем
//пробел, а если бит равен 0 то условие не выполняется и пробел
//соответственно не вставляется
WriteLn(MY_OUT_FILE,RecString);//Записываем считанную строку в файл
Inc(i); //Увеличиваем i на 1, чтобы обработать следущий бит сообщения
End;
CloseFile(MY_IN_FILE); //Закрываем файл-контейнер
CloseFile(MY_OUT_FILE); //Закрываем файл с сообщением
MessageDlg('Все прошло гут!',mtInformation, [mbOK], 0);//Выводим
сообщение о //выполнении
Except //если произошла ошибка то выводим сообщение
MessageDlg('Произошла ошибка',mtError, [mbOK], 0);
End;
End;

Var
TempString:String;
OutString:String;//Здесь будет текст сообщения
RecString:String; //Здесь будет считанная из файла строка
BinString:String;
DecValue,i,j:SmallInt;
MY_DECRYPT:TextFile;//Файл-контейнер с сообщением
Begin
Try//От Try до Except перехватываем ошибки и обрабатываем их
AssignFile(MY_DECRYPT,FileName);//Открываем файл-контейнер с сообщением
//и присваиваем ему дескриптор MY_DECRYPT. В переменной FileName имя файла,
//имя в эту переменную заносится процедурой кнопки Открыть файл
Reset(MY_DECRYPT); //Открываем файл для чтения
While Not Eof(MY_DECRYPT) Do//До конца файла
Begin
ReadLn(MY_DECRYPT,RecString); //Читаем одну строчку из файла
If RecString[Length(RecString)]=' ' Then//Если последний символ в
//строке пробел то в BinString записываем 1, иначе записываем 0
BinString:=BinString+'1' Else BinString:=BinString+'0';
End;
For i:=0 To Trunc(Length(BinString) Div 8) Do//т.к. число полных
//байтов в строке BinString будет Trunc(Length(BinString) Div 8).Функция
//Trunc отбрасывает дробную часть от числа
Begin
TempString:=FirstEight(BinString);//Записываем в строку TempString
//первые 8 элементов строки BinString ( каждый элемент строки соответствует
//1 биту сообщения
OutString:= OutString+Chr(StrToInt(BinToDec(TempString)));
//В строке OutString будет текст сообщения. Этого добиваемся следущим
//образом. Переводим в десятичную систему TempString(в ней первые 8
//символов,т.е. первая буква сообщения),это число(пока оно типа String)
//переводим в Integer(теперь число является числом, а не строкой) и функцией
//Chr ставим букву соответствующую этому числу. Все расшифрованные буквы
//записываем в строку OutString. Теперь в OutString находится наше сообщение
If Chr(StrToInt(BinToDec(FirstEight(BinString))))=#0 Then Break;
//Если закончились символы в строке (#0 или Chr(0) это означает
//что вообще ничего нет, а не пробел или ноль) то выходим из цикла
Delete(BinString,1,8);//Удаляем из строки первые 8 символов, чтобы
//можно было расшифровать следущюю букву сообщения
End;
Edit1.Text:=OutString;//Записываем в Edit1 расшифрованное сообщение
ShowMessage('Строка успешно расшифрована');
CloseFile(MY_DECRYPT);//Закрываем файл
Except//Если произошла ошибка то выводим сообщение
ShowMessage('Невозможно расшифровать строку');
End;
End;

Var
i:SmallInt;
k:LongInt;
BinString:String;//Здесь двоичное представление текста сообщения
RecString:String; //Здесь считанная из файла строка
MY_IN_FILE:TextFile; //Файл-контейнер
MY_OUT_FILE:TextFile; //Файл-контейнер с сообщением
Begin
AssignFile(MY_IN_FILE,FileName);//Присваиваем файлу-контейнеру
//дескриптор MY_IN_FILE. В переменной FileName имя файла, имя в эту
//переменную заносится процедурой кнопки Открыть файл
AssignFile(MY_OUT_FILE,’Задание3.txt’); //Создаём файл Задание3.txt в
//который запишем содержимое файла-контейнера и зашифрованное сообщение и
//присваиваем ему дескриптор MY_OUT_FILE.
Reset(MY_IN_FILE);//Открываем файл-контейнер для чтения
ReWrite(MY_OUT_FILE);//Открываем файл для записи
BinString:=StrToBin(Edit1.Text);//В строке BinString двоичное
//представление строки введённой в Edit1
k:=1; //Присваиваем k:=1 для того чтобы обрабатывать BinString с
//первого символа
While Not Eof(MY_IN_FILE) Do //До конца файла контейнера
Begin
ReadLn(MY_IN_FILE,RecString);//Читаем одну строчку из файла
For i:=1 To Length(RecString) Do//Перебираем символы этой строчки
Begin
If RecString[i]=' ' Then//Если встретился пробел то проверяем
//чему равен очередной бит скрываемой информации
Begin
Case BinString[k] Of
'1':Insert(' ',RecString,i);//Если бит равен 1 то перед пробелом пишем
//пробел
'0':Insert('',RecString,i);//Если бит равен 0 то ничего не пишем
End;
Inc(k);//Увеличиваем k на 1 чтобы обработать следущий бит информации
End;
End;
WriteLn(MY_OUT_FILE,RecString); //Записываем обработанную строку в файл
End;
CloseFile(MY_OUT_FILE); //Закрываем файл-контейнер
CloseFile(MY_IN_FILE); //Закрываем файл-контейнер с спрятанным
//сообщением
ShowMessage('Строка спрятана'); //Выводим сообщение о завершении работы
End;

Var//Назначение переменных аналогично как и задании 2
i,k:SmallInt;
TempString:String;
DecString:String;
BinString:String;
RecString:String;
MY_DECRYPT:TextFile;
Begin
AssignFile(MY_DECRYPT,FileName);//Открываем файл-контейнер с сообщением
//и присваиваем ему дескриптор MY_DECRYPT. В переменной FileName имя файла,
//имя в эту переменную заносится процедурой кнопки Открыть файл
Reset(MY_DECRYPT);//Открываем файл для чтения
While Not Eof(MY_DECRYPT) Do//Пока не конец файла то
Begin
ReadLn(MY_DECRYPT,RecString);//Читаем одну строчку из файла
For i:=1 To Length(RecString) Do//С каждым элементом строки
Begin
k:=i+1;//Индекс k будет у следущего за i-м символа
If(RecString[i]=' ') And (RecString[k]=' ') Then BinString:=BinString+'1';
//Если встретились два пробела то в BinString пишем 1
If(RecString[i]=' ') And (RecString[k]<>' ') Then BinString:=BinString+'0';
//Если встретились только один пробел то в BinString пишем 0
End;
End;
For i:=0 To Trunc(Length(BinString) Div 8) Do//т.к. число полных байтов
//в строке BinString будет Trunc(Length(BinString) Div 8).Функция Trunc
//отбрасывает дробную часть от числа. Делим на 8 т.к. в 1 байт = 8 бит
Begin
TempString:=FirstEight(BinString);//Записываем в строку TempString
//первые 8 символов
DecString:=DecString+Chr(StrToInt(BinToDec(FirstEight(BinString))));
//Переводим число записанное в TempString(это двоичное число) в десятичное и
//записываем в DecString символ соответствующий этому числу
If Chr(StrToInt(BinToDec(FirstEight(BinString))))=#0 Then Break;
//Если символы в сообщении закончились то выходим из цикла
Delete(BinString,1,8);//Удаляем первые 8 символов стобы был доступен
//следущий символ
End;
ShowMessage('Строка расшифрована');
Edit1.Text:=DecString;//Записываем результат в Edit
CloseFile(MY_DECRYPT);//Закрываем файл
End;

Var
i:SmallInt;
k:LongInt;
Bin:String;//Здесь будет сообщение в двоичном виде
Rec:String;
IN_FILE:TextFile;//Файл-контейнер
OUT_FILE:TextFile;// Файл-контейнер с спрятанным сообщением
Begin
Try//От Try до Except ловим ошибки
AssignFile(IN_FILE,FileName); //Присваиваем файлу-контейнеру
//дескриптор MY_IN_FILE. В переменной FileName имя файла, имя в эту
//переменную заносится процедурой кнопки Открыть файл
AssignFile(OUT_FILE,'Задание4.txt');//Создаём файл Задание4.txt в который
//запишем содержимое файла-контейнера и зашифрованное сообщение и
//присваиваем ему дескриптор MY_OUT_FILE.
Reset(IN_FILE);//Открываем файл-контейнер для чтения
ReWrite(OUT_FILE);//Открываем файл-контейнер для записи
Bin:=StrToBin(Edit1.Text);//Функцией StrToBin переводим содержимое
//Edit1 в двоичный символы и записываем результат в строку Bin
k:=1;
While Not Eof(IN_FILE) Do//Если не конец файла то
Begin
ReadLn(IN_FILE,Rec);//Читаем одну строку
For i:=1 To Length(Rec) Do//Обрабатываем в ней каждый символ
Begin
If ((Rec[i]='е')//если i-й символ имеет английский аналог то
Or (Rec[i]='а')
Or (Rec[i]='о') //оператор Or это логическое ИЛИ, т.е. нам достаточно
Or (Rec[i]='А') //чтобы Rec[i] соответствовал хотя бы одному
Or (Rec[i]='Е') //символу из этого списка (е,а,о,с,р или х) в любом
Or (Rec[i]='О') //регистре, и условие будет выполнятся
Or (Rec[i]='с')
Or (Rec[i]='р')
Or (Rec[i]='х')
Or (Rec[i]='С')
Or (Rec[i]='Р')
Or (Rec[i]='Х')) Then
Begin
If Bin[k]='1' Then//Если k-ый элемент строки Bin равен ’1’ то
Begin//меняем русскую букву в i-ом элементе строки Rec на такую же по
//написанию английскую
If Rec[i]='е' Then Rec[i]:='e'; //Rus->Eng
If Rec[i]='а' Then Rec[i]:='a';
If Rec[i]='о' Then Rec[i]:='o';
If Rec[i]='Е' Then Rec[i]:='E';
If Rec[i]='А' Then Rec[i]:='A';
If Rec[i]='О' Then Rec[i]:='O';
If Rec[i]='с' Then Rec[i]:='c';
If Rec[i]='р' Then Rec[i]:='p';
If Rec[i]='х' Then Rec[i]:='x';
If Rec[i]='С' Then Rec[i]:='E';
If Rec[i]='Р' Then Rec[i]:='C';
If Rec[i]='Х' Then Rec[i]:='X';
End;
Inc(k); //Производим инкремент k (увеличения на 1),чтобы был доступен
//следущий бит сообщения
End;
End;
WriteLn(OUT_FILE,Rec); //Записываем полученную строку в файл-контейнер
//с сообщением
End;
CloseFile(OUT_FILE); //Закрываем файлы которые использовали
CloseFile(IN_FILE);
MessageDlg('Строка спрятана',mtInformation, [mbOK], 0);//Выводим
//сообщение о выполнении работы
Except//Если возникла ошибка то
ShowMessage('Произошла ошибка'); //Выводим соответствущее сообщение
End;

Var
i:Smallint;
Temp:String;
Res:String; //Здесь будет расшифрованный текст сообщения
Bin:String;
Rec:String;
DECRYPT:Textfile;//Файл-контейнер со спрятанным сообщением
Begin
Try//От Try до Except ловим ошибки
Assignfile(DECRYPT,Filename);//Открываем файл-контейнер с сообщением
//и присваиваем ему дескриптор MY_DECRYPT. В переменной FileName имя файла,
//имя в эту переменную заносится процедурой OnClick кнопки Открыть файл
Reset(DECRYPT);//Открываем файл для чтения
Bin:='';
While Not Eof(DECRYPT) Do
Begin
Readln(DECRYPT,Rec);//Читаем из файла одну строчку
For i:=1 To Length(Rec) Do//Обрабатываем каждый символ этой строчки
Begin
Case Rec[i] Of //Если i-ый символ считанной строки является
//буквой-аналогом то взависимости от буквы пишем в строку Bin '0' или
//'1'(если буква английская то пишем '1', а если русская – то пишем '0'
'E':Bin:=Bin+'1';//Здесь английские буквы
'A':Bin:=Bin+'1';
'O':Bin:=Bin+'1';
'A':Bin:=Bin+'1';
'E':Bin:=Bin+'1';
'O':Bin:=Bin+'1';
'C':Bin:=Bin+'1';
'P':Bin:=Bin+'1';
'X':Bin:=Bin+'1';
'C':Bin:=Bin+'1';
'P':Bin:=Bin+'1';
'X':Bin:=Bin+'1';
'Е':Bin:=Bin+'0';//Здесь русские буквы
'А':Bin:=Bin+'0';
'О':Bin:=Bin+'0';
'А':Bin:=Bin+'0';
'Е':Bin:=Bin+'0';
'О':Bin:=Bin+'0';
'С':Bin:=Bin+'0';
'Р':Bin:=Bin+'0';
'Х':Bin:=Bin+'0';
'С':Bin:=Bin+'0';
'Р':Bin:=Bin+'0';
'Х':Bin:=Bin+'0';
End;
End;
End;
For i:=0 To Trunc(Length(BinString) Div 8) Do//т.к. число полных
//байтов в строке BinString будет Trunc(Length(BinString) Div 8).Функция
//Trunc отбрасывает дробную часть от числа
Begin
Temp:=Firsteight(Bin);//Читаем первые 8 символов из строки Bin
Listbox1.Items.Add(Temp+' '+Chr(Strtoint(Bintodec(Firsteight(Bin)))));
If Temp='00000000' Then Break;//Если считанный символ Chr(0) то это
//значит что сообщение закончилось и поэтому мы выводим из цикла
Temp:='';
Res:=Res+Chr(Strtoint(Bintodec(Firsteight(Bin))));
Delete(Bin,1,8); //Удаляем из строки Bin первые 8 символов, чтобы
//обработать следущие 8
End;
ShowMessage('Строка расшифрована');//Выводим сообщение о окончании
//работы
Edit1.Text:=Res;//Записываем в Edit1 результат расшифровки
Closefile(DECRYPT);//Закрываем файл
Except//Если возникла ошибка то
ShowMessage('Какая-то ошибка...');//Выводим сообщение
End;
End;

Var
   BAG,OUT_FILE:TextFile;//в BAG – файл-контейнер, а в OUT_FILE – будет результат(т.е. файл-контейнер с сообщением
   Cell,i,j:Byte;
   Messg,s:String; //В Messg – сообщение, которое надо спрятать
Begin
  Messg:=Memo1.Text;//Записываем содержимое Memo в строку Messg 
  OpenDialog1.Filter:='Текстовые файлы';
If OpenDialog1.Execute Then//Если диалоговое окно активировано, то
  Begin
  AssignFile(BAG,OpenDialog1.FileName);//Связываем с BAG файл, который выбрали в OpenDiаlog
  Reset(BAG);//Открываем его для чтения
  AssignFile(OUT_FILE,'Результат задания 2.txt');
  ReWrite(OUT_FILE);//Создаем и открываем для записи файл-контейнер с сообщением
  For i:=1 To Length(Messg) Do//С каждым элементом строки Messg делаем следующее
    Begin
      Cell:=Ord(Messg[i]); //Переводим букву с число(следует помнить, что буквы – это цифры от 0 до 255.См. таблицу ASCII
      For j:=1 To 8 Do//т.к. в 1 байт = 8 бит, то обрабатываем каждый бит сообщения, т.е. не совсем сообщения, а буквы сообщения
        Begin
          ReadLn(BAG,s);//Считываем строку из файла-контейнера
          If Cell And 1 = 1 Then//Если текущий бит сообщения равен 1 то
            s:=s + ' ';//добавляем к строке пробел
          WriteLn(OUT_FILE,s);//И записываем в результирующий файл
          Cell:=Cell Shr 1;//Сдвигаемся вправо на 1 бит
        End;
    End;
  Form1.Caption:='Успешно спрятано';//Выводим сообщение, что все сделали
  End
Else//Если файл при открытии диалога не был выбран, то выводим соответствующее сообщение 
  Form1.Caption:='Не выбран файл-контейнер...';
If Not Eof(BAG) Then//Если остались строки в файле-контейнере, то
    While Not Eof(BAG) Do//Остаток файла копируем в файл-контейнер с сообщением (т.е. OUT_FILE)
      Begin
        If Eof(BAG) Then Break;
          ReadLn(BAG,s);
          WriteLn(OUT_FILE,s);
      End;
 
  CloseFile(BAG);//Закрываем файлы, которые открыли
  CloseFile(OUT_FILE);
End;

Var
  DECRYPT:TextFile;// Файл с сообщением
  i,cell:Byte;
  s:String;
Begin
  OpenDialog1.Filter:='Открыть файл-контейнер';
  OpenDialog1.Execute;
  AssignFile(DECRYPT,OpenDialog1.FileName);
  Reset(DECRYPT);
 
  While Not Eof(DECRYPT) Do//Продолжаем цикл, пока не конец файла
    Begin
      cell:=0;//Здесь будет расшифрованная буква
      For i:=1 To 8 Do//Собственно расшифровываем очередную букву сообщения
        Begin
          cell:=cell Shr 1;//Сдвигаемся на 1 разряд вправо
          ReadLn(DECRYPT,s);//Считали из файла строку и записали её в s
          If s[Length(s)] = ' ' Then//Если последний символ пробел, то
            cell:=cell Or 128;//Добавляем 1 в соотвествущий разряд
//почему 128 – потому что 128 = 1000 0000 в двоичном коде, и поэтому при первом вызове cell:=cell Or 128 добавим в старший разряд 1, если не вызывается cell:=cell Or 128 (выражение s[Length(s)] = ' ' ложно) то записывается 0(т.к. в начале цикла сдвигаем на 1 разряд вправо конструкцией cell:=cell Shr 1).  
        End;//В итоге после 8 итераций цикла в cell будет расшифрованная буква
        Memo1.Text:=Memo1.Text + Chr(cell);//Записываем эту букву в Memo
    End;
    CloseFile(DECRYPT);
End;

Var
  BAG,OUT_FILE:File Of Byte;//Т.к. описание большинства конструкций бало произведено в предыдущем задании, то я их описывать не буду.
  Messg:String;
  i,j:Integer;
  b,cell:Byte;
Begin
  OpenDialog1.Filter:='Текстовые файлы';
  IF OpenDialog1.Execute Then
    Begin
      AssignFile(BAG,OpenDialog1.FileName);
      Reset(BAG);
      AssignFile(OUT_FILE,'Результат задания 3.txt');
      ReWrite(OUT_FILE);
      Messg:=Memo1.Text;
      For i:=0 To Length(Messg) Do
        Begin
          Cell:=Ord(Messg[i]);
            For j:=1 To 8 Do
              Begin
              If Eof(BAG) Then Break;//Если встретили конец файла, то выходим из цикла. Это нужно для того чтобы не было выхода за границу файла
                Repeat//Т.к. нужны пробелы, поэтому все символы которые не пробелы тупо переписываем в новый файл(эт который файл-контейнер с сообщением)
                  Read(BAG,b);
                  Write(OUT_FILE,b);
                Until b = 32;//Цикл будет переписывать файл, пока не встретит пробел (32 в ASCII это и есть пробел) 
              If cell And 1 = 1 Then
                Begin
                  b:=32;
                  Write(OUT_FILE,b);//Если бит сообщения 1 то записываем пробел в файл 
                End; 
              cell:=cell Shr 1;
              End;
        End;
//этот код аналогичен коду из задания 2. Он дописывает в результирующий файл не используемые строки из файла-контейнера
If Not Eof(BAG) Then
        While Not Eof(BAG) Do
          Begin
          If Eof(BAG) Then Break;
            Read(BAG,cell);
            Write(OUT_FILE,cell);
          End;
        CloseFile(BAG);
        CloseFile(OUT_FILE);
    End
  Else
    Form1.Caption:='Файл не выбран...';
End;

Var
  DECRYPT:File Of Byte;
  cell,b:Byte;
  i:Integer;
Begin
  OpenDialog1.Filter:='Oткрыть файл-контейнер с сообщением';
  If OpenDialog1.Execute Then
    Begin
      AssignFile(DECRYPT,OpenDialog1.FileName);
      Reset(DECRYPT);
    While Not Eof(DECRYPT) Do
      Begin
        cell:=0;
        For i:=1 To 8 Do
          Begin
            cell:=cell Shr 1;//Сдвигаемся на 1 бит вправо. Зачем – смотрите задание 2
            Repeat
              Read(DECRYPT,b); //Читаем файл, пока не встретим пробел
            Until b = 32;
              If Eof(DECRYPT) Then Break;//Если конец файла – то выходим из цикла, чтобы не выйти за границу файла
            Read(DECRYPT,b);
            If b = 32 Then//Описание этой хрени смотрите в задании 2
              cell:=cell Or 128;
          End;
          Memo1.Text:=Memo1.Text + Chr(cell);
      End;
      CloseFile(DECRYPT);
    End
  Else
    Form1.Caption:='Файл не выбран...';
End;

Var
 BAG,RES:File Of Byte;
 i,j,cnt:Integer;
 b,cell:Byte;
 index:Integer;
 Messg:String;
Const
  Rus:Array[1..17] Of Char = ('А','а','В','Е','е','К','М','Н','О','о','Р','р','С','с','Т','х','Х');
  Eng:Array[1..17] Of Char = ('A','a','B','E','e','K','M','H','O','o','P','p','C','c','T','x','X');
Begin
 OpenDialog1.Execute;
 Messg:=Memo1.Text;
 AssignFile(BAG,OpenDialog1.FileName);
 AssignFile(RES,'Результат задания 4.txt');
 Reset(BAG);
 ReWrite(RES);
For cnt:=0 To Length(Messg)+1 Do
  Begin
    cell:=Ord(Messg[cnt]);
    For i:=1 To 8 Do
      Begin
        index:= 0; 
        Repeat
          Read(BAG,b);
            For j:=1 To 17 Do//Проходим по всем элементам массива
              If b = Ord(Rus[j]) Then//Если встретили букву-аналог,
                index:=j;          //то запоминаем его индекс
          If index = 0 Then //Если буква не явл. буквой-аналогом, то
            Write(RES,b); //просто записываем её в файл без изменений
        Until index <> 0; 
        If cell And 1 = 1 Then
          b:=Ord(Eng[index]); //Меняем букву-аналог
          Write(RES,b);
          cell:= cell Shr 1;
      End;
  End;
If Not Eof(BAG) Then
  While Not Eof(BAG) Do
    Begin
      If Eof(BAG) Then Break;
      Read(BAG,cell);
      Write(RES,cell);
    End;
 CloseFile(BAG);
 CloseFile(RES);
End;

Var
 DECRYPT:File Of Byte;
 i,j:Integer;
 cell,b:Byte;
 index:Integer;
Const
  Rus:Array[1..17] Of Char = ('А','а','В','Е','е','К','М','Н','О','о','Р','р','С','с','Т','х','Х');
  Eng:Array[1..17] Of Char = ('A','a','B','E','e','K','M','H','O','o','P','p','C','c','T','x','X');
Begin
  OpenDialog1.Execute;
  AssignFile(DECRYPT,OpenDialog1.FileName);
  Reset(DECRYPT);
While Not Eof(DECRYPT) Do
  Begin
    b:=0;
      For i:=1 To 8 Do
        Begin
          b:= b Shr 1;
          index:= 0; 
        Repeat
          If Eof(DECRYPT) Then Break;
          Read(DECRYPT,cell); 
          For j:=1 To 17 Do
            If (cell = Ord(Rus[j])) Or (cell = Ord(Eng[j])) Then//Если считанный символ находится с одинаковым индексом в массивах (т.е.символ -  буква-аналог) то изменяем index, чтобы выйти из цикла
              index:=j; 
        Until index <> 0; 
      If cell = Ord(Eng[index]) Then
        b:=b Or 128; 
      End;
      Memo1.Text:=Memo1.Text + Chr(b);
  End;
  CloseFile(DECRYPT);
End;

unit Steganos;
 
interface
 
uses Classes, Windows, Dialogs, SysUtils, Forms, JPEG, Graphics;
 
type
  TImageFileInfo=record
    FileN:String; //Èìÿ bmp’øêè
    width:dword; //øèðèíà ðèñóíêà
    height:dword; //âûñîòà ðèñóíêà
    smeshenie:dword; //Ñìåùåíèå ðèñóíêà îò íà÷àëà ôàéëà
    FileSize:dword; //Ðàçìåð bmp’øêè
    ImageSize:dword; //Ðàçìåð ðèñóíêà
    InfoHide:dword; //Ñêîëüêî èíôû ìîæíî ñïðÿòàòü
    RLE:byte; //Óðîâåíü ñæàòèÿ - äîëæåí áûòü ðàâåí 0
    BitsPerPixel:byte; //Ðàçðÿäíîñòü ðèñóíêà (áèò íà ïèêñåëü) - íàì íóæíû 24-õ ðàçðÿäíûå
    Signature:string[2]; //Ïåðâûå äâà áàéòà ôàéëà - bmp-ôàéëîâ äîëæíû áûòü 'BM'
end;
 
BitsArray=array[0..7] of byte;
 
 
  function FileType(FileN:string):string;
  procedure ConvertJPG2BMP(JPGName, BMPName:string);
  procedure GetFileFormat(FileN:string;var StrLst:TStringList;var ImageInfo:TImageFileInfo);
  procedure IHide(ImageInfo:TImageFileInfo; DFile:string; SaveDialog:TSaveDialog; cb:byte);
  procedure IExtract(IFile:string;SaveDialog:TSaveDialog; cb:byte);
 
implementation
 
 
function FileType(FileN:string):string;
var st:TMemoryStream;
    str:string[3];
    i:integer;
begin
  st:=TMemoryStream.Create;
  st.LoadFromFile(FileN);
 
  str:='   ';
  for i:=1 to 3 do
  st.ReadBuffer(str[i], sizeof(str[i]));
 
  if copy(str, 1,2) = 'BM'
    then Result:='BMP'
  else if str = 'ÿØÿ'
    then Result:='JPG'
  else Result:='???';
 
  st.Free;
end;
 
 
procedure ConvertJPG2BMP(JPGName, BMPName:string);
var
 jpg:TJPEGImage;
 bmp:TBitmap;
begin
   try
    jpg:=TJPEGImage.Create;
    bmp:=TBitmap.Create;
    jpg.CompressionQuality:=100;
    jpg.Compress;
    jpg.LoadFromFile(JPGName);
    bmp.Assign(jpg);
    bmp.SaveToFile(BMPName);
    FreeAndNil(jpg);
    FreeAndNil(bmp);
   except
    on e:Exception do
     begin
      FreeAndNil(jpg);
      FreeAndNil(bmp);
     end;
   end;
end;
 
 
 
procedure GetFileFormat(FileN:string;var StrLst:TStringList;var ImageInfo:TImageFileInfo);
var
  Stream:TMemoryStream;
  ch:char;
  size,dwrd:dword;
  wrd:word;
//  bt:byte;
  str:string;
begin
  StrLst:=TStringList.Create;
  stream:=TMemoryStream.Create;
 
  stream.LoadFromFile(FileN); //Çàãðóæàåì bmp’øêó â òîëüêî ÷òî ñîçäàííûé MemoryStream
 
  StrLst.Add(' ***Òåõíè÷åñêàÿ èíôîðìàöèÿ î ôàéëå*** ');
  StrLst.Add(' ***Ôàéë èçîáðàæåíèÿ: '+FileN+'***');
 
  stream.Read(ch,sizeof(ch)); //×èòàåì ñèãíàòóðó
  str:=ch;
  stream.Read(ch,sizeof(ch));
  str:=str+ch;
  StrLst.Add(' ***********');
  ImageInfo.Signature:=str; //Çàíåñåì â çàïèñü ñèãíàòóðó
 
 if ImageInfo.Signature ='BM' then //Åñëè ñèãíàòóðà = ‘BM’, òî çíà÷èò âñå íîðìàëüíî - ïðîäîëæàåì
    begin
      ImageInfo.FileN:=ExpandFileName(FileN); //Çàíåñåì â çàïèñü èìÿ bmp’øêè
 
      stream.Read(dwrd,sizeof(dwrd)); //Ñ÷èòàåì èç çàãîëîâêà ðàçìåð ôàéëà
      ImageInfo.Filesize:=dwrd;
 
      size:=round(dwrd/1024); //Ïåðåâåäåì â êèëîáàéòû äëÿ äàëüíåéøåãî âûâîäà â îïèñàíèå
      StrLst.add('Ðàçìåð ôàéëà ñ èçîáðàæåíèåì: '+IntToStr(dwrd)+' ( '+InTToStr(size)+' kb)');
 
      stream.Read(dwrd,sizeof(dwrd)); //Çàðåçåðâèðîâàíî - íå èñïîëüçóåòñÿ
      stream.Read(dwrd,sizeof(dwrd)); //Çàðåçåðâèðîâàíî - íå èñïîëüçóåòñÿ
 
      ImageInfo.smeshenie:=dwrd; //Åñëè ÷òî-òî äàëåå íå ÿñíî - ñìîòðè îïèñàíèå ôîðìàòà
      StrLst.Add('Ñìåùåíèå äàííûõ áèòîâîãî îáðàçà îò çàãîëîâêà: '+IntToStr(dwrd)+' áàéò');
 
      stream.Read(dwrd,sizeof(dwrd));
      StrLst.Add('Ðàçìåð BITMAPINFOHEADER: '+IntToStr(dwrd)+' áàéò');
 
      stream.Read(dwrd,sizeof(dwrd));
      ImageInfo.width:=dwrd;
      StrLst.Add('Øèðèíà èçîáðàæåíèÿ: '+IntToStr(dwrd)+' ïèêñåëåé');
 
      stream.Read(dwrd,sizeof(dwrd));
      ImageInfo.height:=dwrd;
      StrLst.Add('Âûñîòà èçîáðàæåíèÿ: '+IntToStr(dwrd)+' ïèêñåëåé');
 
      stream.Read(wrd,sizeof(wrd));
      StrLst.Add('×èñëî áèòîâûõ ïëîñêîñòåé óñòðîéñòâà: '+IntToStr(wrd));
 
      stream.Read(wrd,sizeof(wrd));
      ImageInfo.BitsPerPixel:=wrd;
      StrLst.Add('Ãëóáèíà èçîáðàæåíèÿ (÷èñëî áèòîâ íà ïèêñåëü): '+IntToStr(wrd));
 
      stream.Read(dwrd,sizeof(dwrd));
      StrLst.Add('Òèï ñæàòèÿ (0-îòñóòñòâóåò): '+IntToStr(dwrd));
      ImageInfo.RLE:=dwrd;
 
      stream.Read(dwrd,sizeof(dwrd));
      size:=round(dwrd/(1024));
      StrLst.Add('Ðàçìåð êàðòèíêè â áàéòàõ: '+IntToStr(dwrd)+' ( '+IntToStr(size)+' kb)');
 
      ImageInfo.ImageSize:=dwrd;
      stream.Read(dwrd,sizeof(dwrd));
      StrLst.Add('Ãîðèçîíòàëüíîå ðàçðåøåíèå óñòðîéñòâà (ïèêñåëü/ì): '+IntToStr(dwrd));
 
      stream.Read(dwrd,sizeof(dwrd));
      StrLst.Add('Âåðòèêàëüíîå ðàçðåøåíèå óñòðîéñòâà (ïèêñåëü/ì): '+IntToStr(dwrd));
 
      stream.Read(dwrd,sizeof(dwrd));
      StrLst.Add('×èñëî èñïîëüçóåìûõ öâåòîâ: '+IntToStr(dwrd));
 
      stream.Read(dwrd,sizeof(dwrd));
      StrLst.Add('×èñëî âàæíûõ öâåòîâ: '+IntToStr(dwrd));
 
      ImageInfo.InfoHide:=(ImageInfo.width*ImageInfo.height*3) div 8;
      StrLst.Add(' ***********');
      StrLst.Add('Ìîæíî ñïðÿòàòü èíôîðìàöèè '+IntToStr(ImageInfo.infohide)+'áàéò ('+IntToStr(round((ImageInfo.infohide)/1024))+'kb)');
end
else StrLst.Add('Îøèáêà: ýòî íå ôàéë ôîðìàòà Windows 3.11 BMP.');
stream.Free;
end;
 
 
procedure HexToBin(x:byte;var a:BitsArray);
var
  bit,i:byte;
begin
  for i:=7 downto 0 do
  begin
    if (X and (1 shl i))<>0
      then bit:=1
      else bit:=0;
    a[i]:=bit;
  end;
end;
 
 
procedure BinToHex(var x:byte;a:BitsArray);
var i:dword;
    bit,t:byte;
begin
  x:=0;
  for i:=7 downto 0 do
    begin
      bit:=a[i];
      x:=x or bit;
      if i<>0
        then x:=x shl 1;
    end;
end;
 
 
function SetBit(SByte: byte; num: byte): byte;
begin
  Result := SByte or (1 shl num);
end;
 
 
function ResetBit(SByte: byte; num: byte): byte;
begin
  Result := SByte and not (1 shl num);
end;
 
 
procedure IHide(ImageInfo:TImageFileInfo; DFile:string; SaveDialog:TSaveDialog; cb:byte);
var
  sz,n,z:dword;
  len,v,i,xi,xd:byte;
  FIStream,FDStream:TMemoryStream;
  BAr,BArLog:BitsArray;
  tmp,FName:string;
  f:File;
  filesize:longint;
begin
  //Â FDStream ïîäãðóæàåòñÿ ôàéë äàííûõ, à â FIStream ôàéë-êîíòåéíåð
  FDStream:=TMemoryStream.Create;
  FDStream.LoadFromFile(DFile);
  FIStream:=TMemoryStream.Create;
 
  //Òóò èäóò ðàçëè÷íûå ïðîâåðêè íà òî ïîäõîäèò ýòîò ôàéë íà ðîëü êîíòåéíåðà èëè íåò
  if ImageInfo.Signature<>'BM' then
  begin
    MessageBox(Application.handle,'Ýòî íå èçîáðàæåíèå ôîðìàòà Windows Bitmap.','Error',MB_ICONERROR);
    exit;
  end;
 
  if ImageInfo.BitsPerPixel<>24 then
  begin
    MessageBox(Application.handle,'Èçîáðàæåíèå äîëæíî áûòü 24-õ áèòíûì!','Error',MB_ICONERROR);
    exit;
  end;
 
  if ImageInfo.RLE<>0 then
  begin
    MessageBox(Application.handle,'Â äàííîì èçîáðàæåíèè èñïîëüçóåòñÿ ñæàòèå.','Error',MB_ICONERROR);
    exit;
  end;
 
  if (ImageInfo.InfoHide < FDStream.Size) then
  begin
    MessageBox(Application.handle,'Ýòî èçîáðàæåíèå ñëèøêîì ìàëî, ÷òîá ïîìåñòèòü â ñåáÿ ñòîëüêî èíôîðìàöèè.','Error',MB_ICONERROR);
    exit;
  end;
 
  //Åñëè ôàéë ïðîøåë âñå ïðîâåðêè - ïîäãðóæàåì åãî â ïàìÿòü
  FIStream.LoadFromFile(ImageInfo.FileN);
  FIStream.Position:=ImageInfo.smeshenie;
  //Ðàçìåð ôàéëà äàííûõ ïîìåùàåì â sz
  sz:=FDStream.size;
 
  //Çàïèñûâàåì ðàçìåð ôàéëà êîòîðûé ïðÿ÷åì â bmp’øêó
  for n:=31 downto 0 do
  begin
    //×èòàåì áàéò èç ôàéëà-êîíòåéíåðà
    FIStream.Read(xi,sizeof(xi));
    //Åñëè â sz’å áèò ñ íîìåðîì n ðàâåí 1, òî óñòàíàâëèâàåì 0-îé áèò â òîëüêî ÷òî ñ÷èòàíîì
    //áàéòå, íó à åñëè n’íûé áèò ñáðîøåí, òî ñáðàñûâàåì 0-îé áèò…
    if (sz and (1 shl n))<>0
      then xi:=SetBit(xi,cb)
      else xi:=ResetBit(xi,cb);
    //Îòêàòûâàåìñÿ íà ïîçèöèþ íàçàä, ÷òîá ïåðåçàïèñàòü òîò áèò êîòîðûé ìû ñ÷èòàëè, íî
    //òîëüêî òåïåðü ñ èçìåíåííûì íóëåâûì áèòîì
    FIStream.Position:=FIStream.Position-1;
    FIStream.Write(xi,sizeof(xi));
  end;
 
  //Ïîëó÷àåì èìÿ ôàéëà äàííûõ áåç ïóòè ê ôàéëó
  tmp:=ExtractFileName(DFile);
  //Ïîëó÷àåì äëèííó èìåíè
  len:=Length(tmp);
  //Ðàçáèâàåì áàéò â êîòîðîì õðàíèòñÿ äëèííà èìåíè íà ìàññèâ 1 è 0
  HexToBin(len,BAr);
 
  //Çàïèñûâàåì äëèííó èìåíè â ôàéë-êîíòåéíåð
  for n:=7 downto 0 do
  begin
    FIStream.Read(xi,sizeof(xi));
    if BAr[n]=1 then xi:=SetBit(xi,cb);
    if BAr[n]=0 then xi:=ResetBit(xi,cb);
    FIStream.Position:=FIStream.Position-1;
    FIStream.Write(xi,sizeof(xi));
  end;
 
  //Çàïèñûâàåì ñàìî èìÿ ôàéëà â bmp’øêó
  for n:=1 to len do
  begin
    //Áåðåì ñèìâîë ñ íîìåðîì n, ïîëó÷àåì åãî ascii-êîä, ðàçáèâàåì ïîëó÷åííîå íà áèòû è //çàïèñûâàåì
    v:=ord(tmp[n]);
    HexToBin(v,BAr);
    for i:=7 downto 0 do
    begin
      FIStream.Read(xi,sizeof(xi));
      if BAr[i]=1 then xi:=SetBit(xi,cb);
      if BAr[i]=0 then xi:=ResetBit(xi,cb);
      FIStream.Position:=FIStream.Position-1;
      FIStream.Write(xi,sizeof(xi));
    end;
  end;
 
  //Ïèøåì â bmp’øêó ñàìî òåëî ôàéëà
  //êàæäûé áàéò ðàçáèâàåì íà áèòû è çàïèñûâàåì
  for n:=0 to (sz-1) do
  begin
    FDStream.Read(xd,sizeof(xd));
    HexToBin(xd,BAr);
    for i:=7 downto 0 do
    begin
      FIStream.Read(xi,sizeof(xi));
      if BAr[i]=1 then xi:=SetBit(xi,cb);
      if BAr[i]=0 then xi:=ResetBit(xi,cb);
      FIStream.Position:=FIStream.Position-1;
      FIStream.Write(xi,sizeof(xi));
    end;
  end;
  SetLength(FName,0);
  //Âûçûâàåì.. íåò, íå äóõîâ, à äèàëîã ñîõðàíåíèÿ ôàéëîâ
  if SaveDialog.Execute then FName:=SaveDialog.FileName;
  if LowerCase(ExtractFileExt(FName))<>'.bmp' then FName:=FName + '.bmp';
  //Ñîõðàíÿåì
  FIStream.SaveToFile(FName);
  //Îñâîáîæäàåì ïåðåìåííûå
  FDStream.Free;
  FIStream.Free;
  ShowMessage('Âûïîëíåíî!');
end;
 
 
procedure IExtract(IFile:string;SaveDialog:TSaveDialog; cb:byte);
var
  IInfo:TImageFileInfo;
  Lst:TStringList;
  IFstream,DFStream:TMemoryStream;
  n,i,sz:dword;
  a:BitsArray;
  b:array[0..31] of byte;
  bit,len,x,z:byte;
  DFile:string;
begin
  Lst:=TStringList.Create;
 
  //Ïîëó÷àåì èíôó èç bmp’øêè
  GetFileFormat(IFile,Lst,IInfo);
 
  //Ãðóçèì âñå â ïàìÿòü
  IFstream:=TMemoryStream.Create;
  DFStream:=TMemoryStream.Create;
 
  IFstream.LoadFromFile(IFile);
  IFstream.Position:=IInfo.smeshenie;
 
//Ñîáèðàåì ìàññèâ èç 1 è 0, êîòîðûé åñòü ðàçìåð ñïðÿòàííîãî ôàéëà
  for n:=31 downto 0 do
  begin
    IFstream.Read(z,sizeof(z));
    if (z and (1 shl cb))<>0 then z:=1 else z:=0;
    b[n]:=z;
  end;
  sz:=0;
 
  //Ñîáèðàåì dword ïî áèòàì èç ìàññèâà ïîëó÷åííãî âûøå
  for i:=31 downto 0 do
  begin
    bit:=b[i];
    sz:=sz or bit;
    if i<>0 then sz:=sz shl 1;
  end;
 
  SetLength(DFile,0);
  DFIle:='';
  z:=0;
 
  //Ïîëó÷àåì èç ôàéëà-êîíòåéíåðà äëèííó èìåíè
  for n:=7 downto 0 do
  begin
    IFstream.Read(z,sizeof(z));
    if (z and (1 shl cb))<>0 then z:=1 else z:=0;
    a[n]:=z;
  end;
  len:=0;
 
  //Ìàññèâ 1 è 0->áàéò
  BinToHex(len,a);
 
  //Ïîëó÷àåì èìÿ ñïðÿòàííîãî ôàéëà
  for n:=1 to len do
  begin
    for i:=7 downto 0 do
    begin
      IFstream.Read(z,sizeof(z)); // Error!
      if (z and (1 shl cb))<>0 then z:=1 else z:=0;
      a[i]:=z;
    end;
    BinToHex(z,a);
    DFile:=Dfile+chr(z);
  end;
 
  //Äîñòàåì ñàìî òåëî ôàéëà
  for i:=0 to sz-1 do
  begin
    //Ñ÷èòûâàåì 8 áèò
    for n:=7 downto 0 do
    begin
      IFstream.Read(z,sizeof(z));
      if (z and (1 shl cb))<>0 then z:=1 else z:=0;
      a[n]:=z;
    end;
    //Ñîáèðàåì èç ýòèõ áèò áàéò
    BinToHex(x,a);
    //Äîïèñûâàåì áàéò ê òîìó ÷òî åñòü â ïàìÿòè - ñîáèðàåì ôàéë
    DFStream.Write(x,sizeof(x));
  end;
 
  try
    //Ïðåäëîæèì äëÿ ñîõðàíåíèÿ ôàéëà èìÿ, ïîä êîòîðûì îí áûë óïàêîâàí.
    SaveDialog.FileName:=DFile;
    //Âûçûâàåì äèàëîã ñîõðàíåíèÿ
    if SaveDialog.Execute then DFile:=SaveDialog.FileName;
 
    //Ñîõðàíÿåì èçâëå÷åííûé ôàéë
    DFStream.SaveToFile(DFile);
  except
    MessageBox(0,PAnsiChar('Îøèáêà ïðè ïîïûòêå ñîõðàíåíèÿ.'+#13#10+DFile),'X-Date',MB_ICONERROR);
  end;
 
  IFstream.Free;
  DFStream.Free;
  Lst.Free;
  MessageBox(0,'Âûïîëíåíî!','X-Data',MB_ICONINFORMATION);
end;
 
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtDlgs, ComCtrls, XPMan, ExtCtrls, CheckLst;
 
type
  TForm1 = class(TForm)
    SaveDialog1: TSaveDialog;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    OpenDialog1: TOpenDialog;
    Image1: TImage;
    RadioGroup1: TRadioGroup;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Steganos;
 
var
  IInfo:TImageFileInfo;
  DFile:string;
 
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
    Strgs:TStringList;
    ft:string;
begin
  OpenDialog1.Filter:='*.jpg; *.bmp|*.jpg; *.bmp';
  if OpenDialog1.Execute then
  begin
    ft:=FileType(OpenDialog1.FileName);
    if ft = 'BMP'
    //Åñëè BMP - îïðåäåëÿåì åãî ïîêàçàòåëè
        then
        begin
          GetFileFormat(OpenDialog1.FileName,Strgs,IInfo);
          Image1.Picture.Bitmap.LoadFromFile(OpenDialog1.FileName);
        end
      else if ft = 'JPG'
    //Åñëè JPG - êîíâåðòèðóåì âî âðåìåííûé ôàéë
    //è îïðåäåëÿåì ïîêàçàòåëè âðåìåííîãî ôàéëà
        then begin
          ConvertJPG2BMP(OpenDialog1.FileName, 'tmpfile');
          Image1.Picture.Bitmap.LoadFromFile('tmpfile');
          GetFileFormat('tmpfile',Strgs,IInfo);
        end
      else exit;
 
  end
    else exit;
  
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
OpenDialog1.Filter:='*.txt|*.txt';
if OpenDialog1.Execute then
  begin
  DFile:=OpenDialog1.FileName;
  Memo2.Lines.LoadFromFile(DFile);
  end;
end;
 
 
procedure TForm1.Button3Click(Sender: TObject);
var ft:string;
begin
  if DFile<>''
    then
    begin
      ft:=FileType(IInfo.FileN);
      if ft = 'BMP'
      //Åñëè BMP - âûçûâàåì ïðîöåäóðó ñêðûòèÿ äëÿ èñõîäíîãî èìåíè ôàéëà
        then IHide(IInfo,Dfile,SaveDialog1,RadioGroup1.itemindex)
      else if ft = 'JPG'
      //Åñëè JPG, òî âûçûâàåì ïðîöåäóðó ñêðûòèÿ äëÿ èìåíè âðåìåííîãî ôàéëà
      //è óäàëÿåì ýòîò âðåìåííûé ôàéë
        then begin
          IHide(IInfo, DFile, SaveDialog1, RadioGroup1.itemindex);
          DeleteFile('tmpfile');
        end;
    end
    else MessageBox(handle,'Íå âûáðàí ôàéë äàííûõ!!!','XData Error',MB_ICONERROR);
end;
 
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  OpenDialog1.Filter:='*.bmp|*.bmp';
  if OpenDialog1.Execute
    then IExtract(OpenDialog1.FileName,SaveDialog1,RadioGroup1.itemindex);
end;
 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if FileExists('tmpfile') then DeleteFile('tmpfile');
end;
 
end.