久操网在线,JUQ-190人妻秘书汗と接吻,肉文辣文小说网

主頁 > 知識庫 > 插件下載┊垃圾引用防御補丁（每小時自動換KEY，支持靜態頁面）

插件下載┊垃圾引用防御補丁（每小時自動換KEY，支持靜態頁面）

發布人: 向導
    補丁名: 垃圾引用防御補丁
    發布時間: 2007-1-4
    版本號: 第3版
    適用版本: PJblog 2.6
    原作者: 向導
    演示地址: http://www.hljsh.com/
    下載地址: http://bbs.pjhome.net/attachment.php?aid=2143
    插件簡介: 能有效防止垃圾引用。加密遞交地址，第2版增加KEY驗證，并每小時自動更換一次key。
    本版本不修改數據庫，只修改了4個文件，并支持靜態頁模式！

效果
引用通告地址: trackback.asp?tbID=JNKRQOF8key=JOKNPNKOQPMPPMC0

具體安裝方法如下:

===========================================================
文件trackback.asp
查找
tbID = CheckStr(Request.QueryString("tbID"))
替換成
tbID = Decrypt(CheckStr(Request.QueryString("tbID")))

查找
If Not (IsInteger(Request.QueryString("tbID")) AND IsInteger(Request.QueryString("logID"))) Then
替換成
If Not IsInteger(Decrypt(Request.QueryString("tbID"))) AND IsInteger(Request.QueryString("logID")) Then

查找
Where blog_ID="logID" AND tb_ID="CheckStr(Request.QueryString("tbID"))
替換成
Where blog_ID="logID" AND tb_ID="Decrypt(CheckStr(Request.QueryString("tbID")))
**有2處

查找
'==================================
'  引用通告處理頁面
'    更新時間: 2006-6-1
'==================================
在下面加入

dim keys,keys1
keys=Request.QueryString("key")
keys1=Encrypt((year(now))(Month(now))(day(now))hour(now()))
if keys>keys1 then
                Response.c
                Response.write "?xml version=""1.0"" encoding=""UTF-8""?>?xml-stylesheet type=""text/xsl"" href=""tb.xsl""?>"
                %>
                response>error>1/error>message>您遞交的信息已過期.請檢查.../message>/response>
                %
else

dim strget
        strget=trim(Request.QueryString("tbID"))
        if len(strget) > 8 then
                Response.c
                Response.write "?xml version=""1.0"" encoding=""UTF-8""?>?xml-stylesheet type=""text/xsl"" href=""tb.xsl""?>"
                %>
                response>error>1/error>message>您遞交的信息有錯誤.請檢查.../message>/response>
                %
else

  dim tbIDs
  tbIDs = Decrypt(CheckStr(Request.QueryString("tbID")))

                if tbIDs  1 then
                Response.c
                Response.write "?xml version=""1.0"" encoding=""UTF-8""?>?xml-stylesheet type=""text/xsl"" href=""tb.xsl""?>"
                %>
                response>error>1/error>message>您遞交的信息有錯誤.請檢查.../message>/response>
                %
                else

查找
'Trackback response function上面加入
end if
end if
end if

********可以不換***********
查找
Response.Redirect("search.asp?searchType=trackback")
替換成
Response.c
Response.write "?xml version=""1.0"" encoding=""UTF-8""?>?xml-stylesheet type=""text/xsl"" href=""tb.xsl""?>"
%>
response>error>1/error>message>日志ID錯誤.請檢查....../message>/response>
%
查找
response>error>1/error>message>日志沒有被引用./message>/response>
替換成
response>error>1/error>message>日志（ID=% Response.write tbID %>）沒有被引用./message>/response>

********可以不換***********

===========================================================
文件class\cls_article.asp
查找
引用通告地址:a href="%=(SiteURL"trackback.asp?tbID="id)%>" target="_blank">%=(SiteURL"trackback.asp?tbID="id)%>/a>
替換成
引用通告地址:a href="%=(SiteURL"trackback.asp?tbID="Encrypt(id)"key="Encrypt((year(now))(Month(now))(day(now))hour(now())))%>" target="_blank">%=(SiteURL"trackback.asp?tbID="Encrypt(id)"key="Encrypt((year(now))(Month(now))(day(now))hour(now())))%>/a>
查找
Sub ShowComm(LogID,comDesc,DisComment)
在下面添加
dim k1
k1=Encrypt((year(now))(Month(now))(day(now))hour(now()))
查找
href=""trackback.asp?action=deltbtbID="commArr(6,Pcount)"logID="LogID"""
替換成
href=""trackback.asp?action=deltbtbID="Encrypt(commArr(6,Pcount))"logID="LogID"key="k1"""

查找
TempArticle=Replace(TempArticle,"""%ST(A)%"">","")
替換成
dim k1
k1=Encrypt((year(now))(Month(now))(day(now))hour(now()))
TempArticle=Replace(TempArticle,"""%ST(A)%"">","")
TempArticle=Replace(TempArticle,"""%ST(KEY)%"">",k1)===========================================================
文件class\cls_logAction.asp
查找
Temp1=Replace(Temp1,"$trackback$>",SiteURL"trackback.asp?tbID="LogID)
替換成
Temp1=Replace(Temp1,"$trackback$>",SiteURL"trackback.asp?tbID="Encrypt(LogID)"key=""""%ST(KEY)%"">")===========================================================
文件common\function.asp
在文件最后，%>的上面添加

Function Encrypt(theNumber)
On Error Resume Next
Dim n, szEnc, t, HiN, LoN, i
n = CDbl((theNumber + 1570) ^ 2 - 7 * (theNumber + 1570) - 450)
If n  0 Then szEnc = "R" Else szEnc = "J"
n = CStr(abs(n))
For i = 1 To Len(n) step 2
  t = Mid(n, i, 2)
  If Len(t) = 1 Then
   szEnc = szEnc  t
   Exit For
  End If
  HiN = (CInt(t) And 240) / 16
  LoN = CInt(t) And 15
  szEnc = szEnc  Chr(Asc("M") + HiN)  Chr(Asc("C") + LoN)
Next
Encrypt = szEnc
End Function

Function Decrypt(theNumber)
On Error Resume Next
Dim e, n, sign, t, HiN, LoN, NewN, i
e = theNumber
If Left(e, 1) = "R" Then sign = -1 Else sign = 1
e = Mid(e, 2)
NewN = ""
For i = 1 To Len(e) step 2
  t = Mid(e, i, 2)
  If Asc(t) >= Asc("0") And Asc(t) = Asc("9") Then
   NewN = NewN  t
   Exit For
  End If
  HiN = Mid(t, 1, 1)
  LoN = Mid(t, 2, 1)
  HiN = (Asc(HiN) - Asc("M")) * 16
  LoN = Asc(LoN) - Asc("C")
  t = CStr(HiN or LoN)
  If Len(t) = 1 Then t = "0"  t
  NewN = NewN  t
Next
e = CDbl(NewN) * sign
Decrypt = CLng((7 + sqr(49 - 4 * (-450 - e))) / 2 - 1570)
End Function
================================================
演示到我的BLOG看。我網絡很慢。請您忍耐。
沒有修改過這4個文件的用戶可以下載下面的覆蓋即可。
================================================
使用靜態頁的需要到后臺從新建立所有日記。
不知道還有那不對的。希望大家踴躍測試，拍磚。
點擊下載此文件

標簽：咸陽麗江家電維修溫州昆明鐵嶺泰州昌都

巨人網絡通訊聲明：本文標題《插件下載┊垃圾引用防御補丁（每小時自動換KEY，支持靜態頁面）》，本文關鍵詞插件下載,垃圾,引用,防御,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。

好湿?好紧?好多水好爽自慰,久久久噜久噜久久综合,成人做爰A片免费看黄冈,机机对机机30分钟无遮挡

插件下載┊垃圾引用防御補丁（每小時自動換KEY，支持靜態頁面）