secdemomain.dfm

StreamSec Security Library含有多种算法的控件

object Form1: TForm1
  Left = 191
  Top = 153
  Width = 599
  Height = 450
  Caption = 'StreamSec Security Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 112
    Width = 577
    Height = 305
    Anchors = [akLeft, akTop, akRight]
    Caption = 'Encrypt'
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 62
      Height = 13
      Caption = 'Plain text file:'
    end
    object Label2: TLabel
      Left = 8
      Top = 64
      Width = 67
      Height = 13
      Caption = 'Encrypted file:'
    end
    object Label5: TLabel
      Left = 8
      Top = 112
      Width = 68
      Height = 13
      Caption = 'Decrypted file:'
    end
    object edtPlainTextFile: TEdit
      Left = 8
      Top = 32
      Width = 465
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 0
    end
    object Button1: TButton
      Left = 488
      Top = 32
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'Browse'
      TabOrder = 1
      OnClick = Button1Click
    end
    object edtEncFile: TEdit
      Left = 8
      Top = 80
      Width = 465
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 2
    end
    object Button2: TButton
      Left = 488
      Top = 80
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'Browse'
      TabOrder = 3
      OnClick = Button2Click
    end
    object rgSymmetricEnc: TRadioGroup
      Left = 8
      Top = 160
      Width = 185
      Height = 137
      Caption = 'Symmetric Encryption:'
      ItemIndex = 0
      Items.Strings = (
        'Steak'
        'TwoFish PCFB 8/128'
        'TwoFish ABC'
        'Rijndael PCFB 8/128'
        'Rijndael ABC')
      TabOrder = 4
    end
    object edtDecFile: TEdit
      Left = 8
      Top = 128
      Width = 473
      Height = 21
      TabOrder = 5
    end
    object Button3: TButton
      Left = 496
      Top = 128
      Width = 75
      Height = 25
      Caption = 'Browse'
      TabOrder = 6
      OnClick = Button3Click
    end
    object rgKeyExch: TRadioGroup
      Left = 208
      Top = 160
      Width = 185
      Height = 81
      Caption = 'Key exchange'
      ItemIndex = 0
      Items.Strings = (
        'Half verified ElGamal'
        'MTI/C0'
        'SRP')
      TabOrder = 7
    end
    object btnNegotiate: TButton
      Left = 496
      Top = 208
      Width = 75
      Height = 25
      Caption = 'Negotiate'
      TabOrder = 8
      OnClick = btnNegotiateClick
    end
    object btnEncrypt: TButton
      Left = 496
      Top = 240
      Width = 75
      Height = 25
      Caption = 'Encrypt'
      TabOrder = 9
      OnClick = btnEncryptClick
    end
    object btnDecrypt: TButton
      Left = 496
      Top = 272
      Width = 75
      Height = 25
      Caption = 'Decrypt'
      TabOrder = 10
      OnClick = btnDecryptClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 8
    Width = 193
    Height = 97
    Caption = 'Assymetric key'
    TabOrder = 1
    object Label3: TLabel
      Left = 8
      Top = 16
      Width = 57
      Height = 13
      Caption = 'Generate A:'
    end
    object Label4: TLabel
      Left = 112
      Top = 16
      Width = 57
      Height = 13
      Caption = 'Generate B:'
    end
    object btnGenA: TButton
      Left = 8
      Top = 32
      Width = 75
      Height = 25
      Caption = 'MTI/CO'
      TabOrder = 0
      OnClick = btnGenAClick
    end
    object btnGenB: TButton
      Left = 112
      Top = 32
      Width = 75
      Height = 25
      Caption = 'MTI/C0'
      TabOrder = 1
      OnClick = btnGenAClick
    end
    object btnGenSRP: TButton
      Left = 8
      Top = 64
      Width = 75
      Height = 25
      Caption = 'SRP'
      TabOrder = 2
      OnClick = btnGenSRPClick
    end
  end
  object StreamSec1: TStreamSec
    BufferSize = 4096
    EnableReset = True
    OnAuth = StreamSec1Auth
    OnCodeBuf = StreamSec1CodeBuf
    VectorSize = 8
    ZeroAuth = 0
    Left = 168
    Top = 368
  end
  object OpenDialog1: TOpenDialog
    Left = 560
    Top = 152
  end
  object SaveDialog1: TSaveDialog
    Left = 560
    Top = 200
  end
  object SaveDialog2: TSaveDialog
    Left = 560
    Top = 248
  end
end