Скрытая информация внутри Jpeg

[njn]

В общем стоит задача спрятать какую то информацию (лучше всего архив) внутри файла jpeg. Метод вроде бы довольно простой - спрятать нужно в заголовок, вписать по маркеру (АРР0-АРРn)... как то так. Метод простой, но запрограммировать не могу. Прога нужна на Delphi 7. Может кто то уже делал это?

[Rin]

Зачем тебе это в заголовок писать? Можно прилепить это в конец файла.
В конец файла запишется числа от 48 до 57 (в таблице ASCII это числа от 0 до 9). Если открыть этот файл в блокноте, то увидите в конце числа от 0 до 9.

var
 f:TMemorystream;
 buf:integer;
begin
f:=TMemorystream.Create;
f.LoadFromFile('1.jpg');
f.Seek(f.Size,soBeginning);
for buf := 48 to 57 do
f.Write(buf,1);
f.SaveToFile('1.jpg');
f.Free;

UPD:
Чтобы закатать архив, коТ такой:

	
	
var
 f1,f2:TMemorystream;
 buf:integer;
begin
f1:=TMemorystream.Create;
f2:=TMemorystream.Create;
f1.LoadFromFile('1.jpg');
f2.LoadFromFile('1.rar');
f1.Seek(f1.Size,soBeginning);
f2.Seek(0,soBeginning);
f1.CopyFrom(f2 as TStream,f2.size);
f1.SaveToFile('123.jpg');
f1.Free;
f2.Free;

[njn]

препод сказал пиши в заголовок. вот я и думаю как

[Rin]

Какой размер инфы нужно записать?

[njn]

ну хотя бы 30 кб

[Rin]

Почитайте. Создаем новый поток, копируем в него побайтно наш файл из другого потока, пока не наткнемся на FF E0,.., FF EF. Дальше, можете оставить записанные APP или записать свои. Проще просто записать свои. Структура APP приведена в статье. Не забудьте, что длина данных для одного APP=2 байта длины + данные, и не может превышать 65535 байт. Записываем в новый поток FF E0, потом длину, потом ваши данные. Если не помещается, то прописываем новый APP, длину, и опять данные. Заметьте, что запихнуть сможете приблизительно 1 Мб, использовав все APPn, но не более.
После в потоке, в котором находится файл, считываем APPn, длину, перескакиваем данные. Как только, перескочив данные APP старого файла, мы увидим 2 байта, не похожие на FF En, начинаем запись в новый поток.
Вот как-то так.

[njn]

можно с Вами как то связаться? по аське или в скайпе? вот мой qip:635777573

[Rin]

Вы лучше сюда пишите. Пусть будет общедоступно.

[njn]

мне программу нужно сделать, я готов заплатить а потом хоть всю дипломную в паблик выложить

[artemavd]

...а потом хоть всю дипломную в паблик выложить

...потому что не сам делал и ничего не знаешь и чтобы в голове вообще ничего не осталось.