Commit_STS_12022019

AboutForm.dfm

@@ -0,0 +1,56 @@
+object frmAbout: TfrmAbout
+  Left = 192
+  Top = 107
+  BorderStyle = bsDialog
+  Caption = 'About'
+  ClientHeight = 147
+  ClientWidth = 234
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lTitle: TLabel
+    Left = 0
+    Top = 24
+    Width = 233
+    Height = 13
+    Alignment = taCenter
+    AutoSize = False
+    Caption = 'X.509 certificates demo application'
+  end
+  object lProduct: TLabel
+    Left = 0
+    Top = 48
+    Width = 233
+    Height = 13
+    Alignment = taCenter
+    AutoSize = False
+    Caption = 'EldoS SecureBlackbox library'
+  end
+  object lCopyright: TLabel
+    Left = 0
+    Top = 72
+    Width = 233
+    Height = 13
+    Alignment = taCenter
+    AutoSize = False
+    Caption = 'Copyright (C) 2006 EldoS Corporation'
+  end
+  object btnOK: TButton
+    Left = 80
+    Top = 104
+    Width = 75
+    Height = 25
+    Cancel = True
+    Caption = 'OK'
+    Default = True
+    ModalResult = 1
+    TabOrder = 0
+  end
+end

AboutForm.pas

@@ -0,0 +1,35 @@
+unit AboutForm;
+
+interface
+
+uses
+  Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;
+
+type
+  TfrmAbout = class(TForm)
+    lTitle: TLabel;
+    lProduct: TLabel;
+    lCopyright: TLabel;
+    btnOK: TButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    class procedure ShowAboutBox;
+  end;
+
+var
+  frmAbout: TfrmAbout;
+
+implementation
+
+{$R *.DFM}
+
+{ TfrmAbout }
+
+class procedure TfrmAbout.ShowAboutBox;
+begin
+  with TfrmAbout.Create(nil) do ShowModal;
+end;
+
+end.

CertificateGenerationThread.pas

@@ -0,0 +1,54 @@
+unit CertificateGenerationThread;
+
+interface
+
+uses
+  Classes, SBX509;
+
+type
+  TCertificateGenerationThread = class(TThread)
+  private
+    FCert : TElX509Certificate;
+    FCACert : TElX509Certificate;    
+    FAlg : integer;
+    FDwords : integer;
+  public
+    constructor Create(CreateSuspended: Boolean); overload;
+    constructor Create(CACert,Cert : TElX509Certificate; SignatureAlgorithm : integer;
+      Dwords : integer); overload;
+    destructor Destroy; override;
+    procedure Execute; override;
+    property Cert : TElX509Certificate read FCert;
+  end;
+
+implementation
+
+constructor TCertificateGenerationThread.Create(CreateSuspended: Boolean);
+begin
+  inherited Create(CreateSuspended);
+end;
+
+destructor TCertificateGenerationThread.Destroy;
+begin
+  inherited;
+end;
+
+procedure TCertificateGenerationThread.Execute;
+begin
+  if not Assigned(FCACert) then
+   FCert.Generate(FAlg, FDwords)
+  else FCert.Generate(FCACert,FAlg,FDwords); 
+end;
+
+constructor TCertificateGenerationThread.Create(CACert,Cert : TElX509Certificate; SignatureAlgorithm : integer;
+      Dwords : integer);
+begin
+  inherited Create(true);
+  Self.FreeOnTerminate := true;
+  FCert := Cert;
+  FCACert := CACert;
+  FAlg := SignatureAlgorithm;
+  FDwords := Dwords;
+end;
+
+end.