反向木马源程序,供大家研究
源代码在线查看： unit4.dfm
object Form4: TForm4
Left = 470
Top = 125
BorderStyle = bsNone
Caption = #26381#21153#22120#31471#37197#32622#31243#24207
ClientHeight = 191
ClientWidth = 195
Color = clFuchsia
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
OldCreateOrder = False
Position = poDesktopCenter
ShowHint = True
OnClose = FormClose
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object gb: TGroupBox
Left = 4
Top = 8
Width = 185
Height = 141
Caption = #22522#26412#20449#24687#37197#32622
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object l1: TLabel
Left = 8
Top = 24
Width = 49
Height = 13
Caption = #20320#30340'IP'#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object l2: TLabel
Left = 8
Top = 54
Width = 49
Height = 13
Caption = #31471#21475#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object l3: TLabel
Left = 8
Top = 84
Width = 61
Height = 13
Caption = #36830#25509#23494#30721#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object e1: TEdit
Left = 76
Top = 20
Width = 100
Height = 19
Cursor = crHandPoint
Hint = #35774#32622#20320#33258#24049#30340'IP'#65292#20197#20415#23545#26041#33258#21160#36830#25509#20320#65281
Color = clInfoBk
Ctl3D = False
DragCursor = crHandPoint
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 15
ParentCtl3D = False
ParentFont = False
TabOrder = 0
Text = '127.0.0.1'
OnKeyPress = e1KeyPress
end
object e3: TEdit
Left = 76
Top = 80
Width = 77
Height = 19
Cursor = crHandPoint
Hint = #35774#32622#36830#25509#30340#23494#30721#65288#22312#36830#25509#26102#24517#39035#36755#20837#65281#65289
Color = clInfoBk
Ctl3D = False
DragCursor = crHandPoint
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 10
ParentCtl3D = False
ParentFont = False
PasswordChar = '*'
TabOrder = 2
end
object e2: TComboBox
Tag = 1
Left = 76
Top = 49
Width = 77
Height = 21
Cursor = crHandPoint
Hint = #35774#32622#36830#25509#30340#31471#21475#21495
Color = clInfoBk
DragCursor = crHandPoint
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
MaxLength = 5
ParentFont = False
TabOrder = 1
Text = '7892'
OnKeyPress = e2KeyPress
Items.Strings = (
'7892'
'9999'
'2222')
end
object B2: TButton
Left = 56
Top = 108
Width = 75
Height = 25
Caption = #30830#23450
TabOrder = 3
OnClick = B2Click
end
end
object B1: TBitBtn
Left = 60
Top = 160
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #29983#25104' ^-'#65290
DragCursor = crHandPoint
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = B1Click
end
object T1: TTimer
Enabled = False
Interval = 100
OnTimer = T1Timer
Left = 12
Top = 148
end
end
