asp加密代码
Ⅰ asp程序加密如何实现
方法一：使用工具加密ASP代码，简单快捷，但没有实际意义，很容易就被反编译了。
方法二：把ASP封装DLL，方法不复杂，但需要你有足够权限，虚拟主机是无法注册DLL的，除非你是服务器或者VPS，如果你是卖源码的，程序安装也需要VPS或服务器的环境才行。
方法三：重要代码远程执行，就是ASP里面的XMLHTTP，把核心部分全部放到你自己的空间里，卖给客户的代码都是远程执行你空间里的代码，然后在吧执行结果反馈回去。效率比较低，但适合访问量低的应用，例如人事管理、直销系统的奖金计算等等。
基本就上面这三种方法，我通通都用过，主要看程序价值了，贵的源码都采用第二种方法，对方如果连个VPS都买不起，估计也不可能买得起我的代码。 还有就是比较便宜的，代码不太复杂，就是不希望客户倒卖，主要是直销系统。都是手打，一定要选我哦。
附2014ASP最新视频教程http://www.uuucool.com/down/html/3692.html
Ⅱ 用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_ ~`-=\?/’""!@#$%^&*(),.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">
<title>Test</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 = "<li>1111111111111111111111111111</li><br>
<li>1111111111111111111111111111</li><br>
<li>22222222222222222222222222222</li><br>
<li>33333333333333333333333333</li><br>"
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>
<br><input type="submit" name="Submit" value="加密">
<input type="submit" name="Submit2" value="解密">
</form>
</body>
</html>
Ⅲ asp加密工具ASP代码加密工具
最新版本9.0企业版SP3的ASP代码加密工具提供编译型加密、兼容型加密和非编译型加密三种加密方式，旨在彻底加密源代码，保护知识产权，其加密效率和应用效果优于同类脚本转换工具。
该加密工具能为您的ASP程序增加多种访问控制功能，包括但不限于防SQL注入、日期访问控制、域名访问控制、服务器IP绑定控制、网站注册授权、代码附加、版权设置和数据库加密等。这些功能旨在提升程序安全性，限制非法访问。
值得一提的是，此加密工具不会生成额外的DLL组件，这使得部署、调试和修改变得更加便捷。加密后的代码以二进制方式执行，确保了代码的安全性和不可还原性，进一步增强了程序的安全防护。
总体而言，最新版本9.0企业版SP3的ASP代码加密工具是一个功能强大、易于操作的解决方案，旨在为您的ASP程序提供全面的加密保护和访问控制，确保代码安全和程序的稳定运行。
(3)asp加密代码扩展阅读
ASP页面是纯文本的形式存放，在服务器端可以轻易看到全部编程逻辑。这样给ASP应用商业化带来了一定的困难。随着市场的需求，市面上出现了各种各样的ASP加密工具。例如：微软ASP加密、微微ASP代码加密解密器、ASP代码加密工具、ASP代码加密器、ASP风火轮等等。
Ⅳ asp如何对传输的字符串加密
如果要加密的话，可以传输之前写一个加密代码，然后在接收方写解密代码就行了
举个简单的示例：
a.asp:
<%
function encode(ms)
'这里就是你希望的加密方式
'.. 加密方式很多
end function
response.write "xxxx.xxxx/index.asp?user1=" & encode("hao123")
%>
index.asp:
<%
function decode(ms)
'这里是解密代码
'是上面加密的逆运算
end function
user1=decode(request("user1"))
%>