幽鬼狼魂 发表于 2007 年 8 月 6 日 10:23:02

发一个牛逼的HTML小偷程序Ajax无刷新。

<html>
<DIV id=word >a</div>
<DIV id=worda >暂时不播放</div>
<script language="vbscript">
document.all.word.innerHTML="请等候，呵呵"
url="http://www.inkui.com"
'document.all.word.innerHTML=fenjiegequ(gethttp(dedaobofangyemian(gethttp(url))))
tmp=document.location.href
If instr(tmp,"#")<>0 then
tmp=mid(tmp,instr(tmp,"#")+1)
tmp=replace(tmp,"=","=""")
tmp=replace(tmp,"&",""""&chr(13)&chr(10))
tmp=tmp&""""
execute(tmp)
End if
If aaa="gecihebofang" Then
url=url&urla
yemian=gethttp(url)
yemiana=yemian
document.all.word.innerHTML=geci(yemian)
document.all.worda.innerHTML="<embed src="""&fenjiegequ(gethttp(dedaobofangyemian(yemiana)))&""" autostart=""true"" loop=""false"" BufferingTime=""8"" EnableContextMenu=""0"" EnableTracker=""-1"" PlayCount=""1"" ShowControls=""-1"" ShowAudioControls=""-1"" ShowPositionControls=""-1"" ShowStatusBar=""-1"" ShowTracker=""-1"">"
Else
url="http://www.inkui.com/a1/3/3DB840F62E2C2F152207_s.html"
yemian= gethttp(url)
document.all.word.innerHTML=dedaogerenyemian(yemian)
End If
'MsgBox geci(gethttp(url))
Function dedaogerenyemian(getqushujua)
getqushujua=Mid(getqushujua,InStr(getqushujua,"<table border="))
getqushujua=left(getqushujua,InStr(getqushujua,"<div id=""memo"">")-1)
getqushujua=tihuan(getqushujua,"<input type=[^>]*/>","")
getqushujua=tihuan(getqushujua,"html"">","html"" target=""_blank"">")
getqushujua=tihuan(getqushujua,"href=""","href="""&document.location.href&"#aaa=gecihebofang&urla=")
dedaogerenyemian=getqushujua
End Function


Function dedaobofangyemian(getqushujua)
'WScript.Echo getqushuju
'msgbox getqushujua
getqushujua=Mid(getqushujua,InStr(getqushujua,"wmplay"))
getqushujua=left(getqushujua,InStr(getqushujua,")")-1)
tmpstr= Split(getqushujua,"'")
getqushujua=tmpstr(UBound(tmpstr)-1)
fuwuqidizhi="http://www.inkui.com/wmplayer/?id="
dedaobofangyemian=fuwuqidizhi&getqushujua
End Function
Function geci(getqushuju)
'MsgBox getqushuju
getqushuju=mid(getqushuju,InStr(getqushuju,"<div class=""mainlrcb""><p>"))
'MsgBox getqushuju
getqushuju=left(getqushuju,InStr(getqushuju,"</div><div id=""sidebar"">")-1)
'MsgBox getqushuju
getqushuju=tihuan(getqushuju,"<span class=""hidtext"">[^\.]{1,5}</span>","")
getqushuju=tihuan(getqushuju,"（歌词转自 音魁网 www.inkui.com）","")
getqushuju=tihuan(getqushuju,"<span class=""hidtext"">[^\.]{1,5}</span>","")
geci=getqushuju
End Function

Function wmplay(gequid)
document.all.word.innerHTML=fenjiegequ(gethttp("http://www.inkui.com/wmplayer/?id="&gequid))
End Function

Function fenjiegequ(getqushuju)
tmpstr= Split(getqushuju,"|")
getqushuju=tmpstr(UBound(tmpstr))
getqushuju=left(getqushuju,InStr(getqushuju,"""")-1)
fenjiegequ=dedaolujing(getqushuju)
End Function

Function dedaolujing(getqushuju)
qianzui="http://w1.imusic.cn:8089/wma/"
dedaolujing=qianzui&Mid(getqushuju,1,1)&"/"&Mid(getqushuju,2,1)&"/"&getqushuju&".wma"
End Function

Function gethttp(geturl)
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET",geturl,false
xPost.Send
'gethttp=bytesToBSTR(xPost.Responsebody,"gb2312")
gethttp=strAnsi2Unicode(xPost.Responsebody)
End Function

Function strAnsi2Unicode(asContents)
        Dim len1,i,varchar,varasc
        strAnsi2Unicode = ""
        len1=LenB(asContents)
        If len1=0 Then Exit Function
          For i=1 to len1
                  varchar=MidB(asContents,i,1)
                  varasc=AscB(varchar)
                  If varasc > 127Then
                          If MidB(asContents,i+1,1)<>"" Then
                                  strAnsi2Unicode = strAnsi2Unicode & chr(ascw(midb(asContents,i+1,1) & varchar))
                          End If
                          i=i+1
             Else
                     strAnsi2Unicode = strAnsi2Unicode & Chr(varasc)
             End If       
          Next
End Function
Function tihuan(yuanlai,zhengze,zifu)
                Set re=new RegExp
                re.IgnoreCase =True
                re.Global=True
                re.Pattern=zhengze
                tihuan=re.Replace(yuanlai,zifu)       
                set re=Nothing
End Function
</script>

</html>

duwu 发表于 2007 年 8 月 6 日 10:26:03

支持一下。

y 发表于 2007 年 8 月 6 日 10:27:11

客户端用vbs。。。完全没实用价值。。。而且这个只是用vbs读取数据，算不上AJAX

[ 本帖最后由 y 于 2007-8-6 10:28 编辑 ]

chungwoo 发表于 2007 年 8 月 6 日 10:29:59

传说中的y

天津互联 发表于 2007 年 8 月 6 日 10:53:45

恩,好

http://www.ysw8.com

qazqaz1 发表于 2007 年 8 月 6 日 11:19:44

感谢楼主，现在热心的人不多了:)

还能注册马.甲么 发表于 2007 年 8 月 6 日 11:28:36

AJAX能跨域么......

幽鬼狼魂 发表于 2007 年 8 月 6 日 11:48:55

...........................呵呵。不知道能不能呵呵

cyjme 发表于 2007 年 8 月 6 日 13:44:13

偶正需要这个东西了 呵呵

lovou 发表于 2007 年 8 月 6 日 13:49:17

都是强的NBY...
页: [1] 2
查看完整版本: 发一个牛逼的HTML小偷程序Ajax无刷新。