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还可以改为其他涵数名。
这类方法加密非常简单,破译也非常容易。