小偷程序是怎么偷取的?谁能教我学习小偷程序
发布网友
发布时间:2022-06-23 02:20
我来回答
共5个回答
热心网友
时间:2024-04-16 09:20
小偷程序的原理是,读取客户端的源码,然后分析处理,把自己想要的字符留下变得已有,把不需要的东西去掉,
比如在asp.net中读取新浪网的客户端代码可以用如下方法
string PageUrl = "http://www.sina.com";
WebRequest request = WebRequest.Create(PageUrl);
request.UseDefaultCredentials=false;
WebResponse response = request.GetResponse();
Stream resStream = response.GetResponseStream();
StreamReader sr = new StreamReader(resStream, System.Text.Encoding.Default);
ContentHtml.Text = sr.ReadToEnd();
resStream.Close();
sr.Close();
如果我们只要裏面的新闻或哪一小块的时候我们只要把轮出的代码去做一下字符串裁剪就可以用了
热心网友
时间:2024-04-16 09:21
其实就是采集程序的基础了。你看看cms相关的资料就可以理解了。
你的程序读取其他网页的内容,然后分析一下,取出需要的资源,自己显示出来。
大致如此吧。
一般用perl或者php、asp等cgi程序完成。
热心网友
时间:2024-04-16 09:21
以下是偷google翻译的代码,可以参考一下把一些参数改一下就OK了:
<%
Function PostData(PostUrl,PostStr,PostMode)
Dim Http
Set Http = Server.CreateObject("msxml2.XMLHTTP")
With Http
.Open "POST",PostUrl,False
.SetRequestHeader "Content-Length",Len(PostStr)
.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
.SetRequestHeader "Referer",PostUrl
.Send PostStr
If PostMode=0 Then
PostData = .ResponseBody
Else
PostData = BytesToBstr(.ResponseBody,"GB2312")
End If
End With
Set Http = Nothing
End Function
Function BytesToBstr(Body,Cset)
Dim ADOS
Set ADOS = Server.CreateObject("Adodb.Stream")
With ADOS
.Type = 1
.Mode =3
.Open
.Write Body
.Position = 0
.Type = 2
.Charset = Cset
BytesToBstr = .ReadText
.Close
End With
Set ADOS = Nothing
End Function
'声明截取的格式,从Start开始截取,到Last为结束
Function GetKey(HTML,Start,Last)
If HTML="" then Exit Function
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function
Dim Url,Str,Page,catalogid,type_id,Body
on error resume next
Server.ScriptTimeOut=9999999
text=Request("text")
langpair=Request("lan")
Url = "http://translate.google.com/translate_t"
str = "text="&text&"&langpair="&langpair
Body=PostData(Url,Str,1) '取得所有代码
Thestr=GetKey(Body,"<div id=result_box dir=ltr>","</div>")
response.Write(Thestr)
%>
热心网友
时间:2024-04-16 09:22
以下是偷google翻译的代码,可以参考一下把一些参数改一下就OK了:
<%
Function PostData(PostUrl,PostStr,PostMode)
Dim Http
Set Http = Server.CreateObject("msxml2.XMLHTTP")
With Http
.Open "POST",PostUrl,False
.SetRequestHeader "Content-Length",Len(PostStr)
.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
.SetRequestHeader "Referer",PostUrl
.Send PostStr
If PostMode=0 Then
PostData = .ResponseBody
Else
PostData = BytesToBstr(.ResponseBody,"GB2312")
End If
End With
Set Http = Nothing
End Function
Function BytesToBstr(Body,Cset)
Dim ADOS
Set ADOS = Server.CreateObject("Adodb.Stream")
With ADOS
.Type = 1
.Mode =3
.Open
.Write Body
.Position = 0
.Type = 2
.Charset = Cset
BytesToBstr = .ReadText
.Close
End With
Set ADOS = Nothing
End Function
'声明截取的格式,从Start开始截取,到Last为结束
Function GetKey(HTML,Start,Last)
If HTML="" then Exit Function
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function
Dim Url,Str,Page,catalogid,type_id,Body
on error resume next
Server.ScriptTimeOut=9999999
text=Request("text")
langpair=Request("lan")
Url = "http://translate.google.com/translate_t"
str = "text="&text&"&langpair="&langpair
Body=PostData(Url,Str,1) '取得所有代码
Thestr=GetKey(Body,"<div id=result_box dir=ltr>","</div>")
response.Write(Thestr)
%>
回答者:sshsoft - 童生 一级 1-19 11:27
小偷程序的原理是,读取客户端的源码,然后分析处理,把自己想要的字符留下变得已有,把不需要的东西去掉,
比如在asp.net中读取新浪网的客户端代码可以用如下方法
string PageUrl = "http://www.sina.com";
WebRequest request = WebRequest.Create(PageUrl);
request.UseDefaultCredentials=false;
WebResponse response = request.GetResponse();
Stream resStream = response.GetResponseStream();
StreamReader sr = new StreamReader(resStream, System.Text.Encoding.Default);
ContentHtml.Text = sr.ReadToEnd();
resStream.Close();
sr.Close();
如果我们只要裏面的新闻或哪一小块的时候我们只要把轮出的代码去做一下字符串裁剪就可以用了
热心网友
时间:2024-04-16 09:22
算我孤陋寡闻,先告诉我什么叫“小偷程序”?