微软提供了脚本编码器MS Script Encode(下载地址http://www.itgene.cn/itgene/download/download.aspID=232)，可以对ASP程序进行加密。这是一个简单的命令行工具，其执行文件是SRCENC.EXE，需要在DOS下运行。它只加密页面中嵌入的脚本代码，把网页中之间的ASP代码转换成不可读的乱码，其他部分则保持原样不变。加密后的程序，必须使用Internet Explorer 5.0以上版本才能正常浏览。
以下是引用片段： 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
选择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. 其他均默认;然后单击下一步，安装文件就自动生成了!
以下是引用片段： 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 + 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