Advertisement
FlyFar

Unit1.dfm

Jun 7th, 2023
943
1
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 10.29 KB | Cybersecurity | 1 0
  1.    object Form1: TForm1
  2.      Left = 190
  3.      Top = 110
  4.      Width = 386
  5.      Height = 335
  6.      Caption = 'BotNet 2.0.5 - UCC Release'
  7.      Color = clBtnFace
  8.      Font.Charset = DEFAULT_CHARSET
  9.      Font.Color = clWindowText
  10.      Font.Height = -11
  11.      Font.Name = 'Arial'
  12.      Font.Style = []
  13.      Menu = MainMenu1
  14.      OldCreateOrder = False
  15.      OnCreate = FormCreate
  16.      OnResize = FormResize
  17.      DesignSize = (
  18.        378
  19.        289)
  20.      PixelsPerInch = 96
  21.      TextHeight = 14
  22.      object Label1: TLabel
  23.        Left = 129
  24.        Top = 8
  25.        Width = 9
  26.        Height = 25
  27.        Alignment = taCenter
  28.        Anchors = [akTop, akRight]
  29.        AutoSize = False
  30.        Caption = ':'
  31.        Font.Charset = DEFAULT_CHARSET
  32.        Font.Color = clWindowText
  33.        Font.Height = -11
  34.        Font.Name = 'Arial'
  35.        Font.Style = [fsBold]
  36.        ParentFont = False
  37.        Layout = tlCenter
  38.      end
  39.      object Label3: TLabel
  40.        Left = 0
  41.        Top = 32
  42.        Width = 73
  43.        Height = 17
  44.        AutoSize = False
  45.        Caption = 'Socket Status:'
  46.        Font.Charset = DEFAULT_CHARSET
  47.        Font.Color = 3618615
  48.        Font.Height = -11
  49.        Font.Name = 'Arial'
  50.        Font.Style = []
  51.        ParentFont = False
  52.      end
  53.      object Label4: TLabel
  54.        Left = 80
  55.        Top = 32
  56.        Width = 298
  57.        Height = 17
  58.        Anchors = [akLeft, akTop, akRight]
  59.        AutoSize = False
  60.        Caption = 'None'
  61.        Font.Charset = DEFAULT_CHARSET
  62.        Font.Color = clMaroon
  63.        Font.Height = -11
  64.        Font.Name = 'Arial'
  65.        Font.Style = []
  66.        ParentFont = False
  67.      end
  68.      object Label2: TLabel
  69.        Left = 193
  70.        Top = 8
  71.        Width = 9
  72.        Height = 25
  73.        Alignment = taCenter
  74.        Anchors = [akTop, akRight]
  75.        AutoSize = False
  76.        Caption = ':'
  77.        Font.Charset = DEFAULT_CHARSET
  78.        Font.Color = clWindowText
  79.        Font.Height = -11
  80.        Font.Name = 'Arial'
  81.        Font.Style = [fsBold]
  82.        ParentFont = False
  83.        Layout = tlCenter
  84.      end
  85.      object Panel1: TPanel
  86.        Left = 0
  87.        Top = 48
  88.        Width = 378
  89.        Height = 169
  90.        Anchors = [akLeft, akTop, akRight, akBottom]
  91.        BevelOuter = bvNone
  92.        TabOrder = 0
  93.        object Splitter1: TSplitter
  94.          Left = 249
  95.          Top = 0
  96.          Width = 5
  97.          Height = 169
  98.          Cursor = crHSplit
  99.          AutoSnap = False
  100.          Beveled = True
  101.          MinSize = 40
  102.          ResizeStyle = rsUpdate
  103.        end
  104.        object ListView1: TListView
  105.          Left = 254
  106.          Top = 0
  107.          Width = 124
  108.          Height = 169
  109.          Align = alClient
  110.          Color = 15921906
  111.          Columns = <
  112.            item
  113.              Caption = 'Nickname'
  114.              Width = 80
  115.            end
  116.            item
  117.              Caption = 'Data'
  118.              Width = 0
  119.            end>
  120.          ColumnClick = False
  121.          MultiSelect = True
  122.          ReadOnly = True
  123.          RowSelect = True
  124.          ShowColumnHeaders = False
  125.          TabOrder = 0
  126.          ViewStyle = vsReport
  127.          OnClick = ListView1Click
  128.          OnResize = ListView1Resize
  129.        end
  130.        object PageControl1: TPageControl
  131.          Left = 0
  132.          Top = 0
  133.          Width = 249
  134.          Height = 169
  135.          ActivePage = TabSheet2
  136.          Align = alLeft
  137.          Font.Charset = DEFAULT_CHARSET
  138.          Font.Color = clWindowText
  139.          Font.Height = -11
  140.          Font.Name = 'Arial'
  141.          Font.Style = []
  142.          MultiLine = True
  143.          ParentFont = False
  144.          TabIndex = 1
  145.          TabOrder = 1
  146.          TabPosition = tpLeft
  147.          object TabSheet1: TTabSheet
  148.            Caption = 'Information'
  149.            object Memo3: TMemo
  150.              Left = 0
  151.              Top = 0
  152.              Width = 222
  153.              Height = 161
  154.              Align = alClient
  155.              Color = 15921906
  156.              Ctl3D = True
  157.              ParentCtl3D = False
  158.              ReadOnly = True
  159.              ScrollBars = ssVertical
  160.              TabOrder = 0
  161.            end
  162.          end
  163.          object TabSheet2: TTabSheet
  164.            Caption = 'Chat'
  165.            ImageIndex = 1
  166.            object Memo1: TMemo
  167.              Left = 0
  168.              Top = 0
  169.              Width = 222
  170.              Height = 161
  171.              Align = alClient
  172.              Color = 15921906
  173.              ReadOnly = True
  174.              ScrollBars = ssVertical
  175.              TabOrder = 0
  176.            end
  177.          end
  178.        end
  179.      end
  180.      object RadioButton1: TRadioButton
  181.        Left = 0
  182.        Top = 224
  183.        Width = 33
  184.        Height = 17
  185.        Anchors = [akLeft, akBottom]
  186.        Caption = 'All'
  187.        Checked = True
  188.        TabOrder = 1
  189.        TabStop = True
  190.      end
  191.      object RadioButton2: TRadioButton
  192.        Left = 40
  193.        Top = 224
  194.        Width = 17
  195.        Height = 17
  196.        Anchors = [akLeft, akBottom]
  197.        Caption = 'RadioButton2'
  198.        TabOrder = 2
  199.      end
  200.      object ComboBox1: TComboBox
  201.        Left = 56
  202.        Top = 220
  203.        Width = 195
  204.        Height = 22
  205.        Style = csDropDownList
  206.        Anchors = [akLeft, akRight, akBottom]
  207.        Color = 15921906
  208.        ItemHeight = 14
  209.        ItemIndex = 0
  210.        TabOrder = 3
  211.        Text = 'Selected Bots Only'
  212.        Items.Strings = (
  213.          'Selected Bots Only'
  214.          'Bots Starting With'
  215.          'Bots Containing'
  216.          'Bots Ending With')
  217.      end
  218.      object Edit4: TEdit
  219.        Left = 254
  220.        Top = 220
  221.        Width = 124
  222.        Height = 22
  223.        Anchors = [akRight, akBottom]
  224.        Color = 15921906
  225.        TabOrder = 4
  226.      end
  227.      object Button3: TButton
  228.        Left = 329
  229.        Top = 245
  230.        Width = 49
  231.        Height = 20
  232.        Anchors = [akRight, akBottom]
  233.        Caption = '&Send'
  234.        TabOrder = 5
  235.        OnClick = Button3Click
  236.      end
  237.      object StatusBar1: TStatusBar
  238.        Left = 0
  239.        Top = 271
  240.        Width = 378
  241.        Height = 18
  242.        Panels = <
  243.          item
  244.            Text = '0 Bots'
  245.            Width = 80
  246.          end
  247.          item
  248.            Text = 'Client: Offline'
  249.            Width = 80
  250.          end
  251.          item
  252.            Text = 'Server: Offline'
  253.            Width = 80
  254.          end
  255.          item
  256.            Text = 'Timer: 00:00:00'
  257.            Width = 50
  258.          end>
  259.        SimplePanel = False
  260.      end
  261.      object Edit1: TEdit
  262.        Left = 0
  263.        Top = 8
  264.        Width = 129
  265.        Height = 22
  266.        Anchors = [akLeft, akTop, akRight]
  267.        Color = 15921906
  268.        TabOrder = 7
  269.        Text = '127.0.0.1'
  270.      end
  271.      object Edit2: TEdit
  272.        Left = 137
  273.        Top = 8
  274.        Width = 57
  275.        Height = 22
  276.        Anchors = [akTop, akRight]
  277.        Color = 15921906
  278.        TabOrder = 8
  279.        Text = '6668'
  280.      end
  281.      object Button2: TButton
  282.        Left = 313
  283.        Top = 8
  284.        Width = 65
  285.        Height = 22
  286.        Anchors = [akTop, akRight]
  287.        Caption = '&Connect'
  288.        TabOrder = 10
  289.        OnClick = Button2Click
  290.      end
  291.      object Panel2: TPanel
  292.        Left = 0
  293.        Top = 0
  294.        Width = 378
  295.        Height = 2
  296.        Align = alTop
  297.        BevelOuter = bvLowered
  298.        TabOrder = 11
  299.      end
  300.      object CheckBox1: TCheckBox
  301.        Left = 257
  302.        Top = 248
  303.        Width = 65
  304.        Height = 17
  305.        Anchors = [akRight, akBottom]
  306.        Caption = 'Rawdata'
  307.        TabOrder = 12
  308.      end
  309.      object bGate: TCheckBox
  310.        Left = 264
  311.        Top = 8
  312.        Width = 49
  313.        Height = 22
  314.        Anchors = [akTop, akRight]
  315.        Caption = 'Gate'
  316.        TabOrder = 13
  317.      end
  318.      object Edit3: TEdit
  319.        Left = 201
  320.        Top = 8
  321.        Width = 57
  322.        Height = 22
  323.        Anchors = [akTop, akRight]
  324.        Color = 15921906
  325.        TabOrder = 9
  326.        Text = 'AdminNick'
  327.      end
  328.      object Memo2: TEdit
  329.        Left = 0
  330.        Top = 245
  331.        Width = 251
  332.        Height = 22
  333.        Anchors = [akLeft, akRight, akBottom]
  334.        TabOrder = 14
  335.      end
  336.      object MainMenu1: TMainMenu
  337.        Left = 64
  338.        Top = 56
  339.        object FIle1: TMenuItem
  340.          Caption = '&File'
  341.          object Config1: TMenuItem
  342.            Caption = '&Config'
  343.            OnClick = Config1Click
  344.          end
  345.          object N1: TMenuItem
  346.            Caption = '-'
  347.          end
  348.          object Client1: TMenuItem
  349.            Caption = 'C&lient'
  350.            object Start1: TMenuItem
  351.              Caption = '&Start'
  352.              OnClick = Start1Click
  353.            end
  354.            object Stop1: TMenuItem
  355.              Caption = 'S&top'
  356.              OnClick = Stop1Click
  357.            end
  358.          end
  359.          object Server1: TMenuItem
  360.            Caption = '&Server'
  361.            object Start2: TMenuItem
  362.              Caption = '&Start'
  363.              OnClick = Start2Click
  364.            end
  365.            object Stop2: TMenuItem
  366.              Caption = 'S&top'
  367.              OnClick = Stop2Click
  368.            end
  369.          end
  370.          object N2: TMenuItem
  371.            Caption = '-'
  372.          end
  373.          object Exit1: TMenuItem
  374.            Caption = '&Exit'
  375.            OnClick = Exit1Click
  376.          end
  377.        end
  378.        object About1: TMenuItem
  379.          Caption = '&About'
  380.          object BotNet1: TMenuItem
  381.            Caption = '&BotNet'
  382.          end
  383.          object BotPage1: TMenuItem
  384.            Caption = 'B&otPage'
  385.          end
  386.        end
  387.      end
  388.      object Timer1: TTimer
  389.        Enabled = False
  390.        Interval = 10
  391.        OnTimer = Timer1Timer
  392.        Left = 32
  393.        Top = 56
  394.      end
  395.      object ServerSocket1: TServerSocket
  396.        Active = False
  397.        Port = 6667
  398.        ServerType = stNonBlocking
  399.        OnListen = ServerSocket1Listen
  400.        OnClientConnect = ServerSocket1ClientConnect
  401.        OnClientRead = ServerSocket1ClientRead
  402.        OnClientError = ServerSocket1ClientError
  403.        Left = 96
  404.        Top = 56
  405.      end
  406.      object ClientSocket1: TClientSocket
  407.        Active = False
  408.        ClientType = ctNonBlocking
  409.        Port = 0
  410.        OnConnecting = ClientSocket1Connecting
  411.        OnConnect = ClientSocket1Connect
  412.        OnDisconnect = ClientSocket1Disconnect
  413.        OnRead = ClientSocket1Read
  414.        OnError = ClientSocket1Error
  415.        Left = 128
  416.        Top = 56
  417.      end
  418.      object Timer2: TTimer
  419.        Interval = 1
  420.        OnTimer = Timer2Timer
  421.        Left = 160
  422.        Top = 56
  423.      end
  424.    end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement