9;Помилка створення ключа підпису:' + err, mtError, [mbOK], 0);. ReportMemo. Lines. Add ('');. ReportMemo. Lines. Add ('Створено ключ підпису:');
flag: = 4; not CryptGetKeyParam (SignKey, KP_KEYLEN, @ keyLen, @ flag, 0) then; ('Помилка отримання довжини ключа:' + err,, [mbOK], 0); Keys . ReportMemo. Lines. Add ('довжина ключа -' + inttostr (keyLen));: = 4; not CryptGetKeyParam (SignKey, KP_ALGID, @ keyLen, @ flag, 0) then; ('Помилка отримання довжини ключа:' + err, mtError, [mbOK ], 0); Keys. ReportMemo. Lines. Add ('алгоритм -' + inttostr (keyLen));;; (hProv, 0);; TKeys. Button1Click (Sender: TObject);: string; Keys. ConComboBox. Text <>'' then: = ConComboBox. Text; (s);. Items. Add (s);. Button2. Enabled: = true; ('Введіть ім'я контейнера', mtInformation, [mbOK], 0);; TKeys. FormActivate (Sender: TObject);. ReportMemo. Clear;. Button2. Enabled: = false;; TKeys. Button2Click (Sender: TObject);, l: String;: = ConComboBox. Text;: = IntToStr (UpDown2. Position); Length (s) = 0 then ('Введіть ім'я контейнера', mtInformation, [mbOK], 0);; begin (s);. Enabled: = true;;; TKeys. Button3Click (Sender: TObject);. ComboBox1. Text: = Keys. ConComboBox. Text;. Show;;. br/>
4.3 Модуль форми NewUser
NewUser;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Buttons, Expo, Sertif, Proc, ExtCtrls, Wcrypt2, DatM, expOp, Users, AddUsers ; = class (TForm): TEdit;: TButton;: TEdit;: TUpDown;: TButton;: TEdit;: TLabel;: TLabel;: TLabel;: TButton;: TSpeedButton;: TPanel;: TLabel;: TLabel;: TLabel ;: TDateTimePicker;: TDateTimePicker;: TMemo;: TSaveDialog;: TOpenDialog;: TSpeedButton;: TSpeedButton;: TEdit;: TEdit;: TLabel; SpeedButton1Click (Sender: TObject); FormActivate (Sender: TObject); Button1Click (Sender: TObject ); Button2Click (Sender: TObject); Button3Click (Sender: TObject); SpeedButton2Click (Sender: TObject); SpeedButton3Click (Sender: TObject);
{Private declarations}
{Public declarations};: TNewU;
{$ R *. dfm} TNewU. SpeedButton1Click (Sender: TObject);. SerNom. Text: = DatM. SerN;. P1: = DateToStr (PerS. DateTime);. P2: = DateToStr (PerEnd. DateTime);. Show;; TNewU. FormActivate (Sender: TObject);;. Enabled: = DatM.flag;; TNewU. Button1Click (Sender: TObject); (Edit1. Text);; TNewU. Button2Click (Sender: TObject);: string;: = IntToStr (UpDown1. Position); Length (Edit1. Text) = 0 then ('Введіть ім'я контейнера', mtInformation, [mbOK], 0);; begin (Edit1. Text , l);. Enabled: = true;;; TNewU. Button3Click (Sender: TObject);, S, path: String;: PChar;: string;: HCRYPTPROV;: ALG_ID;: HCRYPTHASH;, f1: file;: DWORD;: array [0 .. 511] of byte;: PBYTE ;: string;: integer;: HCRYPTKEY;, textsize: DWORD;: PBYTE;: PBYTE;: a...
