ASP代碼加密

    ASP代碼一般是明文，很少有加密的，MS有個(gè)工具Script Encoder可以加密，這個(gè)東東可以微軟官方網(wǎng)站免費(fèi)下載，而且還有詳細(xì)使用說明，但是經(jīng)過它加密后的文件會(huì)有<%@ language = vbscript.encode %>，管理員看到這句話就知道這個(gè)asp文件被加密了。而且也有相關(guān)的解密文件。 
    本文提供一種簡單的方法，可以加密ASP代碼，主要思路是將代碼做些運(yùn)算，比如將全部代碼移動(dòng)一位，基本上就算加密了，主要的加解密函數(shù)如下： 
    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 
    在開發(fā)的時(shí)候，通常將關(guān)鍵ASP代碼Encode，再使用Excute(Uncode(ipaddr))執(zhí)行就可以了。這樣管理員一般不能直接看到關(guān)鍵代碼，一般在程序里不要帶上Encode函數(shù)，只在開發(fā)的時(shí)候使用，此外，UnEncode也可以改成其它函數(shù)名。 
    這種方式加密比較簡單，解密也很容易。