и в таємниці, а це спрощує шифрування і розшифрування. p align="justify"> Даний приклад використання при шифруванні і дешифрування за допомогою коду Гронсфельда був реалізований за допомогою середовища програмування Delphi.
Алгоритм програми представлений на малюнках 2.1, 2.2, 2.3, 2.4.
В
Малюнок 2.1 - Загальна структура програми
В
Малюнок 2.2 - Процедура закриття
В
Малюнок 2.3 - Процедура шифрування
В
Малюнок 2.4 - Процедура дешифрування
Код програми:
unit encr;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, StdCtrls, XPMan, ShellApi; = class (TForm): TPageControl;: TOpenDialog;: TXPManifest;: TTabSheet;: TMemo;// результат шифрування: TEdit;// поле для введення рядка, яку необхідно зашифрувати: TEdit;// поле для введення рядка, яку необхідно дешифрувати: TButton;// кнопка шифрування: TButton;// кнопка дешифрування: TButton;// кнопка закрити: TMemo;// результат дешіфрованіяButton1Click (Sender: TObject);// процедура шіфрованіяButton2Click (Sender: TObject);// процедура дешіфрованіяButton3Click (Sender: TObject);// процедура закриття
{Private declarations}
{Public declarations};: TShifCes;: array of array of string;, str: string;
// basic-
{$ R *. dfm}
// процедура шіфрованіяTShifCes. Button1Click (Sender: TObject); str, k: string;, t: integer;: = Edit1. Text;// поле для введення рядка, яку необхідно зашифрувати: = Edit2. Text;// поле для введення ключаi: = 1 to length (str) do: = (Ord (str [i]) + (Ord (K [(pred (i) mod length (K)) + 1]) - Ord ('0 '))); T> = 256 then (T, 256); [i]: = Chr (T);. Text: = str;; MessageDlg ('Увага! Ви не є правильно ввели текст або зсув', mtWarning, [mbOK], 1);;;
// процедура дешіфрованіяTShifCes. Button2Click (Sender: TObject); str, k: string;, t: integer;: = memo1. Text;// область для виведення результату шифрування: = Edit2. Text;// поле для введення ключаi: = 1 to length (str) do: = (Ord (str [i]) - (Ord (K [(pred (i) mod length (K)) + 1]) - Ord ('0 '))); T <0 then (T, 256); [i]: = Chr (T);. Text: = str;; MessageDlg ('Спочатку зашифруйте текст!', MtWarning, [mbOK], 1);;;
// процедура закритіяTShifCes. Button3Click (Sender: TObject);;// закрити форму;. br/>
Список джерел
шифр крипостійкість Гронсфельда асиметричний
1. ГОСТ 2.105-95. В«Загальні вимоги до текстових документівВ»
2. ГОСТ 7.1-84. В«Бібліографічний опис документа: загальні вимоги та правила складанняВ»
. Хо...
