某影视软件asp注册文件

最新推荐文章于 2026-03-08 02:15:53 发布

原创最新推荐文章于 2026-03-08 02:15:53 发布 · 1k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#影视 #asp #function #数据库 #hex

安全同时被 2 个专栏收录

44 篇文章

订阅专栏

程序相关

12 篇文章

订阅专栏

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

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

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

<%
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 & " "

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 "系统错误，无法继续运行，故障原因： 1、Fso权限不够 2、系统自带md5文件被人更改 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 "系统错误，无法继续运行，故障原因： 1、Fso权限不够 2、系统自带md5文件被人更改 3、数据库错误...."
response.end
end if
End Function

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

response.write "DiskID:" & Getdiskid() & "= " &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 & " "

response.write "写入注册信息"
%>

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

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

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

<%

'*******************************************************
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 "系统错误，无法继续运行，故障原因： 1、Fso权限不够 2、系统自带md5文件被人更改 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 "系统错误，无法继续运行，故障原因： 1、Fso权限不够 2、系统自带md5文件被人更改 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 "系统错误，无法继续运行，故障原因： 1、Fso权限不够 2、系统自带md5文件被人更改 3、数据库错误.."
response.end
end if
End function

response.write Getregid()
%>

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