问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

小偷程序是怎么偷取的?谁能教我学习小偷程序

发布网友 发布时间: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

算我孤陋寡闻,先告诉我什么叫“小偷程序”?
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
幼儿园有哪些安全课 小班安全课有哪些 幼儿园安全课程有哪些 ...发其他的表情就没有问题,请问这是怎么回事?如何解决? 1000000÷5000除法竖式怎么列? 北京海淀区劳动纠纷!工资拖欠!未上三险!高手帮忙! ...工资基数包括社保补助及公积金补助吗?请高手帮忙!!! 现汉“秋天是非常美丽的” 中“的”是什么词性? 三种方法区分:1的后面... 的、地、得的用法有何区别? ...有原因 必须要手骨 折 反正让手一个 月都不能动 那棍子‘锤子打手腕... 格力时光绘型号KFR-35w/FNhv08-B1是什么意思 求 生之欲 百度云免费在线观看资源 今时之欲结局 洛阳水煮毛豆花生哪里有批发 请问宋庆龄是什么生肖 暴风影音如何设置不显示字幕 oppo A 79怎么设置应用下无字幕 怎么安慰股票被套了,心情很不好得人 我的朋友最近炒股赔了很多钱,如何安慰下好 股票亏了怎么安慰客户? 宋庆龄是属什么生肖 蛋糕能加热吃吗 丁丁智能地锁和手机蓝牙配对时PIN吗不正确 2022年期中考试三年级,下册,什么时候考试 狙击枪瞄准镜与枪身高度是多少 门窗无障碍导轨高度在多少范围内符合国标 机械顶管导轨高度计算方法 顶管工程导轨高程怎样计算 某顶管施工,所顶进的管道内径为2000㎜,管壁厚为300㎜,导轨高100㎜... 用“山”组词,四字成语。 侠盗飞车罪恶都市怎么做小偷啊 TD小偷怎么玩啊? 遇到小偷应该怎么做 小偷教程大全 西安红星美凯城8号楼有无房产证 红星美凯城怎么样?好不好?值不值得买? 红星美凯城1号楼可以办房产证吗? 从红星美凯成打出租到大融城多钱? 西安万宝房地产营销策划有限责任公司怎么样? 西安大港物业服务有限公司怎么样? 有没有强制删除电脑软件的工具? 我电脑上有个东西删不下去,有没有什么好用点的强制删除的软件阿? 宋庆龄爱国的故事 求助!!口腔溃疡的解决方法 医用橡皮膏可以直接贴在创口上面吗? 为了治病,嘴不能说话,但又忍不住,用什么可以封住自己的嘴,可以不... 怎样制作&#x3696;桂鱼? CF雷蛇鼠标设置多少灵敏度最好? 我想知道玩狙击ava里雷蛇鼠标。鼠标上的灵敏度调多少。游戏里的还调多 ... 聪明的英文的同义词