asp加密函数

‘壹’ ASP 代码加密如何解密，求高手

单击“开始”/程序/附件/命令提示符，在MS-DOS 命令行中输入以下命令，即可恢复原代码：
ZWDECODE <已加密asp文件名>
其中<已加密asp文件名>必需输入，该文件名可带目录路径;也必需输入，这是要生成的输出文件名，也可以带路径信息。

‘贰’ asp对url把后面的参数进行加密与解密

function SafeUrl(OldName)
Urllen=len(OldName)
tempStr=""
for Ucount=1 to UrlLen
ttmp=hex(asc(mid(OldName,Ucount,1)))
if len(ttmp)=4 then ttmp=left(ttmp,2)+"%"+mid(ttmp,3)
tempStr=tempStr+"%"+ttmp
next
SafeUrl=tempStr
end function

那你就把这个值在url上加密，然后在页面之间用个hidden传吧

‘叁’ asp程序加密如何实现

方法一：使用工具加密ASP代码，简单快捷，但没有实际意义，很容易就被反编译了。
方法二：把ASP封装DLL，方法不复杂，但需要你有足够权限，虚拟主机是无法注册DLL的，除非你是服务器或者VPS，如果你是卖源码的，程序安装也需要VPS或服务器的环境才行。
方法三：重要代码远程执行，就是ASP里面的XMLHTTP，把核心部分全部放到你自己的空间里，卖给客户的代码都是远程执行你空间里的代码，然后在吧执行结果反馈回去。效率比较低，但适合访问量低的应用，例如人事管理、直销系统的奖金计算等等。

基本就上面这三种方法，我通通都用过，主要看程序价值了，贵的源码都采用第二种方法，对方如果连个VPS都买不起，估计也不可能买得起我的代码。 还有就是比较便宜的，代码不太复杂，就是不希望客户倒卖，主要是直销系统。都是手打，一定要选我哦。
附2014ASP最新视频教程http://www.uuucool.com/down/html/3692.html

‘肆’ ASP简单文字加密

<%
Function AscDecrypt(AscDecode)
For iDe=1 To Len(AscDecode)
DeTexts = DeTexts & Asc(Mid(AscDecode,iDe,2)) & "a"
Next
DeTexts = Replace(DeTexts,"-","u")
AscDecrypt = Left(DeTexts,Len(DeTexts)-1)
End Function
Function AscEncrypt(AscEncode)
AscEncode = Replace(AscEncode,"u","-")
EncodeArr = Split(AscEncode,"a")
For iEn=0 To UBound(EncodeArr)
ChrAscNum = EncodeArr(iEn)
If IsNumeric(ChrAscNum) Then
EnTexts = EnTexts & Chr(ChrAscNum)
End If
Next
AscEncrypt = EnTexts
End Function
%>
<%=AscDecrypt("测试")%>

<%=AscEncrypt("u20236au18732au20271au23617")%>
原理：ASP下的Asc函数读取字符的Ascii值