encpropsform.pas

著名的SecureBlackBox控件完整源码

unit EncPropsForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, SBPDF, SBConstants;

type
  TfrmEncryptionProps = class(TForm)
    lTitle: TLabel;
    lHandlerName: TLabel;
    editHandlerName: TEdit;
    lHandlerDescription: TLabel;
    editHandlerDescription: TEdit;
    lMetadataStatus: TLabel;
    btnDecrypt: TButton;
    btnCancel: TButton;
    lEncryptionAlgorithm: TLabel;
    lHint: TLabel;
    procedure btnDecryptClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Initialize(Document : TElPDFDocument);
  end;

var
  frmEncryptionProps: TfrmEncryptionProps;

implementation

{$R *.DFM}

procedure TfrmEncryptionProps.Initialize(Document : TElPDFDocument);
var
  AlgStr : string;
begin
  if Document.EncryptionHandler <> nil then
  begin
    editHandlerName.Text := Document.EncryptionHandler.GetName;
    editHandlerDescription.Text := Document.EncryptionHandler.GetDescription;
    if Document.EncryptionHandler.StreamEncryptionAlgorithm = SB_ALGORITHM_CNT_RC4 then
      AlgStr := 'RC4/' + IntToStr(Document.EncryptionHandler.StreamEncryptionKeyBits) + ' bits'
    else if Document.EncryptionHandler.StreamEncryptionAlgorithm = SB_ALGORITHM_CNT_AES128 then
      AlgStr := 'AES/128 bits' 
    else
      AlgStr := 'UNKNOWN';
    lEncryptionAlgorithm.Caption := 'Encryption algorithm: ' + AlgStr;
    if Document.EncryptionHandler.EncryptMetadata then
      lMetadataStatus.Caption := 'Metadata status: ENCRYPTED'
    else
      lMetadataStatus.Caption := 'Metadata status: NOT ENCRYPTED';
    btnDecrypt.Enabled := true;
  end
  else
  begin
    editHandlerName.Text := 'UNKNOWN';
    editHandlerDescription.Text := 'UNKNOWN';
    lMetadataStatus.Caption := 'Metadata status: UNKNOWN';
    btnDecrypt.Enabled := false;
  end;
end;


procedure TfrmEncryptionProps.btnDecryptClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TfrmEncryptionProps.btnCancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

end.