Исследование стеганографических алгоритмов защиты информации
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
>FF7FFF7F787BEA76A076E076027B027BE276E27AA26E435EA36AA072
FFF7FFF7FDD7FA476A076E276027B027B027BE276027BC272425E8462C076ABD7BFF7FDD7FC376E076027B027B027B027B227F227F4266635E6356C36E
ECF66FF7FDD7FC376C076027B027B027B227F027B826A43626362835EE372A435EDE7BBC7BC376C076E276027B227FC2724366445EA366C26E027BE27AA606AAD66BC7FC372C076E276227FA26E235A8562A46AE276027BE276C276
BA072255EBC7FC372A072027BC072025E465AA366027F017BA072A072E172
A65667977BC7FC376C072806E456A465E8362E276C076406AED72077B606AABC7BFF7FDB7F80724066F06EDE7B4F7B8072606E64665673FF7FFD7F977BFFF7FFF7FFD7FED763673FF7FFF7FDC7F0D7BCD6EBC7BFF7FFF7FFF7FFF7FFFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFF7FFF7F}= False= 4= bbOpenIsxodClickedStegoDir: TEdit= 261= 8= 188= 21= 5= edStegoDirDblClickbbOpenStego: TBitBtn= 445= 8= 21= 21= True.Data = {
D4202000000000000420000002800000010000000100000000100
E0000202E00000000000000000000007C0000E003
F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FBB7BFF7FFF7FFFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F977FA76E42666A318E2DAFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FBC7FED76A0764062606A60450000
C31BD77FF7FFF7FFF7FFF7FDE7F307BA376806EE176A26A235A227F2031
FF7FFF7FFF7F557BC676A072C076E276E276A26E0356037B6066
FF7FFF7F787BEA76A076E076027B027BE276E27AA26E435EA36AA072
FFF7FFF7FDD7FA476A076E276027B027B027BE276027BC272425E8462C076ABD7BFF7FDD7FC376E076027B027B027B027B227F227F4266635E6356C36E
ECF66FF7FDD7FC376C076027B027B027B227F027B826A43626362835EE372A435EDE7BBC7BC376C076E276027B227FC2724366445EA366C26E027BE27AA606AAD66BC7FC372C076E276227FA26E235A8562A46AE276027BE276C276
BA072255EBC7FC372A072027BC072025E465AA366027F017BA072A072E172
A65667977BC7FC376C072806E456A465E8362E276C076406AED72077B606AABC7BFF7FDB7F80724066F06EDE7B4F7B8072606E64665673FF7FFD7F977BFFF7FFF7FFD7FED763673FF7FFF7FDC7F0D7BCD6EBC7BFF7FFF7FFF7FFF7FFFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFF7FFF7F}= False= 6= bbOpenStegoClickdiagOpenPict: TOpenPictureDialog=
'All (*.jpg;*.bmp)|*.jpg;*.bmp|JPEG Image File (*.jpg)|*.jpg|Bitm' +
'aps (*.bmp)|*.bmp'= 224= 8diagSavePict: TSavePictureDialog= '.bmp'= 'Bitmaps (*.bmp)|*.bmp'= 224= 56
unIzo;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, Mask, Buttons, ExtDlgs, JPEG, unSravnenie;= class(TForm): TImage;: TImage;: TButton;: TLabel;: TMemo;: TButton;: TOpenPictureDialog;: TEdit;: TBitBtn;: TEdit;: TBitBtn;: TSavePictureDialog;FormCreate(Sender: TObject);edIsxodDirDblClick(Sender: TObject);edStegoDirDblClick(Sender: TObject);bbOpenIsxodClick(Sender: TObject);bbOpenStegoClick(Sender: TObject);FormShow(Sender: TObject);butStartStegoClick(Sender: TObject);butSravnClick(Sender: TObject);
{ Private declarations }
{ Public declarations };: TfrmIzo;:boolean;
{$R *.dfm}TfrmIzo.bbOpenIsxodClick(Sender: TObject);pict_jpg:TJPEGImage;.FileName:='';.Execute();diagOpenPict.FileName'' then.Text:=diagSavePict.FileName;;TfrmIzo.butSravnClick(Sender: TObject);stego=false then exit;.imIsxod.Picture:=imIsxodIzo.Picture;.imStego.Picture:=imStegoIzo.Picture;.ShowModal;;TfrmIzo.butStartStegoClick(Sender: TObject);i,j,l,ns,nb:integer;_jpg:TJPEGImage;_bmp:TBitmap;_word:word;
//q:int64;:TStream;edIsxodDir.Text='' then(Application.Handle,'Не указан путь исходного изображения.', 'Error', MB_OK or MB_ICONERROR);;;edStegoDir.Text='' then(Application.Handle,'Не указан путь конечного изображения.', 'Error', MB_OK or MB_ICONERROR);;;
//showmessage(copy(diagOpenPict.FileName, length(diagOpenPict.FileName)-3,4));copy(diagOpenPict.FileName, length(diagOpenPict.FileName)-3,4)='.jpg' then_jpg:=TJPEGImage.Create;_jpg.LoadFromFile(diagOpenPict.FileName);_bmp:=TBitmap.Create;_bmp.Assign(pict_jpg);(pict_jpg);_bmp:=TBitmap.Create;_bmp.LoadFromFile(diagOpenPict.FileName);;
{if pict_bmp.Width*pict_bmp.Height*sizeof(integer)<length(Text)*2 then(Application.Handle,'Данное сообщение невозможно спрятать в этом изображении.', 'Error', MB_OK or MB_ICONERROR);;;}:=0;:=1;:=0;_word:=ord(mmMessage.Text[ns]);
//showmessage(IntToHex(sim_word,4));:=TMemoryStream.Create;.Lines.SaveToStream(data);.Seek(0,soFromBeginning);.Read(sim_word,2);(pict_bmp.Width*pict_bmp.Height-2)*sizeof(integer)0) then:=ns+1;.Read(sim_word,2);:=0;;
//showmessage(inttostr(ord(mmMessage.Text[ns]))+' '+chr(ord(mmMessage.Text[ns])));(sim_word and (1 shl nb))0 then_bmp.Canvas.Pixels[pict_bmp.Width-1,pict_bmp.Height-1]:=pict_bmp.Canvas.Pixels[pict_bmp.Width-1,pict_bmp.Height-1] or (1 shl i)_bmp.Canvas.Pixels[pict_bmp.Width-1,pict_bmp.Height-1]:=pict_bmp.Canvas.Pixels[pict_bmp.Width-1,pict_bmp.Height-1] and not (1 shl i);;_bmp.SaveToFile(edStegoDir.Text);.Picture.Assign(pict_bmp);(pict_bmp);(data);:=true;;TfrmIzo.edIsxodDirDblClick(Sender: TObject);.Click;;TfrmIzo.edStegoDirDblClick(Sender: TObject);.Click;;TfrmIzo.FormCreate(Sender: TObject);.InitialDir:=ExtractFilePath(Application.ExeName);.InitialDir:=ExtractFilePath(Application.ExeName);
//diredIsxod.;TfrmIzo.FormShow(Sender: TObject);.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Question.bmp');.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Question.bmp');.Text:='';.Text:='';.Lines.Clear;:=false;;.frmIzvlechMessage: TfrmIzvlechMessage= 0= 0= bsDialog= #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= 388= 428= clBtnFace.Charset = DEFAULT_CHARSET.Color = clWindowText.Height = -11.Name = 'Tahoma'.Style = []= False= FormShow= 96= 13imIsxodIzo: TImage= 8= 35= 402= 200= TrueLabel1: TLabel= 8= 236= 183= 21= #1048#1079#1074#1083#1077#1095#1105#1085#1085#1086#1077' '#1089#1086#1086#1073#1097#1077#1085#1080#1077':'.Charset = ANSI_CHARSET.Color = clWindowText.Height = -16.Name = 'Palatino Linotype'.Style = [fsBold, fsItalic]= FalseedIsxodDir: TEdit= 8= 8= 385= 21= 0mmMessage: TMemo= 8= 260= 402= 89.Charset = RUSSIAN_CHARSET.Color = clWindowText.Height = -13.Name = 'Times New Roman'.Style = []= False= ssBoth= 1butStartStego: TButton= 266= 355= 154= 27= #1048#1079#1074#1083#1077#1095#1100' '#1089#1086#1086#1073#1097#1077#1085#1080#1077.Charset = RUSSIAN_CHARSET.Color = clWindowText.Height = -16.Name = 'Palatino Linotype'.Style = [fsBold, fsItalic]= False= 2= butStartStegoClickbbOpenIsxod: TBitBtn= 389= 8= 21= 21= True.Data = {
D4202000000000000420000002800000010000000100000000100
E0000202E00000000000000000000007C0000E003
F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FBB7BFF7FFF7FFFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F977FA76E42666A318E2DAFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FBC7FED76A0764062606A60450000
C31BD77FF7FFF7FFF7FFF7FDE7F307BA376806EE176A26A235A227F2031
FF7FFF7FFF7F557BC676A072C076E276E276A26E0356037B6066
FF7FFF7F787BEA76A076E076027B027BE276E27AA26E435EA36AA072
FFF7FFF7FDD7FA476A076E276027B027B027BE276027BC272425E8462C076ABD7BFF7FDD7FC376E076027B027B027B027B227F227F4266635E6356C36E
ECF66FF7FDD7FC376C076027B027B027B227F027B826A43626362835EE372A435EDE7BBC7BC376C076E276027B227FC2724366445EA366C26E027BE27AA606AAD66BC7FC372C076E276227FA26E235A8562A46AE276027BE276C276
BA072255EBC7FC372A072027BC072025E465AA366027F017BA072A072E172
A65667977BC7FC376C072806E456A465E8362E276C076406AED72077B606AABC7BFF7FDB7F80724066F06EDE7B4F7B8072606E64665673FF7FFD7F977BFFF7FFF7FFD7FED763673FF7FFF7FDC7F0D7BCD6EBC7BFF7FFF7FFF7FFF7FFFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFF7FFF7F}= False= 3= bbOpenIsxodClickdiagOpenPict: TOpenPictureDialog= 'Bitmaps (*.bmp)|*.bmp'= 208= 232
unIzvlechMessage;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, JPEG, ExtDlgs, ExtCtrls, Buttons, StdCtrls;= class(TForm): TEdit;: TImage;: TOpenPictureDialog;: TLabel;: TMemo;: TButton;: TBitBtn;bbOpenIsxodClick(Sender: TObject);butStartStegoClick(Sender: TObject);FormShow(Sender: TObject);
{ Private dec