某影视软件asp注册文件
来源:互联网 发布:平安淘宝联名信用卡 编辑:程序博客网 时间:2024/04/28 12:52
分析了某影视软件。把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注册文件
- 使用.reg文件删除暴风影视库图标和注册信息
- 影视
- asp.net连接MySQL 浮兮影视
- 利用 INI 文件对软件进行注册
- 利用ASP在客户端注册DLL文件
- 影视文件下载,合并,修复,转换…
- 软件注册
- Fusion 6.1 影视后期制作软件下载 (digital fusion 6.1)
- 视频制作,影视编辑,特效制作,电影特技软件收集
- 一个ASP开发的网吧影视播放程序
- 国外某软件 3.47 注册算法分析
- 某机器人编程软件注册算法分析
- C#软件注册和注册
- 火星人软件安装指南 -- 在 IIS 中注册 ASP.NET 4.0
- 软件注册加密技术
- 软件的注册加密
- 软件注册与加密
- 开源RIA平台-Openlaszlo3.3正式发布
- 计算机科学与技术反思录
- OpenLDAP的schema定义
- 正则表达式
- GridViewDetail 加上 Validation
- 某影视软件asp注册文件
- 数字小写转大写
- 心情顿时很失落的感觉!
- 在C#中使用LOG4NET
- log4net配置
- javascript 常用代码大全
- CSND Blog的一个怪事
- How to Develop Web Applications with Ajax, Pt. 1
- DES加密方法对字符串加密。