unit1.dfm

simple RSA crypt/decrypt

object Form1: TForm1
  Left = 219
  Top = 167
  Width = 779
  Height = 516
  Caption = #1054#1057' '#1051'8'
  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 = 16
    Top = 8
    Width = 369
    Height = 225
    Caption = #1092#1072#1081#1083
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 200
      Width = 20
      Height = 13
      Caption = #1080#1084#1103
    end
    object Label2: TLabel
      Left = 136
      Top = 32
      Width = 99
      Height = 13
      Caption = #1089#1086#1076#1077#1088#1078#1080#1084#1086#1077' '#1092#1072#1081#1083#1072
    end
    object Button1: TButton
      Left = 16
      Top = 16
      Width = 97
      Height = 25
      Caption = #1086#1090#1082#1088#1099#1090#1100' '#1092#1072#1081#1083
      TabOrder = 0
      OnClick = Button1Click
    end
    object Memo1: TMemo
      Left = 16
      Top = 48
      Width = 337
      Height = 145
      Lines.Strings = (
        #1085#1077' '#1086#1090#1082#1088#1099#1090' '#1092#1072#1081#1083)
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 400
    Top = 8
    Width = 361
    Height = 225
    Caption = #1096#1080#1092#1088#1086#1074#1072#1085#1080#1077
    TabOrder = 1
    object Label3: TLabel
      Left = 224
      Top = 16
      Width = 43
      Height = 13
      Caption = #1072#1083#1092#1072#1074#1080#1090
    end
    object ListBox1: TListBox
      Left = 16
      Top = 24
      Width = 89
      Height = 89
      ItemHeight = 13
      TabOrder = 0
    end
    object LabeledEdit1: TLabeledEdit
      Left = 72
      Top = 196
      Width = 49
      Height = 21
      EditLabel.Width = 7
      EditLabel.Height = 13
      EditLabel.Caption = 'P'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 1
      Text = '3'
      Visible = False
    end
    object LabeledEdit2: TLabeledEdit
      Left = 16
      Top = 196
      Width = 49
      Height = 21
      EditLabel.Width = 8
      EditLabel.Height = 13
      EditLabel.Caption = 'Q'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 2
      Text = '11'
      Visible = False
    end
    object Button2: TButton
      Left = 16
      Top = 120
      Width = 89
      Height = 25
      Caption = #1047#1072#1096#1080#1092#1088#1086#1074#1072#1090#1100
      TabOrder = 3
      OnClick = Button2Click
    end
    object StringGrid1: TStringGrid
      Left = 136
      Top = 32
      Width = 217
      Height = 185
      ColCount = 3
      FixedCols = 0
      TabOrder = 4
      RowHeights = (
        24
        24
        24
        24
        24)
    end
    object Button3: TButton
      Left = 16
      Top = 152
      Width = 89
      Height = 25
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
      TabOrder = 5
      OnClick = Button3Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 16
    Top = 240
    Width = 369
    Height = 217
    Caption = #1088#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072
    TabOrder = 2
    object Label7: TLabel
      Left = 16
      Top = 56
      Width = 30
      Height = 13
      Caption = #1058#1077#1082#1089#1090
    end
    object Label8: TLabel
      Left = 240
      Top = 16
      Width = 79
      Height = 13
      Caption = #1082#1086#1076#1099' '#1089#1080#1084#1074#1086#1083#1086#1074
    end
    object Button4: TButton
      Left = 8
      Top = 16
      Width = 89
      Height = 25
      Caption = #1088#1072#1089#1096#1080#1092#1088#1086#1074#1072#1090#1100
      TabOrder = 0
      OnClick = Button4Click
    end
  end
  object ListBox2: TListBox
    Left = 248
    Top = 272
    Width = 121
    Height = 169
    ItemHeight = 13
    TabOrder = 3
  end
  object Button6: TButton
    Left = 680
    Top = 240
    Width = 81
    Height = 33
    Caption = #1047#1072#1082#1088#1099#1090#1100
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 400
    Top = 320
    Width = 177
    Height = 33
    Caption = #1086#1095#1080#1089#1090#1080#1090#1100' '#1074#1089#1077' '#1088#1077#1079#1091#1083#1100#1090#1072#1090#1099
    TabOrder = 5
    Visible = False
    OnClick = Button7Click
  end
  object RichEdit1: TRichEdit
    Left = 24
    Top = 312
    Width = 217
    Height = 129
    TabOrder = 6
  end
  object Memo2: TMemo
    Left = 688
    Top = 280
    Width = 65
    Height = 81
    TabOrder = 7
    Visible = False
  end
  object ListBox3: TListBox
    Left = 400
    Top = 240
    Width = 273
    Height = 217
    ItemHeight = 13
    TabOrder = 8
  end
  object OpenDialog1: TOpenDialog
    Filter = 'txt|*.txt'
    Left = 328
    Top = 144
  end
  object SaveDialog1: TSaveDialog
    Filter = 'txt|*.txt'
    Left = 504
    Top = 24
  end
end