vb组件加密

使用VB组件加密asp如果想彻底保护自己的asp代码，可以通过开发activexdll组件的方法进行保护。Dll文件是被编译过的机器代码，如果没有源项目文件，是不可能被反编译的，所以组件加密这种方法最安全，也不可能被破解。下面我们来举例说明操作过程，例如你要保护以下asp代码：以下是引用片段：setrs=server.createobject(adodb.recordset)sql=select*fromgqwherexs=1orderbydateascrs.opensql,conn,1,1ifrs.eofandrs.bofthenresponse.writeAHREF=new0.asp?lbid=gqx%=gqx%/AelseResponse.Writeendifsetrs=nothingconn.closesetconn=nothing可以把它们改写成VB组件，然后在ASP文件中调用组件即可。操作步骤如下：(1)新建一个vb6的activexdll项目在属性窗口中，命名你的库模块和项目文件(例如项目名lacl，模块名disp)，以后在asp文件中，调用的对象名将为lacl_disp选择vb6中的项目菜单中的references，选中microsoftactivexdataobjects2.0library(2)编写VB组件接下来把欲保护的asp代码改写成VB组件，代码如下：以下是引用片段：publicfunctionhtml_combo(disp_tableasstring)asstringdimoutstringasstringdimconnasadodb.connectiondimrstasadodb.recordsetdimsqlstringasstringsetconn=createobject(adodb.connection)setrst=createobject(adodb.recordset)sqlstring=select*from&disp_table&wherexs=1orderbydateasc'以上是在VB中打开数据库操作，数据库中的表名、字段名，你可以根据自己的需要修改conn.opendsn=sumnetrst.opensqlstring,conn,3,3ifrst.eofandrst.bofthenoutstring=还没有这类单位信息elserst.movefirstoutstring=AHREF=new0.asp?lbid=&request(lbid)&/Aendifhtml_combo=outstringrst.closeconn.closeendfunction写好以上VB代码后，保存项目并开始编译。(3)生成安装文件打开visualstudio6中附带的packagedeploymentwizard程序，选择刚才建立的activex项目文件lacl;选择package，选择要打包的脚本或使用默认脚本，选择标准安装，为生成的安装文件选择一个存放目录，选择singlecab.其他均默认;然后单击下一步，安装文件就自动生成了!(4)在IIS服务器上安装组件在IIS服务器上运行这个安装文件，把组件安装到服务器上。(5)在网页中调用组件以后在ASP文件中，通过调用该组件完成原来的功能。在网页中调用你制作的组件，方法如下：以下是引用片段：%@language=vbscript%%setdiaoyong=server.createobject(lacl_disp.disp)%htmlbody%=diaoyong.html_combo(gq)%br/body/html你看，现在Asp文件中的内容只是组件的调用(与以前完全不同)，别人即使得到该文件，也无法编辑修改源代码，因为代码都被封装在VB组件中了，对于组件中的代码，外人是无法看到、也不能反编译的!