如今，用ASP技术构建的网站随处可见。由于ASP脚本是在服务器上解释执行的(无法编译)，因此你辛苦开发出来的ASP代码，很容易被人拷去任意修改，如何保护ASP源代码呢?这是每个ASP站长都会遇到的难题，网上求解这类问题的帖子非常多，下面我们就来谈谈ASP程序的加密方法。

　　一、如何加密ASP程序?

　　目前对ASP程序的加密方法主要有三种：脚本编码器(SRCENC.EXE)加密、组件加密、自编程序加密，下面我们就来展开介绍这三种加密方法。

　　1、使用微软的MS Script Encode进行加密

　　微软提供了脚本编码器MS Script Encode(下载地址http://www.itgene.cn/itgene/download/download.aspID=232)，可以对ASP程序进行加密。这是一个简单的命令行工具，其执行文件是SRCENC.EXE，需要在DOS下运行。它只加密页面中嵌入的脚本代码，把网页中之间的ASP代码转换成不可读的乱码，其他部分则保持原样不变。加密后的程序，必须使用Internet Explorer 5.0以上版本才能正常浏览。

　　用SRCENC加密之后，文件中被加密过的部分将变成只读类型，假如你修改了加密部分(哪怕只改动一个字)，就会导致整个文件不能使用。对于 VBScript，加密后在源文件的第一行会显示：<SCRIPT LANGUAGE="VBScript.Encode">；而JScript（或 JavaScript）则会显示：<SCRIPT LANGUAGE="JScript.Encode">

　　(1)加密方法

　　单击“开始”/程序/附件/命令提示符，在MS-DOS 命令行中输入以下命令，即可对某个asp文件加密：

SRCENC [switches] <要加密asp文件名> <加密后的文件名>

　　其中[switches]项目可以选以下5个参数

　　[switches] 含义 举例

　　/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 rs=server.createobject("adodb.recordset")
　　sql="select * from gq where xs=1 order by date asc"
　　rs.open sql,conn,1,1
　　if rs.eof 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 as adodb.connection
　　dim rst as adodb.recordset
　　dim sqlstring as string
　　set conn = createobject("adodb.connection")
　　set rst = createobject("adodb.recordset")
　　sqlstring = "select * from " & disp_table & " where xs=1 order by date asc"
　　'以上是在VB中打开数据库操作，数据库中的表名、字段名，你可以根据自己的需要修改
　　conn.open "dsn=sumnet"
　　rst.open sqlstring, conn, 3, 3
　　if rst.eof and rst.bof then
　　outstring = "还没有这类单位信息"
　　else
　　rst.movefirst
　　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 = server.createobject("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中输入http://127.0.0.1/test1.asp本地运行该文件;屏幕上会显示一大段乱码(例如c2V0IHJzPXNlcnZlci5jcmVhd...)，这就是《要保护的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)
　　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=”c2V0IHJzPXNlcnZlci5jcmVhdGVvYmplY3Qo12Fkb2RiLnJlY29yZHNldOMpICAgICDuc3FsPeNzZWxlY3QgKiBmcm9tIGdxICB3aGVyZSB4cz0xIG9yZGVyIGJ5IGRhdGUgYXNj1yAgICAgsnJzLm9wZW4gc3FsLGNvbm4sMSwxICAgICDuaWYgcnMuZW9mIGFuZCBycy5ib2YgdGhlbiDucmVzcG9uc2Uud3JpdGUTvSD7INAg5iAgILUgvyAFILITsmVsc2UgsiAgICAgUmVzcG9uc2UuV3JpdGUg1zxBIEhSRUY9bmV3MC5hc3A/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 + 4loop
　　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=”c2V0IHJzPXNlcnZlc...)，所以ASP代码就被保护起来了!

　　二、加密过的asp程序如何解密?

　　如何对加密过的asp程序解密呢?首先我们要告诉大家，用组件法加密的asp程序是无法解密的，而screnc加密过的程序则可以解密，方法是：使用解密软件(ZWDECODE.EXE)。

　　ZWDECODE.EXE(下载地址http://www.mydown.com/softdown/45/45183.html)可以对MS Script Encode加密的ASP文件进行解密，还原出源代码。

　　(1)解密方法

　　单击“开始”/程序/附件/命令提示符，在MS-DOS 命令行中输入以下命令，即可恢复原代码：

　　ZWDECODE <已加密asp文件名>

　　其中<已加密asp文件名>必需输入，该文件名可带目录路径;也必需输入，这是要生成的输出文件名，也可以带路径信息。

　　(2)举例

　　例如F:22lacl.asp曾被screnc加密处理过，现在要恢复其中的源代码，你可以在MS-DOS中输入以下命令：

　　ZWDECODE F:22lacl.asp d:ulacl.asp

　　执行完毕，在D盘上就会生成一个ulacl.asp文件，打开该文件，你就能看到源代码了!

ASP程序加密/解密方法大揭密的更多相关文章

  1. ASP.NET常用加密解密方法

    ASP.NET常用加密解密方法 一.MD5加密解密 1.加密 C# 代码           public static string ToMd5(string clearString)        ...

  2. Atitit.视频文件加密的方法大的总结 java c# php

    Atitit.视频文件加密的方法大的总结 java c# php 1. 加密的算法  aes  3des  des xor等.1 2. 性能1 3. 解密1 4. 播放器的事件扩展1 5. 自定义格式 ...

  3. 2019-2-20C#开发中常用加密解密方法解析

    C#开发中常用加密解密方法解析 一.MD5加密算法 我想这是大家都常听过的算法,可能也用的比较多.那么什么是MD5算法呢?MD5全称是 message-digest algorithm 5[|ˈmes ...

  4. C#开发中常用的加密解密方法

    转载自:https://www.cnblogs.com/bj981/p/11203711.html C#开发中常用的加密解密方法 相信很多人在开发过程中经常会遇到需要对一些重要的信息进行加密处理,今天 ...

  5. PHP加密解密方法

    加密解密方法 //字符串解密加密 function authcode($string, $operation = 'DECODE', $key = '', $expiry = 0) { $ckey_l ...

  6. vb.net加密解密方法

    1.vb.net加密解密方法 Private Function getLicenseDate() As String Dim b() As Byte Dim path As String = Serv ...

  7. ios常见加密解密方法

    在其他平台中经常会计算MD5值,在iOS平台中也提供了该方法,首先需要导入头文件 #import <CommonCrypto/CommonDigest.h> 方法CC_MD5可以获取MD5 ...

  8. C#/IOS/Android通用加密解密方法

    原文:C#/IOS/Android通用加密解密方法 公司在做移动端ios/android,服务器提供接口使用的.net,用到加密解密这一块,也在网上找了一些方法,有些是.net加密了android解密 ...

  9. Java实现一个简单的加密解密方法

    Crypto是Java语言写的一个简单的加密解密方法. 使用方法: 加密方法 String cipherte=Enande.encrypt(content, pass): 解密方法 Enande.de ...

随机推荐

  1. 产生大于N的Smith数

    实验三  求Smith数 实验目的: 通过本次实验,掌握穷举算法的基本思想. 实验环境: 硬件:PC机 软件:windows操作系统,C语言 实验内容: 若一个合数的质因数分解式逐位相加之和等于其本身 ...

  2. Pyspark中遇到的 java.io.IOException: Not a file 和 pyspark.sql.utils.AnalysisException: 'Table or view not found

    最近执行pyspark时,直接读取hive里面的数据,经常遇到几个问题: 1.  java.io.IOException: Not a file —— 然而事实上文件是存在的,是 hdfs 的默认路径 ...

  3. Python入门篇-数据结构堆排序Heap Sort

    Python入门篇-数据结构堆排序Heap Sort 作者:尹正杰 版权声明:原创作品,谢绝转载!否则将追究法律责任. 一.堆Heap 堆是一个完全二叉树 每个非叶子结点都要大于或者等于其左右孩子结点 ...

  4. MSP430 LaunchPad开发板入门教程集合

    MSP-EXP430G2开发板是德州仪器提供的开发工具,也称为LaunchPad,用于学习和练习如何使用其微控制器产品.该开发板属于MSP430 Value Line系列,我们可以对所有MSP430系 ...

  5. Linux的rwx

  6. CSP-S 2019提高组训练 服务器需求

    时间限制:C/C++ 3秒 空间限制:C/C++ 262144K 题目描述 小多计划在接下来的n天里租用一些服务器,所有的服务器都是相同的.接下来n天中,第i天需要\(a_i\)台服务器工作,每台服务 ...

  7. 《团队作业第三、四周》五阿哥小组Scrum 冲刺阶段---Day2

    <团队作业第三.四周>五阿哥小组Scrum 冲刺阶段---Day2 一.项目燃尽图 二.项目进展 20182310周烔今日进展: 主要任务一览:完成总博客的提交,制定接下来的计划,编写博客 ...

  8. jQuery通用遍历方法each的实现

    each介绍 jQuery 的 each 方法,作为一个通用遍历方法,可用于遍历对象和数组. 语法为: jQuery.each(object, [callback]) 回调函数拥有两个参数:第一个为对 ...

  9. HBase 基本入门篇

    无论是 NoSQL,还是大数据领域,HBase 都是非常”炙热”的一门数据库.本文将对 HBase 做一些基础性的介绍,旨在入门. 一.简介 HBase 是一个开源的.面向列的非关系型分布式数据库,目 ...

  10. B/S大附件上传，支持断点续传

    核心原理: 该项目核心就是文件分块上传.前后端要高度配合,需要双方约定好一些数据,才能完成大文件分块,我们在项目中要重点解决的以下问题. * 如何分片: * 如何合成一个文件: * 中断了从哪个分片开 ...