Стеганография (сообщение спрятать в текстовом файле)

[Dasha1610]

Есть текст и в нем надо скрыть некоторую фразу(ABC), состоящую из букв. Буквы этой фразы представляются как байты. Эти байты надо разбить на биты.
Текст, в котором будет прятаться сообщение, должен иметь много строчек (как стихотворение). Мы должны разбить скрываемый текст на биты. И если очередной бит скрываемой информации равен единице, то в конец очередной строки текста-контейнера дописываем пробел. Если же бит равен нулю, то в конец строки не пишем пробел.
После шифрования, шифровку надо будет обратно раскодировать.

что это вообще такое и как эту программу написать в паскале?((

[Serge_Bliznykov]

это несложно. только учтите, что для кодирования одной буквы текста (допустим, что один символ занимает 1 байт) нужно 8 бит -> 8 строчек в текстовом файле.
(для кодирования фразы из 3-х символов в исходном файле должно быть 24 строки и т.д.)

что у Вас конкретно не получается?

[DiemonStar]

И не забудьте, что в тексте-контейнере изначально не должно быть пробелов в конце слова, иначе декодирование может быть ошибочным.

[ImmortalAlexSan]

И это называется не "стенография", а "стеганография" -Совсем разные понятия

[Serge_Bliznykov]

Сообщение от ImmortalAlexSan

И это называется не "стенография", а "стеганография" -Совсем разные понятия

ну разумеется!

я подправил название темы.

[Dasha1610]

блин я даже не правильно написала название. капец)

что у Вас конкретно не получается?

я вообще не предстваляю как писать программу. то есть мы это на паре вообще не делали мне просто дали вот текст с заданием и все((
знаю только то что нужно создать файл .txt с текстом(где много строчек=стих) и потом как то его вызывать через паскаль :D

[Вадим Мошев]

Сообщение от DiemonStar

И не забудьте, что в тексте-контейнере изначально не должно быть пробелов в конце слова, иначе декодирование может быть ошибочным.

Ну, если чуть подумать, то может быть всё хорошо, например перед кодированием запоминать число пробелов в конце строки, при декодировании этой информацией пользоваться...

[Dasha1610]

это канечно все очень здорово.но я вот не знаю как зашифровать даже как этот пробел дописывать...а...жэсть...пожалуйста сделайтее..я даже заплатить уже готова.(

[DiemonStar]

Шифруется примерно такой процедурой:

procedure Encode(S: String);
var T1 : Text; 
     I, J : Integer;
begin
   assign(T1, "text.txt");
   assign(T2, "code.txt");
   reset(T1);rewrite(T2);
   for I := 1 to Length(S)*8 do
     if not Eof(T1) then
       begin
          readln(T1, S1);
          while S1[lengh(S1)] = " " do
            delete(S1, lengh(S1), 1);
          J :=  1 shl (I mod 8);
          if ord(S[I div 8]) and J <>  0 then
            S1 := S1 + ' ';
          writeln(T2,S1);
       end
     else
       begin 
          break;
          writeln("Small input file");
       end;
   close(T1);close(T2);
end;

А расшифровывается - такой:

procedure Decode(var S: String);
var T1, T2 : Text; 
     I, J : Integer;
begin
   assign(T1, "code.txt");
   reset(T1);
   J := 0; I := 0; S := "";
   if not Eof(T1) then
     begin
        readln(T1, S1);
        if S1[Length(S1)] = " " then
          J :=  J shr 1 + 128
         else
          J := J shr 1;
        inc(I);
        If I mod 8 = 0 then
          begin
             S := S + chr(J);
             J := 0;
          end; 
     end;
   close(T1);
end;

з.ы. код не проверял - по-памяти наваял, так что его нужно отлаживать)

[Serge_Bliznykov]

ну, тогда и я свой пример кода кину...

чтобы был выбор...

полностью исходники + программа в архиве.

ну и исходники продублирую в тексте сообщения:

program co_dec;
const
  fNameIn = 'stihi.txt'; {имя файл из которого будет браться отвлекающая информация}
  fNameOut = 'stihi_co.txt'; {имя файл в который будет сохраняться закодированная информация}
var
  fIn, fOut : text;
  i, j, cnt : integer;
  OneSymbol : byte;
  sIn, s, sOne : string;
  choice : integer;
begin
  WriteLn('Стенография. Программа кодирования-декодирования. v1.0 (c) 2012');
  WriteLn;

  Assign(fIn, fNameIn);
  Assign(fOut, fNameOut);

  repeat
    WriteLn('Введите, что Вы хотите сделать (число): 0-выйти из программы, 1-кодировать сообщение, 2-декодировать.');
    Readln(choice);
  until (choice>=0) and (choice<=2);

  case choice of
    0: WriteLn('Окончание работы по запросу оператора.');
    1: begin
          WriteLn('Выбран режим кодирования');
          WriteLn('Введите строку для кодирования: ');
          Readln(sIn);
          WriteLn('Обработка файла ', fNameIn,
            ' результат будет помещён в файл ', fNameOut);

          Reset(fIn);
          {сначала проверим, что количество строк в исходном файле достаточно для кодирования}
          cnt:=0;
          while (cnt<=(Length(sIn)*8)) and (Not EOF(fIn)) do
          begin
            Readln(fIn);
            inc(cnt);
          end;
          Close(fIn);

          if cnt<=(Length(sIn)*8) then begin
            WriteLn('Недосточно строк в исходной файле!');
            WriteLn('Обнаружено ',cnt,' строк, а необходимо не менее ', 1+Length(sIn)*8);
          end
          else begin
            Reset(fIn);
            Rewrite(fOut);
            for i:=1 to Length(sIn) do begin
              OneSymbol := ord(sIn[i]);
              for j:=1 to 8 do begin
                ReadLn(fIn, s);

                {удалим все пробелы в конце строки}
                while ( Length(s)>0 ) and (s[Length(s)]=' ') do Delete(s,Length(s),1);

                {если крайний бить = 1 - то добавим в конец строки пробел}
                if (OneSymbol and 1) = 1 then s:= s+' ';

                WriteLn(fOut, s);

                {сдвинем байт символа вправо - чтобы в следующей итерации обработать следующий бит}
                OneSymbol := OneSymbol shr 1;

              end;
            end;
            ReadLn(fIn, s);
            {удалим все пробелы в конце строки}
            while ( Length(s)>0 ) and (s[Length(s)]=' ') do Delete(s,Length(s),1);

            {запишем в конец строки ДВА пробела - это признак окончания стеганотекста в обычном тексте}
            s:= s+'  ';
            WriteLn(fOut, s);

            {теперь просто скопируем всё, что осталось из первого файла во второй - допишем остаток файла}
            while Not EOF(FIn) do begin
              ReadLn(fIn, s);
              WriteLn(fOut, s);
            end;

            {закроем файлы}
            Close(fOut);
            Close(fIn);

            WriteLn('Процесс кодирования успешно завершён.');

          end;



       end;

    2: begin
        WriteLn('Выбран режим декодирования. Декодируется информация из файла ',fNameOut);

        sIn := '';  {строка, куда будем собирать декодированные байты. вначале пустая!}

        Reset(fOut);
        i:= 0;
        OneSymbol := 0;

        while Not EOF(FOut) do begin
           Readln(fOut, s);
           if Length(s)>=2 then
               {если в конце строки ДВА пробела - то всё, конец декодирования.
                обнаружен признак завершения стеганотекста}
             if copy(s,Length(s)-1,2)='  '
               then Break;
           inc(i);
           if (Length(s)>0) and (Copy(s, Length(s),1)=' ') then OneSymbol := OneSymbol or $80;
           if i=8 then begin
             sIn := sIn + chr(OneSymbol);
             i:=0;
             OneSymbol := 0;
           end
           else OneSymbol := OneSymbol shr 1;
        end;
        WriteLn('Обнаруженный скрытый текст: ', sIn);
        WriteLn;

        WriteLn('Процесс декодирования успешно завершён.');

       end;
  end;

  Readln; {ожидание нажатия Enter для закрытия окна программы...}
end.