某影视软件asp注册文件

分析了某影视软件。把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 ======================================

 

阅读更多
个人分类: 程序相关 安全
上一篇警惕ServU本地提权
下一篇Solaris不能进入X-Windows解决一例
想对作者说点什么? 我来说一句

局域网WEB电影源码ASP+ACC

2011年10月21日 898KB 下载

非常好用的CPA正规电影站源码

2014年10月26日 2.39MB 下载

asp最好的电影源码,完美后台

2012年05月23日 1.25MB 下载

honudini破解

2014年09月05日 1.33MB 下载

没有更多推荐了,返回首页

关闭
关闭