rc_rijndael_main.dfm

Rijndael algorithm修正了CBC下BUG的版本(有源代码）工作在：D5。作者：Sergey Kirichenko。

object Form1: TForm1
  Left = 292
  Top = 281
  BorderStyle = bsToolWindow
  Caption = 'rijndael test'
  ClientHeight = 218
  ClientWidth = 438
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lplaintext: TLabel
    Left = 8
    Top = 48
    Width = 42
    Height = 13
    Caption = 'plaintext:'
  end
  object lciphertext: TLabel
    Left = 8
    Top = 140
    Width = 49
    Height = 13
    Caption = 'ciphertext:'
  end
  object Label3: TLabel
    Left = 8
    Top = 8
    Width = 57
    Height = 13
    Caption = 'key (in hex):'
  end
  object ePlainText: TEdit
    Left = 24
    Top = 64
    Width = 410
    Height = 21
    TabOrder = 1
    Text = 
      'Joan Daemen and Vincent Rijmen, the developers of the Rijndael a' +
      'lgorithm'
    OnChange = ePlainTextChange
  end
  object eCipherText: TEdit
    Left = 24
    Top = 156
    Width = 410
    Height = 21
    Color = clBtnFace
    TabOrder = 4
    OnChange = ePlainTextChange
  end
  object eKey: TEdit
    Left = 24
    Top = 24
    Width = 410
    Height = 21
    TabOrder = 0
    OnExit = eKeyExit
  end
  object btEncrypt: TBitBtn
    Left = 136
    Top = 108
    Width = 75
    Height = 25
    Caption = 'Encrypt'
    TabOrder = 2
    OnClick = btEncryptClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337F33333333333333033333333333333373F333333333333090333
      33333333337F7F33333333333309033333333333337373F33333333330999033
      3333333337F337F33333333330999033333333333733373F3333333309999903
      333333337F33337F33333333099999033333333373333373F333333099999990
      33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333300033333333333337773333333}
    NumGlyphs = 2
  end
  object btDecrypt: TBitBtn
    Left = 220
    Top = 108
    Width = 75
    Height = 25
    Caption = 'Decrypt'
    TabOrder = 3
    OnClick = btDecryptClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
      3333333333777F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
      3333333777737777F333333099999990333333373F3333373333333309999903
      333333337F33337F33333333099999033333333373F333733333333330999033
      3333333337F337F3333333333099903333333333373F37333333333333090333
      33333333337F7F33333333333309033333333333337373333333333333303333
      333333333337F333333333333330333333333333333733333333}
    Layout = blGlyphRight
    NumGlyphs = 2
  end
  object btClose: TBitBtn
    Left = 360
    Top = 188
    Width = 73
    Height = 25
    Caption = 'Close'
    TabOrder = 5
    OnClick = btCloseClick
  end
end