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

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

代码如下:

<% 

'======================================== 

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 

%> 

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!