小偷程序的特點(diǎn)
1、可以采集80%以上的站點(diǎn)，只需簡(jiǎn)單的在后臺(tái)配置采集替換規(guī)則即可。2、突破圖片防盜鏈系統(tǒng)，可以將目標(biāo)站的圖片下載到服務(wù)器上面，提高訪問效率，增加百度圖片的收錄。3、支持靜態(tài)生成，即使目標(biāo)站服務(wù)器出現(xiàn)錯(cuò)誤，本站依然不受影響（前提是開啟靜態(tài)生成和圖片下載到本地服務(wù)器）。4、授權(quán)版可以啟用全國(guó)分站功能，自動(dòng)產(chǎn)生長(zhǎng)尾關(guān)鍵字，適合全國(guó)服務(wù)行業(yè)和信息查詢服務(wù)。語言代碼 1.Perl#!/usr/bin/perl# 通過IE瀏覽器中的[查看]->[源文件]可看HTML文件內(nèi)容。# perl中可以不通過瀏覽器直接取得HTML文件內(nèi)容，用的# 就是perl模塊libWWWuse strict;use LWP::UserAgent;use threads::shared;my $URL = http://*******;my $ua = new LWP::UserAgent;$ua->agent('Mozilla/3.0');my ($address,$params) = split(/\?/,$URL);my $req = new HTTP::Request ('GET',$address);$req->content_type('applicationn/x-www-form-urlencoded');$req->content();my $res = $ua->request($req);my $content = $res->as_string();# 此時(shí)$content里面是網(wǎng)頁(yè)內(nèi)容print $content;$URL里就是要偷數(shù)據(jù)的地址。例子中的是本人的小站。偷自己的東西，沒犯法吧？當(dāng)然，這個(gè)會(huì)把網(wǎng)頁(yè)內(nèi)容打印到控制臺(tái)。所以很多數(shù)據(jù)或者需要保存的時(shí)候，應(yīng)該用重定向符號(hào)輸出到文件。如：perl yourf ile. pl >a.html這樣，輸出的結(jié)果就保存在文件a.html中了。至于分析的語句，PERL可以使用方便而簡(jiǎn)潔的正則，限制于不同程序的不同分析，這里就不寫分析語句了。2.Active Server Pages － VBScriptASP版本的小偷程序，也不見得有什么太大的難度。不過應(yīng)用了XMLHTTP組件的功能而已，事實(shí)上，我也很驚訝ASP寫這個(gè)程序的簡(jiǎn)短之處：URL = http://*******Set objXMLHTTP = CreateObject(Microsoft.XMLHTTP)objXMLHTTP.Open GET,URL,FalseobjXMLHTTP.SendResponse.Write Server.HTMLEncode(objXMLHTTP.responseText)Set objXMLHTTP = Nothing簡(jiǎn)單不？呵呵....3.Active Server Pages － JScript從原理來說，這個(gè)和VBScript差不多。從語句來說，這個(gè)跟VBScript也差不多－畢竟，它們都用同一個(gè)組件：Java用來干這個(gè)，實(shí)在有點(diǎn)大材小用的感覺：import jav a .io.*;import jav a. net.*;public class getURLContentpublic static void main(String args[]) throws MalformedURLException,IOExceptionURL url = new URL(url address);BufferedReader reader = new BufferedReader(new InputStreamReader(url.openStream()));while(reader.ready()){System.out.println(reader.readLine());$url='http://網(wǎng)址';echo file_get_contents($url);6.Asp. NetSystem .Net.WebClient webclient = new System .Net.WebClient();webclient.DownloadString(http://*******);vb.n et:Dim webclient As New System .Net.WebClient()webclient.DownloadString(http://*******)QQ網(wǎng)站上的天氣程序On Error Resume NextServer.ScriptTimeOut=9999999Function getHTTPPage(Path)t = GetBody(Path)getHTTPPage=BytesToBstr(t,GB2312)End function首先，進(jìn)行小偷程序的一些初始化設(shè)置，以上代碼的作用分別是忽略掉所有非致命性錯(cuò)誤，把小偷程序的運(yùn)行超時(shí)時(shí)間設(shè)置得很長(zhǎng)（這樣不會(huì)出現(xiàn)運(yùn)行超時(shí)的錯(cuò)誤），轉(zhuǎn)換原來默認(rèn)的UTF-8編碼轉(zhuǎn)換成GB2312編碼，否則直接用XMLHTTP組件調(diào)用有中文字符的網(wǎng)頁(yè)得到的將是亂碼。Function GetBody(url)on error resume nextSet Retrieval = CreateObject(Microsoft.XMLHTTP)With Retrieval.Open Get, url, False, ,GetBody = .ResponseBodyEnd WithSet Retrieval = NothingEnd Function然后調(diào)用XMLHTTP組件創(chuàng)建一個(gè)對(duì)象并進(jìn)行初始化設(shè)置。Function BytesToBstr(body,Cset)dim objstreamset objstream = Server.CreateObject(adodb.stream)objstream.Type = 1objstream.Mode =3objstream.Openobjstream.Write bodyobjstream.Position = 0objstream.Type = 2objstream.Charset = CsetBytesToBstr = objstream.ReadTextobjstream.Closeset objstream = nothingEnd FunctionFunction Newstring(wstr,strng)Newstring=Instr(lcase(wstr),lcase(strng))if Newstring<=0 then Newstring=Len(wstr)End Function處理抓取回來的數(shù)據(jù)需要調(diào)用adodb.stream組件并進(jìn)行初始化設(shè)置以下即為頁(yè)面顯示部分Dim wstr,str,url,start,over,city’定義一些需要使用到的變量city = Request.QueryString(id)’程序傳回的ID變量（即用戶選擇的城市）賦給?city=&city&這里設(shè)置需要抓取的頁(yè)面地址，當(dāng)然你也可以直接指定某個(gè)地址而不使用變量wstr=getHTTPPage(url)獲取指定頁(yè)面的全部數(shù)據(jù)start=Newstring(wstr, )這里設(shè)置需要處理的數(shù)據(jù)的頭部，這個(gè)變量應(yīng)視不同情況而設(shè)置，具體內(nèi)容可以通過查看需要抓取的頁(yè)面的源代碼來確定。因?yàn)樵谶@個(gè)程序里我們需要抓取整個(gè)頁(yè)面,所以設(shè)置為頁(yè)面全部抓取。注意，設(shè)置的內(nèi)容必須是頁(yè)面內(nèi)容唯一的，不可以重復(fù)。over=Newstring(wstr, )和start相對(duì)應(yīng)的就是需要處理的數(shù)據(jù)的尾部，同樣的，設(shè)置的內(nèi)容必須是頁(yè)面中唯一的。body=mid(wstr,start,over-start)’設(shè)置顯示頁(yè)面的范圍下面就是動(dòng)用乾坤挪移+++的時(shí)候了，通過replace可以用一些字符替換掉數(shù)據(jù)中指定的字符。body = replace(body,skin1,新浪天氣預(yù)報(bào) - 麥小偷網(wǎng)絡(luò))body = replace(body,?city,tianqi.asp?id)本程序中已經(jīng)完成了替換的工作，如果有其他需要的話可以繼續(xù)進(jìn)行類似的替換操作。response.write body替換完需要修改的內(nèi)容后，就可以把修改的內(nèi)容顯示在頁(yè)面上了。至此程序結(jié)束
小偷程序
小偷程序?qū)嶋H上是通過了XML中的XMLHTTP組件調(diào)用其它網(wǎng)站上的網(wǎng)頁(yè)。
（二）事例
下面就XMLHTTP在ASP中的應(yīng)用做個(gè)簡(jiǎn)單說明
'常用函數(shù)
'1、輸入url目標(biāo)網(wǎng)頁(yè)地址，返回值getHTTPPage是目標(biāo)網(wǎng)頁(yè)的html代碼
functiongetHTTPPage(url)
dimHttp
setHttp=server.createobject("MSXML2.XMLHTTP")
Http.open"GET",url,false
Http.send()
ifHttp.readystate＜＞4then
exitfunction
endif
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
sethttp=nothing
iferr.number＜＞0thenerr.Clear
endfunction
'2、轉(zhuǎn)換亂瑪，直接用xmlhttp調(diào)用有中文字符的網(wǎng)頁(yè)得到的將是亂瑪，可以通過adodb.stream組件進(jìn)行轉(zhuǎn)換
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
'下面試著調(diào)用
的html內(nèi)容
DimUrl,Html
Url="
Html=getHTTPPage(Url)
Response.writeHtml
本回答由提問者推薦
網(wǎng)上可以找到免費(fèi)的小偷程序嗎!世紀(jì)系統(tǒng)的自助站可以存放嗎?有的給?
這個(gè)最好還是自己著么吧，別讓人家先把你的東東偷走！
什么是“站群”策略？
??因此，高質(zhì)量的網(wǎng)站建設(shè)才能使得網(wǎng)站推廣工作事半功倍。站長(zhǎng)們千萬不要忽略，搜索引擎的目的是為了帶給使用者更好的搜索體驗(yàn)，那么高質(zhì)量網(wǎng)站具備搜索引擎給予較高權(quán)重的條件。無論是站群還是其它推廣方式。高質(zhì)量網(wǎng)站必定是百度青睞的對(duì)象。注意站群的隱蔽性這點(diǎn)就不多說了，很多文章都有講過，總結(jié)幾點(diǎn)：1、同IP的網(wǎng)站不要互相連接；站群中的網(wǎng)站最好有不同的IP；2、站群中的多個(gè)網(wǎng)站內(nèi)容不能太過相似，要具備獨(dú)特性但又有相關(guān)性；3、增加單個(gè)網(wǎng)站的外鏈，使得站群的連接淹沒在大量連接中，增強(qiáng)隱蔽性。
純HTML小偷程序
Android萬能密鑰漏洞，APK容易植入惡意代碼，病毒危害如何防止？
以上就是【不要告訴別人！萬能小偷程序站群版24版】的全部?jī)?nèi)容。
評(píng)論