• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    插件下载┊垃圾引用防御补丁(每小时自动换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个文件的用户可以下载下面的覆盖即可。
    ================================================
    使用静态页的需要到后台从新建立所有日记。
    不知道还有那不对的。希望大家踊跃测试,拍砖。
     点击下载此文件
    上一篇:垃圾引用防治补丁以及发送引用修正补丁的自动安装程序
    下一篇:完美解决PJ的Cookies保存时限问题!可选择记录登陆时长!
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    插件下载┊垃圾引用防御补丁(每小时自动换KEY,支持静态页面) 插件下载,垃圾,引用,防御,