<<  大家尽管砸砖头 | 首 页 | 小偷程序原理和简单示例(转贴)  >>

  • 手把手教你写小偷程序 - [碧雪日记]

    2004-03-31

    版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
    http://cibe.yourblog.org/logs/132158.html

    手把手教你写小偷程序 先选中一个你想 “偷” 的网页程序。。。 我这里看中了它。。呵呵 。。。很多妹妹图片。。。口水中。。 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 "’ target="_blank" >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 "’ target="_blank" >http://www.linkmm.com/photo/ads2.html ";;就是你想要 偷 的网页，换成你需要的就可以了。。 这个时候response.write 一下。。是不是很多图片看不见啊。。不急，我们有replace呢。。把你现在的网页查看下原文件，，把原来的网页查看下愿文件对比下就知道怎么让这些无法显示的显示出来。。。比起那些一个个replace替换图片的方法 用这个方法好多了就是在有src的地方在他前面直接替换网址多方便呵呵。。 在写这段代码。。程序就完了呵呵 <%baseurl1="http://www.linkmm.com/photo"’ target="_blank" >http://www.linkmm.com/photo";; SourceCode =replace(sourcecode,"src=""img/","src=""http://www.linkmm.com/photo/img/"’ target="_blank" >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"’ target="_blank" >http://www.linkmm.com/photo/photo888"; SourceCode =replace(sourcecode,"site.css","http://www.linkmm.com/photo/site.css"’ target="_blank" >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 "’ target="_blank" >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"’ target="_blank" >http://www.linkmm.com/photo";; SourceCode =replace(sourcecode,"src=""img/","src=""http://www.linkmm.com/photo/img/"’ target="_blank" >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"’ target="_blank" >http://www.linkmm.com/photo/photo888"; SourceCode =replace(sourcecode,"site.css","http://www.linkmm.com/photo/site.css"’ target="_blank" >http://www.linkmm.com/photo/site.css"; response.write SourceCode %> </body> </html>

    随机文章：

    免费QQ 2004-04-20
    好土 2004-03-31

    收藏到：Del.icio.us




    Tag：
    引用地址：
    碧雪 发表于12:16:34 | 编辑 | 继续话题 | 转发 | 推荐

发表评论

您将收到博主的回复邮件
记住我