Результаты исследований учащихся в проекте Шифрование данных

Авторы и участники проекта

Абросимов Роман, Заплатин Андрей, Коробейников Александр

Тема исследования группы

Темой исследования группы является написание программы, демонстрирующей шифрование данных на примере Шифра Гронсфельда.

Проблемный вопрос (вопрос для исследования)

Какой способ кодирования информации оптимальнее?

Цели исследования

Проанализировать различные варианты кодирования и выбрать из них оптимальный.

Результаты проведённого исследования

По результатам проведенного исследования было отобрано несколько способов кодирования информации. Нами была написана программа, использующая алгоритм Гронсфельда.

• 

Ниже представлен код программы основанный на алгоритме Гронсфельда:

 unit Unit1;
 interface
 uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
 type
 TForm1 = class(TForm)
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   Edit1: TEdit;
   Edit2: TEdit;
   Edit3: TEdit;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
 var
 Form1: TForm1;
 implementation
 {$R *.dfm}
 procedure TForm1.Button1Click(Sender: TObject);
 var key,S,alphabet:string; i,j,n:integer;
 begin
 key:=Edit1.text;
 S:=Edit2.Text;
 alphabet:='абвежзийклмнопрстуфхцчшщъыьэюя';
 n:=length(S);
 for i:=1 to n do
 for j:=1 to 5 do
 S[i]:=alphabet[alphabet[pos(S[i],alphabet)]+strtoint(key[j])];
 Edit3.text:=S;
 end;
 end.