简单的盗连例子

最新推荐文章于 2021-11-16 00:02:12 发布
最新推荐文章于 2021-11-16 00:02:12 发布
阅读量1.1k 收藏 1
点赞数
分类专栏： VB.NET ASP.NET 文章标签： insert table import server string border
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/wgsnet/article/details/579893
版权

有时候人总是很懒惰，总想获取别人现存的东西，盗连就是一种。（盗连可耻？）

比如要获取CSDN技术中心 文档列表 

见http://www.wgscd.com/dev/articlelist.aspx

------------------------

articlelist.aspx

----------------------------

<%@ Page Language="VB" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.Net" %>
<script runat="server">

    ' Insert page code here
         '
             ' *******Get CDDN articlelist********
             'wgscd 2006/1/12 ,mail:wgscd126.com
             'www.wgscd.com, QQ153964481
             '**************************************


    sub Page_Load(sender as Object, e as EventArgs)


    response.write("<center><A Href=""Http://www.wgscd.com"" Taget=""_Blank"">www.wgscd.com</A></center>")

    Dim BaseURL As String = "http://dev.csdn.net/articlelist.aspx"

             ' *******Get CDDN articlelist********
             'wgscd 2006/1/12 ,mail:wgscd126.com
             'www.wgscd.com, QQ153964481
             '**************************************
             If Not Page.IsPostBack Then
                 ' Response.Write("<!--#include file=""../head.htm""-->")
                 Try
                     Dim wc As Net.HttpWebRequest
                     If Request.QueryString("c") <> "" Then
                         wc = Net.HttpWebRequest.Create(BaseURL & "?c=" & Request.QueryString("c"))
                     Else
                         wc = Net.HttpWebRequest.Create(BaseURL)
                     End If
                     'wc.AddRange(44, 99)
                     Dim MyStream As IO.Stream = wc.GetResponse.GetResponseStream
                     Dim MyStreamReader As New IO.StreamReader(MyStream, System.Text.Encoding.Default)
                     Dim str As String = ""
                     str = MyStreamReader.ReadToEnd
                     Response.Write("<TABLE id=""Table1"" height=""161"" cellSpacing=""0"" cellPadding=""0"" width=""955"" align=""center"" border=""0""><TR><TD vAlign=""top"" width=""165"" colspan=""2""><br><br>")
                     str = str.Substring(str.IndexOf("<table cellspacing=""1"""))
                     '    str = str.Substring(0, str.Length - 444)
                     str = str.Substring(0, str.LastIndexOf("<!-- 版权 -->"))
                     Response.Write("<td width=""150"" valign=""top"">")
                     str = str.Replace("href=""article/", "href=""Article.aspx?Page=article/")
                     str = str.Replace("<a href=""/articlelist.aspx", "<a href=""articlelist.aspx")
                     str = str.Replace("href='/user/", "href='http://dev.csdn.net/user/")
                     str = str.Replace("href=""user/", "href=""http://dev.csdn.net/user/")
                     ' str = str.Substring(0, str.Length - str.LastIndexOf("</table>"))
                     Response.Write(str)
                     MyStreamReader.Close()
                     '  wc.KeepAlive = False
                     MyStream.Close()
                 Catch ex As Exception
                     ' Response.Redirect("../NotFound.aspx")
                     ' Response.Write("<br>在页面请求时发生以下错误：<br>")
                     Response.Write("<br>" & ex.Message & "<br><br><br><font color=red>错误信息已经记录，我们会很快处理这个错误，谢谢 ！</font><br><font color=blue>奔腾娱乐</font>")
                 End Try

             End If

         End Sub

</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <asp:Label id="Label1" runat="server" height="48px" width="226px">奔腾娱乐www.wgscd.com</asp:Label>
        <!-- Insert content here -->
    </form>
</body>
</html>

 

-----------------------------

Article.aspx

---------------------------------

<%@ Page Language="VB" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.Net" %>
<script runat="server">
    ' Insert page code here
    '' *******Get CDDN articlelist********
        'wgscd 2006/1/12 ,mail:wgscd126.com
        'www.wgscd.com, QQ153964481
        '**************************************
   Dim BaseURL As String = "http://dev.csdn.net/"

    Sub Page_Load(ByVal sender As System.Object, ByVal e As EventArgs)
        '在此处放置初始化页的用户代码
        '
        '<TD vAlign="top" width="165" colspan="2">
        If Not Page.IsPostBack Then
            Dim wc As Net.HttpWebRequest
            If Request.QueryString("Page") <> "" Then
                wc = Net.HttpWebRequest.Create(BaseURL & Request.QueryString("Page"))
                '   wc = Net.HttpWebRequest.Create(BaseURL)
                ' wc.AddRange(95777, 108888)
                Dim MyStream As IO.Stream = wc.GetResponse.GetResponseStream
                Dim MyStreamReader As New IO.StreamReader(MyStream, System.Text.Encoding.Default)
                Dim str As String = ""
                Response.Write("<center>wgscd.com</center>")
                Response.Write("<TABLE id=""Table1"" height=""161"" cellSpacing=""0"" cellPadding=""0"" width=""955"" align=""center"" border=""0""><TR><TD vAlign=""top"" width=""165"" colspan=""2""><br><br>")
                str = MyStreamReader.ReadToEnd
                str = str.Substring(str.LastIndexOf("<table cellspacing=""1"""))
                str = str.Substring(0, str.LastIndexOf("<a name=""#Comment"">"))
                str = str.Replace("/articlelist.aspx?", "articlelist.aspx?")
                str = str.Replace("href=""/article/", "href=""Article.aspx?Page=article/")
                str = str.Replace("href='/user/", "href='" & BaseURL & "user/")
                str = str.Replace("href=""user/", "href=""http://dev.csdn.net/user/")
                str = str.Replace("<a href=""http://www.csdn.net/"">CSDN</a> - <a href=""http://dev.csdn.net/"">文档中心</a>", "<a href=""http://www.wgscd.com/"">WGSCD</a> - <a href=""http://wgscd.com/dev/articlelist.aspx"">文档中心</a>")
                Response.Write(str)
            Else
                Response.Write("错误 ！<br><a href=""www.wgscd.com""> www.wgscd.com</a>")

            End If

        End If
    End Sub

</script>
<html>
<head>
</head>
<body>
    <form runat="server">

        <!-- Insert content here -->
    </form>
</body>
</html>

APP开发王
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
钓鱼盗号怎么防
mengjie133233的专栏
12-30 408
花生你好： 最近你的姐姐微信号被盗了，然后群发了学校要收500块活动费的文字微信，好多亲戚朋友都收到了，爸爸也收到了，目前知道的是你姐姐的妈妈被骗了500，是否有其他亲戚上钩还没有具体的数据统计。在这里爸爸想举个通俗易懂的例子来讲解一下你姐姐账号被盗的流程。 首先，微信登录实际上是强推荐使用手机号+本机验证码发起登录的，看似没有任何漏洞，但是实际上可以通过钓鱼方式来实现登录。什么叫钓鱼盗号呢？我试着举个简单例子说明。 钓鱼账号被盗可能是这样的 有一天，你姐姐在玩手机，在手机的一个新下载的游戏app里
C# 木马功能的简单实现
12-04
通过c#反射性能，将正常的.net的exe文件添加监控盗传播取等其他功能，执行正常程序同时，后台悄悄释放windows服务，通过服务释放调取木马exe； 3、传播问题。可以包装一个.net做的，使用比较广的软件，因为通过反射...
避免网站内容被人盗连
weixin_33711641的博客
06-14 74
避免网站内容被人盗连摘自：http://www.memosite.cn/article.php/278 什么叫盗连？如果在其它网站上有一个链接<a href=我的网站/aa.rar>...</a>算不算盗连？但我今天没试成功。 以下是以UNIX(FREEBSD..LINUX等)+APACHE架站的人适用。 只要设定1次,就不需再去设别的资料, 你也不需...
最全QQ盗号手法分析，全面防御QQ盗号
热门推荐
abraham76的博客
11-16 7万+
你的QQ是否被盗过号，或者你身边的朋友、同学是否有过被盗号的经历。如今的安全机制真的没有效吗？盗号真的这么简单吗？本期将彻底解决这一问题。 本期是上一期的姊妹篇，建议先看上一期，这样对于攻击者的手法才有更好的理解：传送门 常见的盗号手法 1、诱导链接以及二维码   这种情况在QQ群里面见的多。通常是发送一些具有诱惑性的链接诱导你去点击。也可能会是一些二维码，如下图。为了做这期，能更好的了解其盗号的手段，我把凡是我看到的盗号链接都点了个遍，那些恶意二维码我也扫了个遍。这是我在了解其原理并做了相应的安全措施.
盗梦空间影评
qq_33115811的博客
05-01 529
题记： 《庄子·齐物论》中有云：昔者庄周梦为胡蝶，栩栩然胡蝶也，自喻适志与，不知周也。俄然觉，则蕖蘧然周也。不知周之梦为胡蝶与，胡蝶之梦为周与？周与胡蝶，则必有分矣。此之谓物化。 私以为，电影中一共出现了六层时间流，或者叫时空流更为严谨一些。 第一层：现实。众人在机舱中通过联梦机进入第一层梦境。在这段飞机飞行的时长是现实中的10小时。 第二层：第一层梦境。梦主是开车的大叔。
JavaScript端构建RESTFul Client的简单例子
inter_peng的专栏
08-26 8968
本文由Markdown语法编辑器编辑完成。1. REST服务：2. REST客户端：testRestfulClient.html文件内容为：<!DOCTYPE html> <html> <head> <title>RESTFul Client test page</title> <meta http-equiv="Content-Type" content="text/html;ch
一个简单的java正则表达式例子
微尘的世界
07-30 106
package lu;import java.util.regex.*;   //导入正则表达包 /** * * @author luzhide */public class Zhengze {        /** Creates a new instance of Zhengze */    public Zhengze() {    }    public static void main...
推荐系统浅浅的例子
萝卜地里的兔子的博客
05-28 475
对于推荐系统，有很多的很强大的算法。这里作为练习，只介绍基本的协同过滤算法（userbased）和FM（通过梯度下降的角度，还可以通过交替优化的角度来看）。 这里的例子是在七月算法的视频中看的，分析的内容基于自己的理解并对代码做了部分的勘误。 （一）简单的user-based协同过滤算法 先来看一眼数据： userss = {"小明": {"中国合伙人": 5.0, "太平轮...
[机器学习]-决策树-最简单的入门实战例子
weixin_30553777的博客
03-28 312
本文主要介绍决策树的基本概念和如最简单的入门实例 第一部分--基本概念： 　　什么是决策树？ 　　　　我不打算搞一段标准的定义放在这里，我个人理解是建立一个树来帮助决策，下面以一个图说明一下（注：图是盗别人的） 　　　　　　 　　　　这就是一个决策树，从图中可以一目了然的了解决策树的概念，上面的图中只有一个属性来决定这个人是男还是女，一个属性往往决定的结果并不准确，比如小孩都没有胡...
揭秘：QQ盗号背后的产业链，惊人的暴利！
09-26 3434
最好的欺骗手段，莫过于让其信任的人、事、物蒙蔽判断，待到入圈之时，便是案板上的肉。 你所看到的、想到的、听到的、闻到的、摸到的，是否是别人有意让你看到、听到、闻到、摸到、想到？ 人最大的错误就是看所看、想所想、听所听、问所闻、摸所摸。 这句话何如理解呢？ 人的天性是趋利避害的，并且都幻想美好的事情，如同自由职业，很多人以为在网上做项目赚钱轻松得很，比上班轻松上百倍。而又看到很多吹NB的“大神”，脱口就是月入几万几十万。曾也有人嘲讽我：“你不就会个电脑吗，敲敲键盘而已”。 这类人我给四个字：“天真、
modest_model:符合ActiveModel的简单模型
05-07
受启发，ModestModel提供了一个ActiveModel兼容的类，使您可以快速创建简单的无表模型。 预期的用途是使用Ruby友好模型来支持与外部API的交互，而不是原始结构化数据（例如哈希）。 例子 json = MyExternalApi . ...
modus:一个简单的建模python lib
04-29
方式一个带有验证和序列化的简单建模python库。例子from modus import Modelfrom modus . fields import Integer , String , Boolean , ModelFieldclass User ( Model ): id = Snowflake ( required = True ) ...
android-Soundboard:适用于Android的简单音板应用程序
05-13
android-音板适用于Android的简单音板应用程序用法要添加自己的音频剪辑，请将其放置在res \ raw目录中。 然后，使用标签和资源ID更新res \ values \ arrays.xml中的数组。 例子：...< string xss=removed> < item>...
Beans2SQL:将Java bean对象转换为自己SQL查询的简单方法
05-12
Beans2SQL 将Java bean对象转换为自己SQL查询的一种简单方法。例子Object o = new Persona(); BeanTranslator bt = new BeanTranslator(); bt.createTable(o); bt.insertTable(o); bt.deleteTable(o); bt.select...
视频捕捉源代码
wgscd blog
12-13 2414
请尊重著作权！谢绝转摘，有疑问请与作者联系！Imports Microsoft.VisualBasicImports Microsoft.Win32VideoCampture using VB.NET author:自由奔腾 [email protected] www.topds.comQQ:153964481 website: http://www.topds.com 2004 11-26P
Socket发送邮件（SMTP）简单例子！（源代码)
wgscd blog
12-13 1641
请自觉尊重著作权！自由奔腾（wgscd）2004-12Imports Microsoft.VisualBasicImports Microsoft.Win32Imports System.NetImports System.IOImports System.ThreadingImports System.Net.SocketsVideoCampture using VB.NET auth
邮件解析大致思路
wgscd blog
12-19 1535
                                 邮件解析大致思路 思路是用正则表达试和字符串操作函数提取。找到分割符位置，提取分割快里面的内容后判断相应的内容形式，编码方式。首先要添加几个引用Imports System.IOImports System.TextImports System.Text.RegularExpressions        |______   邮件
DOS下发送邮件的简单例子
wgscd blog
01-10 1467
http://www.xkec.com/wgscd/images/dos-smtp.jpg先 telnet smtp.126.com 25SMTP的基本命令就是这样
简单的checksum例子
最新发布
05-05
一个简单的checksum例子可以是将数据中所有字节相加，并将结果取模256。例如，对于数据"hello"，将每个字母的ASCII码相加得到532，然后对256取模，得到20。因此，checksum为20。在实际应用中，checksum通常用于检测数据传输中的错误。发送方计算checksum并将其附加到数据中，接收方也计算checksum，并将其与发送方发送的checksum进行比较。如果两者不同，则数据可能已被损坏或篡改。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值