Mundo do CD-ROM 29/CDROM29.iso/essenc/antibo/antigen.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-09-23 | 18.4 KB | 742 lines

object Form1: TForm1
  Left = 187
  Top = 121
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'AntiGen - Back Orifice Cleaner'
  ClientHeight = 275
  ClientWidth = 435
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 80
    Top = 248
    Width = 20
    Height = 20
    Hint = 'About'
    Flat = True
    Glyph.Data = {
      36020000424D3602000000000000360000002800000010000000100000000100
      1000000000000002000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000E001E001E001E001E001E00100000000000000000000000000000000
      E001E001E001E001FF7FFF7FE001E001E001E00100000000000000000000E001
      E001E001E001E001FF7FFF7FE001E001E001E001E0010000000000000000E001
      E001E001E001E001E001E001E001E001E001E001E001000000000000E001E001
      E001E001E001E001E001E001E001E001E001E001E001E00100000000E001E001
      E001E001E001E001FF7FFF7FE001E001E001E001E001E00100000000E001E001
      E001E001E001E001FF7FFF7FFF7FE001E001E001E001E00100000000E001E001
      E001E001E001E001E001FF7FFF7FE001E001E001E001E00100000000E001E001
      E001E001E001E001E001FF7FFF7FFF7FE001E001E001E00100000000E001E001
      E001E001FF7FFF7FE001E001FF7FFF7FE001E001E001E001000000000000E001
      E001E001FF7FFF7FE001E001FF7FFF7FE001E001E0010000000000000000E001
      E001E001FF7FFF7FFF7FFF7FFF7FFF7FE001E001E00100000000000000000000
      E001E001E001FF7FFF7FFF7FFF7FE001E001E001000000000000000000000000
      00000000E001E001E001E001E001E00100000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000}
    Layout = blGlyphBottom
    Spacing = 0
    OnClick = SpeedButton1Click
  end
  object Bevel1: TBevel
    Left = 0
    Top = 240
    Width = 433
    Height = 9
    Shape = bsTopLine
  end
  object wiz: TPageControl
    Left = 0
    Top = 0
    Width = 433
    Height = 233
    ActivePage = ts1
    TabHeight = 1
    TabOrder = 0
    TabWidth = 1
    OnChange = wizChange
    object ts1: TTabSheet
      Caption = 'ts1'
      object Label1: TLabel
        Left = 112
        Top = 8
        Width = 305
        Height = 57
        AutoSize = False
        Caption =
          'Welcome to AntiGen. This program will detect and remove the '#13#10'tr' +
          'ojan Back Orifice from your computer.'
      end
      object Label3: TLabel
        Left = 328
        Top = 192
        Width = 92
        Height = 13
        Caption = 'Click Next to begin.'
      end
      object si1: TImage
        Left = 0
        Top = 0
        Width = 105
        Height = 217
        Picture.Data = {<image001.bmp>}
        Stretch = True
      end
      object Label25: TLabel
        Left = 112
        Top = 112
        Width = 90
        Height = 13
        Caption = 'Running Programs:'
      end
      object Label2: TLabel
        Left = 112
        Top = 48
        Width = 313
        Height = 49
        AutoSize = False
        Caption =
          'If you use any port monitoring programs such as Port Magic, '#13#10'Ge' +
          'nius, or NukeNabber, please disable them now for accurate'#13#10'detec' +
          'tion.'
      end
      object chkPm: TCheckBox
        Left = 112
        Top = 128
        Width = 97
        Height = 17
        Caption = 'Port Magic'
        TabOrder = 0
      end
      object chkG: TCheckBox
        Left = 216
        Top = 128
        Width = 97
        Height = 17
        Caption = 'Genius'
        TabOrder = 1
      end
      object chkNN: TCheckBox
        Left = 320
        Top = 128
        Width = 97
        Height = 17
        Caption = 'NukeNabber'
        TabOrder = 2
      end
      object Button5: TButton
        Left = 112
        Top = 152
        Width = 129
        Height = 25
        Caption = 'Close selected programs'
        TabOrder = 3
        OnClick = Button5Click
      end
      object Memo1: TMemo
        Left = 360
        Top = 144
        Width = 33
        Height = 41
        Lines.Strings = (
          'NukeNabber'
          'NukeNabber 1.0'
          'NukeNabber 1.1'
          'NukeNabber 1.2'
          'NukeNabber 1.3'
          'NukeNabber 1.4'
          'NukeNabber 1.5'
          'NukeNabber 1.6'
          'NukeNabber 1.7'
          'NukeNabber 1.8'
          'NukeNabber 1.9'
          'NukeNabber 2'
          'NukeNabber 2.0'
          'NukeNabber 2.1'
          'NukeNabber 2.2'
          'NukeNabber 2.3'
          'NukeNabber 2.4'
          'NukeNabber 2.5'
          'NukeNabber 2.6'
          'NukeNabber 2.7'
          'NukeNabber 2.8'
          'NukeNabber 2.9'
          'NukeNabber 3'
          'NukeNabber 3.0'
          'NukeNabber 3.1'
          'NukeNabber 3.2'
          'NukeNabber 3.3'
          'NukeNabber 3.4')
        TabOrder = 4
        Visible = False
        WordWrap = False
      end
    end
    object ts2: TTabSheet
      Caption = 'ts2'
      object Label4: TLabel
        Left = 120
        Top = 8
        Width = 137
        Height = 13
        Caption = 'Checking for infection level...'
      end
      object Label5: TLabel
        Left = 200
        Top = 40
        Width = 209
        Height = 13
        AutoSize = False
        Caption = 'BOserve is installed'
      end
      object Label6: TLabel
        Left = 200
        Top = 72
        Width = 209
        Height = 13
        AutoSize = False
        Caption = 'BOserve loads on startup'
      end
      object Label7: TLabel
        Left = 200
        Top = 104
        Width = 209
        Height = 13
        AutoSize = False
        Caption = 'BOserve is running right now'
      end
      object Image3: TImage
        Left = 168
        Top = 40
        Width = 17
        Height = 17
        Transparent = True
      end
      object Image4: TImage
        Left = 168
        Top = 72
        Width = 17
        Height = 17
        Transparent = True
      end
      object Image5: TImage
        Left = 168
        Top = 104
        Width = 17
        Height = 17
        Transparent = True
      end
      object icheck: TImage
        Left = 256
        Top = 152
        Width = 17
        Height = 17
        Picture.Data = {<image002.bmp>}
        Transparent = True
      end
      object ix: TImage
        Left = 120
        Top = 152
        Width = 16
        Height = 16
        AutoSize = True
        Picture.Data = {<image003.bmp>}
        Transparent = True
      end
      object Label8: TLabel
        Left = 136
        Top = 152
        Width = 72
        Height = 13
        Caption = 'True / Infected'
      end
      object Label9: TLabel
        Left = 272
        Top = 152
        Width = 58
        Height = 13
        Caption = 'False / Safe'
      end
      object Label10: TLabel
        Left = 120
        Top = 192
        Width = 217
        Height = 13
        AutoSize = False
      end
      object si2: TImage
        Left = 0
        Top = 0
        Width = 105
        Height = 217
        Stretch = True
      end
    end
    object ts3: TTabSheet
      Caption = 'ts3'
      object Label11: TLabel
        Left = 120
        Top = 8
        Width = 289
        Height = 89
        AutoSize = False
        Caption =
          'BOServe is running on your computer right now, and'#13#10'you are curr' +
          'ently connected to the internet. This means'#13#10'that anyone can get' +
          ' into your computer system!'#13#10#13#10'Click Disconnect to close your In' +
          'ternet connection'#13#10'immediately. (recommended)'
      end
      object Label12: TLabel
        Left = 144
        Top = 208
        Width = 278
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Your Computer is connected to the Internet'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Image1: TImage
        Left = 0
        Top = 0
        Width = 105
        Height = 217
        Stretch = True
      end
      object BitBtn1: TBitBtn
        Left = 152
        Top = 112
        Width = 91
        Height = 25
        Caption = 'Disconnect'
        TabOrder = 0
        OnClick = BitBtn1Click
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFF000009
          990FFFFFF87A77999990FFFFF8FFF97F9F79FFFFFF00099FFF99FFFFFF88897F
          9F79FFFFFF802299999FF00000802229990F87A777802222280F8FFFFF802222
          280FF00000800000080FF8888888888888FFF80222280FFF4FFFF80222280FFF
          4FFFF802222804444FFFF80000080FFFFFFFFF888888FFFFFFFF}
      end
    end
    object ts4: TTabSheet
      Caption = 'ts4'
      object Image2: TImage
        Left = 0
        Top = 0
        Width = 105
        Height = 217
        Stretch = True
      end
      object Label13: TLabel
        Left = 112
        Top = 8
        Width = 289
        Height = 33
        AutoSize = False
        Caption =
          'Your system registry is being cleaned to prevent boserve'#13#10'from l' +
          'oading on StartUp.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Image9: TImage
        Left = 384
        Top = 16
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image004.ico>}
        Transparent = True
      end
      object ibo: TImage
        Left = 120
        Top = 48
        Width = 16
        Height = 16
        AutoSize = True
        Picture.Data = {<image005.bmp>}
        Stretch = True
        Transparent = True
      end
      object ibo2: TImage
        Left = 120
        Top = 80
        Width = 16
        Height = 16
        AutoSize = True
        Picture.Data = {<image006.bmp>}
        Stretch = True
        Transparent = True
      end
      object ibo3: TImage
        Left = 120
        Top = 112
        Width = 16
        Height = 16
        AutoSize = True
        Picture.Data = {<image007.bmp>}
        Stretch = True
        Transparent = True
      end
      object ibo4: TImage
        Left = 120
        Top = 144
        Width = 16
        Height = 16
        AutoSize = True
        Picture.Data = {<image008.bmp>}
        Stretch = True
        Transparent = True
      end
      object Label14: TLabel
        Left = 144
        Top = 48
        Width = 281
        Height = 17
        AutoSize = False
        Caption = 'software\Microsoft\Windows\CurrentVersion\Run'
        Color = clBtnFace
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label15: TLabel
        Left = 144
        Top = 80
        Width = 281
        Height = 17
        AutoSize = False
        Caption = 'software\Microsoft\Windows\CurrentVersion\RunServices'
        Color = clBtnFace
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label16: TLabel
        Left = 144
        Top = 112
        Width = 281
        Height = 17
        AutoSize = False
        Caption = 'software\microsoft\windows\currentversion\runonce'
        Color = clBtnFace
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label17: TLabel
        Left = 144
        Top = 144
        Width = 293
        Height = 13
        AutoSize = False
        Caption = 'software\microsoft\windows\currentversion\runservicesonce'
        Color = clBtnFace
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label18: TLabel
        Left = 112
        Top = 184
        Width = 153
        Height = 17
        AutoSize = False
        Caption = 'Cleaned registry'
        Visible = False
      end
    end
    object ts5: TTabSheet
      Caption = 'ts5'
      object Image6: TImage
        Left = 0
        Top = 0
        Width = 105
        Height = 217
        Stretch = True
      end
      object Image13: TImage
        Left = 384
        Top = 24
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image009.ico>}
      end
      object Label19: TLabel
        Left = 112
        Top = 8
        Width = 281
        Height = 121
        AutoSize = False
        Caption =
          'Your computer has disabled boserve from loading on'#13#10'startup. How' +
          'ever, these changes will not take place '#13#10'until you reboot your ' +
          'machine.'#13#10#13#10'Once your computer has restarted, you can optionally' +
          ' have'#13#10'AntiGen destroy the boserve files from your hard drive. '#13 +
          #10#13#10'I want to:'
        Transparent = True
      end
      object RadioButton1: TRadioButton
        Left = 136
        Top = 120
        Width = 260
        Height = 17
        Caption = 'Restart, and have AntiGen destroy boserve'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object RadioButton2: TRadioButton
        Left = 136
        Top = 144
        Width = 260
        Height = 17
        Caption = 'Restart and have AntiGen leave boserve alone'
        TabOrder = 1
      end
      object RadioButton3: TRadioButton
        Left = 136
        Top = 168
        Width = 260
        Height = 17
        Caption = 'I do not want to restart.'
        TabOrder = 2
      end
    end
    object ts6: TTabSheet
      Caption = 'ts6'
      object Image14: TImage
        Left = 384
        Top = 24
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image010.ico>}
      end
      object Image7: TImage
        Left = 0
        Top = 0
        Width = 105
        Height = 217
        Stretch = True
      end
      object Label20: TLabel
        Left = 112
        Top = 8
        Width = 309
        Height = 13
        Caption = 'BOserve files are being corrupted and erased from your computer.'
      end
      object Label21: TLabel
        Left = 128
        Top = 72
        Width = 39
        Height = 13
        Caption = 'windll.dll'
      end
      object Label22: TLabel
        Left = 128
        Top = 136
        Width = 34
        Height = 13
        Caption = 'EXE~1'
      end
      object Label26: TLabel
        Left = 128
        Top = 184
        Width = 169
        Height = 17
        AutoSize = False
        Caption = 'Files have been destroyed.'
        Visible = False
      end
      object ProgressBar1: TProgressBar
        Left = 128
        Top = 96
        Width = 289
        Height = 16
        Min = 0
        Max = 100
        TabOrder = 0
      end
      object ProgressBar2: TProgressBar
        Left = 128
        Top = 152
        Width = 289
        Height = 16
        Min = 0
        Max = 100
        TabOrder = 1
      end
    end
    object ts7: TTabSheet
      Caption = 'ts7'
      object Image8: TImage
        Left = 0
        Top = 0
        Width = 105
        Height = 217
        Stretch = True
      end
      object Label23: TLabel
        Left = 112
        Top = 8
        Width = 265
        Height = 13
        Caption = 'Your computer is now clean from the Back Orifice trojan.'
      end
      object Image16: TImage
        Left = 384
        Top = 24
        Width = 33
        Height = 33
        Picture.Data = {<image011.ico>}
      end
      object BitBtn3: TBitBtn
        Left = 136
        Top = 136
        Width = 97
        Height = 25
        Caption = 'Exit AntiDote'
        TabOrder = 0
        OnClick = BitBtn2Click
        Kind = bkClose
      end
    end
    object ts8: TTabSheet
      Caption = 'ts8'
      object Image15: TImage
        Left = 0
        Top = 0
        Width = 105
        Height = 217
        Stretch = True
      end
      object Label24: TLabel
        Left = 112
        Top = 8
        Width = 273
        Height = 105
        AutoSize = False
        Caption =
          'Back Orifice has been prevented from loading when your '#13#10'compute' +
          'r starts. However, it is possible that BOserve is'#13#10'still in memo' +
          'ry. BOserve still exists on your hard drive.'#13#10#13#10'To remove BOserv' +
          'e from memory, reboot your computer'#13#10'manually. If you decide you' +
          ' want to remove BOserve'#13#10'files from your machine, run AntiDote a' +
          'gain.'
      end
      object Image17: TImage
        Left = 384
        Top = 24
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image012.ico>}
      end
      object BitBtn2: TBitBtn
        Left = 136
        Top = 136
        Width = 97
        Height = 25
        Caption = 'Exit AntiDote'
        TabOrder = 0
        OnClick = BitBtn2Click
        Kind = bkClose
      end
    end
  end
  object Button4: TButton
    Left = 0
    Top = -4
    Width = 433
    Height = 8
    Enabled = False
    TabOrder = 4
  end
  object Button1: TButton
    Left = 280
    Top = 248
    Width = 75
    Height = 25
    Caption = '<< Back'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 360
    Top = 248
    Width = 75
    Height = 25
    Caption = 'Next >>'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 0
    Top = 248
    Width = 75
    Height = 25
    Caption = 'Exit'
    TabOrder = 3
    OnClick = Button3Click
  end
  object DialUp1: TDialUp
    DialMode = dmAsync
    Language = English
    OnNotConnected = DialUp1NotConnected
    OnActiveConnection = DialUp1ActiveConnection
    Left = 244
    Top = 245
  end
  object WinReboot1: TWinReboot
    Left = 212
    Top = 245
  end
  object bss: TBasicServerSocket
    Port = '31337'
    Protocol = 'udp'
    Restriction = hrDeny
    AllowOnlyIfReverseDNS = False
    Left = 176
    Top = 248
  end
end