手把手教你寫小偷程序[轉帖]

顯示全部樓層 · 發表於 2004-8-23 02:58:08

先選中一個你想「偷」的網頁程序。。。
我這裡看中了它。。呵呵  。。。很多妹妹圖片。。。口水中。。
http://www.linkmm.com/photo/ads2.html
然後建立個ASP網頁，先把以下代碼複製進去
<%Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr (CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function

Url = "http://www.linkmm.com/photo/ads2.html";
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)%>

其中Url = "http://www.linkmm.com/photo/ads2.html";就是你想要偷  的網頁，換成你需要的就可以了。。
這個時候response.write 一下。。是不是很多圖片看不見啊。。不急，我們有replace呢。。把你現在的網頁查看下原文件，，把原來的網頁查看下願文件對比下就知道怎麼讓這些無法顯示的顯示出來。。。比起那些一個個replace替換圖片的方法
用這個方法好多了就是在有src的地方在他前面直接替換網址多方便呵呵。。
在寫這段代碼。。程序就完了呵呵
<%baseurl1="http://www.linkmm.com/photo";
SourceCode =replace(sourcecode,"src=""img/","src=""http://www.linkmm.com/photo/img/";)
SourceCode =replace(sourcecode,"new.gif",baseurl1&"/new.gif")
SourceCode =replace(sourcecode,"href=""photo888","href=""http://www.linkmm.com/photo/photo888";)
SourceCode =replace(sourcecode,"site.css","http://www.linkmm.com/photo/site.css";)
response.write SourceCode%>

是不是很簡單啊。不懂的聯繫我52596464
完整代碼如下：
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="3600">
<title></title>
</head>

<body>

<%
Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr (CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function

Url = "http://www.linkmm.com/photo/ads2.html";
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)
baseurl1="http://www.linkmm.com/photo";
SourceCode =replace(sourcecode,"src=""img/","src=""http://www.linkmm.com/photo/img/";)
SourceCode =replace(sourcecode,"new.gif",baseurl1&"/new.gif")
SourceCode =replace(sourcecode,"href=""photo888","href=""http://www.linkmm.com/photo/photo888";)
SourceCode =replace(sourcecode,"site.css","http://www.linkmm.com/photo/site.css";)
response.write SourceCode
%>
</body>

</html>

顯示全部樓層 · 發表於 2004-8-23 13:35:27

提示: 作者被禁止或刪除內容自動屏蔽

顯示全部樓層 · 發表於 2004-8-23 18:02:42

提示: 作者被禁止或刪除內容自動屏蔽

顯示全部樓層 · 發表於 2004-8-23 18:32:53

支持，這樣就對了，多發些有用的貼。

顯示全部樓層 · 發表於 2004-8-23 19:15:47

顯示全部樓層 · 發表於 2004-8-23 20:18:32

好,學習

顯示全部樓層 · 發表於 2004-8-24 13:25:39

謝謝,在網賺中學網絡技術是最大的收穫.

顯示全部樓層 · 發表於 2004-8-27 16:04:12

顯示全部樓層 · 發表於 2004-8-28 00:35:17

顯示全部樓層 · 發表於 2004-9-2 10:41:36

好貼

		自動登錄	找回密碼
密碼			免费注册

手把手教你寫小偷程序[轉帖]

相關帖子