fmain.dfm

CryptoKit使用简便的加密解密控件。(源代码

        object Label8: TLabel
          Left = 8
          Top = 64
          Width = 30
          Height = 13
          Caption = 'Digest'
        end
        object EditDgData: TEdit
          Left = 8
          Top = 36
          Width = 521
          Height = 21
          TabOrder = 0
        end
        object EditDigest: TEdit
          Left = 8
          Top = 80
          Width = 313
          Height = 21
          TabStop = False
          Enabled = False
          TabOrder = 4
        end
        object btDigest: TButton
          Left = 540
          Top = 36
          Width = 53
          Height = 21
          Caption = 'Digest'
          TabOrder = 3
          OnClick = btDigestClick
        end
        object rbDgDataHex: TRadioButton
          Left = 444
          Top = 12
          Width = 45
          Height = 17
          Caption = 'Hex'
          TabOrder = 1
          OnClick = rbDgDataHexClick
        end
        object rbDgDataStr: TRadioButton
          Left = 492
          Top = 12
          Width = 37
          Height = 17
          Caption = 'Str'
          Checked = True
          TabOrder = 2
          TabStop = True
          OnClick = rbDgDataStrClick
        end
      end
      object ToolBar3: TToolBar
        Left = 0
        Top = 0
        Width = 610
        Height = 29
        BorderWidth = 1
        ButtonHeight = 21
        ButtonWidth = 54
        Caption = 'ToolBar3'
        EdgeBorders = [ebBottom]
        Flat = True
        ShowCaptions = True
        TabOrder = 0
        object tbFileDigest: TToolButton
          Left = 0
          Top = 0
          Caption = 'File digest'
          ImageIndex = 0
          OnClick = tbDigestFileClick
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Coding'
      ImageIndex = 3
      object ToolBar4: TToolBar
        Left = 0
        Top = 0
        Width = 610
        Height = 29
        BorderWidth = 1
        ButtonHeight = 21
        ButtonWidth = 61
        Caption = 'ToolBar1'
        EdgeBorders = [ebBottom]
        Flat = True
        ShowCaptions = True
        TabOrder = 0
        object tbEncodeFile: TToolButton
          Left = 0
          Top = 0
          Caption = 'Encode file'
          ImageIndex = 5
          OnClick = tbEncodeFileClick
        end
        object tbDecodeFile: TToolButton
          Left = 61
          Top = 0
          Caption = 'Decode file'
          ImageIndex = 6
          OnClick = tbDecodeFileClick
        end
      end
      object GroupBox3: TGroupBox
        Left = 4
        Top = 32
        Width = 317
        Height = 37
        Caption = 'Algorithm'
        TabOrder = 1
        object rbBase64: TRadioButton
          Left = 8
          Top = 14
          Width = 61
          Height = 17
          Caption = 'Base64'
          Checked = True
          TabOrder = 0
          TabStop = True
        end
      end
      object GroupBox4: TGroupBox
        Left = 4
        Top = 80
        Width = 601
        Height = 201
        Caption = 'Data'
        TabOrder = 2
        object Label9: TLabel
          Left = 8
          Top = 20
          Width = 58
          Height = 13
          Caption = 'Source data'
        end
        object Label10: TLabel
          Left = 8
          Top = 64
          Width = 67
          Height = 13
          Caption = 'Encoded data'
        end
        object Label11: TLabel
          Left = 8
          Top = 108
          Width = 68
          Height = 13
          Caption = 'Decoded data'
        end
        object EditCodeSource: TEdit
          Left = 8
          Top = 36
          Width = 521
          Height = 21
          TabOrder = 0
        end
        object EditEncoded: TEdit
          Left = 8
          Top = 80
          Width = 521
          Height = 21
          TabOrder = 1
        end
        object btEncode: TButton
          Left = 540
          Top = 36
          Width = 53
          Height = 21
          Caption = 'Encode'
          TabOrder = 3
          OnClick = btEncodeClick
        end
        object EditDecoded: TEdit
          Left = 8
          Top = 124
          Width = 521
          Height = 21
          TabStop = False
          Enabled = False
          TabOrder = 2
        end
        object btDecode: TButton
          Left = 540
          Top = 80
          Width = 53
          Height = 21
          Caption = 'Decode'
          TabOrder = 4
          OnClick = btDecodeClick
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Log'
      ImageIndex = 2
      object MemoLog: TMemo
        Left = 0
        Top = 29
        Width = 610
        Height = 419
        Align = alClient
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object ToolBar2: TToolBar
        Left = 0
        Top = 0
        Width = 610
        Height = 29
        BorderWidth = 1
        ButtonHeight = 21
        ButtonWidth = 48
        Caption = 'ToolBar2'
        EdgeBorders = [ebBottom]
        Flat = True
        ShowCaptions = True
        TabOrder = 1
        object tbClearLog: TToolButton
          Left = 0
          Top = 0
          Caption = 'Clear log'
          ImageIndex = 0
          OnClick = tbClearLogClick
        end
      end
    end
  end
  object AS_PrimeGenerator1: TAS_PrimeGenerator
    RandomGenerator = AS_RandomGenerator1
    OnTryRandomPrime = AS_PrimeGenerator1TryRandomPrime
    OnAfterGenPrime = AS_PrimeGenerator1AfterGenPrime
    Left = 418
    Top = 165
  end
  object AS_RandomGenerator1: TAS_RandomGenerator
    OnAfterGenRandom = AS_RandomGenerator1AfterGenRandom
    Left = 446
    Top = 165
  end
  object OpenDialog1: TOpenDialog
    Left = 514
    Top = 5
  end
  object MDX1: TAS_DigestMDX
    OnBeforeCalcDigest = BeforeCalcDigest
    OnAfterCalcDigest = AfterCalcDigest
    Version = dgMD2
    Left = 296
    Top = 65
  end
  object SHA1: TAS_DigestSHA1
    OnBeforeCalcDigest = BeforeCalcDigest
    OnAfterCalcDigest = AfterCalcDigest
    Left = 324
    Top = 65
  end
  object SHA1forRSA: TAS_DigestSHA1
    Left = 390
    Top = 149
  end
  object Rip1: TAS_DigestRIPEMD160
    OnBeforeCalcDigest = BeforeCalcDigest
    OnAfterCalcDigest = AfterCalcDigest
    Left = 352
    Top = 65
  end
  object DES1: TAS_DESCryptography
    OnBeforeEncrypt = CryptBeforeEncrypt
    OnAfterEncrypt = CryptAfterEncrypt
    OnBeforeDecrypt = CryptBeforeDecrypt
    OnAfterDecrypt = CryptAfterDecrypt
    OnBeforeEncryptBlock = CryptBeforeEncryptBlock
    OnAfterEncryptBlock = CryptAfterEncryptBlock
    OnBeforeDecryptBlock = CryptBeforeDecryptBlock
    OnAfterDecryptBlock = CryptAfterDecryptBlock
    OnBeforeGenKeys = CryptBeforeGenKeys
    OnAfterGenKeys = CryptAfterGenKeys
    OnBeforeLoadKeys = CryptBeforeLoadKeys
    OnAfterLoadKeys = CryptAfterLoadKeys
    OnBeforeSaveKeys = CryptBeforeSaveKeys
    OnAfterSaveKeys = CryptAfterSaveKeys
    OnChangeKey = SymmChangeKey
    OnChangeInitVector = SymmChangeInitVector
    OnPostValidateKey = SymmPostValidateKey
    Left = 80
    Top = 65
  end
  object RC21: TAS_RC2Cryptography
    OnBeforeEncrypt = CryptBeforeEncrypt
    OnAfterEncrypt = CryptAfterEncrypt
    OnBeforeDecrypt = CryptBeforeDecrypt
    OnAfterDecrypt = CryptAfterDecrypt
    OnBeforeEncryptBlock = CryptBeforeEncryptBlock
    OnAfterEncryptBlock = CryptAfterEncryptBlock
    OnBeforeDecryptBlock = CryptBeforeDecryptBlock
    OnAfterDecryptBlock = CryptAfterDecryptBlock
    OnBeforeGenKeys = CryptBeforeGenKeys
    OnAfterGenKeys = CryptAfterGenKeys
    OnBeforeLoadKeys = CryptBeforeLoadKeys
    OnAfterLoadKeys = CryptAfterLoadKeys
    OnBeforeSaveKeys = CryptBeforeSaveKeys
    OnAfterSaveKeys = CryptAfterSaveKeys
    OnChangeKey = SymmChangeKey
    OnChangeInitVector = SymmChangeInitVector
    OnPostValidateKey = SymmPostValidateKey
    Left = 108
    Top = 65
  end
  object RC41: TAS_RC4Cryptography
    OnBeforeEncrypt = CryptBeforeEncrypt
    OnAfterEncrypt = CryptAfterEncrypt
    OnBeforeDecrypt = CryptBeforeDecrypt
    OnAfterDecrypt = CryptAfterDecrypt
    OnBeforeEncryptBlock = CryptBeforeEncryptBlock
    OnAfterEncryptBlock = CryptAfterEncryptBlock
    OnBeforeDecryptBlock = CryptBeforeDecryptBlock
    OnAfterDecryptBlock = CryptAfterDecryptBlock
    OnBeforeGenKeys = CryptBeforeGenKeys
    OnAfterGenKeys = CryptAfterGenKeys
    OnBeforeLoadKeys = CryptBeforeLoadKeys
    OnAfterLoadKeys = CryptAfterLoadKeys
    OnBeforeSaveKeys = CryptBeforeSaveKeys
    OnAfterSaveKeys = CryptAfterSaveKeys
    OnChangeKey = SymmChangeKey
    OnChangeInitVector = SymmChangeInitVector
    OnPostValidateKey = SymmPostValidateKey
    Left = 136
    Top = 65
  end
  object RC51: TAS_RC5Cryptography
    OnBeforeEncrypt = CryptBeforeEncrypt
    OnAfterEncrypt = CryptAfterEncrypt
    OnBeforeDecrypt = CryptBeforeDecrypt
    OnAfterDecrypt = CryptAfterDecrypt
    OnBeforeEncryptBlock = CryptBeforeEncryptBlock
    OnAfterEncryptBlock = CryptAfterEncryptBlock
    OnBeforeDecryptBlock = CryptBeforeDecryptBlock
    OnAfterDecryptBlock = CryptAfterDecryptBlock
    OnBeforeGenKeys = CryptBeforeGenKeys
    OnAfterGenKeys = CryptAfterGenKeys
    OnBeforeLoadKeys = CryptBeforeLoadKeys
    OnAfterLoadKeys = CryptAfterLoadKeys
    OnBeforeSaveKeys = CryptBeforeSaveKeys
    OnAfterSaveKeys = CryptAfterSaveKeys
    OnChangeKey = SymmChangeKey
    OnChangeInitVector = SymmChangeInitVector
    OnPostValidateKey = SymmPostValidateKey
    Left = 164
    Top = 65
  end
  object Blowfish1: TAS_BFCryptography
    OnBeforeEncrypt = CryptBeforeEncrypt
    OnAfterEncrypt = CryptAfterEncrypt
    OnBeforeDecrypt = CryptBeforeDecrypt
    OnAfterDecrypt = CryptAfterDecrypt
    OnBeforeEncryptBlock = CryptBeforeEncryptBlock
    OnAfterEncryptBlock = CryptAfterEncryptBlock
    OnBeforeDecryptBlock = CryptBeforeDecryptBlock
    OnAfterDecryptBlock = CryptAfterDecryptBlock
    OnBeforeGenKeys = CryptBeforeGenKeys
    OnAfterGenKeys = CryptAfterGenKeys
    OnBeforeLoadKeys = CryptBeforeLoadKeys
    OnAfterLoadKeys = CryptAfterLoadKeys
    OnBeforeSaveKeys = CryptBeforeSaveKeys
    OnAfterSaveKeys = CryptAfterSaveKeys
    OnChangeKey = SymmChangeKey
    OnChangeInitVector = SymmChangeInitVector
    OnPostValidateKey = SymmPostValidateKey
    Left = 192
    Top = 65
  end
  object CAST1: TAS_CASTCryptography
    OnBeforeEncrypt = CryptBeforeEncrypt
    OnAfterEncrypt = CryptAfterEncrypt
    OnBeforeDecrypt = CryptBeforeDecrypt
    OnAfterDecrypt = CryptAfterDecrypt
    OnBeforeEncryptBlock = CryptBeforeEncryptBlock
    OnAfterEncryptBlock = CryptAfterEncryptBlock
    OnBeforeDecryptBlock = CryptBeforeDecryptBlock
    OnAfterDecryptBlock = CryptAfterDecryptBlock
    OnBeforeGenKeys = CryptBeforeGenKeys
    OnAfterGenKeys = CryptAfterGenKeys
    OnBeforeLoadKeys = CryptBeforeLoadKeys
    OnAfterLoadKeys = CryptAfterLoadKeys
    OnBeforeSaveKeys = CryptBeforeSaveKeys
    OnAfterSaveKeys = CryptAfterSaveKeys
    OnChangeKey = SymmChangeKey
    OnChangeInitVector = SymmChangeInitVector
    OnPostValidateKey = SymmPostValidateKey
    Left = 220
    Top = 65
  end
  object IDEA1: TAS_IDEACryptography
    OnBeforeEncrypt = CryptBeforeEncrypt
    OnAfterEncrypt = CryptAfterEncrypt
    OnBeforeDecrypt = CryptBeforeDecrypt
    OnAfterDecrypt = CryptAfterDecrypt
    OnBeforeEncryptBlock = CryptBeforeEncryptBlock
    OnAfterEncryptBlock = CryptAfterEncryptBlock
    OnBeforeDecryptBlock = CryptBeforeDecryptBlock
    OnAfterDecryptBlock = CryptAfterDecryptBlock
    OnBeforeGenKeys = CryptBeforeGenKeys
    OnAfterGenKeys = CryptAfterGenKeys
    OnBeforeLoadKeys = CryptBeforeLoadKeys
    OnAfterLoadKeys = CryptAfterLoadKeys
    OnBeforeSaveKeys = CryptBeforeSaveKeys
    OnAfterSaveKeys = CryptAfterSaveKeys
    OnChangeKey = SymmChangeKey
    OnChangeInitVector = SymmChangeInitVector
    OnPostValidateKey = SymmPostValidateKey
    Left = 248
    Top = 65
  end
  object RSA1: TAS_RSACryptography
    OnBeforeEncrypt = CryptBeforeEncrypt
    OnAfterEncrypt = CryptAfterEncrypt
    OnBeforeDecrypt = CryptBeforeDecrypt
    OnAfterDecrypt = CryptAfterDecrypt
    OnBeforeEncryptBlock = CryptBeforeEncryptBlock
    OnAfterEncryptBlock = CryptAfterEncryptBlock
    OnBeforeDecryptBlock = CryptBeforeDecryptBlock
    OnAfterDecryptBlock = CryptAfterDecryptBlock
    OnBeforeGenKeys = CryptBeforeGenKeys
    OnAfterGenKeys = CryptAfterGenKeys
    OnBeforeLoadKeys = CryptBeforeLoadKeys
    OnAfterLoadKeys = CryptAfterLoadKeys
    OnBeforeSaveKeys = CryptBeforeSaveKeys
    OnAfterSaveKeys = CryptAfterSaveKeys
    EncryptingDigest = MDXforRSA
    SigningDigest = SHA1forRSA
    EncryptionScheme = esPkcs1
    PrimeGenerator = AS_PrimeGenerator1
    OnChangeKeyE = RSA1ChangeKeyE
    OnChangeKeyD = RSA1ChangeKeyD
    OnChangeKeyN = RSA1ChangeKeyN
    OnBeforeSign = RSA1BeforeSign
    OnAfterSign = RSA1AfterSign
    OnBeforeVerify = RSA1BeforeVerify
    OnAfterVerify = RSA1AfterVerify
    Left = 362
    Top = 165
  end
  object Base641: TAS_Base64Coding
    OnBeforeEncode = Base641BeforeEncode
    OnAfterEncode = Base641AfterEncode
    OnBeforeDecode = Base641BeforeDecode
    OnAfterDecode = Base641AfterDecode
    Left = 404
    Top = 65
  end
  object MDXforRSA: TAS_DigestMDX
    Left = 390
    Top = 177
  end
end