Реферат Високорівневі методи інформатики та програмування

иною історії.

Список використаної літератури

1. А.В. Яковлєв, А.А. Безбогов, В.В. Родін, В.М. Шамкін. Криптографічний захист інформації. - Тамбов: Видавництво ТДТУ, 2006

2. David, Kahn. On the Origin of a Species. The Codebreakers: The Story of Secret Writing. Simon & Schuster, 1999

3. Henk CA van Tilborg, ed. Encyclopedia of Cryptography and Security (First ed.). Springer. pp. 115, 2005

4. Е. М. Габідулін. Курс лекцій з Захисту Інформації. - Москва: Видавництво МФТІ, 2007

. А. П. Алфьоров, А. Ю. Зубов, А. С. Кузьмін, А. В. Черьомушкін. Основи криптографії. - Москва: Видавництво Геліос АРВ, 2005

Додаток А

Шифр ​​³женер

unit TablVin;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, ComCtrls, ExtCtrls, StdCtrls, Buttons, Menus, hlp; = class (TForm): TPageControl;: TTabSheet; : TTabSheet;: TStringGrid;: TPanel;: TSpeedButton;: TSpeedButton;: TStringGrid;: TPopupMenu;: TMenuItem;: TEdit;: TLabel;: TMemo;: TMemo;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TStatusBar ;: TOpenDialog;: TSaveDialog;: TSpeedButton;: TMainMenu;: TMenuItem;: TMenuItem;: TTimer;: TSpeedButton;: TSpeedButton;: TLabel;: TLabel;: TLabel;: TButton;: TButton;: TMenuItem;: TLabel;: TButton;: TButton; FormCreate (Sender: TObject); N1Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); Edit1KeyPress (Sender: TObject; var Key: Char); REd1KeyPress (Sender: TObject; var Key: Char); SG2KeyPress (Sender: TObject; var Key: Char); SB1Click (Sender: TObject); SB2Click (Sender: TObject); REd2KeyPress (Sender: TObject; var Key: Char); SB7Click (Sender: TObject); SB3Click (Sender: TObject); SB5Click (Sender: TObject); N3Click (Sender: TObject); SB4Click (Sender: TObject); SB6Click (Sender: TObject); LokBut (Sender: TObject); SpeedButton1Click (Sender: TObject); SpeedButton2Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); N4Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject);

{Private declarations}

{Public declarations}; = ['a' .. 'z', '0 '.. '9']; Rez: TStrings; Old1, Old2: String;: Set of Char;//Допустимі символи: TForm1; Det0 (Tb: TStringGrid): Boolean; Invert (S: String; N: LongInt): String; KeyR (Tb: TStringGrid; Zn: Char; N: Integer = 0): Integer; KeyS (Tb : TStringGrid; Zn: Char; N: Integer = 0): Integer; Znak (Tb: TStringGrid; C, R: LongInt): Char;

{$ R *. dfm} TForm1.FormCreate (Sen...