ASP代码加密

ASP代码通常都是明文写的，这一点很多人都知道。不过微软其实给过一个官方工具叫 Script Encoder，能从官网免费下载，还附带详细说明。但问题是，经过它加密后的文件会在开头多出一行 <%@ language = vbscript.encode %>，管理员一看到这行就知道：哦，这个ASP被加密了。而且网上也早就有对应的解密工具，所以这个方案其实没那么“隐蔽”。

那有没有更简单、更“野生”一点的办法？

其实思路很简单：对代码做点“算术运算”，比如把所有字符的ASCII码整体移动一位，本质上就是一种加密。虽然加密强度不高，但胜在实现简单，而且能让管理员在第一时间无法直接看懂关键代码。下面就是核心的加解密函数：

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

这里的逻辑其实很直白：Encode 函数负责把原始代码每个字符的ASCII码加1（偏移量 but=1），同时把换行符替换成一个特殊标记“汤”；UnEncode 则反过来，把字符减1，并把“汤”还原成换行符。这样加密后的代码看起来就是一串乱码，除了“汤”这个关键词外，完全不像正常代码。

在实际开发中，可以把关键 ASP 代码先用 Encode 函数处理，然后把加密后的字符串存下来，在正式代码里用 Execute(UnEncode(ipaddr)) 来执行。注意，解密函数 UnEncode 必须保留在服务器端，但 Encode 函数只在本地开发时使用，部署时最好删掉——否则就等于把钥匙挂在门上。

另外，函数名“UnEncode”也可以改成其他名字，比如“DecodeIt”或者干脆叫“DoIt”，稍微增加一点迷惑性。

需要提醒的是：这种加密方式本质上只是“防君子不防小人”。它的主要作用是让管理员在查看源码时无法一眼读懂关键逻辑，但只要有基础的编程能力，花几分钟就能写个对应的解密脚本。所以它更适合用在“防止无意泄露”或“临时混淆”的场景，而不是真正的安全防护。

话说回来，对于很多小型项目或者内部系统来说，这种低成本的手段已经足够应付大部分日常检查了。配合上其他的安全措施（比如文件权限、IP限制等），至少能让代码多一层保护。