Исследование стеганографических алгоритмов защиты информации
Классическое, компьютерное и цифровое направления стенографии. Использование зарезервированных полей компьютерных форматов файлов. Алгоритмы встраивания скрытой информации. Стеганография и цифровые водяные знаки. Документация программного продукта.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 22.06.2011 |
| Размер файла | 37,7 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
begin
if (data.Size=sizeofdata)and(nb mod 16 =0) then break;
if (nb mod 16 =0)and(nb<>0) then
begin
nb:=0;
data.Write(sim_b,2);
//text:=text+chr(sim_b);
end;
if (pict_bmp.Canvas.Pixels[i,j] and (1 shl 0))<>0 then
sim_b:=sim_b or (1 shl nb)
else
sim_b:=sim_b and not (1 shl nb);
nb:=nb+1;
if (data.Size=sizeofdata)and(nb mod 16 =0) then break;
if (nb mod 16 =0)and(nb<>0) then
begin
nb:=0;
data.Write(sim_b,2);
//text:=text+chr(sim_b);
end;
if (pict_bmp.Canvas.Pixels[i,j] and (1 shl 1))<>0 then
sim_b:=sim_b or (1 shl nb)
else
sim_b:=sim_b and not (1 shl nb);
nb:=nb+1;
if (data.Size=sizeofdata)and(nb mod 16 =0) then break;
if (nb mod 16 =0)and(nb<>0) then
begin
nb:=0;
data.Write(sim_b,2);
//text:=text+chr(sim_b);
end;
if (pict_bmp.Canvas.Pixels[i,j] and (1 shl 2))<>0 then
sim_b:=sim_b or (1 shl nb)
else
sim_b:=sim_b and not (1 shl nb);
nb:=nb+1;
end;
//mmMessage.Text:=text;
data.Seek(0,soFromBeginning);
mmMessage.Lines.LoadFromStream(data);
FreeAndNil(pict_bmp);
end;
procedure TfrmIzvlechMessage.FormShow(Sender: TObject);
begin
edIsxodDir.Text:='';
mmMessage.Text:='';
imIsxodIzo.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Question.bmp');
end;
end.
object frmMain: TfrmMain
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
Caption = #1057#1090#1077#1075#1072#1085#1086#1075#1088#1072#1092#1080#1103' '#1089' '#1080#1079#1086#1073#1088#1072#1078#1077#1085#1080#1077#1084
ClientHeight = 155
ClientWidth = 419
Color = clBtnFace
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Palatino Linotype'
Font.Style = [fsBold, fsItalic]
OldCreateOrder = False
Position = poDesktopCenter
DesignSize = (
419
155)
PixelsPerInch = 96
TextHeight = 21
object butIzo: TButton
Left = 8
Top = 8
Width = 401
Height = 28
Anchors = [akLeft, akRight]
Caption = #1057#1087#1088#1103#1090#1072#1090#1100' '#1089#1086#1086#1073#1097#1077#1085#1080#1077' '#1074' '#1080#1079#1086#1073#1088#1072#1078#1077#1085#1080#1080' '
TabOrder = 0
OnClick = butIzoClick
end
object butInfoIzo: TButton
Left = 8
Top = 45
Width = 401
Height = 28
Anchors = [akLeft, akRight]
Caption = #1057#1087#1088#1103#1090#1072#1090#1100' '#1089#1086#1086#1073#1097#1077#1085#1080#1077' '#1074' '#1080#1085#1092#1086#1088#1084#1072#1094#1080#1080' '#1092#1072#1081#1083#1072' JPEG '
TabOrder = 1
WordWrap = True
OnClick = butInfoIzoClick
end
object butStegoIzo: TButton
Left = 8
Top = 79
Width = 401
Height = 28
Anchors = [akLeft, akRight]
Caption = #1048#1079#1074#1083#1077#1095#1100' '#1089#1086#1086#1073#1097#1077#1085#1080#1077' '#1080#1079' '#1080#1079#1086#1073#1088#1072#1078#1077#1085#1080#1103
TabOrder = 2
OnClick = butStegoIzoClick
end
object butStegoInfoIzo: TButton
Left = 8
Top = 116
Width = 401
Height = 28
Anchors = [akLeft, akRight]
Caption = #1048#1079#1074#1083#1077#1095#1100' '#1089#1086#1086#1073#1097#1077#1085#1080#1077' '#1080#1079' '#1080#1085#1092#1086#1088#1084#1072#1094#1080#1080' '#1092#1072#1081#1083#1072' JPEG '
TabOrder = 3
WordWrap = True
OnClick = butStegoInfoIzoClick
end
end
unit unMainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, unIzo, unIzvlechMessage, unInfoIzo;
type
TfrmMain = class(TForm)
butIzo: TButton;
butInfoIzo: TButton;
butStegoIzo: TButton;
butStegoInfoIzo: TButton;
procedure butIzoClick(Sender: TObject);
procedure butStegoIzoClick(Sender: TObject);
procedure butInfoIzoClick(Sender: TObject);
procedure butStegoInfoIzoClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
implementation
{$R *.dfm}
procedure TfrmMain.butInfoIzoClick(Sender: TObject);
begin
frmIzoInfo.Tag:=0;
frmIzoInfo.butStartStego.Caption:='Спрятать сообщение';
frmIzoInfo.Label1.Caption:='Сообщение для сокрытия:';
frmIzoInfo.Caption:='Спрятать сообщение в информации к файлу';
frmIzoInfo.ShowModal;
end;
procedure TfrmMain.butIzoClick(Sender: TObject);
begin
frmIzo.ShowModal;
end;
procedure TfrmMain.butStegoInfoIzoClick(Sender: TObject);
begin
frmIzoInfo.Tag:=1;
frmIzoInfo.butStartStego.Caption:='Получить сообщение';
frmIzoInfo.Label1.Caption:='Сообщение:';
frmIzoInfo.Caption:='Получить сообщение из информации к файлу';
frmIzoInfo.ShowModal;
end;
procedure TfrmMain.butStegoIzoClick(Sender: TObject);
begin
frmIzvlechMessage.ShowModal;
end;
end.
object frmSravnenie: TfrmSravnenie
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = #1048#1089#1093#1086#1076#1085#1086#1077' '#1080#1079#1086#1073#1088#1072#1078#1077#1085#1080#1077' '#1080' '#1080#1079#1086#1073#1088#1072#1078#1077#1085#1080#1077' '#1089' '#1089#1086#1086#1073#1097#1077#1085#1080#1077#1084
ClientHeight = 350
ClientWidth = 700
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
PixelsPerInch = 96
TextHeight = 13
object imIsxod: TImage
Left = 0
Top = 0
Width = 350
Height = 350
Align = alLeft
end
object imStego: TImage
Left = 350
Top = 0
Width = 350
Height = 350
Align = alClient
ExplicitLeft = 337
ExplicitWidth = 380
end
end
unit unSravnenie;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TfrmSravnenie = class(TForm)
imIsxod: TImage;
imStego: TImage;
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmSravnenie: TfrmSravnenie;
implementation
{$R *.dfm}
end.
Размещено на Allbest.ru
Подобные документы
Основные понятия и определения стеганографии. Методы сокрытия данных и сообщений, цифровые водяные знаки. Атаки на стегосистемы и методы их предупреждения. Технологии и алгоритмы стеганографии. Работа с S-Tools. Особенности специальной программы.
контрольная работа [2,2 M], добавлен 21.09.2010Понятие и юридическая природа цифровых произведений. Рассмотрение способов защиты авторских прав для мультимедийной информации (шифрование, защита носителей, электронные ключи, цифровые водяные знаки). Характеристика видов цифровых произведений.
курсовая работа [48,3 K], добавлен 29.01.2010Понятие и сущность стеганографии, использование свойств формата файла-контейнера. Классификация методов стеганографии. Компьютерные вирусы и стеганография, гарантированное уничтожение информации. Методы воздействия на средства защиты информации.
контрольная работа [80,2 K], добавлен 02.01.2018Проблема защиты информации от несанкционированного доступа, основные направления ее решения (криптография и стеганография). Методы классической и цифровой стеганографии, стегосистемы. Классификация методов компьютерной стеганографии и их характеристика.
курсовая работа [332,3 K], добавлен 26.11.2013Создание работоспособного приложения, обеспечивающего сокрытие информации произвольного размера в файле формата JPEG и доступ к уже имеющейся информации. Определение основных понятий стеганографии. Структура файла формата JPEG. Метод сокрытия данных.
курсовая работа [57,5 K], добавлен 30.03.2009Описание промышленных компьютерных сетей. Анализ файлов, передаваемых по ним и общие требования к реализуемой библиотеке. Архитектура и уровни интерфейса библиотеки, принципы реализации алгоритмов исполняемых и неисполняемых структурированных файлов.
дипломная работа [883,5 K], добавлен 12.08.2017Принципы компьютерной стеганографии. Классификация методов сокрытия информации. Популярность метода замены наименьшего значащего бита. Сущность методов расширения палитры и блочного сокрытия. Применение методов в GIF изображениях. Реализация алгоритмов.
курсовая работа [589,7 K], добавлен 17.02.2013Способы и средства защиты информации от несанкционированного доступа. Особенности защиты информации в компьютерных сетях. Криптографическая защита и электронная цифровая подпись. Методы защиты информации от компьютерных вирусов и от хакерских атак.
реферат [30,8 K], добавлен 23.10.2011Понятие об информации. Информатика, краткая история информатики. Информация аналоговая и цифровая. Аналого-цифровое преобразование, устройства аналоговые и цифровые. Понятие о кодировании информации. Хранение цифровой информации. Бит.
реферат [68,9 K], добавлен 23.11.2003Современные методы защиты информации средствами стеганографии. Анализ канала передачи сообщений, подходы к реализации стеганографического приложения. Алгоритмы методов последнего бита и передачи сообщений через стегоканал; ограничения его использования.
курсовая работа [105,7 K], добавлен 05.11.2011
