Вшивание информации в растровые рисунки

Delphi , Синтаксис , Шифрование

Оформил: DeeCo

Автор: Юрий Писарев

• Загрузить текстовый файл (секция text, кнопка Open)
• Загрузить понравившиеся рисунки (секция Picture, кнопка Open, можно загружать несколько раз, загруженные ранее картинки не пропадут)
• Выделить нужный рисунок в компоненте TGraphGrid
• При желании, отмасштабировать его (кнопка Resize, масштабирует рисунок в соответствии с его пропорциями)
• Нажать на кнопку Reflect. Через несколько секунд (это если картинка большая, а так - через несколько миллисекунд) в компоненте TGraphGrid появится сгенерированное изображение, созданное на основе выбраной картинки и текстового файла. Новая картинка будет иметь имя "Data".
• Сохранить при необходимости нужный файл изображения, выбрав его в компоненте TDrawGrid и нажав на кнопку Save.

• Загрузить картинку, на основе которой был сделан "слепок"
• Нажать на кнопку Assembly. При этом появится диалоговое окно загрузки изображения и на этот раз Вам надо будет выбрать файл "слепка", т.е. измененную картинку.
• Далее, через некоторое время (в зависимости от количества данных, содержащихся в картинке и размера самой картинки) в компоненте TRichEdit появится этот самый закодированный текст.

Примечание:
Материал Компоненты для работы с графикой раздела Сокровищница

function ReflectData(BaseBitmap, DataBitmap: TBitmap; 
    List: TStrings; 
    Reflection: TReflectionProc; 
    ScatterType: TScatterType; 
    Factor: Integer = 1): TReflectionResult; virtual; 

function AssemblyData(BaseBitmap, DataBitmap: TBitmap; 
    Assembling: TAssemblingProc): Boolean; virtual; 

• BaseBitmap - Базовое изображение, на его основе создается изображение, содержащее информацию
• DataBitmap - Изображение, содержащее информацию
• Reflection - Процедура, которая изменяет соответствующий байт исходного изображения и формирует DataBitmap Эта процедура отвечает за сохранение информации во второй картинке. Но о ней - чуть позже.
• ScatterType - Тип распределения информации Может принимать два значения: stGiven и stEvenly По умолчанию в программе установлено значение stEvenly. Это означает, что вся информация будет равномерно распределена по всей картинке. Если так, то задавать значение следующего параметра Factor не нужно. Если ScatterType установить в stGiven, то распределение информации зависит от коэффициента распределения.
• Factor - Коэффициент распределения. Если параметр ScatterType равен stGiven, то фактически Factor означает через сколько байт то начала картинки (не совсем от начала - первые восемь байт идут на длину записываемого текста и на этот коэффициент) будет вписан следующий код символа текста. В программе этот коэффициент задается в компоненте TEdit.

TReflectionProc = procedure(var Value: Byte; Text: string; Index: Integer); 

• Value - Величина из BaseBitmap. Именно это значение шифруется.
• Text - Текст в виде единой строки.
• Index - Текущий символ в тексте, который должен быть зашифрован. В эой программе код этого символа складывается с параметром Value при зашифровке.

• BaseBitmap - Базовое изображение
• DataBitmap - Изображение, содержащее информацию
• Assembling - Процедура, формирующая текстовые данные

TAssemblingProc = procedure(BaseValue, DataValue: Byte); 

• BaseValue - Текущая величина из BaseBitmap
• DataValue - Текущая величина из DestBitmap

Примечание:
В тексте статьи использовано конвертированное изображение, если Вы хотите получить реальный рисунок в формате BMP, содержащий информацию для вышеописанного конкретного примера, необходимо скачать Image7.zip (162 K)

• Компонент, необходимый для работы программы Crypto_Graph.zip (12 K)
• Программа CryptoGraphy.zip (40 K)

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

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Шифрование ::