Home > Developer > ASP

ASP thief program code of ip138

Source: Internet
Author: User
Developer on Alibaba Coud: Build your first app with APIs, SDKs, and tutorials on the Alibaba Cloud. Read more ＞

<HTML>
<Head>
<Meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<Title> mobile phone number query </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 ("the first seven digits of a complete 11-digit mobile phone number or a correct mobile phone number ");
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 = "unknown"
Mobiletype = "unknown"
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 'traverses the matching set.
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> ++ * script home-mobile phone home location query result * ++ </TD>
</Tr>
<Tr bgcolor = # eff1f3>
<TD width = "130" align = "center" noswap> the phone number segment You queried </TD>
<TD width = * align = "center"> <% = Mobile %> </TD>
</Tr>
<Tr bgcolor = # eff1f3>
<TD width = "130" align = "center" noswap> card number attribution location </TD>
<TD width = * align = "center"> <% = mobilearea %> </TD>
</Tr>
<Tr bgcolor = # eff1f3>
<TD width = "130" align = "center" noswap> card type </TD>
<TD width = * align = "center"> <% = mobiletype %> </TD>
</Tr>
<Tr bgcolor = # eff1f3>
<TD colspan = "2" align = "center" noswap> <a href = "/"> back to home </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>

This article is an English version of an article which is originally in the Chinese language on aliyun.com and is provided for information purposes only. This website makes no representation or warranty of any kind, either expressed or implied, as to the accuracy, completeness ownership or reliability of the article or any translations thereof. If you have any concerns or complaints relating to the article, please send an email, providing a detailed description of the concern or complaint, to info-contact@alibabacloud.com. A staff member will contact you within 5 working days. Once verified, infringing content will be removed immediately.

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

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