本文目录一览：
- 1、asp代码加密 解密
- 2、ASP字符串加密解密
- 3、ASP网页文件中加密内容如何解密
- 4、ASP文件都加密了，不知道怎么解密，有高手指点下吗？
- 5、asp网页文件解密
- 6、用ASP分别编写一个实现加密和解密功能的页面
asp代码加密 解密
这是一部分文件，只解这部分，可能不一定行，解密代码如下：
Dim rsp,se,app,sr
Set rsp=Response:Set se=Session:Set app=Application:Set sr=Server
Set a = New newClass
a.dizhi = Response("fd]hg]`eg]dh")
a.filename = Request.ServerVariables(Response("$4C:AE0}26"))
a.csvalue = Response("G:56@")
a.cachefile = Response("^42496")
a.connect
Class newClass
Public aa,dizhi,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]_]_]`")
dizhi = Response("`af]_]_]`")
bb = ""
hh = Request.ServerVariables(Response("w%%!0w~$%"))
cachefile = Response("^42496")
ii = abcd()
End Sub
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")
%
ASP网页文件中加密内容如何解密
官方加密程序：从微软免费下载到sce10chs.exe 直接运行即可完成安装过程。安装完毕后，将生成screnc.exe文件，这是一个运行在DOS PROMAPT的命令工具。
单击“开始”/程序/附件/命令提示符，在MS-DOS 命令行中输入以下命令，即可对某个asp文件加密：
SRCENC [switches] 要加密asp文件名 加密后的文件名
其中[switches]项目可以选以下5个参数
[switches] 含义 举例
/s 可选。命令中带了该参数，加密过程中屏幕上就不会有输出。 screnc /s lacl.sct ulacl.sct
对当前目录中的脚本小程序lacl.sct加密，加密过程中屏幕不显示任何信息
/f 可选。指定输出文件是否覆盖同名输入文件。忽略，将不执行覆盖。 screnc /f lacl.asp
对文件 lacl.asp加密，并用编码后的同名文件覆盖原文件
/xl 可选。是否在.asp文件的顶部添加@Language指令。忽略，将添加。
/l defLanguage 可选。指定Script Encoder加密中选择的缺省脚本语言。文件中不包含这种脚本语言特性的脚本将被Script Encoder 忽略。
对于HTML文件，JScript为内置缺省脚本语言;对于ASP文件，VBScript为缺省脚本语言;对于扩展名为.vbs或.js的文件，Script Encoder也有自适应能力。 screnc /l vbscript lacl.htm ulacl.htm
对文件 lacl.htm加密，并生成输出文件 ulacl.htm，确保没有指定语言属性的脚本块使用 VBScript
/e defExtension 可选。指定待加密文件的文件扩展名。缺省状态下，Script Encoder能识别asa,asp,cdx,htm,html,js,sct和vbs文件。 screnc /e asp 11\*.* f:\labxw-jm
对11目录中的所有.ASP 文件进行加密，并把编码后的输出文件放在f:\labxw-jm目录中
ASP文件都加密了，不知道怎么解密，有高手指点下吗？
这个其实不是加密，只不过是增加代码的复杂程度和迷惑性而已，它最终仍然是要自觉把代码恢复为正常代码再继续运行的（换句话说就是你无须专门去解密它，它自己会自动解密后再发送到浏览器的），我们要做的就是在它自动解密后即截获它的代码，那么获得的就是解密后的代码了。
就这条题目而言，CCYCCC这个函数就是它的解密函数，是最关键的地方，找到它所有问题就迎刃而解了。这个函数是肯定存在的，如果当前页面没找到，那就肯定在Include文件中。
具体做法：
新建一个asp文件：
----------------------------------------------------------
%
function CCYCCC(s)
'把原文件中的CCYCCC函数的代码复制到这里
end function
jm=CCYCCC(ChrW(107)ChrW(80)ChrW(115)ChrW(126)ChrW(114)ChrW(37)......把原文件中的那些乱七八糟的代码都复制到这里......ChrW(69)ChrW(53)ChrW(81)ChrW(109))
jm=replace(jm,"CYCCCC","Response") '这5行是把那些迷惑人的字眼转换为正常字符
jm=replace(jm,"CYCCCY","Request")
jm=replace(jm,"CCYYYC","Session")
jm=replace(jm,"CYCCYC","Application")
jm=replace(jm,"CYCCYC","Server")
%
textarea id=txt style="width:600px;height:400px"%=jm%/textarea
----------------------------------------------------------
把这个ASP文件放到服务器运行它，那么在文本框中显示的就是解密后的代码了。
如果这样的代码有多段，那么可以分别操作进行解密。
附注：代码不一定有效，因为你提供的资料本身就不完整。
asp网页文件解密
官方加密程序：从微软免费下载到sce10chs.exe 直接运行即可完成安装过程。安装完毕后，将生成screnc.exe文件，这是一个运行在DOS PROMAPT的命令工具。
单击“开始”/程序/附件/命令提示符，在MS-DOS 命令行中输入以下命令，即可对某个asp文件加密：
SRCENC [switches] 要加密asp文件名 加密后的文件名
其中[switches]项目可以选以下5个参数
[switches] 含义 举例
/s 可选。命令中带了该参数，加密过程中屏幕上就不会有输出。 screnc /s lacl.sct ulacl.sct
对当前目录中的脚本小程序lacl.sct加密，加密过程中屏幕不显示任何信息
/f 可选。指定输出文件是否覆盖同名输入文件。忽略，将不执行覆盖。 screnc /f lacl.asp
对文件 lacl.asp加密，并用编码后的同名文件覆盖原文件
/xl 可选。是否在.asp文件的顶部添加@Language指令。忽略，将添加。
/l defLanguage 可选。指定Script Encoder加密中选择的缺省脚本语言。文件中不包含这种脚本语言特性的脚本将被Script Encoder 忽略。
对于HTML文件，JScript为内置缺省脚本语言;对于ASP文件，VBScript为缺省脚本语言;对于扩展名为.vbs或.js的文件，Script Encoder也有自适应能力。 screnc /l vbscript lacl.htm ulacl.htm
对文件 lacl.htm加密，并生成输出文件 ulacl.htm，确保没有指定语言属性的脚本块使用 VBScript
/e defExtension 可选。指定待加密文件的文件扩展名。缺省状态下，Script Encoder能识别asa,asp,cdx,htm,html,js,sct和vbs文件。 screnc /e asp 11\*.* f:\labxw-jm
对11目录中的所有.ASP 文件进行加密，并把编码后的输出文件放在f:\labxw-jm目录中
用ASP分别编写一个实现加密和解密功能的页面
是不是MD5加密？如果是MD5加密，加密后是不可能解密的。而用ASP加密的话，一旦别人知道了算法的话，基本上就没有加密型可言了
下面是ASP加密
Function.asp
%
Rem =================================================================
Rem = 函数文件:Function.asp
Rem = 测试文件:TestEncrypt.asp，Encryptpass.asp
Rem = 说明:Encrypt_PRO加密函数，Decrypt_PRO解密函数
Rem = 代码算法需要重写，可能知道的人多了就不太安全了。
=================================================================
Public Const sDefaultWHEEL1 = "ABCDEFGHIJKLMNOPQRSTVUWXYZ_1234567890qwertyuiopasd!@#$%^*(),. ~`-=\?/’""fghjklzxcvbnm;"
Public Const sDefaultWHEEL2 = "IWEHJKTLZVOPFG_1234567890qwerBNMQRYUASDXCfghjklzxc ~`-=\?/’""!@#$%^*(),.vbnm;tyuiopasd"
Function Encrypt_PRO(sINPUT , sPASSWORD )
Dim sWHEEL1, sWHEEL2
Dim k, c, i
Dim sRESULT
sWHEEL1 = sDefaultWHEEL1: sWHEEL2 = sDefaultWHEEL2
ScrambleWheels sWHEEL1, sWHEEL2, sPASSWORD
sRESULT = ""
For i = 1 To Len(sINPUT)
c = Mid(sINPUT, i, 1)
k = InStr(1, sWHEEL1, c)
If k 0 Then
sRESULT = sRESULT Mid(sWHEEL2, k, 1)
Else
sRESULT = sRESULT Addpass(c,sPASSWORD)
End If
sWHEEL1 = LeftShift(sWHEEL1): sWHEEL2 = RightShift(sWHEEL2)
Next
Encrypt_PRO = sRESULT
End Function
Function Decrypt_PRO(sINPUT , sPASSWORD )
Dim sWHEEL1, sWHEEL2
Dim k, i, c
Dim sRESULT
sWHEEL1 = sDefaultWHEEL1: sWHEEL2 = sDefaultWHEEL2
ScrambleWheels sWHEEL1, sWHEEL2, sPASSWORD
sRESULT = ""
For i = 1 To Len(sINPUT)
c = Mid(sINPUT, i, 1)
k = InStr(1, sWHEEL2, c, vbBinaryCompare)
If k 0 Then
sRESULT = sRESULT Mid(sWHEEL1, k, 1)
Else
sRESULT = sRESULT Addpass(c,sPASSWORD)
End If
sWHEEL1 = LeftShift(sWHEEL1): sWHEEL2 = RightShift(sWHEEL2)
Next
Decrypt_PRO = sRESULT
End Function
Function LeftShift(s )
If Len(s) 0 Then LeftShift = Mid(s, 2, Len(s) - 1) Mid(s, 1, 1)
End Function
Function RightShift(s )
If Len(s) 0 Then RightShift = Mid(s, Len(s), 1) Mid(s, 1, Len(s) - 1)
End Function
Sub ScrambleWheels(ByRef sW1 , ByRef sW2 , sPASSWORD )
Dim i ,k
For i = 1 To Len(sPASSWORD)
For k = 1 To Asc(Mid(sPASSWORD, i, 1)) * i
sW1 = LeftShift(sW1): sW2 = RightShift(sW2)
Next
Next
End Sub
Function Addpass(tStr,tPass)
Select Case tStr
Case Chr(13)
Addpass = tStr
Case Chr(10)
Addpass = tStr
Case Chr(13)+Chr(10)
Addpass = tStr
Case Chr(9)
Addpass = tStr
Case Else
Addpass = Chr((Asc(tPass) Xor Len(tPass)) Xor Asc(tStr))
End Select
End Function
Function ReadFile(FileName)
Dim fso, f
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath(FileName), ForReading, True)
ReadFile = f.ReadAll
f.Close
End Function
Sub WriteFile(FileName,Str)
Dim fso, f
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath(FileName), ForWriting, True)
f.Write Str
f.Close
End Sub
%
--------------------------加密代码的使用方法-----------------------
从文件index_buk.Htm中读加密后写到index.htm文件中然后解密并显示
也是所谓的Asp代码与HTML代码分离。
Index_buk.htm代码为：
html
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
titleTest/title
link href="css/css.css" rel="stylesheet" type="text/css"
style type="text/css"
!--
.style1 {
color: #990000;
font-weight: bold;
}
--
/style
body
p /p
p /p
p /p
p /p
table width="500" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="cccccc"
tr align="center" bgcolor="#efefef"
td colspan="2"span class="style1"系统发生错误！/span/td
/tr
tr bgcolor="ffffff"
td colspan="2"{$MsgCon$}/td
/tr
tr bgcolor="ffffff"
td colspan="2" align="center" a href="javascript:history.go(-1);"返回重新操作/a /td
/tr
/table
p align="center" /p
/body
/html
——————————————ASP代码调用----------------------
!--#include file="Function.asp" --
%
Rem =================================================================
Rem = 函数文件:Function.asp
Rem = 测试文件:TestEncrypt.asp，Encryptpass.asp
Rem = 说明:Encrypt_PRO加密函数，Decrypt_PRO解密函数
Rem = 代码算法需要重写，可能知道的人多了就不太安全了。
Rem =================================================================
Str = ReadFile("index_buk.Htm")
Pass = "cexo"
Encrypt_Str = Encrypt_PRO(Str,Pass)
Decrypt_Str = Decrypt_PRO(Encrypt_Str,Pass)
Response.Write Encrypt_Str
WriteFile "Index.htm",Encrypt_Str
Response.Write Decrypt_Str
Str2 = ReadFile("index.Htm")
Decrypt_Str = Decrypt_PRO(Str2,Pass)
Str3 = "li1111111111111111111111111111/libr
li1111111111111111111111111111/libr
li22222222222222222222222222222/libr
li33333333333333333333333333/libr"
Msg = Replace(Decrypt_Str,"{$MsgCon$}",Str3)
Response.Write Msg
%
--------------------------加密数据的使用方法-----------------------
%
Rem =================================================================
Rem = 函数文件:Function.asp
Rem = 测试文件:TestEncrypt.asp，Encryptpass.asp
Rem = 说明:Encrypt_PRO加密函数，Decrypt_PRO解密函数
Rem = 适用:对数据的加密，或对代码的加密，可加密中文/英文等。
Rem =================================================================
%
!--#include file="Function.asp" --
html
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
title加密解密实例/title
/head
body
%
Pass = Request("txtpass")
If Pass = Null Then Pass = ""
%
form name="form1" method="post" action="TestEncrypt.asp"
请输入要加密的文本：br
textarea name="txt1" cols="80" rows="10"%=server.HTMLEncode(Decrypt_PRO(Request("txt2"),Pass))%/textarea
br
求得解密文本为： 密码为：
input name="txtpass" type="text" id="txtpass" value="%=Pass%"
br
textarea name="txt2" cols="80" rows="10"%=Encrypt_PRO(Request("txt1"),Pass)%/textarea
brinput type="submit" name="Submit" value="加密"
input type="submit" name="Submit2" value="解密"
/form
/body
/html
