当前位置: 网学 > 编程文档 > ASP > 正文

ASP的天空小偷

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 13/06/17

鉴于大家对ASP十分关注,我们编辑小组在此为大家搜集整理了“asp的天空小偷”一文,供大家参考学习

程序名称:ASP的天空小偷
程序类型:小偷,不太文雅啊,呵呵~
最新版本:没版本,因为,我不再更新了,有问题自己改
程序简介:这个没什么好说的~大家都知道
程序作者:小飞哥(这个ID,被封了,哎,犯错了)
下载地址:现在很多人都已经有了~就不用再找我要了!


下面的是我给一个朋友写的,关于如何改这个小偷的,不会玩的,自己看看~
其实要再改个其它的什么小偷也是很容易的事了

呵呵~



用到的函数说明
====================================================================
Instr()
函数返回字符或字符串在另一个字符串中第一次出现的位置.

表达式 Instr([start, ] strToBeSearched, strSearchFor [, compare])

允许数据类型: Start为搜索的起始值,strToBeSearched接受搜索的字符串 strSearchFor要搜索的字符.compare比较方式(详细见ASP常数)

实例: <%

strText = "This is a test!!"

pos = Instr(strText, "a")

response.write pos

%>

返回结果: 9

====================================================================
Mid()

函数返回特定长度的字符串(从start开始,长度为length).

表达式 Mid(string, start [, length])

实例: <%

strTest = "This is a test! Today is Monday."

response.write Mid(strTest, 17, 5)

%>

返回结果: Today
==================================================================
Abs(数值)

绝对值。一个数字的绝对值是它的正值。空字符串 (null) 的绝对值,也是空字符串。未初始化的变数,其绝对为 0

实例: <%
response.write ABS(-2000)
%>

返回结果: 2000
==================================================================
Replace( 字符串表达式,findnreplacewith[,start[,count[,compare]]])

将一个字符串取代 部份字。寻找待取代的原字符串 (find) , 若找到则被取代为新字符串 (replacewith) 。
find :待寻找取代的原字符串。
replacewith :取代后的字。
start :从第几个字开始寻找取代, 若未设定则由第一个字开始寻找。
count :取代的次数。 若未设定则所有寻找到的字符串取代字符 串全部被取代。
compare :寻找比较的方法, compare=0 表示二进制比较法, compare=1 表文字比较法, compare =2 表根据比较的 数据型态而定,若省略 compare 则为预设的二进制比较法。

实例: <%
response.write Replace("ABCD123ABC","AB","ab")
%>
返回结果: abCD123abC
===================================================================


程序中用到了一个过程是写好的
下面是源代码

<%

''SourceCode_0是页面取得的总数据
''''SourceCode_1是截取需要内容所需的开始位置的代码''
''''SourceCode_2是截取需要内容所需的结束位置的代?
''''SourceCode_3是截取需要内容所需的代码中多余的内容
Function GetSourceCode(SourceCode_0,SourceCode_1,SourceCode_2,SourceCode_3)
between=instr(SourceCode_0,SourceCode_1)-instr(SourceCode_0,SourceCode_2)
first=instr(SourceCode_0,SourceCode_1)
GetSourceCode = Mid(SourceCode_0,first,abs(between))
GetSourceCode =replace(GetSourceCode,SourceCode_3,"")
end function

%>

这样子调用

<%
SourceCode="1a2b3c4d5e6f7g8h9i1j0k1l1m1n2o1p3qr1s4t1u5v1wx6y1z7"
''''这里是定义一个字符串,后面要用到的,在实际的小偷程序中,这个变量是取到的软件页页的源码


response.write GetSourceCode(SourceCode,"1a2b","5v1wx6","1a2")

%>

返回结果: b3c4d5e6f7g8h9i1j0k1l1m1n2o1p3qr1s4t1u

===================================================================

另外
  • 下一篇资讯: 一个防止被采集的方法
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号