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

Материал из Wiki Mininuniver
Перейти к навигацииПерейти к поиску
(Результаты проведённого исследования)
(Результаты проведённого исследования)
Строка 22: Строка 22:
  
 
unit Unit1;
 
unit Unit1;
 
 
interface
 
interface
 
 
uses
 
uses
 
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 
   Dialogs, StdCtrls;
 
   Dialogs, StdCtrls;
 
 
type
 
type
 
   TForm1 = class(TForm)
 
   TForm1 = class(TForm)
Строка 44: Строка 41:
 
     { Public declarations }
 
     { Public declarations }
 
   end;
 
   end;
 
 
var
 
var
 
   Form1: TForm1;
 
   Form1: TForm1;
 
 
implementation
 
implementation
 
 
{$R *.dfm}
 
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
 
procedure TForm1.Button1Click(Sender: TObject);
 
  var key,S,alphabet:string; i,j,n:integer;
 
  var key,S,alphabet:string; i,j,n:integer;
Строка 59: Строка 52:
 
  alphabet:='абвежзийклмнопрстуфхцчшщъыьэюя';
 
  alphabet:='абвежзийклмнопрстуфхцчшщъыьэюя';
 
  n:=length(S);
 
  n:=length(S);
 
 
  for i:=1 to n do
 
  for i:=1 to n do
 
   for j:=1 to 5 do
 
   for j:=1 to 5 do
 
     S[i]:=alphabet[alphabet[pos(S[i],alphabet)]+strtoint(key[j])];
 
     S[i]:=alphabet[alphabet[pos(S[i],alphabet)]+strtoint(key[j])];
 
 
  Edit3.text:=S;
 
  Edit3.text:=S;
 
 
end;
 
end;
 
 
end.
 
end.
  

Версия 10:30, 7 ноября 2009

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

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

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

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

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

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

Гипотеза исследования

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

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

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

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

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

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.

Вывод

Полезные ресурсы

Другие документы