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

Материал из Wiki Mininuniver
Перейти к навигацииПерейти к поиску
(→‎Результаты проведённого исследования)
(→‎Результаты проведённого исследования)
Строка 18: Строка 18:
 
Изображение:Форма_проги_шифрование_АРЗАКА.JPG
 
Изображение:Форма_проги_шифрование_АРЗАКА.JPG
 
</gallery>
 
</gallery>
 +
 +
Ниже представлен код программы основанный на алгоритме Гронсфельда:
 +
 +
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.
  
 
==Вывод==
 
==Вывод==

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

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

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

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

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

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

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

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

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

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

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

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

  • Форма проги шифрование АРЗАКА.JPG

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

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.

Вывод

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

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

Источник — https://wiki.mininuniver.ru/index.php?title=Результаты_исследований_учащихся_в_проекте_Шифрование_данных&oldid=5997