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也可以改成其它函数名。
这种方式加密比较简单,解密也很容易。

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/1694.html