myrsamain.dfm

rsa 算法demo

object Form1: TForm1
  Left = 239
  Top = 294
  Width = 530
  Height = 300
  Caption = 'RSA Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 257
    Height = 265
    Caption = 'Create Public && Private Keys'
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 32
      Width = 28
      Height = 16
      Caption = 'P    ='
    end
    object Label2: TLabel
      Left = 8
      Top = 64
      Width = 29
      Height = 16
      Caption = 'Q    ='
    end
    object Label3: TLabel
      Left = 8
      Top = 96
      Width = 29
      Height = 16
      Caption = 'N    ='
    end
    object Label4: TLabel
      Left = 8
      Top = 128
      Width = 29
      Height = 16
      Caption = 'Phi ='
    end
    object Label5: TLabel
      Left = 8
      Top = 160
      Width = 28
      Height = 16
      Caption = 'E    ='
    end
    object Label6: TLabel
      Left = 8
      Top = 192
      Width = 29
      Height = 16
      Caption = 'D    ='
    end
    object Label7: TLabel
      Left = 160
      Top = 96
      Width = 44
      Height = 16
      Caption = '( P * Q )'
    end
    object Label8: TLabel
      Left = 160
      Top = 128
      Width = 92
      Height = 16
      Caption = '( P - 1 ) * ( Q - 1 )'
    end
    object Label9: TLabel
      Left = 160
      Top = 160
      Width = 83
      Height = 16
      Caption = 'Encrypter Key'
    end
    object Label10: TLabel
      Left = 160
      Top = 192
      Width = 85
      Height = 16
      Caption = 'Decrypter Key'
    end
    object Bevel1: TBevel
      Left = 8
      Top = 216
      Width = 241
      Height = 10
      Shape = bsBottomLine
    end
    object edtP: TEdit
      Left = 48
      Top = 24
      Width = 105
      Height = 24
      Color = clInfoBk
      ReadOnly = True
      TabOrder = 0
    end
    object edtQ: TEdit
      Left = 48
      Top = 56
      Width = 105
      Height = 24
      Color = clInfoBk
      ReadOnly = True
      TabOrder = 1
    end
    object edtN: TEdit
      Left = 48
      Top = 88
      Width = 105
      Height = 24
      Color = clInfoBk
      ReadOnly = True
      TabOrder = 2
    end
    object edtPhi: TEdit
      Left = 48
      Top = 120
      Width = 105
      Height = 24
      Color = clInfoBk
      ReadOnly = True
      TabOrder = 3
    end
    object edtE: TEdit
      Left = 48
      Top = 152
      Width = 105
      Height = 24
      Color = clInfoBk
      ReadOnly = True
      TabOrder = 4
    end
    object edtD: TEdit
      Left = 48
      Top = 184
      Width = 105
      Height = 24
      Color = clInfoBk
      ReadOnly = True
      TabOrder = 5
    end
    object bttnGenKeys: TButton
      Left = 64
      Top = 232
      Width = 105
      Height = 25
      Caption = 'Generate Keys'
      TabOrder = 6
      OnClick = bttnGenKeysClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 264
    Top = 0
    Width = 257
    Height = 265
    Caption = 'Encrypt / Decrypt Text'
    TabOrder = 1
    object Label11: TLabel
      Left = 8
      Top = 16
      Width = 75
      Height = 16
      Caption = 'Original Text'
    end
    object Bevel2: TBevel
      Left = 8
      Top = 216
      Width = 241
      Height = 10
      Shape = bsBottomLine
    end
    object Label12: TLabel
      Left = 8
      Top = 84
      Width = 90
      Height = 16
      Caption = 'Encrypted Text'
    end
    object Label13: TLabel
      Left = 8
      Top = 152
      Width = 92
      Height = 16
      Caption = 'Decrypted Text'
    end
    object mmoOriText: TMemo
      Left = 8
      Top = 34
      Width = 241
      Height = 49
      Lines.Strings = (
        'Original Message')
      TabOrder = 0
    end
    object bttnEncText: TButton
      Left = 8
      Top = 232
      Width = 105
      Height = 25
      Caption = 'Encrypt Text'
      TabOrder = 1
      OnClick = bttnEncTextClick
    end
    object bttnDecText: TButton
      Left = 144
      Top = 232
      Width = 105
      Height = 25
      Caption = 'Decrypt Text'
      TabOrder = 2
      OnClick = bttnDecTextClick
    end
    object mmoEncText: TMemo
      Left = 8
      Top = 104
      Width = 241
      Height = 49
      Color = clInfoBk
      ReadOnly = True
      TabOrder = 3
    end
    object mmoDecText: TMemo
      Left = 8
      Top = 170
      Width = 241
      Height = 49
      Color = clInfoBk
      ReadOnly = True
      TabOrder = 4
    end
  end
end