山东互联星空破解，感兴趣的进来！！！

pengteling 2005-09-12 01:58:43

现在很多提供免费网络电视的网站，无非就是破解互联星空和其它电视台提供的直播地址。
不过基本上都作了加密，如
mms://219.136.240.2/gztv1?userid=guest&token=059c538197c29180357d739c5701a1db
有一种破解方法就是用xmlhttp读取出这个地址
asp代码如下：（重要的是要找出这个地址http://video.gztv.com/live_video.jsp?id＝7）
<%
on error resume next
Const adTypeBinary = 1
Const adTypeText = 2
Function Bytes2bStr(vin)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin
.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function
Url = "http://video.gztv.com/live_video.jsp?id="&Request("id")&""
set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false)
oSend.send()
if err.number<>0 then
Response.write err.description
Response.End()
end if
SourceCode = bytes2BSTR(oSend.responseBody)
betw=instr(SourceCode,"VALUE=")-instr(SourceCode,"rate")
first=instr(SourceCode,"VALUE=")
SourceCode = Mid(SourceCode,first,abs(betw))
SourceCode=replace(SourceCode,"VALUE=","<REF href=")
SourceCode=replace(SourceCode,">","/>")
SourceCode=replace(SourceCode,"<param NAME=""","")
SourceCode=replace(SourceCode,chr(10),"")
SourceCode=replace(SourceCode,chr(13),"")
%>
<ASX VERSION="3.0">
<repeat>
<Entry>
<title>www.henshui.com</title>
<AUTHOR>www.henshui.com</AUTHOR>
<COPYRIGHT>www.henshui.com</COPYRIGHT>
<%=SourceCode%>
<BANNER href="http://www.henshui.com/images/logo.gif">
<ABSTRACT>www.henshui.com</ABSTRACT>
<moreinfo href="http://www.henshui.com"/></banner>
</Entry>
</repeat>
</asx>

上面就是广州电视台提供的在线播放的破解。但是山东互联星空限制IP，有人提示过如果这个asp网页放到有山东ip的服务器上应该也可以用类似的办法实现，但不可能因为这个就得去换空间吧。我已经看到不少网站已经突破了这个限制，请教一下有没有高手知道解决办法，再是如果对这方面感兴趣的朋友可以加ＱＱ：33460202

...全文