在线等待，需求帮助和在线赚钱，ASP网站，需要验证和注册，才能使用ASP网站的，ASP网站代码加密的
由于asp代码可见，而且没有编译的。我制作了一个电影网站，好辛苦做出来的，而且美工也不错。
拿出去卖，一会儿就被别人给盗去也卖了，好头痛。
大家帮我想想，如果加密这ASP程序代码，并且我想做成这电影网站程序捆定服务器IP地址的，给个注册验证串，如果验证不通知，就不能访问任何页面。
有谁能帮帮我的。分不够继续加
QQ：81832527
有谁能帮助我的，我可以给你付薪水，就是帮我加密个ASP代码，或者是ASP网站绑定域名，提供序列号注册的。
问题点数：0、回复次数：4Top
1 楼richwong（QQ:1856856）回复于 2005-04-03 21:29:26 得分 0
找我了，薪水？给多少阿？
我有写个现成的域名注册组件。Top
2 楼richwong（QQ:1856856）回复于 2005-04-03 21:32:54 得分 0
贴个VB ACTIVEX 类模块过滤函数源码
Function Rich_Sql(ParaName)
On Error GoTo Err
homeurl = Right(Request.ServerVariables("HTTP_HOST"), 9)
homeurl = LCase(这里定义域名加密字符)
If Application("My_Code") <> UCase(Md5(Md5(homeurl))) Then
Response.Write "<meta http-equiv=refresh content=5;url=http://www.52163.com/url/url.asp> <b><font color=ff0000>对不起，您的域名尚未被授权使用！QQ:1856856</font></b>"
Else ‘执行子程序部分
Rich_Sql = Replace(ParaName, "'", "‘")
Rich_Sql = Replace(ParaName, "chr", "ＣＨＲ")
Rich_Sql = Replace(ParaName, "\", "＼")
Rich_Sql = Replace(ParaName, "%", "％")
Rich_Sql = Replace(ParaName, "xp_cmdshell", "ＸＰ_ＣＭＤＳＨＥＬＬ")
Rich_Sql = Replace(ParaName, "exec", "ＥＸＥＣ")
Rich_Sql = Replace(ParaName, "update", "ＵＰＤＡＴＥ")
Rich_Sql = Replace(ParaName, "select", "ＳＥＬＥＣＴ")
Rich_Sql = Replace(ParaName, "insert", "ＩＮＳＥＲＴ")
Rich_Sql = Replace(ParaName, "delete", "ＤＥＬＥＴＥ")
Rich_Sql = Replace(ParaName, ";", "；")
End If
Exit Function
Err:
If Err.Number = vbObjectError + 1 Then
Err.Raise vbObjectError + 1
Else
Resume Next
End If
End Function
Top
3 楼richwong（QQ:1856856）回复于 2005-04-03 21:36:35 得分 0
每个重要代码写成过程都可以封装在DLL内，而且在执行DLL内部代码前都要检查回应的域名经过运算是否等于程序返回的注册码。
有效保护程序，每个域名只需要按照特定的运算得到注册码发放给客户就OK。Top
4 楼liqiang9118（老妖）回复于 2005-04-05 10:40:35 得分 0
楼上各位高手添加我的QQ啊，给我QQ留言，81832527
我一定不会让各位白干的，只要你能帮搞定，能让我学会，我一定会有报酬的，添加我的QQ，我的QQ天天在线。Top
