Результаты исследований учащихся в проекте Шифрование данных: различия между версиями
(→Результаты проведённого исследования) |
(→Результаты проведённого исследования) |
||
Строка 14: | Строка 14: | ||
==Результаты проведённого исследования== | ==Результаты проведённого исследования== | ||
− | По результатам проведенного исследования было отобрано несколько способов кодирования информации. Нами | + | По результатам проведенного исследования было отобрано несколько способов кодирования информации. Нами были рассмотрены несколько алгоритмов шифрования, такие как: |
+ | 1)Шифр Цезаря; | ||
+ | 2)Шифр Гронсфельда; | ||
+ | 3)Шифр Виженера; | ||
+ | 4)«Тарабарская грамота»; | ||
+ | 5)Матричная шифровка; | ||
+ | 6)Шифровка по спирали. | ||
+ | Среди представленных типов шифрования нами был выбран шифр Гронсфельда, за его распространенность, эфективность и простоту использования. | ||
+ | |||
<gallery> | <gallery> | ||
Изображение:Форма_проги_шифрование_АРЗАКА.JPG | Изображение:Форма_проги_шифрование_АРЗАКА.JPG |
Версия 11:13, 7 ноября 2009
Содержание
Авторы и участники проекта
Абросимов Роман, Заплатин Андрей, Коробейников Александр
Тема исследования группы
Темой исследования группы является написание программы, демонстрирующей шифрование данных на примере Шифра Гронсфельда.
Проблемный вопрос (вопрос для исследования)
Какой способ кодирования информации оптимальнее?
Гипотеза исследования
Цели исследования
Проанализировать различные варианты кодирования и выбрать из них оптимальный.
Результаты проведённого исследования
По результатам проведенного исследования было отобрано несколько способов кодирования информации. Нами были рассмотрены несколько алгоритмов шифрования, такие как: 1)Шифр Цезаря; 2)Шифр Гронсфельда; 3)Шифр Виженера; 4)«Тарабарская грамота»; 5)Матричная шифровка; 6)Шифровка по спирали. Среди представленных типов шифрования нами был выбран шифр Гронсфельда, за его распространенность, эфективность и простоту использования.
Ниже представлен код программы основанный на алгоритме Гронсфельда:
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.