平时做技术实践时，很多问题不是概念不会，而是细节没串起来。拿“ASP代码加密”来说，它看着像小点，放到项目里常会牵出环境、配置、兼容性和维护成本。下面按实际采用顺序，把思路、关键写法和容易踩坑的地方讲清楚，便于大家直接对照操作。

落到代码里，ASP代码一般是明文，很少有加密的，MS有个工具Script Encoder能够加密，这个东东能够微软官方网站免费下载，而且还有详细采用说明，但是经过它加密后的文件会有<%@ language = vbscript.encode %>，管理员看到这句话就知道这个asp文件被加密了。而且也有相关的解密文件。
实际处理时，本文提供一种轻松的方法，能够加密ASP代码，主要思路是将代码做些运算，比如将全部代码移动一位，基本上就算加密了，主要的加解密函数如下所示：

function UnEncode(temp)
but=1
for i =1 to len(temp)
if mid(temp,i,1)<>"汤" then
pk=asc(mid(temp,i,1))-but
if pk>126 then
pk=pk-95
elseif pk<32 then
pk=pk+95
end if
a=a&chr(pk)
else
a=a&vbcrlf
end if
next
UnEncode=a
end function

function Encode(temp)
but=1
cc=replace(temp,vbcrlf,"汤")
for i= 1 to len(cc)
if mid(cc,i,1)<>"汤" then
pk=asc(mid(cc,i,1))+but
if pk>126 then
pk=pk-95
elseif pk<32 then
pk=pk+95
end if
a=a&chr(pk)
else
a=a&"汤"
end if
next
’a=replace(a,"""","""""")
Encode=a
end function

从实现思路看，在开发的时候，通常将关键ASP代码Encode，再采用Excute(Uncode(ipaddr))执行就能够了。这样管理员一般不能直接看到关键代码，一般在程序里不要带上Encode函数，只在开发的时候采用，此外，UnEncode也能够改成其它函数名。
这种方式加密比较轻松，解密也很容易。