ip138之asp小偷程式碼

最後更新：2018-12-08 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>指令碼之家 >> 手機號碼查詢 </title>
<meta name="generator" content="指令碼之家">
<style type="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>
<SCRIPT LANGUAGE="JavaScript">
<!--
function resizeMe(){
self.resizeTo(400,300);
}
function checkMobile(){
var sMobile = document.mobileform.mobile.value
if(!(/^1[3|5][0-9]\d{4,8}$/.test(sMobile))){
alert("不是完整的11位手機號或者正確的手機號前七位");
document.mobileform.mobile.focus();
return false;
}
}

//-->
</SCRIPT>
</head>

<body leftmargin="1" topmargin="1" onload="javascript:resizeMe()">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<% Dim XMLObj,tmpStr,Mobile,MobileArea,MobileType
Dim RegExp,i

Mobile = Request.Form("mobile")
MobileArea = "未知"
MobileType = "未知"
Set XMLObj = Server.CreateObject("MSXML2.XMLHTTP")
Set RegExp = New RegExp
RegExp.Pattern = "class=tdc2>.*</TD>"
RegExp.IgnoreCase = True
RegExp.Global = True
XMLObj.Open "Post","http://www.ip138.com:8080/search.asp", False
XMLObj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XMLObj.Send "action=mobile&mobile=" & Mobile
If XMLObj.readyState = 4 Then
tmpStr = bytes2BSTR(XMLObj.responseBody)
i = 0
Set Matches = RegExp.Execute(tmpStr)
For Each Match in Matches ' 遍曆匹配集合。
If i = 1 Then
MobileArea = Replace(Match.Value,"class=tdc2>","")
ElseIf i = 2 Then
MobileType = Replace(Match.Value,"class=tdc2>","")
ElseIf i = 0 Then
Mobile = Replace(Match.Value,"class=tdc2>","")
End if
i = i + 1
Next
End If
Set RegExp = Nothing
Set XMLObj = Nothing

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

Function URLEncoding(vstrIn)
strReturn = ""
For i = 1 To Len(vstrIn)
ThisChr = Mid(vstrIn, i, 1)
If Abs(Asc(ThisChr)) < &HFF Then
strReturn = strReturn & ThisChr
Else
innerCode = Asc(ThisChr)
If innerCode < 0 Then
innerCode = innerCode + &H10000
End If
Hight8 = (innerCode And &HFF00) \ &HFF
Low8 = innerCode And &HFF
strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
URLEncoding = strReturn
End Function
%>
<table width=349 border="1" align="center" cellpadding="4" bordercolor=#3366cc style="border-collapse: collapse">
<tr>
<td colspan=2 align=center height=24 bgcolor=#6699cc>++* 指令碼之家-手機歸屬地查詢結果 *++</td>
</tr>
<tr bgcolor=#EFF1F3>
<td width="130" align="center" noswap>您查詢的手機號碼段</td>
<td width=* align="center"><%=Mobile%></td>
</tr>
<tr bgcolor=#EFF1F3>
<td width="130" align="center" noswap>卡號歸屬地</td>
<td width=* align="center"><%=MobileArea%></td>
</tr>
<tr bgcolor=#EFF1F3>
<td width="130" align="center" noswap>卡類型</td>
<td width=* align="center"><%=MobileType%></td>
</tr>
<tr bgcolor=#EFF1F3>
<td colspan="2" align="center" noswap><a href="/">返回首頁</a></td>
</tr>
</table>
</td>
</tr>
</table>
<div style="display:none"><script type=text/javascript language=javascript src="http://www.jb51.net/inc/tongji.js"></script></div>
</body>
</html>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More