ASP文件部分加密代码：
​
Response.Expires=0
Response.ExpiresAbsolute=Now() - 1
Response.Addheader "pragma","no-cache"
Response.Addheader "cache-control","private"
Response.CacheControl="no-cache"
Response.Charset="gb2312"
Public Function BytesToBstr(Body, Cset)
On Error Resume Next:Dim Objstream:Set Objstream=Server.CreateObject("adodb.stream"):Objstream.Type=1:Objstream.Mode=3
Objstream.Open:Objstream.Write Body:Objstream.Position=0:Objstream.Type=2:Objstream.Charset=Cset:BytesToBstr=Objstream.ReadText
Objstream.Close:Set Objstream=Nothing
End Function
myhan=""
myhan=myhan+"VIBvRV wJeNHOhKuSMtsHcLxLGHKgHz.XSEhCzshCA/nLGrJUJF,VIBvRV wJeNHOdjiCArJKFGmARBDJhspAINqQDNDjUKyPc~u"
myhan=myhan+"TVxIWuVERLBuVcsvDOz&\, BDJEK;'}pfdqyIz!HLN?8HRNuVUm7XFKO)UKyQH/ C\{-,ArJKFGn(FLFROLuw4HENJxIeAyqQH))"

系QQ：4511274