Стеганография. метод 2.

[Dasha1610]

необходим контейнер с большим количеством пробелов. (минимум 15 строк с 8 пробелами в каждой)
После прочтения файла с информацией для сокрытия и сфрмировав двоичную цепочку, начинаем чтение файла-контейнера по строкам. Как только встречаем пробел, анализируем символ из двоичной последовательности. если он 1, то пробел в строке удваивается, если ноль то ничего не меняем. когда строка ф-к заканчивается, записываем измененную строку в третий файл, считываем из ф-к новую строку и тд, пока не закончится цепочка из нулей и единиц.
и соответственно раскодировка.

[Serge_Bliznykov]

Даша, в вашей прошлой теме в файл-контейнер пробелы добавлялись в конец строки согласно тому же самому двоичному представлению. Эта задача ничем принципиальным от той не отличается. Если Вы предыдущую задачу разобрали, то и эту легко сделаете!

Успехов.

[Dasha1610]

окей)спасибо разобралась) а еще 3 метод есть с ним вот проблемы.(
там нужно буквы русские на английкие как то заменять..

[DiemonStar]

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

окей)спасибо разобралась) а еще 3 метод есть с ним вот проблемы.(
там нужно буквы русские на английкие как то заменять..

сделайте таблицу замены и по смещению кода символа в таблице проводите замену.

[Dasha1610]

сделайте таблицу замены и по смещению кода символа в таблице проводите замену.

ага..если бы я еще знала что такое эта таблица)))было бы здорово вообще))

[Dasha1610]

program e1;
uses crt;
Label 1, 2;
var F:file of byte; b:byte; i,k:integer;
    C:Integer;B1:Integer;s:String;
    F1:text;sf1:string;
    FF,FO:text;sf:string;
begin
clrscr;

Assign(F,'SECRET.txt');
                              Assign(FO,'DVO.txt');
Reset(F);                     Rewrite(FO);
while not eof(F) do
  begin
  Read(F,b);
S:='';
B1:=b;
2: C:= b Div 2;
If b-C*2 = 0 Then S := '0'+S;
If b-C*2 = 1 Then S := '1'+S;
If C<1 Then Goto 1;
b:=C;
Goto 2;
1: Write ('0',s) ;write;  Write(FO,'0'+s);
end;

Assign(F1,'CONT2.txt');
Assign(FF,'POL2.txt');
Reset(F1);
Rewrite(FF);
reset(FO);

 for i:=1 to length(sf1) do begin
   for k:=1 to 24  do  begin
 Readln(F1,sf1);
 Readln(FO,s);
 if sf1[i]=' ' then begin
    if s[k]='1' then begin sf1[i]:=' '+'_'; writeln(FF,sf1);end;
                                end; end;

close(F);
Close(F1);
Close(FF);
Close(FO);
Readln;

End.

как правильно цыкл записать? а то че т не получается(