浅谈用VB6.0编写“特洛伊木马”程序

“特洛伊木马”又名BO，是黑客组织在美国一个黑客技术研讨会上推出的。实际上它是一个客户机/服务器程序，它的利用原理是:在这台机器上直接启动并运行的程序与用户具有相同的权限。所以如果能在服务器端(也就是被攻击的电脑)启动服务器程序，就可以使用相应的客户端工具客户端程序直接控制。下面说一下如何用VB实现。

用VB编写了两个程序，一个是客户端程序，一个是服务器端程序。

在客户端项目中设置一个窗体，加载WinSock控件，名为tcpClient，选择TCP作为协议，添加两个文本框输入服务器的IP地址或服务器名称，然后设置一个按钮，按下按钮可以初始化连接。代码如下:

private cmd connect _ click()
如果len (text1.text) = 0且len (text2.text) = 0，则
msgbox("请输入主机名或主机IP地址。")
Exit Sub
Else
If Len(text 1。Text) > 0，然后
tcpClient。RemoteHost = Text1。Text
Else
tcpClient。RemoteHost = Text2。text
End If
End If
TCP client。连接
定时器1。Enabled = True
End Sub

建立连接后，DataArrival事件可用于处理接收到的数据。

建立连接后，DataArrival事件可用于处理接收到的数据。

在服务器端的systry项目中，也建立了一个窗体，加载了WinSock控件，这个控件叫做tcpServer。选择TCP作为协议，并将以下代码添加到Form_Load事件中:

private Sub Form _ Load()
TCP server。LocalPort = 1999
tcpServer。Listen
End Sub

准备回答客户端程序的请求连接，使用ConnectionRequest事件回答客户端程序的请求。代码如下:

Private TCP server _ connection请求
(byval请求id为long)
如果是TCP服务器。State < > sckclosedthen然后
TCP server.close '检查控件的State属性是否已关闭。
如果没有，请在接受新连接之前关闭此连接。
tcpServer。接受requestID
End Sub

这样，客户端程序按下connect按钮后，触发服务器程序的ConnectionRequest事件，执行上面的代码。如果不出问题，连接就建立了。