设为首页 - 加入收藏

您的当前位置:首页 > VB的木马程序

VB的木马程序

来源:8miu百度云文档 编辑:小木木 时间:2018-06-18 18:12

现在网络上流行的木马软件基本都是客户机/服务器模式也就是所谓的C/S结构,目前也有一些开始向B/S结构转变,在这里暂且不对B/S结构进行详谈,本文主要介绍C/S结构其原理就是在本机直接启动运行的程序拥有与使用者相同的权限。因此如果能够启动服务器端(即被攻击的计算机)的服务器程序,就可以使用相应的客户端工具客户程序直接控制它了。下面来谈谈如何用VB来实现它。
  

   首先使用VB建立两个程序,一个为客户端程序Client,一个为服务器端程序systry。

  

   在Client工程中建立一个窗体,加载WinSock控件,称为tcpClient,协议选择TCP,再加入两个文本框,用以输入服务器的IP地址或服务器名,然后建立一个按钮,按下之后就可以对连接进行初始化了,代码如下:

  

  Private Sub cmdConnect_Click()

   If Len(Text1.Text) = 0 And Len(Text2.Text) = 0 Then

   MsgBox ("请输入主机名或主机IP地址。")

   Exit Sub

   Else

   If Len(Text1.Text) > 0 Then

   tcpClient.RemoteHost = Text1.Text

   Else

   tcpClient.RemoteHost = Text2.Text

   End If

   End If

   tcpClient.Connect

   Timer1.Enabled = True

  End Sub

  

  连接建立之后就可以使用DataArrival事件处理所收到的数据了。

  

  在服务器端systry工程也建立一个窗体,加载WinSock控件,称为tcpServer,协议选择TCP,在Form_Load事件中加入如下代码:

  

  Private Sub Form_Load()

   tcpServer.LocalPort = 1999

   tcpServer.Listen

  End Sub

  

  准备应答客户端程序的请求连接,使用ConnectionRequest事件来应答户端程序的请求,代码如下:

  

  Private Sub tcpServer_ConnectionRequest

  (ByVal requestID As Long)

   If tcpServer.State < > sckClosed Then

   tcpServer.Close‘检查控件的 State 属性是否为关闭的。

   End If '如果不是,在接受新的连接之前先关闭此连接。

   tcpServer.Accept requestID

  End Sub

  

  这样在客户端程序按下了连接按钮后,服务器端程序的ConnectionRequest事件被触发,执行了以上的代码。如果不出意外,连接就被建立起来了。

  

  建立连接后服务器端的程序通过DataArrival事件接收客户机端程序所发的指令运行既定的程序。如:把服务器端的驱动器名、目录名、文件名等传到客户机端,客户机端接收后用TreeView控件以树状的形式显示出来,浏览服务器端文件目录;强制关闭或重启服务器端的计算机;屏蔽任务栏窗口;屏蔽开始菜单;按照客户机端传过来的文件名或目录名,而删

推荐使用下列工具:

百度云搜索http://baiduyun.6miu.com

盘多多http://www.aiyoweia.com

百度云资源http://yun.8miu.com

8miu官方创办返利网,发米哥返利网,最高返券1000元!返券返到手抽筋!

发米哥返利网http://www.famige.com

发米人是8miu官方的网站建设,APP开发,微信小程序开发,京东天猫淘宝装修!

发米人http://www.famiren.com

发米友小说阅读网是8miu官方的小说阅读网

发米友http://www.famiyou.com

热门推荐

最新图文

Copyright © 2010-2017 Powered by 8miu百度云文档

Top