й сертифікат чи не знаходиться в архіві).
В
Малюнок 1. Головна форма
В
Малюнок 2. Форма генерації та експорту ключа для підпису
В
Малюнок 3. Форма експорту ключа
Форма База Даних Містить Таблицю для роботи з БД. Тут можна редагувати БД - створювати, редагувати і видаляти користувачів. Поле Архів - вказівка, чи входить сертифікат в архів - якщо так, то його значення 1, якщо ні-то 0. br/>В
Малюнок 4. Форма Бази Даних
В
Малюнок 5. Форма експорту ключів
На формі нового користувача необхідно створити новий контейнер для користувача, згенерувати ключ і експортувати його. Далі можна редагувати поля сертифіката. Після успішного створення сертифіката, можна додати його в БД. br/>В
Малюнок 6. Форма створення нового користувача
В
Малюнок 7. Форма додавання нового сертифіката
генерація сертифікат ключ справжність
В
Малюнок 8. Форма переглянути список сертифікатів
На Формі перевірки сетріфікати необхідно перевірити підпис сертифіката. Потім можна перевірити його актуальність. Якщо термін дії закінчився, то можна додати цей сертифікат до архіву. Також можна переглянути Друнен поля сертифіката. br/>В
Малюнок 9. Форма перевірки сетріфікати
В
Малюнок 10. - Форма перегляду полів сертифіката
В
Малюнок 11. Архів
4. Лістинг програми
4.1 Модуль головної форми FormMain
uses, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, Wcrypt2, StdCtrls, unit2, sertif, Users, KeysForm, Verific, NewUser, DatM, Expo, Proc, Unit6, DatBase; = class (TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem; Button1Click (Sender: TObject); GenKeyClick (Sender: TObject); VerifyClick (Sender: TObject); ExitClick (Sender: TObject); N3Click (Sender: TObject); N2Click (Sender: TObject); N4Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); ArchiveClick (Sender: TObject);
{Private declarations}
{Public declarations};: TMainF;
{$ R *. dfm} TMainF. Button1Click (Sender: TObject); s, s1, s2: string;, f2: Boolean;; TMainF. GenKeyClick (Sender: TObject);. Button3. Enabled: = false;. Show;; TMainF. VerifyClick (Sender: TObject);. Show;; TMainF. ExitClick (Sender: TObject);. Close;; TMainF.N3Click (Sender: TObject);. PFIBDataSet1. Active: = true;. Show;; TMainF.N2Click (Sender: TObject);. SerN: = GetserNom;. IdAlgS: = 'GOST open ke...
