Исследование стеганографических алгоритмов защиты информации
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
larations }
{ Public declarations };: TfrmIzvlechMessage;
{$R *.dfm}TfrmIzvlechMessage.bbOpenIsxodClick(Sender: TObject);.FileName:='';.Execute();diagOpenPict.FileName0) then:=0;.Write(sim_b,2);
//text:=text+chr(sim_b);;(pict_bmp.Canvas.Pixels[i,j] and (1 shl 0))0) then:=0;.Write(sim_b,2);
//text:=text+chr(sim_b);;(pict_bmp.Canvas.Pixels[i,j] and (1 shl 1))0) then:=0;.Write(sim_b,2);
//text:=text+chr(sim_b);;(pict_bmp.Canvas.Pixels[i,j] and (1 shl 2))<>0 then_b:=sim_b or (1 shl nb)_b:=sim_b and not (1 shl nb);:=nb+1;;
//mmMessage.Text:=text;.Seek(0,soFromBeginning);.Lines.LoadFromStream(data);(pict_bmp);;TfrmIzvlechMessage.FormShow(Sender: TObject);.Text:='';.Text:='';.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Question.bmp');;.frmMain: TfrmMain= 0= 0= [biSystemMenu, biMinimize]= #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= 155= 419= clBtnFace.Charset = RUSSIAN_CHARSET.Color = clWindowText.Height = -16.Name = 'Palatino Linotype'.Style = [fsBold, fsItalic]= False= poDesktopCenter= (
)= 96= 21butIzo: TButton= 8= 8= 401= 28= [akLeft, akRight]= #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' '= 0= butIzoClickbutInfoIzo: TButton= 8= 45= 401= 28= [akLeft, akRight]= #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 '= 1= True= butInfoIzoClickbutStegoIzo: TButton= 8= 79= 401= 28= [akLeft, akRight]= #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= 2= butStegoIzoClickbutStegoInfoIzo: TButton= 8= 116= 401= 28= [akLeft, akRight]= #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 '= 3= True= butStegoInfoIzoClick
unMainForm;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, unIzo, unIzvlechMessage, unInfoIzo;= class(TForm): TButton;: TButton;: TButton;: TButton;butIzoClick(Sender: TObject);butStegoIzoClick(Sender: TObject);butInfoIzoClick(Sender: TObject);butStegoInfoIzoClick(Sender: TObject);
{ Private declarations }
{ Public declarations };: TfrmMain;
{$R *.dfm}TfrmMain.butInfoIzoClick(Sender: TObject);.Tag:=0;.butStartStego.Caption:='Спрятать сообщение';
frmIzoInfo.Label1.Caption:='Сообщение для сокрытия:';.Caption:='Спрятать сообщение в информации к файлу';
frmIzoInfo.ShowModal;;TfrmMain.butIzoClick(Sender: TObject);.ShowModal;;TfrmMain.butStegoInfoIzoClick(Sender: TObject);.Tag:=1;.butStartStego.Caption:='Получить сообщение';.Label1.Caption:='Сообщение:';
frmIzoInfo.Caption:='Получить сообщение из информации к файлу';
frmIzoInfo.ShowModal;;TfrmMain.butStegoIzoClick(Sender: TObject);.ShowModal;;.frmSravnenie: TfrmSravnenie= 0= 0= bsDialog= #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= 350= 700= clBtnFace.Charset = DEFAULT_CHARSET.Color = clWindowText.Height = -11.Name = 'Tahoma'.Style = []= False= poDesktopCenter= 96= 13imIsxod: TImage= 0= 0= 350= 350= alLeftimStego: TImage= 350= 0= 350= 350= alClient= 337= 380
unSravnenie;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls;= class(TForm): TImage;: TImage;
{ Private declarations }
{ Public declarations };: TfrmSravnenie;
{$R *.dfm}.