Методы и средства защиты информации. Криптография

В Windows NT 5.0 появится новое средство защиты информации файловая система с шифрованием (Encrypted File System, EFS), позволяющая хранить файлы и папки в зашифрованном виде. Благодаря этому корпоративные и индивидуальные пользователи решат проблему возможной утечки секретной информации при краже переносного компьютера или жесткого диска из сервера. Зашифрованная информация даже в случае физического доступа к жесткому диску останется недоступной. 

2.Практическая  задача.

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

Исходные данные для выполнения   практического задания

 

№ вар	Исходный  текст для  шифрования	«Шифрующая таблица»
		строк	столбцов
14	Шифрование  гаммированием	5	4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение А Диск    с программой

 

 

 

 

 

Приложение В  Листинг программы

nit glavUnit;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, XPMan;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    XPManifest1: TXPManifest;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.ShowModal

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  Form3.ShowModal

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

  Close;

end;

end.

 

unit Unit3;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm3 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Edit2: TEdit;

    Edit3: TEdit;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure proc_encr(s_source, s_gamma: String; var s_rez: String);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

uses glavUnit;

 

{$R *.dfm}

procedure TForm3.proc_encr(s_source, s_gamma: String; var s_rez: String);

var

  i,j: Integer;

begin

  s_Rez:='';

  i:=1;

  While i<=Length(s_Source) do

  begin

    for j:=1 to Length(s_gamma) do

      s_rez:=s_rez + chr(ord(s_source[i+j-1]) xor ord(s_gamma[j]));

      i:=i + Length(s_gamma);

  end;

end;

 

procedure TForm3.FormCreate(Sender: TObject);

begin

Edit1.Text:='';

  Edit2.Text:='';

  Edit3.Text:='';

end;

 

procedure TForm3.Button1Click(Sender: TObject);

var

  s1, s2, s3: String;

begin

  s1:=Edit2.Text;

  s2:=Edit1.Text;

  Form3.proc_encr (s1, s2, s3);

  Edit3.Text:=s3;

end;

 

procedure TForm3.Button2Click(Sender: TObject);

var

  s1, s2, s3: String;

begin

  s1:=Edit3.Text;

  s2:=Edit1.Text;

  Form3.proc_encr (s1,s2,s3);

  Edit2.Text:=s3;

end;

 

procedure TForm3.Button3Click(Sender: TObject);

begin

  Edit1.Text:='';

  Edit2.Text:='';

  Edit3.Text:='';

end;

 

end.

unit Unit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Grids;

type

  TForm2 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    StringGrid1: TStringGrid;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

Implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);

begin

  StringGrid1.RowCount:=4;

  StringGrid1.ColCount:=5;

  Edit2.Text:='';

label9.Visible:=false;

 label10.Visible :=false;

//Edit4.Text:='';

//Edit5.Text:='';

end;

procedure TForm2.Button1Click(Sender: TObject);

var

  k, i, j, g : Integer;

  s, s1: String;

begin

  //Формирование таблицы

    s:=AnsiUpperCase(Edit1.Text);

  Edit1.Text:=s;

  g:=length(s);

           s1:='';

           label9.Visible :=true;

           label10.Visible:=true;

StringGrid1.RowCount:=StrToInt(label9.Caption);

  StringGrid1.ColCount:=StrToInt(label10.Caption);

  for i:=0 to StringGrid1.ColCount-1 do

    StringGrid1.ColWidths[i]:=24;

     k:=1;

  for i:=0 to StringGrid1.ColCount-1 do

    for j:=0 to StringGrid1.RowCount-1 do

      begin

        if k<=Length(s) then

          begin

            if s[k]=' ' then

              StringGrid1.Cells[i,j]:='_'

            else

              StringGrid1.Cells[i,j]:=s[k];

            k:=k+1;

          end

        else

          StringGrid1.Cells[i,j]:='_';

      end;

  //Формирование шифротекста

  s:='';

  for j:=0 to StringGrid1.RowCount-1 do

    for i:=0 to StringGrid1.ColCount-1 do

      begin

        s1:=StringGrid1.Cells[i,j];

        s:=s+s1[1];

      end;

  Edit2.Text:=s;

end;

procedure TForm2.Button2Click(Sender: TObject);

var

  k, i, j: Integer;

  s, s1: String;

begin

  //Формирование таблицы

  for i:=0 to StringGrid1.ColCount-1 do

    StringGrid1.ColWidths[i]:=24;

     s:=AnsiUpperCase(Edit2.text);

  Edit2.text:=s;

  s1:='';

  k:=1;

  for j:=0 to StringGrid1.RowCount-1 do

    for i:=0 to StringGrid1.ColCount-1 do

      begin

        if k<=Length(s) then

          begin

            StringGrid1.Cells[i,j]:=s[k];

            k:=k+1;

          end

        else

          StringGrid1.Cells[i,j]:=' ';

      end;

  //Формирование шифротекста

  s:='';

  for i:=0 to StringGrid1.ColCount-1 do

    for j:=0 to StringGrid1.RowCount-1 do

      begin

        if StringGrid1.Cells[i,j]='_' then

          s1:=' '

        else

          s1:=StringGrid1.Cells[i,j];

        s:=s+s1[1];

      end;

  Edit1.Text:=Trim(s);

end;

procedure TForm2.Button3Click(Sender: TObject);

var

  i, j: Integer;

begin

  for i:=0 to StringGrid1.ColCount-1 do

    for j:=0 to StringGrid1.RowCount-1 do

      StringGrid1.Cells[i,j]:='';

    StringGrid1.RowCount:=0;

  StringGrid1.ColCount:=0;

  Edit1.Text:='';

  Edit2.Text:='';

  label9.Visible:=false;

  label10.Visible:=false;

end;

 

end. 

Литература

 

1. "Методы и средства защиты компьютерной информации" Р.Р. Хамидуллин. Учеб. Пособие СПб.: Изд-во СЗТУ, 2006 г.;

2. ГОСТ Р 34.11-94. Информационная технология. Криптографическая защита информации. Функция

3. http://ru.wikipedia.org - Википедия, Сетевая энциклопедия;

4. http://www.intuit.ru/department/security/networksec/8/