某影视软件asp注册文件

原创 2006年05月24日 14:53:00

分析了某影视软件。把asp文件放在其根目录下就可以了

1.3版本的注册文件reg1.3.asp,这个会自动把注册码写入数据库中

============================code start ===================================

<!--#include file="conn.asp" -->
<%
Function Getdiskid()
 on error resume next
   Getdiskid=md5("@ayang^19820504"&Request.ServerVariables("LOCAL_ADDR"),1)
   if err.number<>0 then
      response.write "error "
    end if
end function
  
Function Getregid()
on error resume next
 for i=1 to 9
     Getregid=md5(Getdiskid&Getregid&"@yang^19820504",32)
 next
   if err.number<>0 then
      response.write "error while generate regid"
   end if
end function


 
'////////////////////////////////////////////////////////
Function Reg_soft_chk()
on error resume next
regSQL="SELECT * FROM 注册信息 where 硬件号='"& Getdiskid&"' and 注册码='"&Getregid&"'"
response.write "REGSQL:" & regSQL & "<br>"

set rs_regchk=conn.execute(regSQL)

if not rs_regchk.eof then Reg_soft_chk=True
set rs_regchk=nothing
if err.number<>0 then '////检测是否出现错误
response.write "系统错误,无法继续运行,故障原因:<br>1、Fso权限不够<br>2、系统自带md5文件被人更改<br>3、数据库错误..."
response.end
end if
End Function

Function autoReg_soft_chk()
on error resume next
 set rscount=conn.execute("select count(id) from 影片")
 reg_film_count=rscount(0)
 set rscount=nothing
 if Reg_soft_chk<>True and reg_film_count>150 then
 Response.redirect "reg_soft.asp" 
 Response.end
 end if
if err.number<>0 then '////检测是否出现错误
response.write "系统错误,无法继续运行,故障原因:<br>1、Fso权限不够<br>2、系统自带md5文件被人更改<br>3、数据库错误...."
response.end
end if
End Function

'if Reg_soft_chk() then response.write "Right"
' autoReg_soft_chk

 

response.write "DiskID:" & Getdiskid() & "=<br>" &GetRegid() & "<hr>"
regSQL="insert into 注册信息 (硬件号,注册码) values ('" & GetDiskID & "','"& GetRegID & "')"
SQL = "UPDATE Products Set UnitPrice = 2;"
Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Mode = 3 ''3 = adModeReadWrite
Conn1.Open connstr
Conn1.Execute(regSQL)
 
'rs.Open regSQL,conn
response.write "regSQL:" & regSQL & "<br>"
 
response.write "写入注册信息"
%>

========================code end==========================================

下面是针对1.4版本的reg1.4.asp

=============================code start===========================================

<!--#include file="conn.asp" -->
<%

'*******************************************************
Function Dec_log2(num)
on error resume next
for i=len(num) to 1 step -1
  num1=mid(num,i,1)
  num2=Asc(num1)
  Dec_log2 = Dec_log2+hex(num2)
next
End Function
'///////////////////////////////////////////////////////
'    读硬盘ID函数
'////////////////////////////////////////////////////////
Function Getdiskid()
'on error resume next
set fs=server.createObject("scripting.filesystemobject")
testDrive=Server.MapPath("/DRIVEINFO.ASP")
testDrive=Left(testDrive,3)
set f=fs.getdrive(testDrive)
 Getdiskid=(hex(f.serialnumber)) '把当前盘序列号列出来(16进制)
set f=nothing
set fs=nothing
if err.number<>0 then '////检测是否出现错误
response.write "系统错误,无法继续运行,故障原因:<br>1、Fso权限不够<br>2、系统自带md5文件被人更改<br>3、数据库错误."
response.end
end if
End Function

'///////////////////////////////////////////////////////
'    取得机器号
'////////////////////////////////////////////////////////
Function Getserial()

Serverip=Request.ServerVariables("LOCAL_ADDR")
if instr(Serverip,"192.168")<>0 or instr(Serverip,"10.0")<>0 or instr(Serverip,"127.0")<>0 then  '//网吧用户,用硬盘号做序列号
 Getserial=Dec_log2(Getdiskid)            '网吧用
else
 Getserial=Dec_log2(Replace(Request.ServerVariables("LOCAL_ADDR"),".","")) '外网用注册
end if
if err.number<>0 then '////检测是否出现错误
response.write "系统错误,无法继续运行,故障原因:<br>1、Fso权限不够<br>2、系统自带md5文件被人更改<br>3、数据库错误."
response.end
end if
end function

'///////////////////////////////////////////////////////
'    取得注册码函数 Getregid()
'////////////////////////////////////////////////////////
Function Getregid()
'on error resume next
 Getregid=UCase(Getregid+md5(Getserial()&Getregid&"@#yang^19820504*aa",32))
        
if err.number<>0 then '////检测是否出现错误
response.write "系统错误,无法继续运行,故障原因:<br>1、Fso权限不够<br>2、系统自带md5文件被人更改<br>3、数据库错误.."
response.end
end if
End function

response.write Getregid()
%>

======================code end ======================================

 

Asp.Net 后台注册Js脚本和引用JS文件的方法及作用位置

Asp.Net 后台注册Js脚本和引用JS文件的方法及作用位置 asp:Literal 注册 JS脚本

影视制作已有开源软件及简介

l  Opensource tools for visual effict:   Blender 运动跟踪、镜头跟踪、特效合成,提供了非常多的工具。 Blender是世界上最早应用结点化合成...

视频制作,影视编辑,特效制作,电影特技软件收集

1、Houdini 特效方面非常强大的软件。许多电影特效都是由它完成:指环王中“甘道夫”放的那些“魔法礼花”还有“水马”冲垮“戒灵”的场面......后天中的龙卷风...... 2、Illusion...

Fusion 6.1 影视后期制作软件下载 (digital fusion 6.1)

电影高端合成软件 Eyeon Fusion 6.1 完美破解版下载(32与64位) 6.1的更新信息 大家可以去官方看看 eyeon推出了下一代GPU的超级计算机在Fusion 6....

ASP.net操作XML文件写入注册信息

  • 2009年11月24日 16:52
  • 220KB
  • 下载

影视光盘制作专家 5.1 注册码

  • 2013年01月15日 13:28
  • 29B
  • 下载

行业软件加密狗数据 写狗程序 注册机 免激活文件展示 深思4加密狗复制 定做算法注册机合作联系

凤城市新世纪驾驶员考试软件 华能制衣ERP 台湾手术软件 富怡二合一服装CAD++(仅有排料程序) 新沸点美发店管理软件V2010 冠唐仓库管理 博科服装CAD 宇众酒店室内覆盖智能设计...

酷魅影视5.0【注册版】

  • 2016年07月13日 04:31
  • 9.41MB
  • 下载

ASP.NET 4.0 尚未在WEB服务器上注册

当我在VS 2012里面新建一个WEB网站时,提示ASP.NET 4.0 尚未在WEB服务器上注册,如下图所示: ASP.NET 是一个开发框架,用于通过 HTML、CSS、JavaScript 以...
  • lnazj
  • lnazj
  • 2017年07月03日 20:26
  • 419
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:某影视软件asp注册文件
举报原因:
原因补充:

(最多只允许输入30个字)