asp加密文件解密破解方法
asp加密文件解密破解方
网上有很多好的程序，但为了商业用途，有一些asp程序的文件是加密了的，如果他加密的方式不是很麻烦的话，那么是可以解密的。目前网上使用较多而且方便的加密就是脚本编码器(SRCENC.EXE)加密，这种加密方法破解比较容易，在文章的尾部有破解方法。本人尝试使用这种方法成功破解。
目前对ASP程序的加密方法主要有三种：脚本编码器(SRCENC.EXE)加密、组件加密、自编程序加密，下面我们就来展开介绍这三种加密方法……
  如今，用ASP技术构建的网站随处可见。由于ASP脚本是在服务器上解释执行的(无法编译)，因此你辛苦开发出来的ASP代码，很容易被人拷去任意修改，如何保护ASP源代码呢?这是每个ASP站长都会遇到的难题，网上求解这类问题的帖子非常多，下面我们就来谈谈ASP程序的加密方法。
  一、如何加密ASP程序?
  目前对ASP程序的加密方法主要有三种：脚本编码器(SRCENC.EXE)加密、组件加密、自编程序加密，下面我们就来展开介绍这三种加密方法。
  1、使用微软的MS Script Encode进行加密
  微软提供了脚本编码器MS Script 下载地址点击下载)，可以对ASP程序进行加密。这是一个简单的命令行工具，其执行文件是SRCENC.EXE，需要在DOS下运行。它只加密页面中嵌入的脚本代码，把网页中之间的ASP代码转换成不可读的乱码，其他部分则保持原样不变。加密后的程序，必须使用Internet Explorer 5.0以上版本才能正常浏览。
  用SRCENC加密之后，文件中被加密过的部分将变成只读类型，假如你修改了加密部分(哪怕只改动一个字)，就会导致整个文件不能使用。对于 VBScript，加密后在源文件的第一行会显示：<SCRIPT LANGUAGE="VBScript.Encode">；而JScript（或 JavaScript）则会显示：<SCRIPT LANGUAGE="JScript.Encode">
  (1)加密方法
官方加密程序：从微软免费下载到 直接运行即可完成安装过程。安装完毕后，将生成文件，这是一个运行在DOS PROMAPT的命令工具。
  单击“开始”/程序/附件/命令提示符，在MS-DOS 命令行中输入以下命令，即可对某个asp文件加密：
SRCENC    <；要加密asp文件名>  <；加密后的文件名>
  其中项目可以选以下5个参数
  含义 举例
  /s 可选。命令中带了该参数，加密过程中屏幕上就不会有输出。 screnc /s lacl.sct ulacl.sct
  对当前目录中的脚本小程序lacl.sct加密，加密过程中屏幕不显示任何信息
  /f 可选。指定输出文件是否覆盖同名输入文件。忽略，将不执行覆盖。 screnc /f lacl.asp
  对文件 lacl.asp加密，并用编码后的同名文件
覆盖原文件
  /xl 可选。是否在.asp文件的顶部添加@Language指令。忽略，将添加。
  /l defLanguage 可选。指定Script Encoder加密中选择的缺省脚本语言。文件中不包含这种脚本语言特性的脚本将被Script Encoder 忽略。
  对于HTML文件，JScript为内置缺省脚本语言；对于ASP文件，VBScript为缺省脚本语言；对于扩展名为.vbs或.js的文件，Script Encoder也有自适应能力。 screnc /l vbscript lacl.htm ulacl.htm
  对文件 lacl.htm加密，并生成输出文件 ulacl.htm，确保没有指定语言属性的脚本块使用 VBScript
  /e defExtension 可选。指定待加密文件的文件扩展名。缺省状态下，Script Encoder能识别asa,asp,cdx,htm,html,js,sct和vbs文件。 screnc /e asp 11\*.* f:\labxw-jm
  对11目录中的所有.ASP 文件进行加密，并把编码后的输出文件放在f:\labxw-jm目录中
  (2)操作举例
  例如要加密当前目录中的lacl.asp文件，生成加密文件ulacl.asp，则在DOS下输入命令：
  screnc lacl.asp ulacl.asp
  对当前目录中的所有 .ASP 文件进行加密，并把编码后的输出文件放在f:\labxw中，则使用命令：
  screnc *.asp f:\labxw
  2、使用组件加密asp
  以上被screnc加密过的程序，是可以解密的(解密方法下文有介绍)，如果你想彻底保护自己的asp代码，可以通过开发activex dll组件的方法进行保护。
  Dll文件是被编译过的机器代码，如果没有源项目文件，是不可能被反编译的，所以组件加密这种方
法最安全，也不可能被破解。下面我们来举例说明操作过程，例如你要保护以下asp代码：
以下是引用片段：
  set ateobject("dset")
  sql="select * from gq where xs=1 order by date asc"
  rs.open sql,conn,1,1
  f and rs.bof then
  response.write"<A HREF=new0.asp?lbid=gqx ><%= gqx %></A>"
  else
  Response.Write ""
  end if
  set rs=nothing
  conn.close
  set conn=nothing
  可以把它们改写成VB组件，然后在ASP文件中调用组件即可。操作步骤如下：
  (1)新建一个vb6的activex dll项目
  在属性窗口中，命名你的库模块和项目文件(例如项目名lacl，模块名disp)，以后在asp文件中，调用的对象名将为lacl_disp
  选择vb6中的项目菜单中的references ，选中microsoft activex data objects 2.0 library
  (2)编写VB组件
  接下来把<；欲保护的asp代码>改写成VB组件，代码如下：
以下是引用片段：
  public function html_combo(disp_table as string) as string
  dim outstring as string
  dim conn tion
  dim rst dset
  dim sqlstring as string
  set conn = createobject("tion")
  set rst = createobject("dset")
　sqlstring = "select * from " & disp_table & " where xs=1 order by date asc"
  '以上是在VB中打开数据库操作，数据库中的表名、字段名，你可以根据自己的需要修改
  conn.open "dsn=sumnet"
  rst.open sqlstring, conn, 3, 3
  f and rst.bof then
  outstring = "还没有这类单位信息"
  else
  vefirst
  outstring = "<A HREF=new0.asp?lbid="&request("lbid") & "></A>"
  end if
  html_combo = outstring
  rst.close
  conn.close
  end function
  写好以上VB代码后，保存项目并开始编译。
  (3)生成安装文件
  打开visual studio 6中附带的package deployment wizard程序，选择刚才建立的activex项目文件lacl；
选择package，选择要打包的脚本或使用默认脚本，选择标准安装，为生成的安装文件选择一个存放目录，选择single cab. 其他均默认；然后单击下一步，安装文件就自动生成了!
  (4)在IIS服务器上安装组件
  在IIS服务器上运行这个安装文件，把组件安装到服务器上。
  (5)在网页中调用组件
  以后在ASP文件中，通过调用该组件完成原来的功能。在网页中调用你制作的组件，方法如下：
以下是引用片段：
<%@ language="vbscript" %>
<%
set diaoyong = ateobject("lacl_disp.disp")
%>                         
<html>
<body>
<%= diaoyong.html_combo("gq")%>
<br>
</body>
</html>
  你看，现在Asp文件中的内容只是组件的调用(与以前完全不同)，别人即使得到该文件，也无法编辑修改源代码，因为代码都被封装在VB组件中了，对于组件中的代码，外人是无法看到、也不能反编译的!
  3、自己编写加密程序
  组件加密方法虽然不可破解，但是要求你熟悉VB编程，需要把ASP代码改写成VB组件，工作量很大，所以建议大家自己编程来保护asp代码，其基本思路是：写一个加密函数base64Encode和解密函数base64Decode，先用加密函数处理<；要保护的asp代码>，得到对应的密文hu；然后再用execute(base64Decode(hu))替换<；欲保护的asp代码>。
  例如我们要保护上面那段asp代码，可以这样操作：
  (1)用WORD处理<；要保护的ASP代码>
  将<；要保护的ASP代码>拷到WORD中；在WORD中，把代码里的段落标记(回车换行)全部替换成“水”这个汉字，方法是：点击“编辑”/替换，光标移到“查内容”栏，点“高级”/特殊字符，选择“段落标记”；光标移到“替换为”栏，输入“水”，最后点“全部替换”。同法，把代码中的单引号也全部替换成“加”这个汉字。
  (2)编写、运行加密程序
  在FrontPage中编写加密程序，该程序中有初始化函数initCodecs、加密函数base64Encode(代码如下)，把WORD处理后
的代码，copy粘贴在inp = ""这句中，最后以test1.asp名存盘；在IE中输入 127.0.0.1/test1.asp本地运行该文件；屏幕上会显示一大段乱码(例如)，这就是《要保护的asp代码》对应的密文!
以下是引用片段：
  OPTION EXPLICIT
  const BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
  dim newline
  dim Base64EncMap(63)
  dim Base64DecMap(127)
  dim inp,hu,encode
  call initCodecs '初始化
  inp = "<WORD处理后的asp代码>" '将要保护的asp代码用WORD处理，然后填在此处
  hu= base64Encode(inp) '调用函数base64Encode进行加密，得到密文hu
  Response.Write(hu) '显示密文
  PUBLIC SUB initCodecs() '初始化函数initCodecs
  newline = "<P>" & chr(13) & chr(10)
  dim max, idx
  max = len(BASE_64_MAP_INIT)
  for idx = 0 to max - 1
  Base64EncMap(idx) = mid(BASE_64_MAP_INIT, idx + 1, 1)
asp 源代码  next
  for idx = 0 to max - 1
  Base64DecMap(ASC(Base64EncMap(idx))) = idx
  next
  END SUB
  PUBLIC FUNCTION base64Encode(plain) '加密函数base64Encode
  if len(plain) = 0 then
  base64Encode = ""
  exit function
  end if
  dim ret, ndx, by3, first, second, third
  by3 = (len(plain) \ 3) * 3
  ndx = 1
  do while ndx <= by3
  first = asc(mid(plain, ndx+0, 1))
  second = asc(mid(plain, ndx+1, 1))
  third = asc(mid(plain, ndx+2, 1))
  ret = ret & Base64EncMap( (first \ 4) AND 63 )
  ret = ret & Base64EncMap( ((first * 16) AND 48) + ((second \ 16) AND 15 ) )
  ret = ret & Base64EncMap( ((second * 4) AND 60) + ((third \ 64) AND 3 ) )
  ret = ret & Base64EncMap( third AND 63)
  ndx = ndx + 3
  loop
  if by3 < len(plain) then
  first = asc(mid(plain, ndx+0, 1))
  ret = ret & Base64EncMap( (first \ 4) AND 63 )
  if (len(plain) MOD 3 ) = 2 then
  second = asc(mid(plain, ndx+1, 1))
  ret = ret & Base64EncMap( ((first * 16) AND 48) + ((second \ 16) AND 15 ) )
  ret = ret & Base64EncMap( ((second * 4) AND 60) )
  else
  ret = ret & Base64EncMap( (first * 16) AND 48)
  ret = ret '& "="
  end if
  ret = ret '& "="
  end if
  base64Encode = ret
  END FUNCTION
  (3)重新改写要保护的asp文件
  改写原来的asp文件，在文件中增加UnEncode 和base64Decode函数，全部代码如下：
以下是引用片段：
  Dim Hu,Hu2
  '拷贝“欲保护asp代码”的密文 将之存放到Hu变量中
  Hu=”c2V0IHJzPXNlcnZlci5jcmVhdGVvYmplY3Qo12Fkb2RiLnJlY29yZHNldOMpICAgICDuc3FsPeNzZWxlY3QgKiBmcm9tIGdxICB3aGVyZSB4cz0xIG9yZGVyIGJ5IGRhdGUgYXNj1yAgICAgsnJzLm9wZW4gc3FsLGNvbm4sMSwxICAgICDuaWYgcnMuZW9mIGFuZCBycy5ib2YgdGhlbiDucmVzcG9uc2Uud3JpdGUTvSD7INAg5iAgILUgvyAFILITsmVsc2UgsiAgICAgUmVzcG9uc
2UuV3JpdGUg1zxBIEhSRUY9bmV3MC5hc3A/bGJpZD0TJnJlcXVlc3Qo12xiaWQTKSAmIOM+PC9BPuPuZW5kIGlmICAgIL5zZXQgcnM9bm90aGluZyAgICAgICAgsmNvbm4uY2xvc2UgICAgICDuc2V0IGNvbm49bm90aGluZyAgIL4”
  Hu2= base64Decode(hu) '还原要保护的ASP代码
  execute(UnEncode(Hu2)) '还原单引号、回车换行，并执行原代码
  ’解密函数base64Decode
  FUNCTION base64Decode(scrambled)
  if len(scrambled) = 0 then
  base64Decode = ""
  exit function
  end if
  dim realLen
  realLen = len(scrambled)
  do while mid(scrambled, realLen, 1) = "="
  realLen = realLen - 1
  loop
  dim ret, ndx, by4, first, second, third, fourth
  ret = ""
  by4 = (realLen \ 4) * 4
  ndx = 1
  do while ndx <= by4
  first = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))
  second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))
  third = Base64DecMap(asc(mid(scrambled, ndx+2, 1)))
  fourth = Base64DecMap(asc(mid(scrambled, ndx+3, 1)))
  ret = ret & chr( ((first * 4) AND 255) + ((second \ 16) AND 3))
  ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15))
  ret = ret & chr( ((third * 64) AND 255) + (fourth AND 63))
  ndx = ndx + 4
  loop
  if ndx < realLen then
  first = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))
  second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))
  ret = ret & chr( ((first * 4) AND 255) + ((second \ 16) AND 3))
  if realLen MOD 4 = 3 then
  third = Base64DecMap(asc(mid(scrambled,ndx+2,1)))
  ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15))
  end if
  end if
  base64Decode = ret
  END FUNCTION
  '还原单引号、回车换行函数UnEncode
  function UnEncode(cc)
  for i = 1 to len(cc)
  if mid(cc,i,1)<> "水" then
  if mid(cc,i,1)="加" then
  temp = """" & temp
  else
  temp = Mid(cc, i, 1) + temp
  end if
  else
  temp=newline&temp
  end if
  next
  UnEncode=temp
  end function
  将以上代码以test2.asp名存盘。
  (4)用SRCENC加密test2.asp
  用SRCENC加密test2.asp，然后把它发布到服务器上，这样别人即使得到该文件、破解了SRCENC加密，也无法看到原代码，因为原代码在test2.asp中是密文(Hu=”)，所以ASP代码就被保护起来了!
  二、加密过的asp程序如何解密?
  如何对加密过的asp程序解密呢?首先我们要告诉大家，用组件法加密的asp程序是无法解密的，而screnc加密过的程序则可以解密，方法是：使用解密软件(ZWDECODE.EXE)。
  ZWDECODE.EXE可以对MS Script Encode加密的ASP文件进行解密，还原出源代码。
  (1)解密方法
  单击“开始”/程序/附件/命令提示符，在MS-DOS 命令行中输入以下命令，即可恢复原代码：

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。