手把手教你写小偷程序[转帖]

[复制链接]
查看: 1922   回复: 9
发表于 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>
tzliuping 该用户已被删除
发表于 2004-8-23 13:35:27 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

love1983 该用户已被删除
发表于 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 | 显示全部楼层
好贴
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则