用正则和xmlHttp实现的asp小偷程序

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了用正则和xmlHttp实现的asp小偷程序，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含3761字，纯文字阅读大概需要6分钟。

内容图文

代码如下:
<% 
'======================================== 
class EngineerSearch 
'老龙:laolong9999@sina.com 
':模拟XML获取http标记资源（用过之后就知道为什么XML有用：）） 
'利用引擎搜索(显示引擎信息或其超连接网站上的信息或直接一个指定页面的相关信息，利用正则和xmlHttp, 
'程序的使用需要会构造正则) 
'--------------------------------------------------------------- 
private oReg,oxmlHttp'一个正则，一个微软xmlhttp 
'--------------------------------------------------------------- 
public sub class_initialize()'对象建立触发 
set oReg=new regExp 
oReg.Global=true 
oReg.IgnoreCase=true 
set oXmlHttp=server.createobject("Microsoft.XmlHttp") 
end sub 
'--------------------------------------------------------------- 
public sub class_terminate()'对象销毁触发 
set oReg=nothing'必须手动释放class内的自建对象，asp只自动释放由class定义的对象 
set oXmlHttp=nothing 
If typename(tempReg)<>"nothing" then'方法体内的对象释放资源 
set tempReg=nothing 
end if 
end sub 
'--------------------------------------------------------------- 
'引擎级搜索 
public function engineer(url,EngineerReg) 
'功能介绍：获得url的返回信息(通常用于引擎查找)，提取其中的EngineerReg的特定信息，返回matches集合到 
'函数名。获得url查询结果,搜寻出用engineerReg正则定义的结果,生成一个matches集合, 
'由于无法建立集合及操作集合个数（vbscript）,最好再自己遍历集合，也可以考虑二维数组 
dim strConent 
strContent=oXmlHttp.open("get",url,false) 
on error resume next 
oXmlHttp.send() 
if err.number<>0 then 
exit function 
end if 
strContent=bytes2BSTR(oXmlHttp.responseBody) 
if isnull(EngineerReg) then 
engineer=AbsoluteURL(strContent,url) 
else 
oReg.Pattern=EngineerReg 
set engineer=oReg.Execute(AbsoluteURL(strContent,url))  
end if 
end function 
'--------------------------------------------------------------- 
'汉字编码,(网人) 
public 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 
'--------------------------------------------------------------- 
public Function SearchReplace(strContent,ReplaceReg,ResultReg) 
'替换，将strContent中的replaceReg描述的字符串用resultReg描述的替换，返回到searchReplace去 
'将正则的replace封装了。 
oReg.Pattern=ReplaceReg 
SearchReplace=oReg.replace(strContent,ResultReg) 
End Function 
'--------------------------------------------------------------- 
public Function AbsoluteURL(strContent,byval url) 
'将strContent中的相对URL变成oXmlHttp中指定的url的绝对地址(http/https/ftp/mailto:) 
'正则可以修改修改。 
dim tempReg 
set tempReg=new RegExp 
tempReg.IgnoreCase=true 
tempReg.Global=true 
tempReg.Pattern="(^.*\/).*$"'含文件名的标准路径http://www.wrclub.net/default.aspx 
Url=tempReg.replace(url,"$1") 
tempReg.Pattern="((?:src|href).*?=[\'\u0022](?!ftp|http|https|mailto))" 
AbsoluteURL=tempReg.replace(strContent,"$1"+Url) 
set tempReg=nothing 
end Function 
'--------------------------------------------------------------- 
end class 
'======================================== 
%> 
<%'例子 
Response.CharSet = "GB2312"  
dim mySearch  
set mySearch=new EngineerSearch 
'URL一定是包含文件扩展名的完整地址,结果是集合，集合中的每个项目是数组,应该这样引用子查询:myMatches(0).subMatches(0) 
set myMatches=mySearch.engineer("http://www.wrclub.net/default.aspx","<img.*?>") 
if myMatches.count=0 Then 
response.write "没有你正则的字符串" 
end if 
if myMatches.count>0 then 
response.write myMatches.count&"<br>" 
for each key in myMatches 
response.write key.firstindex&":"&cstr(key.value)&"<br>" 
next 
end if 
%> 

更诸多的应用，只要你会正则

内容总结

以上是互联网集市为您收集整理的用正则和xmlHttp实现的asp小偷程序全部内容，希望文章能够帮你解决用正则和xmlHttp实现的asp小偷程序所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---