Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.11.2009, 11:01   #1
virik
 
Регистрация: 18.11.2009
Сообщений: 4
Восклицание

Уважаемые форумчане дали задание на лабораторную , сделал с другом набросок, ! буду благодарен за любую помощь или советы!!!! Заранее спасибо!

Разработать программное средство сокрытия информации в цифровом контейнере (bmp - формат). Программное средство должно выполнять следующие функции:
- выбор файла - контейнера;
- выбор ключа;
- представление текста в двоичном виде;
- побитовое сокрытие информации в файле контейнере методом LSB;
- восстановление информации из файла - контейнера.


НАБРОСОК но препод говорит не то.

Код:
PROGRAM HOUS;
VAR A:STRING;
I,F,G:BYTE;
E:ARRAY [1..8] OF BYTE;
R,P:FILE OF BYTE;

BEGIN
ASSIGN (R, 'D:\HOUS.BMP');
ASSIGN (P, 'D:\HOUS2.BMP');
REWRITE (P);
RESET (R);
A:='VVELI VVICHLI';
T:ARRAY [1..1024] OF BYTE
FOR I:=1 TO LENGTH (A) DO
BEGIN
F:=ORD(A[I]);
E[1]:=0;
E[2]:=0;
E[3]:=0;
E[4]:=0;
E[5]:=0;
E[6]:=0;
E[7]:=0;
E[8]:=0;
G:=0;
WHILE F>=2 DO
BEGIN
E[G]:=F MOD 2;
F:=F DIV 2;
WRITE (E[G]);
G:=G+1;
END;

END;
CLOSE (P);
CLOSE (R);
END.
ПРЕПОД говорит про какой то ключ а его не понимаю!

Последний раз редактировалось Stilet; 26.11.2009 в 11:06.
virik вне форума Ответить с цитированием
Старый 23.11.2009, 11:07   #2
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

пользуемся поиском 1 2
кроме того есть самое простое- присоединить через "copy" (гляньте параметры командной строки)
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 25.11.2009, 10:29   #3
virik
 
Регистрация: 18.11.2009
Сообщений: 4
По умолчанию

спасибо попробую разобраться

блин не знаю чет не получается! а сколько будет стоить помощь в написании проги????

Последний раз редактировалось Stilet; 25.11.2009 в 14:54.
virik вне форума Ответить с цитированием
Старый 25.11.2009, 14:10   #4
JTG
я получил эту роль
Старожил
 
Аватар для JTG
 
Регистрация: 25.05.2007
Сообщений: 3,694
По умолчанию

LSB (Least Significant Bit) это когда сообщение разбивается на биты и "размазывается" по пикселям рисунка
Например, есть сообщение "TEST" и рисунок (6х6 пикселей, 256 оттенков серого, залитый белым для простоты)
Код:
T        E        S        T
54h      45h      53h      54h        
01010100 01000101 01010011 01010100

рисунок
FF FF FF FF FF FF 
FF FF FF FF FF FF
FF FF FF FF FF FF
FF FF FF FF FF FF
FF FF FF FF FF FF
FF FF FF FF FF FF
После этого старший бит каждого пикселя рисунка заменяется на бит сообщения:
если 0, то цвет FF(11111111) станет FE(11111110),
если 1 - то ничего не изменится
Код:

FE FF FE FF FE FF
FE FE FE FF FE FE
FE FF FE FF FE FF
FE FF FE FE FF FF
FE FF FE FF FE FF
FE FE FF FF FF FF
Таким образом 4 байт информации скроется в 32 пикселях картинки, при этом невооружённым глазом никакой разницы не будет заметно

На делфях вот есть
http://www.abc-it.lv/index.php/id/985
http://www.google.com/codesearch/p?h...ganography.pas
пыщь
JTG вне форума Ответить с цитированием
Старый 25.11.2009, 20:28   #5
virik
 
Регистрация: 18.11.2009
Сообщений: 4
По умолчанию

спасибо щас посмотрю!!! буду думать!!!

посмотрел подумал!!! да меня препод выгонит скажет что не сам делал!!!!
такой вопрос а проще это ни как не реализовывается???

Последний раз редактировалось Stilet; 26.11.2009 в 11:07.
virik вне форума Ответить с цитированием
Старый 09.12.2009, 21:55   #6
virik
 
Регистрация: 18.11.2009
Сообщений: 4
По умолчанию

спасибо кто советовал сделал сдал!!!!
virik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
У кого какая система хранения на собственном компе данных grenles Свободное общение 31 25.10.2009 06:34
Программы для обнаружения цифровых водяных знаков Mar Безопасность, Шифрование 2 09.12.2008 17:10
Удаление гласных, согласных, цифровых символов в строке <zeroql> Паскаль, Turbo Pascal, PascalABC.NET 9 27.11.2008 08:05
Система мониторинга: Отправка данных+Прием+Обработка+Просмотр Руслан Сагитов Помощь студентам 4 13.10.2008 17:44
счет цифровых и буквенных данных из ячейки R2D3 Microsoft Office Excel 0 09.10.2008 08:47