用XMLHTTP来偷东西哈！

2024-11-27 20:38:09

只做了一部份，IP查询请大家自己照着我里边的样例自己完成吧！
演示：http://www.goalercn.com/demo/searcher.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "' target=_blank rel=nofollow>http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<META NAME="Author" CONTENT="goaler" />
<META NAME="Keywords" CONTENT="手机号码归属地,ip,google pr,邮编,身份证,查询,升位,goaler,www.goalercn.com" />
<META NAME="Description" CONTENT="手机号码归属地,ip,google pr,邮编,身份证,查询,升位,goaler,www.goalercn.com" />
<title>常用查询</title>
<style type="text/css">

</style>
<SCRIPT LANGUAGE="JavaScript">
<!--
String.prototype.Trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}
function checkMobile(){
var sMobile = document.mobileForm.MobileNumber.value.Trim();
if(!(/^13[0-9]\d{4,8}$/.test(sMobile))){
  alert("请输入完整的11位手机号或手机号前七位");
  document.mobileForm.MobileNumber.focus();
  return false;
}
}

function checkPR()
{
if (document.prForm.domainName.value.Trim() == "")
{
return false;
}
}

function checkZone2NumberForm()
{
if (document.Zone2NumberForm.zoneName.value.Trim() == "")
{
  alert("请输入地区名称！");
  document.Zone2NumberForm.zoneName.focus();
  return false;
}
}

<body>
<%
'==========请保留以下信息===============
'作者(Author)：goaler
'主页(homepage)：http://www.goalercn.com
'=======================================
on error resume next
Dim url,PostStr,sType,getContent,i
sType = Trim(Request.QueryString("sType"))
%>
<fieldset>
<legend><strong>手机号归属地查询</strong></legend>
<div>
<%
Dim MobileNumber
MobileNumber = Trim(Request.Form("MobileNumber"))
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form method="post" name="mobileForm" action="searcher.asp?sType=mobile" onsubmit="return checkMobile()">
  请输入手机号码段：<input type="text" name="MobileNumber" value="<%=MobileNumber%>" onfocus="select()" /> <input type="submit" id="subBtn" value="查询" />
  输入完整的11位手机号或手机号前七位
</form>
</div>
<%
IF(sType = "mobile" AND MobileNumber<>"")THEN
  Dim getArea,getType
  PostStr = "action=mobile&mobile="&MobileNumber
  getContent=GetURL("http://www.ip138.com:8080/search.asp",PostStr)
  getArea = RegExpText(getContent,"卡号归属地</TD>((.|\n)*?)</TD>")
  getType = RegExpText(getContent,"卡类型</TD>((.|\n)*?)</TD>")
  Response.Write("<UL>")
  Response.Write("<li><strong>手机号码段：</strong><font color=""#008000""><strong>" & MobileNumber & "</strong></font></li>")
  Response.Write("<li><strong>号码归属地：</strong><font color=""#008000""><strong>" & Replace(getArea,",","") & "</strong></font></li>")
  Response.Write("<li><strong>卡　类　型：</strong><font color=""#008000""><strong>" & Replace(getType,",","") & "</strong></font></li>")
  Response.Write("</UL>")
END IF
%>
</div>
</fieldset>
<fieldset>
<legend><strong>Google PR 值查询</strong></legend>
<div>
<%
Dim domainName
domainName = Replace(Replace(LCASE(Trim(Request.Form("domainName"))),"www.",""),"http://","")
%>
<div style="padding-left:23px;margin-bottom:8px;">
  <form name="prForm" method="post" action="searcher.asp?sType=pr" onsubmit="return checkPR()">
  请输入域名  ：www.<input type="text" name="domainName" value="<%=domainName%>" /> <input type="submit" value="提交" />
  不要带 http://www.
  </form>
</div>
<%
IF(sType = "pr" AND domainName<>"")THEN
  PostStr = ""
  getContent=GetURL("http://so.5eo.com/info.php?action=ra ... "&domainName,PostStr)
  getContent=RegExpText(getContent,"在满分10分评价中获得 <font color=#FB5E3C>((.|\n)*?)</font> 分")
  'getContent=ReplaceKey(getContent,"在满分10分评价中获得 <font color=#FB5E3C>|||||</font> 分")
  Dim ArrayPr
  ArrayPr=Split(getContent,",")

Response.Write("<UL>")
Response.Write("<li><a href="""&domainName&" ' target=_blank rel=nofollow>http://"&domainName&""" target=""new""><font color=" ... t;&domainName&"</strong></font></a>的Google PageRank值：<font color=""#FF0000""><strong>"&ArrayPr(0)&"</strong></font></li>")

Response.Write("<li><a href=""www."&domainName&" ' target=_blank rel=nofollow>http://www."&domainName&""" target=""new""><font color=" ... uot;&domainName&"</font></strong></a>的Google PageRank值：<font color=""#FF0000""><strong>"&ArrayPr(1)&"</strong></font>")
Response.Write("</UL>")
END IF
%>
</div>
</fieldset>

<fieldset>
<legend><strong>地区<->区号查询</strong></legend>
<div>
<div style="padding-left:23px;margin-bottom:8px;">
<%
Dim zoneName
zoneName = Trim(Request.Form("zoneName"))
%>
<form name="Zone2NumberForm" method="post" action="searcher.asp?sType=zone2number" onsubmit="return checkZone2NumberForm()">
地  区   <strong>→</strong>   区  号：<input type="text" name="zoneName" value="<%=zoneName%>" onfocus="select()" /> <input type="submit" value="提交" />
</form>
</div>
<%
IF(sType = "zone2number" AND zoneName <> "")THEN
  Dim getNumber,ArrayNumber
  PostStr = "area=" & escape(zoneName) & "&action=area2zone"
  getContent=GetURL("http://www.ip138.com/post/search.asp",PostStr)
  getNumber = RegExpText(getContent,"<TR><TD class=tdc2>◎((.|\n)*?)</TD>")
  Response.Write("<UL>")
  IF(getNumber="")THEN
   Response.Write("<li><strong><font color=""#FF0000"">没有搜索到记录</font></strong></li>")
  ELSE
   ArrayNumber = split(getNumber,",")
   IF(isArray(ArrayNumber))THEN
    For i=0 TO UBOUND(ArrayNumber)-1
     Response.Write("<li><strong><font color=""#008000"">"&Replace(ArrayNumber(i),",","")&"</font></strong></li>")
    Next
   ELSE
    Response.Write("<li><strong><font color=""#008000"">"&Replace(getNumber,",","")&"</font></strong></li>")
   END IF
  END IF
  Response.Write("</UL>")
END IF

Dim zoneNumber
zoneNumber = Trim(Request.Form("zoneNumber"))
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="Number2ZoneForm" method="post" action="searcher.asp?sType=number2zone" onsubmit="return checkNumber2ZoneForm()">
区  号   <strong>→</strong>   地  区：<input type="text" name="zoneNumber" value="<%=zoneNumber%>" onfocus="select()" /> <input type="submit" value="提交" />
</form>
</div>
<%
IF(sType = "number2zone" AND zoneNumber <> "")THEN
  Dim getZone,ArrayZone
  PostStr = "action=zone2area&zone="&zoneNumber
  getContent=GetURL("http://www.ip138.com/post/search.asp",PostStr)
  getZone = RegExpText(getContent,"<TR><TD class=tdc2>◎((.|\n)*?)</TD>")
  Response.Write("<UL>")
  IF(getZone="")THEN
   Response.Write("<li><strong><font color=""#FF0000"">没有搜索到记录</font></strong></li>")
  ELSE
   ArrayZone = split(getZone,",")
   IF(isArray(ArrayZone))THEN
    For i=0 TO UBOUND(ArrayZone)-1
     Response.Write("<li><strong><font color=""#008000"">"&Replace(ArrayZone(i),",","")&"</font></strong></li>")
    Next
   ELSE
    Response.Write("<li><strong><font color=""#008000"">"&Replace(getZone,",","")&"</font></strong></li>")
   END IF
  END IF
  Response.Write("</UL>")
END IF
%>
</div>
</fieldset>

<fieldset>
<legend><strong>ＩＰ地理位置查询</strong></legend>
<div>
<div style="padding-left:23px;margin-bottom:8px;">
  <form name="ipForm" method="post" action="searcher.asp?sType=ip" onsubmit="return checkIPForm()">
  待查询的ＩＰ地址：<input type="text" name="ipAddress" value="<%=ipAddress%>" /> <input type="submit" value="提交" />
  </form>
</div>

</div>
</fieldset>

<fieldset>
<legend><strong>身份证号码查询</strong></legend>
<div>
<%
Dim identityNumber
identityNumber = Trim(Request.Form("identityNumber"))
%>
<div style="padding-left:23px;margin-bottom:8px;">
  <form name="identityForm" method="post" action="searcher.asp?sType=identity" onsubmit="return checkIdentityForm()">
  15或18位身份证号：<input type="text" name="identityNumber" value="<%=identityNumber%>" /> <input type="submit" value="提交" />
  </form>
</div>
<%
IF(sType = "identity" AND identityNumber<>"")THEN
  Dim ArrayIDCardInfo
  PostStr = "action=idcard&userid="&identityNumber
  getContent=GetURL("http://www.oicq88.com/idsearch/index.asp",PostStr)
  getContent=RegExpText(getContent,"：</font>((.|\n)*?)<BR>")
  Response.Write("<UL>")
  IF(getContent="")THEN
   Response.Write("<li>身份证号码错误或没有查询到相关数据</li>")
  ELSE
   ArrayIDCardInfo = split(getContent,",")
   Response.Write("<li><strong>性        别：</strong><font color=""#008000""><strong>"&Replace(ArrayIDCardInfo(0),",","")&"</strong></font></li>")
   Response.Write("<li><strong>出生日期：</strong><font color=""#008000""><strong>"&Replace(ArrayIDCardInfo(1),",","")&"</strong></font></li>")
   Response.Write("<li><strong>发证地区：</strong><font color=""#008000""><strong>"&Replace(ArrayIDCardInfo(2),",","")&"</strong></font></li>")
  END IF
  Response.Write("</UL>")
END IF
%>
<div style="padding-left:23px;margin-bottom:8px;">
  <form name="identityUpForm" method="post" action="searcher.asp?sType=upIdentity" onsubmit="return checkIdentityUpForm()">
  15位号码升至18位：<input type="text" name="identityNumber" value="<%=identityNumber%>" /> <input type="submit" value="提交" />
  </form>
</div>
<%
IF(sType = "upIdentity" AND identityNumber<>"")THEN
  PostStr = "action=upto18&userid="&identityNumber
  getContent=GetURL("http://www.oicq88.com/idsearch/index.asp",PostStr)
  getContent=RegExpText(getContent,"升位后号码：((.|\n)*?)</TD>")
  Response.Write("<UL>")
  IF(getContent="")THEN
   Response.Write("<li>身份证号码错误或没有查询到相关数据</li>")
  ELSE
   Response.Write("<li><strong>升位(18位)后号码是：</strong><font color=""#008000""><strong>"&Replace(getContent,",","")&"</strong></font></li>")
  END IF
  Response.Write("</UL>")
END IF
%>
</div>
</fieldset>

<div style="padding:15px;text-align:center;">
DESIGNED BY <a href="goaler
' target=_blank rel=nofollow>http://www.goalercn.com" target=" ... R</a><BR />
</div>

</body>
</html>
<%
Function ByteToStr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
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
ByteToStr = strReturn
End Function

Function GetURL(url,PostStr)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
  .Open "POST", url, false ,"" ,""
  .setRequestHeader "Content-Type","application/x-www-form-urlencoded"
  .Send(PostStr)
  GetURL = .ResponseBody
End With
Set Retrieval = Nothing
GetURL=ByteToStr(GetURL)
End Function

Function RegExpText(strng,regStr)
Dim regEx,Match,Matches,RetStr
Set regEx = New RegExp
regEx.Pattern = regStr
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strng)
For Each Match in Matches
RetStr = RetStr & regEx.Replace(Match.Value,"$1") & ","
Next
RegExpText = RetStr
set regEx=nothing
End Function
%>

用XMLHTTP来偷东西哈！

只做了一部份,IP查询请大家自己照着我里边的样例自己完成吧!演示:http://www.goalercn.com/demo/searcher.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "' target=_blank rel=nofollow>h
PHP使用微信开发模式实现搜索已发送图文及匹配关键字回复的方法

本文实例讲述了PHP使用微信开发模式实现搜索已发送图文及匹配关键字回复的方法.分享给大家供大家参考,具体如下: 用户发送关键字,搜索相应的图文进行回复. 模拟登陆就不说了右键看"已发送"图片页的源代码,图文部分是json格式的. 复制代码代码如下: {"msg_item":[{"id":80630,"type":9,"fakeid":"2397007301","nick_n
背包问题-动态规划java实现的分析与代码

一.动态规划的原理动态规划(dynamic programming)是运筹学的一个分支,是求解决策过程(decision process)最优化的数学方法.20世纪50年代初美国数学家R.E.Bellman等人在研究多阶段决策过程(multistep decision process)的优化问题时,提出了著名的最优化原理(principle of optimality),把多阶段过程转化为一系列单阶段问题,利用各阶段之间的关系,逐个求解,创立了解决这类过程优化问题的新方法–动态规划.1957年
用正则xmlHttp实现的偷(转)

复制代码代码如下: <% '======================================== class EngineerSearch '老龙:laolong9999@sina.com ':模拟XML获取http标记资源(用过之后就知道为什么XML有用:)) '利用引擎搜索(显示引擎信息或其超连接网站上的信息或直接一个指定页面的相关信息,利用正则和xmlHttp, '程序的使用需要会构造正则) '----------------------------------
ASP小偷程序如何利用XMLHTTP实现表单的提交

[原创]ASP小偷程序如何利用XMLHTTP实现表单的提交以及cookies或session的发送利用XMLHTTP来制作小偷的具体细节落伍很多人都发过和讨论过了,但是在制作ASP小偷的过程中,很多人就发现ASP小偷不如PHP小偷的那么强大了.确实,如果在原网站如果存在表单提交或cookies的验证,对于ASP来说,不使用基于SOCKET的组件就难以完成,其实,XMLHTTP的另外两个方法被我们忽略了,而这正是问题的关键. 下面首先来说说这个方法 1..send() 由于流行的小偷是使用的
ASP利用XMLHTTP实现表单提交以及cookies的发送的代码

确实,如果在原网站如果存在表单提交或cookies的验证,对于ASP来说,不使用基于SOCKET的组件就难以完成,其实,XMLHTTP的另外两个方法被我们忽略了,而这正是问题的关键. 下面首先来说说这个方法 1..send() 由于流行的小偷是使用的GET而不是POST来传送数据,所以很多人忽略了这个方法,而使用SEND发送数据也很简单,就是SEND("内容"),可是, 发送表单就不是这么简单,因为你发送的表单如果是中文的话,就要牵扯到编码的问题了. 首先,你在OPEN
XMLHTTP资料

XMLHTTP对象及其方法------------------MSXML中提供了Microsoft.XMLHTTP对象,能够完成从数据包到Request对象的转换以及发送任务. 创建XMLHTTP对象的语句如下: Set objXML = CreateObject("Msxml2.XMLHTTP") 或Set objXML = CreateObject("Microsoft.XMLHTTP")' Or, for version 3.0 of XMLHTTP, use
跟我学小偷程序之成功偷取首页(第三天)

今天我们教,偷取首页.不同的首页需要不同的偷法,主要是分析HTML代码.函数以及方法前面2天介绍的很清楚了.今天我们在实践中讲解和使用. 还是拿华军软件园开刀.打开华军软件园首页http://www.onlinedown.net/index.htm用Dreamweaver新建一个index.php的页子.注意:先做好你要的首页模板,然后开始偷首页.由于考虑到对初学者的教程.所以先把模板和PHP处理代码放在同一个网页中.以后教大家HTML和PHP的分离. 模板建立好以后,我们就开偷.在<html>
python 30行代码实现蚂蚁森林自动偷能量

@[toc] 虽然我支付宝加了好多好友,平时有很多能量可以偷,但由于太懒,至今一棵树都没种成,所以心心念念把偷能量这事自动化.之前通过用代码模拟手机点按的方式,实现了朋友圈自动点赞,但当时蚂蚁森林的操作流程要比朋友圈点赞复杂很多,所以当时就没有实现自动偷能量.不过我那篇博客评论下面有网友推荐了appium和uiautomator2这俩工具,最近抽空研究了下,发现用uiautomator2的话这事简单了好多,而且由于蚂蚁森林改版,连续偷能量的操作流程也简单了好多,于是乎我就实现了自动偷能量,效果如
VB使用XMLHTTP实现Post与Get的方法

本文所述为visual basic6.0的一个模块方法,是使用XMLHTTP实现Post与Get功能,虽然是一个老代码,但是可以替代Inet控件,实现数据通讯.很值得学习借鉴一下. 主要模块代码如下: '========================================================== '| 模块名 | XMLHTTP '| 说明 | 替代Inet控件,实现数据通讯 '============================================

用XMLHTTP来偷东西哈！

相关推荐

随机推荐