发布人:向导
补丁名:垃圾引用防御补丁
发布时间:2007-1-4
版本号:第3版
适用版本:PJblog2.6
原作者:向导
演示地址:http://mon\function.asp
在文件最后，%>的上面添加

FunctionEncrypt(theNumber)
OnErrorResumeNext
Dimn,szEnc,t,HiN,LoN,i
n=CDbl((theNumber+1570)^2-7*(theNumber+1570)-450)
Ifn<0ThenszEnc="R"ElseszEnc="J"
n=CStr(abs(n))
Fori=1ToLen(n)step2
t=Mid(n,i,2)
IfLen(t)=1Then
szEnc=szEnc&t
ExitFor
EndIf
HiN=(CInt(t)And240)/16
LoN=CInt(t)And15
szEnc=szEnc&Chr(Asc("M")+HiN)&Chr(Asc("C")+LoN)
Next
Encrypt=szEnc
EndFunction


FunctionDecrypt(theNumber)
OnErrorResumeNext
Dime,n,sign,t,HiN,LoN,NewN,i
e=theNumber
IfLeft(e,1)="R"Thensign=-1Elsesign=1
e=Mid(e,2)
NewN=""
Fori=1ToLen(e)step2
t=Mid(e,i,2)
IfAsc(t)>=Asc("0")AndAsc(t)<=Asc("9")Then
NewN=NewN&t
ExitFor
EndIf
HiN=Mid(t,1,1)
LoN=Mid(t,2,1)
HiN=(Asc(HiN)-Asc("M"))*16
LoN=Asc(LoN)-Asc("C")
t=CStr(HiNorLoN)
IfLen(t)=1Thent="0"&t
NewN=NewN&t
Next
e=CDbl(NewN)*sign
Decrypt=CLng((7+sqr(49-4*(-450-e)))/2-1570)
EndFunction
================================================
演示到我的BLOG看。我网络很慢。请您忍耐。
没有修改过这4个文件的用户可以下载下面的覆盖即可。
================================================
使用静态页的需要到后台从新建立所有日记。
不知道还有那不对的。希望大家踊跃测试，拍砖。
点击下载此文件