ip138之asp小偷程序代码
2018-09-06 12:25
<html>
<head>
<metahttp-equiv=Content-Typecontent=text/html;charset=gb2312>
<title>脚本之家>>手机号码查询</title>
<metaname=generatorcontent=脚本之家>
<styletype=text/css>
BODY
{
margin:0px;
color:#000000;
background-color:#F6F6F6;
background-color:#F6F6F6;
font-family:Verdana,Arial,宋体;
font-size:9pt;
text-decoration:none;
SCROLLBAR-FACE-COLOR:#B3C5A7;
SCROLLBAR-HIGHLIGHT-COLOR:#B3C5A7;
SCROLLBAR-SHADOW-COLOR:#B3C5A7;
SCROLLBAR-3DLIGHT-COLOR:#B3C5A7;
SCROLLBAR-ARROW-COLOR:#eeeeee;
SCROLLBAR-TRACK-COLOR:#efefef;
SCROLLBAR-DARKSHADOW-COLOR:#B3C5A7;
}
TD
{
color:#333333;
font-family:Verdana,Arial,宋体;
font-size:9pt;
line-height:150%;
}
</style>
<SCRIPTLANGUAGE=JavaScript>
<!--
functionresizeMe(){
self.resizeTo(400,300);
}
functioncheckMobile(){
varsMobile=document.mobileform.mobile.value
if(!(/^1[35][0-9]\d{4,8}$/.test(sMobile))){
alert(不是完整的11位手机号或者正确的手机号前七位);
document.mobileform.mobile.focus();
returnfalse;
}
}
//-->
</SCRIPT>
</head>
<bodyleftmargin=1topmargin=1onload=javascript:resizeMe()>
<tablewidth=100%border=0cellspacing=0cellpadding=0>
<tr>
<td>
<%DimXMLObj,tmpStr,Mobile,MobileArea,MobileType
DimRegExp,i
Mobile=Request.Form(mobile)
MobileArea=未知
MobileType=未知
SetXMLObj=Server.CreateObject(MSXML2.XMLHTTP)
SetRegExp=NewRegExp
RegExp.Pattern=class=tdc2>.*</TD>
RegExp.IgnoreCase=True
RegExp.Global=True
XMLObj.OpenPost,
XMLObj.setRequestHeaderContent-Type,application/x-
XMLObj.Sendaction=mobile&mobile=&Mobile
IfXMLObj.readyState=4Then
tmpStr=bytes2BSTR(XMLObj.responseBody)
i=0
SetMatches=RegExp.Execute(tmpStr)
ForEachMatchinMatches遍历匹配集合。
Ifi=1Then
MobileArea=Replace(Match.Value,class=tdc2>,)
ElseIfi=2Then
MobileType=Replace(Match.Value,class=tdc2>,)
ElseIfi=0Then
Mobile=Replace(Match.Value,class=tdc2>,)
Endif
i=i+1
Next
EndIf
SetRegExp=Nothing
SetXMLObj=Nothing
Functionbytes2BSTR(vIn)
strReturn=
Fori=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
EndIf
Next
bytes2BSTR=strReturn
EndFunction
FunctionURLEncoding(vstrIn)
strReturn=
Fori=1ToLen(vstrIn)
ThisChr=Mid(vstrIn,i,1)
IfAbs(Asc(ThisChr))<&HFFThen
strReturn=strReturn&ThisChr
Else
innerCode=Asc(ThisChr)
IfinnerCode<0Then
innerCode=innerCode+&H10000
EndIf
Hight8=(innerCodeAnd&HFF00)\&HFF
Low8=innerCodeAnd&HFF
strReturn=strReturn&%&Hex(Hight8)&%&Hex(Low8)
EndIf
Next
URLEncoding=strReturn
EndFunction
%>
<tablewidth=349border=1align=centercellpadding=4bordercolor=#3366ccstyle=border-collapse:collapse>
<tr>
<tdcolspan=2align=centerheight=24bgcolor=#6699cc>++*脚本之家-手机归属地查询结果*++</td>
</tr>
<trbgcolor=#EFF1F3>
<tdwidth=130align=centernoswap>您查询的手机号码段</td>
<tdwidth=*align=center><%=Mobile%></td>
</tr>
<trbgcolor=#EFF1F3>
<tdwidth=130align=centernoswap>卡号归属地</td>
<tdwidth=*align=center><%=MobileArea%></td>
</tr>
<trbgcolor=#EFF1F3>
<tdwidth=130align=centernoswap>卡类型</td>
<tdwidth=*align=center><%=MobileType%></td>
</tr>
<trbgcolor=#EFF1F3>
<tdcolspan=2align=centernoswap><ahref=/>返回首页</a></td>
</tr>
</table>
</td>
</tr>
</table>
<divstyle=display:none><scripttype=text/javascriptlanguage=javascriptsrc=//
</body>
</html>