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

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;
 
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; 
 
Function FirstEight(Str:String):String;
Var
i:SmallInt;
Begin
For i:=1 To 8 Do
Result:=Result+Str[i];
End;
 
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;
 
procedure TForm1.Button1Click(Sender: TObject);//Кнопка открыть файл
Begin
FileName:='';
OpenDialog1.Filter:='Все файлы (* . *)';
If OpenDialog1.Execute Then
FileName:=OpenDialog1.FileName;
End;
 
procedure TForm1.Button2Click(Sender: TObject);//Кнопка спрятать текст
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);//Если бит равен 1 то после пробела пишем пробел
'0':Insert('',RecString,i+1);//Если бит равен 0 то ничего не пишем
End;
Inc(k);//Увеличиваем k на 1 чтобы обработать следущий бит информации
End;
End;
WriteLn(MY_OUT_FILE,RecString); //Записываем обработанную строку в файл
End;
CloseFile(MY_OUT_FILE); //Закрываем файл-контейнер
CloseFile(MY_IN_FILE); //Закрываем файл-контейнер с спрятанным сообщением
ShowMessage('Строка спрятана'); //Выводим сообщение о завершении работы
End;
 
procedure TForm1.Button3Click(Sender: TObject);//Кнопка извлечь текст
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;